Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
P�ekreslov�n� okna aplikace
[*] Straka Josef <kshb(zv)seznam(tec)cz> - 17.8.1999 16:59:59
Vytvoril jsem program, ze ktereho volam jiny program a cekam na jeho
ukonceni. Tento druhy program je take mym vytvorem a bezi v okne
200 x 250 bodu. Vypada to tak, ze prvni program je na obrazovce a pres
nej se prekresli druhy (zavolany) program. Kdyz ale timto druhym programem
pohnu po pracovni plose (pretehnu ho mysi nekam jinam) puvodni program
se neprekresli a vypada velice nepekne (neni tam to co, co tam byt ma, ale
zbytky okna druheho programu). Kdyz potom druhy program ukoncim, vse se
vrati do normalu. Ale potreboval bych, aby i po pretazeni mysi zustal prvni
program citelny.
Mohl by mi n�kdo pomoci?
Ten prvni program nemusi byt po spusteni druheho videt (muze byt
minimalizovany), ale musi cekat na ukonceni druheho programu. A po jeho
ukonceni uzivatelem se zase musi objevit na obrazovce. Tuto cestu jsem
zkousel, ale nepodarilo se mi splnit obe podminky najednou.
STRAKA Josef
za��naj�c� amat�rsk� program�tor
mail: strakaj(zv)hba(tec)czn(tec)cz
www: http://www.mujweb(tec)cz/www/strakaj/
Testovani hodnoty Sender
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 17.8.1999 18:12:12
On Tue, 17 Aug 1999, [iso-8859-2] Mal� Dobromil wrote:
> Sender je nutno testovat napr takto
> if (Sender is TBUtton) then
> neco
> else...
>
> Rika se tomu behove pretypovani (myslim) a
> da se udelat i napr toto
> if (Sender is TLabel) then
> S:=(Sender as TLabel).Caption;
Ahoj, tady uz je operator as (ktery pry neni nejrychlejsi) zbytecny,
protoze uz vis, ze Sender je TLabel, takze: S:=TLabel(Sender).Caption;
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
Sledovani aplikaci ve Win
[*] lumir.delphi(zv)post(tec)cz - 17.8.1999 18:18:15
Nazdar vsichni co delate v Delphi.
Dlouho jsem se neozval ale rad bych vytvoril pro mou potrebu aplikaci,
ktera by mi umoznila sledovat aplikace a programy, ktere byly spusteny na mem PC. Pokousel jsem se hledat v konferenci ale porad to neni nejak ono. Mam nasledujici 4 dotazy:
1: Jak spustit mou aplikaci pri startu Win tak aby odkaz na ni nebyl v
Autoexec.bat, Win.ini ani spustit pri startu. Jestli je pouze jedina
cesta dat ji do registru tak kde a jak ji tam mohu vlozit.
2: Jak udelat aby ma aplikace byla prioritni a neumoznila uzivateli
pristup k jinym aplikacim. Dobre by bylo kdyby i znemoznila pristup k
TaskBaru.
3: Jak udelat aby byla k dispozici v TaskBaru jako mala ikonka.
4: Jakym zpusobem se da vysledovat zpustene aplikace.
Za vsechny podnety predem dekuji.
S pozdravem amatersky programator Lumir Karas.Automaticka uprava v editoru Delphi3 C/S
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 17.8.1999 17:35:58
P�edm�t: Automaticka uprava v editoru Delphi3 C/S
Ahoj,
mas instalovane GExperts ? V nich se o tohle stara Code Proofreader ... Staci ho vypnout.
Tom
Jan �ebel�k wrote:
> Nekde v Options je tam snad Code Completion.
>
> Hi,
>
> Pri editaci nekterych slov jazyka se automaticky provede jejich uprava. Napr. napisu FileRead( a po te zavorce se mi to prepise na Filtered(, nebo File se zmeni na file. Jak se da tahle automaticka uprava konfigurovat/vypnout?
>
> Sroub
Lokalizator
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 17.8.1999 19:40:49
Petr Zahradnik wrote:
> > kompilator treti strany. Mate nekdo prehled, jak se takova dll
> > sestavuje nebo zahledl jste nekdo nekde nejaky kod na sestaveni dll?
> > Muze byt i v C.
>
> DLL je normalni PE format, jako kazdy Win32 EXE. A nemuzes
> normalne udelat jednu DLL knihovnu s jednim malym resourcem,
> tu prilozit k aplikaci, no a pak jednoduse nakopirovat
> a ten resource vymenit? To prece umis pod NT...
Blee, to vim, ze to je PE format. :-) Ale jak ho poskladat
dohromady vlastnimi silami (a hlavne bez chyb)? To co delam pod
NT neni skladani DLL, ale vymena resourcu v hotovem programu
knihovnimi funkcemi.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Tisk v Delphi 4 pouze konkretniho zaznamu...
[*] Milan Bla�ek <mbsint(zv)telecom(tec)cz> - 17.8.1999 21:56:32
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Prosim nevite nekdo jak se da zajistit tisk udaje z tabulky pomoci QuickReportu a to pouze toho
zaznamu na kterem je prave nastaveny kurzor.
Diky vsem za radu
Milan Blazek
Delphi 5 beta - namet na horor
[*] Ing. Jaroslav �ke��k - 17.8.1999 21:59:04
Ziskal jsem moznost vyzkouset beta-verzi Delphi 5. Po nekolika dnech se z toho stala moje nocni mura. Nevim, kam takovy software zaradit. Je to vir, mor, nebo co? Uz jsem si s touto legraci "zaneradil" ctyri pocitace, nikde mi to nefunguje a jsem z toho tak znechucen, ze CD letelo obloukem z okna. Desim se pomysleni, ze by obdobny zpusob "ochrany" proti zcizeni obsahovala ostra verze. To radeji balim kufry a utikam k jinemu software co mi nohy budou stacit. Dalsi popis se tyka zkusenosti a trampot s Delphi 5 BETA.
1. Kdo nema pristup k internetu, tak ma smulu. Registrace se provadi on-line na Borland serveru. Pote, co se registrujete a odpovite na radu vsetecnych dotazu vam prijde do dorucene posty registracni cislo. Toto registracni cislo je vygenerovano zrejme z nejakych udaju zjistenych z vaseho pocitace (ta drzost), protoze na jinem pocitaci je nepouzitelne a instalace neprobehne.
2. Ani pote neni uspech zarucen. Muzete se pouze modlit. Pokud vse az do konce instalace neprojde hladce, muzete pouze odepsat dalsi stroj na seznam "nepouzitelnych" pocitacu pro Delphi 5 BETA. Druhou moznosti je formatovat disk a zacit od ciste instalace.
3. V pripade neuspechu se nemuzete zaregistrovat pod stejnym jmenem. Ja jsem to vyresil tak, ze jsem jim na oplatku "zaneradil" server jmeny Sinea, Sinea1 az Sinea4 - nez me to prestalo bavit.
4. Prvni odepsane PC: Vse probehlo OK a prvni vecer jsem pracoval s Delphi 5. Pri nejmene polovine startu Delphi vsak pocitac zatuhnul a byl nutny studeny start. Druhy den se mi objevilo hlaseni: "Cas vyprsel" a bylo po 60-ti denni verzi. Nepomohlo odinstalovani a nova instalace. Program mi stale tvrdil, ze mam smulu.
5. Druhe odepsane PC: Zvedavost mi nedala spat a prinesl jsem si dalsi stroj. Prvni registracni faze byla jiz rutinou. Jenze v prubehu instalace se stalo to, co je ve Windows nekdy tak bezne. Pocitac zatuhnul. Program nesel znovu instalovat, protoze instalak tvrdil, ze Delphi 5 uz jsou instalovany. Odinstalovat to ovsem take neslo, protoze mi "to" reklo, ze instalace nebyla korektne dokoncena. Dobry vtip, ze?
Odepsal jsem druhe PC a sel si pro treti.
6. Treti odepsane PC: Dalsi registrace a nove registracni cislo doslo do me postovni prihradky. Vse probehlo OK az na to, ze ihned po Instalaci program tvrdil, ze datum pouzivani vyprselo. Po chvili patrani jsem zjistil, ze na pocitaci zrejme zlobi systemove datum a byl tam nastaven rok 1994. Jenze i po te, co jsem vse nastavil spravne a provedl deinstalaci a novou instalaci program se uz se mnou odmital dal bavit. Nejspis si me napsal na seznam podvodniku a nepomohlo zadne domlouvani.
5. Ctvrte odepane PC: Dosly mi pocitace a tak jsem se vypravil za kolegou. Udelal jsem chybu, kdyz jsem mu vypravel svuj pribeh. Velmi se zdrahal me pustit na jeho pocitac. Nakonec zvitezila jeho zvedavost a svolil. Za nejvyssich bezpecnostnich opatreni (udelali jsme si podrobny plan prace a trikrat jsme kazdy krok kontrolovali) jsme uspesne provedli instalaci. Vyzkouseli jsme par komponent. Vyzkouseli jsme i fungovani Sinea komponent a nekolika dalsich. Pak jednou - "Program provedl neplatnou operaci a bude ukoncen". Po dalsim startu znama hlaska o vyprseni datumu - na mrtvici.
6. Jeste se nevzdavam. Zrusil jsem zcela a nove preinstaloval Windows na jednom z prvnich tri PC. Zajimave je, ze registracni cislo zustalo nezmeneno. Vse jsem zopakoval, ale z uspechu jsem se radoval opet jen relativne kratky cas.
7. To by nevydrzel nikdo - Delphi 5 BETA letelo z okna.
Opet jsem si overil, ze sebedokonalejsi ochrana proti piratstvi pouze obtezuje a "tresta" poctive zakazniky. Cim je dokonalejsi, tim je horsi. Beta verze Delphi 5 je primo ODSTRASUJICIM pripadem. Borland jde ode zdi ke zdi. Nejdrive nic a potom tohle?
Preji mnoho stesti vsem podobnym zoufalcum.
Jaro
//////
( o o )
------------------------oOO--( )--OOo------------------------
SINEA software, Ing Jaroslav �ke��k, �AMBERK
e-mail: jaro(zv)sinea(tec)cz http://www.sinea(tec)cz
phone: 0446 612468, mobile phone: 0602 581255
----------------------------------------------------------------------
Nacteni udaju z tabulky pres lookup
[*] Milan Bla�ek <mbsint(zv)telecom(tec)cz> - 17.8.1999 22:04:23
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Resim problem jak pri provedeni lookupu do druhe tabulky nacist nejenom jeden udaj daneho pole,
ale jak nacist vsechny pole, ktere jsou shodne s hlavni tabulkou. V Paradoxu to slo primo
pri vytvareni tabulek zadat tak, ze se nastavila funkce lookup bud pouze pro nahrani udaje z jednoho pole
a nebo se nastavilo nahrani udaju ze vsech identicky poli. V delphi jsem to nenasel.
Diky za odpoved
Milan Blazek
Modulo 11 atd
[*] Milan Bla�ek <mbsint(zv)telecom(tec)cz> - 17.8.1999 22:07:42
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Zna prosim nekdo proceduru na ruzna vypocty MODULO jako je
Rodne cislo, Bankovni ucet, ICO, carovy kod atd.
Diky Milan Blazek Sledovani aplikaci ve Win
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 17.8.1999 22:40:08
> Nazdar vsichni co delate v Delphi.
>Dlouho jsem se neozval ale rad bych vytvoril pro mou potrebu aplikaci,
>ktera by mi umoznila sledovat aplikace a programy, ktere byly spusteny na
mem PC. Pokousel jsem se hledat v konferenci ale porad to neni nejak ono.
Mam nasledujici 4 dotazy:
>
>1: Jak spustit mou aplikaci pri startu Win tak aby odkaz na ni nebyl v
>Autoexec.bat, Win.ini ani spustit pri startu. Jestli je pouze jedina
>cesta dat ji do registru tak kde a jak ji tam mohu vlozit.
>
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
>2: Jak udelat aby ma aplikace byla prioritni a neumoznila uzivateli
>pristup k jinym aplikacim. Dobre by bylo kdyby i znemoznila pristup k
>TaskBaru.
Jo, tak to pude mozna (nevim jak - nic jednoducheho to asi nebude) pod Win95
a Win95, ale pod WinNT to nelze udelat.
>3: Jak udelat aby byla k dispozici v TaskBaru jako mala ikonka.>4: Jakym zpusobem se da vysledovat zpustene aplikace.> Za vsechny podnety predem dekuji.
>
> S pozdravem amatersky programator Lumir Karas.
>
Tomas Matousek
matousek(zv)havit(tec)cz
Delphi 4
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 17.8.1999 23:02:11
Mam problem s Delphi 4. (Prof i C/S)
Mam 3 pocitace s Windows 98 CZ a zaboha na nich nespustim D4. Instalace
probehne v pohode, ale pri spousteni Delph to uprostred vytuhne kompletne
pocitac. Pomuze jen tvrdej reset.
Jsou to tri ruzne pocitace ale vsechny Celerony. Zkousel sem cistou
instalaci Win98 CZ a hned Delphi a furt to samy. S3 problem to neni protoze
aspon v jednom pocitaci je neco jinyho (Ati).
SP2 a 3 to taky nevyresily.
Opravdu se Vam to nikomu nestalo ?
Diky
Leinweber
P�ekreslov�n� okna aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.8.1999 23:21:48
Straka Josef wrote:
>
> Vytvoril jsem program, ze ktereho volam jiny program a cekam na jeho
> ukonceni. Tento druhy program je take mym vytvorem a bezi v okne
> 200 x 250 bodu. Vypada to tak, ze prvni program je na obrazovce a pres
> nej se prekresli druhy (zavolany) program. Kdyz ale timto druhym programem
> pohnu po pracovni plose (pretehnu ho mysi nekam jinam) puvodni program
> se neprekresli a vypada velice nepekne (neni tam to co, co tam byt ma, ale
> zbytky okna druheho programu). Kdyz potom druhy program ukoncim, vse se
> vrati do normalu. Ale potreboval bych, aby i po pretazeni mysi zustal prvni
> program citelny.
> Mohl by mi n�kdo pomoci?
Ahoj,
Patrne je to tim, ze cekas na ukonceni aplikace v hlanvim threadu a tudiz
se ti nezpracovavaji zpravy. Reseni muze vypadat treba takhle:
type
TExecThread = class(TThread)
private
FApplicationName: String;
FExitCode: DWORD;
FVisibility: Word;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
protected
procedure Execute; override;
public
constructor Create(const ApplicationName: String; Visibility: Word);
property ApplicationName: String read FApplicationName;
property ExitCode: DWORD read FExitCode;
end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure AppDone(Sender: TObject);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TExecThread }
constructor TExecThread.Create(const ApplicationName: String; Visibility: Word);
begin
FApplicationName := ApplicationName;
FExitCode := MAXDWORD;
FVisibility := Visibility;
ZeroMemory((zv)StartupInfo, Sizeof(StartupInfo));
ZeroMemory((zv)ProcessInfo, Sizeof(ProcessInfo));
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := FVisibility;
if not CreateProcess(nil, PChar(FApplicationName), nil, nil, False,
NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then
RaiseLastWin32Error;
inherited Create(True);
FreeOnTerminate := True;
Priority := tpLower;
Resume;
end;
procedure TExecThread.Execute;
begin
with ProcessInfo do
begin
WaitForSingleObject(hProcess, INFINITE);
Win32Check(GetExitCodeProcess(hProcess, FExitCode));
Win32Check(CloseHandle(hThread));
Win32Check(CloseHandle(hProcess));
end;
end;
procedure TForm1.AppDone(Sender: TObject);
begin
with Sender as TExecThread do
ShowMessageFmt('Aplikace "%s" skoncila', [ApplicationName]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with TExecThread.Create('notepad.exe', SW_SHOWNORMAL) do
OnTerminate := AppDone;
end;
--
Petr Vones, amatersky programator
Import dat z *.XLS do Paradoxu bez DDE, OLE atd
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.8.1999 23:22:28
> Milan Bla�ek wrote:
>
> Hledam reseni jak importovat data ze souboru *.xls do tabulky Paradox,bez
> pouziti OLE, ODBC atd.
> Nejredaji bych to resil pomoci komponety, ale i jine reseni uvitam.
Ahoj,
Jista nadeje by mohla byt v ActiveX komponente F1Book kterou mas v Delphi,
ale ta umi cist nejvyse format Excel 5 a to jeste s jistymi problemy.
--
Petr Vones, amatersky programator
IP Adresa
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.8.1999 23:22:08
tmara(zv)itsys(tec)cz wrote:
>
> Hezky den,
> Potrebuju nejak zjistit IP adresu pocitadla, ze ktereho se n�kdo snazi
> hrabat se v mem. Jde to nejak?
Ahoj,
Zalezi na tom, co myslis tim "hrabat se". Pokud ti jde o sdileni souboru
v siti, tak muzes treba pouzit aplikaci "Sledovani site" ktera je primo
soucasti Windows (95).
--
Petr Vones, amatersky programator
Key down mimo aplikaci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.8.1999 23:23:38
Menfy wrote:
>
> Potreboval bych poradit - nevite nekdo ? Udelal jsem aplikaci,
> ktere jsem skryl formular. A ted potrebuju nejakou rutinu, ktera se
> zavola kdyz bude aplikace spustena (samozrejme) a v jakemkoliv
> programu bude stisknuta klavesa. Tj. gdyz bude moje aplikace
> "minimalizovana" - to bude porad, takze se vlastne jedna o neco jako
> KeyDown ale ne na formulari, ale na obrazovce...
Ahoj,
Neco podobneho je v archivu:
http://www.delphi(tec)cz/soubor.asp?path=\archiv\1999\may\09\dlfaaaau.htm
--
Petr Vones, amatersky programator
Sledovani aplikaci ve Win
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.8.1999 23:24:30
lumir.delphi(zv)post(tec)cz wrote:
> Dlouho jsem se neozval ale rad bych vytvoril pro mou potrebu aplikaci,
> ktera by mi umoznila sledovat aplikace a programy, ktere byly spusteny na mem PC. Pokousel jsem se hledat v konferenci ale porad to neni nejak ono. Mam nasledujici 4 dotazy:
>
> 1: Jak spustit mou aplikaci pri startu Win tak aby odkaz na ni nebyl v
> Autoexec.bat, Win.ini ani spustit pri startu. Jestli je pouze jedina
> cesta dat ji do registru tak kde a jak ji tam mohu vlozit.
Ahoj,
Napriklad sem:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
> 2: Jak udelat aby ma aplikace byla prioritni a neumoznila uzivateli
> pristup k jinym aplikacim. Dobre by bylo kdyby i znemoznila pristup k
> TaskBaru.
Zalezi na tom, jestli to ma byt pro Win9x nebo NT.
> 3: Jak udelat aby byla k dispozici v TaskBaru jako mala ikonka.
Nejjednodussi mas asi pouzit komponentu TRxTrayIcon z RxLib.
> 4: Jakym zpusobem se da vysledovat zpustene aplikace.
viz archiv:
http://www.delphi(tec)cz/soubor.asp?rok=1999&mesic=Jul&den=22&first=1&soubor=dlfaaaaf.htm
--
Petr Vones, amatersky programator
QRExpr....
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.8.1999 23:24:38
Dalibor Bednar��k wrote:
> Pouzivam QRExpr v DELPHI 4 C-S ...
> Muzete mi rict jak zjistim HODNOTU toho QREXPR v programu. Myslel jsem si ze
> to pujde
> pres QRExpr.Caption. Jenze nejde. Vracimi to, co mam napsano v
> QRExpr.Expression.
> V Delphi 3 mi to tak fungovalo. Ted v Delphi 4 ne....
Ahoj,
Podle helpu to vypada na vlastnost TQRExpr.Value
Posledni verze QR pro D4 je QR3.0.4, tu by jsi tam ale mel mit.
--
Petr Vones, amatersky programator
Optimalizacia kodu
[*] Martin 'Milo' Milesich <martin(zv)www.fa.stuba.sk> - 17.8.1999 23:36:22
Zdravim Delphinov :)
Mam takyto problem. Urobil som program ktoreho velkost exe je 1250 Kb a pri spusteni zabera v pameti 4 MB!!
Co robit aby nezaberal v pameti tolko miesta? Pomohla by mi optimalizacia kodu?
Skusal som take veci ako nahradit TPanel TBevel -om. Som niekde cital ze to pomoze, ale moc som si to nevsimol.
Co robite vy pre zmensenie obsadenia pamete programom?
Ten program nerobi nic zlozite tak neviem preco je v pameti taky velky.
Dakujem za kazdu pomoc, Milo.
---<+>-------------------->Martin 'Milo' Milesich<---------------------<+>---
<<< martin(zv)www.fa.stuba.sk www.fa.stuba.sk/~martin >>>
---<+>------>7EE1 BB7E FF5F 518A 357C FC2E 4848 69F6 6452 77A1<-------<+>---
Lokalizator
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.8.1999 23:46:50
Zbysek Hlinka wrote:
> Blee, to vim, ze to je PE format. :-) Ale jak ho poskladat
> dohromady vlastnimi silami (a hlavne bez chyb)? To co delam pod
> NT neni skladani DLL, ale vymena resourcu v hotovem programu
> knihovnimi funkcemi.
Ahoj,
No, sice jsem to zatim nikdy nedelal, ale zase to nevypada az tak silene.
Pokud ti jde JEN o resource bez jakehokoliv kodu, a tu knihovnu pak budes
zavadet pomoci LoadLibraryEx s parametrem LOAD_LIBRARY_AS_DATAFILE, tak
by mozna stacilo vytvorit v PE formatu jednu jedinou sekci - ".rsrc".
V opacnem pripade pak bude LoadLibrary hledat v DLLce DllMain, takze pri
rucni vyrobe PE by jsi jeste musel zavest sekci kodu a do ni alespon
tuhle funkci, brrrr. Muselo by se to samozrejme odzkouset. Castecne jsem
rozebirani PE-EXE delal, navic na MSDN mas i jeho popis.
--
Petr Vones, amatersky programator
Delphi 4
[*] J.Faltynek <FS_software(zv)telecom(tec)cz> - 17.8.1999 23:49:41
Ahoj,
stalo se mi to na PC s videokartou Diamond. Vse pracuje po instalaci W98,
ale D4 ztuhlo behem startu a zustalo viset jen uvodni logo. W98 umi
nainstalovat ovladac k te videokarte, ale pro D4 je to nedostacujici. Po
preinstalovani driveru z orig. CD ke karte vse bezi, jak ma. Hodne stesti.
Jirka
-----P�vodn� zpr�va-----
Od: Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz>
Komu: Delphi-L(zv)Fwd. Cz <delphi-l(zv)fwd(tec)cz>
Datum: 17. srpna 1999 23:07
P�edm�t: Delphi 4
>Mam problem s Delphi 4. (Prof i C/S)
>
>Mam 3 pocitace s Windows 98 CZ a zaboha na nich nespustim D4. Instalace
>probehne v pohode, ale pri spousteni Delph to uprostred vytuhne kompletne
>pocitac. Pomuze jen tvrdej reset.
>
>Jsou to tri ruzne pocitace ale vsechny Celerony. Zkousel sem cistou
>instalaci Win98 CZ a hned Delphi a furt to samy. S3 problem to neni protoze
>aspon v jednom pocitaci je neco jinyho (Ati).
>SP2 a 3 to taky nevyresily.
>
>Opravdu se Vam to nikomu nestalo ?
>
> Diky
> Leinweber
>
>Delphi 5 beta - namet na horor
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.8.1999 00:16:41
> Ing. Jaroslav �ke��k wrote:
> 1. Kdo nema pristup k internetu, tak ma smulu. Registrace se provadi
> on-line na Borland serveru. Pote, co se registrujete a odpovite na radu
> vsetecnych dotazu vam prijde do dorucene posty registracni cislo. Toto
> registracni cislo je vygenerovano zrejme z nejakych udaju zjistenych z
> vaseho pocitace (ta drzost), protoze na jinem pocitaci je nepouzitelne a
> instalace neprobehne.
Takhle "vtipne" to bylo vymyslene u betaverze C++ Builderu 4, DES a BES !
Vypadalo to na pouziti cisla z HDD nebo sitove karty. Navic ten zavadec
pak zpomaloval start celeho prostredi.
> 5. Ctvrte odepane PC: Dosly mi pocitace a tak jsem se vypravil za kolegou.
> Udelal jsem chybu, kdyz jsem mu vypravel svuj pribeh. Velmi se zdrahal me
> pustit na jeho pocitac. Nakonec zvitezila jeho zvedavost a svolil. Za
> nejvyssich bezpecnostnich opatreni (udelali jsme si podrobny plan prace a
> trikrat jsme kazdy krok kontrolovali) jsme uspesne provedli instalaci.
> Vyzkouseli jsme par komponent. Vyzkouseli jsme i fungovani Sinea komponent
> a nekolika dalsich. Pak jednou - "Program provedl neplatnou operaci a bude
> ukoncen". Po dalsim startu znama hlaska o vyprseni datumu - na mrtvici.
V takovychto pripadech nekdy pomuzou programy typu Clean sweep, Norton
Utility ci alespon Registry a File Monitor, aby bylo pekne videt kde vsude
se to stoura.
> Opet jsem si overil, ze sebedokonalejsi ochrana proti piratstvi pouze
> obtezuje a "tresta" poctive zakazniky. Cim je dokonalejsi, tim je horsi.
> Beta verze Delphi 5 je primo ODSTRASUJICIM pripadem. Borland jde ode zdi
> ke zdi. Nejdrive nic a potom tohle?
Presne tak, spis z toho mam pocit, ze si potrebovali odskouset odolnost
toho ochranneho systemu pomoci co mozna nejvetsiho poctu nastvanych lidi.
--
Petr Vones, amatersky programator
rozmer obrazku
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 18.8.1999 06:26:03
----- P�vodn� zpr�va -----
Od: Richard Valny <richard.valny(zv)oku-st(tec)cz>
> Ahojda
> Do TImage nacitam obrazek JPG.
> Jak lze pred nactenmim zjistit jeho rozmery, abych mohl podle toho nastavit
> pomer stran TImage pri zapnuti Strentch:=true se zobrazil nezdeformovane.
>
> Je to v D3 prof.
A co zkusit napred s Visible:=False, Stretch:=False a AutoSize:=True nacist obrazek, tim zjistis jeho rozmery, patricne je zmensis a po AutoSize:=False, Stretch:=True nastavis velikost a pak jej zobrazis.
=============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Member of Out of business group CR
=============================Dynamicke nahrani DLL
[*] Petr Reichl <meap(zv)seznam(tec)cz> - 18.8.1999 06:29:09
Potrebuji nahrat dll pri behu programu. Fungovani jako plug-in.
Muzete mi prosim poradit?
--
Petr Reichl
E-mail: reichl(zv)seznam(tec)cz
Modulo 11 atd
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 18.8.1999 06:46:04
Zadnou proceduru neznam, ale nejobycejnejsi pascal obsahuje operator mod
Jura
-------------
Email: Jiri.Polak(zv)tconsult(tec)cz
Co mne nastvalo a na co si dejte pozor:
http://freeweb <http://freeweb/> .coco(tec)cz/jpolak/cernalistina/
-----Original Message-----
From: Milan Bla�ek [mailto:mbsint(zv)telecom(tec)cz]
Sent: Tuesday, August 17, 1999 10:08 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Modulo 11 atd
Zna prosim nekdo proceduru na ruzna vypocty MODULO jako je
Rodne cislo, Bankovni ucet, ICO, carovy kod atd.
Diky Milan Blazek Optimalizacia kodu
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 18.8.1999 06:52:34
S dotazem to nesouvisi primo, jedna se o velikost exe a v dusledku
snad i o velikosti zabrane pameti.
Na CD posledniho Chipu (8/1999) je program Shrink, o kterem pisou:
Shrink
Program pro redukci velikosti programu pod Win95/98, Win NT i Win3.1.
Dokaze zredukovat velikost programu a zdroju typu EXE, DLL DPL OCX
a ActiveX. Napriklad z programu vytvoreneho v Delphi o velikosti
1MB dokazal vyrobit temer polovicni.
Jura
-------------
Email: Jiri.Polak(zv)tconsult(tec)cz
Co mne nastvalo a na co si dejte pozor:
http://freeweb.coco(tec)cz/jpolak/cernalistina/> -----Original Message-----
> From: Martin 'Milo' Milesich [mailto:martin(zv)www.fa.stuba.sk]
> Sent: Tuesday, August 17, 1999 11:36 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Optimalizacia kodu
>
>
> Zdravim Delphinov :)
>
> Mam takyto problem. Urobil som program ktoreho velkost exe je
> 1250 Kb a pri spusteni zabera v pameti 4 MB!!
> Co robit aby nezaberal v pameti tolko miesta? Pomohla by mi
> optimalizacia kodu?
> Skusal som take veci ako nahradit TPanel TBevel -om. Som
> niekde cital ze to pomoze, ale moc som si to nevsimol.
> Co robite vy pre zmensenie obsadenia pamete programom?
> Ten program nerobi nic zlozite tak neviem preco je v pameti
> taky velky.
>
> Dakujem za kazdu pomoc, Milo.
> ---<+>-------------------->Martin 'Milo'
> Milesich<---------------------<+>---
>
> <<< martin(zv)www.fa.stuba.sk www.fa.stuba.sk/~martin >>>
>
> ---<+>------>7EE1 BB7E FF5F 518A 357C FC2E 4848 69F6 6452
> 77A1<-------<+>---
> P�ekreslov�n� okna aplikace
[*] Radim Ludv�k <radiml(zv)bnsoft(tec)cz> - 18.8.1999 07:01:58
Zdravim,
predpokladam ze na to ukonceni toho druheho programu cekas v nejakym cyklu,
tak zkus do toho cyklu pripsat Form1.Refresh a melo by se to prekreslovat.
Radim Ludv�k
BN Soft Znojmo
radiml(zv)bnsoft(tec)cz
Vytvoril jsem program, ze ktereho volam jiny program a cekam na jeho
ukonceni.. Kdyz ale timto druhym programem pohnu po pracovni plose (pretehnu
ho mysi nekam jinam) puvodni program se neprekresli.
Lokalizator
[*] voltrr1.epr(zv)mail.cez(tec)cz - 18.8.1999 06:28:16
> Zbysek Hlinka wrote:
> > Blee, to vim, ze to je PE format. :-) Ale jak ho poskladat
> > dohromady vlastnimi silami (a hlavne bez chyb)? To co delam pod
> zavadet pomoci LoadLibraryEx s parametrem LOAD_LIBRARY_AS_DATAFILE, tak
> by mozna stacilo vytvorit v PE formatu jednu jedinou sekci - ".rsrc".
> V opacnem pripade pak bude LoadLibrary hledat v DLLce DllMain, takze pri
> rucni vyrobe PE by jsi jeste musel zavest sekci kodu a do ni alespon
> tuhle funkci, brrrr. Muselo by se to samozrejme odzkouset. Castecne jsem
Ja teda nevim jestli chapu dobre otazku ale proc neudelate tu .dll v delphi
?
Treba takhle mam ja delanou pluginovou knihovnu :
library Exec;
uses
SysUtils,
Classes,
Windows;
Function GetData(Data:ShortString):PChar; stdcall;
var X:Array [0..255] Of Char;
begin
WinExec(StrPCopy(X,Data),sw_Normal);
Result:=StrAlloc(255);
StrPCopy(Result,'Exec o.k');
end;
exports
GetData index 1;
begin
end.
No a pokud bych tam dal {$R pokus.res}
tak se k tomu prilinkuje i resource.
Radek
Key down mimo aplikaci
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 18.8.1999 07:28:56
ahoj
pro "odchyceni" stisku klaves ve Windows jsem pouzil fci RegisterHotKey
a zpravu WM_HOTKEY, pouzivam to v malem programu, ktery mi spousti
dalsi aplikace ...
Zdenek Fryz
_______________________________________________________________
This communication is intended solely for the addressee and is confidential.
If you are not the intended recipient, any disclosure, copying,
distribution or any action taken or omitted to be taken in reliance on it,
is prohibited and may be unlawful.
_______________________________________________________________
Key down mimo aplikaci
[*] voltrr1.epr(zv)mail.cez(tec)cz - 18.8.1999 06:31:12
> zavola kdyz bude aplikace spustena (samozrejme) a v jakemkoliv
> programu bude stisknuta klavesa. Tj. gdyz bude moje aplikace
> "minimalizovana" - to bude porad, takze se vlastne jedna o neco jako
> KeyDown ale ne na formulari, ale na obrazovce...
Podle mne jedina sance je pouzit windows system hook na klavesnici a je to.
Funguje to spolehlive akorat to je trosku slozitejsi na naprogramovani (je
to
system a ne tahani okynek) - ale mozna na to najdes nejakou komponentu.
Pokud bys potreboval pichnout tak napis.
Radek
rozmer obrazku
[*] voltrr1.epr(zv)mail.cez(tec)cz - 18.8.1999 06:39:17
> Do TImage nacitam obrazek JPG.
> Jak lze pred nactenmim zjistit jeho rozmery, abych mohl podle toho
nastavit
> pomer stran TImage pri zapnuti Strentch:=true se zobrazil nezdeformovane.
>
> Je to v D3 prof.
V TImage.Picture mas rozmery pred deformaci i pri zaple hodnote stretch
Radek
socket a problem s connectem na server
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 18.8.1999 07:40:59
jo ale PING otestuje zda existuje server s urcitou IP, ne zda nejaka
aplikace skutecne listuje na tomto portu. Tim shozenim serveru jsme mel na
mysli pouze stopnuti listovani na urcitem portu, ne vypnuti nebo odpojeni PC
od site.
----- P�vodn� zpr�va -----
Od: Dalibor Toman <dtoman(zv)fortech(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 17. srpna 1999 16:39
P�edm�t: Re: socket a problem s connectem na server
>
> >Ahoj
> >mam takovej malej dotaz. Mam aplikaci ktera se konektuje na muj server.
> >Pokud se muj server shodi, pokousi se tato aplikace kazdych 10 sekund na
> >tento server pripojit. tady ovsem vznika problem a to ze kdyz kazdych 10
> >sekund posilam myslim ze se tomu rika SYN paket na navazani spojeni
zahlti
> >se tim jeden port (netstat -a) ktery ceka na odpoved myslim ze to je ACK
> >paket. Ale po nekolka hodinach se po marnem pokouseni o spojeni kompletne
> >zahlti vsechny porty. Nevite jak to osetrit ?
>
> otestovat funcnost TCP/IP stacku na serveru nejakym jinym zpusobem - napr
ICMP ECHO (ping)
>
> Zdravi
> D. Toman
>
>
>Sledovani aplikaci ve Win
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 18.8.1999 07:41:29
----- P�vodn� zpr�va -----
Od: <lumir.delphi(zv)post(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 17. srpna 1999 18:18
P�edm�t: Sledovani aplikaci ve Win
> 1: Jak spustit mou aplikaci pri startu Win tak aby odkaz na ni nebyl v
> Autoexec.bat, Win.ini ani spustit pri startu. Jestli je pouze jedina
> cesta dat ji do registru tak kde a jak ji tam mohu vlozit.
Krome jiz 2x uvedeneho jeste:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices
- pak se Ti spusti aplikace jeste PRED prihlasenim do Windows.
> S pozdravem amatersky programator Lumir Karas.
>
Ze by dalsi "amatersky programator" ? Ja myslel, ze je to TradeMark P.V.
:-))) (pan Kubat slibil stejne jen jedny D5 ! :-)) )
Mira
Zmena hesla na IB
[*] Lubos Dusanic <lubos(zv)iname(tec)com> - 18.8.1999 07:56:55
caves,
neviete nahodou niekto, akym sposobom sa da (programovo a co mozno
najjednoduchsie) zmenit pristupove heslo uzivatela na interbase server?
vdaka
lubos
jak otocit label
[*] Petr Matejovsky <pema(zv)seznam(tec)cz> - 18.8.1999 08:00:44
ahoj
Nevite nekdo jak se pri tisku sestavy v QR da otocit label o 90 stupnu ???
pripadne jak jinak se da otocit pismo a vytisknout (treba formular s labelem).
mam D4 a W98
Petr Matejovsky
pema(zv)sezmam(tec)cz
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
ADO Express
[*] Marian Jonas <jonas(zv)ji(tec)cz> - 18.8.1999 07:07:44
Ahoj vsichni.
Je tu nekdo kdo uz vyzkousel subj. , tzn. predelat nejaky projekt ve starsi verzi Delphi na ADO komponenty ?
Zajimaji mne i prvni dojmy z tohoto produktu. Jsou u subj. i zdrojove texty ?
A hlavne ma to vubec cenu kupovat ? (Tim samozrejme nemyslim jestli to ukrast nebo ne, myslim tim jestli neni lepsi
zustat u BDE)
Marian Jonas
jonas(zv)ji(tec)cz
Lokalizator
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 18.8.1999 08:10:58
Ivan Turcan wrote:
> Na nizsie uvedenej stranke sa da najst Free Pascal Compiler (FPC). Ten
> by mal dokazat kompilovat aj DLL. Daju sa odtial stiahnut aj zdrojove
> kody, tie su napisane z vacsej casti v pascale, staci si ich uz len
> nastudovat.
>
> Adresa je:
>
> http://tfdec1.fys.kuleuven.ac.be/~michael/fpc/fpc.html
Diky, zda se, ze by to mohlo byt presne co jsem hledal. Tedy az
na podminenou kompatibilitu s Delphi. :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Tisk v Delphi 4 pouze konkretniho zaznamu...
[*] Pavol Griga <paly(zv)sct.sk> - 18.8.1999 08:10:03
> Prosim nevite nekdo jak se da zajistit tisk udaje z tabulky > pomoci
QuickReportu a to pouze toho
> zaznamu na kterem je prave nastaveny kurzor.
Staci, ked v komponente QuickRep zrusis vlastnost DataSet, potom by sa
mal vytlacit len aktualny zaznam. Pozor, ale nastavenie databazovych prvkov
v zostave, ktore musia mat
nastavene aj DataSet.
Pavol Griga
IP Adresa & detekce hesla ss.
[*] tmara(zv)itsys(tec)cz - 18.8.1999 08:11:17
Hezky den,
omlouvam se za nejasne formulovanou otazku...
N�kdo se pokousi dostat se mi do pocitadla mimo sdilenych slozek (a asi se
mu to jiz povedlo) a ja bych rad vedel, kdo to je...
NetWatch je hezka v�c, ale ja bych si chtel udelat sv�j programek... :o)
Proto se ptam, jak lze ziskat IP adresu pocitace tohoto "lumpa", pripadne
jestli se o nem (pocitadle) daji zjistit nejake dal�� informace...aby se mi
pak podarilo tohoto �lov�ka snaze najit...
Mam Woknows 98 a Delphi 4 Prof.
Je�t� jednou se omlouvam.
Thx...ByE.
P.S. existuje nejaka moznost, jak detekovat a zapisovat do souboru vsechny
pokusy (uspesne i neuspesne) o uhadnuti hesla ve screensaveru? Testovani hodnoty Sender
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 18.8.1999 08:12:08
Ahojte,
> ze mas ActionList, jedna z ContainedAction je napojena na polozku
PopupMenu
> a jeji udalost click vyvolava jakousi metodu na objektu typu DBGrid.
Je to takto:
Na DBGrVracPripad a DBGrPripad mam povesene PopupMenu1 s metodami OnClick
pro kazdy TMenuItem. Nekterym TMenuItem jsem pridal Action, abych je mohl
jednoduse urcite skupiny prikazu zakazovat a povolovat.Protoze po prirazeni
Action do TMenuItem se automaticky priradi do TMenuItem.OnClick
ActionOnExecute, nechal jsem to takto
procedure TMainForm.ServPridelPripExecute(Sender: TObject);
begin
PridelitPripadClick(Sender);
end;
A protoze potrebuji nektere veci provadet pouze pri spusteni z urciteho
DBGridu, potrebuji nejak zjistit, ze ktereho DBGridu byl TMenuItem
spusten.Mam takovy pocit, ze to ani nepujde.Napadaji mne dve reseni, jak to
obejit:
1) vytvorit globalni promennou, ktera se bude menit v kazdem DBGridu v
metode onClick
2) pro kazdy DBGrid vytvorit vlastni PopupMenu.
A zpatky k puvodnimu problemu:
Ciste teoreticky bych rekl, ze kdyz timto zpusobem volam metody( s
parametrem sender), tak mi i do posledni metody musi prijit jako Sender
TObject, ktery udalost vyvolal.
Problem bych videl v tom, ze zrejme udalost vlastne vyvola TMenuItem
> V prikladech jsi volane procedure predaval Sendera, to znamena polozku
> typu TContainedAction. Ta polozka nikdy nemuze byt typu DBGrid.
> Sender je totiz identifikace objektu, na kterem nastala prislusna udalost.
> A kdyz reagujes na udalost menu nebo Actionu, je test, zdali Sender neni
> nahodou
> DBGrid, zbytecny. Neni.
>
> K tomu, ze Ti Watch ukazuje hodnotu 0, nemohu nic rict. To bych musel
videt
> jeste neco navic.
>
> Testovat hodnotu Sender lze vselijakymi zpusoby, zalezi na tom, co
> potrebujes.
> 1] Porovnani operatorem '=' mas dobre v pripade, ze DBGrVracPripad je
nejaka
> instance
> Napr. na formu mas dva DbGridy, obema priradis pro nejakou udalost
> stejnou metodu
> a v te metode potrebujes zjistit, ktery z tech dvou DBGridu udalost
> vyvolal
Rozumim.
> 2] Jak uz Ti kdosi radil, muzes pouzit operator 'is'. Ten pouzijes v
> pripade, ze potrebujes
> urcit tridu nebo potomka tridy. Konstrukce
> "if Sender is TDBGrid" znamena: "jestlize Sender je instance tridy
> TDBGrid nebo jeji potomek"
1)
procedure TMainForm.PridelitpripadClick(Sender: TObject);
var S:String;
begin
S:=(Sender as TDBGrid).Name;
Vyhazuje hlaseni "INVALID CLASS TYPECAST."
2)
procedure TMainForm.PridelitpripadClick(Sender: TObject);
begin
if (Sender is DBGrVracPripad) then ...
Neprojde kompilaci s hlasenim "Operator not applicable to this operand type"
Takze otazka je takova:
Lze zjistit puvodni Object, ktery vyvolal udalost, ktera projde pres
TPopupMenu a TAction?
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
Tisk v Delphi 4 pouze konkretniho zaznamu...
[*] Milink Otakar <otam(zv)tdat(tec)cz> - 18.8.1999 08:15:22
Staci NEnastavit dataset celemu reportu, ale jen nastavit jednotlivym
qrdbtext-um.
�������
�����������������������������������������������������������������������
Otakar Milink
-----P�vodn� zpr�va-----
Od: Milan Bla�ek [mailto:mbsint(zv)telecom(tec)cz]
Odesl�no: 17. srpna 1999 21:57
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Tisk v Delphi 4 pouze konkretniho zaznamu...
Prosim nevite nekdo jak se da zajistit tisk udaje z tabulky pomoci
QuickReportu a to pouze toho
zaznamu na kterem je prave nastaveny kurzor.
�
Diky vsem za radu
�
Milan Blazek
�rozmer obrazku
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 18.8.1999 08:19:57
Pokud je Stretch=false, nacte se obrazek v originalnim rozmeru (width, height).
Pak nastavim velikost formulare nebo v cem mas TImage vlozen a nastavim Stretch na true.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Jan Fiala <fiala(zv)infos(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: rozmer obrazku
> Datum: 18. srpna 1999 6:26
>
>
> ----- P�vodn� zpr�va -----
> Od: Richard Valny <richard.valny(zv)oku-st(tec)cz>
>
> > Ahojda
> > Do TImage nacitam obrazek JPG.
> > Jak lze pred nactenmim zjistit jeho rozmery, abych mohl podle toho nastavit
> > pomer stran TImage pri zapnuti Strentch:=true se zobrazil nezdeformovane.
> >
> > Je to v D3 prof.
>
> A co zkusit napred s Visible:=False, Stretch:=False a AutoSize:=True nacist obrazek, tim zjistis jeho rozmery, patricne je zmensis a po AutoSize:=False, Stretch:=True nastavis velikost a pak jej zobrazis.
>
> =============================
> ing. Jan Fiala fiala(zv)infos(tec)cz
> Member of Out of business group CR
> =============================P�ekreslov�n� okna aplikace
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 18.8.1999 08:33:56
Napis, jakym zpusobem ten druhy program spoustsis
a jakym zpusobem cekas na jeho ukonceni. Protoze
jestli to delas v nejakem cyklu, tak tam musis
nechat taky ostatni aplikace, aby se dostali
ke svym zpravam. Dej tam nekam
Application.ProcessMessages nebo ten program
spoustej takto :
function WinExecAndWait32(wFileName:String; wVisibility,
wPriority : integer):integer;
var
zAppName:array[0..512] of char;
zCurDir:array[0..255] of char;
WorkDir:String;
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
begin
StrPCopy(zAppName,wFileName);
GetDir(0,WorkDir);
StrPCopy(zCurDir,WorkDir);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := wVisibility;
if not CreateProcess(nil,
zAppName, { pointer to command line string }
nil, { pointer to process security
attributes }
nil, { pointer to thread security
attributes }
false, { handle inheritance flag }
CREATE_NEW_CONSOLE or { creation flags }
wPriority,
nil, { pointer to new environment block }
nil, { pointer to current directory name }
StartupInfo, { pointer to STARTUPINFO }
ProcessInfo) then Result := -1 { pointer to PROCESS_INF }
else begin
WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess,Result);
end;
end;
Dobra.
> ----------
> Vytvoril jsem program, ze ktereho volam jiny program a cekam na jeho
> ukonceni. Tento druhy program je take mym vytvorem a bezi v okne
> 200 x 250 bodu. Vypada to tak, ze prvni program je na obrazovce a pres
> nej se prekresli druhy (zavolany) program. Kdyz ale timto druhym
> programem
> pohnu po pracovni plose (pretehnu ho mysi nekam jinam) puvodni program
> se neprekresli a vypada velice nepekne...
>
> Testovani hodnoty Sender
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 18.8.1999 08:59:53
> -----Original Message-----
> From: Petr Sadovsky [mailto:petr(zv)slunce(tec)cz]
> Sent: Wednesday, August 18, 1999 8:12 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Testovani hodnoty Sender
>
>
> Ahojte,
>
> > ze mas ActionList, jedna z ContainedAction je napojena na polozku
> PopupMenu
> > a jeji udalost click vyvolava jakousi metodu na objektu typu DBGrid.
>
> Je to takto:
> Na DBGrVracPripad a DBGrPripad mam povesene PopupMenu1 s
> metodami OnClick
> pro kazdy TMenuItem. Nekterym TMenuItem jsem pridal Action,
> abych je mohl
> jednoduse urcite skupiny prikazu zakazovat a
> povolovat.Protoze po prirazeni
> Action do TMenuItem se automaticky priradi do TMenuItem.OnClick
> ActionOnExecute, nechal jsem to takto
>
> procedure TMainForm.ServPridelPripExecute(Sender: TObject);
> begin
> PridelitPripadClick(Sender);
> end;
Tos asi presne nepochopil, k cemu ma action slouzit.
Je to tak, ze v Execute mas provest vykonnou cast akce,
naopak v menuItem.OnClick bys nemel delat nic.
Takovouto akci potom muzes napojit na polozku PopUpMenu,
tak, jak jsi to udelal, nebo na jiny ovladaci prvek -
treba na Button, ToolbarButton, nejakou polozku MainMenu, atd.
Vyhoda je, ze Action poskytuje centralni spravu pro tuto akci,
nemusis ve vsech napojenych objektech uvadet Caption, Hint, obrazek,
a kdyz potrebujes akci zakazat (enabled := false), zamknou se vsechny
prvky napojene na tuto akci).
nevim, co obsahuje Execute v pripade TAction (nemam ted nainstalovany Delphi
a nemohu se podivat), ale predpokladam, ze by v nem mel byt ten MenuItem
nebo Button, na ktery uzivatel kliknul.
> A protoze potrebuji nektere veci provadet pouze pri spusteni
> z urciteho
> DBGridu, potrebuji nejak zjistit, ze ktereho DBGridu byl TMenuItem
> spusten.Mam takovy pocit, ze to ani nepujde.Napadaji mne dve
> reseni, jak to
> obejit:
> 1) vytvorit globalni promennou, ktera se bude menit v kazdem
> DBGridu v
> metode onClick
> 2) pro kazdy DBGrid vytvorit vlastni PopupMenu.
Tohle nevim, s PopupMenu jsem si nehral, ale myslim, ze by se melo dat
zjistit,
na kterem controlu bylo vyvolano. Pokud by to nebylo mozne, byly by Tvoje
navrhy resenim.
>
> A zpatky k puvodnimu problemu:
> Ciste teoreticky bych rekl, ze kdyz timto zpusobem volam metody( s
> parametrem sender), tak mi i do posledni metody musi prijit
> jako Sender
> TObject, ktery udalost vyvolal.
> Problem bych videl v tom, ze zrejme udalost vlastne vyvola TMenuItem
Ano
> 1)
> procedure TMainForm.PridelitpripadClick(Sender: TObject);
> var S:String;
> begin
> S:=(Sender as TDBGrid).Name;
>
> Vyhazuje hlaseni "INVALID CLASS TYPECAST."
No protoze v Senderovi je TMenuItem a ta je v jine linii
nez TDBGrid.
>
> 2)
> procedure TMainForm.PridelitpripadClick(Sender: TObject);
> begin
> if (Sender is DBGrVracPripad) then ...
>
> Neprojde kompilaci s hlasenim "Operator not applicable to
> this operand type"
Rekl bych, ze DBGrVracPripad je jmeno instance komponenty
a ne jmeno tridy.
>
>
> Takze otazka je takova:
> Lze zjistit puvodni Object, ktery vyvolal udalost, ktera projde pres
> TPopupMenu a TAction?
To z hlavy nevim, zkusil ses divat do helpu?
S pozdravem
Jura
-------------
Email: Jiri.Polak(zv)tconsult(tec)cz
Co mne nastvalo a na co si dejte pozor:
http://freeweb.coco(tec)cz/jpolak/cernalistina/Import dat z *.XLS do Paradoxu bez DDE, OLE atd
[*] Burger, Tomas <tomas.burger(zv)sap-ag.de> - 18.8.1999 09:00:35
Neco na tenhle zpusob by pomohlo... (potrebujes k tomu ovsem ten Excel...
:-) )
X = CreateOLEObject("Application.Excel");
Y = X.OpenFile("soubor.xls");
Z = Y.Sheets(1);
write(Y.Cells(1,1));
Tomas
ps. Delam to zpameti bez Delphi, takze to asi nesedi presne pismeno od
pismene...
-----Original Message-----
From: Milan Bla�ek [mailto:mbsint(zv)telecom(tec)cz]
Sent: Montag, 16. August 1999 20:22
To: delphi-l(zv)fwd(tec)cz
Subject: Import dat z *.XLS do Paradoxu bez DDE, OLE atd
Hledam reseni jak importovat data ze souboru *.xls do tabulky Paradox,bez
pouziti OLE, ODBC atd.
Nejredaji bych to resil pomoci komponety, ale i jine reseni uvitam.
Diky Milan Sledovani aplikaci ve Win
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 18.8.1999 09:08:51
> 1: Jak spustit mou aplikaci pri startu Win tak aby odkaz na ni nebyl v
> Autoexec.bat, Win.ini ani spustit pri startu. Jestli je pouze jedina
> cesta dat ji do registru tak kde a jak ji tam mohu vlozit.
>
*** \\HKEY_LOCALMACHINE (ale i CURRENT_USER)
SOFTWARE\WINDOWS\CURRENT_VERSION\Run
pripadne RunService
> 2: Jak udelat aby ma aplikace byla prioritni a neumoznila uzivateli
> pristup k jinym aplikacim. Dobre by bylo kdyby i znemoznila pristup k
> TaskBaru.
>
*** No, asi by to slo, ale nebude to nic jednoducheho;
udelat okno pres celou obrazovku, nastavit mu atributy
jako setric obrazovky (nebude fungovat Alt-Tab, opicak
a podobne), ale zase nepujdou vypnout Windows, nespusti
se skutecny setric a spousta problemu... Navic, k cemu
Ti potom ten pocitac bude, kdyz se spusti jen Tvoje
aplikace a zadna jina ? Jestli Ti jde o to, ze tam
das nekam tlacitko pro spusteni treba jen Wordu, taxi
usetri praci, staci, kdyz si nekdo bude chtit otevrit
soubor, klepne pravym tlacitkem na nejakou slozku,
da prozkoumat, ci otevrit a ma spustenyho explorera
odkud jiz muze spoustet dalsi aplikace. Nehlede na to,
ze aby ten Word sel pouzivat, musis zrusit ten priznak
setrice, jinak se sice spusti, ale bude zase "za" tou
Tvou aplikaci a nebude videt.> 3: Jak udelat aby byla k dispozici v TaskBaru jako mala ikonka.
>
*** Tak tohle nechapu, bud nebudes mit pristup k TaskBaru
(viz bod 2.) nebo budes a na to pouzij nejakou komponentu
napr rxTrayIcon a podobne...> 4: Jakym zpusobem se da vysledovat zpustene aplikace.
>
*** Pouzit HOOK funkci, Petr Vones na to udelal priklad
(pro D4) a je na ftp archivu konference (me ale na D3
nechodi-moment, vlastne mi chodil, ted si vzpominam, ale
byl tam problem v tom, ze pri spusteni BATaku se zachytilo
jen jmeno toho bataku, nebo neco podobneho, zase tak moc
si zase nevpominam)
*** Nebo muzes po nejakem case (treba po 500ms) prochazet
seznam bezicich procesu a nebo po nejakem delsim case
(treba po 5 sekundach) ukladat nekam "otisk" obrazovky
(neni to tak pomale (nezdrzuje to) jak by se zdalo)
Co to vlastne programujes ? Nejaky vlastni "PolEdit"
nebo nov� "rodinn� prihlasovani" ?
Dobra.
prace s MDIChild oknem
[*] Ren� Otisk - 18.8.1999 09:11:08
Hi,
W95, D3 C/S
Mel bych takovy problem. Mam databazovou MDI aplikaci. Chtel bych po prepnuti do stavu Edit (Insert), aby aktivni MDIChild okno nebylo mozne deaktivovat (resp. aktivovat jine MDIChild okno), zavrit do te doby nez zaznam neulozim nebo nestornuji. Osetrit to v Update menu items nevyhovuje, protoze uzivatel si muze MDIChild okna poskladat kaskadovite apod. a prepinat je mysi nebo klavesnici.Zmena hesla na IB
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 18.8.1999 09:18:50
Haj hou!
Podivej se na
http://www.interbase.dthomas.co.uk/ibdownloads.htm
sekce Security
> neviete nahodou niekto, akym sposobom sa da (programovo a co mozno
> najjednoduchsie) zmenit pristupove heslo uzivatela na interbase server?
Hodne zdaru
Lokalizator
[*] voltrr1.epr(zv)mail.cez(tec)cz - 18.8.1999 08:19:41
> > by mal dokazat kompilovat aj DLL. Daju sa odtial stiahnut aj zdrojove
> Diky, zda se, ze by to mohlo byt presne co jsem hledal. Tedy az
A co se vam nezamlova na tom jak dela .dll knihovny Delphi ??
Co je na nich spatne ??
Radek
Modulo 11 atd
[*] Ale� Kle�ka - 18.8.1999 09:25:14
Ahoj, nechci Te zklamat, ale asi v tom nemas uplne jasno. Pro vypocty RC, cisla uctu apod. existuji urcita pravidla, ve kterych se, obcas, vyuziva operator MOD. Doporucuji prohledat archiv ( kdybys mel nejaky problem, tak hod echo na muj soukromy email, a ja Ti to zkusim najim v mych zdrojich ). Tam se dozvis, ze vypocet cisla uctu je v podstate 'trivka', ale u RC existuje tolik vyjimek z vyjimek, ze se to snad vyplati kontrolovat pouze na existenci cislec a '/' ( na tema RC tady byla dost rozsahla diskuze ). Co se tyka caroveho kodu, mam takovy pocit, ze tady plati pro ruzne oblasti urcite normy, a pokud by se napr. jednalo novou aplikaci caroveho kodu ( napr. evidence nejakych dokumentu ve firme ), tak tam zalezi pouze na dohode 'uvnitr' dane firmy ( ale prisahat na to nebudu ).
S pozdravem
Ale� Kle�ka
{ aklecka(zv)email(tec)cz }
----- Original Message -----
From: Milan Bla�ek
To: delphi-l(zv)fwd(tec)cz
Sent: Tuesday, August 17, 1999 10:07 PM
Subject: Modulo 11 atd
Zna prosim nekdo proceduru na ruzna vypocty MODULO jako je
Rodne cislo, Bankovni ucet, ICO, carovy kod atd.
Diky Milan Blazek socket a problem s connectem na server
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 18.8.1999 09:29:44
>jo ale PING otestuje zda existuje server s urcitou IP, ne zda nejaka
>aplikace skutecne listuje na tomto portu. Tim shozenim serveru jsme mel na
>mysli pouze stopnuti listovani na urcitem portu, ne vypnuti nebo odpojeni PC
>od site.
pokud nikdo neposloucha na danem portu, musi dany server na zadost o navazani spojeni odeslat info o tom, ze spojeni neni mozne navazat (tusim ze se to projevi jako Connection refused error kod). A k zadnemu problemu s preplneni otevrenymi sockety na klientske stanici nemuze dojit.
Jestlize server neodesila info o tom, ze je dany port neobsazeny, pak jen z techto duvodu:
1) nejede na nem TCP/IP nebo je server vypnuty, atd
2) spojeni zahodil firewall nastaveny tak, aby vubec na dany pokus nereagoval
3) server ma blbe implementovany TCP/IP
Jinymi slovy: funkcni ping by mel (krome pripadu s firewallem) postacovat k detekci chodiveho stavu serveru (je jedno zda Tvoje aplikace na nem bezi ci ne)
Zdravi
D. Toman
Optimalizacia kodu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 18.8.1999 09:32:18
>----------
> >Na CD posledniho Chipu (8/1999) je program Shrink, o kterem pisou:
> >Shrink
> >Program pro redukci velikosti programu...
>
*** Neni tam prosim Te nejaka URL ? Ja to CD totiz nemam.> >Co mne nastvalo a na co si dejte pozor:
> >http://freeweb.coco(tec)cz/jpolak/cernalistina/
>
>
*** K te Komercni pojistovne, co je uvedena na Tve cerne listine:
Neni to uplne totez, ale moje sestra chtela prostrednictvim
Komercni banky prodat akcie, ale sly hrozne dolu, takze se jejich
prodej neuskutecnil, ale hned druhy den, co dostala domu info
o tom, ze tedy prodany nebyly byl u ni doma(!) naprosto cizi
clovek, a ze by pry ty jeji akcie odkoupil... Takze nevim, odkud
vedel, ze ty akcie ma, ze je chce prodat a ze prodany nebyly :-(
Dobra.Modulo 11 atd
[*] Burger, Tomas <tomas.burger(zv)sap-ag.de> - 18.8.1999 09:36:44
Rodne cislo je jednoduche...
Pokud je formatu rrmmddxxxx, pak musi platit, ze
1. 01 <= mm <= 12 or 61 <= mm <= 72
2. 01 <= dd <= pocet dni mesice mm
3. rrmmddxxxx mod 11 = 0
Pak jeste z prvnich dvou xx je poznat okres, ale to neni presne, protoze,
kdyz v jednom okrese dojdou rodna cisla (je jich konec koncu na kady den a
okres jen 8-9), tak si pujcuji od vedle... Ale vice mene plati, ze rodaci z
jednoho okresu maji prvni dve xx stejna...
Tomas
ps. Ted jsem hledal na inetu nekde popis vypoctu kontrolni cislice pro
carove kody a nenasel jsem nic (vzdycky jen pisou "...is calculated by
special algoritmus", ale algoritmus nikde... :-)) Cetl jsem to kdysi v
nejake knizce, ale kde je ji konec...?
-----Original Message-----
From: Milan Bla�ek [mailto:mbsint(zv)telecom(tec)cz]
Sent: Dienstag, 17. August 1999 22:08
To: delphi-l(zv)fwd(tec)cz
Subject: Modulo 11 atd
Zna prosim nekdo proceduru na ruzna vypocty MODULO jako je
Rodne cislo, Bankovni ucet, ICO, carovy kod atd.
Diky Milan Blazek Sledovani aplikaci ve Win (2)
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 18.8.1999 09:55:54
Tady mi vypadlo jeste Mrkvo$rot :
\\HKEY_xxx\SOFTWARE\Microsoft\Windows\...
^^^^^^^^^
Dobra.
> ----------
> > 1: Jak spustit mou aplikaci pri startu Win tak aby odkaz na ni nebyl
> v
> > Autoexec.bat, Win.ini ani spustit pri startu. Jestli je pouze jedina
> > cesta dat ji do registru tak kde a jak ji tam mohu vlozit.
> >
> *** \\HKEY_LOCALMACHINE (ale i CURRENT_USER)
> SOFTWARE\WINDOWS\CURRENT_VERSION\Run
> pripadne RunService
>
> Modulo 11 atd
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 18.8.1999 10:00:09
K rodnemu cislu zen se pripocitava v mesici jen 50,
ne 60. Tedy 51<= MM <=62
Dobra.
> ----------
> Rodne cislo je jednoduche...
> Pokud je formatu rrmmddxxxx, pak musi platit, ze
> 1. 01 <= mm <= 12 or 61 <= mm <= 72
> 2. 01 <= dd <= pocet dni mesice mm
> 3. rrmmddxxxx mod 11 = 0
>
> jak otocit label
[*] Pavel �im��ek - 18.8.1999 10:22:33
-----P�vodn� zpr�va-----
Od: Petr Matejovsky <pema(zv)seznam(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. srpna 1999 9:32
P�edm�t: jak otocit label
>ahoj
>
>Nevite nekdo jak se pri tisku sestavy v QR da otocit label o 90 stupnu ???
>
>pripadne jak jinak se da otocit pismo a vytisknout (treba formular s
labelem).
>
>mam D4 a W98
>
>
>Petr Matejovsky
>pema(zv)sezmam(tec)cz
>
>
>-- http://email.seznam(tec)cz
>-- email zdarma na cely zivot
>
>
Tady jsem ze sveho stareho zdrojaku vyhrabal nastaveni fontu, ktery je
otoceny na svislo (popisuje Y-ovou osu). Bylo to uvedeno v "Pruvodci
vyvojare v Delphi", uplne v tom prvnim. To jak ma byt font otocen udavaji
vlastnosti lfEscapement a lfOrientation. Ale nevim jestli ti to k necemu
bude, netyka se to totiz QR. S tim nemam vubec zkusenosti. Pokud neco
takoveho potrebuju, delam to primo na Canvas tiskarny.
Ahoj Pavel
procedure TMyGraf.SetFontDescribeAxis(Value: TFont);
const
{ Array to represent the TLOGFONT.lfCharSet values }
CharSetArray: array[0..4] of byte = (ANSI_CHARSET, DEFAULT_CHARSET,
SYMBOL_CHARSET, SHIFTJIS_CHARSET, OEM_CHARSET);
{ Array to represent the TLOGFONT.lfWeight values }
WeightArray: array[0..9] of integer =
(FW_DONTCARE, FW_THIN, FW_EXTRALIGHT, FW_LIGHT, FW_NORMAL, FW_MEDIUM,
FW_SEMIBOLD, FW_BOLD, FW_EXTRABOLD, FW_HEAVY);
{ Array to represent the TLOGFONT.lfOutPrecision values }
OutPrecArray: array[0..7] of byte = (OUT_DEFAULT_PRECIS, OUT_STRING_PRECIS,
OUT_CHARACTER_PRECIS, OUT_STROKE_PRECIS, OUT_TT_PRECIS, OUT_DEVICE_PRECIS,
OUT_RASTER_PRECIS, OUT_TT_ONLY_PRECIS);
{ Array to represent the TLOGFONT.lfPitchAndFamily higher four-bit values }
FamilyArray: array[0..5] of byte = (FF_DONTCARE, FF_ROMAN, FF_SWISS,
FF_MODERN,
FF_SCRIPT, FF_DECORATIVE);
{ Array to represent the TLOGFONT.lfPitchAndFamily lower two-bit values }
PitchArray: array[0..2] of byte = (DEFAULT_PITCH, FIXED_PITCH,
VARIABLE_PITCH);
{ Array to represent the TLOGFONT.lfClipPrecision values }
ClipPrecArray: array[0..6] of byte = (CLIP_DEFAULT_PRECIS,
CLIP_CHARACTER_PRECIS,
CLIP_STROKE_PRECIS, CLIP_MASK, CLIP_LH_ANGLES, CLIP_TT_ALWAYS,
CLIP_EMBEDDED);
{ Array to represent the TLOGFONT.lfQuality values }
QualityArray: array[0..2] of byte = (DEFAULT_QUALITY, DRAFT_QUALITY,
PROOF_QUALITY);
var AHFont: HFont;
ALogFont: TLogFont;
JmenoFontu: array[0..lf_FaceSize - 1] of Char;
TxMetric: TTextMetric;
begin
FFontDescribeAxis.Assign(Value);
NazevOsyY.Font.Assign(FFontDescribeAxis);
NazevOsyY.Canvas.Font.Assign(FFontDescribeAxis);
with NazevOsyY do
begin
with Canvas do
begin
GetTextFace(Handle, lf_faceSize - 1, JmenoFontu); { Get the font's
name }
GetTextMetrics(Handle, TxMetric); { Fill the
TEXTMETRIC }
end;
fillChar(ALogFont, sizeof(TLogFont), 0); { Clear the contents of
ALogFont }
with ALogFont, TxMetric do
begin
lfHeight := tmHeight;
lfWidth := tmAveCharWidth;
lfEscapement := 900;
lfOrientation := 900;
lfWeight := tmWeight; {WeightArray[0]}
lfItalic := tmItalic; {ord(False)}
lfUnderline := tmUnderlined; {ord(False)}
lfStrikeOut := tmStruckOut; {ord(False)}
lfCharSet := tmCharSet; {CharSetArray[1]}
lfOutPrecision := OutPrecArray[0];
lfClipPrecision := ClipPrecArray[0];
lfQuality := QualityArray[0];
lfPitchAndFamily := PitchArray[0] or
FamilyArray[0];
StrPCopy(lfFaceName, JmenoFontu);
end;
AHFont := CreateFontIndirect(ALogFont); { Retrieve the requested font }
end;
{NazevOsyX, Y a Y2 jsou tusim TPaintBox}
NazevOsyX.Font.Assign(FFontDescribeAxis);
NazevOsyX.Canvas.Font.Assign(FFontDescribeAxis);
NazevOsyY.Font.Handle:= AHFont;
NazevOsyY.Canvas.Font.Handle:= AHFont;
NazevOsyY2.Font.Handle:= AHFont;
NazevOsyY2.Canvas.Font.Handle:= AHFont;
Recount;
Refresh;
end;
Kulaty button
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 18.8.1999 10:24:12
Kulaty mam, ale je na nem jenom Glyph a da se nastavit transparentnost
a barva pro transparenci) je to TOvalButton, mam to i se zdrojem
(freeware). Pokud bys to chtel (nebo nekdo jiny v konferenci), ozvi se
na ondrisek(zv)atlas(tec)cz
Mira
----- P�vodn� zpr�va -----
Od: Petr Brant <p.brant(zv)samo(tec)cz>
Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Odesl�no: 17. srpna 1999 14:41
P�edm�t: Kulaty button
> ******* Tuto zpravu jsem odesilal 17.8. 1999 v 8:54 a do 13:40 jeste
> nedorazila. Tak ji posilam znovu (nejedna se tedy o du-, tri- ci jinou
> -plicitu *********
>
> Ahoj,
>
> mel jsem nekde free zdrojak komponenty - kulate resp. elipticke
> tlacitko, ktere slo pokryt bitmapou, ale nemohu to zaboha najit. Najde
> se dobra duse, ktera by neco podobneho mela a mohla by mi to poslat ?
> Samozrejme na _SOUKROMY MAIL_, ne do konference. Diky predem.
>
> **************************************************
> Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
> obcas Delphi nebo Visual Basic
> **************************************************
>
>Optimalizacia kodu
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 18.8.1999 10:31:17
> -----Original Message-----
> From: Mal� Dobromil [mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Sent: Wednesday, August 18, 1999 9:32 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Optimalizacia kodu
>
>
> >----------
> > >Na CD posledniho Chipu (8/1999) je program Shrink, o kterem pisou:
> > >Shrink
> > >Program pro redukci velikosti programu...
> >
> *** Neni tam prosim Te nejaka URL ? Ja to CD totiz nemam.
>
http://www.blinkinc.com/demos.htm
Dival jsem se tam, je tam demo ke stazeni, takze to na ftp.mlp(tec)cz
nedavam. Dal bych to tam az v pripade, ze budou problemy se stahovanim
z ameriky.
Jura
-------------
Email: Jiri.Polak(zv)tconsult(tec)cz
Co mne nastvalo a na co si dejte pozor:
http://freeweb.coco(tec)cz/jpolak/cernalistina/Modulo 11 atd
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 18.8.1999 09:53:47
predmet: algoritmus, kontrola
Ahoj,
tohle jsem pouzil pro testovani platnosti ICO v aplikaci, kde je ICO ulozeno
jako string (jine kontroly spravnosti neznam)
function TdmMain.ValidateICO(sICO: string): Boolean;
var
i, k: Integer;
begin
Result := Length(sICO) = 8;
try
StrToInt(sICO);
k := 0;
for i := 2 to 8 do begin
k := k + StrToInt(sICO[9-i]) * i;
end;
k := 11 - k mod 11;
if (Copy(IntToStr(k), Length(IntToStr(k)), 1) <> Copy(sICO, 8, 1)) then
Result := False;
except
on e: EConvertError do
Result := False;
end; // try/except
if not result then
Application.MessageBox('�patn� I�O', 'Chyba', MB_OK + MB_ICONWARNING);
end; { ValidateICO }
Tom
Polak Jiri wrote:
> Zna prosim nekdo proceduru na ruzna vypocty MODULO jako je
> Rodne cislo, Bankovni ucet, ICO, carovy kod atd.
>
> Diky Milan Blazek
Chyba pri otevreni table
[*] Riedel Petr <Petr.Riedel(zv)ipbpojistovna(tec)cz> - 18.8.1999 11:04:29
Dobry den,
jak zjistit duvod neotevreni pdox tabulky? Mam namysli jestli to je z
duvodu spatne zadaneho hesla nebo ji exkluzivne pouziva nekdo jiny nebo
ze vubec neexistuje.
S pozdravem
Petr Riedel
mailto:petr.riedel(zv)ipbpojistovna(tec)cz
Modulo 11 atd
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 18.8.1999 11:21:11
> Rodne cislo je jednoduche...
> Pokud je formatu rrmmddxxxx, pak musi platit, ze
> 1. 01 <= mm <= 12 or 61 <= mm <= 72
> 2. 01 <= dd <= pocet dni mesice mm
> 3. rrmmddxxxx mod 11 = 0
Zde je treba dat velky pozor v deklarovani typu . Ma-li byt aplikace Y2K
ready, pak xxxx musi byt string nebot posledni x bude od pristiho roku
urcovat stoleti narozeni. Asi tak:
if rr>53 & copy(xxxx,4,1)=' ' then stoleti:=18
if rr<54 & copy(xxxx,4,1)<>' ' then stoleti:=20
else stoleti:= 19
Tudiz pro vypocet modu je treba pouzit pocitanou promennou ze dvou casti
rodneho cisla.
===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
... Windows nemohou byti virem, nebot virus je napsan inteligentne, neco
dela a je zcela zdarma :-)Ikony spustenych aplikaci
[*] Radim Ludv�k <radiml(zv)bnsoft(tec)cz> - 18.8.1999 11:33:00
Zdravim,
potrebuji ve svem programu zobrazit ikony a nazvy spustenych programu. Nazvy jsem zjistil pomoci komponenty TFNugryShellNotify. Tim padem mam i handly hlavnich oken aplikaci, ale jak mam z toho dostat ty ikony? Nevite nekdo?
Radim Ludv�k
BN Soft Znojmo
radiml(zv)bnsoft(tec)cz
Lokalizator
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.8.1999 11:05:40
Puvodni zprava, kterou napsal voltrr1.epr(zv)mail.cez(tec)cz dne 18 Aug 99,:
> > > by mal dokazat kompilovat aj DLL. Daju sa odtial stiahnut aj zdrojove
> > Diky, zda se, ze by to mohlo byt presne co jsem hledal. Tedy az
>
> A co se vam nezamlova na tom jak dela .dll knihovny Delphi ??
>
> Co je na nich spatne ??
:))) On potrebuje vytvorit DLL svym programem bez pomoci Delphi...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Modulo 11 atd
[*] PacakP(zv)tescosw(tec)cz - 18.8.1999 12:07:18
Bankovni ucet se pocita takhle (snad to staci v PL/SQL, jinak bych to musel
prepisovat)
Vstupni bod je KONTROLUJ_UCET a argumentem je cislo uctu bez lomitka a kodu
banky
Petr
PACKAGE BODY PC000011 IS
--
-- .
PROCEDURE kontroluj_ucet(
m_value IN OUT VARCHAR2 )
IS
--
--
pozice_1 NUMBER; -- pozice prvni pomlcky
--
--
pozice_2 NUMBER; -- pozice druhe pomlcky
--
--
temp_string VARCHAR2(20);
BEGIN
pozice_1 := INSTR(m_value, '-', 1, 1);
pozice_2 := INSTR(m_value, '-', 1, 2);
IF
pozice_1 = 0 THEN
temp_string := LPAD(m_value, 16, '0');
ELSIF
pozice_2 = 0 THEN
BEGIN
IF(LENGTH(m_value) - pozice_1) < 5 THEN
temp_string := LPAD(REPLACE(m_value, '-', ''), 16, '0');
ELSE
temp_string := LPAD(SUBSTR(m_value, 1, pozice_1 -1), 6, '0') ||
LPAD(SUBSTR(m_value, pozice_1 + 1), 10, '0');
END IF;
END;
ELSE
temp_string := LPAD(SUBSTR(m_value, 1, pozice_1 -1), 6, '0') ||
LPAD(REPLACE(SUBSTR(m_value, pozice_1 + 1), '-', ''), 10, '0');
END IF;
verify_ucet('0000'|| SUBSTR(temp_string, 1, 6));
verify_ucet(SUBSTR(temp_string, 7));
m_value := SUBSTR(temp_string, 1, 6) || '-'|| SUBSTR(temp_string, 7);
END;
--
-- .
PROCEDURE verify_ucet(
i_value VARCHAR2 )
IS
--
--
temp_suma NUMBER := 0;
BEGIN
FOR i IN 0 .. 9 LOOP
temp_suma := temp_suma + SUBSTR(i_value, 10 - i, 1) * MOD(POWER(2, i),
11);
END LOOP;
IF MOD(temp_suma, 11) <> 0 THEN
sys_error.report('000INIT004');
END IF;
END;
END PC000011;Lokalizator
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.8.1999 11:08:50
Puvodni zprava, kterou napsal Zbysek Hlinka dne 17 Aug 99,:
> Blee, to vim, ze to je PE format. :-) Ale jak ho poskladat
> dohromady vlastnimi silami (a hlavne bez chyb)? To co delam pod
> NT neni skladani DLL, ale vymena resourcu v hotovem programu
> knihovnimi funkcemi.
No vsak jo, to jsem myslel. A pridat resource neumis?
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Lokalizator
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 18.8.1999 12:24:19
Petr Fejfar wrote:
> > sam sebe. Potreboval bych vsak vyresit problem, jak vyrobit dll
> > knihovnu (bez vykonneho kodu, staci s resources) bez nutnosti
> > pouzivat kompilator treti strany.
>
> nejak mi unika, kdo jsou ty prvni dve strany :-)
>
> 1. strana ???
> 2. strana ???
> 3. zejmena kdokoli
Dobre, tak treba druhe strany. Prvni strana jsem ja. :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
ADO Express
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 18.8.1999 12:24:19
Marian Jonas wrote:
> Je tu nekdo kdo uz vyzkousel subj. , tzn. predelat nejaky projekt ve
> starsi verzi Delphi na ADO komponenty ? Zajimaji mne i prvni dojmy z
> tohoto produktu. Jsou u subj. i zdrojove texty ? A hlavne ma to vubec
> cenu kupovat ? (Tim samozrejme nemyslim jestli to ukrast nebo ne,
> myslim tim jestli neni lepsi zustat u BDE)
ADO komponenty jako takove jsem jeste dukladne nezkousel. Ale
po zkusenostech s OLE DB prechod vrele doporucuji, zejmena pro
praci s MS SQL 7 (tam je dokonce BDE nevhodne). Jakmile se
rozsiri Windows 2000, odpadnou problemy i s instalaci prostredi, to
znamena, ze program a databaze se nasadi na pocitac a pojede
to. Zadne starosti s instalaci a konfiguraci molocha BDE.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Optimalizacia kodu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 18.8.1999 12:24:20
Martin 'Milo' Milesich wrote:
> Mam takyto problem. Urobil som program ktoreho velkost exe je 1250 Kb
> a pri spusteni zabera v pameti 4 MB!! Co robit aby nezaberal v pameti
> tolko miesta? Pomohla by mi optimalizacia kodu? Skusal som take veci
> ako nahradit TPanel TBevel -om. Som niekde cital ze to pomoze, ale moc
> som si to nevsimol. Co robite vy pre zmensenie obsadenia pamete
> programom? Ten program nerobi nic zlozite tak neviem preco je v pameti
> taky velky.
Hodne se da usetrit na tom, ze vsechna okna, u kterych to jde, se
nezavadeji pri statru programu, ale az dynamicky, kdy jsou
zapotrebi. Tedy, nahazet vse co jde v Project / Oprions / Forms z
okna Auto-create do okna Available. No a pak je treba jeste upravit
volani tech oken a zajistit jejich alokaci a pri ukonceni naopak
dealokaci.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Lokalizator
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 18.8.1999 12:24:20
Petr Vones wrote:
> No, sice jsem to zatim nikdy nedelal, ale zase to nevypada az tak
> silene. Pokud ti jde JEN o resource bez jakehokoliv kodu, a tu
> knihovnu pak budes zavadet pomoci LoadLibraryEx s parametrem
> LOAD_LIBRARY_AS_DATAFILE, tak by mozna stacilo vytvorit v PE formatu
> jednu jedinou sekci - ".rsrc". V opacnem pripade pak bude LoadLibrary
> hledat v DLLce DllMain, takze pri rucni vyrobe PE by jsi jeste musel
> zavest sekci kodu a do ni alespon tuhle funkci, brrrr. Muselo by se to
> samozrejme odzkouset. Castecne jsem rozebirani PE-EXE delal, navic na
> MSDN mas i jeho popis.
Delphi to zavadi takto, ve funkci System.LoadResourceModule.
Takze tohle by bylo v pohode. Ceckari by si to museli obslouzit
stejne, takze ani tohle by nemel byt problem. Nez bych se pustil
do toho sestavovani sam, prece jen dam prednost jiz hotovemu a
odladenemu postupu.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Delphi 5 beta - namet na horor
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 18.8.1999 12:24:20
Ing. Jaroslav ke �k wrote:
> Ziskal jsem moznost vyzkouset beta-verzi Delphi 5. Po nekolika dnech
> se z toho stala moje nocni mura. Nevim, kam takovy software zaradit.
> Je to vir, mor, nebo co? Uz jsem si s touto legraci "zaneradil" ctyri
[atd...]
Zajimave, ja mam take D5 betu, ale asi patrne jinou verzi, protoze
instalace byla bez licence, funguje mi to v pohode na NT i na 98.
Ale je tam tolik zavaznych chyb, ze jsem zvedav, jestli je staci do
vydani nove verze odstranit. Mno, optimisticky doufejme, ze ano,
ze nepujdou ve stopach D4.
Tenhle dlouhy dopis by si mel dukladne precist i pan Kubat a
poslat ho do Ameriky. Jestli Inprise zavede popsany zpusob
licencovani, tak vazne asi take prejdu jinam. Moje trpelivost ma sve
hranice. :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Testovani hodnoty Sender-konec
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 18.8.1999 12:24:41
----- P�vodn� zpr�va -----
Od: Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 18. srpna 1999 8:59
P�edm�t: RE: Testovani hodnoty Sender
> > -----Original Message-----
> > From: Petr Sadovsky [mailto:petr(zv)slunce(tec)cz]
> > Sent: Wednesday, August 18, 1999 8:12 AM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: Re: Testovani hodnoty Sender
> >
> >
> To z hlavy nevim, zkusil ses divat do helpu?
V helpu byl priklad u Sendru : if Sender = Button1 then ... v metode
Button1.Click ,takze to co jsi mi vysvetloval.
Dekuji vsem za rady.Uz to nejak vyvrbim k obrazu svemu ;-)
Jeste jednou diky a preji pekny den.
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
Dynamicke nahrani DLL
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 18.8.1999 12:26:54
Haj hou!
Podivej se do helpu na API funkce LoadLibrary a GetProcAddress.
Potrebuji nahrat dll pri behu programu. Fungovani jako plug-in.
Modulo 11 atd
[*] JAHODA Jozef <jahoda(zv)asset.sk> - 18.8.1999 12:42:24
> Bankovni ucet se pocita takhle (snad to staci v PL/SQL, jinak bych to
> musel
> prepisovat)
> Vstupni bod je ivABO a argumentem je cislo uctu bez lomitka a kodu
> banky
Navratova hodnota je obKontrolka
> JJ
>
>
PROCEDURE TEST_MODULO11(ivABO IN VARCHAR2, obKontrolka OUT BOOLEAN) is
nI NUMBER;
nS NUMBER;
nLength NUMBER;
sABO CHAR(1);
vB VARCHAR2(10) := '6379:58421';
sB CHAR(1);
/* Funkcia generujuca ordinarnu hodnotu znaku */
FUNCTION OrdChar(ivCharacter IN CHAR) RETURN NUMBER IS
BEGIN
IF ivCharacter = '-' THEN RETURN(45);
ELSIF ivCharacter = '.' THEN RETURN(46);
ELSIF ivCharacter = '/' THEN RETURN(47);
ELSIF ivCharacter = '0' THEN RETURN(48);
ELSIF ivCharacter = '1' THEN RETURN(49);
ELSIF ivCharacter = '2' THEN RETURN(50);
ELSIF ivCharacter = '3' THEN RETURN(51);
ELSIF ivCharacter = '4' THEN RETURN(52);
ELSIF ivCharacter = '5' THEN RETURN(53);
ELSIF ivCharacter = '6' THEN RETURN(54);
ELSIF ivCharacter = '7' THEN RETURN(55);
ELSIF ivCharacter = '8' THEN RETURN(56);
ELSIF ivCharacter = '9' THEN RETURN(57);
ELSIF ivCharacter = ':' THEN RETURN(58);
ELSIF ivCharacter = ';' THEN RETURN(59);
ELSIF ivCharacter = '<' THEN RETURN(60);
ELSIF ivCharacter = '=' THEN RETURN(61);
END IF;
END;
BEGIN
nS := 0;
nLength := LENGTH(ivABO);
FOR nI IN 1..nLength LOOP
sABO := SUBSTR(ivABO, nI, 1);
sB := SUBSTR(vB, nI, 1);
nS := nS + (OrdChar(sABO)-48)*(OrdChar(sB)-48);
END LOOP;
IF MOD(nS,11)=0 THEN obKontrolka := TRUE;
ELSE obKontrolka := FALSE;
END IF;
EXCEPTION
WHEN OTHERS THEN
obKontrolka := FALSE;
END;Lokalizator
[*] Milan N�mec <nemec(zv)goldcard(tec)cz> - 18.8.1999 12:54:44
----- Original Message -----
From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, August 17, 1999 7:40 PM
Subject: Re: Lokalizator
> Milan N�mec wrote:
>
> > Napad je to docela dobrej, at si to kazdej lokalizuje sam.
> >
> > Asi by bylo nejlepsi, aby se retezce daly do programu
> > natahnout z nejakeho textaku, tak jako je to
> > ve Windows Commanderovi *.LNG, *.MNU.
> > A pak by stacilo mit nejakej nastroj, kterym to lokalizovat.
> >
> > Takhle by to neslo?
>
> :-) Muj Lokalizator je o necem jinem. Ten vybere resourcy (tedy i
> formulare) z programu, necha te je zlokalizovat a pak je nacpe
> zpatky (mozne jen pod NT) nebo udela prislusny externi soubor s
> lokalizacemi, ktery si program napsany v Delphi umi natahnout.
> Oproti reseni napr. u WC to ma napriklad tu vyhodu, ze muzes
> nahradit i obrazky a popresunovat komponenty, kdyz je prelozeny
> text prilis dlouhy. To ti WC neudela.
>
>
Kdyz umis vycucnout resourcy a nacpat je zpatky, proc potrebujes
delat vlastni dll?
To mozna bude to, co tady vetsina nepochopila.
Milan
Napojen� na DataModul p�es DLL
[*] Vodicka, David (CAP, GCF) <David.Vodicka(zv)gecapital(tec)com> - 18.8.1999 12:56:27
Jak se pripojit do DataModulu, ktery je soucasti DLL.
Zkousime:
Pripojime se na DLL,
funkce z DLL nam vrati TDataModule,
zapiseme do DBGridu.DataSource
a jak zavolame ShowModal formulare tak vyhlasi chybu "InvalidPointer".
David Vodi�ka
socket a problem s connectem na server
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 18.8.1999 13:17:24
jo to mi je celkem jasne ja dostanu sice hlasku connection refused (pokud na
danem serveru nenasloucha moje aplikace), ale presto dochazi k zahlceni
vsech portu, kdyz dam (netstat -a) tak vidim ze porty pres ketere se snazil
klient naconnectovat jsou listening ?
tj dostanu neco takoveho
195.75.64.14:1051 listening (tady presne nechapu proc tam je zrovna
listening ?? z by ten port po vyslani pozadavku na spojeni zacal naslouchat
a potom po connection refused chybe zapomela komponenta za sebou uklidit ? )
195.75.64.14:1052 listening
195.75.64.14:1053 listening
atd.
asi je chyba nekde v komponente (psal jsem ji sam tak je to docela dost
mozne, pravda je ovsem to ze kdyz jsem toho clienta zkousel u nas na siti
tak nam prestal jit internet protoze to zhltilo vsechny volne porty na proxy
serveru :)) )
----- P�vodn� zpr�va -----
Od: Dalibor Toman <dtoman(zv)fortech(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 18. srpna 1999 9:29
P�edm�t: Re: socket a problem s connectem na server
>
> >jo ale PING otestuje zda existuje server s urcitou IP, ne zda nejaka
> >aplikace skutecne listuje na tomto portu. Tim shozenim serveru jsme mel
na
> >mysli pouze stopnuti listovani na urcitem portu, ne vypnuti nebo odpojeni
PC
> >od site.
>
> pokud nikdo neposloucha na danem portu, musi dany server na zadost o
navazani spojeni odeslat info o tom, ze spojeni neni mozne navazat (tusim ze
se to projevi jako Connection refused error kod). A k zadnemu problemu s
preplneni otevrenymi sockety na klientske stanici nemuze dojit.
> Jestlize server neodesila info o tom, ze je dany port neobsazeny, pak jen
z techto duvodu:
> 1) nejede na nem TCP/IP nebo je server vypnuty, atd
> 2) spojeni zahodil firewall nastaveny tak, aby vubec na dany pokus
nereagoval
> 3) server ma blbe implementovany TCP/IP
>
> Jinymi slovy: funkcni ping by mel (krome pripadu s firewallem) postacovat
k detekci chodiveho stavu serveru (je jedno zda Tvoje aplikace na nem bezi
ci ne)
>
> Zdravi
> D. Toman
>
>
>Problem s prevodem STRING na REAL
[*] Luk� Gallina - 18.8.1999 13:25:35
Panowe a damy,
mam maly problem.
Delphi 2, WinNT 4 SP3
Z databaze ucetnictvi si preberu do swe aplikace do Paradoxu data v ciselne podobe (mam za to, ze je to REAL),
prewedu to a zobrazim do TEdit. Tam to uzivatel zmeni a ja to potrebuju prewedst zpet do REAL. Pouziwam na to fci Val a w ni je potiz. W te databazi se pouciwaji cisla we formatu 14,59 a on mi to prewede jako 14.00. Ale ja tam nemuzu pracowat s "." ale ",". Poradte mi, jak to prewedst. Databaze to sezere jen jako 14,59 a Val mi nedowoli "," ale chce ".".
Dik.
Lukas Gallina
IP Adresa & detekce hesla ss.
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 18.8.1999 13:28:08
no tak to tam mas asi trojskeho kone, myslim ze jinam nez na sdilene slozky
se ti nikdo dostat nemuze (jedine pres trojskeho kone, ktery nasloucha na
urcitem portu a nekdo se na nej pripoji a ovlada tvuj pocitac dalkove).
Pokud se jedna opravdu o trojskeho kone slo by to zjistit tak, ze si udelas
v Delphi nahrazku prikazu netstat, ktery ti zobrazi vsechny spojeni na tvuj
pocitac. Myslim ze na to existuje i nejaka komponenta.
cau
----- P�vodn� zpr�va -----
Od: <tmara(zv)itsys(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 18. srpna 1999 8:11
P�edm�t: IP Adresa & detekce hesla ss.> Hezky den,
> omlouvam se za nejasne formulovanou otazku...
> N�kdo se pokousi dostat se mi do pocitadla mimo sdilenych slozek (a asi se
> mu to jiz povedlo) a ja bych rad vedel, kdo to je...
> NetWatch je hezka v�c, ale ja bych si chtel udelat sv�j programek... :o)
> Proto se ptam, jak lze ziskat IP adresu pocitace tohoto "lumpa", pripadne
> jestli se o nem (pocitadle) daji zjistit nejake dal�� informace...aby se
mi
> pak podarilo tohoto �lov�ka snaze najit...
>
> Mam Woknows 98 a Delphi 4 Prof.
>
> Je�t� jednou se omlouvam.
>
> Thx...ByE.
>
> P.S. existuje nejaka moznost, jak detekovat a zapisovat do souboru vsechny
> pokusy (uspesne i neuspesne) o uhadnuti hesla ve screensaveru?Chyba pri otevreni table
[*] Ren� Otisk - 18.8.1999 13:29:43
Pokud to nemas v bloku try...except..end, tak by ti to melo hlasit chybu.
Jinak ti text chyby vyvola, kdyz das za except
on E: Exception do {napr.ShowMessage(E.Message);...}
> jak zjistit duvod neotevreni pdox tabulky? Mam namysli jestli to je z
> duvodu spatne zadaneho hesla nebo ji exkluzivne pouziva nekdo jiny nebo
> ze vubec neexistuje
TIFF format
[*] Zden�k Moravec <zmoravec(zv)klet(tec)cz> - 18.8.1999 11:36:58 -0000
Hezky den,
zadne komponenty na TIFF nemam, ale format TIFF 6.0 je dobre popsan v dokumentu
na FTP u Adobe (mohu zaslat - 365kB)
ftp://ftp.adobe.com/pub/adobe/devrelations/devtechnotes/pdffiles/tiff6.pdf
Pokud umite zobrazit prvni obrazek ze souboru tak byty 4-6 z hlavicky (prvni
byte je oznacen 0) udavaji offset 0-te "Image file directory" (IFD), kde jsou
vlastnosti prvniho obrazku v souboru, napr. kolik ma radek a sloupcu, kolik bitu
na pixel, offset na kterym zacinaji data, atd. Prvni dva byty IFD pak udavaji
pocet 12-bytovych "Entry" a posledni "Entry" teto IFD udava prave offset dalsi
IFD, tedy vlastnosti druheho snimku, atd. Pokud zadny dalsi snimek nenasleduje
je offset roven nule.
Vetsina prohlizecu a free komponent toto asi nepodporuje, nebot podle tohoto
materialu "Baseline TIFF reader is not required to read any IFDs beyond the
first one".
Zdenek Moravec
Hvezdarna Klet
zmoravec(zv)klet(tec)cz
http:\\www.klet(tec)cz
----- P�vodn� zpr�va -----
Od: Petr Mys <Mys(zv)post(tec)cz>
Komu: Delphi forum <delphi-l(zv)fwd(tec)cz>
Odesl�no: 17. srpna 1999 11:30
P�edm�t: TIFF format
> Delphi 4, NT4
>
> Nevite nekdo jak zobrazovat vicestrankovy TIFF soubor (TIFF/F) popr. prevod
> jineho grafickeho formatu z a do TIFF. Potrebuji toto zakomponovat do
> programu napsaneho v delphi4.
>
> Predem diky
>Problem s prevodem STRING na REAL
[*] JAHODA Jozef <jahoda(zv)asset.sk> - 18.8.1999 13:56:01
> Panowe a damy,
> mam maly problem.
>
> Delphi 2, WinNT 4 SP3
>
> Z databaze ucetnictvi si preberu do swe aplikace do Paradoxu data v
> ciselne podobe (mam za to, ze je to REAL),
> prewedu to a zobrazim do TEdit. Tam to uzivatel zmeni a ja to potrebuju
> prewedst zpet do REAL. Pouziwam na to fci Val a w ni je potiz. W te
> databazi se pouciwaji cisla we formatu 14,59 a on mi to prewede jako
> 14.00. Ale ja tam nemuzu pracowat s "." ale ",". Poradte mi, jak to
> prewedst. Databaze to sezere jen jako 14,59 a Val mi nedowoli "," ale chce
> ".".
>
vyskusaj DecimalSeparator := ',';
> Dik.
>
>
> Lukas Gallina
Adobe PDFwriter
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 18.8.1999 14:02:37
Nemate nekdo alespon shareware verzi Adobe PDFWriter CZ?!!!
Potrebuji prevest 3 dokumenty.Mam pouze anglickou verzi pro WinNT a ta neumi
spravne prevest cestinu.
Diky
Jirka Virt
Napojen� na DataModul p�es DLL
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 18.8.1999 14:03:19
Haj hou!
>Jak se pripojit do DataModulu, ktery je soucasti DLL.
>
>Zkousime:
>Pripojime se na DLL,
>funkce z DLL nam vrati TDataModule,
>zapiseme do DBGridu.DataSource
>a jak zavolame ShowModal formulare tak vyhlasi chybu "InvalidPointer".
Dulezita vec, jaka verze Delphi ?Jak spustit MySQL?
[*] Milan N�mec <nemec(zv)goldcard(tec)cz> - 18.8.1999 14:08:31
Zkouseli jste MySQL ?
Spokojenost / nespokojenost ?
Jak se spusti SQL server?
Instalace probehla bez problemu,
ale nevim jak ho spustit.
Zkouseli jste taky PostgreSQL?
Milan
Problem s prevodem STRING na REAL
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 18.8.1999 14:09:50
Zjisti si co je v promenne DecimalSeparator, obsah si zap
amatuj, dosad co potrebujes, proved konverzi a vrat tam p
uvodni obsah.
=============================
ing. Jan
Fiala fiala(zv)infos(tec)cz
Member of Out o
f business group CR
=============================
---
-- P�vodn� zpr�va -----
Od: Luk� Gallina Pan
owe a damy,
mam maly problem.
Delphi 2, WinNT 4 S
P3
Z databaze ucetnictvi si preberu do swe aplika
ce do Paradoxu data v ciselne podobe (mam za to, ze je to
REAL),
prewedu to a zobrazim do TEdit. Tam to uzivate
l zmeni a ja to potrebuju prewedst zpet do REAL. Pouziwam
na to fci Val a w ni je potiz. W te databazi se pouciwaj
i cisla we formatu 14,59 a on mi to prewede jako 14.00. A
le ja tam nemuzu pracowat s "." ale ",". Poradte mi, jak
to prewedst. Databaze to sezere jen jako 14,59 a Val mi n
edowoli "," ale chce ".".
Dik.
Lukas Gallina
Adobe PDFwriter
[*] Mik Radim <mik(zv)oce(tec)cz> - 18.8.1999 14:25:30
K prevodu ceskeho textu se vyuziva Adobe Distiller. To je vytisknu na
Postscriptove tiskarne dokument do souboru a pres Distiller z toho
udelam PDF. ( Jinak www.grafika(tec)cz :=) )
> Potrebuji prevest 3 dokumenty.Mam pouze anglickou verzi pro WinNT a
> ta neumi
> spravne prevest cestinu.
>
> ADO
[*] Petr Reichl <meap(zv)seznam(tec)cz> - 18.8.1999 15:06:06
Je nejaka moznost jak pristupovat k databazim pres ADO ci rovnou pres ODBC a
nepotrebovat k tomu BDE?
Zn. Delphi 4 Professional
--
Petr Reichl
E-mail: reichl(zv)seznam(tec)cz
Problem s prevodem STRING na REAL
[*] CHMEL Karel, Mgr. <kchmel(zv)csob(tec)cz> - 18.8.1999 15:09:18
Jeste existuje funkce StrToFloat, ta by mohla ten problem vyresit
Karel
-----P�vodn� zpr�va-----
Od: Luk� Gallina [mailto:johndelphi(zv)atlas(tec)cz]
Odesl�no: 18. srpna 1999 13:26
Komu: Delphi konference
P�edm�t: Problem s prevodem STRING na REAL
Panowe a damy,
mam maly problem.
Delphi 2, WinNT 4 SP3
Z databaze ucetnictvi si preberu do swe aplikace do Paradoxu data v ciselne
podobe (mam za to, ze je to REAL),
prewedu to a zobrazim do TEdit. Tam to uzivatel zmeni a ja to potrebuju
prewedst zpet do REAL. Pouziwam na to fci Val a w ni je potiz. W te databazi
se pouciwaji cisla we formatu 14,59 a on mi to prewede jako 14.00. Ale ja
tam nemuzu pracowat s "." ale ",". Poradte mi, jak to prewedst. Databaze to
sezere jen jako 14,59 a Val mi nedowoli "," ale chce ".".
Dik.
Lukas Gallina
Delphi 5 beta - namet na horor
[*] Ing. Jaroslav Skerik <jaro(zv)sinea(tec)cz> - 18.8.1999 15:16:25
>:-) Uvaha je takova, ze takto drahy program by nemel obsahovat
>zavazne chyby (jako tomu bylo u verze 4). Zaplaty by mely
>osetrovat jen chyby drobne, nefatalni. Na tom trvam
>nekompromisne, nebo je pak treba jit s cenou rapidne dolu.
---
Cenu verze standard i prof. ja nepova�uji za p�ehnanou (zejm�na po��t�no v
$)
Nevim jake zasadni chyby v D4 mas na mysli.
>
>Huh, to mi spadl kamen ze srdce. Nicmene kdyz to davaji do bety,
>je to podezrele. Jako ochrana je myslim vice nez postacujici
>60denni platnost.
---
V tom je prave ta potiz. Registrace vzdy probehla, ale po kratkem
case prestala fungovat ta 60-tidenni lhuta a na pricinu jsem neprisel.
>
>Myslim, ze nejlepsi ochranou by byla prizniva zmena licencni
>politiky. Zejmena na takove veci, jako jsou nativni linky, MIDAS a
>IB. I kdyz obavam se, ze pokud by znovuzavedli jednu volnou
>licenci pro IB jako tomu bylo v D1, ze prijdou s krizkem po funuse,
>protoze MSDE je jednoznacne vyhodnejsi a myslim, ze timhle
>smerem se uz orientovalo hodne vyvojaru. Vubec se domnivam, ze
>zrusenim jedne volne licence na IB prisel Inprise o hromadu penez.
>Ja jsem napriklad na tom postavil program (v Delphi 1), a kdo by
>chtel sit, dokoupil by si prislusnou licenci na IB. Mali zakaznici by
>meli licenci v cene programu. Takhle me vsak natolik nastvali, ze
>jsem IB opustil z duvodu nevypocitatelnosti budouciho vyvoje, a
>musel jsem predelat program na Paradox a MS SQL (protoze tohle
>meli zakaznici uz i z jinych duvodu). Kdyz jsem se naucil s MS
>SQL delat, tak po vydani MSDE uz neni nejmensi duvod menit
>databazi - a jeste spise s ohledem na OLE DB. Takze penize,
>ktere mohl mit Inprise, dostane ted Microsoft. Takovy je zivot. :-) U
>Inprise neumeji myslet strategicky do budoucna a pokazili si
>podnikatelsky zamer. :-))
---
Na to mam podobny nazor.
Prima konektivita v D5 by ovsem mohla IB zase o kus zvyhodnit.
Lokalni verze se nyni prodava neco kolem 2.000, coz nen� mnoho.
Presto si mysl�m, �e by Inprise vydelal vice, kdybu tu lok�ln� uvolnil
zcela.
Mysl�m si, ze je to nejleps� prostredek, jak zadr�pkovat vyvoj�re.
a protoze vyvoj�ri jsou zpravidla konzarvativn�, ba dokonce l�n�,
tak neradi men� servery a predel�vaj� programy.
>
>Kdyz uz jsem nakousl databaze - jsou u IB typy pro unicode
>retezce? Kdyz tak sleduji problemy s cestinou, rozhodl jsem se
>plne prejit na unicode vsude, kde se muze projevit nejaka
>diakritika. A bude po starostech i s jazykovymi drajvy.
---
Jeste jsem to neprozkoumal tak do hloubky. Dnes jsem tu trial
verzi rozchodil na starickem pomalem pentiu a vcelku mi to zatim
chodi dobre (abych to nezakriknul).
Prave zde odpada problem s jazykov�mi ovladaci
BDE a vsechny starosti s Alias. Je to mnohem jednodussi a zd� se
ze i rychlejs�. Nektere datov� operace funguj� rychleji i na
pomomalejs�m stroji, na nemz to nyni zkousim.
Velice se mi l�bi objekt TIBDataset. Konecne poradna komponenta,
ktera umi jednoduse sdruzit Select, Insert, Update a Refresh
Udelal jsem jeden zkusebni programek na drive vytvorenou databazi,
ktera je dostatecne velka a zatim jsem na zadne chyby nenarazil.
Jaro
jak otocit label
[*] Pavel Fiser <fiser(zv)iol(tec)cz> - 18.8.1999 15:17:12
Kdysi jsem nekde stahl komponentu, ktera to umela, ale ted uz ji tezko najdu.
Pravdepodobne to bylo na DSP nebo Torry.
PF
Petr Matejovsky wrote:
> ahoj
>
> Nevite nekdo jak se pri tisku sestavy v QR da otocit label o 90 stupnu ???
>
> pripadne jak jinak se da otocit pismo a vytisknout (treba formular s labelem).
>Delphi 4
[*] Jan =?iso-8859-2?Q?Uhl=ED=F8?= <jan.uhlir(zv)lf1.cuni(tec)cz> - 18.8.1999 15:19:04
Ahoj,
uz jsem resil stejny problem. Ve W95 pomohlo pripsat do souboru system.ini do
sekce display n�sledujici radek:
Busthrottle=on
Honza Uhlir
> Mam problem s Delphi 4. (Prof i C/S)
>
> Mam 3 pocitace s Windows 98 CZ a zaboha na nich nespustim D4. Instalace
> probehne v pohode, ale pri spousteni Delph to uprostred vytuhne kompletne
> pocitac. Pomuze jen tvrdej reset.
>
> Jsou to tri ruzne pocitace ale vsechny Celerony. Zkousel sem cistou
> instalaci Win98 CZ a hned Delphi a furt to samy. S3 problem to neni protoze
> aspon v jednom pocitaci je neco jinyho (Ati).
> SP2 a 3 to taky nevyresily.Ikony spustenych aplikaci
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 18.8.1999 15:30:47
Co takhle pouzit SendMessage (WM GETICON, blabla...)? Viktor
----- Original Message -----
From: Radim Ludv�k
To: Delphi Forum
Sent: Wednesday, August 18, 1999 11:33 AM
Subject: Ikony spustenych aplikaci
Zdravim,
potrebuji ve svem programu zobrazit ikony a nazvy spustenych programu. Nazvy jsem zjistil pomoci komponenty TFNugryShellNotify. Tim padem mam i handly hlavnich oken aplikaci, ale jak mam z toho dostat ty ikony? Nevite nekdo?
Radim Ludv�k
BN Soft Znojmo
radiml(zv)bnsoft(tec)cz
Import dat z *.XLS do Paradoxu bez DDE, OLE atd
[*] Peter �IRIP <psoft(zv)ke.telecom.sk> - 18.8.1999 15:41:07
>Neco na tenhle zpusob by pomohlo... (potrebujes k tomu ovsem ten Excel...
>:-) )
>
>X = CreateOLEObject("Application.Excel");
>Y = X.OpenFile("soubor.xls");
>Z = Y.Sheets(1);
>write(Y.Cells(1,1));
>Subject: Import dat z *.XLS do Paradoxu bez DDE, OLE atd
>
>
>Hledam reseni jak importovat data ze souboru *.xls do tabulky Paradox,bez
>pouziti OLE, ODBC atd.
>Nejredaji bych to resil pomoci komponety, ale i jine reseni uvitam.
Prave pracujem na komponentach, ktore bz riasili tento problem. Id eo priamy
zapis do xls suboru.
Vyhody : velmi rychle, nepotrebujes prakticky nic (Excel, OLE, DDE...).
Nevyhody : este potrebujem asi tyzden-dva na dokoncenie.
Peter.
peter(zv)psoft.sk
www.psoft.sk
Dynamicke nahrani DLL
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 18.8.1999 15:46:50
Zkus toto: Jinak pisu to z hlavy, takze nevim presne, ale nejak tak:
type TMojeProcedura=procedure (parametry:string);
var
hi : THandle;
fn : TMojeProcedura;
begin
hi := LoadLibrary(PChar('pokus.dll'));
fn := GetProcAddress(hi, 'MojeProcedura');
...
volani procedury FN
...
if not FreeLibrary(hi) then MessageDlg('nejaka
chyba',mtError,[mbYes],0);
end;
Jo a pokud potrebujes predavat stringy, muse pouzit nejaka knihovna
DelphiMM a pote davat tuto DLL take. Je lepsi si pak predavat parametry
pres PCHAR.
Petr Reichl wrote:
> Potrebuji nahrat dll pri behu programu. Fungovani jako plug-in. Muzete
> mi prosim poradit? --
> Petr Reichl
> E-mail: reichl(zv)seznam(tec)cz
socket a problem s connectem na server
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 18.8.1999 15:46:46
Mozna jestli za sebou ten soket zaviras. Zkus treba do komponenty na destroy ci
free dat:
sResult := closesocket(sHandle);
if sResult = -1 then sWsaError := WsaGetLastError;
Ja osobne delam WWW server (http://ws.pinknet(tec)cz/) a nic takoveho se mi nestalo.
Zkousel jsem i ten "netstat -a" a pise bud ESTABLISHED a to po case zmizi, nebo
TIME_WAIT asi na 5 soketu. Pokud uskutecnim pripojku, cisla soketu na TIME_WAIT
se jen posunou, ale jen jich je pet.
sula milos wrote:
> jo to mi je celkem jasne ja dostanu sice hlasku connection refused (pokud na
> danem serveru nenasloucha moje aplikace), ale presto dochazi k zahlceni
> vsech portu, kdyz dam (netstat -a) tak vidim ze porty pres ketere se snazil
> klient naconnectovat jsou listening ?
> tj dostanu neco takoveho
> 195.75.64.14:1051 listening (tady presne nechapu proc tam je zrovna
> listening ?? z by ten port po vyslani pozadavku na spojeni zacal naslouchat
> a potom po connection refused chybe zapomela komponenta za sebou uklidit ? )
> 195.75.64.14:1052 listening
> 195.75.64.14:1053 listening
> atd.
> asi je chyba nekde v komponente (psal jsem ji sam tak je to docela dost
> mozne, pravda je ovsem to ze kdyz jsem toho clienta zkousel u nas na siti
> tak nam prestal jit internet protoze to zhltilo vsechny volne porty na proxy
> serveru :)) )
>
> ----- P�vodn� zpr�va -----
> Od: Dalibor Toman <dtoman(zv)fortech(tec)cz>
> Komu: <delphi-l(zv)fwd(tec)cz>
> Odesl�no: 18. srpna 1999 9:29
> P�edm�t: Re: socket a problem s connectem na server
>
> >
> >
> > >jo ale PING otestuje zda existuje server s urcitou IP, ne zda nejaka
> > >aplikace skutecne listuje na tomto portu. Tim shozenim serveru jsme mel
> na
> > >mysli pouze stopnuti listovani na urcitem portu, ne vypnuti nebo odpojeni
> PC
> > >od site.
> >
> >
> > pokud nikdo neposloucha na danem portu, musi dany server na zadost o
> navazani spojeni odeslat info o tom, ze spojeni neni mozne navazat (tusim ze
> se to projevi jako Connection refused error kod). A k zadnemu problemu s
> preplneni otevrenymi sockety na klientske stanici nemuze dojit.
> > Jestlize server neodesila info o tom, ze je dany port neobsazeny, pak jen
> z techto duvodu:
> > 1) nejede na nem TCP/IP nebo je server vypnuty, atd
> > 2) spojeni zahodil firewall nastaveny tak, aby vubec na dany pokus
> nereagoval
> > 3) server ma blbe implementovany TCP/IP
> >
> > Jinymi slovy: funkcni ping by mel (krome pripadu s firewallem) postacovat
> k detekci chodiveho stavu serveru (je jedno zda Tvoje aplikace na nem bezi
> ci ne)
> >
> > Zdravi
> > D. Toman
> >
> >
> >Registry pod WinNT
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 18.8.1999 15:46:52
> � The service cannot open the registry key HKEY_CURRENT_USER.
> � The service can open the registry key HKEY_LOCAL_MACHINE\SECURITY.
> � The service has limited access to network resources
Diky, stacilo si vetev v registru presunout z HKEY_CURRENT_USER na
HKEY_LOCAL_MACHINE a uz to funguje. Diky moc.
Tomas Rosa, http://ws.pinknet(tec)cz/
Problem s prevodem STRING na REAL
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 18.8.1999 15:51:42
Ja pouzivam funkci StrToFloat. DecimalSeparator se da zjistit a nastavit,
popripade jej lze konvertovat primo ve stringu bezprostredne pred konverzi
do datoveho typu Real.
-----P�vodn� zpr�va-----
Od: Luk� Gallina [SMTP:johndelphi(zv)atlas(tec)cz]
Odesl�no: 18. srpna 1999 13:26
Komu: Delphi konference
P�edm�t: Problem s prevodem STRING na REAL
Panowe a damy,
mam maly problem.
Delphi 2, WinNT 4 SP3
Z databaze ucetnictvi si preberu do swe aplikace do Paradoxu data v ciselne
podobe (mam za to, ze je to REAL),
prewedu to a zobrazim do TEdit. Tam to uzivatel zmeni a ja to potrebuju
prewedst zpet do REAL. Pouziwam na to fci Val a w ni je potiz. W te
databazi se pouciwaji cisla we formatu 14,59 a on mi to prewede jako 14.00.
Ale ja tam nemuzu pracowat s "." ale ",". Poradte mi, jak to prewedst.
Databaze to sezere jen jako 14,59 a Val mi nedowoli "," ale chce ".".
Dik.
Lukas Gallina <<Soubor:
ATT00006.htm>>
SQL Server 7 - DateTime
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 18.8.1999 15:52:04
Nechci te strasit, ale mam takovy pocit, ze nativni link k SQL 7 v D4 neni zcela
v poradku. DBLIB uz totiz neni v SQL7 prilis podporovan a Borlandi snad meli
vydat (nebo uz vydali?) nejakou opravu...
Mac
Josef Ondruch wrote:
> Hezky den,
> M�m probl�m s prechodem z MS SQL Servru 6.5 na 7.0
> Prostredi : NT4, Delphi4 a MS SQL Server 7. Pouzivam nativni ovladac MSSQL.
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Problem s prevodem STRING na REAL
[*] Pavel �im��ek - 18.8.1999 15:54:45
Pouzij funkci StrToFloat. Ta pouziva takovy oddelovac desetinnych mist jaky je nastaven ve Windows v Nastaveni / Ovladaci panely / Mistni nastaveni / Cisla.
Ahoj Pavel
-----P�vodn� zpr�va-----
Od: Luk� Gallina <johndelphi(zv)atlas(tec)cz>
Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
Datum: 18. srpna 1999 15:31
P�edm�t: Problem s prevodem STRING na REAL
Panowe a damy,
mam maly problem.
Delphi 2, WinNT 4 SP3
Z databaze ucetnictvi si preberu do swe aplikace do Paradoxu data v ciselne podobe (mam za to, ze je to REAL),
prewedu to a zobrazim do TEdit. Tam to uzivatel zmeni a ja to potrebuju prewedst zpet do REAL. Pouziwam na to fci Val a w ni je potiz. W te databazi se pouciwaji cisla we formatu 14,59 a on mi to prewede jako 14.00. Ale ja tam nemuzu pracowat s "." ale ",". Poradte mi, jak to prewedst. Databaze to sezere jen jako 14,59 a Val mi nedowoli "," ale chce ".".
Dik.
Lukas Gallina
ADO Express
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 18.8.1999 16:09:01
Mame jednu aplikaci s pouzitim ADO a MS SQL 7 a spokojenost...Pouzivame
komponenty Adonis s kombinaci primeho volani ADO...
Mac
Marian Jonas wrote:
> Je tu nekdo kdo uz vyzkousel subj. , tzn. predelat nejaky projekt ve
> starsi verzi Delphi na ADO komponenty ?Zajimaji mne i prvni dojmy z
> tohoto produktu. Jsou u subj. i zdrojove texty ?A hlavne ma to vubec
> cenu kupovat ? (Tim samozrejme nemyslim jestli to ukrast nebo ne,
> myslim tim jestli neni lepsizustat u BDE)
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
ADO
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 18.8.1999 16:11:43
http://www.winsoft.sk - komponenty Adonis nebo treba OLE DB na
Delphree..+ mnoho dalsich...
Mac
Petr Reichl wrote:
> Je nejaka moznost jak pristupovat k databazim pres ADO ci rovnou pres
> ODBC anepotrebovat k tomu BDE?
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
Napojen� na DataModul p�es DLL
[*] Vodicka, David (CAP, GCF) <David.Vodicka(zv)gecapital(tec)com> - 18.8.1999 16:14:29
Zkousime to v Delphi4/ClientServer a do budoucna Delphi5
Haj hou!
>Jak se pripojit do DataModulu, ktery je soucasti DLL.
>
>Zkousime:
>Pripojime se na DLL,
>funkce z DLL nam vrati TDataModule,
>zapiseme do DBGridu.DataSource
>a jak zavolame ShowModal formulare tak vyhlasi chybu "InvalidPointer".
Dulezita vec, jaka verze Delphi ?
Napojen� na DataModul p�es DLL
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 18.8.1999 16:41:19
Haj hou!
Predne je zapotrebi pouzit balicky (minimalne VCL40.BPL) jak pro EXE, tak
pro DLL. Jinak predpokladam, ze DLL je v dobe volani ShowModal jeste stale v
pameti <g>. Pokud to neni tim, ze jedno, druhe nebo obe je prelozeno bez
balicku, tak by to chtelo vice informaci o kontextu, protoze predavat
objekty z DLL do EXE lze bez problemu.
Hodne zdaru
> Zkousime to v Delphi4/ClientServer a do budoucna Delphi5
>
> >Zkousime:
> >Pripojime se na DLL,
> >funkce z DLL nam vrati TDataModule,
> >zapiseme do DBGridu.DataSource
> >a jak zavolame ShowModal formulare tak vyhlasi chybu "InvalidPointer".
Lokalizator
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 18.8.1999 17:56:08
voltrr1.epr(zv)mail.cez(tec)cz wrote:
> > > by mal dokazat kompilovat aj DLL. Daju sa odtial stiahnut aj
> > > zdrojove
> > Diky, zda se, ze by to mohlo byt presne co jsem hledal. Tedy az
>
> A co se vam nezamlova na tom jak dela .dll knihovny Delphi ??
>
> Co je na nich spatne ??
:-) Nic, ale nemuzu je vyrabet na pocitacich, kde NENI Delphi.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Otevreni CSV souboru v Excelu z Delphi
[*] Marian Jonas <jonas(zv)ji(tec)cz> - 18.8.1999 17:15:04
Mam nasledujici problem.
V Delphi vyexportuji sestavu v QuickReportu do souboru .CSV.
Ma nasledujici tvar:
"ID","Nazev","Pravo"
"10","Administrator","9"
V programu mam nasledujici sekvenci:
Procedure xxxx;
var
XLS: Variant;
begin
XLS:=CreateOLEObject('Excel.Application');
XLS.Workbooks.OpenText('C:\SOUBOR.CSV');
XLS.Visible:=true;
end;
Spusti se Excel, ale soubor se natahne ve tvaru:
ID","Nazev","Pravo"
10","Administrator","9"
coz je spatne, protoze ocekavam ze se rozhodi do sloupecku.
Zkousel jsem spustit ten samy prikaz ale v prostredi Excelu:
Public Sub Test()
Application.Workbooks.OpenText("C:\SOUBOR.CSV")
End
a tam to probehlo ok.
Najde se nekdo, kdo vi jak tento problem vyresit ?
Mam Delphi 4 SP 3, MS Excel 97
Marian Jonas
jonas(zv)ji(tec)cz
socket a problem s connectem na server
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 18.8.1999 19:47:18
>jo to mi je celkem jasne ja dostanu sice hlasku connection refused (pokud na
>danem serveru nenasloucha moje aplikace), ale presto dochazi k zahlceni
>vsech portu, kdyz dam (netstat -a) tak vidim ze porty pres ketere se snazil
>klient naconnectovat jsou listening ?
>tj dostanu neco takoveho
>195.75.64.14:1051 listening (tady presne nechapu proc tam je zrovna
>listening ?? z by ten port po vyslani pozadavku na spojeni zacal naslouchat
>a potom po connection refused chybe zapomela komponenta za sebou uklidit ? )
>195.75.64.14:1052 listening
>195.75.64.14:1053 listening
>atd.
>asi je chyba nekde v komponente (psal jsem ji sam tak je to docela dost
>mozne, pravda je ovsem to ze kdyz jsem toho clienta zkousel u nas na siti
>tak nam prestal jit internet protoze to zhltilo vsechny volne porty na proxy
>serveru :)) ):-)
tak zkontroluj co se presne deje po conn refused - krokuj a divej se netstatem kdy se smeni stav socketu na listen. Pokud pouzivas konstrukci:
sock := socket()
connect(s,..)
closesocket(s)
nemel by se socket do LISTEN stavu vubec dostat (ten by mel nastat jen po volani funkce listen() ). Pokud jo tak je to docela zvlastni.
Zdravi
D. Toman
Dynamicke nahrani DLL
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 18.8.1999 20:33:26
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Potrebuji nahrat dll pri behu programu. Fungovani jako plug-in.
Muzete mi prosim poradit?
--
Petr Reichl
E-mail: reichl(zv)seznam(tec)cz
type TProc=PROCEDURE;
var DLLHandle:THandle;
ProcPoint:TFarProc;
MyProc:TProc;
DLLHandle:=LoadLibrary('xxx.dll');
if DLLHandle>32 then
begin
ProcPoint:=GetProcAddress('jmeno procedury');
if ProcPoint<>nil then
begin
MyProc:=Proc(ProcPoint);
MyProc;
end else
ShowMessage('procedura nenalezena');
end else
ShowMessage('DLL nenalezena');
Modulo 11 atd
[*] Milan Bla�ek <mbsint(zv)telecom(tec)cz> - 18.8.1999 20:50:16
Ahoj Tomasi, diky moc za konkretni radu vcetne presneho popisu. Funkci jsem
opsal,
napsal proceduru v udalosti OnExit komp. Edit a vse funguje super.
Diky Milan Blazek
-----P�vodn� zpr�va-----
Od: Tomas Michal�k <michalik(zv)proca(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. srpna 1999 11:33
P�edm�t: Re: Modulo 11 atd
predmet: algoritmus, kontrola
Ahoj,
tohle jsem pouzil pro testovani platnosti ICO v aplikaci, kde je ICO ulozeno
jako string (jine kontroly spravnosti neznam)
function TdmMain.ValidateICO(sICO: string): Boolean;
var
i, k: Integer;
begin
Result := Length(sICO) = 8;
try
StrToInt(sICO);
k := 0;
for i := 2 to 8 do begin
k := k + StrToInt(sICO[9-i]) * i;
end;
k := 11 - k mod 11;
if (Copy(IntToStr(k), Length(IntToStr(k)), 1) <> Copy(sICO, 8, 1)) then
Result := False;
except
on e: EConvertError do
Result := False;
end; // try/except
if not result then
Application.MessageBox('�patn� I�O', 'Chyba', MB_OK + MB_ICONWARNING);
end; { ValidateICO }
Tom
Polak Jiri wrote:
> Zna prosim nekdo proceduru na ruzna vypocty MODULO jako je
> Rodne cislo, Bankovni ucet, ICO, carovy kod atd.
>
> Diky Milan Blazek
Nacteni pomoci BatchMove - ASCII soubor se spravn
[*] Milan Bla�ek <mbsint(zv)telecom(tec)cz> - 18.8.1999 21:05:43
Ahoj Petre,
diky za radu, vyzkousel jsem a funguje. Mam vsak jeste jeden problem
a to ten, ze kdyz ze StringGridu provedu export dat do textoveho souboru
a ten chci nasledne nacist do tabulky zase pomoci *.sch, tak je cestina zase
zmrsena.Zatim jsem ani nezjistil v jakem kodu se to ze StringGridu uklada do
textoveho
souboru. Nevis jak to vyresit ?
Diky Milan Blazek
-----P�vodn� zpr�va-----
Od: PacakP(zv)tescosw(tec)cz <PacakP(zv)tescosw(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 16. srpna 1999 16:04
P�edm�t: RE: Nacteni pomoci BatchMove - ASCII soubor se spravnou cestinou
Nastav CharacterSet na CZECH.
Petr
> -----P�vodn� zpr�va-----
> Od: Milan Bla�ek [SMTP:mbsint(zv)telecom(tec)cz]
> Odesl�no: 16. srpna 1999 12:45
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Nacteni pomoci BatchMove - ASCII soubor se spravnou
> cestinou
>
> Mam problem, kdyz pomoci BatchMove nactu do tabulky textovy soubor s
> cestinou Latin2, nejsou
> spravne zobrazene ceske znaky. V def. souboru ( .ch )pro import se
> nastavuje CharacterSet na ASCII ,mozna
> staci zadat sparvny parametr - jaky?
>
> Diky za pomoc
> Milan Blazek
>
> mbsint(zv)telecom(tec)cz <mailto:mbsint(zv)telecom(tec)cz>
Cislovani dokladu - jak nahrat hodnotu z jedne tab
[*] Milan Bla�ek <mbsint(zv)telecom(tec)cz> - 18.8.1999 21:32:37
Zbysku diky za odpoved,
myslel jsem to priblizne tak jak pises s tim, ze jednak nemohu pro toto
reseni
pouzit SQL Databasi, to je jedna vec.Druha vec je, ze pri vymazani zaznamu v
Table2
potrebuji nikoliv precislovat drive pridelena cisla (RodneCislo + cislo dle
poctu zaznamu ),ktera jsou stale vyuzivana , ale znovu obsadit jiz
definitivne vymazane cislo v Tabulce2 a to tak
aby se znovu zaplnila vznikla cislena dira.
Priklad: Zakaznik X ma rodne cislo 8888888888 ( v Table1)
Zakaznik X ma tri smlouvy s cislama 88888888881, 88888888882 a
88888888883 (v Table2)
V pripade, ze zrusime zaznam 88888888882 vznikne jedna ciselna dira a
ja bych ji rad
nejak znovu obsadil pri dalsim porizeni noveho zaznamu, protoze pokud
nedokazu
znovu obsadit ciselnou diru, tak dojde k tomu, ze pri porizovani noveho
zaznamu se
mi vytvori duplicitni cislo 888888883 misto pozadovaneho 888888884.
V pripade zaplneni vznikle ciselne diry nemuze dojit k vytvoreni
stejnych cisel.
Pro upresneni Rodne cislo mam typu String.
Doufam ze jsem muj problem prijatelne vysvetlil.
Diky Milan Blazek
-----P�vodn� zpr�va-----
Od: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 17. srpna 1999 12:05
P�edm�t: Re: Cislovani dokladu - jak nahrat hodnotu z jedne tabulky a tu
incrementovat
Milan Bla ek wrote:
> Mam Tabulku1 Paradoxu a ta ma pole rodne cislo, ja potrebuji toto
> rodne cislo prenest do pole druhe Tabulky2 ( ktera je detail tabulky1
> - 1:N ) s tim, ze k prenesenemu rodnemu cislu potrebuji na konec
> pridat cislo , ktere odpovida skutecnemu poctu N zaznamu v tabulce2.
>
> Pokousel jsem to resit pomoci udalosti onNewrecord nad Table2 tak, ze
> jsem nacetl do pole Table2 hodnotu z Table1 ke ktere jsem pricetl
> hodnotu Table2.RecordCount. Na prvni pohled to funguje, ale po editaci
> jiz porizenych zaznamu nebo vymazani nektereho z jiz existujicich
> zaznamu v Table2 se mi jiz drive pridelene cislo neaktualizuje.
> Nevite nekdo jak na to ???
V Paradoxu budes mit problemy vzdy. V SQL databazi se tohle
elegantne vyresi pomoci triggeru. V Paradoxu se budes muset
porad trast, jestli ti do tabulek nekdo nezastara zvenci mimo tvuj
program.
Jedno mozne reseni je mit v Table2 pouze referencni odkaz na
Table1, takze rodne cislo zjistis pomoci reference. Pokud to z
nejakeho duvodu nejde a r.c. musi byt v Table2, pak nezbyva nez
po vymazani zaznamu vzdy vsechno precislovat. Po editaci by to
nemel byt problem, pokud uzivatele nepustis k editaci toho
poradoveho cisla. Takze po delete bys mohl udelat neco takoveho:
Zjistis poradove cislo mazaneho zaznamu, a pak pustis takovyto
update (bez zaruky na spravnou syntaxi):
update table2 set cislo=cislo-1 where cislo>smazanecislo and
rc=rodnecislo
Takhle jsi to myslel?
Jestli jenom potrebujes pridavat nova cisla, pak to muzes pri
insertu delat spise nez pres RecordCount takto:
{cislo=1+}select Max(cislo) from Table2 where rc=rodnecislo
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Import dat z *.XLS do Paradoxu bez DDE, OLE atd
[*] Milan Bla�ek <mbsint(zv)telecom(tec)cz> - 18.8.1999 21:35:09
Petre diky alespon za inspiraci.
Milan
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. srpna 1999 1:01
P�edm�t: Re: Import dat z *.XLS do Paradoxu bez DDE, OLE atd
> Milan Bla�ek wrote:
>
> Hledam reseni jak importovat data ze souboru *.xls do tabulky Paradox,bez
> pouziti OLE, ODBC atd.
> Nejredaji bych to resil pomoci komponety, ale i jine reseni uvitam.
Ahoj,
Jista nadeje by mohla byt v ActiveX komponente F1Book kterou mas v Delphi,
ale ta umi cist nejvyse format Excel 5 a to jeste s jistymi problemy.
--
Petr Vones, amatersky programator
Delphi 5 beta - namet na horor
[*] Ing. Jaroslav �ke��k - 18.8.1999 21:36:00
> Zajimave, ja mam take D5 betu, ale asi patrne jinou verzi, protoze
> instalace byla bez licence, funguje mi to v pohode na NT i na 98.
> Ale je tam tolik zavaznych chyb, ze jsem zvedav, jestli je staci do
> vydani nove verze odstranit. Mno, optimisticky doufejme, ze ano,
> ze nepujdou ve stopach D4.
---
.... AHA, to je zajimave.
Maloktera novinka se obejde bez chyb. Me by pripadne chyby (nebudou-li
prilis vazne) zpocatku asi tolik nevadily. Ja chci zahajit novy projekt,
ktery bude postaven na Interbazi a proto jsem se velmi zajimal o nove slibne
prime napojeni. Nez projekt dokoncim, bude konec roku a do te doby vyjde
urcite nejaky opravny balicek. Me osobne se nyni verze D4 (po druhe oprave)
zda byti nejstabilnejsi a nejlepsi z dosavadnich verzi. Prima konektivita je
ale pro me tak velkym lakadlem, ze to chci risknout a necekat az na pripadne
opravy. D5-ku jsem si jiz proto objednal.
>
> Tenhle dlouhy dopis by si mel dukladne precist i pan Kubat a
> poslat ho do Ameriky. Jestli Inprise zavede popsany zpusob
> licencovani, tak vazne asi take prejdu jinam. Moje trpelivost ma sve
> hranice. :-)
---
Pan Kubat si clanek opravdu precetl a poslal mi sve vyjadreni. Uvedl, ze se
v ostre verzi D5 s takovymto zpusobem ochrany nepocita. Cituji: " ...
nepredpoklada se, ze by ve finalnim produktu Delphi 5 byla podobna ochrana
jako byla v C++Builderu 4".
To me uklidnilo. Ja jsem z toho mel velkou obavu, protoze se jiz drive
proslychalo, ze Borland chysta neco pro zdokonaleni ochrany proti piratstvi.
Jaro
Import dat z *.XLS do Paradoxu bez DDE, OLE atd
[*] Milan Bla�ek <mbsint(zv)telecom(tec)cz> - 18.8.1999 21:44:43
Tomasi, diky za odpoved, ale neni mi jasne jak to myslis s tim Excelem?
Protoze ja potrebuji import dat z excelovske tabulky na PC, kde neni Excel
naninstalovan
a proto nemohu pouzivat DDE OLE atd. Pokud znas nejake reseni, byl bych moc
rad kdybys mi
poslal nejake presnejsi informace.Myslel jsem ze import dat z tak
rozsireneho typu souboru
jako je *.xls je trivialni zalezitost, ale jak se ukazuje, tak se silne
pletu.
Diky moc Milan Blazek
-----P�vodn� zpr�va-----
Od: Burger, Tomas <tomas.burger(zv)sap-ag.de>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 18. srpna 1999 10:36
P�edm�t: RE: Import dat z *.XLS do Paradoxu bez DDE, OLE atd
Neco na tenhle zpusob by pomohlo... (potrebujes k tomu ovsem ten Excel...
:-) )
X = CreateOLEObject("Application.Excel");
Y = X.OpenFile("soubor.xls");
Z = Y.Sheets(1);
write(Y.Cells(1,1));
Tomas
ps. Delam to zpameti bez Delphi, takze to asi nesedi presne pismeno od
pismene...
-----Original Message-----
From: Milan Bla�ek [mailto:mbsint(zv)telecom(tec)cz]
Sent: Montag, 16. August 1999 20:22
To: delphi-l(zv)fwd(tec)cz
Subject: Import dat z *.XLS do Paradoxu bez DDE, OLE atd
Hledam reseni jak importovat data ze souboru *.xls do tabulky Paradox,bez
pouziti OLE, ODBC atd.
Nejredaji bych to resil pomoci komponety, ale i jine reseni uvitam.
Diky Milan
Delphi 4
[*] Ing. Jaroslav �ke��k - 18.8.1999 21:44:02
D4 bezi na Celeronech i s W98 vpohode. Popisovane problemy vznikaly ve
spojeni s nekterymi grafickymi kartami (zejmena S3, ale ne jenom s temi).
Zkus na nektery pocitac hodit jinou grafiku.
Jaro
> Mam problem s Delphi 4. (Prof i C/S)
>
> Mam 3 pocitace s Windows 98 CZ a zaboha na nich nespustim D4. Instalace
> probehne v pohode, ale pri spousteni Delph to uprostred vytuhne kompletne
> pocitac. Pomuze jen tvrdej reset.
>
> Jsou to tri ruzne pocitace ale vsechny Celerony. Zkousel sem cistou
> instalaci Win98 CZ a hned Delphi a furt to samy. S3 problem to neni
protoze
> aspon v jednom pocitaci je neco jinyho (Ati).
> SP2 a 3 to taky nevyresily.
>
> Opravdu se Vam to nikomu nestalo ?
>
> Diky
> Leinweber
>
rozmer obrazku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.8.1999 23:00:43
Jan Fiala wrote:
> > Ahojda
> > Do TImage nacitam obrazek JPG.
> > Jak lze pred nactenmim zjistit jeho rozmery, abych mohl podle toho nastavit
> > pomer stran TImage pri zapnuti Strentch:=true se zobrazil nezdeformovane.
> >
> > Je to v D3 prof.
Ahoj,
Jedna z moznosti je jeste pred nactenim rozebrat vlastni format souboru
JPEG a z neho vytahnout i rozmer. Popis formatu najdes na:
http://www.wotsit.org/
--
Petr Vones, amatersky programator
prace s MDIChild oknem
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.8.1999 23:00:50
Ren� Otisk wrote:
> W95, D3 C/S
> Mel bych takovy problem. Mam databazovou MDI aplikaci. Chtel bych po
> prepnuti do stavu Edit (Insert), aby aktivni MDIChild okno nebylo mozne
> deaktivovat (resp. aktivovat jine MDIChild okno), zavrit do te doby nez
> zaznam neulozim nebo nestornuji. Osetrit to v Update menu items
> nevyhovuje, protoze uzivatel si muze MDIChild okna poskladat kaskadovite
> apod. a prepinat je mysi nebo klavesnici.
Ahoj,
Uz se to tu probiralo, je to v archivu:
http://www.delphi(tec)cz/soubor.asp?rok=1998&mesic=Oct&den=25&first=1&soubor=dlfaaaal.htm
--
Petr Vones, amatersky programator
Problem s prevodem STRING na REAL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.8.1999 23:01:12
Luk� Gallina wrote:
> Delphi 2, WinNT 4 SP3
>
> Z databaze ucetnictvi si preberu do swe aplikace do Paradoxu data v
> ciselne podobe (mam za to, ze je to REAL),
> prewedu to a zobrazim do TEdit. Tam to uzivatel zmeni a ja to potrebuju
> prewedst zpet do REAL. Pouziwam na to fci Val a w ni je potiz. W te
> databazi se pouciwaji cisla we formatu 14,59 a on mi to prewede jako
> 14.00. Ale ja tam nemuzu pracowat s "." ale ",". Poradte mi, jak to
> prewedst. Databaze to sezere jen jako 14,59 a Val mi nedowoli "," ale chce
Ahoj,
Mohl by jsi treba v udalosti TField.OnSetText provest upravu toho retezce
pred vlozenim do databaze.
--
Petr Vones, amatersky programator
jak otocit label
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.8.1999 23:01:02
Petr Matejovsky wrote:
> Nevite nekdo jak se pri tisku sestavy v QR da otocit label o 90 stupnu ???
Ahoj,
Podivej se na http://www.qusoft.no tam je v sekci Download komponenta
TQRAngledLabel. To by mohlo byt ono.
--
Petr Vones, amatersky programator
Sledovani aplikaci ve Win
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.8.1999 23:01:47
Mal� Dobromil wrote:
> > 4: Jakym zpusobem se da vysledovat zpustene aplikace.
> >
> *** Pouzit HOOK funkci, Petr Vones na to udelal priklad
> (pro D4) a je na ftp archivu konference (me ale na D3
> nechodi-moment, vlastne mi chodil, ted si vzpominam, ale
> byl tam problem v tom, ze pri spusteni BATaku se zachytilo
> jen jmeno toho bataku, nebo neco podobneho, zase tak moc
> si zase nevpominam)
Ahoj,
Ono s psanim hook funkci je v Delphi obecne problem, koneckoncu ten
priklad je toho prave dukazem. Pokud by ti ale stacilo sledovat jen
okamzik spusteni (ne ukonceni) aplikace, tak se to da resit pomoci
rozsireni shelu - IShellExecuteHook (neplest s Windows hooky).
http://www.delphi(tec)cz/soubor.asp?rok=1999&mesic=Jul&den=15&first=61&soubor=dlfaaack.htm
--
Petr Vones, amatersky programator
Napojen� na DataModul
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.8.1999 23:01:56
Pavel Cisar wrote:
>
> Haj hou!
>
> Predne je zapotrebi pouzit balicky (minimalne VCL40.BPL) jak pro EXE, tak
> pro DLL. Jinak predpokladam, ze DLL je v dobe volani ShowModal jeste stale v
> pameti <g>. Pokud to neni tim, ze jedno, druhe nebo obe je prelozeno bez
> balicku, tak by to chtelo vice informaci o kontextu, protoze predavat
> objekty z DLL do EXE lze bez problemu.
Ahoj,
A co misto "obycejne" DLL pouzit dynamicky zavadene balicky ?
--
Petr Vones, amatersky programator
Optimalizacia kodu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.8.1999 23:02:25
Martin 'Milo' Milesich wrote:
>
> Zdravim Delphinov :)
>
> Mam takyto problem. Urobil som program ktoreho velkost exe je 1250 Kb a pri spusteni zabera v pameti 4 MB!!
> Co robit aby nezaberal v pameti tolko miesta? Pomohla by mi optimalizacia kodu?
> Skusal som take veci ako nahradit TPanel TBevel -om. Som niekde cital ze to pomoze, ale moc som si to nevsimol.
> Co robite vy pre zmensenie obsadenia pamete programom?
Ahoj,
Jedna z veci kterych je dobre se drzet je, jak uz ti radil Zbysek, vytvaret
okna az dynamicky kdyz jsou potreba a pak je rusit. Potom, nepocitas do tech
4M i treba to co zabiraji prilinkovane knihovny Windows ?
--
Petr Vones, amatersky programator
Ikony spustenych aplikaci
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.8.1999 23:02:05
> Radim Ludv�k wrote:
>
> Zdravim,
> potrebuji ve svem programu zobrazit ikony a nazvy spustenych programu.
> Nazvy jsem zjistil pomoci komponenty TFNugryShellNotify. Tim padem mam i
> handly hlavnich oken aplikaci, ale jak mam z toho dostat ty ikony? Nevite
> nekdo?
Ahoj,
Pokud znas nazev EXE souboru (asi ano), tak pomoci SHGetFileInfo. Priklad
najdes tady:
http://www.delphi(tec)cz/soubor.asp?rok=1999&mesic=Feb&den=10&first=76&soubor=dlfaaadb.htm
--
Petr Vones, amatersky programator
IP Adresa & detekce hesla ss.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.8.1999 23:17:16
sula milos wrote:
>
> no tak to tam mas asi trojskeho kone, myslim ze jinam nez na sdilene slozky
> se ti nikdo dostat nemuze (jedine pres trojskeho kone, ktery nasloucha na
> urcitem portu a nekdo se na nej pripoji a ovlada tvuj pocitac dalkove).
Ahoj,
Oblibeny je v tomto treba BOserve nebo jak se to presne jmenuje (viz Zive).
Da se dobre najit tak, ze je videt v seznamu procesu (ne v okne Zavrit
Program ale prochazenim pomoci ToolHelp funkci).
> Pokud se jedna opravdu o trojskeho kone slo by to zjistit tak, ze si udelas
> v Delphi nahrazku prikazu netstat, ktery ti zobrazi vsechny spojeni na tvuj
> pocitac. Myslim ze na to existuje i nejaka komponenta.
Napriklad na http://www.sysinternals.com/tcpview.htm najdes utilitu NETSTATP
vcetne zdrojaku (samozrejme v C, ale to snad neni problem prepsat).
> > NetWatch je hezka v�c, ale ja bych si chtel udelat sv�j programek... :o)
Podivej se na http://delphi-jedi.org do sekce API Library na "NetAPI for
W9x". Tam mas i jednoduchou aplikaci v Delphi pripominajici NetWatch.
K tomu jeste jedna vec. Existuje pomerne nebezpecna moznost vytvorit ve
Win95 (asi i ve W98) sdilenou slozku (s plnym pristupem) ktera neni videt
v Pruzkumniku a ani v NetWatch (dokud se ti na ni nekdo nepripoji), takze
ji nemuzes smazat. Tohle umi na dalku zaridit prave treba virus BO, takze
i po jeho odstraneni se ti muze nekdo nadale hrabat v pocitaci. Zrusit se
da programove, umi ji zobrazit a zrusit i ten Delphi NetWatch v odkazu vyse.
--
Petr Vones, amatersky programator
Sledovani aplikaci ve Win 2
[*] lumir.delphi(zv)post(tec)cz - 18.8.1999 23:44:40
Diky za vsechny namety.
Za me oznaceni "amatersky programator" se omlouvam a Delphi 5 zatim nepotrebuji, protoze se na ni "zatim" necitim. V Delphi programuji jenom tak pro radost a mou vlastni potrebu, jinak jsem programoval Intel 8051 a podobne rostaky coz je trochu o necem jinem. Ma aplikace opravdu bude neco jako "rodinn� prihlasovani" a potreboval bych ji prioritni pouze do doby nez se uzivatel identifikuje (v teto dobe by mel byt i TaskBar nepristupny). Po uspesne identifikaci bych opet vsechno povolil. Aplikaci zatim netvorim, pouze sonduju ale budu ji delat v Delphi 3 pro W95/98.
Opet diky za vsechny namety. Lumir Karas.Modulo 11 atd
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 19.8.1999 00:03:19
Zna prosim nekdo proceduru na ruzna vypocty MODULO jako je
Rodne cislo, Bankovni ucet, ICO, carovy kod atd.
A tady vypocet kreditni karty.
Bye Ludan
unit cardtest;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
BTN Card: TButton;
Label1: TLabel;
INL Card: TEdit;
procedure BTN CardClick(Sender: TObject);
private
function VALIDCCARD(A:STRING):BOOLEAN;
function NUMBERS(C:STRING):STRING;
function VALOF(CONST A:STRING):LONGINT;
function CCARDTYPE(A:STRING):BYTE;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.BTN CardClick(Sender: TObject);
var S: string;
begin
S := INL Card.Text;
if S = '' then
Application.MessageBox('Mus�te zadat ��slo karty', 'Credit Card Test', MB ICONSTOP)
else
begin
case CCARDTYPE(INL Card.Text) of
0: S := 'Invalid credit card type';
1: S := 'VISA';
2: S := 'MC';
3: S := 'American Express';
4: S := 'Discover';
5: S := 'Unknown type';
end;
ShowMessage(S);
end;
end;
FUNCTION TForm1.VALIDCCARD(A:STRING):BOOLEAN;
VAR C:CHAR;
T:WORD;
X,M,N:BYTE;
BEGIN
VALIDCCARD:=FALSE;
A:=NUMBERS(A);
IF Length(A)<4 THEN EXIT;
C:=A[LENGTH(A)];
SetLength(A,Length(A)-1);
M:=2;
T:=0;
FOR X:=LENGTH(A) DOWNTO 1 DO
BEGIN
N:=(BYTE(A[X])-48);
N:=N*M;
IF N>9
THEN BEGIN
N:=N-10;
INC(T);
END;
T:=T+N;
M:=3-M;
END;
T:=(TRUNC((T+9)/10)*10)-T;
IF T=(BYTE(C)-48) THEN VALIDCCARD:=TRUE;
END;
FUNCTION TForm1.NUMBERS(C:STRING):STRING;
VAR A:STRING;
X:INTEGER;
BEGIN {strips out all non-numeric digits from a string}
A:='';
IF LENGTH(C)>0 THEN FOR X:=1 TO LENGTH(C) DO
IF C[X] IN ['0'..'9'] THEN A:=A+C[X];
NUMBERS:=A;
END;
FUNCTION TForm1.VALOF(CONST A:STRING):LONGINT;
VAR I:INTEGER;
L:COMP;
BEGIN {guarantee no crash VAL function}
VAL(A,L,I);
IF I<>0 THEN L:=0;
IF L>HIGH(LONGINT) THEN L:=HIGH(LONGINT);
IF L<LOW(LONGINT) THEN L:=LOW(LONGINT);
VALOF:=TRUNC(L);
END;
FUNCTION TForm1.CCARDTYPE(A:STRING):BYTE;
{returns
0:invalid credit card type
1:VISA
2:MC
3:American Express
4:Discover
5:Unknown type}
VAR W:LONGINT;
BEGIN
A:=NUMBERS(A);
IF VALIDCCARD(A)
THEN BEGIN
W:=VALOF(COPY(A,1,6));
IF (W>=510000) AND (W<=559999) AND (Length(A)=16)
THEN CCARDTYPE:=2 {Mastercard}
ELSE
IF (W>=400000) AND (W<=499999) AND (Length(A)=13)
THEN CCARDTYPE:=1 {VISA}
ELSE
IF (W>=400000) AND (W<=499999) AND (Length(A)=16)
THEN CCARDTYPE:=1 {VISA}
ELSE
IF (W>=340000) AND (W<=349999) AND (Length(A)=15)
THEN CCARDTYPE:=3 {American Express}
ELSE
IF (W>=370000) AND (W<=379999) AND (Length(A)=15)
THEN CCARDTYPE:=3 {American Express}
ELSE
IF (W>=601100) AND (W<=601199) AND (Length(A)=16)
THEN CCARDTYPE:=4 {Discover}
ELSE CCARDTYPE:=5;{Unknown type}
END
ELSE CCARDTYPE:=0;
END;
end.
IP Adresa & detekce hesla ss.
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 19.8.1999 06:18:17
----- P�vodn� zpr�va -----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>> K tomu jeste jedna vec. Existuje pomerne nebezpecna moznost vytvorit ve
> Win95 (asi i ve W98) sdilenou slozku (s plnym pristupem) ktera neni videt
> v Pruzkumniku a ani v NetWatch (dokud se ti na ni nekdo nepripoji), takze
> ji nemuzes smazat. Tohle umi na dalku zaridit prave treba virus BO, takze
> i po jeho odstraneni se ti muze nekdo nadale hrabat v pocitaci. Zrusit se
> da programove, umi ji zobrazit a zrusit i ten Delphi NetWatch v odkazu vyse.
>
> --
>
> Petr Vones, amatersky programator
Sdilenou slozku, ktera neni videt neni problem vytvorit. Staci, kdyz sdilene jmeno zacina znakem $.
=============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Member of Out of business group CR
=============================Otevreni CSV souboru v Excelu z Delphi
[*] rys(zv)zas-me(tec)cz - 19.8.1999 6:56:50
Myslim, ze je to tim, ze pri otevirani CSV formatu se i v dialogovem okenku
(tam, co se zobrazuji typy souboru) da precist neco jako: CSV - strednikem
oddeleny seznam hodnot. Microsoft holt drzi standardy... Je mozne, ze s temi
stredniky by to fungovalo, nezkousel jsem to.
Karel Rys
>Mam nasledujici problem.
>V Delphi vyexportuji sestavu v QuickReportu do souboru .CSV.
>Ma nasledujici tvar:
>
>"ID","Nazev","Pravo"
>"10","Administrator","9"
>
>Spusti se Excel, ale soubor se natahne ve tvaru:
>ID","Nazev","Pravo"
>10","Administrator","9"
> Ikony spustenych aplikaci
[*] Radim Ludv�k <radiml(zv)bnsoft(tec)cz> - 19.8.1999 06:59:12
Ahoj,
bohuzel mam jenom Handle okna te aplikace.
Radim Ludv�k
BN Soft Znojmo
radiml(zv)bnsoft(tec)cz
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Subject: Re: Ikony spustenych aplikaci
Ahoj,
Pokud znas nazev EXE souboru (asi ano), tak pomoci SHGetFileInfo.
Petr Vones, amatersky programator
ADO + D5
[*] Matula M <asexrm(zv)telecom(tec)cz> - 19.8.1999 07:21:23
Mam dotaz na majitele beta verze Delphi 5.
Jak delphi pracuje s ADO ? Prevadi record set(ADO) na DataSet (format
Delpi), nebo Brland pridal nove komponenty, ktere jsou primo urceny pro
praci s ADO objekty?
Mirek
mnozina
[*] Martin Talian <geoplan(zv)pp.sinet.sk> - 19.8.1999 07:41:43
Spr�va vo form�te MIME rozdelen� na viac �ast�.
Zdravim,
mam asi 10 retazcov. Potom dostanem do prememnnej od uzivatela jeden retazec a potrebujem zistit ci sa zhoduje s niektorym s tych 10-ich, prip s ktorym. Ale nechcem pouzit if. Skusal som to cez typ mnozina ale nepodarilo sa mi to rozchodit. chcelo to iba char.
Prip. maly priklad by bodol.
vdaka
Martin
Lokalizator
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 19.8.1999 07:44:26
Milan N mec wrote:
> Kdyz umis vycucnout resourcy a nacpat je zpatky, proc potrebujes
> delat vlastni dll?
> To mozna bude to, co tady vetsina nepochopila.
Tak jinak, podrobneji. Vycucnout resourcy neni problem (neco z
toho se uz povaluje na Delphree, pro pripadne zajemce). Nacpat
zpet je umim jen pod NT. To ale neni zamer. K Delphi programum
se vyrabeji externi dll datove kontejnery, kde jsou prelozene
resourcy. Spusteny program si osaha, zda nema ve svem adresari
prelozeny kontejner (ma priponu jazyka, napr. <program>.CSY), a
pokud najde vhodny kontejner, natahne si resourcy z nej. Takhle
muzu mit originalni program a nekolik jazykovych mutaci k nemu.
To funguje i na balicky a jine dll vytvorene v Delphi (Builderu). A vtip
je v tom, ze i Ceckari si obcas vyrabeji (nebo mohou vyrobit)
takovehle kontejnery, kde maji ulozene preklady stejnym
zpusobem. No a pro tento pripad prave chci umet generovat vlastni
datovy dll kontejner. Zatim to delam pomoci dcc32.exe, ne kazdy
vsak tento program ma k dispozici (na svete nejsou je delfisti :).
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Kresleni na Canvas tiskarny
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 19.8.1999 06:52:42
Ahoj vsichni,
mam tento problem: Potreboval bych prenest na canvas tiskarny vektorovy
obrazek. Jenze ono to na te tiskarne vyleze strasne malinke, pokud se
pouziji parametry kresby stejne jako na canvas formu. Jak bych mohl
zjistit rozmery canvasu tiskarny, aby ten obrazek nejak vypadal? S
tiskem nemam ani nejmensi zkusenost.
Diky predem
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
Otevreni CSV souboru v Excelu z Delphi
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 19.8.1999 07:59:59
Zkus, jen tak pro legraci, oddelit polozky strednikem, misto carkou.
Mira
----- P�vodn� zpr�va -----
Od: Marian Jonas
Komu: Konference Delphi
Odesl�no: 18. srpna 1999 18:15
P�edm�t: Otevreni CSV souboru v Excelu z Delphi
Mam nasledujici problem.
V Delphi vyexportuji sestavu v QuickReportu do souboru .CSV.
Ma nasledujici tvar:
"ID","Nazev","Pravo"
"10","Administrator","9"
V programu mam nasledujici sekvenci:
Procedure xxxx;
var
XLS: Variant;
begin
XLS:=CreateOLEObject('Excel.Application');
XLS.Workbooks.OpenText('C:\SOUBOR.CSV');
XLS.Visible:=true;
end;
Spusti se Excel, ale soubor se natahne ve tvaru:
ID","Nazev","Pravo"
10","Administrator","9"
coz je spatne, protoze ocekavam ze se rozhodi do sloupecku.
Zkousel jsem spustit ten samy prikaz ale v prostredi Excelu:
Public Sub Test()
Application.Workbooks.OpenText("C:\SOUBOR.CSV")
End
a tam to probehlo ok.
Najde se nekdo, kdo vi jak tento problem vyresit ?
Mam Delphi 4 SP 3, MS Excel 97
Marian Jonas
jonas(zv)ji(tec)cz
mnozina
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 19.8.1999 08:02:56
----Original Message-----
From: Martin Talian [mailto:geoplan(zv)pp.sinet.sk]
Sent: Thursday, August 19, 1999 7:42 AM
To: delphi-l(zv)fwd(tec)cz
Subject: mnozina
Zdravim,
mam asi 10 retazcov. Potom dostanem do prememnnej od uzivatela jeden retazec
a potrebujem zistit ci sa zhoduje s niektorym s tych 10-ich, prip s ktorym.
Ale nechcem pouzit if. Skusal som to cez typ mnozina ale nepodarilo sa mi to
rozchodit. chcelo to iba char.
[Polak Jiri]
Nechapu, co myslis tim, ze nechces pouzit if.
Otestovani neceho je vyraz typu boolean, jinym zpusobem to asi nejde.
Mnoziny jsou pouze pro ordinalni typy, dokonce, myslim, pouze pro
jednobytove.
(nebo to bylo jednobytove pouze ve starsich verzich?)
Nejjednodussi asi bude porovnavat string po stringu.
Jiri Polak
-------------
Email: Jiri.Polak(zv)tconsult(tec)cz
Co mne nastvalo a na co si dejte pozor:
http://freeweb.coco(tec)cz/jpolak/cernalistina/
<http://freeweb.coco(tec)cz/jpolak/cernalistina/>
Kresleni na Canvas tiskarny
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 19.8.1999 08:07:30
Petr Brant <p.brant(zv)samo(tec)cz> wrote:
>mam tento problem: Potreboval bych prenest na canvas tiskarny vektorovy
>obrazek. Jenze ono to na te tiskarne vyleze strasne malinke, pokud se
>pouziji parametry kresby stejne jako na canvas formu. Jak bych mohl
Podivej se na Printer.PageWidth a Printer.PageHeight. Tam jsou v rozmery v bodech.
Pokud bys potreboval jine udaje o tiskarne, lze je na Gatesovi vyloudit volanim funkce GetDeviceCaps(Printer.Handle,....), kde by te nejspis mohly zajimat hodnoty jako HORZRES, VERTRES, HORZSIZE, VERTSIZE, LOGPIXELSX, LOGPIXELSY apod.
bye pf, callnet(zv)telecom(tec)cz
Kresleni na Canvas tiskarny
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 19.8.1999 08:13:34
>mam tento problem: Potreboval bych prenest na canvas tiskarny vektorovy
>obrazek. Jenze ono to na te tiskarne vyleze strasne malinke, pokud se
>pouziji parametry kresby stejne jako na canvas formu. Jak bych mohl
>zjistit rozmery canvasu tiskarny, aby ten obrazek nejak vypadal? S
>tiskem nemam ani nejmensi zkusenost.
>
Grafiku musis prevest na vetsi rozliseni tiskarny.
podivej se na :
PageWidth
PageHeight
(mely by to byt snad properties objektu Printer)
Pokud tisknes text je jeste treba prepocitat velikost fontu na rozliseni tiskarny (GetDeviceCaps(), Font.PixelsPerInch,...)
Zdravi
D. Toman
Nacteni pomoci BatchMove - ASCII soubor se spravn
[*] PacakP(zv)tescosw(tec)cz - 19.8.1999 08:23:06
Vypada to, ze export provadis nejakou variantou SaveToFile.
Pak to bude asi v ANSI a v *.sch bych zkusil nastavit
CharacterSet na ANCZECH (dalsi pripadne kody jsou k nalezeni v BDE.HLP v
casti Language Drivers)
Petr
> -----P�vodn� zpr�va-----
> Od: Milan Bla�ek [SMTP:mbsint(zv)telecom(tec)cz]
> Odesl�no: 18. srpna 1999 21:06
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Nacteni pomoci BatchMove - ASCII soubor se spravnou
> cestinou
>
> Ahoj Petre,
>
> diky za radu, vyzkousel jsem a funguje. Mam vsak jeste jeden problem
> a to ten, ze kdyz ze StringGridu provedu export dat do textoveho souboru
> a ten chci nasledne nacist do tabulky zase pomoci *.sch, tak je cestina
> zase
> zmrsena.Zatim jsem ani nezjistil v jakem kodu se to ze StringGridu uklada
> do
> textoveho
> souboru. Nevis jak to vyresit ?
>
> Diky Milan Blazek
> Pipnuti na Enter v EDITu
[*] Jaroslav ��pek <jaroslav.sipek(zv)idea(tec)cz> - 19.8.1999 08:39:04
Ahoj,
poradil by mi nekdo, jak zabranit tomu, aby kdyz si v D3 na formular dam
dva EDITy a do prvniho z nich napisu na ud�lost OnKeyPress nasledujici kod,
aby pri stisku klavesy Enter to nepiplo.
if Key=13 then Edit2.SetFocus;
Diky.
Jaroslav Sipek
e-mail: jaroslav.sipek(zv)idea(tec)cz
mnozina
[*] Jirka <jnagy(zv)nh-trans(tec)cz> - 19.8.1999 08:41:41
Co kdybys tech 10 retezcu dal do StringListu a vyhledal uzivateluv
retezec pomoci StringList.Find. (Doufam, ze se ta metoda tak jmenuje,
nemam spustene delphi - ale v napovede u TStringlistu vsechno najdes.)
Jirka
>From: Martin Talian [mailto:geoplan(zv)pp.sinet.sk]
>Sent: Thursday, August 19, 1999 7:42 AM
>To: delphi-l(zv)fwd(tec)cz
>Subject: mnozina
>
>
>Zdravim,
>
>mam asi 10 retazcov. Potom dostanem do prememnnej od uzivatela jeden
retazec
>a potrebujem zistit ci sa zhoduje s niektorym s tych 10-ich, prip s
ktorym.
>Ale nechcem pouzit if. Skusal som to cez typ mnozina ale nepodarilo
sa mi to
>rozchodit. chcelo to iba char.
Kresleni na Canvas tiskarny
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 19.8.1999 08:45:34
Nedavno jsem taky musel sahnou za hranice Sinea a sam oslovit Printer.
Printer.Canvas ma Width a Height v pixelech.
Jaky je rozmer stranky v cm, to se mi zjistit nepodarilo, tak to zadavam nejak do konfigurace.
No a pak je treba to cele prepocist.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Petr Brant <p.brant(zv)samo(tec)cz>
> Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
> P�edm�t: Kresleni na Canvas tiskarny
> Datum: 19. srpna 1999 7:52
>
> Ahoj vsichni,
>
> mam tento problem: Potreboval bych prenest na canvas tiskarny vektorovy
> obrazek. Jenze ono to na te tiskarne vyleze strasne malinke, pokud se
> pouziji parametry kresby stejne jako na canvas formu. Jak bych mohl
> zjistit rozmery canvasu tiskarny, aby ten obrazek nejak vypadal? S
> tiskem nemam ani nejmensi zkusenost.
>
> Diky predem
>
> **************************************************
> Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
> obcas Delphi nebo Visual Basic
> **************************************************mnozina
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 19.8.1999 08:51:02
Mnozinu lze v Pascalu uz od dob pana Wirtha vytvorit pouze z ordinalnich typu.
Tedy rozhodne ne z retezcu.
Budes si na to muset udelat nejake vlastni nastroje.
function IsElementOf(E:String; const S:TStrings):Boolean;
var i:Integer;
begin
Result:=false;
for i:=0 to S.Count-1 do
if E=S[i] then begin // mozna je ta syntaxe trochu jinak, Delphi napovi
Result:=true;
exit;
end;
end;
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
Odes�latel: Martin Talian <geoplan(zv)pp.sinet.sk>
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: mnozina
Datum: 19. srpna 1999 7:41
Zdravim,
mam asi 10 retazcov. Potom dostanem do prememnnej od uzivatela jeden retazec a potrebujem zistit ci sa zhoduje s niektorym s tych 10-ich, prip s ktorym. Ale nechcem pouzit if. Skusal som to cez typ mnozina ale nepodarilo sa mi to rozchodit. chcelo to iba char.
Prip. maly priklad by bodol.
vdaka
Martin
Import dat z *.XLS do Paradoxu bez DDE, OLE atd
[*] Burger, Tomas <tomas.burger(zv)sap-ag.de> - 19.8.1999 09:02:52
> -----Original Message-----
> From: Milan Bla�ek [mailto:mbsint(zv)telecom(tec)cz]
> Protoze ja potrebuji import dat z excelovske tabulky na PC,
> kde neni Excel naninstalovan
Hm... Reseni, ktere jsem "nastinil" beha bohuzel jen s Excelem...
Jinak mi nic nenapada... Sand az pockat na Excel 2000 a XML format...
Uz je to publikovany na MSDN, ale v ruce jsem to jeste nemel...
Tomas
Otevreni CSV souboru v Excelu z Delphi
[*] Burger, Tomas <tomas.burger(zv)sap-ag.de> - 19.8.1999 09:07:53
DDV,
Napadaji me dva potencialni problemy....:
1. nekde jsem videl, ze se to vztekalo na carku, protoze ta byla zaroven
"decimal separator"...
2. mozna by stalo za to vyzkoumat vsechny parametry funkce OpenText a
nastavit navtrdo, co je to za typ souboru...
Jinak ja jsem z toho vybruslil uplne jinak:
vygerenoval jsem do souboru html tabulku (od <table> do </table>) a souboru
jsem dal priponu "xls"...
Svete div se, ale Excel to sezral bez mrknuti oka a spravne....
Tomas
-----Original Message-----
From: Marian Jonas [mailto:jonas(zv)ji(tec)cz]
Sent: Mittwoch, 18. August 1999 18:15
To: Konference Delphi
Subject: Otevreni CSV souboru v Excelu z Delphi
Mam nasledujici problem.
V Delphi vyexportuji sestavu v QuickReportu do souboru .CSV.
Ma nasledujici tvar:
"ID","Nazev","Pravo"
"10","Administrator","9"
ADO + D5
[*] Radoslav Krehlik <heretic(zv)softok(tec)cz> - 19.8.1999 09:08:23
>Mam dotaz na majitele beta verze Delphi 5.
>Jak delphi pracuje s ADO ? Prevadi record set(ADO) na DataSet (format
>Delpi), nebo Brland pridal nove komponenty, ktere jsou primo urceny pro
>praci s ADO objekty?
Co jsem Arguse (betaverze Delphi5) letmo videl, tak je to v podstate stejne
jako ADONIS komponenty. Napojeni na DataSet/Source tam je, ale nepotrebujes
BDE. Naopak musi byt na pocitaci korektne nainstalovane to ADO.
V Dev-Shopu online mi rekli, ze mi Delphi 5 Enteprise nemuzou prodat driv
nez po pulce zari, ze to zatim v republice vubec neni :( Docela suxor :(
Protoze bych ho potreboval immediately.
Heretic-X
ADO
[*] Radoslav Krehlik <heretic(zv)softok(tec)cz> - 19.8.1999 09:10:24
At 16:11 18.8.1999 +0200, you wrote:
>http://www.winsoft.sk - komponenty Adonis nebo treba OLE DB na
>Delphree..+ mnoho dalsich...
pro nekoho kdo nechce kupovat Delphi 5 Enteprise a staci mu jen ADO, je to
asi podstatne levnejsi varianta, koupit si D5 profesional+Adonis
Heretic-X
Pipnuti na Enter v EDITu
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 19.8.1999 09:16:21
----- P�vodn� zpr�va -----
Od: Jaroslav ��pek <jaroslav.sipek(zv)idea(tec)cz>> Ahoj,
> poradil by mi nekdo, jak zabranit tomu, aby kdyz si v D3 na formular dam
> dva EDITy a do prvniho z nich napisu na ud�lost OnKeyPress nasledujici kod,
> aby pri stisku klavesy Enter to nepiplo.
>
if Key=13 then begin
Edit2.SetFocus;
Key :=0;
end;
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
Cislovani dokladu - jak nahrat hodnotu z jedne tab
[*] Vlastimil Bardon <ineq-soft(zv)ova.eridan(tec)cz> - 19.8.1999 09:33:59
1. Nebylo by lepsi tam tu diru ponechat (jako signal, �e tam kdysi cosi
bylo) a smlouvy cislovat pres SELECT MAX(CISLO_SMLOUVY)+1 ... ?
2. Mam zkusenost, ze obecne vyuzivani vyznamovych primarnich klicu je
nebezpecne. Nevim, jestli je cislo smlouvy primarnim klicem, ale pokud ano,
doporucuji to zmenit. Staci, aby se zjistilo, ze zakaznik udal spatne rodne
cislo a zacnou zbytecne problemy.
3. Co se stane, pokud se dodatecne zjisti, ze zakaznik udal spatne rodne
cislo? Pokud se budou puvodni smlouvy precislovavat, pak bych do cisla
smlouvy rodne cislo vubec nedaval a skladal bych to na vystupu nejak takto
SELECT CISLO_SMLOUVY = ZAKAZNIK.RODNE_CISLO+SMLOUVA.CISLO_SMLOUVY FROM
SMLOUVA JOIN ZAKAZNIK ON SMLOUVA.KLIC_ZAKAZNIKA = ZAKAZNIK.KLIC_ZAKAZNIKA -
Pokud se puvodni smlouvy precislovavat nebudou, pak je otazne, zda ma vubec
smysl do cisla smlouvy davat rodne cislo. Pak by mohlo byt vhodnejsi
cislovat smlouvy uplne jinak.
-----P�vodn� zpr�va-----
Od: Milan Bla�ek [SMTP:mbsint(zv)telecom(tec)cz]
Odesl�no: 18. srpna 1999 21:33
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Cislovani dokladu - jak nahrat hodnotu z jedne tabulky a tu
incrementovat
Zbysku diky za odpoved,
myslel jsem to priblizne tak jak pises s tim, ze jednak nemohu pro toto
reseni
pouzit SQL Databasi, to je jedna vec.Druha vec je, ze pri vymazani zaznamu
v
Table2
potrebuji nikoliv precislovat drive pridelena cisla (RodneCislo + cislo dle
poctu zaznamu ),ktera jsou stale vyuzivana , ale znovu obsadit jiz
definitivne vymazane cislo v Tabulce2 a to tak
aby se znovu zaplnila vznikla cislena dira.
Priklad: Zakaznik X ma rodne cislo 8888888888 ( v Table1)
Zakaznik X ma tri smlouvy s cislama 88888888881, 88888888882
a
88888888883 (v Table2)
V pripade, ze zrusime zaznam 88888888882 vznikne jedna ciselna dira a
ja bych ji rad
nejak znovu obsadil pri dalsim porizeni noveho zaznamu, protoze pokud
nedokazu
znovu obsadit ciselnou diru, tak dojde k tomu, ze pri porizovani
noveho
zaznamu se
mi vytvori duplicitni cislo 888888883 misto pozadovaneho 888888884.
V pripade zaplneni vznikle ciselne diry nemuze dojit k vytvoreni
stejnych cisel.
Pro upresneni Rodne cislo mam typu String.
Doufam ze jsem muj problem prijatelne vysvetlil.
Diky Milan Blazek
-----P�vodn� zpr�va-----
Od: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 17. srpna 1999 12:05
P�edm�t: Re: Cislovani dokladu - jak nahrat hodnotu z jedne tabulky a tu
incrementovat
Milan Bla ek wrote:
> Mam Tabulku1 Paradoxu a ta ma pole rodne cislo, ja potrebuji toto
> rodne cislo prenest do pole druhe Tabulky2 ( ktera je detail tabulky1
> - 1:N ) s tim, ze k prenesenemu rodnemu cislu potrebuji na konec
> pridat cislo , ktere odpovida skutecnemu poctu N zaznamu v tabulce2.
>
> Pokousel jsem to resit pomoci udalosti onNewrecord nad Table2 tak, ze
> jsem nacetl do pole Table2 hodnotu z Table1 ke ktere jsem pricetl
> hodnotu Table2.RecordCount. Na prvni pohled to funguje, ale po editaci
> jiz porizenych zaznamu nebo vymazani nektereho z jiz existujicich
> zaznamu v Table2 se mi jiz drive pridelene cislo neaktualizuje.
> Nevite nekdo jak na to ???
V Paradoxu budes mit problemy vzdy. V SQL databazi se tohle
elegantne vyresi pomoci triggeru. V Paradoxu se budes muset
porad trast, jestli ti do tabulek nekdo nezastara zvenci mimo tvuj
program.
Jedno mozne reseni je mit v Table2 pouze referencni odkaz na
Table1, takze rodne cislo zjistis pomoci reference. Pokud to z
nejakeho duvodu nejde a r.c. musi byt v Table2, pak nezbyva nez
po vymazani zaznamu vzdy vsechno precislovat. Po editaci by to
nemel byt problem, pokud uzivatele nepustis k editaci toho
poradoveho cisla. Takze po delete bys mohl udelat neco takoveho:
Zjistis poradove cislo mazaneho zaznamu, a pak pustis takovyto
update (bez zaruky na spravnou syntaxi):
update table2 set cislo=cislo-1 where cislo>smazanecislo and
rc=rodnecislo
Takhle jsi to myslel?
Jestli jenom potrebujes pridavat nova cisla, pak to muzes pri
insertu delat spise nez pres RecordCount takto:
{cislo=1+}select Max(cislo) from Table2 where rc=rodnecislo
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Detekce hesla v ssaveru
[*] tmara(zv)itsys(tec)cz - 19.8.1999 09:36:19
Hezky den,
jak mam udelat hlidani hesla v�ssaveru? Proste bych chtel, abych mohl ka�d�
pokus (at uz uspesny ci neuspesny) o uhadnuti hesla v�ssaveru zapsat do
nejakeho souboru s�presnym casem. Jelikoz jsem v�archivu konference nic
podobneho nenasel obracim se na Vas. Predem dekuju.
W98 / Delphi 4 Prof.Problem s prevodem STRING na REAL
[*] Luk� Gallina - 19.8.1999 09:36:52
Diky,
oprawdu jste mi pomohli, ale asi potrebuju nakopnout. Jak prewedene cislo w REALu zaokrouhlim na 2 des. cisla. Uz sem to kdysi delal a nemuzu si wzpomennout :-((
Diky
Lukas Gallina
Pipnuti na Enter v EDITu
[*] Ivan Kodaj <Ivan.Kodaj(zv)ibaware.sk> - 19.8.1999 09:44:52
if Key=13 then
begin
Key := #0;
Edit2.SetFocus;
end;
Vela zdaru!
i.k.Kresleni na Canvas tiskarny
[*] Kriz Pavel, TDS <kriz.tds(zv)ms.easynet(tec)cz> - 19.8.1999 09:48:00
> mam tento problem: Potreboval bych prenest na canvas tiskarny vektorovy
> obrazek. Jenze ono to na te tiskarne vyleze strasne malinke, pokud se
> pouziji parametry kresby stejne jako na canvas formu. Jak bych mohl
> zjistit rozmery canvasu tiskarny, aby ten obrazek nejak vypadal?
Rekne nam to WinApi funkce GetDeviceCaps, viz priklad:
DPI.X:=GetDeviceCaps(HandleDC, LOGPIXELSX);
DPI.Y:=GetDeviceCaps(HandleDC, LOGPIXELSY);
PageSizeMM.X:=GetDeviceCaps(HandleDC, HORZSIZE);
PageSizeMM.Y:=GetDeviceCaps(HandleDC, VERTSIZE);
PageSize.X:=GetDeviceCaps(HandleDC, HORZRES);
PageSize.Y:=GetDeviceCaps(HandleDC, VERTRES);
PhysicalSize.X:=GetDeviceCaps(HandleDC, PHYSICALWIDTH);
PhysicalSize.Y:=GetDeviceCaps(HandleDC, PHYSICALHEIGHT);
PhysicalSizeMM.X:=Round(PhysicalSize.X*25.4/DPI.X);
PhysicalSizeMM.Y:=Round(PhysicalSize.Y*25.4/DPI.Y);
PhysicalOffset.X:=GetDeviceCaps(HandleDC, PHYSICALOFFSETX);
PhysicalOffset.Y:=GetDeviceCaps(HandleDC, PHYSICALOFFSETY);
kde HandleDC je pro tisk Printer.Handle (pred spustenim tisku) nebo
Print.Canvas.Handle (po spusteni tisku).
Ale pozor, PHYSICALxxxx vraci spravne jen tiskarny, pro ostatni zarizeni je
lepsi pracovat s s HORZSIZE apod.
Jinak stoji za uvahu podivat se i na WinApi funkci SetMapMode
S pozdravem
Pavel Kriz
TDS, Praha