Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Volani QRCompositeReports z formulare s vlastnosti
[*] David Michal <david.michal(zv)www-bv(tec)com> - 13.10.2002 15:52:03
Zdravim,
Mam formular ktery volam metodou Show. Z tohoto formulare volam
QRCompositeReport1.Preview. Problem je ze vsechno sice pracuj e spravne, ale
formular zustava viditelny nad reportem. Kdyz jsem z toho formulare volal
klasicky report metodou PreviewModal, bylo vse v poradku. Jenze
QRCompositeReports mi toto neumoznuje, anebo umoznuje a ja nevim jak. :)
Setkal jste se nekdo s podobnym problemem?
Diky,
David Michal
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.417 / Virus Database: 233 - Release Date: 08/11/2002
lock manager out of room
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 13.10.2002 16:02:17
Tohle NENI tvrde sestreleni. Tvrde sestreleni ve windows lze napriklad v aplikacnim rezimu
pres spravce uloh (na sluzbu nema uzivatel opravneni), nebo pres handleex.
Slavek
> Jen se ujistim. Pokud ukoncim FB server pomoci ibmgr na UNIXu ci v
> ovladacich panelech pres Interbase manager a neni zapnuto forced writes,
> tak k ulozeni sena do DB, tedy k moznemu poskozeni .gdb, nedojde?
>
> Nebo i pri tomto muze dojit k poskozeni .gdb (pokud jsou prihlaseni
> nekteri uzivatele).
ADOQuery prebirani parameters z DataSource.
[*] David Michal <david.michal(zv)www-bv(tec)com> - 13.10.2002 16:04:33
Zdravim,
Delphi6, ADO, MSSQL2000.
V programu mam toto:
With Q_Temp1 do //componenta TADOQuery
begin
Close;
Sql.Clear;
Sql.Add('Select ID_Company From Company Where Name = ''Name'' ');
Open;
end;
With Q_Temp2 do //componenta TAdoQuery
begin
Close;
Sql.Clear;
Sql.Add('Select Person From People Where ID_Company = :ID_Company');
DataSource := DS_Temp1; //DS_Temp1 je komponenta TDataSource s datasetem
Q_Temp1
Open;
end;
//vim ze by to slo resit jednim SQL prikazem, tato ukazka je zde pouze pro
predstaveni meho problemu
pak s tim nejak pracuji a nakonec davam:
Q_Temp2.DataSource := nil;
Q_Temp2.Close;
Q_Temp1.Close;
A nyni k problemu, pokud to takto spustim tak vse krasne funguje az do doby
dokud nezmenim SQL.Text u obou komponent.
Pokud se v novem SQL.Text nachazeji jina jmena parametru pak mi to hodi
chybovou hlasku, ze nenalezl parametr ID_Company.
Zkousel jsem pouzit Parameters.ParseSQl(Sql.Text, True), ale to nepomohlo.
Mate nekdo nejaky napad? Vypada to, ze jsem nekde opomnel vyresetovat seznam
parameters, ale nevim kde a jak presne to udelat.
Diky,
David Michal
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.417 / Virus Database: 233 - Release Date: 08/11/2002
Ukoncenie aplikacie
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 13.10.2002 16:08:24
Mam handle inej aplikacie. Ako ju ukoncim?
Vdaka za kazdu radu.
ADOQuery prebirani parameters z DataSource.
[*] <tuffi(zv)email(tec)cz> - 13.10.2002 17:12:11
Nestacilo by dat Unprepare / Prepare? Pripadne ho(parametr) tam dohodit ruco? :-)
--- P�vodn� zpr�va ---
Od: "David Michal" <david.michal(zv)www-bv.com>
Datum: 13.11.2002 15:59:21
Zdravim,
Delphi6, ADO, MSSQL2000.
A nyni k problemu, pokud to takto spustim tak vse krasne funguje az do doby
dokud nezmenim SQL.Text u obou komponent.
Pokud se v novem SQL.Text nachazeji jina jmena parametru pak mi to hodi
chybovou hlasku, ze nenalezl parametr ID_Company.
Zkousel jsem pouzit Parameters.ParseSQl(Sql.Text, True), ale to nepomohlo.
Mate nekdo nejaky napad? Vypada to, ze jsem nekde opomnel vyresetovat seznam
parameters, ale nevim kde a jak presne to udelat.
Diky,
David Michal
---
______________________________________________________________________________
Email(tec)cz -----> Va�e emailov� schr�nka zdarma.
http://www.Email(tec)cz <------------Po�ta zdarma!Re[4]: NDLS drivery
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.10.2002 17:26:27
> jo Winpcap znam. ale na muje pomery to moc rozsahle.
> Vy ste mel nekdy nejake skusenosti s vivojem NDIS driveru ?
>
pouze jsem s tou myslenkou koketoval - cili delal jsem nejaky pruzkum
co to vlastne obnasi. A nakonec jsem se k tomu nedostal.
D. Toman
DelphiX
[*] Ing. Holyfield <holyfield(zv)post(tec)cz> - 13.10.2002 19:09:11
V�en� program�to�i,
Ur�it� jste ji� zde �e�ili probl�m DelphiX pro Delphi v.6. Kde bych
mohl tuto komponentu stahnout, nebo mi ji pros�m n�kdo po�lete. Moc
D�k
--
---
Str�nky o automobilech, novinky, autobazary, nov� auta,
p��slu�enstv�, poji�t�n� aut... http://automoto.volny(tec)cz
Pocet souboru v adresari
[*] Str�n�k Franti�ek Ing. <FStranik(zv)cpoj(tec)cz> - 13.10.2002 19:17:34
Znate nejakou vhodnou funkci pro zjisteni poctu souboru daneho typu v urcitem adresari ?
Diky za informaci
F.Stranik
Zruseni podadresaru
[*] Str�n�k Franti�ek Ing. <FStranik(zv)cpoj(tec)cz> - 13.10.2002 19:20:01
Pratele,
znate nejakou vhodnou funkci pro zruseni vsech podadresaru v danem adresari ?
Diky za informaci
zdrav�
Franti�ek STR�N�K
Pocet souboru v adresari
[*] Peter Surovy <psurovy(zv)uevora.pt> - 13.10.2002 18:22:17 -0000
Ahoj
ja som to robil cez FindFirst a Findnext
a este sa tam pouziva FileAttrs
vid Help
PS
----- Original Message -----
From: "Str�n�k Franti�ek Ing." <FStranik(zv)cpoj(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, November 13, 2002 6:17 PM
Subject: Pocet souboru v adresari
> Znate nejakou vhodnou funkci pro zjisteni poctu souboru daneho typu v
urcitem adresari ?
>
> Diky za informaci
> F.Stranik
>
>
>
IBConsole
[*] J�n Harman <harman(zv)atlas(tec)cz> - 13.10.2002 19:56:42
Ahoj Tak jsem nainstaloval FB na W95. Server spustit de, ale pri spusteni
IBConsole mi tato oznami ze Section
Software\Borland\InterBase\IBConsole\Settings inaccessible. Kdyz se podivam
do registru, tak ta sekce tam je. Setkali jste se s tim nekdo? Vubec nemuzu
pokracovat pokud nenastavim databazi.
Dekuji moc.
Honza.
Zruseni podadresaru
[*] J�n Harman <harman(zv)atlas(tec)cz> - 13.10.2002 20:03:13
toto pouzivam s uspechem. Vymaze vse co v adresari je a ev. i samotny
adresar. Neni to moje, mam to tady z konference. Honza.
Procedure KillDirectory(Directory: String; Remove: Boolean);
{ Vymaze obsah adresare vcetne podadresaru. Pokud Remove=true, zrusi i
adresar Directory }
const
AnyFileButDir = faAnyFile and (not faDirectory) and (not faVolumeID);
procedure KillSubDirs(Const baseDir: String); // Base dir ma backslash
var SavedDir : String;
Srec : tSearchRec;
aDosError: Integer;
begin
aDosError := FindFirst(BaseDir+'*.*',faDirectory,Srec);
Try
While aDosError = 0 do begin
if ((Srec.Attr and faDirectory) <> 0) and
(Srec.name <> '.') and
(Srec.name <> '..') then begin
SavedDir := BaseDir+Srec.name;
KillSubDirs(SavedDir+'\');
RmDir(SavedDir);
end;
aDosError := FindNext(Srec);
end;
Finally
SysUtils.FindClose(Srec);
End;
aDosError := FindFirst(BaseDir+'*.*',AnyFileButDir,Srec);
if aDosError = 0 then
Try
While aDosError = 0 do begin
SavedDir := BaseDir+Srec.name;
DeleteFile(PChar(SavedDir));
aDosError := FindNext(Srec);
end;
Finally
SysUtils.FindClose(Srec);
End;
end;
begin
KillSubDirs(Directory+'\');
if Remove then RmDir(Directory);
end;
Pratele,
znate nejakou vhodnou funkci pro zruseni vsech podadresaru v danem adresari
?
Diky za informaci
zdrav�
Franti�ek STR�N�K
W98 a FB
[*] Pavol Kakacka <kakacka(zv)proca(tec)cz> - 13.10.2002 20:17:15
From: "j?n harman" <harman(zv)atlas(tec)cz>
> ahoj, normalne programuji ve W2K pouzivam FB a vse OK, ale potrebuji
nainstalovat FB pod W98 a je to problem. Pise to prvne ze mu chybi nejaky
klic v registrech ze mam spustit nejakou utilitu, kterou nevim kde najdu.
Presna hlaska je toto:
> The registry information is missing.
> Please run then Firebird Server Configuration Utility.
Zrejme sa pokusas nainstalovat noveho FB 1.5? (tipujem, neni uvedena verzia)
Ale tu konfiguracnu utilitu mas priamo po nainstalovani v ..\Bin adresary.
Vola sa tusim "instreg.exe", "instsvc.exe" (pre NT). S parametrom "--help"
zistis help ;)
W98 som uz dlho nevidel, ale pavdepodobne na W98 nepojde spusit FB v rezime
servis, ale mozne to je, pred nejakym rokom som to tak mal.
btw: s tou utilitkou sa musis chvilku pohrat ;)
Kakacka Pavol
KasiX(zv)atlas(tec)cz
IBConsole
[*] J�n Harman <harman(zv)atlas(tec)cz> - 13.10.2002 20:37:58
Tak si odpovim sam, stahl jsem si jinou verzi a ta funguje. Paradoxem je ze
nefungovala verze 1.0.1.334 a funkcni je verze asi starsi 1.0.0.320.
Na jinem pocitaci kde mam W2k mi funguji obe verze.
Preji vic uspechu nez mam ja.
Honza.
> Ahoj Tak jsem nainstaloval FB na W95. Server spustit de, ale pri spusteni
> IBConsole mi tato oznami ze Section
> Software\Borland\InterBase\IBConsole\Settings inaccessible. Kdyz se
podivam
> do registru, tak ta sekce tam je. Setkali jste se s tim nekdo? Vubec
nemuzu
> pokracovat pokud nenastavim databazi.
> Dekuji moc.
> Honza.
>
>
Tlac z RichEditu
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 13.10.2002 20:45:58
Mne vsak ten font zle zobrazuje uz na obrazovke a to je jedno, ci tam text
hadzem z programu alebo priamo ho davam do komponenty.
----- Original Message -----
From: "bardon" <bardon(zv)akord-soft(tec)cz>> Neverim, ze je to problem RichEditu, mi to nikdy nedelal. Podobne kousky
umi
> napriklad vadny ovladac tiskarny, skus to na jine tiskarne.
>
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Martin Kasman
>
> Problem je v tom, ze akonahle sa vyskytuju v texte niektore
> znaky (napr. n s makcenom / n s hackem), tak sa za tymto znakom zmeni
font,
> aj ked je "natvrdo" zadefinovany. Ako by ste to riesili vy? Pouzit radsej
> inu komponentu pre tlac?
>
>
>
PRA + PRB
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 13.10.2002 21:19:48
Ja by som pouzil komunikaciu cez DDE (Dynamic Data Exchange). Pokial tie programy nekomunikuju sietovo, ale len na lokalnom jednom PC, tak je to (aspon podla mna) rychlejsia a jednoduchsia cesta ako cez COM. Komponenty DDE najdes na karte myslim SYSTEM. Dalsou moznostou je predavanie dat cez prikazovy riadok. Aj ked moze byt program spusteny viackrat, tak by som si vytvoril nejaky parameter v prik. riadku a ten by zabezpecil nespustenie novej instacie programu a pomocou SendMessage a PostMessage by som data rozoslal do vsetkych existujucich instancii programu.
Peter Ondras
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
>: Behalf Of delphik(zv)email(tec)cz
>: Sent: Tuesday, November 12, 2002 9:43 PM
>: To: delphi-l(zv)clexpert(tec)cz
>: Subject:
>:
>: Ahoj, mam dotaz (pri hledani v archivu jsem neuspel). Potrebuji predavat
>: informace mezi dvema programy (PRA a PRB). PRB je spusten z PRA
>: (ShellExecute...) a muze byt spusten vicekrat. A ted otazka, je mozny
>: nejaky zpusob, aby PRB od PRA ziskaval prubezne urcite udaje ? Tyto udaje
>: v okamziku spusteni PRB nejsou zname a PRB je potrebuje prubezne, proto
>: je nemuzu predavat pri spusteni PRB. Dik za kazdou radu. Delphik (D5E)
>:
>: _________________________________________________________________________
>: _____
>: Email(tec)cz -----> Va�e emailov� schr�nka zdarma.
>: http://www.Email(tec)cz <------------Po�ta zdarma!
Pozicia mysi
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 13.10.2002 21:20:55
Existuje napr. komponenta MouseControl. Ked ju niekde na HDD vyhrabem, tak ju umiestnim niekde na i-net a dam ti vediet. Je to malicka komponenta, ktoru staci umiestnit na form a potom pozerat MouseControl1.X a MouseControl1.Y. Ked chces mys presunut na ine miesto staci priradit nove hodnoty do toho X a Y.
Peter Ondras
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
>: Behalf Of Petr Ku�era
>: Sent: Tuesday, November 12, 2002 2:33 PM
>: To: delphi-l(zv)clexpert(tec)cz
>: Subject:
>:
>: Dobry den,
>:
>: Prosim Vas, da se nejak udelat to, ze bych pomoci nejake
>: aplikace menil pozici kurzoru mysi? Napr., ze bych chtel posunout mys na
>: nejakou souradnici nebo chtel bych, aby mys klikla do urciteho pole,
>: atp.?
>:
>: Dekuji.
>:
>: PK
>:
>: ---
>: Odchoz� zpr�va neobsahuje viry.
>: Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
>: Verze: 6.0.417 / Virov� b�ze: 233 - datum vyd�n�: 8.11.2002
>
Ukoncenie aplikacie
[*] J�n Harman <harman(zv)atlas(tec)cz> - 13.10.2002 21:34:28
Mozna by slo pouzit i TerminateProcess, podivej se do helpu.
> Mam handle inej aplikacie. Ako ju ukoncim?
>
> Vdaka za kazdu radu.
>
>
>
Ukoncenie aplikacie
[*] J�n Harman <harman(zv)atlas(tec)cz> - 13.10.2002 21:46:01
prave projizdim toto
http://codecentral.borland.com/codecentral/ccweb.exe/prodcat?prodid=1&catid=
4 a najdi si tam Programmatically closing another application. nevim co to
je, ale treba pomuze.
> Mam handle inej aplikacie. Ako ju ukoncim?
>
> Vdaka za kazdu radu.
>
>
OLE Db z Delphree - stav?
[*] Erik Salaj <winsoft(zv)stonline.sk> - 13.10.2002 22:12:27
> Na Ole Db jsem se dostal proto, ze potrebuji exportovat do MS SQL 2000
> velike mnozstvi dat a pres ADO neni rychlost vubec dobra. (D7 Pro)
urcite zrychlenie v ADO sa da dosiahnut pomocou tzv. ADO Recordset binding,
ktore umoznuje nepouzivat varianty ale udaje citat/ukladat priamo do
vytvorenych
pametovych buffrov (komponentu s prikladom mame v Adonis-e je to ale
univerzalne
pouzitelne v ADO). Dalsia moznost zrychlenia by mohlo byt pouzitie MS SQL
2000
DTS (Data Transformation Services) objektov.
Erik
JRO
[*] Erik Salaj <winsoft(zv)stonline.sk> - 13.10.2002 22:28:46
> zdravim,mam problem s packom v accesse...
> naimportoval som si typovu kniznicu jro, no pri volani
> Jetengine1.CompactDatabase('d:\data.mdb','d:\data2.mdb');
> dostanem chybu "Format inicializacneho retazca nezodpoveda specifikacii
OLE
> DB."
JetEngine1.CompactDatabase('Data Source=d:\data.mdb', 'Data
Source=d:\data2.mdb');
Erik
Pozicia mysi
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.10.2002 05:54:16
Nevim, k cemu komponenta, kdyz staci pouzit existujici instanci TMouse
a pro nastaveni pozice zadat prikaz
Mouse.CursorPos := Point(x,y);
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
13.11.2002 Peter Ondras:
> Existuje napr. komponenta MouseControl. Ked ju niekde na HDD vyhrabem, tak ju umiestnim niekde na i-net a dam ti vediet. Je to malicka komponenta, ktoru staci umiestnit na form a potom pozerat
> MouseControl1.X a MouseControl1.Y. Ked chces mys presunut na ine miesto staci priradit nove hodnoty do toho X a Y.
Neumim vytvorit XLS soubor
[*] Jan Krop��ek <kropacek(zv)rbcheb(tec)com> - 14.10.2002 07:15:43
Predne se omlouvam se za uroven dotazu, jsem zatatecnik.
Nevim ani zda je to mozne.
Doposud jsem vytvarel databaze pres BDE (Delphi 3)
napr
FieldDefs.clear;
.add('cuc1',ftstring,17,true);
createTable;
Nyni mam Delphi 6 profesional.
Chtel jsem se pokusit o vytvoreni souboru XLS pres ADO.
Pokusil jsem se postupovat analogicky s BDE ,ale
u ADOtable1 jsem nasel jen .FieldDefList.
S kterym si neumim poradit.
A createtable u ADOtable1 mozne neni.
Prosim o radu jak lze XLS vytvorit.
Jan Kropacek
kropacek(zv)rbcheb.com
TBitmap a TMemoryStream - was: Predavani obrazku (
[*] Alexandr Stefek <alex(zv)scova.vabo(tec)cz> - 14.10.2002 07:55:00
> Logo.SaveToFile('c:\a1.bmp'); //na disku ulozena bitmapa je v poradku
> //z TBitmap ulozim do streamu
> Logo.SaveToStream(TempStream);
> //ze streamu nahraju do TBitmap; jestli je predtim TempStream.Position
:=
> 0 neni rozhodujici
//no to teda je rozhodujici
TempStream.Seek(0, soFromBeginning);
> bmp.LoadFromStream(TempStream);
> //z TBitmap provedu ulozeni na disk
> bmp.SaveToFile('c:\a2.bmp'); //soubor ma nulovou delku
>
> TempStream.Free;
> bmp.Free;
> end
>
> Libor
Napoveda kdekoliv v aplikaci ^
[*] David Kraina <DKx(zv)seznam(tec)cz> - 14.10.2002 08:00:40
Nazdar,
nevite nekdo jak se da udelat, ze kdekoliv v me aplikaci pri stisku
F1 (napoveda) se mi vyvola dana funkce ? Ja bych umel akorat tak, ze
by to reagovalo v celem Windows - i v jinych aplikaci, a to
nechci...
Diky
DKx
______________________________________________________________________
Reklama:
Jake bude pocasi? http://pocasi.seznam(tec)cz
Code Completion
[*] J�n Harman <harman(zv)atlas(tec)cz> - 14.10.2002 08:12:34
Ahoj, chtel bych udelat podobnou vec jako je Code Completion u IDE. Vyberovy
interaktivni seznam. V seznamu by mely byt polozky z nejake DB.Kdybych to
udelal s najakym TListView tak by to asi bylo dost pomale, nedelal jste
nekdo nekdy neco takoveho?
Myslim ze by to mohla byt dobra pomucka pro uzivatele, kdyz vyplnuji nejake
formulare a jsou potreba zadavat udaje z nejakych seznamu. Diky moc.
Honza.
Code Completion
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.10.2002 08:22:50
TmEgdG9obGUgc3RhY2kgb2J5Y2VqbnkgTGlzdEJveCBzIHV6aXZhdGVsc2t5bSB2eWtyZXNsb3Zh
bmltDQoNCi0tIA0KaW5nLiBKYW4gRmlhbGENCm1haWx0bzpqYW4uZmlhbGFAaW9sLmN6DQoNCjE0
LjExLjIwMDIgSuFuIEhhcm1hbjoNCj4gQWhvaiwgY2h0ZWwgYnljaCB1ZGVsYXQgcG9kb2Jub3Ug
dmVjIGpha28gamUgQ29kZSBDb21wbGV0aW9uIHUgSURFLiBWeWJlcm92eQ0KPiBpbnRlcmFrdGl2
bmkgc2V6bmFtLiBWIHNlem5hbXUgYnkgbWVseSBieXQgcG9sb3preSB6IG5lamFrZSBEQi5LZHli
eWNoIHRvDQo+IHVkZWxhbCBzIG5hamFreW0gVExpc3RWaWV3IHRhayBieSB0byBhc2kgYnlsbyBk
b3N0IHBvbWFsZSwgbmVkZWxhbCBqc3RlDQo+IG5la2RvIG5la2R5IG5lY28gdGFrb3ZlaG8/DQo+
IE15c2xpbSB6ZSBieSB0byBtb2hsYSBieXQgZG9icmEgcG9tdWNrYSBwcm8gdXppdmF0ZWxlLCBr
ZHl6IHZ5cGxudWppIG5lamFrZQ0KPiBmb3JtdWxhcmUgYSBqc291IHBvdHJlYmEgemFkYXZhdCB1
ZGFqZSB6IG5lamFreWNoIHNlem5hbXUuIERpa3kgbW9jLg0KPiBIb256YS4NCiA=
Re[2]: problem s 16-ti bitovym programem
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 14.10.2002 08:26:05
Cau Milan,
Thursday, November 14, 2002, 8:30:46 AM, you wrote:
> V helpech se p�ou ruzn� veci neco jako, �e mus�te povolit spou�ten�
> 16-bitov�ch aplikac� apod.
> Pokud jsou v�ak povoleny, pak co s t�m ?
Aha to mozna bude ten problem jak povolim spousteni 16-bit aplikaci ?
> Moly by to b�t Windows 2000 a hardware s plug and play.
> Pri instalaci WINDOWS se to mu�e st�t a st�v� se to.
> 1) Jedn�m z re�en�m je odeb�rat hardware a instalovat a instalovat.
> Nekter� kompilace WIN maj� chybn� instalacn� knihovny pro urcit� typ
> hardware.
> 2) Druhou mo�nost� je sehnat si instalaci od jin�ho prodejce a zkusit ji.
> 3) Je tak� mo�n� cekat, �e to WINDOWS 2000 prestane bavit a povol� spou�ten�
> 16-ti bitov�ch aplikac� sami.
> (St�v� se to pri hav�ri�ch PC, kdy OS syst�m prov�d� podivn� veci "neco jako
> carov�n�". Obnovuje soubory, kter� nikdy nebyly z�lohov�ny apod.)
> Nic dal��ho poradit neum�m.
> Milan
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Vymazal Milan
> Sent: Wednesday, November 13, 2002 1:26 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: OT: problem s 16-ti bitovym programem
> Zdravim
> Narazil jsem na divny problem pri spusteni instalacniho programu mi to
> zahlasi nelze spoustet 16-ti bitove programy. Nevite nekdo cim to je
nebo co to je >>
> OS: WIndows 2000 Proffessionall SP3 with all hotfix.> Dik milan
S pozdravem
Milan Vymazal
problem s 16-ti bitovym programem
[*] Milan Selnar <selnar(zv)rbcheb(tec)com> - 14.10.2002 08:30:46
V helpech se p�ou ruzn� veci neco jako, �e mus�te povolit spou�ten�
16-bitov�ch aplikac� apod.
Pokud jsou v�ak povoleny, pak co s t�m ?
Moly by to b�t Windows 2000 a hardware s plug and play.
Pri instalaci WINDOWS se to mu�e st�t a st�v� se to.
1) Jedn�m z re�en�m je odeb�rat hardware a instalovat a instalovat.
Nekter� kompilace WIN maj� chybn� instalacn� knihovny pro urcit� typ
hardware.
2) Druhou mo�nost� je sehnat si instalaci od jin�ho prodejce a zkusit ji.
3) Je tak� mo�n� cekat, �e to WINDOWS 2000 prestane bavit a povol� spou�ten�
16-ti bitov�ch aplikac� sami.
(St�v� se to pri hav�ri�ch PC, kdy OS syst�m prov�d� podivn� veci "neco jako
carov�n�". Obnovuje soubory, kter� nikdy nebyly z�lohov�ny apod.)
Nic dal��ho poradit neum�m.
Milan
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Vymazal Milan
Sent: Wednesday, November 13, 2002 1:26 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT: problem s 16-ti bitovym programem
Zdravim
Narazil jsem na divny problem pri spusteni instalacniho programu mi to
zahlasi nelze spoustet 16-ti bitove programy. Nevite nekdo cim to je
nebo co to je >
OS: WIndows 2000 Proffessionall SP3 with all hotfix.
Dik milan
TBitmap a TMemoryStream - was: Predavani obrazku (
[*] Libor Filip <filip(zv)agrokonzulta(tec)cz> - 14.10.2002 08:44:49
Kez by to rozhodujici bylo. Stale mi to neslape.
a2.bmp ma nulovou delku. Nemusi se jeste nejak nastavit objekt bmp?
Libor, D5 Ent. Upd 1
> Logo.SaveToFile('c:\a1.bmp'); //na disku ulozena bitmapa je v poradku
> //z TBitmap ulozim do streamu
> Logo.SaveToStream(TempStream);
> //ze streamu nahraju do TBitmap; jestli je predtim TempStream.Position
:=
> 0 neni rozhodujici
//no to teda je rozhodujici
TempStream.Seek(0, soFromBeginning);
> bmp.LoadFromStream(TempStream);
> //z TBitmap provedu ulozeni na disk
> bmp.SaveToFile('c:\a2.bmp'); //soubor ma nulovou delku
>
> TempStream.Free;
> bmp.Free;
> end
>
> Libor
OT: 24 bitove kodovani barvy na n-vidia
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 14.10.2002 09:08:20
Zakaznik ma software ktery natvro vyzaduje prepnout do 24bit. kodovani
barvy. Co kdyz to ale videokarta nepodporuje (prakticky vsechny n-vidia).
Existuje nejake SW reseni (emulace)? 32bitov� kodovani software take
nechce.
S pozdravem Vaclav Riha
Re[2]: problem s 16-ti bitovym programem
[*] Milan Selnar <selnar(zv)rbcheb(tec)com> - 14.10.2002 09:24:05
Z hlavy v�m, �e se na to pt� WIN 2000 pri instalaci.
Pokud si chce� s nek�m nez�vazne pokecat, tak zavolej na horkou linku
Microsoftu. To byl vtip !
J� jsem to zkou�el. Je to dobr� zku�enost.
Pro dne�ek konc�m, u� nem�m cas.
Milan
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Vymazal Milan
Sent: Thursday, November 14, 2002 8:26 AM
To: Milan Selnar
Subject: Re[2]: problem s 16-ti bitovym programem
Cau Milan,
Thursday, November 14, 2002, 8:30:46 AM, you wrote:
> V helpech se p�ou ruzn� veci neco jako, �e mus�te povolit spou�ten�
> 16-bitov�ch aplikac� apod.
> Pokud jsou v�ak povoleny, pak co s t�m ?
Aha to mozna bude ten problem jak povolim spousteni 16-bit aplikaci ?
> Moly by to b�t Windows 2000 a hardware s plug and play.
> Pri instalaci WINDOWS se to mu�e st�t a st�v� se to.
> 1) Jedn�m z re�en�m je odeb�rat hardware a instalovat a instalovat.
> Nekter� kompilace WIN maj� chybn� instalacn� knihovny pro urcit� typ
> hardware.
> 2) Druhou mo�nost� je sehnat si instalaci od jin�ho prodejce a zkusit ji.
> 3) Je tak� mo�n� cekat, �e to WINDOWS 2000 prestane bavit a povol�
spou�ten�
> 16-ti bitov�ch aplikac� sami.
> (St�v� se to pri hav�ri�ch PC, kdy OS syst�m prov�d� podivn� veci "neco
jako
> carov�n�". Obnovuje soubory, kter� nikdy nebyly z�lohov�ny apod.)
> Nic dal��ho poradit neum�m.
> Milan
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Vymazal Milan
> Sent: Wednesday, November 13, 2002 1:26 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: OT: problem s 16-ti bitovym programem
> Zdravim
> Narazil jsem na divny problem pri spusteni instalacniho programu mi to
> zahlasi nelze spoustet 16-ti bitove programy. Nevite nekdo cim to je
nebo co to je >>
> OS: WIndows 2000 Proffessionall SP3 with all hotfix.> Dik milan
S pozdravem
Milan Vymazal
Ukoncenie aplikacie
[*] Petr Langer <langer(zv)xdom(tec)cz> - 14.10.2002 09:31:51
No uplne "koser" to nebude nikdy, ale prvni bys te aplikaci mel dat sanci,
aby se ukoncila sama a pokud na to nebude v danem case (dwTimeout) reagovat,
tak ji "odstrelis". Ja pro jistotu posilam WM_CLOSE vsem oknum dane
aplikace, ale nevim, jestli je to nezbytne nutne. mozna by stacilo to poslat
jenom hlavnimu.
Muj kod vypada asi takto (dwPID je Process ID):
function TerminateProcessEnum(Window: HWnd; Data: Longint): Bool; stdcall;
const WM_CLOSE = $10;
var
dwID : DWORD;
retVal : LRESULT;
retRes : DWORD;
begin
GetWindowThreadProcessId(window, (zv)dwID) ; // gets processID to
which the window belongs to
if (dwID = Data) then // if processID for
window = our watched process ID
retVal := SendMessageTimeout(window, WM_CLOSE, 0, 0, SMTO_ABORTIFHUNG
And SMTO_BLOCK, 1000, retRes);
Result := true ;
end;
function killProcess(dwPID : DWORD) : integer;
var
hProc : LongWord;
dwRet, dwTimeout : DWORD;
begin
dwTimeout := 5000;
hProc := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, FALSE, dwPID);
EnumWindows((zv)TerminateProcessEnum, dwPID) ; // enumerate all
windows for process (calls TerminateProcessEnum)
if (WaitForSingleObject(hProc, dwTimeout)<> WAIT_OBJECT_0) then //
check if it is really down
begin
if (TerminateProcess(hProc,0)) then // if not, then just
kill it without remorse
dwRet := 1 // successful kill
else
dwRet := 2; // not successful
end
else
dwRet := 0; // Accepted WM_CLOSE = normal process end
CloseHandle(hProc) ;
Result := dwRet ;
end;
HTH
Petr Langer
----- Original Message -----
From: "Martin Kasman" <martinkasman(zv)centrum.sk>
Subject: Ukoncenie aplikacie
> Mam handle inej aplikacie. Ako ju ukoncim?Porty Nestandardni rychlost
[*] Vojtech Albrecht <vojtech.albrecht(zv)quick(tec)cz> - 14.10.2002 09:33:27
Jiz delsi dobu se snazim vyresit problem s nestandardni rychlosti
komunikace.
Zkusil jsem nekolik komponent, i AsyncFree ale nedostala jsem se k zadnemu
vysledku. Probl�m je ten ze ve windows 2000 pri nestandardni rychlosti to
nejde vubec, nebo obcas. Vetsinou je pritomna hlaska o spatnem nastaveni
DCB. Rychlost kterou potrebuji komunikovat je cca 10200Bd.
Jake mam provest nastaveni, pripadne existuje komponenta ktera toto bez
problemu umi i pod win2000 (XP) ?
Byl bych rad i za pripadny odkaz kde bych se dozvedel o problematice vice.
D�kuji ......***********************************************************
Delphi5 Prf.
Windows2000 Prf.
***********************************************************
Re[2]: problem s 16-ti bitovym programem
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 14.10.2002 09:34:46
a co skusit zapnut kompatibilitu s urcitym prostredim (95/98/NT) pre
dany program (treba to robit na Shorcute, zalozka Compatible), od
nejakeho SP to W2000 maju a ty mas SP3 takze to mas tiez
joka
Cau Milan,
Thursday, November 14, 2002, 8:30:46 AM, you wrote:
> V helpech se p�sou ruzn� veci neco jako, ze mus�te povolit spousten�
> 16-bitov�ch aplikac� apod.
> Pokud jsou vsak povoleny, pak co s t�m ?
Aha to mozna bude ten problem jak povolim spousteni 16-bit aplikaci ?
> Moly by to b�t Windows 2000 a hardware s plug and play.
> Pri instalaci WINDOWS se to muze st�t a st�v� se to.
> 1) Jedn�m z resen�m je odeb�rat hardware a instalovat a instalovat.
> Nekter� kompilace WIN maj� chybn� instalacn� knihovny pro urcit�
typ
> hardware.
> 2) Druhou moznost� je sehnat si instalaci od jin�ho prodejce a zkusit
ji.
> 3) Je tak� mozn� cekat, ze to WINDOWS 2000 prestane bavit a povol�
spousten�
> 16-ti bitov�ch aplikac� sami.
> (St�v� se to pri hav�ri�ch PC, kdy OS syst�m prov�d� podivn� veci
"neco
jako
> carov�n�". Obnovuje soubory, kter� nikdy nebyly z�lohov�ny apod.)
> Nic dals�ho poradit neum�m.
> Milan
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Vymazal Milan
> Sent: Wednesday, November 13, 2002 1:26 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: OT: problem s 16-ti bitovym programem
> Zdravim
> Narazil jsem na divny problem pri spusteni instalacniho programu mi to
> zahlasi nelze spoustet 16-ti bitove programy. Nevite nekdo cim to je
nebo co to je >>
> OS: WIndows 2000 Proffessionall SP3 with all hotfix.
Code Completion
[*] Petr Langer <langer(zv)xdom(tec)cz> - 14.10.2002 09:36:42
Zkus se kuknout na SynEdit (http://synedit.sourceforge.net), tam je to
resene i se sloupcema, barvama, boldem, atd.
pl
----- Original Message -----
From: "J�n Harman" <harman(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 14, 2002 8:12 AM
Subject: Code Completion
> Ahoj, chtel bych udelat podobnou vec jako je Code Completion u IDE.
Vyberovy
> interaktivni seznam. V seznamu by mely byt polozky z nejake DB.Kdybych to
> udelal s najakym TListView tak by to asi bylo dost pomale, nedelal jste
> nekdo nekdy neco takoveho?
> Myslim ze by to mohla byt dobra pomucka pro uzivatele, kdyz vyplnuji
nejake
> formulare a jsou potreba zadavat udaje z nejakych seznamu. Diky moc.
> Honza.
>
>Porty Nestandardni rychlost
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 14.10.2002 09:40:53
Rychlost nastavitelna do Windows je limitovana moznostmi hardwaru..
tedy kdyz hardware neumi 10200bps (mimochodem baud a bit za sekundu..
to nejsou totozne jednotky!), tak ani kdyby ses rozkrajel, tak to
nenastavis!
A bezny seriovy port na PC tuto rychlost opravdu neumi.
> Jiz delsi dobu se snazim vyresit problem s nestandardni rychlosti
> komunikace. Zkusil jsem nekolik komponent, i AsyncFree ale nedostala
> jsem se k zadnemu vysledku. Probl�m je ten ze ve windows 2000 pri
> nestandardni rychlosti to nejde vubec, nebo obcas. Vetsinou je
> pritomna hlaska o spatnem nastaveni DCB. Rychlost kterou potrebuji
> komunikovat je cca 10200Bd. Jake mam provest nastaveni, pripadne
> existuje komponenta ktera toto bez problemu umi i pod win2000 (XP) ?
> Byl bych rad i za pripadny odkaz kde bych se dozvedel o problematice
> vice.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Outlook - Custom rule action
[*] Tomas Folprecht <tomas(zv)apkfolprecht(tec)cz> - 14.10.2002 09:53:28
Dobry den,
potreboval bych napsat vlastni akci pro pruvodce pravidly v Outlooku (Custom rule action).
Dela se to tak, ze se napise DLL, ktere se nekam do registru zaregistruje. To umim.
Neumim ale do Delphi interpretovat funkci:
HRESULT IExchangeRuleExt::Command(
LPEXCHANGERULEEXTCALLBACK percb, //- an instance of IExchangeRuleExtCallback
LPCTSTR pszCommand, //- the encoded command to execute
ULONG cb, LPENTRYID peid //- the entryid of the message on which to execute
)
To je totiz funkce z C++ prikladu, ktera funguje a kterou musi to DLL poskytovat.
Konkretne neumim do nejak�ho Pascalsk�ho typu dostat EntryID. Abych s t�m mohl pracovat, potrebuju to ve WideString.
Delal jste nekdo neco podobneho?
Diky za radu.
Tomas
Code Completion
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 14.10.2002 10:08:25
> 14.11.2002 J�n Harman:
> > Myslim ze by to mohla byt dobra pomucka pro uzivatele, kdyz vyplnuji nejake
> > formulare a jsou potreba zadavat udaje z nejakych seznamu. Diky moc.
> Odes�latel: ing. Jan Fiala <jan.fiala(zv)iol(tec)cz>
> Na tohle staci obycejny ListBox s uzivatelskym vykreslovanim
Jasne, pokud nestaci pro vyplneni polozek ve formulari TComboBox, TDBComboBox, TDBLookupComboBox.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
ADOQuery prebirani parameters z DataSource.
[*] David Michal <david.michal(zv)www-bv(tec)com> - 14.10.2002 10:45:12
Zdravim,
To by nestacilo. TADOQuery nema metodu unprepare. Ale i kdyz bych pred
zmenou sql.text nastavil Prepared := False, tak to nicemu nepomuze. A rucne
ho zadat nemohu, jelikoz to takto pouzivam pro vystup do sestavy se
Subdetails.
David
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of tuffi(zv)email(tec)cz
Sent: 13 November 2002 17:12
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: ADOQuery prebirani parameters z DataSource.
Nestacilo by dat Unprepare / Prepare? Pripadne ho(parametr) tam dohodit
ruco? :-)
--- P�vodn� zpr�va ---
Od: "David Michal" <david.michal(zv)www-bv.com>
Datum: 13.11.2002 15:59:21
Zdravim,
Delphi6, ADO, MSSQL2000.
A nyni k problemu, pokud to takto spustim tak vse krasne funguje az do doby
dokud nezmenim SQL.Text u obou komponent.
Pokud se v novem SQL.Text nachazeji jina jmena parametru pak mi to hodi
chybovou hlasku, ze nenalezl parametr ID_Company.
Zkousel jsem pouzit Parameters.ParseSQl(Sql.Text, True), ale to nepomohlo.
Mate nekdo nejaky napad? Vypada to, ze jsem nekde opomnel vyresetovat seznam
parameters, ale nevim kde a jak presne to udelat.
Diky,
David Michal
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.419 / Virus Database: 235 - Release Date: 13/11/2002
clientdataset.packedrecords
[*] Robert TOTH <toth(zv)lc.vszp.sk> - 14.10.2002 10:47:45
Moj problem je v tom, ze ked v clientdatasete zmenim hodnotu "packedrecords"
napr. na 10 v dbgrid-e sa mi zobrazia len prazdne riadky.Pokial je
hodnota -1 zobrazia sa vsetky riadky.
Pouzil som aj getnextpacket ale neviem, ci to pouzivam dobre, lebo efekt bol
tiez nulovy.(prazdne riadky)
clientdataset.Fetchondeamond=true;
toth(zv)lc.vszp.sk
Porty Nestandardni rychlost
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 14.10.2002 11:11:48
From: "Lukas Gebauer" <gebylist(zv)mlp(tec)cz>
> Rychlost nastavitelna do Windows je limitovana
> moznostmi hardwaru tedy kdyz hardware neumi 10200bps > tak ani kdyby ses
rozkrajel, tak to nenastavis!
To je pravda, ale protoze muzes nastavit nekterou
z rychlosti, pro kterou plati:
Rate = 1843200 div 16 div BRGlatch,
tak pro BRGlatch=11 dostanes Rate=10472
a to je dostatecne blizko pozadovane rychlosti 10200, pokud bude protejsi
strana pouzivat take clock=16*rate
a signal nebude vyznamne zkreslen.
V takovem pripade se zacatek stop bitu (pri 8N+1) predbehne o
Diff = 1/10200/9-1/10472/9 ~ 23 us
a to bohate splnuje vzorkovaci teorem
clock >= 2*rate
pri kterem je polovina periodu bitu rovna
1/10200/2 ~ 196 us.
HTH, pf
Code Completion
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.10.2002 11:12:53
MTQuMTEuMjAwMiBKYW4gU2ViZWztazoNCj4+IE5hIHRvaGxlIHN0YWNpIG9ieWNlam55IExpc3RC
b3ggcyB1eml2YXRlbHNreW0gdnlrcmVzbG92YW5pbQ0KDQo+IEphc25lLCBwb2t1ZCBuZXN0YWNp
IHBybyB2eXBsbmVuaSBwb2xvemVrIHZlIGZvcm11bGFyaSBUQ29tYm9Cb3gsDQo+IFREQkNvbWJv
Qm94LCBUREJMb29rdXBDb21ib0JveC4NCg0KUHJvYmxlbSBqZSwgemUgdHl0byB2ZWNpIHNlIG5l
ZGVsYWppIHZlIGZvcm11bGFyaSBhbGUgbmUgcGxvc2UNCmVkaXRvcnUgKHZpeiBEZWxwaGkgYSBD
dHJsK0opIGEgdGFtIGJ5IHRlbiBjb21ib2JveCBuZXZ5cGFkYWwgbW9jIHBla25lLg0KDQotLSAN
CmluZy4gSmFuIEZpYWxhDQptYWlsdG86amFuLmZpYWxhQGlvbC5jeg==
bitove kodovani barvy na n-vidia
[*] Peter Surovy <psurovy(zv)uevora.pt> - 14.10.2002 10:41:41 -0000
Ahoj
----- Original Message -----
From: "Vaclav Riha - Soft Consult" <vaclav_riha(zv)softconsult(tec)cz>
Sent: Thursday, November 14, 2002 8:08 AM
asi Ti moc neporadim ale podla mna je najvacsi problem tu:
>32bitov� kodovani software take
> nechce.
--- totiz normalny soft aj ked pracuje na urovni bitov
by sa s tym nemal vzrusovat pretoze tych 8 bitov
popisujucich alfa-kanal sa uklada vlavo takze ked zacinas citat
sprava dolava vzdy nacitas 24 bitov farby ci mas 24 alebo 32 bitove
zobrazenie.
Ja osobne by som skor hladal problem u vyrobcu softu ;-).
PS
Refresh system tray baru?
[*] mp <pavlik(zv)celebris(tec)cz> - 14.10.2002 11:48:42
Zdravim. Nevite jak na to?
Po ukonceni aplikace
hwndShell :=FindWindow('genius_netscroll_class', nil);
if hwndshell>0 then PostMessage(hwndShell, WM_QUIT, 0, 0);
zustava na system tray baru ikona aplikace.
Odstranit lze najetim mysi do oblasti traye / asi refresh /
Neznate prosim zpusob jak ikonu odstranit.
Diky.
Milous.
Tlac z RichEditu
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 14.10.2002 11:54:57
Ahoj,
On 13 Nov 2002 at 20:45, Martin Kasman wrote:
> Mne vsak ten font zle zobrazuje uz na obrazovke a to je jedno, ci tam
> text hadzem z programu alebo priamo ho davam do komponenty.
meli jsme s tim take problemy, kolega zjistil, ze bezproblemove funguji komponenty z RX.
Zkus TRxRichEdit.
Jarek Uher
>
> ----- Original Message -----
> From: "bardon" <bardon(zv)akord-soft(tec)cz>
>
>
> > Neverim, ze je to problem RichEditu, mi to nikdy nedelal. Podobne
> > kousky
> umi
> > napriklad vadny ovladac tiskarny, skus to na jine tiskarne.
> >
> > -----Original Message-----
> > From: delphi-l-owner(zv)clexpert(tec)cz
> > [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Martin Kasman
> >
> > Problem je v tom, ze akonahle sa vyskytuju v texte niektore
> > znaky (napr. n s makcenom / n s hackem), tak sa za tymto znakom
> > zmeni
> font,
> > aj ked je "natvrdo" zadefinovany. Ako by ste to riesili vy? Pouzit
> > radsej inu komponentu pre tlac?
> >
> >
> >
> >
>
>
Dozadovanie sa na pripojenie k internetu pri prihl
[*] Roland Turcan <rolo(zv)sedas.sk> - 14.10.2002 11:59:38
Hello delphi-l(zv)clexpert(tec)cz!
Zakaznik ma v stroji aj modem aj sietovku. Mal nastavene v moznostiach
siete internet, ze sa pripojit vzdy k vychodzeniu ISP. Lenze to
sposobovalo ziadost o pripojenie do internetu pri pripojeni sa k FB
serveru. Tak som im poradil aby si v moznostiach siete internet
nastavili "nikdy nevytacat spojenie" uz to sice bezi ale ak spustia
explorer tak ten sa nevie pripojit. Ako z toho von?
Rozmyslam nad tym, ze ak by namiesto nazvu servera napisal IP adresu
ako connection string na pripojenie. Pomohlo by to?
Je to na PC with Windows 98
--
Best regards, TRoland
OLE Db z Delphree - stav?
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 14.10.2002 12:07:13
O Adonisu jsem taky uvazoval. Cetl jsem zde v konf., ze nemuze byt na
jednom pocitaci s ADOExpress. Je to pravda? Pripada mi to divne.
Jinak jsem projekt meril profilerem a zjistil jsem, ze ted (pote, co
jsem optimalizoval plneni parametru pro SP) zabira 50% vseho casu pri
exportu volani TADOCommand.Execute. A tam se obavam, ze neni co
optimalizovat.
Zkousel jsem taky testovaci program od Zbyska. Testoval jsem jeho
programem SpeedTest OLE Db, ADOExpress, ADO a ADOExpress + stored proc.
A zjistil jsem, ze ADOExpress + stored proc s parametry je temer stejne
rychla jako OLE Db, ktera vklada klasicky pomoci ExecSql INSERT INTO...
Problem je, ze ja tech parametru predavam 100 a to asi nejaky cas
sebere.
Erik Salaj wrote:
>
> > Na Ole Db jsem se dostal proto, ze potrebuji exportovat do MS SQL 2000
> > velike mnozstvi dat a pres ADO neni rychlost vubec dobra. (D7 Pro)
>
> urcite zrychlenie v ADO sa da dosiahnut pomocou tzv. ADO Recordset binding,
> ktore umoznuje nepouzivat varianty ale udaje citat/ukladat priamo do
> vytvorenych
> pametovych buffrov (komponentu s prikladom mame v Adonis-e je to ale
> univerzalne
> pouzitelne v ADO). Dalsia moznost zrychlenia by mohlo byt pouzitie MS SQL
> 2000
> DTS (Data Transformation Services) objektov.
>
> Erik
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT dep. 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
______________________________________________________
MIDAS - limity na pocet TClientDataset?? - Insufic
[*] Danik Frantik <frantik(zv)telpro(tec)cz> - 14.10.2002 12:33:20
Dobry den,
mam problem s Midasem (alespon mi to tak pripada). Vytvorim-li vetsi
mnoztvi ClientDatasetu (cca 2800), spadne mi aplikace na "Insuficient
memory".
Nevite, cim by to mohlo byt?
Neni to sice muj vlastni problem, ale musim ho resit. Rady typu vyrabej si
datasety az pri pouziti samozrejme zvazuji, ale neni to zadna legrace
preklopit aplikaci ...
Diky, Danik
D5Ent Up1, Win200, Bde5.11 (na tom to ale asi nezavisi)
Table.active
[*] Peter Surovy <psurovy(zv)uevora.pt> - 14.10.2002 11:41:24 -0000
Ahoj
chcel by som sa spytat mam kod typu:
Table1.first;
Table1.MoveBy(x);
ktory sa spusta trebars pri kazdom kliknuti
je dobre pritom vzdy odpajat a napajat db?
Table1.active:=true;
Table1.first;
Table1.MoveBy(x);
Table1.Active:=false;
alebo je to blbost?
Ten onclick je sporadicky moze byt ako rychlo to bude user
stihat a moze byt len raz za polhodinu...
PS
Table.active
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 14.10.2002 13:47:35
> Odes�latel: Peter Surovy <psurovy(zv)uevora.pt>
> je dobre pritom vzdy odpajat a napajat db?
> alebo je to blbost?
Pokud ti rozumim, tak je to spis ta blbost.
MoveBy se vztahuje k aktualnimu zaznamu, takze pri Open, Close se bude vztahovat zase k prvnimu.
> Table1.active:=true;
> Table1.first; //tohle je zbytecne, po otevreni je Table na prvnim zaznamu
> Table1.MoveBy(x);
> Table1.Active:=false;
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
Table.active
[*] Petr Langer <langer(zv)xdom(tec)cz> - 14.10.2002 13:50:44
Zalezi do jake DB pristupujes a co k tomu pouzivas. Pokud je to DB a
pripojeni majici interni connection pool, pak to nicemu nevadi, pokud ho to
nema, tak je to blbost a ja bych to udelal tak, ze si po uzavreni spustim
timer napr. na 30 sekund a pokud se v te dobe nepouzije, tak ho odpojim.
HTH
pl
----- Original Message -----
From: "Peter Surovy" <psurovy(zv)uevora.pt>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 14, 2002 12:41 PM
Subject: Table.active
> Ahoj
> chcel by som sa spytat mam kod typu:
>
> Table1.first;
> Table1.MoveBy(x);
>
> ktory sa spusta trebars pri kazdom kliknuti
> je dobre pritom vzdy odpajat a napajat db?
>
> Table1.active:=true;
> Table1.first;
> Table1.MoveBy(x);
> Table1.Active:=false;
>
> alebo je to blbost?
> Ten onclick je sporadicky moze byt ako rychlo to bude user
> stihat a moze byt len raz za polhodinu...
>
> PS
>
>Code Completion
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 14.10.2002 13:50:37
> Odes�latel: ing. Jan Fiala <jan.fiala(zv)iol(tec)cz>
> Problem je, ze tyto veci se nedelaji ve formulari ale na plose
> editoru (viz Delphi a Ctrl+J) a tam by ten combobox nevypadal moc pekne.
Sorry, v puvodni otazce bylo
> > Myslim ze by to mohla byt dobra pomucka pro uzivatele, kdyz vyplnuji nejake
> > formulare a jsou potreba zadavat udaje z nejakych seznamu. Diky moc.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
ADOQuery prebirani parameters z DataSource.
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 14.10.2002 13:57:15
Ahoj,
sam prikazy s ":" notaci parametru nepozivam, davam prednost
ulozenym proceduram (kdyz uz v serveru jsou), ale
nedalo mi to. Toto je postup, ktery urcite vede k cili
(neco jde asi vyhodit -> nutno vyzkouset):
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DataSource2: TDataSource;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
Button1: TButton;
ADOQuery2: TADOQuery;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery2.Close;
ADOQuery1.Close;
//zmena masteru i detailu
ADOQuery1.SQL.Text := 'SELECT * FROM Ucet';
ADOQuery2.SQL.Text := 'SELECT * FROM Smlouva WHERE CisloSmlouvy
=:CisloSmlouvy';
//natazeni parametru
ADOQuery2.Parameters.Clear;
//nastaveni udaju o prametru (vim, ze jen jeden)
ADOQuery2.Parameters.ParseSQL(ADOQuery2.SQL.Text, True);
ADOQuery2.Parameters[0].DataType := ftString;
ADOQuery2.Parameters[0].Attributes := [];
ADOQuery2.Parameters[0].Direction := pdInput;
ADOQuery2.Parameters[0].NumericScale := 255;
ADOQuery2.Parameters[0].Precision := 255;
ADOQuery2.Parameters[0].Size := 10;
ADOQuery2.Parameters[0].Value := NULL;
//ShowMessage( ADOQuery2.Parameters[0].Name);
ADOQuery1.Open;
ADOQuery2.Open;
end;
Pavel
---
A nyni k problemu, pokud to takto spustim tak vse krasne funguje az do doby
dokud nezmenim SQL.Text u obou komponent.
Pokud se v novem SQL.Text nachazeji jina jmena parametru pak mi to hodi
chybovou hlasku, ze nenalezl parametr ID_Company.
Zkousel jsem pouzit Parameters.ParseSQl(Sql.Text, True), ale to nepomohlo.
Mate nekdo nejaky napad? Vypada to, ze jsem nekde opomnel vyresetovat seznam
parameters, ale nevim kde a jak presne to udelat.
clientdataset.packedrecords
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 14.10.2002 13:58:23
> Odes�latel: Robert TOTH <toth(zv)lc.vszp.sk>
> Moj problem je v tom, ze ked v clientdatasete zmenim hodnotu "packedrecords"
> napr. na 10 v dbgrid-e sa mi zobrazia len prazdne riadky.Pokial je
> hodnota -1 zobrazia sa vsetky riadky.
To je divny, TClientDataSet by mel normalne nacist vsechny radky, o ktere si grid rekne.
Musi tam byt nastavena jeste nejaka kulisarna.
K tomu PacketRecords ale upozorneni.
Je sice hezke, ze TClientDataSet nacte jenom par dat, ne vsechny, ale jakakoli akce stejne vyzada vsechny zaznamy (Filter, IndexFieldNames, SetRange, FindKey, ...), takze si pomuzeme v rychlosti jenom pri startu, pri prvni akci bude uzivatel stejne cekat.
Jeste stoji za zminku, ze DataSet na aplikacnim serveru je otevreny, dokud nedojde k nacteni vsech zaznamu. Pak se uzavre. Co na to transakce, to jsem nezkoumal.
Honza
(Kurz VVA, 25.11.2002)
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
Table.active
[*] Peter Surovy <psurovy(zv)uevora.pt> - 14.10.2002 13:12:11 -0000
----- Original Message -----
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
Sent: Thursday, November 14, 2002 12:47 PM
>
> Pokud ti rozumim, tak je to spis ta blbost.
> MoveBy se vztahuje k aktualnimu zaznamu, takze pri Open, Close se bude
vztahovat zase k prvnimu.
-- aha no na tom som zabudol
ale skor som chcel vediet ci ma vyznam stale otvarat
a zatvarat tu tabulku alebo je lepsie ju nechat stale otvorenu
trebars pokial je form aktivny
--databaza je typu Paradox.
PS
Velka cela cisla
[*] Petr Ku�era <pkucera(zv)mh.vri(tec)cz> - 14.10.2002 14:38:22
Nahodou by mi n�kdo neporadil s necim pro C?
PK
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Petr Langer
Sent: Wednesday, November 13, 2002 2:23 PM
To: delphi-l(zv)clexpert(tec)cz
Cc: pkucera(zv)mh.vri(tec)cz
Subject: Re: Velka cela cisla
http://triade.studentenweb.org/GInt/gint.html
HTH
Petr Langer
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.419 / Virov� b�ze: 235 - datum vyd�n�: 13.11.2002
Velka cela cisla
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 14.10.2002 14:49:57
Ahoj,
> pkucera(zv)mh.vri(tec)cz 14.11.02 14:38 >>>
>Nahodou by mi n�kdo neporadil s necim pro C?
zus to... :-)
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
Code Completion
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 14.10.2002 14:53:25
MTQuMTEuMjAwMiBKYW4gU2ViZWztazoNCj4+IE9kZXPtbGF0ZWw6IGluZy4gSmFuIEZpYWxhIDxq
YW4uZmlhbGFAaW9sLmN6Pg0KPj4gUHJvYmxlbSBqZSwgemUgdHl0byB2ZWNpIHNlIG5lZGVsYWpp
IHZlIGZvcm11bGFyaSBhbGUgbmEgcGxvc2UNCj4+IGVkaXRvcnUgKHZpeiBEZWxwaGkgYSBDdHJs
K0opIGEgdGFtIGJ5IHRlbiBjb21ib2JveCBuZXZ5cGFkYWwgbW9jIHBla25lLg0KDQo+IFNvcnJ5
LCB2IHB1dm9kbmkgb3RhemNlIGJ5bG8gDQo+PiA+IE15c2xpbSB6ZSBieSB0byBtb2hsYSBieXQg
ZG9icmEgcG9tdWNrYSBwcm8gdXppdmF0ZWxlLCBrZHl6IHZ5cGxudWppIG5lamFrZQ0KPj4gPiBm
b3JtdWxhcmUgYSBqc291IHBvdHJlYmEgemFkYXZhdCB1ZGFqZSB6IG5lamFreWNoIHNlem5hbXUu
IERpa3kgbW9jLg0KDQpKYSB0YW0gemFzZSBjZXRsOg0KPiBjaHRlbCBieWNoIHVkZWxhdCBwb2Rv
Ym5vdSB2ZWMgamFrbyBqZSBDb2RlIENvbXBsZXRpb24gdSBJREUNCjotKQ0KDQotLSANCmluZy4g
SmFuIEZpYWxhDQptYWlsdG86amFuLmZpYWxhQGlvbC5jeg==
Re[2]: Velka cela cisla
[*] Petr Slaby <petr.slaby(zv)i(tec)cz> - 14.10.2002 15:30:53
QWhvaiwNCg0KUEs+IE5haG9kb3UgYnkgbWkgbuxrZG8gbmVwb3JhZGlsIHMgbmVjaW0gcHJvIEM/
DQoNCm5ldmltIGplc3RsaSB0aSB0byBwb211emUsIGFsZSB6a3VzIHNlIHBvZGl2YXQgc2VtLi4u
DQoNCmh0dHA6Ly9jci55cC50by9udGhlb3J5Lmh0bWwNCmh0dHA6Ly9jci55cC50by9kamIuaHRt
bA0KDQpQZXRyDQoNCi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0NCkluZy4gUGV0ciBTbGFieQ0K
SUNaIGEucy4NClYgT2xzaW5hY2ggMjMwMC83NSwgMTAwIDk3IFByYWhhIDEwLCBDWg0KVGVsOiAr
NDIwIDI4MSAwMDIgMzM3DQpUZWw6ICs0MjAgMjgxIDAwMiAyMjINCkZheDogKzQyMCAyODEgMDAy
IDMzMQ0KcGV0ci5zbGFieUBpLmN6DQpodHRwOi8vd3d3LmkuY3oNCi0tLS0tLS0tLS0tLS0tLS0t
LS0tLS0tLS0=
Chyba v XP SP1 nebo v Delphi?
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 14.10.2002 15:41:10
Ahoj,
zjistil jsem jednu vec, dejte si na formular k timeru
tenhle nevinny kousek kodu:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := IntToStr(Mouse.CursorPos.x);
end;
pak ve Windows dejte "Odhlasit uzivatele" a "Prepnout uzivatele",
pak se po chvilce znovu prihlaste, a uvidite spoustu chybovych
hlasek: win32 error Code5.
Tataz chyba samozrejme u screensaveru s volbou
"pri pokracovani zobrazit uvodni obrazovku", coz je ve firmach
caste nastaveni.
Dela mi to na XP prof s SP1. Na pocitacich s XP bez SP1 to
jede bez chyby. Zkousel jsem to na D5 i D7.
Nevi nekdo, co s tim udelat? Teda krome strceni kazdeho
Mouse.CursorPos do try-except?
Radim
ADOQuery prebirani parameters z DataSource.
[*] David Michal <david.michal(zv)www-bv(tec)com> - 14.10.2002 15:43:47
Zdravim,
Tak ani takto to neprojde. Takto to funguje pokud mam stale stejny Sql.Text
v obou Queries. Jakmile tento text zmenim a budu chtit jine parametry, tak
mi program hodi chybovou hlasku s tim, ze nemuze najit parametr. V tomto
pripade napise ze nemuze najit CisloSmlouvy. Pokud Sql.Text nememin tak vse
funguje tak jak ma.
David
Ahoj,
sam prikazy s ":" notaci parametru nepozivam, davam prednost
ulozenym proceduram (kdyz uz v serveru jsou), ale
nedalo mi to. Toto je postup, ktery urcite vede k cili
(neco jde asi vyhodit -> nutno vyzkouset):
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery2.Close;
ADOQuery1.Close;
//zmena masteru i detailu
ADOQuery1.SQL.Text := 'SELECT * FROM Ucet';
ADOQuery2.SQL.Text := 'SELECT * FROM Smlouva WHERE CisloSmlouvy
=:CisloSmlouvy';
//natazeni parametru
ADOQuery2.Parameters.Clear;
//nastaveni udaju o prametru (vim, ze jen jeden)
ADOQuery2.Parameters.ParseSQL(ADOQuery2.SQL.Text, True);
ADOQuery2.Parameters[0].DataType := ftString;
ADOQuery2.Parameters[0].Attributes := [];
ADOQuery2.Parameters[0].Direction := pdInput;
ADOQuery2.Parameters[0].NumericScale := 255;
ADOQuery2.Parameters[0].Precision := 255;
ADOQuery2.Parameters[0].Size := 10;
ADOQuery2.Parameters[0].Value := NULL;
//ShowMessage( ADOQuery2.Parameters[0].Name);
ADOQuery1.Open;
ADOQuery2.Open;
end;
Pavel
---
A nyni k problemu, pokud to takto spustim tak vse krasne funguje az do doby
dokud nezmenim SQL.Text u obou komponent.
Pokud se v novem SQL.Text nachazeji jina jmena parametru pak mi to hodi
chybovou hlasku, ze nenalezl parametr ID_Company.
Zkousel jsem pouzit Parameters.ParseSQl(Sql.Text, True), ale to nepomohlo.
Mate nekdo nejaky napad? Vypada to, ze jsem nekde opomnel vyresetovat seznam
parameters, ale nevim kde a jak presne to udelat.
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.419 / Virus Database: 235 - Release Date: 13/11/2002
Chyba v XP SP1 nebo v Delphi?
[*] Robert Suska <delphi(zv)korak.sk> - 14.10.2002 15:49:01
Ahoj
Mam WinXP eng SP1, D6 Ent UpdataPack #2 a mne to hazde Error call OS
function EOSError :))
Robo
> Ahoj,
>
> zjistil jsem jednu vec, dejte si na formular k timeru
> tenhle nevinny kousek kodu:
>
> procedure TForm1.Timer1Timer(Sender: TObject);
> begin
> Label1.Caption := IntToStr(Mouse.CursorPos.x);
> end;
>
> pak ve Windows dejte "Odhlasit uzivatele" a "Prepnout uzivatele",
> pak se po chvilce znovu prihlaste, a uvidite spoustu chybovych
> hlasek: win32 error Code5.
>
> Tataz chyba samozrejme u screensaveru s volbou
> "pri pokracovani zobrazit uvodni obrazovku", coz je ve firmach
> caste nastaveni.
>
> Dela mi to na XP prof s SP1. Na pocitacich s XP bez SP1 to
> jede bez chyby. Zkousel jsem to na D5 i D7.
>
> Nevi nekdo, co s tim udelat? Teda krome strceni kazdeho
> Mouse.CursorPos do try-except?
>
> Radim
>
Delphi program s Hasp Envelope
[*] Roland Turcan <rolo(zv)sedas.sk> - 14.10.2002 16:07:24
Hello delphi-l(zv)clexpert(tec)cz!
Ake mate skusenosti s Hasp Envelope.
Podla mna nevyhody:
1. Ovela dlhsie zavadzanie
2. Nefunguje mi odchyt exception z JCL poriadne, hadze to access
violation a bez oblaky je to OK
3. Myslim, ze bude tam aj nejaky taky problem ako pri UXP compress
A stoji za to nalepovat envelope, nestaci podla vas Hasp.Api ?
--
Best regards, TRoland
Velka cela cisla
[*] Petr Langer <langer(zv)xdom(tec)cz> - 14.10.2002 16:54:27
MIRACL: http://indigo.ie/~mscott/
NTL: http://www.shoup.net/ntl/
vetsinou se tykaji zejmena sifrovanim, kde je pouziti velkych cisel
nezbytne, ale snad ti to pomuze vyresit i tvuj problem...
Jinak staci pouzit google a na 99% rychle najdes co potrebujes ;-)
HTH
pl
----- Original Message -----
From: "Petr Ku�era" <pkucera(zv)mh.vri(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 14, 2002 2:38 PM
Subject: RE: Velka cela cisla
Nahodou by mi n�kdo neporadil s necim pro C?
PK
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Petr Langer
Sent: Wednesday, November 13, 2002 2:23 PM
To: delphi-l(zv)clexpert(tec)cz
Cc: pkucera(zv)mh.vri(tec)cz
Subject: Re: Velka cela cisla
http://triade.studentenweb.org/GInt/gint.html
HTH
Petr Langer
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.419 / Virov� b�ze: 235 - datum vyd�n�: 13.11.2002
Napoveda kdekoliv v aplikaci ^
[*] J�n Harman <harman(zv)atlas(tec)cz> - 14.10.2002 17:45:09
Kazda komponenta ma vlastnost HelpContext, tam zadas cislo, ktere je
propojene s napovedou. Aplikace musi mit jako helpFile "TvujHelpFile.hlp".
Nazdar,
nevite nekdo jak se da udelat, ze kdekoliv v me aplikaci pri stisku
F1 (napoveda) se mi vyvola dana funkce ? Ja bych umel akorat tak, ze
by to reagovalo v celem Windows - i v jinych aplikaci, a to
nechci...
Diky
DKx
______________________________________________________________________
Reklama:
Jake bude pocasi? http://pocasi.seznam(tec)cz
Code Completion
[*] J�n Harman <harman(zv)atlas(tec)cz> - 14.10.2002 17:54:19
ComboBox, to asi neni reseni, mozna pri vyhledavani ano, ale po kazdem
stlaceni nejakeho pismena by musel prehodnotit vsechny retezce a vyhodit ty
ktere nezacinaji na prvnich jiz napsanych znaku. To by asi trvalo dost
dlouho (tedy spis nevim jak dlouho).
Dalsi vec, comboBox by se nemohl zobrazovat mimo Form (pokud by nebyl na
zvlastnim formu).> Problem je, ze tyto veci se nedelaji ve formulari ale na plose
> editoru (viz Delphi a Ctrl+J) a tam by ten combobox nevypadal moc pekne.
Sorry, v puvodni otazce bylo
> > Myslim ze by to mohla byt dobra pomucka pro uzivatele, kdyz vyplnuji
nejake
> > formulare a jsou potreba zadavat udaje z nejakych seznamu. Diky moc.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================Code Completion
[*] J�n Harman <harman(zv)atlas(tec)cz> - 14.10.2002 18:01:45
ComboBoxy nejsou interaktivni, po zadani prvniho znaku se zobrazi zaznam s
timto prvnim znakem, a po zadani druheho se zobrazi zaznam s zacinajicim
timto znakem. Chci aby po zadani druheho znaku, se v seznamu zobrazili pouze
zaznamy zacinajici na tyto dva znaky.
> 14.11.2002 J�n Harman:
> > Myslim ze by to mohla byt dobra pomucka pro uzivatele, kdyz vyplnuji
nejake
> > formulare a jsou potreba zadavat udaje z nejakych seznamu. Diky moc.
> Odes�latel: ing. Jan Fiala <jan.fiala(zv)iol(tec)cz>
> Na tohle staci obycejny ListBox s uzivatelskym vykreslovanim
Jasne, pokud nestaci pro vyplneni polozek ve formulari TComboBox,
TDBComboBox, TDBLookupComboBox.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================MDI, OLE a menu
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 14.10.2002 18:03:59
Ahoj vespolek, mam MDI aplikaci, jedno z child oken obsahuje TOleContainer s
vlozenym OLE objektem (pro zajimavost: MS MapPoint). K menu aplikace se vsak
automaticky pridalo menu z toho MapPointu, takze mam svoje menu a za tim je
File, Edit...Help. Samozrejme anglicky. Lze se tohoto menu nejak zbavit?
Diky za vsechny odpovedi
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
D&COMM s.r.o.
Korunova�n� 6
Praha 7
tel. +420724007234
OLE Db z Delphree - stav?
[*] Erik Salaj <winsoft(zv)stonline.sk> - 14.10.2002 18:10:25
> O Adonisu jsem taky uvazoval. Cetl jsem zde v konf., ze nemuze byt na
> jednom pocitaci s ADOExpress. Je to pravda? Pripada mi to divne.
niektore komponenty v Adonise maju rovnaky nazov ako v ADOExpresse,
preto nie je mozne pouzivat obidva baliky sucasne v rovnakom projekte
(ani nevidim dovod na to). Pre dany projekt je treba v Delphi jednoducho
zaskrtnut a pouzivat jeden z tychto balikov.
> Jinak jsem projekt meril profilerem a zjistil jsem, ze ted (pote, co
> jsem optimalizoval plneni parametru pro SP) zabira 50% vseho casu pri
> exportu volani TADOCommand.Execute. A tam se obavam, ze neni co
> optimalizovat.
> Zkousel jsem taky testovaci program od Zbyska. Testoval jsem jeho
> programem SpeedTest OLE Db, ADOExpress, ADO a ADOExpress + stored proc.
> A zjistil jsem, ze ADOExpress + stored proc s parametry je temer stejne
> rychla jako OLE Db, ktera vklada klasicky pomoci ExecSql INSERT INTO...
> Problem je, ze ja tech parametru predavam 100 a to asi nejaky cas
> sebere.
snad vyskusat to DTS, alebo napada ma aj moznost vytvorit programovo
na SQL serveri storovanu proceduru, ktora bude obsahovat vsetky inserty
a tu spustit, alebo vygenerovat vsetky INSERTY do SQL skriptu a spustit
skript. MS SQL obsahuje BULK INSERT prikaz, ten by mal byt najrychlejsi,
dokonca rychlejsi ako bcp (bulk copy) utilita. Pri velkom mnozstve udajov
je z hladiska rychlosti vyhodne aj zrusit vsetky indexy, udaje vlozit a
indexy
opetovne vytvorit.
Erik
ADOQuery prebirani parameters z DataSource.
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 14.10.2002 18:32:31
Co to je stale stejny SQL.Text ? V prikladu jsem zmenil oba sql prikazy
a maji ruzny i parametr :"bleble". To ze nemuze najit CisloSmlouvy je OK,
to je prave jmeno toho parametru !
Je to nutno napsat tak, aby ADOQuery1 melo v result setu sloupec se stejnym
nazvem (nazvy) jako je (jsou) parametr(y) v ADOQuery2 !
tj. to co je za "=:". Jinak master detail nepracuje !
// vymazani stavajiciho seznamu parametru
ADOQuery2.Parameters.Clear;
// nalezeni novych a vytvoreni jejich seznamu
ADOQuery2.Parameters.ParseSQL(ADOQuery2.SQL.Text, True);
//nastaveni vlastnosti parametru --> nutno upravit dle skutecnosti !
// nejjednoduseji vytazenim z ADOQuery1 -> musi obsahovat
// sloupce se s nazvem shodnym s nazvem parametru
// v prikladu je to "natvrdo" je to priklad
//
// nejlepe v cyklu pres vsechny parametry
ADOQuery2.Parameters[0].DataType :=
ADOQuery1.FieldByName(ADOQuery2.Parameters[0].Name).DataType;
ADOQuery2.Parameters[0].Attributes := [];
ADOQuery2.Parameters[0].Direction := pdInput;
ADOQuery2.Parameters[0].NumericScale := 255;
ADOQuery2.Parameters[0].Precision := 255;
ADOQuery2.Parameters[0].Size :=
ADOQuery1.FieldByName(ADOQuery2.Parameters[0].Name).Size;
ADOQuery2.Parameters[0].Value := NULL;
ParseSQL(ADOQuery2.SQL.Text, True) bylo v poradku,
ale je nutno doplnit jeste properties jednotlivych parametru.
Pavel
PS: Jestli chces poslu ti ten priklad cely na soukromy mail (i daty).
IBX-backup na jiny pocitac
[*] Mirek Junek <mirek.junek(zv)worldonline(tec)cz> - 14.10.2002 18:47:49
Ahoj,
jde pouzit komponentu tIbBackupService pro zalohovani na jiny pocitac nez na
server ? Jestli ano, jak nastavit BackupFile ? (Zkousel jsem
"PcName:C:\xxxx.gbk", ale to neprojde)
Diky
Mirek
Napoveda kdekoliv v aplikaci ^
[*] David Kraina <DKx(zv)seznam(tec)cz> - 14.10.2002 18:53:45
To je sice pekne, ale k nicemu. Diky aspon za snahu, ale ja mam
vlastni lepsi system napovedy (externi aplikace), kterou s urcitymi
parametry volam z procedury. Proto jsem potreboval pri stisku <F1>
skocit na tuto proceduru. DKx.
> Kazda komponenta ma vlastnost HelpContext, tam zadas cislo, ktere je
> propojene s napovedou. Aplikace musi mit jako helpFile "TvujHelpFile.hlp".
>> Nazdar,
>> nevite nekdo jak se da udelat, ze kdekoliv v me aplikaci pri
stisku
>> F1 (napoveda) se mi vyvola dana funkce ? Ja bych umel akorat tak,
ze
>> by to reagovalo v celem Windows - i v jinych aplikaci, a to
>> nechci...
______________________________________________________________________
Reklama:
E-mail zdarma na cely zivot: http://email.seznam(tec)cz
Zaboha proc ??? - Dynamicke pole a BlockRead ^
[*] David Kraina <DKx(zv)seznam(tec)cz> - 14.10.2002 18:57:30
Nazdar,
zaboha nemuzu prijit na to, proc to nefunguje a vyhazuje hlasku
Access Volation. Chci proste nacist cely soubor do pameti do pole,
ktere se prizpusobi velikosti pole. Neni to tim, ze by nestacila
pamet, ten soubor ma 40kB...
Zkousel jsem ruzne jako napriklad FileSize(INF)-1, v BlockRead misto
SizeOf(B1) na FileSize(INF), a jin�, ale stejn� v�sledek. Kdy� jsem
B1 p�etypoval na pevn� pole, tak to jede. Mam D6.
Var B1:Array of Char;
INF:File Of Char;
I:LongInt;
Begin
AssignFile(INF,'C:\E1.EXE');
{$I-}
Reset(INF);
{$I+}
If IOResult<>0 Then
Application.MessageBox(PChar('Error1'),PChar(''))
Else Begin
SetLength(B1,FileSize(INF));
BlockRead(INF,B1,SizeOf(B1),I);
CloseFile(INF);
End;
...
End;
______________________________________________________________________
Reklama:
Poctenicko pro kazdy den: http://www.novinky(tec)cz
ADOQuery prebirani parameters z DataSource.
[*] Erik Salaj <winsoft(zv)stonline.sk> - 14.10.2002 19:24:36
> A nyni k problemu, pokud to takto spustim tak vse krasne funguje az do
doby
> dokud nezmenim SQL.Text u obou komponent.
> Pokud se v novem SQL.Text nachazeji jina jmena parametru pak mi to hodi
> chybovou hlasku, ze nenalezl parametr ID_Company.
> Zkousel jsem pouzit Parameters.ParseSQl(Sql.Text, True), ale to nepomohlo.
> Mate nekdo nejaky napad? Vypada to, ze jsem nekde opomnel vyresetovat
seznam
> parameters, ale nevim kde a jak presne to udelat.
zda sa, ze je to chyba vo VCL, detail dataset musi byt otvoreny pred master
datasetom, aby to fungovalo, ale potom znova zatvoreny a otvoreny aby
zohladnil hodnotu v master query. Takze tu je workaground, ktory som nasiel:
ADOQuery1.SQL.Text := 'SELECT ID_Company FROM Company WHERE Name =
''WINSOFT''';
ADOQuery2.SQL.Text := 'SELECT ForeName FROM People WHERE ID_Company =
:ID_Company';
ADOQuery2.Open;
ADOQuery1.Open;
// reopen detail query
ADOQuery2.Close;
ADOQuery2.Open;
Erik
Zaboha proc ??? - Dynamicke pole a BlockRead ^
[*] Robert Suska <delphi(zv)korak.sk> - 14.10.2002 19:50:02
Ahoj!
Takto by to mohlo fungovat :)
Robo CAW
Var B1:Array of Char;
INF:File Of Char;
j, I:LongInt;
Begin
AssignFile(INF,'C:\p.txt');
{$I-}
Reset(INF);
{$I+}
If IOResult<>0 Then
Application.MessageBox(PChar('Error1'),PChar(''))
Else Begin
SetLength(B1,FileSize(INF)+1);
j:= 0;
while not eof(inf) do
begin
Read(inf, b1[j]);
Inc(j);
end;
CloseFile(INF);
End;
End;
----- Original Message -----
From: "David Kraina" <DKx(zv)seznam(tec)cz>
To: "Konference Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 14, 2002 6:57 PM
Subject: Zaboha proc ??? - Dynamicke pole a BlockRead ^
Nazdar,
zaboha nemuzu prijit na to, proc to nefunguje a vyhazuje hlasku
Access Volation. Chci proste nacist cely soubor do pameti do pole,
ktere se prizpusobi velikosti pole. Neni to tim, ze by nestacila
pamet, ten soubor ma 40kB...
Zkousel jsem ruzne jako napriklad FileSize(INF)-1, v BlockRead misto
SizeOf(B1) na FileSize(INF), a jin�, ale stejn� v�sledek. Kdy� jsem
B1 p�etypoval na pevn� pole, tak to jede. Mam D6.
Var B1:Array of Char;
INF:File Of Char;
I:LongInt;
Begin
AssignFile(INF,'C:\E1.EXE');
{$I-}
Reset(INF);
{$I+}
If IOResult<>0 Then
Application.MessageBox(PChar('Error1'),PChar(''))
Else Begin
SetLength(B1,FileSize(INF));
BlockRead(INF,B1,SizeOf(B1),I);
CloseFile(INF);
End;
...
End;
______________________________________________________________________
Reklama:
Poctenicko pro kazdy den: http://www.novinky(tec)cz
Zaboha proc ??? - Dynamicke pole a BlockRead ^
[*] Petr Langer <langer(zv)xdom(tec)cz> - 14.10.2002 20:21:57
Nechce se mi to zkouset, ale nepomuze napsat BlockRead:
BlockRead(INF,B1[0],SizeOf(B1),I);
pripadne jiny index ?
Jeste mne napada, zkus si udelat promenou myChar : PChar a myChar :=
(zv)B1; a pouzit
BlockRead(INF,myChar,SizeOf(B1),I);
mozna to nepomuze...
pl
----- Original Message -----
From: "David Kraina" <DKx(zv)seznam(tec)cz>
To: "Konference Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 14, 2002 6:57 PM
Subject: Zaboha proc ??? - Dynamicke pole a BlockRead ^
Nazdar,
zaboha nemuzu prijit na to, proc to nefunguje a vyhazuje hlasku
Access Volation. Chci proste nacist cely soubor do pameti do pole,
ktere se prizpusobi velikosti pole. Neni to tim, ze by nestacila
pamet, ten soubor ma 40kB...
Zkousel jsem ruzne jako napriklad FileSize(INF)-1, v BlockRead misto
SizeOf(B1) na FileSize(INF), a jin�, ale stejn� v�sledek. Kdy� jsem
B1 p�etypoval na pevn� pole, tak to jede. Mam D6.
Var B1:Array of Char;
INF:File Of Char;
I:LongInt;
Begin
AssignFile(INF,'C:\E1.EXE');
{$I-}
Reset(INF);
{$I+}
If IOResult<>0 Then
Application.MessageBox(PChar('Error1'),PChar(''))
Else Begin
SetLength(B1,FileSize(INF));
BlockRead(INF,B1,SizeOf(B1),I);
CloseFile(INF);
End;
...
End;
______________________________________________________________________
Reklama:
Poctenicko pro kazdy den: http://www.novinky(tec)cz
Re[2]: Zaboha proc ??? - Dynamicke pole a BlockRea
[*] David Kraina <DKx(zv)seznam(tec)cz> - 14.10.2002 20:22:25
Tak to sice mozna jo, ale neni to resenim, protoze je to strasne
pomale. Testovaci soubor mel sice 40kB, ale musi to fungovat i pro
40MB a nez to po tom jednom znaku donacita, u pocitace usnu. Prave
proto to ctu po blocich, tentokrate to musi byt blok celeho souboru,
jelikoz ten text budu pomoci komprese zkracovat... DKx.> Takto by to mohlo fungovat :)
>
> Robo CAW
>
> Var B1:Array of Char;
> INF:File Of Char;
> j, I:LongInt;
> Begin
> AssignFile(INF,'C:\p.txt');
> {$I-}
> Reset(INF);
> {$I+}
> If IOResult<>0 Then
> Application.MessageBox(PChar('Error1'),PChar(''))
> Else Begin
> SetLength(B1,FileSize(INF)+1);
> j:= 0;
> while not eof(inf) do
> begin
> Read(inf, b1[j]);
> Inc(j);
> end;
> CloseFile(INF);
> End;
> End;
______________________________________________________________________
Reklama:
DUMPINGOV� CENY ve v�ech obchodech Internet Mall!
http://www.mall(tec)cz - ov��te si to!
Zaboha proc ??? - Dynamicke pole a BlockRead ^
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 14.10.2002 20:50:09
> zaboha nemuzu prijit na to, proc to nefunguje a vyhazuje hlasku
>Access Volation. Chci proste nacist cely soubor do pameti do pole,
>ktere se prizpusobi velikosti pole. Neni to tim, ze by nestacila
>pamet, ten soubor ma 40kB...
>Zkousel jsem ruzne jako napriklad FileSize(INF)-1, v BlockRead misto
>SizeOf(B1) na FileSize(INF), a jin�, ale stejn� v�sledek. Kdy� jsem
>B1 p�etypoval na pevn� pole, tak to jede. Mam D6.
zkusil bych dve veci :
1)
misto
Reset(INF);
bych pouzil
Reset(INF,1);
nevim jak ted v Delphi - ale byvaly s tim problemy v DOSu (defaut record
size neni 1 ale 128 = cili ve skutecnosti se nacte N x 128 bytu volanim
BlockRead)
2)
misto
BlockRead(INF,B1,SizeOf(B1),I);
bych pouzil:
BlockRead(INF,B1[Low(B1)],SizeOf(B1),I);
ta prvni varianta prepisuje hodnotu pointeru na pole ne vlastni pole
(podobny pripad jako s promennou typu string)
D. Toman
ADOQuery prebirani parameters z DataSource.
[*] Erik Salaj <winsoft(zv)stonline.sk> - 14.10.2002 21:19:23
> A nyni k problemu, pokud to takto spustim tak vse krasne funguje az do
doby
> dokud nezmenim SQL.Text u obou komponent.
> Pokud se v novem SQL.Text nachazeji jina jmena parametru pak mi to hodi
> chybovou hlasku, ze nenalezl parametr ID_Company.
> Zkousel jsem pouzit Parameters.ParseSQl(Sql.Text, True), ale to nepomohlo.
> Mate nekdo nejaky napad? Vypada to, ze jsem nekde opomnel vyresetovat
seznam
> parameters, ale nevim kde a jak presne to udelat.
este jedna poznamka: v Adonise sa tento problem nevyskytuje, funguje to tam
korektne,
treba len nastavit typ parametra na ptInput:
ADOQuery1.SQL.Text := 'SELECT ID_Company FROM Company WHERE Name =
''WINSOFT''';
ADOQuery1.Open;
ADOQuery2.SQL.Text := 'SELECT ForeName FROM People WHERE ID_Company =
:ID_Company';
ADOQuery2.Params[0].ParamType := ptInput;
ADOQuery2.Open;
Erik
Combobox - font jednotlivych poloziek
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 14.10.2002 21:56:17
Daju sa menit fonty jednotlivych poloziek v comboboxe (nie naraz vsetkych)?
Ak ano tak ako?
Vdaka za kazdu radu.
Napoveda kdekoliv v aplikaci ^
[*] J�n Harman <harman(zv)atlas(tec)cz> - 14.10.2002 22:10:13
Hlavne nezoufej:-)
Pokud je to tak, tak tedy asi by to slo takto:
Application.OnHelp := DKx;
ovsem ta Tvoje DKx musi vypadat asi takto:
function DKx(Command: Word; Data: Longint; var CallHelp: Boolean): Boolean;
v tele funkce udelas samozrejme:
CallHelp := false; // aby jiz aplikace nevolala zadny dalsi help
Result := true; // ani nevim proc
v polozce Data ti prichazi cislo HelpContext prave z komponenty ktera vola
help
a podle toho asi zavolas svoje....neco.
Preji mnoho uspechu:-)
Honza.
To je sice pekne, ale k nicemu. Diky aspon za snahu, ale ja mam
vlastni lepsi system napovedy (externi aplikace), kterou s urcitymi
parametry volam z procedury. Proto jsem potreboval pri stisku <F1>
skocit na tuto proceduru. DKx.
> Kazda komponenta ma vlastnost HelpContext, tam zadas cislo, ktere je
> propojene s napovedou. Aplikace musi mit jako helpFile
"TvujHelpFile.hlp".
>> Nazdar,
>> nevite nekdo jak se da udelat, ze kdekoliv v me aplikaci pri
stisku
>> F1 (napoveda) se mi vyvola dana funkce ? Ja bych umel akorat tak,
ze
>> by to reagovalo v celem Windows - i v jinych aplikaci, a to
>> nechci...
______________________________________________________________________
Reklama:
E-mail zdarma na cely zivot: http://email.seznam(tec)cz
Zaboha proc ??? - Dynamicke pole a BlockRead ^
[*] J�n Harman <harman(zv)atlas(tec)cz> - 14.10.2002 22:19:31
pomuze urcite
Reset (INF, 1);
BlockRead(INF, B1, SizeOf(B1), I);
// kvuli defaultnemu bloku, taky by to slo opacne misto 1 dat Reset(INF,
SizeOF(B1)); a misto SizeOf.. dat 1.> > zaboha nemuzu prijit na to, proc to nefunguje a vyhazuje hlasku
> >Access Volation. Chci proste nacist cely soubor do pameti do pole,
> >ktere se prizpusobi velikosti pole. Neni to tim, ze by nestacila
> >pamet, ten soubor ma 40kB...
> >Zkousel jsem ruzne jako napriklad FileSize(INF)-1, v BlockRead misto
> >SizeOf(B1) na FileSize(INF), a jin�, ale stejn� v�sledek. Kdy� jsem
> >B1 p�etypoval na pevn� pole, tak to jede. Mam D6.
>
> zkusil bych dve veci :
>
> 1)
> misto
> Reset(INF);
>
> bych pouzil
> Reset(INF,1);
>
> nevim jak ted v Delphi - ale byvaly s tim problemy v DOSu (defaut record
> size neni 1 ale 128 = cili ve skutecnosti se nacte N x 128 bytu volanim
> BlockRead)
>
> 2)
> misto
> BlockRead(INF,B1,SizeOf(B1),I);
>
> bych pouzil:
> BlockRead(INF,B1[Low(B1)],SizeOf(B1),I);
>
> ta prvni varianta prepisuje hodnotu pointeru na pole ne vlastni pole
> (podobny pripad jako s promennou typu string)
>
> D. Toman
>
>
>
Zaboha proc ??? - Dynamicke pole a BlockRead ^
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.10.2002 23:11:59
From: "David Kraina" <DKx(zv)seznam(tec)cz>
> Tak to sice mozna jo, ale neni to resenim, protoze je to strasne pomale.
> Testovaci soubor mel sice 40kB, ale musi to fungovat i pro 40MB a nez to po
> tom jednom znaku donacita, u pocitace usnu.
Jiste, alokovat pamet a do ni pak nacitat soubor je znacne neefektivni zpusob,
protoze ten soubor vlastne (v nejhorsim pripade) cely kopirujes do page filu.
Prave od toho existuje mechanismus mapovani souboru do pameti. Blize v MSDN.
Muzes pouzit tridu TJclFileMapping nebo zjednodusenou TJclFileMappingStream z
JCL se kterou pak pracujes jako s readonly memory streamem.
Petr Vones
DELPHI-X: Jak naplnit DXWaveList
[*] J. Vita <delphi(zv)obecpohori(tec)cz> - 15.10.2002 00:03:57
Mam komponenty DXList.
Na formu mam DXWaveList a v ni kolekci osmi zvuku. Tuto kolekci chci ale
vytvorit za behu programu tak, ze do toho listu nactu postupne vsech osm
zvuku. Nechci ale pouzit to, ze nactu cely DXW balicek.
Poradi nekdo?
Jak to je ze zmenou casu ?Tohle funguje na 50% Pro
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 15.10.2002 06:14:07
A kdyz odsud vyhodis to inherited ?
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
17.11.2002 Jiri Betunak:
> Detekuji zmenu data v systemu a ono se mi to vola dvakrat
> (ve Windows ME jinde jsem to zatim nezkousel)
> ale nevim
> proc poradte mi prosiiiiiiiim
> private
> Procedure WMTimeChange(Var Msg: TMessage); message WM_TIMECHANGE;
> ...
> Procedure TForm1.WMTimeChange(Var Msg: TMessage);
> Begin
> Inherited;
> ...
> End;
> Jiri Betunak
> kindrik(zv)centrum(tec)cz
> Delphi5 pro ;Windows ME 4 90
Code Completion
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 15.10.2002 07:15:31
> ComboBoxy nejsou interaktivni, po zadani prvniho znaku se zobrazi zaznam s
> timto prvnim znakem, a po zadani druheho se zobrazi zaznam s zacinajicim
> timto znakem. Chci aby po zadani druheho znaku, se v seznamu zobrazili
pouze
> zaznamy zacinajici na tyto dva znaky.
To snad zalezi na tom, jak si to naprogramujes ne? Odvod si nejakou
komponentu od TComboBox a v OnChange zapni timer. Kdyz dojde k timer.change,
tak nactes do comba.text prvni nejvhodnejsi zaznam. Kdyz uzivatel rozbali
combo, nactes do listu vsechny vhodne zaznamy (pokud uz tam nejsou).
Roman
==============================
http://kouzelne.misto(tec)cz
KonfView
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 15.10.2002 08:48:37
Zdravim
Chtel bych pouzit KonfView i pro jinou mail postu. Neni problem nacitat
postupne jednotlive zpravy az na to, ze jich je az az.
OutlookExpres ale neumi vyexportovat zpravy najednou do jednoho souboru ,
ktery bych pak nacetl do KonfViewu.
Mam sice utilitu DBXtract, ktera umi zvolenou slozku v OE vyexportovat, ale
zase to budou jen jednotliv� mailiky.
Neresil nekdo tento problemek a nezvitezil ?
Jak se to provadi s daty z konference, ktera jsou v celku za urcite obdobi ?
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.419 / Virov� b�ze: 235 - datum vyd�n�: 13.11.2002
Dotaz pres dve databaze na FB
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 15.10.2002 09:04:10
Ahoj,
chtel bych se zeptat, zda jde na FB 1.0 udelat toto. Mam dve
databaze (2 gdb soubory). Do kazde databaze udelam dotaz, ktery
vraci stejne sloupce. Potreboval bych data z obou dotazu dat na
jednu hromadu a aplikovat na ne order by, tj. setridit je. Jde to s
pomoci prostredku SQL jazyka na FB? Patrne to je cosi jako union
pres dva databaze.
Diky za radu
David Lebeda
DelphiX
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 15.10.2002 09:21:57
Pohladaj na http://www.torry.net alebo na http://community.borland.com
Peter Ondras
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
>: Behalf Of Ing. Holyfield
>: Sent: Wednesday, November 13, 2002 7:09 PM
>: To: DELFI - konference
>: Subject: DelphiX
>:
>: V�en� program�to�i,
>: Ur�it� jste ji� zde �e�ili probl�m DelphiX pro Delphi v.6. Kde bych
>: mohl tuto komponentu stahnout, nebo mi ji pros�m n�kdo po�lete. Moc
>: D�k
>:
>: --
>: ---
>: Str�nky o automobilech, novinky, autobazary, nov� auta,
>: p��slu�enstv�, poji�t�n� aut... http://automoto.volny(tec)cz
----------
Teraz si uz KAZDY moze registrovat svoju domenu .SK
Viac info na: http://www.SlovakNET.sk/predregistracia.asp
Dotaz pres dve databaze na FB
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 15.10.2002 09:43:39
ahoj,
AFAIK je dotazovani pres dve databaze planovany
do FB 2. Obavam se, ze si to budes muset setridit
rucne, nebo nahrnout data z jednoho selectu do druhe
databaze (nejaka pomocna tabulka) a dotazat znova.
peca
Dozadovanie sa na pripojenie k internetu pri prihl
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 15.10.2002 09:55:03
Roland Turcan, <mailto:rolo(zv)sedas.sk> napsal:
RT> Zakaznik ma v stroji aj modem aj sietovku. Mal nastavene v moznostiach
RT> siete internet, ze sa pripojit vzdy k vychodzeniu ISP. Lenze to
RT> sposobovalo ziadost o pripojenie do internetu pri pripojeni sa k FB
RT> serveru. Tak som im poradil aby si v moznostiach siete internet
RT> nastavili "nikdy nevytacat spojenie" uz to sice bezi ale ak spustia
RT> explorer tak ten sa nevie pripojit. Ako z toho von?
Muzes vytvorit zastupce telefonickeho pripojeni primo na plose,
pak si nejdrive spustis pripojeni, az se to pripoji, pak teprve
spustit IE.
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP2, D5Ent/UP1
Listbox a horizontalni scrollbar
[*] Tomas Bihary <delphi(zv)wige-mic(tec)cz> - 15.10.2002 09:59:58
Ahoj!
Potreboval bych u komponenty Listbox vytvorit horizontalni scrollbar.
Nevite prosim nekdo jak na to.
Dekuji
Tomas Bihary
Listbox a horizontalni scrollbar
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 15.10.2002 10:05:07
SendMessage(YourListBox.Handle, LB_SETHORIZONTALEXTENT, sirka, 0);
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova�n� 6
Praha 7
tel. +420724007234
Subject: Listbox a horizontalni scrollbar
Potreboval bych u komponenty Listbox vytvorit horizontalni
scrollbar.
Re[2]: Dozadovanie sa na pripojenie k internetu pr
[*] Roland Turcan <rolo(zv)sedas.sk> - 15.10.2002 10:13:36
KH> Roland Turcan, <mailto:rolo(zv)sedas.sk> napsal:
RT>> Zakaznik ma v stroji aj modem aj sietovku. Mal nastavene v moznostiach
RT>> siete internet, ze sa pripojit vzdy k vychodzeniu ISP. Lenze to
RT>> sposobovalo ziadost o pripojenie do internetu pri pripojeni sa k FB
RT>> serveru. Tak som im poradil aby si v moznostiach siete internet
RT>> nastavili "nikdy nevytacat spojenie" uz to sice bezi ale ak spustia
RT>> explorer tak ten sa nevie pripojit. Ako z toho von?
<<< 15. 11. 2002 10:12 - Karel Horky "horky.karel(zv)quick(tec)cz" >>>
KH> Muzes vytvorit zastupce telefonickeho pripojeni primo na plose,
KH> pak si nejdrive spustis pripojeni, az se to pripoji, pak teprve
KH> spustit IE.
No ano ale toto nie je to co navrhovali Billovi chlapci. Musi byt aj
nejake ine riesenie.
--
Best regards, TRoland
JCLStrings.StrSearch ma problem s indexom
[*] Roland Turcan <rolo(zv)sedas.sk> - 15.10.2002 10:27:06
Hello delphi-l(zv)clexpert(tec)cz!
function StrSearch(const Substr: AnsiString; const S: AnsiString; const Index: Integer = 1): Integer;
Tuto funkciu som uz predcasom skusal, a vykazovala chyby. Petr Vones
mi napisal:
> jako mas verzi JCL ? Me to tu funguje spravne.
>
> Petr Vones
Vcera sa to opakovalo, lebo som to potreboval po dlhsom case.
ShowMessageFmt('%d',[JCLStrings.StrSearch('where','select where select where select where',2)]);
skuste toto a vysledok bude pozicia 8 a mal by to byt ukazovatel na
druhy where.
Riesenie JVCL obsahuje celu RxLib a v nej je funkcia NPos, ktora je
identicka so StrSearch z JCL.
--
Best regards, TRoland
KonfView
[*] Erik Salaj <winsoft(zv)stonline.sk> - 15.10.2002 11:16:27
> Chtel bych pouzit KonfView i pro jinou mail postu. Neni problem nacitat
> postupne jednotlive zpravy az na to, ze jich je az az.
> OutlookExpres ale neumi vyexportovat zpravy najednou do jednoho souboru ,
> ktery bych pak nacetl do KonfViewu.
> Mam sice utilitu DBXtract, ktera umi zvolenou slozku v OE vyexportovat,
ale
> zase to budou jen jednotliv� mailiky.
pomocou SimpleMAPI je mozne citat maily z Inbox-u.
Ine rozhranie OE nepodporuje, existuje este moznost
priamo dekodovat dbx subory (pokial viem, tento format
ale zdokumentovany nie je a zrejme je aj zavisly od verzie OE).
Erik
Unit DrpCtrls.pas
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 15.10.2002 11:18:19
Ahoj
kde najdu v Delphi 5.01 Pro unit DrpCtrls.pas. Chce to na me pri prekladu DBReg. Diky
Jaro B.
IBX-backup na jiny pocitac
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 15.10.2002 11:19:56
ahoj,
AFAIK nelze. zalohu provadi server a ten
vyzaduje pro sve soubory lokalni souborovy system.
leda udelat zalohu do nejake slozky, kterou bys
mel nasdilenou a pak to zkopiroval. nebo mozna
napsat nejakou UDF, pro predani fajlu podle
specifikace.
peca
TBitmap a TMemoryStream - was: Predavani obrazku (
[*] Alexandr Stefek <alex(zv)scova.vabo(tec)cz> - 15.10.2002 11:21:02
> Kez by to rozhodujici bylo. Stale mi to neslape.
> a2.bmp ma nulovou delku. Nemusi se jeste nejak nastavit objekt bmp?
nasledujici je overene a funkcni, vice uz udelat nemohu
var
Logo : TBitmap;
TempStream: TMemoryStream;
BMP : TBitmap;
begin
Logo := TBitmap.Create;
Logo.LoadFromFile('c:\1.bmp');
Logo.SaveToFile('c:\1a.bmp'); //na disku ulozena bitmapa je v poradku
//z TBitmap ulozim do streamu
TempStream := TMemoryStream.Create;
Logo.SaveToStream(TempStream);
TempStream.Seek(0, soFromBeginning);
BMP := TBitmap.Create;
BMP.LoadFromStream(TempStream);
//z TBitmap provedu ulozeni na disk
BMP.SaveToFile('c:\a2.bmp');
TempStream.Free;
BMP.Free;
Logo.Free;
end;
Alexandr STEFEK
Unit DrpCtrls.pas
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 15.10.2002 12:05:43
> kde najdu v Delphi 5.01 Pro unit DrpCtrls.pas. Chce to na me
> pri prekladu DBReg. Diky
To je designtime, takze si do design package, v ktorej sa to snazis
skompilovat, musis pridat do requires prislusnu .dcp.
V Delphi 6 je to dcldb.dcp, v Delphi 5 sa myslim vola tiez nejako podobne.
Uz to tu bolo, ale pre istotu. Designtime kod musi byt oddeleny od runtime:
http://community.borland.com/article/0,1410,27717,00.html
HTH
TOndrej
Komponenta TGroupBox s CheckBoxom
[*] Ing. Jozef Baranec <joba(zv)digitaldocuments.org> - 15.10.2002 12:21:28
Nema niekto kompunentu podobnu TgroupBox ale s Checkboxom pri jej
caption?
Alebo aspon nieco podobne...
Dakujem
jozo
Group by na FB
[*] Burkovsky Ladislav <Ladislav.Burkovsky(zv)autinform.de> - 15.10.2002 12:36:36
Ahoj
konferencia mam problem potreboval by som
Select * .. group Extract(month from datumfield).
Zatial to robim cez View kde si urobim nove
fieldy a na tych to groupnem
diky za napady
Laco
SetItemIndex & multiselekce v TListview
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 15.10.2002 12:40:21
Ahoj,
potrebuji listbox, ktery muze obsahovat desitky tisic polozek.
Realizoval jsem ho pomoci TListview ve virtualnim rezimu a s ViewStyle =
vsReport. Dale je jeste multiselect. Vyber polozky se dela bud rucne,
nebo programove, coz delam takhle :
procedure TListViewBox.SetItemIndex (const Value : integer);
begin
Selected := nil;
ItemFocused := nil;
if Value >= 0 then
begin
Selected := Items [Value];
ItemFocused := Items [Value];
Selected.MakeVisible (false);
if Visible then setfocus;
end;
end;
Vse funguje spravne, az na tu multiselekeci. Po stisku Shift a klinuti
se nevyberou polozky od te nastavene pres SetItemIndex, ale od te, kam
jsem naposled kliknul. Nevite nekdo co s tim?
Dekuji za odpoved.
Vaclav Sazima
JCLStrings.StrSearch ma problem s indexom
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 15.10.2002 12:44:02
Vyznam pole Index chapes blbe. Neurcuje, ze mas najit druhy 'where' ale
urcuje, od kolikateho znaku se bude hledat. Staci se podivat do helpu.
Roland Turcan wrote:
>
> Hello delphi-l(zv)clexpert(tec)cz!
>
> function StrSearch(const Substr: AnsiString; const S: AnsiString; const Index: Integer = 1): Integer;
>
> Tuto funkciu som uz predcasom skusal, a vykazovala chyby. Petr Vones
> mi napisal:
> > jako mas verzi JCL ? Me to tu funguje spravne.
> >
> > Petr Vones
>
> Vcera sa to opakovalo, lebo som to potreboval po dlhsom case.
>
> ShowMessageFmt('%d',[JCLStrings.StrSearch('where','select where select where select where',2)]);
>
> skuste toto a vysledok bude pozicia 8 a mal by to byt ukazovatel na
> druhy where.
>
> Riesenie JVCL obsahuje celu RxLib a v nej je funkcia NPos, ktora je
> identicka so StrSearch z JCL.
>
> --
> Best regards, TRoland
>
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT dep. 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
______________________________________________________
Linker internal error: U1158
[*] Danik Frantik <frantik(zv)telpro(tec)cz> - 15.10.2002 13:04:40
Nevite nekdo, jak si poradit s touto chybou? Stava se mi to pri prekladu
balicku. Zacalo to obcasne, ale jak se mi rozrustal project, tak se to
stupnovalo a ted uz nejsem schopen prelozit nic (ted uz ani z prikazove
radky).
Diky
Tom, W2000/D5Ent
IB/FB - instalace knihovny s UDF pomoci InnoSetup
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 15.10.2002 13:11:45
ahoj,
takze se do toho pustim sam ;o) jenom jsem se chtel zeptat, kde vsude
se podivat kam je FB nainstalovanej? Jiste, v dokumentaci bych se
dohledal,
ale rad bych to mel overeny o nekoho znalejsiho a nejsem si jistej, zda
vsecky verze IB6 a FB1 pouzivaji stejnej klic v registrech.
dik
peca
Group by na FB
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 15.10.2002 13:15:10
SELECT * s GROUP BY ... nejde !
Pavel
-----Original Message-----
From: Burkovsky Ladislav [mailto:Ladislav.Burkovsky(zv)autinform.de]
konferencia mam problem potreboval by som
Select * .. group Extract(month from datumfield).
Zatial to robim cez View kde si urobim nove
fieldy a na tych to groupnem
TListBiew.Items.IndexOf
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 15.10.2002 13:48:06
Ahoj,
neporadil by mi nekdo proc
lvData : TListView;
{OwnerData = true, OwnerDraw = true, ViewStyle = vsReport, MultiSelect =
true}
if assigned (lvData.Selected) then
I := lvData.Items.IndexOf (lvData.Selected);
vrati -1?
Vaclav Sazima
TListview.Items.IndexOf
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 15.10.2002 13:54:54
if Assigned(lvData.Selected)
then I := lvData.Selected.AbsoluteIndex;
Ales
> -----Original Message-----
> From: Vaclav Sazima [mailto:vaclav.sazima(zv)utilia(tec)cz]
>
> if assigned (lvData.Selected) then
> I := lvData.Items.IndexOf (lvData.Selected);
> vrati -1?
Re[2]: JCLStrings.StrSearch ma problem s indexom
[*] Roland Turcan <rolo(zv)sedas.sk> - 15.10.2002 14:15:33
<<< 15. 11. 2002 14:14 - Karel Kral "kralkonf(zv)purus(tec)cz" >>>
KK> Vyznam pole Index chapes blbe. Neurcuje, ze mas najit druhy 'where' ale
KK> urcuje, od kolikateho znaku se bude hledat. Staci se podivat do helpu.
Dakujem za otvorenie oci, clovek sa tak ponahla, ze ani poriadne
necita.
--
Best regards, TRoland
AW: Group by na FB
[*] Burkovsky Ladislav <Ladislav.Burkovsky(zv)autinform.de> - 15.10.2002 14:24:23
ta hviezdicka bola myslena select Extract(month from datumfield), inyfield1
, inyfield2, ... from ... group by Extract(month from datumfield)
laco
-----Urspr�ngliche Nachricht-----
Von: Lstiburek Pavel [mailto:Lstiburek(zv)ceb(tec)cz]
Gesendet: Freitag, 15. November 2002 13:15
An: 'delphi-l(zv)clexpert(tec)cz'
Betreff: RE: Group by na FB
SELECT * s GROUP BY ... nejde !
Pavel
-----Original Message-----
From: Burkovsky Ladislav [mailto:Ladislav.Burkovsky(zv)autinform.de]
konferencia mam problem potreboval by som
Select * .. group by Extract(month from datumfield).
Zatial to robim cez View kde si urobim nove
fieldy a na tych to groupnem
TListview.Items.IndexOf
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 15.10.2002 14:36:30
Ahoj,
neni to uplne ono, neb Selected je TListItem, a ten absoluteindex nema,
ale jako napoveda to stacilo :
I := lvData.Selected.Index;
Dik.
Vaclav Sazima
Ales Vasicek wrote:
> if Assigned(lvData.Selected)
> then I := lvData.Selected.AbsoluteIndex;
>>From: Vaclav Sazima [mailto:vaclav.sazima(zv)utilia(tec)cz]
>>
>>if assigned (lvData.Selected) then
>> I := lvData.Items.IndexOf (lvData.Selected);
>>vrati -1?
Group by na FB
[*] Pavol Kakacka <kakacka(zv)proca(tec)cz> - 15.10.2002 14:37:51
From: "Burkovsky Ladislav" <Ladislav.Burkovsky(zv)autinform.de>
> konferencia mam problem potreboval by som
> Select * .. group Extract(month from datumfield).
> Zatial to robim cez View kde si urobim nove
> fieldy a na tych to groupnem
Bohuzial v GROUP BY toto nejde. Ak chces vykon pouzi perzistentne pole
(+index) kde si budes hodotu extrahovat v INS/UPD trigeru a bude grupovat
podla tohto pola (poli).
Ak nepotrebujes vykon ale "setrenie miestom" :-) staci ked pouzijes
COMPUTED BY field.
btw: Idealny na toto by bol "COMPUTED INDEX", "vypocitany index", resp.
index na zaklade vypoctu, to bohuzial ZATIAL FB nepodporuje ;).
Kakacka Pavol
KasiX(zv)atlas(tec)cz
Group by na FB
[*] Zhasil Radek <radek.zhasil(zv)vitkovice(tec)cz> - 15.10.2002 14:47:27
Tuto funkcnost by mel mit FB1.5. Dnes to resime pridanim COMPUTED sloupce do
tabulky a podle nej sekupit lze.
> konferencia mam problem potreboval by som
> Select * .. group Extract(month from datumfield).
> Zatial to robim cez View kde si urobim nove
> fieldy a na tych to groupnem
Group by na FB
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 15.10.2002 15:02:25
ahoj,
AFAIK group by podle UDF umi FB az od nejake verze.
kterou mas? mrkni se do release notes, nebo tak neco.
1.0 by to umet mela urcite. kdyztak posli komplet dotaz
peca
patch na D4
[*] Werki <delphi(zv)minv.sk> - 15.10.2002 15:13:05
Nema niekto patch na Delphi 4 plz?
Dikes
Irongear
TListview.Items.IndexOf
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 15.10.2002 15:16:28
Aha, sorry, spletl jsem si to s TreeView, samozrejme tam melo byt I :=
lvData.Selected.Index;
Ales
> -----Original Message-----
> From: Vaclav Sazima [mailto:vaclav.sazima(zv)utilia(tec)cz]
>
> neni to uplne ono, neb Selected je TListItem, a ten
> absoluteindex nema,
> ale jako napoveda to stacilo :
> I := lvData.Selected.Index;
> Dik.
> Vaclav Sazima
AW: Group by na FB
[*] Karel Horky <horky.karel(zv)quick(tec)cz> - 15.10.2002 15:25:52
Burkovsky Ladislav, <mailto:Ladislav.Burkovsky(zv)autinform.de> napsal:
BL> ta hviezdicka bola myslena select Extract(month from datumfield), inyfield1
BL> , inyfield2, ... from ... group by Extract(month from datumfield)
Zkus takto:
select Extract(month from datumfield) as MujMesic, inyfield1, inyfield2,
... from ... group by MujMesic
BL> -----Original Message-----
BL> From: Burkovsky Ladislav [mailto:Ladislav.Burkovsky(zv)autinform.de]
BL> konferencia mam problem potreboval by som
BL> Select * .. group by Extract(month from datumfield).
------
S pozdravem Karel Horky
horky.karel(zv)quick(tec)cz
W2K/SP2, D5Ent/UP1
NMSMTP a timeout
[*] Ludo Fulop <kexo(zv)ynet.sk> - 15.10.2002 15:31:37
zdravim,
mam problem s komponentou TNMSMTP (D6). Pokial zadam ako Host nejaky
vymysleny server (resp. nedosiahnutelny), tak mi aplikacia pti
NMSMTP1.Connect na hooodne dlhu dobu zamrzne..
To by som este pochopil, ale preco ked nastavim NMSMTP1.TimeOut=3000, tak to
uplne tento parameter ignoruje, a aj tak trva to (ne)pripojenie nekonecne
dlho?
Mimochodom, u mna na win ME to trva cca 20 sekund, a u klienta to vzdali po
5 minutach...
Ludo Fulop
NMSMTP a timeout
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 15.10.2002 15:44:54
Vsadim se ze je to dalsi z "vychytavek" NM komponent
:) Zahod je a pouzij Indy (http://www.nevrona.com) nebo Synapse
(http://www.ararat(tec)cz/synapse). Indy jsou i integrovane primo v Delphi
od verze 6, Synapse ma zase tu vyhodu ze dostanes online podporu od
autora primo tady v konferenci :)
Jakub Dusek
--------------------------------
Homepage : http://dusek.webz(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Sms GateKeeper
--------------------------------
Friday, November 15, 2002, 3:31:37 PM, you wrote:
LF> zdravim,
LF> mam problem s komponentou TNMSMTP (D6). Pokial zadam ako Host nejaky
LF> vymysleny server (resp. nedosiahnutelny), tak mi aplikacia pti
LF> NMSMTP1.Connect na hooodne dlhu dobu zamrzne..
LF> To by som este pochopil, ale preco ked nastavim NMSMTP1.TimeOut=3000, tak to
LF> uplne tento parameter ignoruje, a aj tak trva to (ne)pripojenie nekonecne
LF> dlho?
LF> Mimochodom, u mna na win ME to trva cca 20 sekund, a u klienta to vzdali po
LF> 5 minutach...
LF> Ludo Fulop
MS Word Range.Find.Execute
[*] Roland Turcan <rolo(zv)sedas.sk> - 15.10.2002 15:47:07
Hello delphi-l(zv)clexpert(tec)cz!
Ako mozem dosiahnut aby mi Word nasiel a nahradil aj veci v textovych
poliach, zahlavi, v pate (zapati) dokumentu.
Skusil som si aj makro nahrat vo Worde a pozriet ako to on urobi ale
nenasiel som nic pomocou coho to on robi.
Riesil to uz niekto ?
--
Best regards, TRoland
resource rc
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 15.10.2002 15:53:19
.rc soubor je nezkompilovany .res soubor, zkompiluj ho v brc32.exe (v
adresari Bin v Delphi).
Jakub Dusek
--------------------------------
Homepage : http://dusek.webz(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Sms GateKeeper
--------------------------------
Friday, November 15, 2002, 4:04:07 PM, you wrote:
JH> stahl jsem si nejake komponenty TAPI a pri instalaci mi pise ze nemuze najit
JH> resource error.res. Podival jsem se a skutecne tam nebyl, byl tam pouze
JH> error.rc, ale v definici je napsano {$R error.res error.rc} co to zanamena
JH> prosim? Jak z toho ven? error.rc je nejaky textovy soubor zacinajici
JH> StringTable {cislo "retezec"...}
JH> Diky. Honza.
resource rc
[*] J�n Harman - 15.10.2002 16:04:07
stahl jsem si nejake komponenty TAPI a pri instalaci mi pise ze nemuze najit
resource error.res. Podival jsem se a skutecne tam nebyl, byl tam pouze
error.rc, ale v definici je napsano {$R error.res error.rc} co to zanamena
prosim? Jak z toho ven? error.rc je nejaky textovy soubor zacinajici
StringTable {cislo "retezec"...}
Diky. Honza.
Divne chovani Editu ve scrollboxu
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 15.10.2002 16:33:09
Ahoj vsichni.
D5+SP1,W2000
Mam nasledujici problem. Ve scrollboxu dynamicky vytvarim a rusim vetsi
pocet editu. Kdyz provedu zapis a znovnacteni dat pres MIDAS vsechny edity
zrusim a znovu vytvorim. Kdyz se na ne podivam je vse v poradku (posovam
mysi). Kdyz ale po kliknuti na listbox nastavim programove pozici
scrollboxu, nektere edity mi scernaji a nemohu je precist, nevite cim to je?
Kdyz pred tim neprovedu zapis, je vse v poradku.
Jaromir Cermak
DCom - SendMessage
[*] Stanislav Kochan <skochan(zv)microstep-hdo.sk> - 15.10.2002 16:55:08
Nazdar vospolok.
Mam vytvoreny "DCOM Server" a posielam z neho spravy pomocou
"SendMessage".
Vsetko funguje perfektne pokial mam DCom nastaveneho ako:
DCOMCNFG - > Identify->"The Launching User"
ale akonahle ho nastavim na
DCOMCNFG - > Identify->"This user: xy "
tak mi spravy prestanu chodit. Jednoducho "Sendmessage" ako keby prestal
fungovat?
Neviete mi niekto poradit ako to ozivit? Dalo by sa to vyriesit nastavenim
nejakych "Security" alebo to pod "This user" jednoducho nepojde?
Stano.
resource rc
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 15.10.2002 17:19:00
----- Original Message -----
From: "J�n Harman" <harman(zv)atlas(tec)cz>
> stahl jsem si nejake komponenty TAPI a pri instalaci mi pise ze nemuze najit
> resource error.res. Podival jsem se a skutecne tam nebyl, byl tam pouze
> error.rc, ale v definici je napsano {$R error.res error.rc} co to zanamena
> prosim? Jak z toho ven? error.rc je nejaky textovy soubor zacinajici
> StringTable {cislo "retezec"...}
*.rc jsou neprelozene resource soubory, daji se prelozit do *.res souboru
pomoci kompilatoru resourcu, napr. brc32.exe ktery se dodava s Delphi.
Od urcite verze Delphi by mel volat kompilator delphi sam brc32 pokud
se direktiva $R zapise tak jak ji popisujes.
Martin Schayna
Polozky menu z exe suboru
[*] Roman Newman <r.newman(zv)zmail.sk> - 15.10.2002 17:29:24
Oops: ospravedlnujem sa za predchadzajuci mail, nechtiac som to odklikol.
Zdravim vsetkych,
Neviete niekto ako sa da z exe suboru vytiahnut zoznam foriem a ich
komponenty. Konkretne potrebujem vsetky popup-menu zo vsetkych foriem.
Stacilo by ak by to
fungovalo ako v programe -pexplorer- zovrazi pre kazdu formu jej zdrojovi
DFM ako text.
Vdaka
Roman Newman
ADO nezvlada view
[*] Delphin <delphin(zv)post(tec)cz> - 15.10.2002 18:35:29
MS SQL2000, D5 SP2, ADO 2.7
V ADODataset mam select * from moje_view. Kdyz chci ulozit zaznam pomoci
ADODataset.post tak dostanu chybu "Operace s v�ce kroky vedla k vytvo�en�
chyb. Zkontrolujte v�echny stavov� hodnoty."
Zkusil jsem to same s Query z BDE a funguje to bez problemu.
View vypada priblizne takto
CREATE VIEW moje_view
AS
SELECT nullif(Sloupec,null) Sloupec
FROM Data
Chci se zeptat:
Znamena to tedy, ze existuji view, ktere v ADO nejdou a budu muset pouzit
BDE ?
Co jsou vlastne ty stavove hodnoty a kde se daji najit ?
Diky Delphin
Polozky menu z exe suboru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.10.2002 19:55:07
From: "Roman Newman" <r.newman(zv)zmail.sk>
> Neviete niekto ako sa da z exe suboru vytiahnut zoznam foriem a ich
> komponenty. Konkretne potrebujem vsetky popup-menu zo vsetkych foriem.
> Stacilo by ak by to
> fungovalo ako v programe -pexplorer- zovrazi pre kazdu formu jej zdrojovi
> DFM ako text.
Napriklad pomoci tridy TJclPeBorImage z JCL:
http://sourceforge.net/project/showfiles.php?group_id=47514&release_id=118195
http://delphi-jedi.org/CODELIBJCL
uses
JclPeImage;
procedure TForm1.Button1Click(Sender: TObject);
var
BorImage: TJclPeBorImage;
I: Integer;
TempList: TStringList;
begin
BorImage := TJclPeBorImage.Create;
TempList := TStringList.Create;
try
BorImage.FileName := 'project1.exe';
if BorImage.IsBorlandImage then
for I := 0 to BorImage.FormCount - 1 do
begin
BorImage.Forms[I].ConvertFormToText(TempList);
Memo1.Lines.Add(BorImage.Forms[I].DisplayName);
Memo1.Lines.Add(StringOfChar('-', 80));
Memo1.Lines.AddStrings(TempList);
Memo1.Lines.Add('');
end;
finally
BorImage.Free;
TempList.Free;
end;
end;
Petr Vones
______________________________________________________
Zachrante kolacky a koblihy: http://www.kobliha.4ip(tec)cz
Re[2]: Zaboha proc ??? - Dynamicke pole a BlockRea
[*] David Kraina <DKx(zv)seznam(tec)cz> - 15.10.2002 20:26:01
Dekuji vam za pomoc v prvnim pripade, bylo to tim, ze u BlockRead
musim zadat ukazatel (nebo tak neco) B1[0].
Ted je ale 2. pro me nevyresitelny problem. Jiz jsem udelal
algoritmus, ktery spoji lib. pocet souboru do jednoho a zakompresuje
to pomoci ZLib (www.zlib.org).
Hlavicka souboru ma PuvodniNazevSouboru~ZakompresovanaDelka~Data a u
dalsich se hlavicka opakuje za daty predchoziho. No a ted se to
snazim zase rozkodovat. Jenze... Nactu z toho spojeneho souboru
retezec dlouhy podle hlavicky, dam ho dekodovat - a spadne to.
Nevite si nekdo s tim rady ? Dik DKx.
Zdrojak :
Var B1,B2:Array of Char;
INF,OUTF:File Of Char;
S,R:AnsiString;
I:LongInt;
J:Integer;
X:Pointer;
C:Char;
Begin
AssignFile(OUTF,'C:\E1.EXS'); {Zdrojovy soubor}
{$I-}
Reset(OUTF);
{$I+}
If IOResult<>0 Then
Application.MessageBox(PChar('Error2'),PChar(''))
Else Begin
{ While NOT EOF(OUTF) Do} Begin {Kdyz tam neni to While tak to
provede pouze jednou a musi to fungovat}
S:='';
Repeat;
Read(OUTF,C);
If C<>'~' Then S:=S+C; {Puvodni nazev souboru}
Until C='~';
R:='';
Repeat;
Read(OUTF,C);
If C<>'~' Then R:=R+C; {Delka zkomprimovaneho}
Until C='~';
AssignFile(INF,S);
{$I-}
Rewrite(INF);
{$I+}
If IOResult<>0 Then
Application.MessageBox(PChar('Error1'),PChar(''))
Else Begin
SetLength(B1,StrToInt(R)-1); {Nastaveni bufferu pro nacteni
puvodniho souboru najednou}
BlockRead(OUTF,B1[0],StrToInt(R),I);
SetLength(B2,0); {Kdyz zadam 0=Spadne to, kdyz skutecnou puvodni
delku=access volation}
X:=(zv)B2; {Jedine tak to funguje, protoze ZDeCompress vyzaduje
pointer}
ZDeCompress(B1,I,X,J);
/////////////////////Tu to spadne/////////////////////////
B2:=X; {Presun z X do pole (jinak tam neni nic)}
BlockWrite(OUTF,B2[0],J); {Zapsani rozdekodovaneho a tim vytvoren
puvodni}
CloseFile(INF);
SetLength(B1,0);
SetLength(B2,0);
End;
End;
CloseFile(OUTF);
End;
______________________________________________________________________
Reklama:
Nenechte si ujit novy film Woodyho Allena "Hollywood Ending" - blaznivou
komedii o tom, jak se ve tme strefit do cerneho. V kinech od 3.9.2002.
Sledujte http://www.hce(tec)cz
KonfView
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 16.10.2002 01:28:54
From: "Erik Salaj" <winsoft(zv)stonline.sk>
> Ine rozhranie OE nepodporuje, existuje este moznost
> priamo dekodovat dbx subory (pokial viem,
> tento format
> ale zdokumentovany nie je a zrejme je aj
> zavisly od verzie OE).
Tady http://www.oehelp.com/DBXtract/Default.aspx
se da stahnout utilita, ktera umi z libovolneho
folderu (souboru .DBX) v OE5 vyexportovat zpravy
kazdou do samostatneho souboru .EML.
No a tyto soubory uz snadno sloucis jedinym
commandem. Priklad:
* Necht soubor END.TXT v adresari s exportovanymi
*.EML soubory obsahuje radek se separatorem zprav
Pouze vizuelni komponenty
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 16.10.2002 06:29:06
Zkus dane komponenty TEdit a pod. dat na TPanel, ktery nastavis na Enabled
:= false;
Komponenty uvnitr jsou normalne videt, ale nedostanes se na ne.
P.S. Panel1.enabled := false musis ale delat as v Create pro dany formular,
ne v navrhu!
----- Pavel ZIDEK -----
http://www.kopr(tec)cz/delphi, delphi(zv)kopr(tec)cz
>
> co musim udelat, aby komponenty typu checkbox, memo, edit byly videt, ale
> aby se do nich nedal umistnit kurzor, menit jejich obsah apod.... nechci
> pouzit fci Enabled := False;Ukoncenie aplikacie
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 16.10.2002 06:32:23
if Handle <> 0 then
PostMessage(Handle, WM_QUIT, 0, 0)
----- Pavel ZIDEK -----
http://www.kopr(tec)cz/delphi, delphi(zv)kopr(tec)cz
> Mam handle inej aplikacie. Ako ju ukoncim?
>
> Vdaka za kazdu radu.
Re[2]: Jak to je ze zmenou casu ?Tohle funguje na
[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 16.10.2002 09:46:11
Ahoj, ing.,
Friday, November 15, 2002, 6:14:07 AM, you wrote:
iJF> A kdyz odsud vyhodis to inherited ?
Tak to dela to same az na to ze se to sem tam sekne (i s winckama)
--
S pozdravem
Jiri mailto:kindrik(zv)centrum(tec)cz
Re[2]: Zaboha proc ??? - Dynamicke pole a BlockRea
[*] Roman Newman <r.newman(zv)zmail.sk> - 16.10.2002 10:38:01
V zdrojaku som si vsimol ze nastavujes buffer (B1) ktory je definovany ako
ARRAY OF CHAR prikazom -SetLength(B1,StrToInt(R)-1)-, a potom
itas -BlockRead(OUTF,B1[0],StrToInt(R),I)- pocet bytov v R teda o jeden
viac ako si nastavil buffer.
SetLength nastavi pole na taky pocet aky je definovany, ale cislovani od
nuly teda:
SetLength(B1,10) bude mat zaznami B1[0], B1[1]...B1[9]. Roman Newman
Automation po siti
[*] Pavel Poles <poles(zv)student.fsid.cvut(tec)cz> - 16.10.2002 12:05:32
Zdravim,
potreboval bych radu ohledne OLE Automation v ramci site.
Na jednom pocitaci mi bez program ktery pomoci OLE Automation
pristoupi k Outlooku a vyzada si napr. Kontakty. Odkaz na Interface tohoto
objektu ulozi do Variantu a zprostredkuje klientske aplikaci pomci DCOM.
Problem je v tom, ze bych potreboval, aby po zavolani metody Display objektu
(zobrazeni formulare) se tento formular nezobrazoval na strane serveru (coz
se
samozrejme deje), ale na strane klienta?
Mate nekdo nejaky napad?
Predem dik za odpovedi
Pavel Poles
OBDC a interbase
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 16.10.2002 12:34:39
Existuje pristup k interbase pomoci OBDC a pokud ano kde ho sehnat?
OT: CD-RW mechanika
[*] bugi <bugala_a(zv)centrum.sk> - 16.10.2002 13:05:42
Hi All!
Moj kamos ma nasledovny problem, poprosil ma, ci by som neposlal tento
e-mail do konferencia Delfi, s nadejou, ze mu niekto poradi.
Ospravedlnujem sa za tento e-mail vsetkym ucastnikom i adminovi.
Za kamosa vsetkym dakujem.
---------------------------------------------------------------------------
prepacte ze vas otravujem s vecami, ktore nesuvisia s programovanim, ale
uz si neviem dat rady s nasledovnym problem:
- mam napalovacku TEAC CD-W54E V1.1B
- zopar krat som pozical nejakym ludom CD-RW, aby mi tam nieco napalili
- tieto napalene CD-RW-cka mi mechanika dokaze precitat aj skopirovat
- avsak nedokaze ich zmazat, ani rychlym (TOC), ani uplnym formatom,
ziadnym softom (Clone CD, WinOnCD, Nero, CDR-DAO)
- prislusny soft vypise niektoru ztychto hlasok:
- je vlozene prazdne CD-RW
- je vlo�ene po�kodene CD-RW
- nie je vlo�ene ziadne CD-RW
- ini ludia ich vsak dokazu zmazat na svojich mechanikach
- tym su pre mna tieto CD-RW-cka nepouzitelne, co ma dost mrzi ...
- rad by som sa spytal, ci niekto nevie o co ide, kde je chyba a ci sa s
tym da daco robit ???
Za kazdu radu, pripadne vysvetlenie dakujem!
T.
Win2000Prof Cz - SuSeLINUX 8.0 Cz
Pripadne odpovede mu posielajte na sukromny e-mail:
twain(zv)centrum.sk
OBDC a interbase
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 16.10.2002 14:01:02
Haj hou!
On 16 Nov 2002 at 12:34, Mephisto wrote:
> Existuje pristup k interbase pomoci OBDC a pokud ano kde ho sehnat?
Ano, k dispozici je cela rada ODBC ovladacu, vcetne volne siritelnych. K
nalezeni na www.ibphoenix.com nebo (tec)cz
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
pomaly SELECT na FB
[*] bleak <bleak(zv)mvesely(tec)com> - 16.10.2002 14:31:02
zdravim,
m�m tabulku indexovanou podle nekolika poli, napr. ID_KLIENTA, ID_SLUZBY.
Zakaznik ale pozaduje moznost hledani podle vsech poli v tabulce. Tabulka ma
cca 500000 zaznamu a nez se provede napr. SELECT * FROM t1 WHERE text LIKE
'%11/2002%' trva to asi tak 2-3 minuty.
Lze tohle hledani nejak optimalizovat - zrychlit? Vytvaret podle potreby
vhodny index se mi nezda vhodne...
bleak
QReport - format stranky
[*] Martin Kasman <martinkasman(zv)centrum.sk> - 16.10.2002 15:00:34
Ked chcem, aby cez QReport sa tlacilo napriklad na A5, tak staci, ked to
nastavim v QReport.Page.PaperSize a bude sa to tlacit na A5 pri vsetkych
druhoch tlaciarnach pri akychkolvek podavacoch, alebo to treba pre
kompabilitu nastavit este inde?
Vdaka za kazdu radu.
pomaly SELECT na FB
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 16.10.2002 18:50:59
> Odes�latel: bleak <bleak(zv)mvesely.com>
> Zakaznik ale pozaduje moznost hledani podle vsech poli v tabulce. Tabulka ma
> cca 500000 zaznamu a nez se provede napr. SELECT * FROM t1 WHERE text LIKE
> '%11/2002%' trva to asi tak 2-3 minuty.
> Lze tohle hledani nejak optimalizovat - zrychlit? Vytvaret podle potreby
> vhodny index se mi nezda vhodne...
No, tezko rici, zda ti to pomuze, ale zkusenost jedne firmy, ktera pracovala s tak velkymi databazemi, ze jim importy v prvni verzi trvaly vice nez 24 hodin:
Indexum se nebranit, ale vypinat je (alter index xxx inactive).
Prace s databazi je o mnoho rychlejsi.
Kdyz je index zase potreba, tak ho aktivovat. Neco to trva, ale v souctu se to mnohonasobne vyplati.
Mozna to je ale uzitecne jenom pro ty importy...
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
pomaly SELECT na FB
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 16.10.2002 20:32:48
From: "bleak" <bleak(zv)mvesely.com>
> SELECT * FROM t1 WHERE text LIKE '%11/2002%'
> trva to asi tak 2-3 minuty.
> Lze tohle hledani nejak optimalizovat - zrychlit?
Pokud mas na mysli, jak zrychlit operaci typu
CONTAINING, tak s tim se v relacni databazi
moc udelat neda, jedine pokud je SQL server
hybridem mezi RDBMS a full-textovym enginem jako
napr. MSSQL, tak se da k tabulce vytvaret
full-textovy katalog a indexy.
Jinak u relacnich DB takova operace zpravidla
signalizuje, ze atribut obsahuje neskalarni
velicinu a tudiz relace neni ani v 1NF
a jedna se tedy o chybnou analyzu.
Pokud napr. potrebujes hledat mesic & rok
a ne prosty textovy retezec, tak bys mel opravit
model, aby odpovidal semantice reseneho problemu.
HTH, pf
ServerSocket a ClientSocket a komunikace mezi nimi
[*] Ale� Kresta <kresta.ales(zv)seznam(tec)cz> - 16.10.2002 20:33:35
Dobry den,
mohl by mi nekdo prosim vysvetlit jak probiha posilani souboru pomoci
komponent ServerSocket a ClientSocket. V napovede jsem toho moc nenasel.
Predem diky za jakoukoliv radu
Access a uzivatelia
[*] Ludo Fulop <kexo(zv)ynet.sk> - 17.10.2002 00:02:59
zdravim, v accesy som si vytvoril niekolko uzivatelskych uctov. Databazu mi
pod nejakym loginom a heslom ide otvorit v accessy, ale ked to chcem otvorit
cez ADOConnection s LoginPrompt = True, tak po zadani mena a hesla dostanem
stale hlasku "Aplikacia sa neda spustit. Chyba informacny subor pre pracovnu
skupinu alebo ho otvoril vylucne iny pouzivatel"
Ludo Fulop
Combobox - font jednotlivych poloziek
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 17.10.2002 06:37:08
Pomoci uzivatelskeho vykreslovani v metode OnDrawItem
ComboBox.Syle musi byt nastaven na nejaky OwnerDraw styl
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
14.11.2002 Martin Kasman:
> Daju sa menit fonty jednotlivych poloziek v comboboxe (nie naraz vsetkych)?
> Ak ano tak ako?
> Vdaka za kazdu radu.
pomaly SELECT na FB
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 17.10.2002 09:50:40
> Odes�latel: Petr Fejfar <development(zv)callnet(tec)cz>
> Pokud napr. potrebujes hledat mesic & rok
> a ne prosty textovy retezec, tak bys mel opravit
> model, aby odpovidal semantice reseneho problemu.
Dotaz asi smeroval trochu jinam, presto dekuji Petrovi za vysloveny nazor.
V konferenci se casto objevuji dotazy "jak na tento problem...", pritom problem by vubec nevznikl, kdyby byla spravna vychodiska.
Ono je to tezke, dostat snadno a rychle data z databaze, kdyz je spatne navrzena. Podobne snahy o "curani proti vetru", myslim programovani proti standardum Windows, ktere zde nedavno komentoval treba Petr Vones.
Pokud si mohu dovolit nazor: umeni programovat nespociva az tak v umeni resit problemy, jako v umeni vyhybat se jim.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347735)
=========================================
Ukoncenie aplikacie
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.10.2002 14:04:14
From: "Martin Kasman" <martinkasman(zv)centrum.sk>
> Mam handle inej aplikacie. Ako ju ukoncim?
Handle ceho, procesu po otevreni pomoci jeho Process ID ?
Petr Vones
Listbox a horizontalni scrollbar
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.10.2002 14:06:47
From: "Tomas Bihary" <delphi(zv)wige-mic(tec)cz>
> Potreboval bych u komponenty Listbox vytvorit horizontalni scrollbar.
> Nevite prosim nekdo jak na to.
Pomoci TListBox.ScrollWidth
Petr Vones