Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
RichEdit Text + grafika
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 1.10.2003 07:56:33
To zni slibne muzete trochu naznacit jak to mam udelat?
Dik PM
>Vykreslit si to na Canvas a pak vytisknout jako obrazek.
> Zdravim
> jakou komponentu byste pouzili(neco jako RichEdit), aby tam bylo
> mozne zapsat text a nejake cary, tabulky ... ??
> Potrebuji to plnit z nejake databaze a az to bude v graficke forme tak
> vytisknout
kaskada okien
[*] mato <mato.tino(zv)inmail.sk> - 15.10.2003 11:32:48
no ale v D5 .dsk nieje aspon nie v adresari s projektom
----- Original Message -----
From: "Jan Fiala" <jan.fiala(zv)wo(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, October 14, 2003 3:02 PM
Subject: Re: kaskada okien
> 14.10.2003 mato:
> > zdravim,
>
> > ako v prostredi D5 zobrazim vsetky okna ? Mam jedno okno mimo obrazovky,
mal
> > som to na inom PC s vacsim rozlisenim, ako dam aby mi vsetky okna
posunul na
> > viditelnu cast obrazovky ?
>
> Smaz soubor .DSK projektu
> Pokud se to tyka nejakeho okna IDE, jde o soubor v adresari
> \Prog.files\Delphi\Bin
>
> --
> Jan Fiala
> mailto:jan.fiala(zv)wo(tec)cz
>
>
>
>
> ----------
> * www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
> * Mail neobsahuje virusy. Zkontrolovane antivirusom NOD32 (www.eset.sk)
> * www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
> * Zoner Media Explorer 5 - stiahnite si pomocnika pre digitalnu fotografiu
(zme.zoner.sk)
>
>program z D5 na D7
[*] mato <mato.tino(zv)inmail.sk> - 15.10.2003 10:54:45
zdravim,
pustil som projekt , ktory mi ide normalne v D5 do Delphi 7. Pri komplikacii
vypisalo chybu ve kode kde som priradoval taxtovej premennej hodnotu NULL
premn:=Null;
D5 to vzala
dalej mam formular report s komponentami Qreport. V D7 to vobec nieje a
samozrejme vypise ze npozna triedu. To v D7 to neexistuje alebo co robim zle
?TFrame v Delphi 7
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 15.10.2003 10:32:41
> No, prave ja se ted rozmyslim, zda postavit novy projekt
> v D7 na frames - na predcich formularu lezi nejake
> frames , ktere se pak v konkretnich potomcich lehce
> modifikuji. Napr. frame s gridem (DBAware)... Tak jsem
> se chtel zeptat, nez do toho investuju desitky hodin
> prace, abych nenarazil jako v D5
> :-))
Ja mam jeden projekt, ktory pouziva cca 15 framov s 3 urovnami dedicnosti a
nemam s nim ziadne problemy. Ale dedicnost formularov + dedicnost framov tam
nemam.
Boli tu spominane straty vlastnosti typu odkaz na komponent. To sa obcas
stane aj v Delphi 7, ale to asi nie je specificke pre framy.
Myslim, ze to vznika vtedy, ak cielovy modul (form/datamodule) nie je
sucastou projektu alebo uz otvoreny v IDE, takze Delphi ciel toho odkazu
nenajde a preto vlastnost nastavi na nil. Je to dost neprijemne, nedostanes
totiz ziadnu hlasku a pritom zdrojovy modul sa tvari ako nezmeneny, ak sa
nemylim.
Pripadne (pretoze sa mi to stava aj vtedy, ked cielovy form/datamodule je
sucastou projektu) to moze suvisiet s poradim, v akom sa otvaraju jednotlive
moduly z predtym uchovaneho .dsk suboru.
Neprijemne, ale da sa to obist - napriklad nastavenim problemovych
vlastnosti v kode.
Ja som si pri takychto zlozitejsich projektoch vytvoril zvyk vzdy po
otvoreni projektu zatvorit rucne (Ctrl+F4) vsetky automaticky otvorene
moduly (tie su ulozene v .dsk) a potom si ich rucne otvaram v poradi podla
dedicnosti, najstarsieho predka najprv a najmladsieho potomka naposledy. A
dam si zalezat na tom, aby vsetky takto prepojene moduly boli sucastou
projektu v .dpr. Zda sa, ze to pomaha, neviem to ale povedat so 100%
istotou.
HTH
TOndrej
TFrame v Delphi 7
[*] ludek.paral(zv)quick(tec)cz - 15.10.2003 10:32:41
> No, prave ja se ted rozmyslim, zda postavit
> novy projekt v D7 na frames - na
- velmi se vyplati postupne pilovat Tframe_Table pro pristup k jedne tabulce. Tento frame pak muze pouzit na libovolnem poctu formularu.Formular hur umistujes do jineho formulare (mimo hlavni form aplikace). Kdysi jsem investoval desitky hodin prace do listview, ktere nahrazovalo dbgrid (prave kvuli rychlosti aktualizace Client-Server) a myslim, ze zbytecne. Pro vetsinu aplikaci lze pouzit dbgrid.Pouze, pokud mas nejakou big db nebo treba pristup k datum po modemu, se vyplati udelat non-db frame a vse individualne nacitat. To mam ale treba jiz udelane pres nazev komponenty,tag na framu tak, ze je zde metoda "Load_Data", kde plnim autom.non-db komponenty
I kdyz to neni uplne ciste, s db-aware komponentami na mensich projektech usetris spoustu casu. Na komplikovanych zas usetris ladeni vsech problemu pri pouziti non-db, pouzivam tento pristup ale jen,kdyz problemy nastanou.
> > > 2) Jsou alespn ty nejzakladnejsi chyby
> z D5 v D7 opraveny?
> > Nektere opraveny, jine zase vytvoreny ;-)
> A nejaky hezky seznam nebo odkaz by nebyl?
> Pres google jsem nic nenasel :-(
- seznam tri svych problemu jsem jiz napsal, sice se nekdy holt musim drbat "druhou rukou", ale zit se s tim zatim da.
Ludek
Hladanie v ListView
[*] delphinpp(zv)seznam(tec)cz - 15.10.2003 11:18:47
Zdar !
Akym sposobom zistit poziciu urciteho Itemu v ListView podla nazvu v prvom
stlpci.. ListView ma IndexOf, ale ako parameter je TListItem...
Dik
Variantni grid
[*] Svehla Jaroslav <svehla(zv)spelza(tec)cz> - 15.10.2003 10:50:44
Ahoj, muzete mi nekdo doporucit komponentu, ktera by se chovala jako grid se sloupci ruznych typu (TEdit, TCombo, TCheck, TBitmap,...), pripadne u ktereho lze nadefinovat vlastni typ sloupce. Muze byt i komercni.
Dik.
svehla(zv)atlas(tec)cz
------------------------------------------------------------------------------------------------
Postavte si svuj MP3 prehravac http://home.tiscali(tec)cz/mp3kit
TFrame v Delphi 7
[*] ludek.paral(zv)quick(tec)cz - 15.10.2003 10:34:42
> no, v D5 i D7 se mi stava, ze za urcitych
> (bohuzel sem nezjistil
> kterych:( ) okolnosti se proste ztrati
> odkazy treba na datasource apod.
- ano, musim to resit tak, ze v tframe_table mam dbgrid.datasource=ds_table;, u jinych komponent nez je dbgrid se mi to ale nestalo.
Ludek
Export do excelu
[*] jsemler(zv)stbk.mcs(tec)cz - 15.10.2003 10:46:44
>
>
>No v podstate je to jedno jestli primo do excelu nebo do xls souboru sel
>bych jednodussi cestou jen nevim ktera to je :-)
>
Ja pouzivam k exportu do XLS F1Book (je soucasti Delphi - D6 Pro),
nepotrebujes nainstalovany Excel, ale asi budes muset s aplikaci
instalovat tyto soubory: Wininet.dll, Msvcrt40.dll, Oc30.dll,
Oleaut32.dll, Olepro32.dll, Shlwapi.dll, Stdole2.tlb, Vcf132.ocx,
Msvcrt20.dll.
Tady je priklad:
procedure TMainForm.ToolButton2Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
F1Book1.Sort3(2,1,F1Book1.LastRow,5,True,1,0,0);
F1Book1.Write(SaveDialog1.FileName,F1FileExcel5);
end;
end;
procedure TMainForm.NaplnitXLS;
var i,j:integer;
begin
F1Book1.ClearRange(1,1,F1Book1.MaxRow,F1Book1.MaxCol,F1ClearAll);
F1Book1.TextRC[1,1]:='Datum';
F1Book1.TextRC[1,2]:='Delka pripojen';
F1Book1.TextRC[1,3]:='Telefon';
F1Book1.TextRC[1,4]:='Nacteno MB';
F1Book1.TextRC[1,5]:='Odeslano MB';
j:=Length(IRelaceArr);
For i:=0 to j-1 do
begin
F1Book1.NumberRC[i+2,1]:=IRelaceArr[i].Datum;
F1Book1.NumberRC[i+2,2]:=IRelaceArr[i].Delka{+StrToTime('00:00:40')};
F1Book1.TextRC[i+2,3]:=IRelaceArr[i].Telefon;
F1Book1.NumberRC[i+2,4]:=IRelaceArr[i].Nacteno;
F1Book1.NumberRC[i+2,5]:=IRelaceArr[i].Odeslano;
end;
end;
pristup k Visual foxpro
[*] mato <mato.tino(zv)inmail.sk> - 15.10.2003 10:28:41
zdravim, ako zozeniem ovladace k databaze vizual foxpro? Je to sucastou
nejakeho office ? Je to v MDAC 2.8 ? Chcem pristupovat cez ADO komponenty v
D7
TFrame v Delphi 7
[*] ludek.paral(zv)quick(tec)cz - 15.10.2003 10:20:40
Ahoj,
jiz pres rok pouzivam pro nove projekty jen TFrame. Nemam problemy ani gridy ani s dbaware komponentami. Kde se pouze objevil problem, jsou tri veci :
- Mainmenu:zkousel jsem sice merge, ale melo to mouchy, nakonec pouzivam na framu jen butony a popup_menu
- dbctrlgrid - dle meho nazoru proste nefunkcni (take jeho klony napr. dbHcCtrlgrid)
- RxFormStorage - z neznamych duvodu nelze uvest do aktivniho stavu.
Dale jsou jiz jen malickosti, treba metodu Create musis psat rucne (v object inpectoru neni event OnCreate), radeji volam create na form rucne,atd..
Ludek
----- Puvodni zprava -----
Od: Jan Fiala <jan.fiala(zv)wo(tec)cz>
Datum: utery, 14. rijna 2003 v 10:48 odp
Predmet: Re: TFrame v Delphi 7
> 14.10.2003 Daniel Frantik:
> > Dobry den,
> > chci se zeptat jak dobre funguji TFrame
> v D7. Pokud vim, tak v D5 byly
> > problemy s gridy a dalsimi vecmi na frame.
> Pokud se neco nastavilo pouze na
> > formulari, kam byl frame polozen, dely se
> psi kusy - od neexistence handleru
> > eventu po acces violation.
> > Takze otazka:
> > 1) Pouzivate nekdo nejak vic framy ve
> svych projektech pod D7?
> > 2) Jsou alespn ty nejzakladnejsi chyby z
> D5 v D7 opraveny?
>
> Frame pouzivame hojne. Pouzivali jsme je bez
> problemu i na D5. Po
> prechodu na D7 se nevyskytly zadne problemy.
> Ale nepouzivame na
> frame zadne dbAware komponenty.
>
> --
> Jan Fiala
> jan.fiala(zv)wo(tec)cz
>
>
>
>TFrame v Delphi 7
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 15.10.2003 10:10:31
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Daniel Frantik
>
> lehce modifikuji. Napr. frame s gridem (DBAware)... Tak jsem se chtel
> zeptat, nez do toho investuju desitky hodin prace, abych
> nenarazil jako v D5
> :-))
Ahoj,
no, v D5 i D7 se mi stava, ze za urcitych (bohuzel sem nezjistil
kterych:( ) okolnosti se proste ztrati odkazy treba na datasource apod.
Takze jsem pouziti framu s DBAware komponentami omezil na minimum,
ale nejradsi bych to nepouzival vubec (myslim tim spojeni frame a DBAware).
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Ancestor for .... not found
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 15.10.2003 10:04:30
> Pri otevirani unit1 s form1, ktery je zdedeni z form2 z unit2. Delphi
> hlasi toto:
>
> Error creating form: Ancestor for 'Form2' not found.
>
S timhle jsem se potkaval, kdyz ten predek nebyl soucasti projektu.
Po pridani do projektu problem zmizel.
David Lebeda
Ancestor for .... not found
[*] Jan Rizek <abxsw(zv)centrum(tec)cz> - 15.10.2003 09:50:28
Dobry den,
Pri otevirani unit1 s form1, ktery je zdedeni z form2 z unit2. Delphi hlasi
toto:
Error creating form: Ancestor for 'Form2' not found.
Predek Form2 je TForm.
Ted se mi konecne podarilo formular form1 zobrazit. Ovsem nechapu duvody
tohoto divneho chovani.
Unit1 je soucasti balicku, ve kterem musi byt unit2 i Forms a form2 musi byt
zobrazen. Potom lze form otevrit - obcas...
Honza Rizek
TFrame v Delphi 7
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 15.10.2003 09:42:28
> Pokud mas nejaky specificky pripad na kterem to muzes
> vyzkouset tak si stahni
No, prave ja se ted rozmyslim, zda postavit novy projekt v D7 na frames - na
predcich formularu lezi nejake frames , ktere se pak v konkretnich potomcich
lehce modifikuji. Napr. frame s gridem (DBAware)... Tak jsem se chtel
zeptat, nez do toho investuju desitky hodin prace, abych nenarazil jako v D5
:-))
> > 2) Jsou alespn ty nejzakladnejsi chyby z D5 v D7 opraveny?
> Nektere opraveny, jine zase vytvoreny ;-)
A nejaky hezky seznam nebo odkaz by nebyl? Pres google jsem nic nenasel :-(
Diky, Danik
Jak korektne prenaset cestinu pres COM
[*] CIS <cis(zv)atlas(tec)cz> - 15.10.2003 09:36:27
Ahoj
Meli jsme podobny problem a odstranil jsme to zakodovanim retezce a
rozkodovanim na druhe strane.
ales
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
> Behalf Of Jaromir Cermak
> Sent: Tuesday, October 07, 2003 7:16 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Jak korektne prenaset cestinu pres COM
>
> Ahoj vsichni
>
> Mam dva programy. Komunikuji takto klient po siti s Borland socket
> serverem, socket server se severem pres COM. Na serveru je definovan
> funkce jejimz vystupnim parametrem (variantem) se prenasi cesky
retezec.
> Je-li socketserver pouzit jako sluzba pod uzivatelem system cestina se
> neprenese dobre, bezi li pod uzivatelem je vse OK. Nevite jak to
nastavit
> aby vse bylo OK. Problem nedelaji datarequesty ale dalsi metody
pridavane
> do rozhrani remote datamodulu. Prosim o jakoukoliv radu
>
> Jaromir Cermak
>
>
Jak zkopirovat data z tabulky PervasiveSQL do mySQ
[*] tondrej(zv)t-online.de - 15.10.2003 09:12:23
> Ano, potrebuji providera a clientdataset, pokud chci v tabulce mySQL
> editovat data. TSQLQuery a TSQLTable jsou totiz jednosmerne. Alespon
> tak jsem to vycetl v helpu.
Ty ale nechces obojsmerne citat a zapisovat. Chces len vykonat x insertov a to
je jednosmerne.
> TSQLConnection nema ovladac pro pristup do Pervasive, takze se
> pripojuji pres ADO.
OK, to som nevedel, ale na cielovej strane (dbExpress) to nic nemeni.
> ADOConnection := ODBC pripojeni do Pervasive;
> ADOQuery.SQL.Text := 'SELECT * FROM tabulka_src';
> SQLConnection := pripojeni k mySQL;
> SQLQuery.SQL.Text := 'INSERT INTO SELECT * FROM :ADOQuery';
> SQLQuery.Execute;
Ano, urcite. ADO pouzijes standardnym sposobom na select z Pervasive a
dbExpress standardnym sposobom na insert do mySQL.
HTH
TOndrej
Jak zkopirovat data z tabulky PervasiveSQL do mySQ
[*] Pavel Hauptman <phauptman(zv)bilbo(tec)cz> - 15.10.2003 08:34:16
> Nie je mi jasny tento myslienkovy postup. mySQL snad vyzaduje
> providera?
> Myslim, ze nie. Myslim, ze staci pouzit dbExpress s mySQL driverom:
> TSQLConnection a TSQLQuery, ako som to uz poslal.
Ano, potrebuji providera a clientdataset, pokud chci v tabulce mySQL
editovat data. TSQLQuery a TSQLTable jsou totiz jednosmerne. Alespon tak
jsem to vycetl v helpu.
> V dbExpress to predsa ide tiez. Mozes mat dve TSQLConnection, jednu do
> Pervasive a druhu do mySQL.
> Nerozumiem, v com vidis problem. Malo by to fungovat. Ak mi
> nieco uniklo
> (nepoznam dbExpress, Pervasive ani mySQL), potom ma prosim oprav. Dik.
TSQLConnection nema ovladac pro pristup do Pervasive, takze se pripojuji
pres ADO.
Nevim, jak mam mohu sloucit dve ruzna prostredi. Melo by to vypadat asi
takto?
ADOConnection := ODBC pripojeni do Pervasive;
ADOQuery.SQL.Text := 'SELECT * FROM tabulka_src';
SQLConnection := pripojeni k mySQL;
SQLQuery.SQL.Text := 'INSERT INTO SELECT * FROM :ADOQuery';
SQLQuery.Execute;
PH.
ovladani aplikace modemem
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 15.10.2003 08:12:07
Jak ale spravne inicializovat modem tak, aby po zazvoneni pouze
zvedl(automaticky), prijmal volbu a cekal nez dostane prikaz pro polozeni.
ATA mi zvedne hned i bez zvoneni a hned se snazi spojovat. Pri zavolani toho
modemu z telefonu se zase snazi spojovat. Ja ale potrebuji aby nepistel do
linky a pouze prijmal volbu ze vzdaleneho telefonu. AT prikazy mam vypsane,
ale nejak mi na to nic nesedi. Nemate nekdo priklad takoveho inicializacniho
retezce? Muzete mi to nekdo popsat podrobneji?
Martin
> po ohlaseni prichoziho hovoru - zvoneni to zvedlo telefon - ATA
> pak to prehralo nejaky wav (jiz si z hlavy nepamatuji) a cekalo na DTMF
tony
> modem DTMF tony predava proste jako znaky na seriovou linku - tedy
vypisuje
> 0123456789*# a tim se da udelat jakakoliv logika
Jak zkopirovat data z tabulky PervasiveSQL do mySQ
[*] tondrej(zv)t-online.de - 15.10.2003 07:58:06
> Zdrojova tabulka je vlastne dotaz do databaze PervasiveSQL, cilova
> tabulka by pak mela obsahovat data ze zdroje, ale je ulozena v
> databazi mySQL. Proto to taham pres providera.
Nie je mi jasny tento myslienkovy postup. mySQL snad vyzaduje providera?
Myslim, ze nie. Myslim, ze staci pouzit dbExpress s mySQL driverom:
TSQLConnection a TSQLQuery, ako som to uz poslal.
> V BDE slo pouzit objekt TDatabase, ktery byl
> nalinkovany na dotaz do Pervasivu, druhy objekt TDatabase byl
> nalinkovany na dotaz v mySQL, a pak byl jeste objekt TQuery, ktery
> obsahoval string asi tento: 'insert into :database_dest:tabulka_dest
> select * from database_src:tabulka_src'.
>
> Jenze ja BDE nechci pouzivat, je to preci jenom uz starsi databaze, a
> ja se chci naucit pracovat s novejsimi.
V dbExpress to predsa ide tiez. Mozes mat dve TSQLConnection, jednu do
Pervasive a druhu do mySQL.
Nerozumiem, v com vidis problem. Malo by to fungovat. Ak mi nieco uniklo
(nepoznam dbExpress, Pervasive ani mySQL), potom ma prosim oprav. Dik.
TOndrej
Jak zkopirovat data z tabulky PervasiveSQL do mySQ
[*] Pavel Hauptman <phauptman(zv)bilbo(tec)cz> - 15.10.2003 07:19:55
> Ak Ti ide o rychlost, mozes pouzit priamo SQL a neist na to
> zbytocne cez
> clientdataset a providera.
> Napriklad TSQLQuery (dst) s TSQLConnection (conn):
>
> dst.SQL.Text := 'insert field1, field2, ... into table1
> values (:field1,
> :field2, ...)';
> dst.Prepared := True; // * vid nizsie
takhle by se mi to libilo, jenze to nelze pouzit. Zdrojova tabulka je
vlastne dotaz do databaze PervasiveSQL, cilova tabulka by pak mela obsahovat
data ze zdroje, ale je ulozena v databazi mySQL. Proto to taham pres
providera. V BDE slo pouzit objekt TDatabase, ktery byl nalinkovany na dotaz
do Pervasivu, druhy objekt TDatabase byl nalinkovany na dotaz v mySQL, a pak
byl jeste objekt TQuery, ktery obsahoval string asi tento:
'insert into :database_dest:tabulka_dest select * from
:database_src:tabulka_src'.
Jenze ja BDE nechci pouzivat, je to preci jenom uz starsi databaze, a ja se
chci naucit pracovat s novejsimi.
PH.
Velikost interbase
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 15.10.2003 06:31:43
> Rekneme ze mam 3 tabulky cca po 10 sloupcich kolik radku do nich muzu
> ulozit aby databaze nebyla lina ?
Rekl bych, ze na lenost databaze nebude mit pocet radku zasadni
vliv, i s miliony se da pracovat, ovsem vhodnym zpusobem. Daleko
dulezitejsi tedy je, jak budes s daty pracovat a co po databazi budes
chtit.
David Lebeda
test verzie operacneho systemu v tp 5.5
[*] ludvil1.edu(zv)mail.cez(tec)cz - 15.10.2003 06:27:43
<to nie je take jednoduche...
<to som uz skusal.
<Spustim si ho procedurou
<EXEC(getenv('COMSPEC'),' /C ver' >ver.txt)
a co SET ?
EXEC(getenv('COMSPEC'),' /C set' >ver.txt
Lubos
Typ RECORD
[*] ing. Jan Fiala <jan.fiala(zv)wo(tec)cz> - 15.10.2003 05:49:32
15.10.2003 jsdelphi(zv)creatix(tec)cz:
> Zdravim vsechny,
> prosim o nasledujici radu:
> Je mozne predat libovolny record jako parametr nejake procedure a nasledne
> analyzovat jeho strukturu, pripadne do ni zapisovat?
Rekl bych ze obecny record nepredas. Dalo by se to ale obejit pomoci
VarArray (pole variantu). To muzes predat a pak prochazet a zjistovat
jednotlive typy
--
ing. Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
Cannot assign TLine to TLine - nechapu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.10.2003 04:01:17
From: "Miroslav Novosad" <mirnov2(zv)seznam(tec)cz>
> ale pise mi to "Cannot assign TLine to TEntity" a vsechny pokusy o
> pretypovani konci "Invalid class typecast"
A prepsat jsi metody Assign/AssignTo tak aby umely pracovat s temi tridami
TLine a TEntity ? Podivej se treba na implementaci TStrings.Assign
Petr Vones
Typ RECORD
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.10.2003 03:57:15
From: <jsdelphi(zv)creatix(tec)cz>
> Je mozne predat libovolny record jako parametr nejake procedure a nasledne
> analyzovat jeho strukturu, pripadne do ni zapisovat?
Ne. Jedine co by se tomu mohlo priblizit je to odvodit jako tridu od
TPersistent, polozky vytvorit jako published property a ty pak prochazet
pomoci RTTI.
Spis popis co chces vlastne udelat ?
Petr Vones
Zakazat zpusteni IE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.10.2003 23:58:49
From: "Bronislav Klucka" <bronislav.klucka(zv)pro2-soft.com>
> Covece, kdyz uz jsi u toho, da se nejak zachytit CreateProcess? Krome toho,
Na urovni aplikace ne. Musel by si napsat kernel driver.
Petr Vones
Zakazat zpusteni IE
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 30.10.2003 21:50:41
>
> From: "Ales Pavel" <aldik(zv)quick(tec)cz>
> > Ahoj kluci jak zakazu zpousteni Internet Exploreru,jde to
nejak?:-)Pripadne
> > da se hookovat zpusteni IE?:-) to by bylo jeste lepsi.-)
>
> Napriklad nastavenim prav u toho souboru (NTFS). Nebo taky muzes
> implementovat
> IShellExecuteHook (viz SDK) kde lze odchytit vsechny volani
> ShellExecuteEx v
> ramci celeho systemu a pripadne odmitnout neco spustit. Samozrejme si muze
> nekdo spustit nejaky jiny spoustec, ktery pouzije CreateProcess,
> coz uz takto
> neodchytis.
>
> Petr Vones
>
Covece, kdyz uz jsi u toho, da se nejak zachytit CreateProcess? Krome toho,
ze bych cas od casu projizdel procesy a dival se na FileName? (coz ani neni
zachyceni...)
Brona
ShellCtrls zjisteni adresare a souboru
[*] Jan Harman <harman(zv)volny(tec)cz> - 30.10.2003 21:08:37
ShellTreeView.SelectedFolder.PathName
Honza
----- Original Message -----
From: "Benda Lukas" <bendal(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, November 30, 2003 8:20 PM
Subject: ShellCtrls zjisteni adresare a souboru
> Chci pouzit komponenty z palety "Sample". Konkretne ShellListView a
> ShellTreeView. Nejsem k tomu schopny najit zadny help. Chci pouze
> zjistit jmeno vybraneho souboru a adresar.
> Lukas Benda
>
>
>
Zakazat zpusteni IE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.10.2003 20:18:34
From: "Ales Pavel" <aldik(zv)quick(tec)cz>
> Ahoj kluci jak zakazu zpousteni Internet Exploreru,jde to nejak?:-)Pripadne
> da se hookovat zpusteni IE?:-) to by bylo jeste lepsi.-)
Napriklad nastavenim prav u toho souboru (NTFS). Nebo taky muzes implementovat
IShellExecuteHook (viz SDK) kde lze odchytit vsechny volani ShellExecuteEx v
ramci celeho systemu a pripadne odmitnout neco spustit. Samozrejme si muze
nekdo spustit nejaky jiny spoustec, ktery pouzije CreateProcess, coz uz takto
neodchytis.
Petr Vones
Problem s pripojenim RAS
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 30.10.2003 20:18:33
From: "Marek Dostal" <konf(zv)agnis(tec)cz>
> Zkousim RAS unity u projektu JEDI a nedari se mi pripojit, v cem by mohl byt
Mas tam priklad v adresari Demos.
Petr Vones
Synaser - nutne probuzeni mobilu
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 30.10.2003 20:34:35
> Mam aplikaci, komunikujici se tremi mobily pomoci synaser a at
> prikazu. Problem je ten ze mobily co jsou pres com (t610 je pres BT) obcas (pri vypnute
> teto aplikaci) usnou, a pokud aplikaci spustim nasledujici kod
> neprojde jak ma...
>
> fSerPort.RaiseExcept := false;
> fSerPort.Connect(fPort);
> fSerPort.Config(19200,8,'N',1,false,true);
Problem je schovan nekde uplne jinde nez tusit. ;-)
problem je v tom, ze se ti nepodari zkonfigurovat port. Mas tam totiz
nastaveny 1.5 stopbitu, a ma tam byt jen jeden stopbit! (pro jeden
stopbit neni totiz hodnota 1, ale ma tam byt hodnota 0! je to popsane v
dokumentaci a v komentarich ve zdrojacich. Take v poslednim Synaseru je
jsou na stopbity predefinovany konstanty. ;-)
takze zkus volat:
fSerPort.Config(19200,8,'N',0,false,true);
.. funguje?
To, ze ti hyperterminal 'probudil' mobil, to bylo jen o tom, ze ti
Hyperteminal prekonfiguroval parametry portu.
kdyz se pripojis Synaserem na port, tak prevezme posledni znamopu
konfiguraci serioveho portu, tedy pouzije to nastveni, co mu vnutil
hyperterminal. Kdyz pak volas Config se spatnou kombinaci parametru, nic
se v konfiguraci nezmeni, jen se signalizovana chyba v lastError.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP Library
ShellCtrls zjisteni adresare a souboru
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 30.10.2003 20:20:34
Chci pouzit komponenty z palety "Sample". Konkretne ShellListView a
ShellTreeView. Nejsem k tomu schopny najit zadny help. Chci pouze
zjistit jmeno vybraneho souboru a adresar.
Lukas Benda
kopirovani adresare
[*] Jan Harman <harman(zv)volny(tec)cz> - 30.10.2003 20:12:28
Ja pouzivam toto:
Function CopyDirectory (sour, dest: String; move: Boolean): Boolean;
var
FileOp: TSHFileOpStruct;
begin
Result := true;
ZeroMemory((zv)FileOp, Sizeof(FileOp));
with FileOp do
begin
Wnd := Application.MainForm.Handle;
if move then wFunc := FO_MOVE
else wFunc := FO_COPY;
pFrom := PChar(Sour+#0#0);
pTo := PChar(Dest+#0#0);
fFlags := FOF_NOCONFIRMATION + FOF_ALLOWUNDO;
end;
if (SHFileOperation(FileOp) <> 0) or (FileOp.fAnyOperationsAborted) then
Result := false;
end;
Honza
----- Original Message -----
From: "Matejcek Petr" <konference(zv)crhov.komfi(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, November 30, 2003 8:02 PM
Subject: kopirovani adresare
> zdravim,
>
> jakou funkci pouzit pro zkopirovani celeho adresare rekneme
> \\server\zaloha vcetne podadresaru a souboru do adresare c:\zaloha
>
> je na to neco ??
>
> diky PM
>
>
>
>
kopirovani adresare
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 30.10.2003 20:02:27
zdravim,
jakou funkci pouzit pro zkopirovani celeho adresare rekneme
\\server\zaloha vcetne podadresaru a souboru do adresare c:\zaloha
je na to neco ??
diky PM
Problem antialiasingem
[*] Ondrej <ieee(zv)ynet.sk> - 30.10.2003 19:54:26
mozem ti poslat aj cely program, ak mi povies kde. inak tu je presne to co
potrebujes. je to vypis programu, nie vseobecny unit:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Buttons;
type
TForm1 = class(TForm)
Button1: TButton;
Image3: TImage;
Button3: TButton;
Button4: TButton;
ScrollBox1: TScrollBox;
Image2: TImage;
ScrollBox2: TScrollBox;
Image1: TImage;
BitBtn1: TBitBtn;
Label1: TLabel;
Label2: TLabel;
CheckBox1: TCheckBox;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
pRGBArray = ^TRGBArray;
TRGBArray = ARRAY[0..high(smallint)] OF TRGBTriple;
var
Form1: TForm1;
zoom:boolean=false;
const z=3;
implementation
{$R *.DFM}
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
procedure FastAntiAlias;
var
x, y, j,i, totr, totg, totb: integer;
big_bmp, out_bmp : TBitmap;
cx, cy : integer;
Row1, Row2, Row3, DestRow: pRGBArray;
sirka,vyska:integer;
begin
{omlouvam se za dlouhou proceduru, ale to jinak udelat neslo
je to proste rutina, ktera se neda volat od nikud jinud}
sirka:=form1.Image1.Width;
vyska:=form1.Image1.Height;
// vytvoreni pomocne bitmapy k presamplovani do vyssiho rozliseni
big_bmp := TBitmap.Create;
big_bmp.Width := sirka*z;
big_bmp.Height := vyska*z;
big_bmp.PixelFormat := pf24bit;
big_bmp.Canvas.Draw(0,0,form1.image3.Picture.Bitmap);
file://Vytvoreni vystupni bitmapy
out_bmp := TBitmap.Create;
out_bmp.Width := sirka;
out_bmp.Height := vyska;
out_bmp.PixelFormat := pf24bit; // pro vsechny radky
for y := 0 to vyska - 1 do
begin
// spocitam vzorek 3 x 3 pixels
cy := y*z;
// Vezmu body od aktualniho, predchziho a nasledujYcYho sloupce v
presamplovane bitmape
Row1 := big_bmp.ScanLine[cy];
Row2 := big_bmp.ScanLine[cy+1];
Row3 := big_bmp.ScanLine[cy+2];
// Vezmu ukazatel na sloupec y
DestRow := out_bmp.ScanLine[y];
file://pro vsechny radky
for x := 0 to sirka - 1 do
begin
// zpracuju vzorky z 3 x 3 pixelu
cx := x*z;
// icializace vysledne barvy
totr := 0;
totg := 0;
totb := 0;
// Pro vsechny pxely ve vzorku
for i:=0 to 2 do
begin
// nova hodnota cervene
totr := totr + Row1[cx + i].rgbtRed
+ Row2[cx + i].rgbtRed
+ Row3[cx + i].rgbtRed;
// nova hodnota zelene
totg := totg + Row1[cx + i].rgbtGreen
+ Row2[cx + i].rgbtGreen
+ Row3[cx + i].rgbtGreen;
// nova hodnota modre
totb := totb + Row1[cx + i].rgbtBlue
+ Row2[cx + i].rgbtBlue
+ Row3[cx + i].rgbtBlue;
end;
// nastaveni vyslednych pixelu
DestRow[x].rgbtRed := totr div 9;
DestRow[x].rgbtGreen := totg div 9;
DestRow[x].rgbtBlue := totb div 9;
end;
end;
form1.Image2.canvas.Draw(0,0,out_bmp);//zkopirovani vysledne bitmapy
file://uvolneni vsech pomocnych bitmap
big_bmp.free;
out_bmp.free;
End;
procedure SeparateColor(color : TColor; var r, g, b : Integer);
begin
r := Byte(color);
g := Byte(color shr 8);
b := Byte(color shr 16);
end;
procedure AntiAliasing;
var
x, y: integer;
totr, totg, totb, r, g, b : integer;
i, j: integer;
begin
file://pro vUechny ??dky
for y := 0 to form1.image1.Height - 1 do
begin
Application.ProcessMessages; // nech aplikaci vykreslit se po ?adcYch
file://pro vUechny sloupce
for x := 0 to form1.image1.Width - 1 do
begin
totr := 0; file://inicializuj barvu
totg := 0;
totb := 0;
// p?eRti barvu ze vUech okolnich pixelu
for i := 0 to 2 do
begin
for j := 0 to 2 do
begin
SeparateColor(form1.image3.Canvas.Pixels[(x*z) + j, (y*z) + i], r,
g, b); file://oddyl barevnU so?ky
totr := totr + r; file://p?iRti p?Yspyvek u ka?dU slo?ky zvlaUL
totg := totg + g;
totb := totb + b;
end;
end;
form1.image2.Canvas.Pixels[x,y] := RGB(totr div 9, file://nakresli
vyslednou barvu podylenou 9
totg div 9,
totb div 9);
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var cas:integer;
begin
Image2.Canvas.FillRect(Image2.Canvas.ClipRect);
Application.ProcessMessages;
cas:=GetTickCount;
form1.Enabled:=false;
if CheckBox1.Checked then
FastAntiAlias
else
AntiAliasing;
cas:=GetTickCount-cas;
form1.Enabled:=true;
label2.caption:=floattostr(cas/1000)+'s';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
image2.Canvas.FillRect(Image2.Canvas.ClipRect);
with image1.canvas do
begin
Pen.Width:=3;
FillRect(Image1.Canvas.ClipRect);
Brush.Color:=clyellow;
Ellipse(1,1,image1.Width-1,Image1.Height-1);
LineTo(image1.Width,image1.Height);
MoveTo(image1.Width,0);
lineto(0,image1.Height);
end;
image1.Canvas.Font.Size := 30;
image1.Canvas.Font.Name := 'Arial';
image1.Canvas.TextOut(10,100,'Ondrej 2003');
image3.width:=image1.Width*z;
image3.Height:=image1.Height*z;
with image3.canvas do
begin
Pen.Width:=3*z;
FillRect(Image3.Canvas.ClipRect);
Brush.Color:=clyellow;
Ellipse(z,z,image3.Width-z,image3.Height-z);
LineTo(image1.Width*z,image1.Height*z);
MoveTo(image1.Width*z,0);
lineto(0,image1.Height*z);
end;
image3.Canvas.Font.Size := 90;
image3.Canvas.Font.Name := 'Arial';
image3.Canvas.TextOut(3*10,3*100,'Ondrej 2003');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if not zoom then
begin
Image1.Width:=Image1.Width*3;
Image1.height:=Image1.Height*3;
Image2.Width:=Image2.Width*3;
Image2.height:=Image2.Height*3;
zoom:=true;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if zoom then
begin
Image1.Width:=Image1.Width div 3;
Image1.height:=Image1.Height div 3;
Image2.Width:=Image2.Width div 3;
Image2.height:=Image2.Height div 3;
zoom:=false;
end;
end;
end.
----- Original Message -----
From: "Michal Adler" <michal.adler(zv)fotoadler(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, November 30, 2003 11:05 AM
Subject: Problem antialiasingem
> Zdravim vsechny,
> potreboval bych poradit od nekoho kdo dela(l) nekdy neco s grafikou v
> Delphi.
>
> Potrebuji z obrazku udelat jeho zmenseninu v nejakem pomeru treba 1:2
> (tohle neni problem). Prepocitat velikost bitmapy a ulozit ji umim.
> Problem je, ze ty vysledne obrazky jsou takove kostrbate proste
> nevypadaji tak dobre jako kdyz si je zmensim treba ve photoshopu nebo
> jinem programu. Potrebuji tedy dodelat neco jako "vyhlazovani"
> vysledne grafiky.
>
> Pokud nekdo vite jak na to, nebo vite o nejake free komponente, ktera
> tohle zvladne budu strasne vdecnej. Uplne nejlepsi by byl nejaky
> utrzek kodu do mailu... :-)
>
> predem moc dekuji
> Michal Adler
>
>
>Excel
[*] Bronislav Klucka <delphi(zv)pro2-soft(tec)com> - 30.10.2003 19:24:24
To zretelne zakaznik ma, jinak by mi nerikal, ze excel chce doinstalovavat
VBA ::))).
Brona
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Karel Kral
> Sent: Sunday, November 30, 2003 7:10 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Excel
>
>
> COM server je prave ten execel.exe. Takze nic vic, pouze normalni
> instalace Excelu.
>
> Bronislav Klucka wrote:
> >
> > co ja vim ::)))) proto se ptam, proc to chce VBA :)
> > A jak se instaluje COM server nekomu, kdo ma Excel??
>
> --
> ______________________________________________________
> Karel Kral, vedouci odd. IT / IT manager
> Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
> Tel: 547 235 000, 602 552 432, Fax: 547 231 203
> E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
> ______________________________________________________
>
>
>Excel
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 30.10.2003 19:10:23
COM server je prave ten execel.exe. Takze nic vic, pouze normalni
instalace Excelu.
Bronislav Klucka wrote:
>
> co ja vim ::)))) proto se ptam, proc to chce VBA :)
> A jak se instaluje COM server nekomu, kdo ma Excel??
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Zjisteni necinnosti uzivatele
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 30.10.2003 18:24:20
Tomas Rosa wrote:
> Jedine co me napadlo je to, ze si muzu napsat hookovaci DLL, ktera
> bude na kazdou cinnost uzivatele posilat me aplikaci nejakou message
> a na zaklade ni budu resetovat timer. Nicmene pripada me to prilis
> "narocne", protoze kazdy pohyb mysi, stisk klavesy a pod. budu
> vlastne zatezovat posilanim zpravy. Nejde to nejak jednodusseji?
Bez hooku to zrejme nepujde, ale jejich zpracovani bys mel nechat
taky v DLL a pak:
a) z aplikace se dotazovat na stav busy/idle
b) aplikaci posilat zmeny stavu busy/idle
HTH, pf
Synaser - nutne probuzeni mobilu
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 30.10.2003 17:34:11
----- Original Message -----
From: "Raul Endymion" <raul(zv)raphael(tec)cz>
>
> Pokud mobil proberu hyperterminalem nebo nahodou i jinak, par hodin je
> vse OK, ale po delsi (radove hodiny - pri ladeni apod to nedela a to
> jdu treba i na jidlo), dobe se opet problem opakuje..
Ahoj.
Takova babska rada.
Zkousel jsi nastavit nejako prodlevu mezi otevrenim portu a odeslanim ATZ ?
Pripadne ATZ nekolikrat zopakovat.
Ludek
Problem antialiasingem
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 30.10.2003 15:26:03
Ahoj,
pod NT,2000,XP jednoduse :
SetStretchBltMode(Image.Picture.Bitmap.Canvas.Handle, HALFTONE);
StretchOK := StretchBlt(Image.Picture.Bitmap.Canvas.Handle....
Pod win9x je treba to zajistit samostatne, casto to je soucasti ruznych
grafickych knihoven, napr. Envision library, hledej treba slovo
bilinear. Jinak filtru, ktere odstranuji zubatost, je rada a vysledky se
lisi podle toho, co je na puvodnim obrazku.
Vaclav Sazima
Michal Adler wrote:
> Potrebuji z obrazku udelat jeho zmenseninu v nejakem pomeru treba 1:2
> (tohle neni problem). Prepocitat velikost bitmapy a ulozit ji umim.
> Problem je, ze ty vysledne obrazky jsou takove kostrbate proste
> nevypadaji tak dobre jako kdyz si je zmensim treba ve photoshopu nebo
> jinem programu. Potrebuji tedy dodelat neco jako "vyhlazovani"
> vysledne grafiky.Synaser - nutne probuzeni mobilu
[*] Raul Endymion <raul(zv)raphael(tec)cz> - 30.10.2003 12:25:52
Ahojda,
mam takovej dotaz, mozna jste se s tim uz nekdo setkal, pripadne bude
vedet Lukas G.
Mam aplikaci, komunikujici se tremi mobily pomoci synaser a at
prikazu. Problem je ten ze mobily co jsou pres com (t610 je pres BT) obcas (pri vypnute
teto aplikaci) usnou, a pokud aplikaci spustim nasledujici kod
neprojde jak ma...
fSerPort.RaiseExcept := false;
fSerPort.Connect(fPort);
fSerPort.Config(19200,8,'N',1,false,true);
fSerPort.AtTimeout := 1000;
connected := pos('OK',fSerPort.ATCommand('AT'+#$0D)) > 0;
if connected then
begin
fIdent := GetRE(fSerPort.ATCommand('AT+CGSN'+#$0D),'\r\n\r\n([1-90]+)\r\n\r\n',1);
SendSMSToNetwork;
GetSMSFromMobile;
end;
k radku fIdent= to nedorazi...
Jedine co pomuze :
pustit hyperterminal, v nema se pripojit postupne k obema mobilum a
napsat ATZ na toto nevim proc zareagujou. z demo terminal v synaseru
to take nejde probudit mobily..
Pokud mobil proberu hyperterminalem nebo nahodou i jinak, par hodin je
vse OK, ale po delsi (radove hodiny - pri ladeni apod to nedela a to
jdu treba i na jidlo), dobe se opet problem opakuje..
Nepomaha ani vypnout/zapnout, ani vyndani z kabelu, ani mackani
ruznych klaves na mobilu..
(Jedna se o Siemens c35i, SE T68i, SE T610 BT)
Netusite nekdo jak ten mobil probudit z me app ?
Raul
mailto:raul(zv)raphael(tec)cz
Problem antialiasingem
[*] Michal Adler <michal.adler(zv)fotoadler(tec)cz> - 30.10.2003 11:05:46
Zdravim vsechny,
potreboval bych poradit od nekoho kdo dela(l) nekdy neco s grafikou v
Delphi.
Potrebuji z obrazku udelat jeho zmenseninu v nejakem pomeru treba 1:2
(tohle neni problem). Prepocitat velikost bitmapy a ulozit ji umim.
Problem je, ze ty vysledne obrazky jsou takove kostrbate proste
nevypadaji tak dobre jako kdyz si je zmensim treba ve photoshopu nebo
jinem programu. Potrebuji tedy dodelat neco jako "vyhlazovani"
vysledne grafiky.
Pokud nekdo vite jak na to, nebo vite o nejake free komponente, ktera
tohle zvladne budu strasne vdecnej. Uplne nejlepsi by byl nejaky
utrzek kodu do mailu... :-)
predem moc dekuji
Michal Adler
synapse a FTP klient
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 29.10.2003 21:46:57
> ftp.List('',false);
> v manualu je, ze ve ftp.FtpList je vysledek, ale jak se k nemu dostanu?
> Jeste je tam ParseLine a tak, ale nejak to neumim zkloubit dohromady.
No, ono je to trosku schovane...
TFTPSend.Ftplist ma prioperty List, coz je objekt typu TList, ktery
obsahuje seznam objektu typu TFT{PListRec, ktery obsahuje vsechny
informace o jedno souboru.
je to opravdu slozite, pravda!
proto si stahni z meho webu posledni Synasnap, protoze tam to jde
jedonduseji...
tFTPSend.FtpList.count ti vrati pocet zaznamu..
a pak uz staci pres tFTPSend.FtpList[x].filename pristupovat k
jednotlivym polozkam. pochopitelne X nahrad indexem zaznamu, ktery te
zajima (od 0 do count - 1). A misto filename muzes pouzit i dalsi
property objektu TFTPListRec.
To je uz lepsi, ne? ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Zakazat zpusteni IE
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 29.10.2003 20:34:52
Ahoj kluci jak zakazu zpousteni Internet Exploreru,jde to nejak?:-)Pripadne
da se hookovat zpusteni IE?:-) to by bylo jeste lepsi.-)
Diky
__________________________________________________________________
Ales Pavel
ICQ#: 44615538
Current ICQ status:
( Work Tel#: +420777992792
+ More ways to contact me
__________________________________________________________________
Zjisteni necinnosti uzivatele
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 29.10.2003 18:42:45
>A co si napsat vlastni screensaver, ktery o svem startu i ukonceni posle
>zpravu?
velmi nevhodne reseni, protoze:
1) uzivatel si muze vymenit setric obrazovky a mam smulu
2) uzivatel nemusi mit opravneni menit sporic obrazovky a navic tento
program zrejmne nebude mit instalaci (povinnou - pujde pustit i jen samotny
exac)
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
Zjisteni necinnosti uzivatele
[*] Josef Kokes <kokes(zv)fsid.cvut(tec)cz> - 29.10.2003 18:16:38
A co si napsat vlastni screensaver, ktery o svem startu i ukonceni posle
zpravu?
Kokes
----- Original Message -----
From: "Tomas Rosa" <trosa(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, November 29, 2003 5:58 PM
Subject: Re: Zjisteni necinnosti uzivatele
>
> ale ja potrebuji odlisit stav kdy se na pocitaci neco DEJE a kdy ne -
> uzivatel tam neni. Takze hrani her je pro me to, ze u pocitace nekdo je.
>
> Takze to asi vypada opravdu na ty hooky.
>
>
>
> S pozdravem
> Tomas Rosa
Zjisteni necinnosti uzivatele
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 29.10.2003 17:58:37
>
>Pokud nepotrebujes okamzitou reakci, slo by to treba takto:
>
>Podle nejakeho timeru, treba 1x za minutu, se podivat,
>ktere aplikace jsou spustene a ktera aplikace je navrchu.
>
>Vyhoda:
>lze odlisit stav, kdy je aplikace pustena jen tak na pozadi
>a na popredi se hraji hry...
ale ja potrebuji odlisit stav kdy se na pocitaci neco DEJE a kdy ne -
uzivatel tam neni. Takze hrani her je pro me to, ze u pocitace nekdo je.
Takze to asi vypada opravdu na ty hooky.
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
databaza miest
[*] Ivan Turcan <iturcan(zv)drake.sk> - 29.10.2003 13:24:20
Hi,
Uz to mam doplnene aj o USA, afriku, novy zeland, australiu a cast azie....
ked to takto pojde dalej bude to komplet .... ak by mal niekdo zaujem nech
mi da vediet...
Ivan
----- Original Message -----
From: "Ivan Turcan" <iturcan(zv)drake.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, November 29, 2003 12:08 PM
Subject: Re: databaza miest
>
> ----- Original Message -----
> From: "spisiak" <spisiak(zv)zoznam.sk>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Saturday, November 29, 2003 10:14 AM
> Subject: Re: databaza miest
>
>
> > ----- Original Message -----
> > From: "Ivan Turcan" <iturcan(zv)drake.sk>
> > To: <delphi-l(zv)clexpert(tec)cz>
> > Sent: Friday, November 28, 2003 6:23 PM
> > Subject: Re: databaza miest
> >
> >
> > > Caves,
> > >
> > > takze nakoniec sa mi to podarilo splasit, ma to cca. 20
> > Ahoj a kdes to splasil?
>
> trvalo to par mesiacov , ale nakoniec to zohnal kamarat v Belgicku... ma
to
> cca. 350 000 miest z celej geografickej europy a to vratane PSC.... teda
aby
> som bol presny, mozno 1 - 2 percena tu nemaju PSC, ale inak je to dost
> detailne... Zial nic lepsie som nenasiel
>
> Ivan
>
>
>
>
>
>
databaza miest
[*] Ivan Turcan <iturcan(zv)drake.sk> - 29.10.2003 12:08:15
----- Original Message -----
From: "spisiak" <spisiak(zv)zoznam.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, November 29, 2003 10:14 AM
Subject: Re: databaza miest
> ----- Original Message -----
> From: "Ivan Turcan" <iturcan(zv)drake.sk>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Friday, November 28, 2003 6:23 PM
> Subject: Re: databaza miest
>
>
> > Caves,
> >
> > takze nakoniec sa mi to podarilo splasit, ma to cca. 20
> Ahoj a kdes to splasil?
trvalo to par mesiacov , ale nakoniec to zohnal kamarat v Belgicku... ma to
cca. 350 000 miest z celej geografickej europy a to vratane PSC.... teda aby
som bol presny, mozno 1 - 2 percena tu nemaju PSC, ale inak je to dost
detailne... Zial nic lepsie som nenasiel
Ivan
Trigger pro pohled s agregacni funkci
[*] little_bobes(zv)centrum(tec)cz - 29.10.2003 10:52:10
Zdravim,
vytvoril jsem si ve FB 1.5 dva pohledy (kazdy na zaklade tri tabulek):
CREATE VIEW POHLED_1
(
SL1,
C1,
POCET_ZMEN
)
AS
SELECT A.SL1, A.C1, MAX(D.ZMENA_C) AS POCET_ZMEN
FROM TAB_1_PLATNE B LEFT JOIN TAB_1_KOMPLET A ON B.C1 = A.C1
LEFT JOIN TAB_1_ZMENY D ON B.C1 = D.C1
GROUP BY A.SL1, A.C1
;
CREATE VIEW POHLED_2
(
SL1,
SL2,
C2,
POCET_ZMEN
)
AS
SELECT A.SL1, A.SL2, A.C2, MAX(D.ZMENA_C) AS POCET_ZMEN
FROM TAB_2_PLATNE B LEFT JOIN TAB_2_KOMPLET A ON B.C2 = A.C2
LEFT JOIN TAB_2_ZMENY D ON B.C2 = D.C2
GROUP BY A.SL1, A.SL2, A.C2
;
Pohledy samy o sobe jsou v poradku a delaji to, co delat maji.
Pro tyto pohledy jsem si vytvoril triggery BI, BU, AU, BD.
Nyni mi tu ale nastava problem v tiggeru POHLED_1_BD:...
...
CREATE TRIGGER POHLED_1_BD FOR POHLED_1
ACTIVE BEFORE DELETE
AS
DECLARE VARIABLE A INTEGER;
BEGIN
SELECT COUNT(C2) /* tady mu vadi COUNT - kdyz pro toto vytvorim for
into do exception, tak to funguje*/
FROM POHLED_2
WHERE (SL1 = old.SL1)
INTO :A;
IF (A > 0) THEN EXCEPTION zaznam_nelze_smazat;
.....
Pri vytvoreni tohoto triggeru ohlasi: '"Bad BLR - invalid stream"
Poradi mi nekdo, kde by mohla byt chyba?
A jeste jeden dotaz ohledne nazvu: Existuje nejake omezeni na to, ze bych
nemel mit pohled i sloupec se stejnym jmenem?
Diky Bob
Zjisteni necinnosti uzivatele
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 29.10.2003 10:34:08
> From: Tomas Rosa
>
> musim nejak vyresit detekci necinnosti uzivatele.
> Jedine co me napadlo je to, ze si muzu napsat hookovaci
> DLL, ktera bude
> na kazdou cinnost uzivatele posilat me aplikaci nejakou message
> a na zaklade ni budu resetovat timer.
Pokud nepotrebujes okamzitou reakci, slo by to treba takto:
Podle nejakeho timeru, treba 1x za minutu, se podivat,
ktere aplikace jsou spustene a ktera aplikace je navrchu.
Vyhoda:
lze odlisit stav, kdy je aplikace pustena jen tak na pozadi
a na popredi se hraji hry...
Nevyhoda:
mit nainstalovany nejaky setric obrazovky nebo nejakou
jinou aplikaci, ktera pri necinnosti sama nabehne na popredi.
Vaclav Krmela
Event jako funkce?
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 29.10.2003 10:26:08
> From: Bronislav Klucka
>
> muzu ho ale definovat takto?
> type
> TOnEvent=function (Sender:TObject):integer of object;
Ano. Muze mit i libovolne dalsi parametry i promenne.
Vaclav Krmela
databaza miest
[*] spisiak <spisiak(zv)zoznam.sk> - 29.10.2003 10:14:07
----- Original Message -----
From: "Ivan Turcan" <iturcan(zv)drake.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, November 28, 2003 6:23 PM
Subject: Re: databaza miest
> Caves,
>
> takze nakoniec sa mi to podarilo splasit, ma to cca. 20
Ahoj a kdes to splasil?
KaSi
Zjisteni necinnosti uzivatele
[*] Bronislav Klucka <delphi(zv)pro2-soft(tec)com> - 29.10.2003 02:09:37
>
>
> >Formulare maji propertu KeyPreview
>
> ale to zcela jiste funguje pouze v ramci dane aplikace ba dokonce v ramci
> daneho okna. To je nanic.
ja myslel, ze to potrebujes v ramci aplikace, nikoliv v ramci Woken....
>
> >, ze se nejprve posle stisk klavesy
> >formulari a potom az komponente. takze tim bys mohl osetrit
> klavesu, ale co
> >s mysi to nevim... ja jinak automaticke odhlasovani po necinnosti mam
> >(pomoci hooku), takze bych i mohl poslat
>
> :-) To mam take. To jsme jeste psali kdyz jsme delali spolu.
>
> Nicmene spis jestli neni neco efektivnejsiho.
>
v ramci Woken ne.....
Brona
Zjisteni necinnosti uzivatele
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 29.10.2003 01:59:36
>Formulare maji propertu KeyPreview
ale to zcela jiste funguje pouze v ramci dane aplikace ba dokonce v ramci
daneho okna. To je nanic.
>, ze se nejprve posle stisk klavesy
>formulari a potom az komponente. takze tim bys mohl osetrit klavesu, ale co
>s mysi to nevim... ja jinak automaticke odhlasovani po necinnosti mam
>(pomoci hooku), takze bych i mohl poslat
:-) To mam take. To jsme jeste psali kdyz jsme delali spolu.
Nicmene spis jestli neni neco efektivnejsiho.
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
Event jako funkce?
[*] Bronislav Klucka <delphi(zv)pro2-soft(tec)com> - 29.10.2003 01:47:35
Zdar, normalne se Eved definuje jako:
type
TOnEvent=procedure (Sender:TObject) of object;
type
TMyObject
protected
fOnEvent:TOnEvent;
public
property OnEvent:TOnEvent read fOnEvent write fOnEvent;
end;
muzu ho ale definovat takto?
type
TOnEvent=function (Sender:TObject):integer of object;
Brona
Zjisteni necinnosti uzivatele
[*] Bronislav Klucka <delphi(zv)pro2-soft(tec)com> - 29.10.2003 01:39:34
Formulare maji propertu KeyPreview, ze se nejprve posle stisk klavesy
formulari a potom az komponente. takze tim bys mohl osetrit klavesu, ale co
s mysi to nevim... ja jinak automaticke odhlasovani po necinnosti mam
(pomoci hooku), takze bych i mohl poslat
Brona
>
> Zdravim,
>
> musim nejak vyresit detekci necinnosti uzivatele.
>
> Jedine co me napadlo je to, ze si muzu napsat hookovaci DLL,
> ktera bude
> na kazdou cinnost uzivatele posilat me aplikaci nejakou message a na
> zaklade ni budu resetovat timer. Nicmene pripada me to prilis "narocne",
> protoze kazdy pohyb mysi, stisk klavesy a pod. budu vlastne zatezovat
> posilanim zpravy. Nejde to nejak jednodusseji?
>
>
> S pozdravem
> Tomas Rosa
>
> ------------------------=[ pinknet on every
> screen]=-----------------------
> Tomas Rosa
> Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
> +420 602 860 704
> PinkNet Web Server for Win32 - FREEWARE www.pnws.org
> ------------------------------------------------------------------
> ---------
>
>
>Zjisteni necinnosti uzivatele
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 29.10.2003 01:33:34
Zdravim,
musim nejak vyresit detekci necinnosti uzivatele.
Jedine co me napadlo je to, ze si muzu napsat hookovaci DLL, ktera bude
na kazdou cinnost uzivatele posilat me aplikaci nejakou message a na
zaklade ni budu resetovat timer. Nicmene pripada me to prilis "narocne",
protoze kazdy pohyb mysi, stisk klavesy a pod. budu vlastne zatezovat
posilanim zpravy. Nejde to nejak jednodusseji?
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
synapse a FTP klient
[*] Michal Aichinger <michal.aichinger(zv)talk21(tec)com> - 28.10.2003 23:49:27
mam otazku na synapsi a FTP. Pripojim se k serveru
ftp := TFTPSend.Create;
.....
ftp.Login;
a zavolam prikaz pro vypis adresare
ftp.List('',false);
v manualu je, ze ve ftp.FtpList je vysledek, ale jak se k nemu dostanu?
Jeste je tam ParseLine a tak, ale nejak to neumim zkloubit dohromady.
muzete me nakopnout?
diky Michal
FireBirad + Delphi 7 + Komponenty
[*] Benda Lukas <bendal(zv)volny(tec)cz> - 28.10.2003 20:05:13
> FIBPlus i IBX vychazeji ze stejneho predka, FreeIBComponents, a maji
tedy v principu stejnou
> architekturu pro zpracovani datasetu (cache na klientovi, od toho
chyba EOutOfMemory). Pokud
> ovsem pouzijete "odlehceny" komponent FIBSQL/IBSQL, pak takovy
problem nemate (ale ani
> scroll kurzory :-)
No ale jak na ten Master - Detail v FIBPlus?
Excel
[*] Bronislav Klucka <delphi(zv)pro2-soft(tec)com> - 28.10.2003 19:05:09
co ja vim ::)))) proto se ptam, proc to chce VBA :)
A jak se instaluje COM server nekomu, kdo ma Excel??
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Karel Kral
> Sent: Friday, November 28, 2003 5:27 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Excel
>
>
> To je teda pekny nesmysl, ne? Vyzaduje to nainstalovane COM serverr
> Excel ale VBA? To nema se scripty nic spolecneho.
>
> Ludek Paral wrote:
> >
> > To je jednoduche, jelikoz volas v podstate scripty VB.... :),
> delas to same,
> > co makro...
> >
> > Ludek
> > --------------------
> > Pro praci to vyzaduje nainstalovane VBA, procpak????
> >
> > Brona
>
> --
> ______________________________________________________
> Karel Kral, vedouci odd. IT / IT manager
> Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
> Tel: 547 235 000, 602 552 432, Fax: 547 231 203
> E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
> ______________________________________________________
>
>
>
databaza miest
[*] Ivan Turcan <iturcan(zv)drake.sk> - 28.10.2003 18:23:06
Caves,
takze nakoniec sa mi to podarilo splasit, ma to cca. 20 MB a su tam mesta a
dediny z komplet europy (este som tam nasiel aj casti miest), vratane PSC a
geogr. suradnic...
Ivan
----- Original Message -----
From: "Ivan Turcan" <iturcan(zv)drake.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, August 29, 2003 2:20 PM
Subject: databaza miest
> Hi all,
>
> Nemate niekdo k dispozicii DB vsetkych miest v Beneluxe / Europe ?
> potrebujem to do jednej aplikacii . Popripade pomoze aj link kde sa to da
> stiahnut, kupit a pod.
>
> vdaka za kazdy napad
>
> Ivan
>
>
>
>
>
Excel
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 28.10.2003 17:27:02
To je teda pekny nesmysl, ne? Vyzaduje to nainstalovane COM serverr
Excel ale VBA? To nema se scripty nic spolecneho.
Ludek Paral wrote:
>
> To je jednoduche, jelikoz volas v podstate scripty VB.... :), delas to same,
> co makro...
>
> Ludek
> --------------------
> Pro praci to vyzaduje nainstalovane VBA, procpak????
>
> Brona
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Excel
[*] Bronislav Klucka <delphi(zv)pro2-soft(tec)com> - 28.10.2003 16:46:59
da se to udelat teda jinak?
Brona
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Ludek Paral
> Sent: Thursday, November 27, 2003 10:31 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Excel
>
>
> To je jednoduche, jelikoz volas v podstate scripty VB.... :),
> delas to same,
> co makro...
>
>
> Ludek
> --------------------
>> Pro praci to vyzaduje nainstalovane VBA, procpak????
>
>
Ochrana aplikace - dotaz (FACTORY serial?)
[*] Bohuslav Svancara <bsv(zv)softprojekt(tec)cz> - 28.10.2003 16:20:58
http://home.earthlink.net/~akonshin/delphi_components.htm
S pozdravem
Bohuslav Svancara, prom. mat.
svancara(zv)softprojekt(tec)cz
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Matej K
> Sent: Friday, November 28, 2003 3:33 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Ochrana aplikace - dotaz (FACTORY serial?)
>
> Ahoj
>
> prave shanim stejnou vec. Umim zjistit cislo logickeho disku, ale
> ostatni veci ne a ne
> vygooglovat...az na 1 hruzny priklad asm :-/
>
> Pekne prosim, nemumite nekdo zjistit tovarni cislo HDD nebo
> radice a vyrobni cislo CPU?
>
> Matej K.
>
> PS: Nasledujici kod funguje pouze do okamziku zformatovani.
> var
> SerialNum : dword;
> a, b : dword;
> Buffer : array [0..255] of char;
> begin
> if GetVolumeInformation
> ('c:\'), Buffer, SizeOf(Buffer), (zv)SerialNum, a, b,nil, 0)
> then ShowMessage(IntToStr(SerialNum))
> end;
>
>
> >
> > Myslim si, ze cislo HDD vo vela pripadoch staci. Zaujimalo by ma, ako
> >zistit cislo HDD na ktorom bol program spusteny. Nie je problem
> zistit cislo
> >HDD lokalnej stanice, nazov stroja kde bol program spusteny ale
> ako zistit
> >cislo HDD cez siet ? Samozrejme musi to byt nezavisle riesenie
> na operacnom
> >systeme. OS iba z rodiny Windows. Pripadne ako je mozne zistit MAC adresu
> >sietovej karty toho stroja odkial bol program spusteny.
> >
> >Vlado
> >
> >
> >
> >
> >
> >
>
>
>
>Ochrana aplikace - dotaz (FACTORY serial?)
[*] Matej K <matej.k11(zv)seznam(tec)cz> - 28.10.2003 15:32:54
Ahoj
prave shanim stejnou vec. Umim zjistit cislo logickeho disku, ale ostatni veci ne a ne
vygooglovat...az na 1 hruzny priklad asm :-/
Pekne prosim, nemumite nekdo zjistit tovarni cislo HDD nebo radice a vyrobni cislo CPU?
Matej K.
PS: Nasledujici kod funguje pouze do okamziku zformatovani.
var
SerialNum : dword;
a, b : dword;
Buffer : array [0..255] of char;
begin
if GetVolumeInformation
('c:\'), Buffer, SizeOf(Buffer), (zv)SerialNum, a, b,nil, 0)
then ShowMessage(IntToStr(SerialNum))
end;
>
> Myslim si, ze cislo HDD vo vela pripadoch staci. Zaujimalo by ma, ako
>zistit cislo HDD na ktorom bol program spusteny. Nie je problem zistit cislo
>HDD lokalnej stanice, nazov stroja kde bol program spusteny ale ako zistit
>cislo HDD cez siet ? Samozrejme musi to byt nezavisle riesenie na operacnom
>systeme. OS iba z rodiny Windows. Pripadne ako je mozne zistit MAC adresu
>sietovej karty toho stroja odkial bol program spusteny.
>
>Vlado
>
>
>
>
>
zmena kurzoru pri ADOConnection.Open
[*] Martin Cajbik <cajbik(zv)sct.sk> - 28.10.2003 15:34:54
Zdravim,
Screen.Cursor := crHourGlass;
Application.ProcessMessages;
...
Martin Cajbik
> Ahoj,
> nevim jak zmenit kurzor, kdyz otviram spojeni s databazi. Mam nasledujici
> kod, a kurzor se nemeni :-(
>
> Screen.Cursor := crHourGlass;
> if ADOConnection1.Connected = false then ADOConnection1.Open;
> cdsData.Close;
> cdsData.Open;
> Screen.Cursor := crDefault;
>
> D7 Ent., win98SE.
>
> Diky a s pozdravem
> Pavel Hauptman
>
> Web Browser
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.10.2003 14:40:50
From: "Pavel Poles" <xcony(zv)seznam(tec)cz>
> neznate nekdo nahodou nejaky internetovy prohlizec, v
> kterem by se pohodlne brouzdalo po webu a zaroven by
> zobrazoval zdrojove kody stranky (vcetne mapr vnorenych
Tohle si muzes napsat sam pomoci TWebBrowser.
Petr Vones
Problem s pripojenim RAS
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 28.10.2003 15:12:53
Marek Dostal <konf(zv)agnis(tec)cz> wrote:
> Zkousim RAS unity u projektu JEDI a nedari se mi pripojit, v cem by
> mohl byt problem:
>
> RasDialer.UserName := RasPhoneBook[i].UserName;
> RasDialer.Password := RasPhoneBook[i].Password;
> RasDialer.PhoneNumber := RasPhoneBook[i].PhoneNumber;
> RasDialer.Dial;
>
> hodi chybu:
>
> RAS Error code: 623 "Polozku telefonniho seznamu nelze najit"
>
netusim jak funguji ty JEDI fce - ale nechybi tam nekde prirazeni toho
jmena. RasDial z RAS API musi krome jmena a hesla dosta i jmeno
pripojeni (szEntryName) z telefonniho seznami Windows
D. Toman
Oracle8 PE
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 28.10.2003 14:40:50
Ahoj.
Po prepsani v regeditu na AUTO to funguje, jenom pro upresneni - je to v
registru pod heslem
HKEY_LOCAL_MACHINE\SOFTWARE\ORACLE\HOME0\LISTENER_STARTUP
Dekuju vsem, co mi pomohli, bez vas bych to asi nerozchodil.
Dalibor
> treba to nadefinovat v registroch v kluci
> HKEY_LOCAL_MACHINE\SOFTWARE\ORACLE\LISTENER_STARTUP
>
> s hodonotou : NOAUTO
> a tu prepis na AUTO
>
> neviem presne nazov polozky kedze ja bezim na XP a tam je to ako servis.
> ale na 98 je to iba ako program spusteni na pozadi.
> ale urcite sa tam ta hodnota nachadza
> len ju tam vyhladaj.
>Problem s pripojenim RAS
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 28.10.2003 14:44:51
Zkousim RAS unity u projektu JEDI a nedari se mi pripojit, v cem by mohl byt problem:
RasDialer.UserName := RasPhoneBook[i].UserName;
RasDialer.Password := RasPhoneBook[i].Password;
RasDialer.PhoneNumber := RasPhoneBook[i].PhoneNumber;
RasDialer.Dial;
hodi chybu:
RAS Error code: 623 "Polozku telefonniho seznamu nelze najit" Marek Dostal
D7 Prof, W98
Web Browser
[*] Tomas Kupcik <tkupcik(zv)qgir(tec)cz> - 28.10.2003 14:38:50
opera?
> Zdravim,
>
> neznate nekdo nahodou nejaky internetovy prohlizec, v
> kterem by se pohodlne brouzdalo po webu a zaroven by
tabulka do wordu
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 28.10.2003 14:30:49
28.11.2003 Bohac Frantisek:
> Dobry den,
> potrebuji vlozit nejak jednoduse tabulku do wordu a napadlo me vlozit ji
> pres schranku jako HTML.
> Nevite prosim, jak vlozim text do schranky, aby se tagy nechovaly jako text,
> ale jako HTML?
> A nebo - jde to nejak jinak (a jednoduse)?
> Dekuji moc za jakoukoliv radu a preji vsem hezky vikend :-)
V podstate jde o to, zaregistrovat format schranky
RegisterClipboardFormat('HTML Format');
a doplnit pred HTML kod hlavicku, ktera je popsana v MSDN.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
OT: Web Browser
[*] Pavel Poles <xcony(zv)seznam(tec)cz> - 28.10.2003 14:10:48
Zdravim,
neznate nekdo nahodou nejaky internetovy prohlizec, v
kterem by se pohodlne brouzdalo po webu a zaroven by
zobrazoval zdrojove kody stranky (vcetne mapr vnorenych
FRAME a IFRAME) a mozna i hlavicky HTTP?
Dik moc za rady a omlouvam se za OT
Pavel Poles
OT: tabulka do wordu
[*] Bohac Frantisek <bohacf(zv)vnol(tec)cz> - 28.10.2003 14:12:48
Dobry den,
potrebuji vlozit nejak jednoduse tabulku do wordu a napadlo me vlozit ji
pres schranku jako HTML.
Nevite prosim, jak vlozim text do schranky, aby se tagy nechovaly jako text,
ale jako HTML?
A nebo - jde to nejak jinak (a jednoduse)?
Dekuji moc za jakoukoliv radu a preji vsem hezky vikend :-)
Frantisek
ADO.NET alebo BDP
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 28.10.2003 14:04:47
On 28 Nov 2003 at 11:52, Ivan Turcan wrote:
> BDP ? Predpokladam ze casom aj Oracle urobi Net kniznice pre svoj
> server, ale zatial je tam oci.dll co je win32.... cize nemoze
ADO.NET uz obsahuje tridy pro Oracle. OracleDataAdapter,
OracleConnection, OracleCommand.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka tecka cz
Datum delphi VS. databaze
[*] Tomas Fajman <tomas.fajman(zv)ortex(tec)cz> - 28.10.2003 13:56:46
nad timhle se asi zamyslim vypada to schudne. A propos Joinum se zatim
statecne vyhejbam :O)))
martin.ben(zv)ge.com
Odeslal: Komu: delphi-l(zv)clexpert(tec)cz
delphi-l-owner(zv)cl Kopie:
expert(tec)cz Predmet: Re: Datum delphi VS. databaze
28.11.2003 13:38
Odpovezte prosim
uzivateli
delphi-l
V tom pripade bych zvazil tuto moznost:
Mit v databazi tabulku s pripravenymi dotazy, kterou jsou optimalizovane
pro
danou databazi a resi i konverzi datumovych polozek. Tyto dotazy nejprve
nacist do prislusnych komponent, vyplnit parametry a pote pouzit.
Muzes tak vyresit i specifika ruznych databazi (napr. pouzit hinty u
Oraclu). Timto zpusobem nemusis resit jenom dotazy (tedy SELECT), ale
obecne
DDL a DML prikazy.
A propos, jak jsi resil odlisne joiny napr. u Oraclu a Interbase?
Oracle: select * from tableA a, tableB b where a.ID = b.ID(+)
Interbase: select * from tableA a LEFT JOIN tableB b on a.ID = b.ID
Martin Ben
-----Original Message-----
From: Tomas Fajman [mailto:tomas.fajman(zv)ortex(tec)cz]
Tohle by slo, ale bohuzel to nemuzu pouzit pac moje aplikace muzi behat jak
nad ORACLE tak i nad MSSQL, INFORMIXEM atd. Proto jsem zvolil zadavani
datumu v ciselne forme coz bez problemu fungovalo az na tu vyjimku ze se to
lisilo o dane 2 dny na MSSQL a ORACLE a o 1 den o INFORMIXU a ted novinka
na INTERBASE se to lisi asi o 1800 let a u dalsich zatim jeste nevim :O)
Takze potrebuju neco univerzalnihu :O(
Datum delphi VS. databaze
[*] martin.ben(zv)ge(tec)com - 28.10.2003 13:38:45
V tom pripade bych zvazil tuto moznost:
Mit v databazi tabulku s pripravenymi dotazy, kterou jsou optimalizovane pro
danou databazi a resi i konverzi datumovych polozek. Tyto dotazy nejprve
nacist do prislusnych komponent, vyplnit parametry a pote pouzit.
Muzes tak vyresit i specifika ruznych databazi (napr. pouzit hinty u
Oraclu). Timto zpusobem nemusis resit jenom dotazy (tedy SELECT), ale obecne
DDL a DML prikazy.
A propos, jak jsi resil odlisne joiny napr. u Oraclu a Interbase?
Oracle: select * from tableA a, tableB b where a.ID = b.ID(+)
Interbase: select * from tableA a LEFT JOIN tableB b on a.ID = b.ID
Martin Ben
-----Original Message-----
From: Tomas Fajman [mailto:tomas.fajman(zv)ortex(tec)cz]
Tohle by slo, ale bohuzel to nemuzu pouzit pac moje aplikace muzi behat jak
nad ORACLE tak i nad MSSQL, INFORMIXEM atd. Proto jsem zvolil zadavani
datumu v ciselne forme coz bez problemu fungovalo az na tu vyjimku ze se to
lisilo o dane 2 dny na MSSQL a ORACLE a o 1 den o INFORMIXU a ted novinka
na INTERBASE se to lisi asi o 1800 let a u dalsich zatim jeste nevim :O)
Takze potrebuju neco univerzalnihu :O(
Nastaveni debugeru
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 28.10.2003 13:22:44
> mam maly dotaz. je mozne nastavit debuger tak, aby NEKTERE
> vyjimly presel a nektere ne ?
V Tools\Debugger Options\Language Exceptions si mozes pridat do zoznamu mena
tried vynimiek, ktore chces ignorovat (IDE pri nich nezobrazi "Debugger
Exception Notification").
Dalsia moznost je pouzitie breakpointov s nastavenim "Ignore subsequent
exceptions" a "Handle subsequent exceptions".
HTH
TOndrej
Ochrana aplikace
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 28.10.2003 12:42:41
> Kdyby byl hardwarovy klic, bral bych radeji klic nez toto svazani s
> hardwarem. Kupodivu kdyz jsem menil disk za vetsi, tak to reaktivaci
> nechtelo. Mozna ten Ghost, kterym jsem disk klonoval, tam dodal
> seriove cislo disku, mozna disk oni netestuji, nevim. Ale uz jsem byl
> pripraven to aktivovat...
Presne tak, Ghost, PQmagic apod klonuji vcetne volume serial label. K
problematice si dovolim poznamenat, ze podle me zkusenosti rade lidi nevadi,
kdyz na papirech pro interni pouziti je cizi hlavicka. Takze chranit a
chranit. Bohuzel, u levnych aplikaci je HW klic problem, takze nezbyva nez
vazat na HDD.
MB
Nastaveni debugeru
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 28.10.2003 12:28:40
Ahoj,
mam maly dotaz. je mozne nastavit debuger tak, aby NEKTERE vyjimly presel a nektere ne ?
napr. v kodu mam okkaz na DTB a na TEMP TABLE. mam to odskousene, ale samozrejme mi tam debuger rve a pise hlasky, coz bych nechtel.
Samozrejme jinde, napr. v sint. chybach to je na miste.
V.
Datum delphi VS. databaze
[*] Milan Lucka <mlucka(zv)cz.foxconn(tec)com> - 28.10.2003 11:52:38
Zdravim,
myslim, ze toto nie je spravna cesta. Predsa nie je mozne odovzdavat
vnutornu interpretaciu typu DateTime medzi jednotlivymi systemami, ked kazda
ma iny vyznam. To chces robit konverzne funkcie medzi vsetkymi dvojicami?
Alebo s novou databazou novu konverziu?
Pouzi jednotny format, ktoremu rozumeju vsetky systemy, ci Delphi, ci
jednotlive databazy, a to si myslim, ze je tvar mm.dd.yyyy (alebo podobny)
so spravnym nastavenim poradia casti a oddelovaca na dotycnej databaze
Milan
> Tohle by slo, ale bohuzel to nemuzu pouzit pac moje aplikace
> muzi behat jak
> nad ORACLE tak i nad MSSQL, INFORMIXEM atd. Proto jsem zvolil zadavani
> datumu v ciselne forme coz bez problemu fungovalo az na tu
> vyjimku ze se to
> lisilo o dane 2 dny na MSSQL a ORACLE a o 1 den o INFORMIXU a
> ted novinka
> na INTERBASE se to lisi asi o 1800 let a u dalsich zatim
> jeste nevim :O)
> Takze potrebuju neco univerzalnihu :O(
ADO.NET alebo BDP
[*] Ivan Turcan <iturcan(zv)drake.sk> - 28.10.2003 11:52:38
Ahojte,
uz som tu tuto otazocku polozil, vzhladom k ziadnej odpovedi skusim znova.... Co je podla vas lepsie pouzit ako konektivnu vrstvu k DB v Delphi 8 ? BDP drivery su sice napisane ako net providery ale pristupuju na DLL ktore su win32... teda napr. Oracle.... myslite ze nie je lepsie zacat budovat aplikaciu ktora pojde cez ADO.NET namiesto BDP ? Predpokladam ze casom aj Oracle urobi Net kniznice pre svoj server, ale zatial je tam oci.dll co je win32.... cize nemoze aplikacia postavena nad BDP robit casom problem ?
Ako je na tom rychlostne,spolahlivostou a podporou u vyrobcov RDBMS ADO.NET ?
vdaka,
Ivan
Datum delphi VS. databaze
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 28.10.2003 11:18:34
28.11.2003 Tomas Fajman:
> Tohle by slo, ale bohuzel to nemuzu pouzit pac moje aplikace muzi behat jak
> nad ORACLE tak i nad MSSQL, INFORMIXEM atd. Proto jsem zvolil zadavani
> datumu v ciselne forme coz bez problemu fungovalo az na tu vyjimku ze se to
> lisilo o dane 2 dny na MSSQL a ORACLE a o 1 den o INFORMIXU a ted novinka
> na INTERBASE se to lisi asi o 1800 let a u dalsich zatim jeste nevim :O)
> Takze potrebuju neco univerzalnihu :O(
Univerzalni je prave format, o kterem tu byla rec:
'yyyymmdd hh:nn:ss'
Kdyz to primo priradis do date typu, SQL server si s tim bez problemu
poradi bez ohledu na jeho lokalni nastaveni.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Oracle8 PE
[*] Karol Chupek <chupek(zv)apollo.sk> - 28.10.2003 11:22:35
> Ahoj, zkusil jsem ten prikaz a spustilo to jakysi tnslsnr
> verze 8.1.7.0.0.,
> vypsalo to asi 10 radku ruznych hlaseni adres atd. a skoncilo
> to hlaskou
> "prikaz uspesne ukoncen"
V TOM PRIPADE JE VSETKO OK A NEMUSIS SI NIC PREMENOVAVAT
INAK JE TO V SUBORE TNSNAMES.ORA, A SUBOR LISTENER.ORA - V ADRESARI
ORAWIN\NETWORK\ADMIN
KTORY SA DA EDITOVAT NORMALNE V NOTEPADE
A TAM SU TIE POLOZKY
> Kde mam prejmenovat te HOST a jak?
> Zdravi Dalibor (nedalismrk).
>
> > skus len tak spustit s prikazoveho riadku prikaz "lsnrctl start"
> > a pozri si vypis obrazovky co ti vypise..
> > mozno by bolo vhodne premenovat HOST na IP adresu
Datum delphi VS. databaze
[*] Svoboda Jiri <jsvoboda(zv)lekis(tec)cz> - 28.10.2003 11:08:33
Na MS-SQL pouzij funkci CONVERT(varchar,"pole datetime",cislo formatu)
Koukni do Helpu z SQL Query
napr. CONVERT(varchar,"pole datetime",104) vraci string ve formatu
dd.mm.rrrr
Jiri S.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Tomas Fajman
Sent: Friday, November 28, 2003 10:51 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Datum delphi VS. databaze
To uz jsem taky zkoumal, ale zapisuje se to dobre jen tenhle select se lisi
nevim proc, asi si to delphi prevadeji pri zapisu na format datumu
'31.12.2003', chtel jsem to taky pouzit do selectu ale shorel jsem na tom
ze format datumu ma kazdej v databazi nastaveny jinak, nekdo pouziva "."
nekdo "," a nekdo zase ":" atd. no proste pokazdy jinak tak nevim jak na
to.
"Jan Fiala"
<jan.fiala(zv)wo(tec)cz> Komu:
delphi-l(zv)clexpert(tec)cz
Odeslal: Kopie:
delphi-l-owner(zv)cl Predmet: Re: Datum delphi
VS. databaze
expert(tec)cz
28.11.2003 09:56
Odpovezte prosim
uzivateli
delphi-l
28.11.2003 Tomas Fajman:
> S tim nemuzu souhlasit tohle jsou vysledky
MSSQL>> select convert(datetime,0) = 1900-01-01 00:00:00.000
DELPHI>> datetostr(0) = 30.12.1899
> Takze na prvni pohled se to lisi o 2 dny :O(Oracle8 PE
[*] Karol Chupek <chupek(zv)apollo.sk> - 28.10.2003 11:50:37
a ku bde..
takye najskor si musi nastavit spravne nativny driver oracle
kedze mas c/s verziu :
takze je treba nastavit parameter
vendor init
ktory sa nachadza v zalozke Configurations\drivers\native\oracle
na spravnu kniznicu - avsak asi je tam oci.dll
alebo nieco take
a potom je treba vytvorit alias v bde typu oracle napr. ppp
a nastavit pripojenie na db cez tns protokol
a v polozke SERVER NAME nastavit to tvoje ppp.world
a skusit sa pripojit zakladnym uzivatelom a heslom pre oracle
to asi vies ake je..> dbexplorerem z delfi 5 c/s na tuto demodatabazi? Co napsat do
> bdeadminu za
> server name, username atd. Vzdycky mi to skonci v dbexploreru
> na chybe "ORA
> 03114 nepripojeno k oracle".
> Diky
> Dalibor.
>
>
>
> vlastni skriptovaci jazyk - analyza syntaxe
[*] Erik Salaj <winsoft(zv)netkosice.sk> - 28.10.2003 11:38:36
> zminoval jsem InnerFuse Pascal Script, ten je free. Jiz nejakou dobu
> existuje a autor na nem stale pracuje a pripadne chyby odstranoval
> zatim rychle.
> Pouzivam jej v jeho starsi verzi (k plne spokojenosti). Novejsi verze
> spousti predkompilovany skripty cili je mnohem rychlejsi a neni
> problem (v obou verzich) pouzivat rutiny napsane v Delphi. Na prvni
> pohled ma podobne vlastnosti jako skritp engine od dream-com.com
pokial je jazyk jednoduchy, tak aj napisat si vlastny parser nie je
nic zlozite - vyhoda je v tom, ze parsing mas potom pod uplnou
kontrolou a mozes ho podla potreby optimalizovat. Vecsinou sa
najprv robi lexikalna analyza, t.j. rozpoznanie lexikalnych
jednotiek ako su identifikatory, klucove slova, cisla, stringy,
komentare, .... Potom rekurzivne syntakticka analyza tychto
lex. jednotiek.
Erik
Datum delphi VS. databaze
[*] Tomas Fajman <tomas.fajman(zv)ortex(tec)cz> - 28.10.2003 11:12:34
Tohle by slo, ale bohuzel to nemuzu pouzit pac moje aplikace muzi behat jak
nad ORACLE tak i nad MSSQL, INFORMIXEM atd. Proto jsem zvolil zadavani
datumu v ciselne forme coz bez problemu fungovalo az na tu vyjimku ze se to
lisilo o dane 2 dny na MSSQL a ORACLE a o 1 den o INFORMIXU a ted novinka
na INTERBASE se to lisi asi o 1800 let a u dalsich zatim jeste nevim :O)
Takze potrebuju neco univerzalnihu :O(
martin.ben(zv)ge.com
Odeslal: Komu: delphi-l(zv)clexpert(tec)cz
delphi-l-owner(zv)cl Kopie:
expert(tec)cz Predmet: Re: Datum delphi VS. databaze
28.11.2003 11:04
Odpovezte prosim
uzivateli
delphi-l
Jak uz jsem psal v soukromem mailu, nejlepe je pouzit implicitni konverzi
Pro Oracle tedy takto:
Query.SQL.Text := 'select * from tabulka where datum =
to_date(:param1,'dd.mm.yyyy')';
Query.Params[0].AsString >= FormatDateTime(moje_datum,'dd.mm.yyyy');
Martin Ben
-----Original Message-----
From: Tomas Fajman [mailto:tomas.fajman(zv)ortex(tec)cz]
To uz jsem taky zkoumal, ale zapisuje se to dobre jen tenhle select se lisi
nevim proc, asi si to delphi prevadeji pri zapisu na format datumu
'31.12.2003', chtel jsem to taky pouzit do selectu ale shorel jsem na tom
ze format datumu ma kazdej v databazi nastaveny jinak, nekdo pouziva "."
nekdo "," a nekdo zase ":" atd. no proste pokazdy jinak tak nevim jak na
to.Oracle8 PE
[*] Karol Chupek <chupek(zv)apollo.sk> - 28.10.2003 11:18:35
ano islo ..
treba to nadefinovat v registroch v kluci
HKEY_LOCAL_MACHINE\SOFTWARE\ORACLE\LISTENER_STARTUP
s hodonotou : NOAUTO
a tu prepis na AUTO
neviem presne nazov polozky kedze ja bezim na XP a tam je to ako servis.
ale na 98 je to iba ako program spusteni na pozadi.
ale urcite sa tam ta hodnota nachadza
len ju tam vyhladaj.> Tak toto zabralo!!!.
> Diky, ale neslo by to nekde nastavit abych to nemusel
> spoustet z prikazove
> radky?
Datum delphi VS. databaze
[*] Tomas Fajman <tomas.fajman(zv)ortex(tec)cz> - 28.10.2003 10:50:31
To uz jsem taky zkoumal, ale zapisuje se to dobre jen tenhle select se lisi
nevim proc, asi si to delphi prevadeji pri zapisu na format datumu
'31.12.2003', chtel jsem to taky pouzit do selectu ale shorel jsem na tom
ze format datumu ma kazdej v databazi nastaveny jinak, nekdo pouziva "."
nekdo "," a nekdo zase ":" atd. no proste pokazdy jinak tak nevim jak na
to.
"Jan Fiala"
<jan.fiala(zv)wo(tec)cz> Komu: delphi-l(zv)clexpert(tec)cz
Odeslal: Kopie:
delphi-l-owner(zv)cl Predmet: Re: Datum delphi VS. databaze
expert(tec)cz
28.11.2003 09:56
Odpovezte prosim
uzivateli
delphi-l
28.11.2003 Tomas Fajman:
> S tim nemuzu souhlasit tohle jsou vysledky
MSSQL>> select convert(datetime,0) = 1900-01-01 00:00:00.000
DELPHI>> datetostr(0) = 30.12.1899
> Takze na prvni pohled se to lisi o 2 dny :O(
Ochrana aplikace
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 28.10.2003 11:12:34
s DOSovskym programem se mi osvedcila znacena disketa, ktera temer nesla
zkopirovat. Bohuzel diskety jsou dnes mrtve a navic hodne problemove
(hlavne po delsim case). Program se me siril nasledujicim zpusobem:
- kopie doma a v praci.... to je OK, vetsina zde pretrasanych ochran vsak
toto neumoznuje nebo silne ztezuje.
- nahrani kamaradovi, znamemu a ruzna zdruzeni drobnych podnikatelu... to
je nejcastejsi druh sireni, odhadujeme zhruba +100% nelegalni uzivani, to
uz jsou penize. Tady Vam moc nepomuze 3x registrce pres Internet, protoze
se vetsinou vsichni do toho vejdou a nepostihne to tento druh nelegalniho
pouzivani, ze ktereho je nejvetsi unik penez.
>a provest automaticky na internetu a dovolit treba jen 3 zmeny HW na jedno
>seriove cislo programu. Pak uz jen na telefon. Alespon poznas kdo Tvuj
>program rozdava.
VYVAROVAL bych se dohadovanim s nelegalnimi uzivateli po telefonu. Je to
silne podurovnovy rozhovor, vetsinou vite ze lze (ale nevito to na 100%) a
ted s nim neco reste. Mate ho poslat do pr... (ale co kdyz je to pouze
legalni uzivatel pomalejsiho usudku) nebo mu pomoc (ale co kdyz je to
smejd?). Pri 2000 legalnich uzivatelu je to minimalne 5x denne a potom
vymeknete (ale na co potom ta ochrana) nebo vytvrdnete (ale potom vidite
smejdy vsude kolem sebe a to je taky na prd). Navic to desne zdrzuje.
- sireni SW za penize... to je pruser, proti tomu jsme bezmocni, uzivatele
drzi bobrika mlceni=vedi ze to neni legalni. (napr. prijede chlapik,
nahraje do PC, zrejme i zaskoli, preda disketu, ta je ovsem nefunkcni,
protoze ji neumi zkopirovat. Uzivatel to zjisti az po roce, kdyz si koupi
novy pocitac.)
Jeste poznamku: Nelegalni sireni ma ji pozitivni dopady:
-vetsi penetraci mezi uzivateli, s nadeji ze novou verzi jiz koupi
-vetsi zastoupeni na trhu
Ale bez ochrany to opravdu nejde, to byste se mohli naucit past. Na druhou
stranu necekejte, ze nekdo da do placu metodiku levne a dobre ochrany.
Ohrozil by svu SW.
S pozdravem Vaclav Riha
Oracle8 PE
[*] BRCKO Peter <peter.brcko(zv)assetsoft.sk> - 28.10.2003 10:56:32
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Dalibor Faltynek
> Sent: Friday, November 28, 2003 9:56 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Oracle8 PE
>
>
> Ahoj, zkusil jsem ten prikaz a spustilo to jakysi tnslsnr
bez neho ti to nepojde, je to smerovac na port 1521, kde mas oracle
> verze 8.1.7.0.0.,
> vypsalo to asi 10 radku ruznych hlaseni adres atd. a skoncilo
musis tam najst hlasku odkazujucu, ze servis ppp bezi
> to hlaskou
> "prikaz uspesne ukoncen"
>
> Kde mam prejmenovat te HOST a jak?
v tnsnames.ora
host = ip tvojho PC, na ktorom bezi oracle sever
mas tam
6100_FALTYNEK, mozes to zamenit za localhost alebo defolt 127.0.0.1, co je to iste.
ak ti ping 6100_FALTYNEK vrati 127.0.0.1 (ak teda niesi v sieti a nemas IP sietove ine)
alebo inu adresu s odozvou tvaru napr:
>Reply from 127.0.0.1: bytes=32 time<10ms TTL=128
>Reply from 127.0.0.1: bytes=32 time<10ms TTL=128
>Reply from 127.0.0.1: bytes=32 time<10ms TTL=128
>Reply from 127.0.0.1: bytes=32 time<10ms TTL=128
>Ping statistics for 127.0.0.1:
> Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
>Approximate round trip times in milli-seconds:
> Minimum = 0ms, Maximum = 0ms, Average = 0ms
a nie tvaru
>Pinging 128.0.0.1 with 32 bytes of data:
>
>Request timed out.
>Request timed out.
>Request timed out.
>Request timed out.
>
>Ping statistics for 128.0.0.1:
> Packets: Sent = 4, Received = 0, Lost = 4 (100% loss),
>Approximate round trip times in milli-seconds:
> Minimum = 0ms, Maximum = 0ms, Average = 0ms
nemusis to vobec menit!!!
osobne si myslim ze tam problem nebude, nakolko client fungoval O.K.
v sqlpluse.
> Zdravi Dalibor (nedalismrk).
>
> > skus len tak spustit s prikazoveho riadku prikaz "lsnrctl start"
> > a pozri si vypis obrazovky co ti vypise..
> >
> > mozno by bolo vhodne premenovat HOST na IP adresu
>
>
>
>
> __________ Informacia od NOD32 1.565 (20031127) __________
>
> Tato sprava bola preverena systemom NOD32 pre Exchange.
> http://www.eset.sk
>
>
>
>
Datum delphi VS. databaze
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 28.10.2003 10:50:31
Myslim, ze se da pouzit i neco z JEDI a take tohle:
(FieldByName('datum') as TDateField).DisplayFormat := 'dd.mm.yyyy';
V.
-----Original Message-----
From: Jan Fiala [mailto:jan.fiala(zv)wo(tec)cz]
Sent: Friday, November 28, 2003 9:56 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Datum delphi VS. databaze
28.11.2003 Tomas Fajman:
> S tim nemuzu souhlasit tohle jsou vysledky
MSSQL>> select convert(datetime,0) = 1900-01-01 00:00:00.000
DELPHI>> datetostr(0) = 30.12.1899
> Takze na prvni pohled se to lisi o 2 dny :O(
Pokud tam nejaky datum zapises, treba 12.3.2003, chces rict, ze na
serveru bude ulozeno neco jineho ? Chces rict, ze po nacteni toho
datumu ze serveru dostanes neco jineho ?
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Datum delphi VS. databaze
[*] martin.ben(zv)ge(tec)com - 28.10.2003 11:04:33
Jak uz jsem psal v soukromem mailu, nejlepe je pouzit implicitni konverzi
Pro Oracle tedy takto:
Query.SQL.Text := 'select * from tabulka where datum =
to_date(:param1,'dd.mm.yyyy')';
Query.Params[0].AsString >= FormatDateTime(moje_datum,'dd.mm.yyyy');
Martin Ben
-----Original Message-----
From: Tomas Fajman [mailto:tomas.fajman(zv)ortex(tec)cz]
To uz jsem taky zkoumal, ale zapisuje se to dobre jen tenhle select se lisi
nevim proc, asi si to delphi prevadeji pri zapisu na format datumu
'31.12.2003', chtel jsem to taky pouzit do selectu ale shorel jsem na tom
ze format datumu ma kazdej v databazi nastaveny jinak, nekdo pouziva "."
nekdo "," a nekdo zase ":" atd. no proste pokazdy jinak tak nevim jak na
to.
Datum delphi VS. databaze
[*] Tomas Fajman <tomas.fajman(zv)ortex(tec)cz> - 28.10.2003 10:28:24
Dikes za tabulku ta se mi bude urcite hodit :O) , ale nejak v tom nevidim
reseni meho problemu :O(
a to:
select * from tabulka where datumovysloupec=37540
z cehoz vzejde ze mi vrati zaznamy s datumem 13.10.2002
kdezto v delphi zadavam datum 11.10.2002 coz je tech 37540 - proste je tam
ten 2 denni posun kvuli pocatku datumu !!!
Oracle8 PE
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 28.10.2003 10:26:24
> skus len tak spustit s prikazoveho riadku prikaz "lsnrctl start"
Tak toto zabralo!!!.
Diky, ale neslo by to nekde nastavit abych to nemusel spoustet z prikazove
radky?
Dalibor
zmena kurzoru pri ADOConnection.Open
[*] Pavel Hauptman <phauptman(zv)bilbo(tec)cz> - 28.10.2003 10:30:25
Ahoj,
nevim jak zmenit kurzor, kdyz otviram spojeni s databazi. Mam nasledujici
kod, a kurzor se nemeni :-(
Screen.Cursor := crHourGlass;
if ADOConnection1.Connected = false then ADOConnection1.Open;
cdsData.Close;
cdsData.Open;
Screen.Cursor := crDefault;
D7 Ent., win98SE.
Diky a s pozdravem
Pavel Hauptman
Jak na stahovani dat v TCP/IP se Synapsi?
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 28.10.2003 10:30:24
> if Sock.CanRead(Timeout) then
> begin
> if Sock.WaitingData > 0 then //pokud prisla odezva...
> begin
> FillChar(Buffer, MaxBufLength + 1, 0);
> Sock.recvBuffer((zv)Buffer, MaxBufLength );
> ...
> end;
>
> Vsechno funguje, objem prenasenych dat je vsak velmi maly, nejvyse
> stovky bytu. Ted jsem zkusil pouzit tutez konstrukci na jiny server,
> ktery poskytuje objemnejsi data (tisice bytu) a zde mi jich prijde
> jenom cast, pokud vsak mezi prvni dva radky vyse zmineneho kodu vlozim
> cekaci smycku (2 sekundy), prijdou data cela. Nejsem zadny odbornik na
> komunikaci, proto bych se rad zeptal, jestli je chyba v mem kodu nebo
> zda je jina pricina a jak by asi vypadalo reseni. Budu vdecny nejen
> za radu, ale pripadne i kousek kodu.
To proto, ze touto kontrukci prijmes jen prvni prisla data... ty ale
mohou prichazet ve vice packetech postupne. kdyz pockas, packety se
ti zatim nahromadi v bufferu, a proto je pak prectes.
Nicmene spravne cteni musi pocitat s tim, ze na jedno cteni nemusis
precist vsechna data. Musis se podiva, jestli neco chybi, a pripadne
cteni zopakovat.
Situace je ale snadnejsi, nez cekas... tvuj cteci kod zahod. Misto
toho pouzij uz hotove funkce, ktere vsechny tyhle problemy resi
uvnitr Synapse.
Podivej se na funkce:
RecvString - cte data dokud nenajde odradkovani
RecvTerminated - cte data, dokud se nevyskytne tebou zadana sekvence
RecvBuffStr - cte tebou zadany pocet bytu dat
RecvPacket - cte vse, co je prave k dispozici v bufferu
To, co jsi mel naprogramovane ty, to bylo vlastne totez, jako kdybys
volal rovnou TRecvPacket. jamile zjistis, ze data nejsou vsechna,
musis volani teto funkce opakovat tak dlouho, dokud nejsou spokojen.
Ale obecne, kdyz ctes nejaka data, tak vis, jak vypada komunkacni
protokol, tedy vis, jak vypadaji ctena data! Vis, jestli je tam
nejaky zakoncovaci znak, nebo vis jestli se jedna o pevny poct znaku,
atd.
Pochopitelne to muzes libovolne kombinovat. Muzes si precist treba
radek dat, ze kterych se dozvis delku nasledujiciho bloku dat.. a tu
pak prectes funkci pro precteni pevneho poctu bytu, atd.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Datum delphi VS. databaze
[*] Milan Lucka <mlucka(zv)cz.foxconn(tec)com> - 28.10.2003 10:40:26
Zdravim,
ja odovzdavam Delphi typ TDateTime do SQL prikazov MSSQL vo forme stringu v
pevnom tvare 'mm.dd.yyyy hh:nn:ss', a tak sa vobec nemusim zaujimat o
vnutornu interpretaciu typov datetime resp. smalldatetime (MSSQL) a
TDateTime (Delphi)....samozrejme pokial som v intervale platnych hodnot :-))
Inac help MSSQL 2000 hovori toto:
datetime
Date and time data from January 1, 1753 through December 31, 9999, to an
accuracy of one three-hundredth of a second (equivalent to 3.33 milliseconds
or 0.00333 seconds). Values are rounded to increments of .000, .003, or .007
seconds, as shown in the table.
smalldatetime
Date and time data from January 1, 1900, through June 6, 2079, with accuracy
to the minute. smalldatetime values with 29.998 seconds or lower are rounded
down to the nearest minute; values with 29.999 seconds or higher are rounded
up to the nearest minute.
S pozdravom
Milan
Datum delphi VS. databaze
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 28.10.2003 09:56:21
28.11.2003 Tomas Fajman:
> S tim nemuzu souhlasit tohle jsou vysledky
MSSQL>> select convert(datetime,0) = 1900-01-01 00:00:00.000
DELPHI>> datetostr(0) = 30.12.1899
> Takze na prvni pohled se to lisi o 2 dny :O(
Pokud tam nejaky datum zapises, treba 12.3.2003, chces rict, ze na
serveru bude ulozeno neco jineho ? Chces rict, ze po nacteni toho
datumu ze serveru dostanes neco jineho ?
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Oracle8 PE
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 28.10.2003 09:56:20
Ahoj, zkusil jsem ten prikaz a spustilo to jakysi tnslsnr verze 8.1.7.0.0.,
vypsalo to asi 10 radku ruznych hlaseni adres atd. a skoncilo to hlaskou
"prikaz uspesne ukoncen"
Kde mam prejmenovat te HOST a jak?
Zdravi Dalibor (nedalismrk).
> skus len tak spustit s prikazoveho riadku prikaz "lsnrctl start"
> a pozri si vypis obrazovky co ti vypise..
>
> mozno by bolo vhodne premenovat HOST na IP adresu
Datum delphi VS. databaze
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 28.10.2003 09:58:21
Ahoj
V MSSQL Se da pouzit fce DateDiff(jednotka, dat1,dat2) urcuje rozdil mezi dvema datumy v celych jednotkach. Je-li jednotka napr day, urci rozdil datumu v celych dnech. Viz napoveda MSSQL.
Jaromir Cermak
> Subject: OT: Datum delphi VS. databaze
>
>
> Ahojda,
> nemate nekdo prosim zkusenosti s datumama v delphi a v databazich.
> Delphi pouzivaji pocatecni datum 30.12.1899 a ORACLE a MSSQL
> 1.1.1900 u
> ostatnich databazi jsem to jeste ani nevyzjistil. A kdyz
> delam selecty s
> podminkou na datum tak se mi to o 2 dny lisi, nevite nekdo co
> s tim? Pred
> dikes za rady.
vlastni skriptovaci jazyk - analyza syntaxe
[*] Ivan Turcan <iturcan(zv)drake.sk> - 28.10.2003 09:58:21
----- Original Message -----
From: "Michal Kuncl" <spider_x(zv)quick(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, November 28, 2003 9:34 AM
Subject: Re: vlastni skriptovaci jazyk - analyza syntaxe
> Ivan Turcan napsal(a):
> > syntax.... proste bomba , nema to chybu... resp. ja a ani firma co to
> > pouziva zatial ziadnu nenasla...
>
> Ja bych o jedny "chybe" vedel: Price: $349. :-(
>
> Spider
iste, je to ale len cca 11 000, osobne si myslim ze programator ma vacsi
mesacny plat a ked ma vyvyjat nieco podobne tak urcite to do takej miery
nebude mat za mesiac hotove. Takze ked na tom budes usilovne makat sam, moze
sa ti stat ze tvoju firmu to bude stat viac ako keby si to kupila.... Inu
jasne, niekdo tu poslal aj nejake free riesenie , osobne som ho neskusal,
takze ked nechces platit a nechces ani vyvyjat vlastne riesenie tak potom
treba zacat niecim co je free....
Ivan
vlastni skriptovaci jazyk - analyza syntaxe
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 28.10.2003 10:18:23
Michal Kuncl <spider_x(zv)quick(tec)cz> wrote:
> Ivan Turcan napsal(a):
>> syntax.... proste bomba , nema to chybu... resp. ja a ani firma co
to
>> pouziva zatial ziadnu nenasla...
>
> Ja bych o jedny "chybe" vedel: Price: $349. :-(
>
zminoval jsem InnerFuse Pascal Script, ten je free. Jiz nejakou dobu
existuje a autor na nem stale pracuje a pripadne chyby odstranoval
zatim rychle.
Pouzivam jej v jeho starsi verzi (k plne spokojenosti). Novejsi verze
spousti predkompilovany skripty cili je mnohem rychlejsi a neni
problem (v obou verzich) pouzivat rutiny napsane v Delphi. Na prvni
pohled ma podobne vlastnosti jako skritp engine od dream-com.com
D. Toman
Jak na stahovani dat v TCP/IP se Synapsi?
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 28.10.2003 10:02:22
Ahoj vespolek, uz nejakou dobu provozuji konstrukci, ktera bez problemu
funguje. Jedna se o stahovani dat z nejakeho serveru pres TCP/IP. Zabalil
jsem Synapsi do sve tridy a ta konstrukce (odnekud jsem ji opsal)
zjednodusene vypada takto:
Sock.SendString(Send); //posle se vyzva
if Sock.CanRead(Timeout) then
begin
if Sock.WaitingData > 0 then //pokud prisla odezva...
begin
FillChar(Buffer, MaxBufLength + 1, 0);
Sock.recvBuffer((zv)Buffer, MaxBufLength );
...
end;
Vsechno funguje, objem prenasenych dat je vsak velmi maly, nejvyse stovky
bytu.
Ted jsem zkusil pouzit tutez konstrukci na jiny server, ktery poskytuje
objemnejsi data (tisice bytu) a zde mi jich prijde jenom cast, pokud vsak
mezi prvni dva radky vyse zmineneho kodu vlozim cekaci smycku (2 sekundy),
prijdou data cela. Nejsem zadny odbornik na komunikaci, proto bych se rad
zeptal, jestli je chyba v mem kodu nebo zda je jina pricina a jak by asi
vypadalo reseni. Budu vdecny nejen za radu, ale pripadne i kousek kodu.
Diky a zdravim vsechny
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
Oracle8 PE
[*] Karol Chupek <chupek(zv)apollo.sk> - 28.10.2003 09:40:19
> Napsal jsem tam tnsping ppp.
> Pokud jsem napsal tnsping ppp.world, vratilo to hlasku:
>
> Attempting to contact
> <ADDRES=<PROTOCOL=TCP><HOST=6100_FALTYNEK><PORT=1521>>
> TNS-12541: TNS:neexistuje zadny listener
>
skus len tak spustit s prikazoveho riadku prikaz "lsnrctl start"
a pozri si vypis obrazovky co ti vypise..
mozno by bolo vhodne premenovat HOST na IP adresu
Datum delphi VS. databaze
[*] martin.ben(zv)ge(tec)com - 28.10.2003 10:00:21
Oracle pouziva vice datovych typu pro praci s datumem. Ja pouzivam datovy
typ DATE.
Pro porovnani je potreba vhodne zaokrouhlovat, napr.
- zakazky prijate 12.11.2003
select * from zakazky where trunc(dtprijato) =
to_date('12.11.2003','dd.mm.yyyy')
- zakazky prijate v poslednich 30 minutach
select * from zakazky where dtprijato >= trunc(sysdate,'mi') - 30/24/60
V Delphi pouzivam DOA komponenty (http://www.allroundautomations.com/) a
zadne problemy s datumem jsem nikdy nemel.
Martin Ben
PS: Na soukromy mail posilam vytah z dokumentace Oraclu k datovym typum.
-----Original Message-----
From: Tomas Fajman [mailto:tomas.fajman(zv)ortex(tec)cz]
Ahojda,
nemate nekdo prosim zkusenosti s datumama v delphi a v databazich.
Delphi pouzivaji pocatecni datum 30.12.1899 a ORACLE a MSSQL 1.1.1900 u
ostatnich databazi jsem to jeste ani nevyzjistil. A kdyz delam selecty s
podminkou na datum tak se mi to o 2 dny lisi, nevite nekdo co s tim? Pred
dikes za rady.
OnMouseDown a cursor
[*] Jirka <delphi-l(zv)bedna(tec)net> - 28.10.2003 09:40:19
Radek wrote:
> se jde to - budu to muset jeste overit v puvodni konfiguraci. Jinak jsem jeste narazil na jeden problem
> kdyz se zmacknutou mysi odjedu z PaintBoxu a pustim tlacitko tak se OnMouseUp nezavola (coz je celkem jasne)
> a kurzor zustane zmeneny - tak zatim nevim jak to elegantne vyresit. Mozna v OnMouseDown nahodit nejaky priznak a v
> OnMouseMove PaintBoxu pak podle priznaku vracet puvodni kurzor nebo nejak globalne odchytavat OnMouseUp ?
Ahoj,
zkus se podivat na MouseEnter a MouseLeave.
Jirka
OnMouseDown a cursor
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 28.10.2003 09:54:20
28.11.2003 Radek:
>> procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
>> Shift: TShiftState; X, Y: Integer);
>> begin
>> Screen.Cursor := crHandPoint;
>> end;
>>
>> procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
>> Shift: TShiftState; X, Y: Integer);
>> begin
>> Screen.Cursor := crDefault;
>> end;
> Jo diky ale tohle presne me vcera nefungovalo - dnes sedim na jinem PC s W2000 a svete div
> se jde to - budu to muset jeste overit v puvodni konfiguraci.
> Jinak jsem jeste narazil na jeden problem
> kdyz se zmacknutou mysi odjedu z PaintBoxu a pustim tlacitko tak
> se OnMouseUp nezavola (coz je celkem jasne)
> a kurzor zustane zmeneny - tak zatim nevim jak to elegantne
> vyresit. Mozna v OnMouseDown nahodit nejaky priznak a v
> OnMouseMove PaintBoxu pak podle priznaku vracet puvodni kurzor
> nebo nejak globalne odchytavat OnMouseUp ?
Nebude to fungovat, pokud pouzivas obsluhy Drag/Drop. Proto se na to
mnohem lip hodi Drag/Drop nez MouseUp a MouseDown
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
vlastni skriptovaci jazyk - analyza syntaxe
[*] Michal Kuncl <spider_x(zv)quick(tec)cz> - 28.10.2003 09:34:18
Ivan Turcan napsal(a):
> syntax.... proste bomba , nema to chybu... resp. ja a ani firma co to
> pouziva zatial ziadnu nenasla...
Ja bych o jedny "chybe" vedel: Price: $349. :-(
Spider
OnMouseDown a cursor
[*] Vit Krska <vit.krska(zv)del(tec)cz> - 28.10.2003 09:30:18
>
> Jo diky ale tohle presne me vcera nefungovalo - dnes sedim na
> jinem PC s W2000 a svete div
> se jde to - budu to muset jeste overit v puvodni konfiguraci.
> Jinak jsem jeste narazil na jeden problem
> kdyz se zmacknutou mysi odjedu z PaintBoxu a pustim tlacitko
> tak se OnMouseUp nezavola (coz je celkem jasne)
> a kurzor zustane zmeneny - tak zatim nevim jak to elegantne
> vyresit. Mozna v OnMouseDown nahodit nejaky priznak a v
> OnMouseMove PaintBoxu pak podle priznaku vracet puvodni
> kurzor nebo nejak globalne odchytavat OnMouseUp ?
>
> Radek
>
u toho paitboxu si osetri udalosti
CM_MOUSEENTER a CM_MOUSELEAVE
to by mohlo pomoct
Datum delphi VS. databaze
[*] Tomas Fajman <tomas.fajman(zv)ortex(tec)cz> - 28.10.2003 09:28:18
S tim nemuzu souhlasit tohle jsou vysledky
MSSQL> select convert(datetime,0) = 1900-01-01 00:00:00.000
DELPHI> datetostr(0) = 30.12.1899
Takze na prvni pohled se to lisi o 2 dny :O(
"Lstiburek Pavel"
<lstiburek(zv)ceb(tec)cz Komu: delphi-l(zv)clexpert(tec)cz
> Kopie:
Odeslal: Predmet: Re: Datum delphi VS. databaze
delphi-l-owner(zv)cl
expert(tec)cz
28.11.2003 09:16
Odpovezte prosim
uzivateli
delphi-l
Cirou nahodou se Delphi a MSSQL v pocatku nelisi, protoze 0 je u MSSQL
polozena na pulnoc a tak je pocatek taky 31.12.1899.
Problemem je, ze MSSQL nema datovy typ date, ale pouze datetime.
takze pri porovnavani na strane DB je nutno zokrouhlovat nikoliv orezavat
desetina mista jako u Delphi !
nebo psat interval !
MojeDatum > vcera and :MojeDatum < zitra
==> vsechny datetime ktere patri do dnesniho dne.
nebo neco takoveho:
CAST( FLOOR( CAST( Datum AS float )) AS datetime) = :Mojedatum
Pavel
> -----Original Message-----
> From: Tomas Fajman [mailto:tomas.fajman(zv)ortex(tec)cz]
> Sent: Friday, November 28, 2003 9:00 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: OT: Datum delphi VS. databaze
>
>
> Ahojda,
> nemate nekdo prosim zkusenosti s datumama v delphi a v databazich.
> Delphi pouzivaji pocatecni datum 30.12.1899 a ORACLE a MSSQL
> 1.1.1900 u
> ostatnich databazi jsem to jeste ani nevyzjistil. A kdyz
> delam selecty s
> podminkou na datum tak se mi to o 2 dny lisi, nevite nekdo co
> s tim? Pred
> dikes za rady.
>
>
>
>
Datum delphi VS. databaze
[*] Lstiburek Pavel <lstiburek(zv)ceb(tec)cz> - 28.10.2003 09:16:16
Cirou nahodou se Delphi a MSSQL v pocatku nelisi, protoze 0 je u MSSQL polozena na pulnoc a tak je pocatek taky 31.12.1899.
Problemem je, ze MSSQL nema datovy typ date, ale pouze datetime.
takze pri porovnavani na strane DB je nutno zokrouhlovat nikoliv orezavat desetina mista jako u Delphi !
nebo psat interval !
MojeDatum > vcera and :MojeDatum < zitra
==> vsechny datetime ktere patri do dnesniho dne.
nebo neco takoveho:
CAST( FLOOR( CAST( Datum AS float )) AS datetime) = :Mojedatum
Pavel
> -----Original Message-----
> From: Tomas Fajman [mailto:tomas.fajman(zv)ortex(tec)cz]
> Sent: Friday, November 28, 2003 9:00 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: OT: Datum delphi VS. databaze
>
>
> Ahojda,
> nemate nekdo prosim zkusenosti s datumama v delphi a v databazich.
> Delphi pouzivaji pocatecni datum 30.12.1899 a ORACLE a MSSQL
> 1.1.1900 u
> ostatnich databazi jsem to jeste ani nevyzjistil. A kdyz
> delam selecty s
> podminkou na datum tak se mi to o 2 dny lisi, nevite nekdo co
> s tim? Pred
> dikes za rady.
>
>
>
>
> OnMouseDown a cursor
[*] Radek <radek_456(zv)seznam(tec)cz> - 28.10.2003 09:14:16
> > mam na formu PaintBox a potreboval bych aby se v udalosti
> > OnMouseDown zmenil kurzor u mysi a pri OnMouseUp zase zpatky.
> > A moc se me nedari. Ten kurzor se pri zmacknutem tlacitku u myse
> > nejak nechce prekreslit - nevite nekdo jak na to ?
>
> procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> begin
> Screen.Cursor := crHandPoint;
> end;
>
> procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> begin
> Screen.Cursor := crDefault;
> end;
>
> --
> Jan Fiala
> mailto:jan.fiala(zv)wo(tec)cz
>
Jo diky ale tohle presne me vcera nefungovalo - dnes sedim na jinem PC s W2000 a svete div
se jde to - budu to muset jeste overit v puvodni konfiguraci. Jinak jsem jeste narazil na jeden problem
kdyz se zmacknutou mysi odjedu z PaintBoxu a pustim tlacitko tak se OnMouseUp nezavola (coz je celkem jasne)
a kurzor zustane zmeneny - tak zatim nevim jak to elegantne vyresit. Mozna v OnMouseDown nahodit nejaky priznak a v
OnMouseMove PaintBoxu pak podle priznaku vracet puvodni kurzor nebo nejak globalne odchytavat OnMouseUp ?
Radek
PopupMenu a TEdit, TMemo ...
[*] mstevlik(zv)gamo.sk - 28.10.2003 09:12:16
Hi all,
Mam zaujimavy problem, ak si na cisty formular dam TMemo alebo TEdit a
spustim to tak ked stlacim prave tlacitko mysi nad tymito komponentami,
tak sa mi zjavi PopupMenu, kde su fcie Copy, Cut, Paste ...
Akonahle vsak vytvorim PopupMenu a priradim ho do formulara, tak sa mi
potom nad tymito komponentami zacne zjavovat to moje PopupMenu
Rad by som aby sa nad tymito komponentami zjavovali moje polozky PopupMenu
+ polozky z toho TEdit popup menu, alebo by som rad potlacil moje
popupmenu nad TEditom, TMemom a nech sa tam zobrazuje len to
s tymi Copy, Paste ...
Ako na to?
D5Pro, WinXPPro
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 34893645
OT: Datum delphi VS. databaze
[*] Tomas Fajman <tomas.fajman(zv)ortex(tec)cz> - 28.10.2003 09:00:15
Ahojda,
nemate nekdo prosim zkusenosti s datumama v delphi a v databazich.
Delphi pouzivaji pocatecni datum 30.12.1899 a ORACLE a MSSQL 1.1.1900 u
ostatnich databazi jsem to jeste ani nevyzjistil. A kdyz delam selecty s
podminkou na datum tak se mi to o 2 dny lisi, nevite nekdo co s tim? Pred
dikes za rady.
Oracle8 PE
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 28.10.2003 08:52:14
28.11.2003 Dalibor Faltynek:
> Napsal jsem tam tnsping ppp.
> Pokud jsem napsal tnsping ppp.world, vratilo to hlasku:
> Attempting to contact
> <ADDRES=<PROTOCOL=TCP><HOST=6100_FALTYNEK><PORT=1521>>
> TNS-12541: TNS:neexistuje zadny listener
To znamena, ze mas na stanici chybne konfiguraci ORA souboru nebo na
serveru nebezi listener. Zkus zkontrolovat sluzbu na serveru.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Jaky nastroj pro dotazy namisto Paradoxu?
[*] little_bobes(zv)centrum(tec)cz - 28.10.2003 08:18:11
Zdravim,
kdyz jsem potreboval prenaset data z tabulky do tabulky nebo menit udaje v
jedne tabulce na zaklade udaju v jine tabulce, tak jsem pouzival Paradox.
Pro vytvareni Query mezi tabulkami byl pro me velice snadnym a jednoduchym
nastrojem.
Ze zacatku jsem pouzival paradoxove tabulky a pozdeji jsem presel na
Interbase a pote na Firebird 1.5.
Zacal jsem pouzivat View a narail jsem na to, ze nemohu udelat Query typu
"changeto", protoze View nema "unique index" (chybove hlaseni: Unique index
required to perform changeto)
Poradi mi nekdo teto problematiky znaly, zda lze tento problem vyresit?
Nebo jeste lepe - doporucite mi nekdo jiny nastroj pro tvorbu Query, abych
jiz nemusel pouzivat Paradox s BDE, ktere jiz neumi pracovat s Dialectem 3?
Vsem predem dekuji za odpovedi
Bob
Oracle8 PE
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 28.10.2003 08:14:11
Napsal jsem tam tnsping ppp.
Pokud jsem napsal tnsping ppp.world, vratilo to hlasku:
Attempting to contact <ADDRES=<PROTOCOL=TCP><HOST=6100_FALTYNEK><PORT=1521>>
TNS-12541: TNS:neexistuje zadny listener
Jinak toto je v konfiguracnim souboru TNSNAMES.ORA:
# TNSNAMES.ORA Network Configuration File:
c:\Oracle\Ora81\network\admin\tnsnames.ora
# Generated by Oracle configuration tools.
EXTPROC_CONNECTION_DATA.ORGREZ =
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC0))
)
(CONNECT_DATA =
(SID = PLSExtProc)
(PRESENTATION = RO)
)
)
PPP.WORLD =
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = 6100_Faltynek)(PORT = 1521))
)
(CONNECT_DATA =
(SERVICE_NAME = PPP.world)
)
)
----- Original Message -----
From: <martin.ben(zv)ge.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 27, 2003 4:50 PM
Subject: Re: Oracle8 PE
> Co presne jsi tam napsal
>
> Martin Ben
>
> -----Original Message-----
> From: Dalibor Faltynek [mailto:dalibor.faltynek(zv)orgrez(tec)cz]
>
> A hrome!
> nevsiml jsem si, ze to na pingu jeste vypsalo hlasku "selhalo rozdeleni
> jmena"!
> Dalibor
>
>
>
>OnMouseDown a cursor
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 28.10.2003 08:00:10
28.11.2003 Radek:
> Ahoj,
> mam na formu PaintBox a potreboval bych aby se v udalosti
> OnMouseDown zmenil kurzor u mysi a pri OnMouseUp zase zpatky.
> A moc se me nedari. Ten kurzor se pri zmacknutem tlacitku u myse
> nejak nechce prekreslit - nevite nekdo jak na to ?
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Screen.Cursor := crHandPoint;
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Screen.Cursor := crDefault;
end;
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Oracle8 PE
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 28.10.2003 08:02:10
Ahoj,
samozrejme, ze to delam vse pres nativni driver BDE. ODBC mi sice taky tehda
fungovalo, ale nejak divne, takze to nebudu ani zkouset.
V TNSNAMES.ORA je toto:
# TNSNAMES.ORA Network Configuration File:
c:\Oracle\Ora81\network\admin\tnsnames.ora
# Generated by Oracle configuration tools.
EXTPROC_CONNECTION_DATA.ORGREZ =
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC0))
)
(CONNECT_DATA =
(SID = PLSExtProc)
(PRESENTATION = RO)
)
)
PPP.WORLD =
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = 6100_Faltynek)(PORT = 1521))
)
(CONNECT_DATA =
(SERVICE_NAME = PPP.world)
)
)
Ale stejne nevim jestli to je dobre nebo spatne.
Dalibor.
> Podla tohoto vsetkeho hladaj chybu uz jedine v BDE.
> Oracle client Ti funguje.
> Skusaj sa zamerat na nativny pristup.
OnMouseDown a cursor
[*] Radek <radek_456(zv)seznam(tec)cz> - 28.10.2003 07:44:09
Ahoj,
mam na formu PaintBox a potreboval bych aby se v udalosti OnMouseDown zmenil kurzor u mysi a pri OnMouseUp zase zpatky.
A moc se me nedari. Ten kurzor se pri zmacknutem tlacitku u myse nejak nechce prekreslit - nevite nekdo jak na to ?
Radek
Prechod z D4 na D6
[*] martin.ben(zv)ge(tec)com - 28.10.2003 07:40:08
Unit 'FileCtrl' is specific to a platform
Symbol 'EAbstractError' is specific to a platform
- souvisi to s moznosti pouzit stejny zdrojak jak na Windows(Delphi), tak na
Linuxu (Kylix)
Muzes je vypnout tak, ze das na zacatek unity
{$WARN SYMBOL_PLATFORM OFF}
{$WARN UNIT_PLATFORM OFF}
Symbol 'EWin32Error' is deprecated
- Delphi 6 pouziva novy, vetsinou "multiplatformni" symbol (ale i funkci), v
tomto pripade 'EOSError'
- vice najdes v napovede
Martin Ben
-----Original Message-----
From: Zdenek Brejsa [mailto:prog(zv)hjsoft(tec)cz]
tyto Warningy:
Unit 'FileCtrl' is specific to a platform
Symbol 'EWin32Error' is deprecated
Symbol 'EAbstractError' is specific to a platform
co mam udelat aby to bylo OK ?
Prechod z D4 na D6
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 28.10.2003 07:24:07
Ahojky,
jak uz jsem jednou psal, prechazim z D4 na D6 a pri prekladu mi to hlasi
tyto Warningy:
Unit 'FileCtrl' is specific to a platform
Symbol 'EWin32Error' is deprecated
Symbol 'EAbstractError' is specific to a platform
co mam udelat aby to bylo OK ?
predem diky
Zdenek Brejsa
Ochrana aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.10.2003 00:45:41
From: "Ludek ZITA" <konference(zv)sales(tec)cz>
> Samozrejme muzes tu cinnost, kterou delas po zaslani udaju naprogramovat
> a provest automaticky na internetu a dovolit treba jen 3 zmeny HW na jedno
> seriove cislo programu. Pak uz jen na telefon. Alespon poznas kdo Tvuj
Tohle je presne ten odrazujici prvek. Nevim proc by nekdo mel mit k pocitaci
telefon. Software je urcen pro dany hardware, je-li k jeho cinnosti vyzadovan
jeste telefon, nechte je to nekde vyslovene uvedeno. Bezne PC pripojene beznym
zpusobem do lokalni site nebo internetu zadny interface na telefon nema. Za
chvili by mohl nekdo vyzadovat, aby si k pocitaci mel treba jeste klavir nebo
ukulele a pri registraci zahral nejakou pisnicku ;-)
Pak to skonci tak, ze legalni uzivatel bude shanet crack na aplikaci kterou si
zaplatil, aby ji mohl vubec rozume pouzivat. A priste uz si nic takoveho pro
jistotu nekoupi (v cem ma spatrit vyhodu coby platici zakaznik oproti tomu co
to ukradl, ze musi nekam telefonovat zatimco tomu druhemu to funguje porad ?)
Petr Vones
Typ klavesnice
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 28.10.2003 00:41:40
----- Original Message -----
From: "Dusek Karel" <dusek(zv)mudk(tec)cz>> Zkus toto: Zavolej funkci prepni_klav(Application,'Cz') a uvidis
>
>
> function TForm1.zjisti_klav(Sender: TObject): String;
> begin
> GetLocaleInfo(LoWord(GetKeyBoardLayout(0)),Locale_SengLanguage,Kbd,2);
> zjisti_klav:=Kbd;
> end;
Ahoj. Pozor, klasicky BUG.
POkud progam pustis tam kde neni klavesnice 'Cz' skonci v nekonecne smyce :)
Ludek
> procedure TForm1.prepni_klav(Sender: TObject; Klav: String);
var ActualKeyb,DummyKeyb : string;
> begin
ActualKeyb := zjisti_klav(Application);
> repeat
> ActivateKeyBoardLayout(HKL_NEXT,0);
DummyKeyb :=zjisti_klav(Application)
> until (DummyKeyb=Klav) or (DummyKeyb=ActualKeyb) ;
> end;
>
> S pozdravem
> Karel Dusek
Ochrana aplikace
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 28.10.2003 00:25:38
----- Original Message -----
> Predkladam namet do diskuse: Nedala by se tato slabina odstranit nejakym
> mechanismem, kdy by potrebne identifikacni udaje byly pro konkretniho
> zakaznika dosazitelne na internetu? Zakaznik se nekam naloguje nebo posle
> email nebo svoje otisky prstu a program se mu tim zprovozni?
Ahoj.
Samozrejme muzes tu cinnost, kterou delas po zaslani udaju naprogramovat
a provest automaticky na internetu a dovolit treba jen 3 zmeny HW na jedno
seriove cislo programu. Pak uz jen na telefon. Alespon poznas kdo Tvuj
program
rozdava.
Ludek
Excel
[*] Ludek Paral <ludek.paral(zv)quick(tec)cz> - 27.10.2003 22:31:29
To je jednoduche, jelikoz volas v podstate scripty VB.... :), delas to same,
co makro...
Ludek
--------------------
Pro praci to vyzaduje nainstalovane VBA, procpak????
Brona
Oracle8 PE
[*] Martin Kleiner <mkleiner(zv)seznam(tec)cz> - 27.10.2003 21:35:26
1. je "nutne" mit nainstalovane BDE 5.1.1 ORACLE 8 DRIVER UPDATE 1
2. v Control panels\bde administrator nastav
ROWSET SIZE = 1
DLL32=SQLORA8.DLL
VENDOR INIT=OCI.DLL
3. podivej se do souboru tnsnames.ora jestli mas definovane pripojeni k
databazi
4.pokud ne - pouzij dbastudio (nejrychlejsi cesta)
5. zkus nejjednoduzsi select SELECT SYSDATE FROM DUAL
Ing. Martin Kleiner
nezavisly programator
Dalibor Faltynek wrote:
> Ahoj,
> Stahl jsem si a nainstaloval Oracle 8i personal edition pro win 98.
> Pri instalaci se vytvorila nejaka demonstracni databaze. Global
> databaze name jsem zadal jako "ppp.world", SID si to udelalo samo
> jako "ppp". Heslo pro system je puvodni - "manager". Poradte mi
> prosim, jak se pripojit napriklad dbexplorerem z delfi 5 c/s na tuto
> demodatabazi? Co napsat do bdeadminu za server name, username atd.
> Vzdycky mi to skonci v dbexploreru na chybe "ORA 03114 nepripojeno k
> oracle".
> Potrebuji se jenom napojovat pro cteni, zadnou vedu z toho nechci.
> Jde to vysvetlit jednoduse i pro neoraklistu?
>
> Diky
> Dalibor.Nevizuelni vyplnovani html formularu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 27.10.2003 21:07:24
Puvodni zprava ze dne 27.11.2003:
> Myslim tim otevreni nejake www stranky vyplneni ruznych poli a
> jeji odeslani (kliknuti na odkaz, buttonek...) - napriklad objednani
> nejakeho zbozi z e-shopu.
Jinak jeste priklad v Indy:
1. Udelas si MemoryStream a pak do nej napises udaje:
StreamPost.WriteString('UsrName=neco&pass=neco');
2. Nastavis rezim predavanych dat:
HTTP.Request.ContentType := 'application/x-www-form-urlencoded';
3. Nastavis si referer stranku, odkud jako posilas:
HTTP.Request.Referer := ...;
4. A provedes POST:
HTTP.Post('http://www.neco(tec)cz/stranka.asp', StreamPost, StreamGet);
To StreamGet je take MemoryStream, kam se da vysledek...
5. Zkontrolujes HTTP.ResponseCode
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Nevizuelni vyplnovani html formularu
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 27.10.2003 21:01:23
Pavel Poles wrote:
> Uvazoval jsem vse zalozit na TIdHTTP od Indy, ale jeste furt
> my neni presne znam smer kam se ubirat.
Delal jsem to tak, ze jsem poci Synapse nacetl stranku s formularem,
jeji obsah jsem analyzoval parserem, ktery jsem napsal nad Tidy
(http://tidy.sourceforge.net/), na zaklade vysledku analyzy a informaci
v konfiguraci jsem vyplnil parametry a pomoci Synapse je poslal
na server atd...
HTH, pf
DateTimePicker podruhe
[*] petr.spurny <peta.spurny(zv)tiscali(tec)cz> - 27.10.2003 20:17:20
Zdravim,
prisel jsem na zajimavy problem s DateTimePickerem.
Pokud ho zobrazim s checkboxem a chci data vyplnit rucne, tak po zadani dne
a stisknuti sipky doprava (pro skok na mesic) se oznaceni presune na
checkbox.
Pokud ted zmacknu sipku doprava, kurzor skoci na den, pokud jeste jednou vse
jiz funguje jak ma (kurzor skoci na mesic).
Nevi nekdo co s tim, popripade mohl by nekdo vyzkouset zda to neni chyba
moji instalace nebo neco jineho?
Predem diky
Petr Spurny
[Win98SE, Delphi 6 Ent]
:: petr.spurny ::
:: peta.spurny(zv)tiscali(tec)cz ::Nevizuelni vyplnovani html formularu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 27.10.2003 19:57:19
Puvodni zprava ze dne 27.11.2003:
> neresil jste jiz nekdo dany problem?
> Myslim tim otevreni nejake www stranky vyplneni ruznych poli a
> jeji odeslani (kliknuti na odkaz, buttonek...) - napriklad objednani
> nejakeho zbozi z e-shopu.
> Vse by se melo resit nevizuelne, tzn. zadny otevreny IE nebo
> jiny browser.
> Uvazoval jsem vse zalozit na TIdHTTP od Indy, ale jeste furt
> my neni presne znam smer kam se ubirat.
Normalni POST.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Nevizuelni vyplnovani html formularu
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 27.10.2003 19:59:19
> neresil jste jiz nekdo dany problem?
> Myslim tim otevreni nejake www stranky vyplneni ruznych poli a
> jeji odeslani (kliknuti na odkaz, buttonek...) - napriklad objednani
> nejakeho zbozi z e-shopu. Vse by se melo resit nevizuelne, tzn. zadny
> otevreny IE nebo jiny browser. Uvazoval jsem vse zalozit na TIdHTTP od
> Indy, ale jeste furt my neni presne znam smer kam se ubirat.
Zkus Synapsi. Podivej se treba na funkci HttpPostFile z unity
httpsend.pas.
tato funkce ukazuje, jak presne programove vyplnit jednoduchy
formular pro upload souboru na server. tedy takovy ten formularik,
kde do jednoho okenka napises jmeno tveho lokalniho souboru, a pak
tuknes na tlacitko, ktery ten soubor posles na server.
Podle teto funkce snadno spichnes funkci, ktera bude odesilat vsechna
tva data, jak je libo. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Ochrana aplikace
[*] Bohuslav Svancara <bsv(zv)softprojekt(tec)cz> - 27.10.2003 19:37:17
> nabizet to jako
> jedinou moznost je zcestne.
>
> Petr Vones
Ano, nabizet to jako jedinou moznost, by bylo zcestne.
Snazim se tady jen o neco ve smyslu brain stormingu.
S pozdravem
Bohuslav Svancara, prom. mat.
svancara(zv)softprojekt(tec)cz
Nevizuelni vyplnovani html formularu
[*] Pavel Poles <xcony(zv)seznam(tec)cz> - 27.10.2003 19:53:18
Zdravim,
neresil jste jiz nekdo dany problem?
Myslim tim otevreni nejake www stranky vyplneni ruznych poli a
jeji odeslani (kliknuti na odkaz, buttonek...) - napriklad objednani
nejakeho zbozi z e-shopu.
Vse by se melo resit nevizuelne, tzn. zadny otevreny IE nebo
jiny browser.
Uvazoval jsem vse zalozit na TIdHTTP od Indy, ale jeste furt
my neni presne znam smer kam se ubirat.
Za vsechny rady a poznatky budu vdecen
Pavel Poles
Ochrana aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.10.2003 19:31:16
From: "Bohuslav Svancara" <bsv(zv)softprojekt(tec)cz>
> Mozna by to slo i na mobil: uzivatel posle e-mail z mobilu, server v e-mailu
> najde telefonni cislo, zjisti, jestli je to cislo legalniho zakaznika
> (zjisteno pri registraci) a posle mu SMS s kodem na odemknuti na 15 dnu...
Me trochu prekvapuje, kdyz si nekdo koupi software pro PC a pak by byl nucen
pro jeho pouziti/registraci/aktivaci mit nejaky nesmyslny telefon (byl snad
pribalen u software ?). Chapu to jako alternativni kanal, ale nabizet to jako
jedinou moznost je zcestne.
Petr Vones
Ochrana aplikace - dotaz
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 27.10.2003 19:27:16
> Volil bych asi nejakou jednodussi ochranu (cislo HDD nebo neco tak) abych
uzivatele donutil si to koupit. Pro zmenu bych pak
> zavedl do programu nejakou napr. 15 denni lhutu, nez program prestane
> fungovat. Tim mu das moznost zazadat o novou registraci a je to
> pochopitelne - to nemuze byt nikdo nastvany
Ahoj
Myslim si, ze cislo HDD vo vela pripadoch staci. Zaujimalo by ma, ako
zistit cislo HDD na ktorom bol program spusteny. Nie je problem zistit cislo
HDD lokalnej stanice, nazov stroja kde bol program spusteny ale ako zistit
cislo HDD cez siet ? Samozrejme musi to byt nezavisle riesenie na operacnom
systeme. OS iba z rodiny Windows. Pripadne ako je mozne zistit MAC adresu
sietovej karty toho stroja odkial bol program spusteny.
Vlado
Ochrana aplikace
[*] Bohuslav Svancara <bsv(zv)softprojekt(tec)cz> - 27.10.2003 19:23:16
> Takze cas od casu poslu
> testovaci e-mail na vsechny ucastniky a primo v tom mailu je adresa,
> na kterou to posilam. Jsou to jednotlive e-maily. No a tak mi pak
> prijde chybova hlaska a z ni uz je jasne, ze ten prihlaseny je
> venca(zv)domena(tec)cz a uz ho muzu vymazat...
>
> Petr Zahradnik, pocitacovy expert
Nejaky takovy proces jsem mel na mysli. Uzivatel nechodiciho programu posle
nekam e-mail, tim se identifikuje, protoze e-mail je v tom textu k nalezeni.
Mozna v tom e-mailu muze byt jeste neco - nevim co. Server zjisti, ze jde o
e-mail legalniho zakaznika a odblokuje mu na 15 dnu zablokovany program.
Mozna by to slo i na mobil: uzivatel posle e-mail z mobilu, server v e-mailu
najde telefonni cislo, zjisti, jestli je to cislo legalniho zakaznika
(zjisteno pri registraci) a posle mu SMS s kodem na odemknuti na 15 dnu...
>V okamziku, kdy firma zkrachuje, prisel jsem o 30k
Jo jo, takovou ztratu bych si pral, kdyz krachovaly ceske banky a stezovat
jsem si mohl leda na lamparne. Ani hardwarovy klic k bankovnimu uctu by me
nezachranil :)
Je hezke, kolik programatoru mysli na sve zakazniky - napriklad by svoje
programy chteli pri krachu firmu dat jako OpenSource. Kdyby tak postupovali
ti CZ bankovni zraloci a tunelari, to by bylo prima. Ale ti vycitkami
svedomi urcite netrpi. Spis bych rekl, ze by se klidne mohli programatori
chovat jako bankeri - skoda by urcite nebyla tak vysoka.
Uz nekolika mym zakaznikum ukradli pocitace nebo notebooky vcetne software.
Tak jsem jim dal novy bezplatne. Proste verim, ze kdyz se budu chovat
slusne, budou oni taky. A treba si koupi aktualizaci...
S pozdravem
Bohuslav Svancara, prom. mat.
svancara(zv)softprojekt(tec)cz
Ochrana aplikace
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 27.10.2003 18:47:13
Puvodni zprava ze dne 27.11.2003:
> 2/ Koupil jsem si 10-prsty a myslel si, ze to budu moci mit i v
> praci, jenze je zde ochrana, takze vysledek-doma cas nemam a do
> prace to nenainstaluji.smula, ale kdyz prgm za 300 kc funguje az po
> zaslani HW konfigurace,tak je to docela blbe...
Ja jsem si koupil balik software za cca $1,000 a pak jsem zjistil, ze
je vazany na hardware. Ano, mel jsem na rozmyslenou jeste money back.
Jenze jsem ten soft chtel. Tak jsem si ho nechal.
Kdyz jsem si jednou nainstaloval koupeny VMware (virtualni pocitace
pro testovani na ruznych operacnich systemech apod.), tak ten mi
nasadil do pocitace dve virtualni sitovky a prestaly mi chodit ty
softy. Musel jsem je preaktivovat, tj. cekat, az do prace prijdou v
Americe zamestnanci a poslou novy kod. Kdybych to nutne potreboval,
mam smulu, musim cekat.
Kdyz vysla nova verze VMware, patch, tak jsem ji neinstaloval. Protoze
si rikam, ze kdyz to odinstaluji a nainstaluji novou verzi, urcite
zase budu muset reaktivovat tyto programy a to me obtezuje. Uz jen ta
skutecnost, ze musim poslat mail a napsat jednu anglickou vetu, me u
software za 30 tisic velmi obtezuje.
Kdyby byl hardwarovy klic, bral bych radeji klic nez toto svazani s
hardwarem. Kupodivu kdyz jsem menil disk za vetsi, tak to reaktivaci
nechtelo. Mozna ten Ghost, kterym jsem disk klonoval, tam dodal
seriove cislo disku, mozna disk oni netestuji, nevim. Ale uz jsem byl
pripraven to aktivovat...
V okamziku, kdy firma zkrachuje, prisel jsem o 30k, kdykoliv zmenim
hardware, musim preaktivovat. A pritom to v podstate mohu udelat
kdykoliv. Myslim, ze to neni idealni ochrana, protoze asi kdybych to
nainstaloval jinam a rekl, ze mi shorel pocitac, tak mi ten kod daji.
Mohli by to pripadne zjistit z nejake on-line aktualizace, kdy program
zjistuje novou verzi. Ale to preci mohou takto zjistovat i bez vazby
na hardware.
> zaloha, kdyz nebude neco pracovat. Ono pokud budete mit v SW chybu a
> ten nepojede na urcitem PC, tak dle OZ jste potom odpovedny za
> nasledky. I kdyz to nikdo nedela, ze by treba uctoval usly zisk, tak
Ne, to na software neplati.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
DateTimePicker
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 27.10.2003 18:49:13
From: "Pavel Kubal" <kubal.p(zv)seznam(tec)cz>
> potrebuju DateTimePicker.Date ve stringu, pretypovani na string mi to
> nebere. Predem diky za odpoved
Viz funkce DateToStr
Petr Vones
DateTimePicker
[*] Pavel Kubal <kubal.p(zv)seznam(tec)cz> - 27.10.2003 18:45:13
Zdravim,
potrebuju DateTimePicker.Date ve stringu, pretypovani na string mi to
nebere. Predem diky za odpoved
Ochrana aplikace
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 27.10.2003 18:21:11
Puvodni zprava ze dne 27.11.2003:
> Kolega Zahradnik nas pravidelne obesila testovacim e-mailem a z toho
> nejak pozna, ze jsme pritomni. Nedalo by se to nejak pouzit?
:-) Tim ja nezjistuji, kdo je pritomny. To by mi musel kazdy
odpovedet. Ten testovaci mail ma trochu jiny ucel, zjistuji pomoci
nej lidi, kteri maji problem po presmerovani e-mail adresy.
Priklad: venca(zv)domena(tec)cz se prihlasi do konference a zaroven si
presmeruje vsechnu postu na vasek(zv)domena(tec)cz. Tak mu tam chodi
prispevky. Jenze pak jede na dovolenou a nebo se na tu adresu uplne
vybodne. A me zacnou chodit desitky, stovky, tisice chybovych mailu,
ze adresa vasek(zv)domena(tec)cz ma problemy, ze neexistuje nebo je plna.
Jenomze adresa vasek(zv)domena(tec)cz neni uzivatelem konference a z chybove
hlasky serveru domena(tec)cz nezjistim, ze to tam bylo presmerovano,
protoze vsechny maily vypadaji stejne. Takze cas od casu poslu
testovaci e-mail na vsechny ucastniky a primo v tom mailu je adresa,
na kterou to posilam. Jsou to jednotlive e-maily. No a tak mi pak
prijde chybova hlaska a z ni uz je jasne, ze ten prihlaseny je
venca(zv)domena(tec)cz a uz ho muzu vymazat...
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
vlastni skriptovaci jazyk - analyza syntaxe
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 27.10.2003 18:13:10
Puvodni zprava ze dne 27.11.2003:
> Ahoj, pisu vlastni skriptovaci jazyk, a chtel bych se zeptat, zda s tim
> nekdo nemate zkusenosti, resp: jedna se mi predevsim o to, zda existuje
> nejaky obecny algoritmus na analyzu syntaxe (resp. rozparsovani
http://www.fastreport.ru udelali FastScript - je to pomerne levna vec,
vypada to docela dobre a lze tam jazyky doplnovat pouze pomoci XML.
Vse ostatni je jiz hotovo. Neni to free.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
vlastni skriptovaci jazyk - analyza syntaxe
[*] Ivan Turcan <iturcan(zv)drake.sk> - 27.10.2003 17:31:08
----- Original Message -----
From: "Lukas Gebauer" <gebylist(zv)mlp(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, November 27, 2003 5:11 PM
Subject: Re: vlastni skriptovaci jazyk - analyza syntaxe
> > pouzi leda ze by si to chcel na jednoduchy projekt (a aj to je po
> > mojich skusenostiach odvaha).... pri zlozitejsich objektoch to
> > nefunguje, pada to na AV (problem s uvolnovanim zdrojov,
> > objektov,......) a pod.... som sa na-emailoval Mattiasovi Ackermannovi
> > , avsak za rok riesenie veskere zadne... odkedy som pouzil
> > http://www.dream-com.com nemam problem :)
>
> Mas na mysli to, za co chteji 350 dolaru?
jasne, inu aj napriek cene mam pocit ze povodna otazka bola asi ina....
K tym 350$, v principe to je smiesna suma ked si vezmes hodnotu vlozenu do
casu straveneho nad vlastnym riesenim co bude splnat poziadavky ktore su uz
v dream scripter ok.
> Osobne musim rict, ze jsem mel tu cest poznat, jak prasacky tito
> panove programuji, a musim rict, ze za jimi odvedenou praci bych
> tyhle penize nedal. ;-( Ale uznavam, je to jen muj nazor.
dobre poznat kazdy nazor, inu moj problem dane kniznice vyriesili a som
spokojny...
Ivan
vlastni skriptovaci jazyk - analyza syntaxe
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 27.10.2003 17:11:06
> pouzi leda ze by si to chcel na jednoduchy projekt (a aj to je po
> mojich skusenostiach odvaha).... pri zlozitejsich objektoch to
> nefunguje, pada to na AV (problem s uvolnovanim zdrojov,
> objektov,......) a pod.... som sa na-emailoval Mattiasovi Ackermannovi
> , avsak za rok riesenie veskere zadne... odkedy som pouzil
> http://www.dream-com.com nemam problem :)
Mas na mysli to, za co chteji 350 dolaru?
Osobne musim rict, ze jsem mel tu cest poznat, jak prasacky tito
panove programuji, a musim rict, ze za jimi odvedenou praci bych
tyhle penize nedal. ;-( Ale uznavam, je to jen muj nazor.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Excel
[*] Bronislav Klucka <delphi(zv)pro2-soft(tec)com> - 27.10.2003 17:23:07
Zdar, mam toto:
/************************/
Uses ComObj,Excel2000;
procedure TExportForm.SpeedButton2Click(Sender: TObject);
var i,j:integer;
CList:TCommoditiesList;
Comm:TCommodity;
Data:TStringList;
ExcelApp:Variant;
col:integer;
tmpstr:string;
begin
Screen.Cursor:=crHourGlass;
CList:=TCommoditiesList.Create;
Data:=TStringList.Create;
ExcelApp:=CreateOLEObject('Excel.Application');
try
try
Data.Sorted:=true;
Data.CaseSensitive:=false;
Data.AddObject(Comm.Name,Comm);
ExcelApp.WorkBooks.Add[xlWorksheet];
ExcelApp.WorkBooks.Add;
ExcelApp.WorkBooks[1].Worksheets[1].Name:='Export dat z programu
Salon';
for j:=0 to Data.Count-1 do
begin
i:=j+2;
col:=1;
Comm:=TCommodity(Data.Objects[j]);
if Columns.Checked[0] then
begin
if j=0 then
ExcelApp.WorkBooks[1].Worksheets[1].Cells[1,col]:='PLU';
ExcelApp.WorkBooks[1].Worksheets[1].Cells[i,col]:=''''+Comm.PLU;
inc(col);
end;
.
.
.
end;
ExcelApp.WorkBooks[1].SaveAs('data.xls');
MyMessageDlg('Export je ukoncen!',mmtInformation,[mmbOK]);
except
MyMessageDlg('Export se nezdaril!',mmtError,[mmbOK]);
end;
finally
ExcelApp.Quit;
Data.Free;
CList.Free;
Screen.Cursor:=crDefault;
end;
end;
end;
/************************/
Pro praci to vyzaduje nainstalovane VBA, procpak????
Brona
Oracle8 PE
[*] BRCKO Peter <peter.brcko(zv)assetsoft.sk> - 27.10.2003 17:09:06
> Ahoj,
> dekuju za odpovedi, vysledek pokusu je tento:
> 1/ ping funguje dobre
popisane skor v inom maily
> 2/ v BDE me to nepripojilo, stale kvoka, ze je tam ta
> chyba oraklu 03114
> 3/ Nevim, jaky vliv ma v bdeadminu vyplneni listu
> Cofiguration/Drivers/Native.
2 a 3 hovoria o spolocnom probleme.
Mne, pokial si dobre spominam (WIN98, O8PE), nechodilo ODBC od MS pre Oracle
a nepamatam, ci instalacia O8iPE nainstaluje aj vlastne ODBC????
Skus pouzit nativny pristup, co by mal byt oracle client
> Asi pred 2 lety jsem to zkousel na ora7PE a pro
> tehdejsi PersEdition
> bylo treba nastavit v BDE jako servername "BEQ-LOCAL.WORLD" na listu
> databaze a na listu driveru "orcl" a tehdy to jaksi jelo.
toto neviem posudit teraz az zajtra, kedy nainstalujem D6 ale k O9i
> 4/ SQL plus se mi pripojuje dobre pod uzivatelem system a
> heslem manager,
oracle client Ti bezi O.K.
> ale zadam-li SQL dotaz (obycejny "select * from employee;"),
> zahlasi, ze
> (demo)tabulka neexistuje. Pritom v naigatoru ji mohu prohlizet.
neverim, ze employee je v scheme SYSTEM !!!!!
> 5/ Zalozil jsem uzvatele dalik s heslem dalik a vytvoril
> pres SQL plus
> svou tabulku. Tuto prohlizim uz bez potizi jak z navigatoru,
> tak z SQL plus.
lebo si v scheme dalik a dotazujes sa na jeho object - table = Tvoja tabulka
> Ale pripojit se pres BDE ani za nic.
Podla tohoto vsetkeho hladaj chybu uz jedine v BDE.
Oracle client Ti funguje.
Skusaj sa zamerat na nativny pristup.
>
> Takze zkusim jeste z klienta vytvorit jinou databazi s
> tabulkama a pak se z
> BDE pripojit. Jestli ani to nepujde (pudova zalezitost), tak nevim.
asi nepojde.
Vela zdaru.
Peter Brcko.