Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
odesilani dotazu na net
[*] Pavel Volak <volakp(zv)chello(tec)cz> - 10.3.2005 13:35:27
Ahoj
mam fc do ktere generuju SQL na net. Probehne to asi 12x a pak mi server
vygeneruje chybove hlaseni. Myslim si, ze zahltim server.
Da se nejak nastavit prodleva v odesilani nebo zjistit pripravenost serveru?
Dik
function TForm1.OdeslatData(soubor, php: string): boolean;
var st: TMemoryStream;
is_ok: boolean;
begin
m_Obraz.Clear;
is_ok:= true;
st:=TMemoryStream.Create;
try
is_ok:= HTTPpostURL(www+ soubor, php, st);
st.Seek(0,soFromBeginning);
m_Obraz.Lines.LoadFromStream(st);
finally
st.Free;
end;
if is_ok = true then
begin
if Copy( m_Obraz.Lines[0], 0, 2) <> 'ok' then
is_ok:= Chyba('Chyba pri ulozeni na serveru. Kontaktujte
dodavatele.');
end
else
is_ok:= Chyba('Chyba pri prenosu nebo spatne URL.');
result:= is_ok;
end;
Ukazatel na konstruktor
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 10.3.2005 13:33:27
Tak radeji napis, co s tim potrebujes udelat.
Jakub Cermak napsal(a):
> Jasne ze by to slo udelat jinak, ale takhle je to pro me nejjednodussi.
> Me jde jen o to jestli to jde nebo ne.
>
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
Frekvence procesoru
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 10.3.2005 13:23:26
Jakub Cermak wrote:
> Nechapu. Tak tam nastav nejaky tezky heslo typu .DomACi_Zvire781
> To ti tezko nekdo rozlouskne
To nemyslis vazne ze?
http://www.google.com/search?hl=en&q=clear+bios+password+software&btnG=Google+Search
treba
http://www.utilitygeek.com/details.php?fileid=82
Radek
Frekvence procesoru
[*] delphin(zv)post(tec)cz - 10.3.2005 13:17:25
> Nechapu. Tak tam nastav nejaky tezky heslo typu .DomACi_Zvire781
> To ti tezko nekdo rozlouskne
Rozlouskne to jumperem na MB. V tom pripade by byl treba poctivy visaci
zamek na case. Unloadpackage a Modalni formulare
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 10.3.2005 13:13:25
Ahoj, resim takovy zahadny problem s balicky:
-v dynamicky nahravanem balicku jsou deklarovany ruzne formulare, ktere se
vytvareji
a) jako MDIchild, zaviraji a uvolnuji se podle potreby nebo pred zavrenim
hlavniho formulare
b) jako modalni, uvolnuji se hned po vykonani cinnosti
c) jako modalni, ale po skryti (provedeni showModal) se neuvolnuji,
zustavaji v jakemsi poolu (TList) a znovu se vyvolavaji podle potreby. Pred
ukoncenim aplikace jsou vsechny formulare z tohoto poolu uvolneny.
Vsechny formulare z dynamickeho balicku v initialization registruji svoji
tridu. Pred unload balicku provadim unregistermoduleclasses.
s c) je ten problem, ze jakmile je v poolu jakykoli formular, nepovede se
UnloadPackage, resp pri vlastnim ukonceni aplikace dojde k chybe. Problem se
tyka pouze formularu z dynamickych balicku, zadnych jinych, a nezalezi na
tom, co je to za formular, muze byt klidne uplne prazdny. Pokud
unloadpackage vynecham, aplikace se ukonci OK - pak ale podle memproofu
zustane neuvolnena nejaka pamet. Nesetkal se nekdo s necim podobnym?
Predem diky za pripadne info,
MB
Frekvence procesoru
[*] Jakub Cermak <cermiforum(zv)centrum(tec)cz> - 10.3.2005 13:09:24
Nechapu. Tak tam nastav nejaky tezky heslo typu .DomACi_Zvire781
To ti tezko nekdo rozlouskne
delphi(zv)spst(tec)cz napsal(a):
> Heslo do BIOSU neni prekazkou.
> Windows XP, D7
>
> Predem dekuji Novacek.
>
>
>
--
S pozdravem
Jakub Cermak
ICQ 159971304
http://cermi.wz(tec)cz
Ukazatel na konstruktor
[*] Jakub Cermak <cermiforum(zv)centrum(tec)cz> - 10.3.2005 13:01:23
Jasne ze by to slo udelat jinak, ale takhle je to pro me nejjednodussi.
Me jde jen o to jestli to jde nebo ne.
Radim Kunz napsal(a):
>
>
> K cemu to potrebujes? Urcite by to slo jinak.
>
> Radim
>
>
>
>
--
S pozdravem
Jakub Cermak
ICQ 159971304
http://cermi.wz(tec)cz
Proxy Authentication
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.3.2005 12:49:22
DD,
Suky <suky(zv)atlas(tec)cz> wrote:
> Ahoj,
>
> prave jsem zjistil, ze ne kazda proxyna vraci kod 407 jako Proxy
> Athentication Requested. Napriklad Proxy+ vraci kod 500.
> Existuje i jina metoda jak zjistit, ze proxy server vyzaduje
> autentizaci?
na to musim reagovat: Proxy+ urcite pri pouziti chranene HTTP proxy
sluzby vraci '407 Proxy Authentication required' pokud klient
neposlal spravne jmeno/heslo.
Kod 500 signalizuje nejakou interni chybu ci chybu pri komunikaci se
vzdalenym serverem. podrobnosti by se mely objevit v ErrorLog.txt
Jiny zpusob nez vraceni 407 k informovani klienta, ze musi poslat na
proxy jmeno a heslo neexistuje...
Zdravi
Dalibor Toman
Proxy Authentication
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 10.3.2005 12:41:21
> prave jsem zjistil, ze ne kazda proxyna vraci kod 407 jako Proxy Athentication
> Requested. Napriklad Proxy+ vraci kod 500.
> Existuje i jina metoda jak zjistit, ze proxy server vyzaduje autentizaci?
No k tomu slouzi prave ten kod 407. Pokud nejaka proxy dava najevo
potrebu autorizace kodem 500, pak bude chyba v te proxy, ne?
Mimochodem, autorizacni udaje muzes zkusit poslat i kdyz si o ne
proxy nerekla. Bud je zbasti, nebo ti rekne ze jsou spatne.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.chyba v unite httpd2.pas
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 10.3.2005 12:31:20
Pokud nekdo budete v Delphi/kylixu psat nejaky modul pro Apache, tak
si dejte pozor na funkci ap_get_module_config !
Tato funkce vznikla jako preklad C-ckoveho makra:
#define ap_get_module_config(v,m) \
(((void **)(v))[(m)->module_index])
A toto makro nejaky matlak v Borlandu prelozil jako:
function my_ap_get_module_config(const cv: Pap_conf_vector_t;
const m: Pmodule): Pointer;
begin
Result := Pointer(Integer(cv) + m^.module_index);
end;
...coz dela opravdu neco uplne jineho nez ma! Jednak ten matlak
prehledl ty hranate zavorky, takze k tomu nepristupuje jako k poli
pointeru, druhak prehledl Void**, tedy ze vysledek je pointer na
pointer a ne jen obycejny pointer!
Spravne zneni prekladu toho makra je:
Result := Pointer(Pointer(Integer(cv) + m^.module_index *
sizeof(pointer))^);
Zajimave je, ze tato chyba tam vydrzela od prvni verze v Delphi6 az
do dnesni D2005...
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Proxy Authentication
[*] Suky <suky(zv)atlas(tec)cz> - 10.3.2005 12:21:19
Ahoj,
prave jsem zjistil, ze ne kazda proxyna vraci kod 407 jako Proxy Athentication
Requested. Napriklad Proxy+ vraci kod 500.
Existuje i jina metoda jak zjistit, ze proxy server vyzaduje autentizaci?
--
S pozdravem,
Michal Soukup
http://hobitin.blogspot.com/ (Blog Bilba Pytlika z Kraje)Zmena vlastnika u gdb databaze na FireBirdu
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 10.3.2005 12:13:18
Haj hou!
konference(zv)baudys.name wrote:
> DD, chci Vas poprosit, jestli nekdo netusite, jak zmenit vlastnika DB
> na FireBirdu. Resp. problem je v tom, ze potrebuji, aby mohli i
> jini, nez SYSDBA menit strukturu DB, Trigery atd.
Nejrychlejsi a nejjednodussi je vytvorit zalohu a databazi obnovit pod
uzivatelskym uctem pozadovaneho vlastnika.
S pozdravem
Pavel Cisar
IBPhoenix
Sluzba a net use
[*] Svoboda Jiri <jsvoboda(zv)lekis(tec)cz> - 10.3.2005 12:07:18
Pokud je pocitac pripojen v domene,problem by mohl byt zde:
Sluzby se spousteji pred prihlasenim uzivatele a Ty pouzijes "net use" bez
definice uzivatele a hesla.viz help k net use.
V tomto pripade se pouzije ucet prave prihlaseneho uzivatele,ale v te chvili
neni nikdo prihlasen.Proto Ti to projde pri rucnim spusteni,ale ne pri
nabihani pocitace.Pouzij NET USE se zadanym userem a heslem.
JS
> a:=ShellExecute(0, 'open', 'net', ' use lpt1 \\localhost\hp', nil,
SW_HIDE);
Zmena vlastnika u gdb databaze na FireBirdu
[*] Richard Kejval <kejval.delphi(zv)centrum(tec)cz> - 10.3.2005 11:41:16
Ahoj,
<konference(zv)baudys.name wrote:>> DD,
> chci Vas poprosit, jestli nekdo netusite, jak zmenit vlastnika DB na
FireBirdu.
> Resp. problem je v tom, ze potrebuji, aby mohli i jini, nez SYSDBA menit
strukturu DB, Trigery atd.
Zkus tohle, uz jsem to sem kdysi posilal, ale tak jeste jednou:
(Sice to funguje na zmenu, ale po mirne uprave to pujde i na pridani)
CREATE PROCEDURE CHANGE_OWNER (
OLD_OWNER VARCHAR(31),
NEW_OWNER VARCHAR(31))
AS
declare variable RDB$USER CHAR(31) CHARACTER SET UNICODE_FSS;
declare variable RDB$PRIVILEGE CHAR(6) CHARACTER SET NONE;
declare variable RDB$GRANT_OPTION SMALLINT;
declare variable RDB$RELATION_NAME CHAR(31) CHARACTER SET UNICODE_FSS;
declare variable RDB$FIELD_NAME CHAR(31) CHARACTER SET UNICODE_FSS;
declare variable RDB$USER_TYPE SMALLINT;
declare variable RDB$OBJECT_TYPE SMALLINT;
begin
For
Select
RDB$USER, RDB$PRIVILEGE, RDB$GRANT_OPTION, RDB$RELATION_NAME,
RDB$FIELD_NAME, RDB$USER_TYPE, RDB$OBJECT_TYPE
from RDB$USER_PRIVILEGES
where
RDB$Grantor=:Old_Owner
into
:RDB$USER, :RDB$PRIVILEGE, :RDB$GRANT_OPTION, :RDB$RELATION_NAME,
:RDB$FIELD_NAME, :RDB$USER_TYPE, :RDB$OBJECT_TYPE do
begin
if (RDB$USER=Old_Owner) then
RDB$USER=New_Owner;
INSERT INTO RDB$USER_PRIVILEGES
(RDB$USER, RDB$GRANTOR, RDB$PRIVILEGE, RDB$GRANT_OPTION,
RDB$RELATION_NAME, RDB$FIELD_NAME, RDB$USER_TYPE, RDB$OBJECT_TYPE)
Values
(:RDB$USER, :New_Owner, :RDB$PRIVILEGE, :RDB$GRANT_OPTION,
:RDB$RELATION_NAME, :RDB$FIELD_NAME, :RDB$USER_TYPE, :RDB$OBJECT_TYPE);
end
update rdb$procedures a
set
a.rdb$owner_name=:New_Owner
where
a.rdb$owner_name=:Old_Owner;
update rdb$relations a
set
a.rdb$owner_name=:New_Owner
where
a.rdb$owner_name=:Old_Owner;
update rdb$roles a
set
a.rdb$owner_name=:New_Owner
where
a.rdb$owner_name=:Old_Owner;
delete from rdb$user_privileges a
where
a.rdb$grantor=:Old_Owner;
end
S pozdravem
ing. Richard Kejval
mobil: 602477679
http://www.icsoftware(tec)cz
Sluzba a net use
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 10.3.2005 11:39:15
Sula Milos wrote:
> a:=ShellExecute(0, 'open', 'net', ' use lpt1 \\localhost\hp', nil,
Napadlo me, ze by to mohlo byt tim, ze ShellExecute se importuje z
Shell32.dll a kdo vi,
jestli se da Shell pouzivat v dobe startovani sluzeb. Osobne bych pouzil
CreateProcess...
HTH, pf
Sluzba a net use
[*] Sula Milos <milos.sula(zv)musumperk(tec)cz> - 10.3.2005 11:29:14
Ahoj,
mam napsanou sluzbu v niz pod systemovym uctem mapuju lpt1 na USB
tiskarnu pomoci sdileni. Bohuzel kdyz se servisni aplikace spusti sama
(po spusteni pc) , je mapovani neuspesne. Kdyz ji pak restartuju rucne
vse je to ok:
procedure TService1.ServiceStart(Sender: TService; var Started:
Boolean);
var a,l:integer;
str:string;
begin
a:=ShellExecute(0, 'open', 'net', ' use lpt1 \\localhost\hp', nil,
SW_HIDE);
end;
muzete mi poradit cim to je ? Muze to byt tim ze se sluzba pusti drive
nez napr sluzba pro sdileni ??? Nebo je ShellExecute / net.exe nejak
blokovan pred prihlasenim ?
Milos
Zmena vlastnika u gdb databaze na FireBirdu
[*] konference(zv)baudys.name - 10.3.2005 11:21:14
DD,
chci Vas poprosit, jestli nekdo netusite, jak zmenit vlastnika DB na FireBirdu.
Resp. problem je v tom, ze potrebuji, aby mohli i jini, nez SYSDBA menit strukturu DB, Trigery atd.
Diky za kazdou radu
jirKa
Otravne hlasky ve Windows XP
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 10.3.2005 10:59:12
>> Mam aplikaci pustenou fsStayTop a kdyz zasunu nejake zarizeni, tak mi ji
>> Wokna predbehnou s hlasenim.
>> Napr. Hlaseni ze FlashDisk norma USB2.0 je strceny v USB1.0 a mhl by
>> chodit
>> rychleji..a nasledne okno
>> S nabidkou akce pro nove pripojenu vyjimatelny disk [Co chcete udelat?]
>> (otevrit, prehrat, zobrazit...atd)
>
>> Jde nejakym zpusobem tato hlaseni ve WindowsXP vypnout?
Navod, jak vypnout ohlaseni vlozeneho Cd, zip, usb apod.:
V registru
hkey_local_machine\software\microsoft\windows\currentversion\policies\explorer
vytvorit DWORD pojmenovany NoDriveTypeAutorun (pozor na velka a mala
pismena) a priradit mu hodnotu 255.
Marek Dostal
D7Prof, WinXP, FireBird 1.0, 1.5 Domaci adresar
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 10.3.2005 10:43:11
>Hlavne dej pozor na to, ze cokoliv v tomto adresari vytvoris (predpokladam
>WINNT a NTFS) bude to mit defaultne nastavena prava pro skupinu USER JEN
>PRO CTENI.
>Takze musis vytvorit adresar a programove zmenit prava.
>Jinak Te administratori domen proklejou :)
dobra poznamka. Doplnujici otazka tedy zni - jak nastavit ty prava?>P.S. Uz se tady o tom mnohokrat debatovalo a stale nevim proc neexistuje v
>systemu jiz prednastavene misto (registr,adresar) kam by mohli READ/WRITE
>pristupovat i uzivatele skupiny USER.
no, neco hosi v MS nedomysleli... :-)
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
---------------------------------------------------------------------------
Domaci adresar
[*] konference(zv)sales(tec)cz - 10.3.2005 10:35:10
On Behalf Of Jiri Cincura
> > potrebuju programove zjistit cestu
> >
> > C:\Documents and Settings\All Users\Data aplikaci\
> >
> > (tedy adresar pro ukladani dat aplikace, spolecny pro vsechny
> > uzivatele).
>
> Podivej se na SHGetSpecialFolderLocation funkci a spol
>
Ahoj.
Hlavne dej pozor na to, ze cokoliv v tomto adresari vytvoris (predpokladam
WINNT a NTFS) bude to mit defaultne nastavena prava pro skupinu USER JEN
PRO CTENI.
Takze musis vytvorit adresar a programove zmenit prava.
Jinak Te administratori domen proklejou :)
Ludek
P.S. Uz se tady o tom mnohokrat debatovalo a stale nevim proc neexistuje v
systemu jiz prednastavene misto (registr,adresar) kam by mohli READ/WRITE
pristupovat i uzivatele skupiny USER.
thread & synchronize
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 10.3.2005 10:35:10
Ahoj,
v tomhle pripade urcite. Ja tohle vetsinou delam obracene. Nevolam
zobrazeni z vlakna, ale mam v nem public promenou nebo jednoduchou
property, kterou ctu obcas z hlavbiho vlakna, treba v ontimer. Promenna
musi byt samozrejme jednoducha, tedy integer & spol.
Vaclav Sazima
Vlastimil Burian wrote:
> jen chci slyset jestli ma vubec
> smysl pouzivat synchronize i v tomhle pripade
> procedure TCountThread.Display32;
> begin
> FormHlavni.Stav.Progress := .....
> end;
Domaci adresar
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 10.3.2005 09:19:04
Tomas Rosa wrote (on Thursday, March 10, 2005 7:25 AM):
> Zdravim,
>
> potrebuju programove zjistit cestu
>
> C:\Documents and Settings\All Users\Data aplikaci\
>
> (tedy adresar pro ukladani dat aplikace, spolecny pro vsechny
> uzivatele).
>
> Predpokladam ze na Win9x, ME neni, takze pokud tam existuje nejake
> pravidlo pro ukladani takovychto dat? (jinak to budu smazit k aplikaci do
> /pf/).
Podivej se na SHGetSpecialFolderLocation funkci a spol
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Frekvence procesoru
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 10.3.2005 09:17:04
delphi(zv)spst(tec)cz wrote (on Thursday, March 10, 2005 8:51 AM):
> Dobry den.
> Mam nasledujici problem. Studenti nam neustale pretaktovavaji procesory.
> Heslo do BIOSU neni prekazkou.
> Je nejak mozne programove zjistit frekvenci procesoru na ktere ma bezet a
> frekvenci na ktere procesor zrovna bezi.
> Napada me druha moznost frekvenci na ktere ma procesor bezet si zjistim a
> nekam ulozim, ale jak zjistim aktualni frekvenci procesoru?
Ja bych teda zvolil spise tvrde sankce. Lepsi heslo do BIOSu a monitorovat kdo byl zalogovan pred posledni znamou zmenou.
Ale tady je par uzitecnych fci:
function cpuGetSpeed: WORD;
function cpuGetTick:int64;
Function cpuGetms( Tick:int64 ):dword;
Function cpuGetmks( Tick:int64 ):dword;
function cpucalcms(const Tick1,Tick2:int64 ):int64;
Function cpucalcmks(const Tick1,Tick2:int64 ):int64;
implementation
var inited:boolean=false;
function cpugettick:int64;
asm
dw 310Fh // rdtsc
End;
Function cpugetms( Tick:int64 ):dword;
begin
asm
dw 310Fh // rdtsc
sub eax, dword [Tick]
sbb edx, dword [Tick+4]
mov dword[Tick], eax
mov dword[Tick+4], edx
end;
if not inited then cpugetspeed;
result:=round(Tick*_1CPUFrequencyMS);
end;
Function cpugetmks( Tick:int64 ):dword;
begin
asm
dw 310Fh // rdtsc
sub eax, dword [Tick]
sbb edx, dword [Tick+4]
mov dword[Tick], eax
mov dword[Tick+4], edx
end;
if not inited then cpugetspeed;
result:=round(Tick*_1CPUFrequencyMKS);
end;
function cpucalcmks(const Tick1,Tick2:int64 ):int64; begin
if not inited then cpugetspeed;
result:=round(abs(Tick2-Tick1)*_1CPUFrequencyMKS);
end;
function cpucalcms(const Tick1,Tick2:int64 ):int64; begin
if not inited then cpugetspeed;
result:=round(abs(Tick2-Tick1)*_1CPUFrequencyMS);
end;
function CPUGetSpeed: WORD;
var _cpufreq: DWORD;
len:integer;
rh:HKEY;
i1,i2,t:int64;
pr:dword;
begin
if CPUFrequency <> 0 then begin
Result := CPUFrequency;
exit;
end;
if regOpenKeyEx(HKEY_LOCAL_MACHINE,
'HARDWARE\DESCRIPTION\System\CentralProcessor\0',
0, KEY_READ, rh) = ERROR_SUCCESS
then begin
if RegQueryValueEx(rh,'~MHz', nil,(zv)pr, (zv)_cpufreq, (zv)len) = ERROR_SUCCESS then begin
Result := _cpufreq;
CPUFrequency := _cpufreq;
end
else begin
pr := GetThreadPriority(GetCurrentThread );
SetThreadPriority(GetCurrentThread,THREAD_PRIORITY_TIME_CRITICAL);
QueryPerformanceCounter( i1 );
t := cpugettick;
Sleep(SleepTime);
asm
dw 310Fh // rdtsc
sub eax, dword[t]
sbb edx, dword[t+4]
mov dword[t], eax
mov dword[t+4], edx
end;
QueryPerformanceCounter( i2 );
i2 := i2-i1;
QueryPerformanceFrequency( i1 );
i2 := i2*1000000 div i1;
Result := round(t/(i2));
CPUFrequency := Result;
SetThreadPriority(GetCurrentThread,pr);
end;
RegCloseKey( rh );
end;
_1CPUFrequencyMS := 0.001/CPUFrequency;
_1CPUFrequencyMKS := 1/CPUFrequency;
inited := true;
end;
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Otravne hlasky ve Windows XP
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 10.3.2005 09:07:02
> Ahoj profici,
> Mam aplikaci pustenou fsStayTop a kdyz zasunu nejake zarizeni, tak mi ji
> Wokna predbehnou s hlasenim.
> Napr. Hlaseni ze FlashDisk norma USB2.0 je strceny v USB1.0 a mhl by chodit
> rychleji..a nasledne okno
> S nabidkou akce pro nove pripojenu vyjimatelny disk [Co chcete udelat?]
> (otevrit, prehrat, zobrazit...atd)
> Jde nejakym zpusobem tato hlaseni ve WindowsXP vypnout?
> Diky za kazdou radu...
Na to existuje napriklad TweakUI, ale nevim, zda ti splni vsechna
prani. Nicmene minimalne automaticke spousteni jednotek dokaze
zastavit
S pozdravem,
Petr Cafourek mailto:petr.cafourek.d7(zv)seznam(tec)cz
OT: Otravne hlasky ve Windows XP
[*] Robert <rpvp(zv)vagnerplast(tec)cz> - 10.3.2005 08:54:59
Ahoj profici,
Mam aplikaci pustenou fsStayTop a kdyz zasunu nejake zarizeni, tak mi ji
Wokna predbehnou s hlasenim.
Napr. Hlaseni ze FlashDisk norma USB2.0 je strceny v USB1.0 a mhl by chodit
rychleji..a nasledne okno
S nabidkou akce pro nove pripojenu vyjimatelny disk [Co chcete udelat?]
(otevrit, prehrat, zobrazit...atd)
Jde nejakym zpusobem tato hlaseni ve WindowsXP vypnout?
Diky za kazdou radu...
Frekvence procesoru
[*] delphi(zv)spst(tec)cz - 10.3.2005 08:50:58
Dobry den.
Mam nasledujici problem. Studenti nam neustale pretaktovavaji procesory.
Heslo do BIOSU neni prekazkou.
Je nejak mozne programove zjistit frekvenci procesoru na ktere ma bezet a
frekvenci na ktere procesor zrovna bezi.
Napada me druha moznost frekvenci na ktere ma procesor bezet si zjistim a
nekam ulozim, ale jak zjistim aktualni frekvenci procesoru?
Windows XP, D7
Predem dekuji Novacek.
thread & synchronize
[*] Igor Kapoun <igor.kapoun(zv)volny(tec)cz> - 10.3.2005 08:36:56
> Druha moznost je, jak psal uz nekdo jiny, posilat message pres
> PostMessage ci jiny podobny mechanismus, kdy thread neceka na to,
> az hlavni vlakno provede kresleni, ale jen mu da vedet a hned jede dal.
Nestacilo by vytvorit nejakou globalni promennou, do ktere by Thread
ukladal svuj stav a hlavni aplikace by to "cas od casu" precetla a
vykreslila?
Igor
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.0 - Release Date: 8.3.2005
thread & synchronize
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 10.3.2005 07:32:51
> pochopitelne muzu volani regulovat aby se nevolala tak casto ale kdyz to dam
> normalne bez synchronize funguje to taky ... jen chci slyset jestli ma vubec
> smysl pouzivat synchronize i v tomhle pripade kdy u niceho nehrozi nejaky
> vicenasobny pristup ...
Ahoj,
rozhodne pri vizualnich operacich nelze synchronize vynechat, tj. pokud
se bavime o tom, jestli tvou metodu volat se synchronize nebo bez nej,
tak rozhodne s nim. Dle mych zkusenosti to je tak, ze celkem casto
funguje oboji, ale bez synchronize nastane jednou za cas nevyhnutelne
okamzik, kdy se prepinani vlaken trefi nevhod a aplikace zatuhne. Jsou
to takove ty chyby, co se blbe hledaji - jednou za nekolik hodin/dni to
proste vytuhne a aplikace je na odstrel.
Druha moznost je, jak psal uz nekdo jiny, posilat message pres
PostMessage ci jiny podobny mechanismus, kdy thread neceka na to,
az hlavni vlakno provede kresleni, ale jen mu da vedet a hned jede dal.
David Lebeda
Domaci adresar
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 10.3.2005 07:24:50
Zdravim,
potrebuju programove zjistit cestu
C:\Documents and Settings\All Users\Data aplikaci\
(tedy adresar pro ukladani dat aplikace, spolecny pro vsechny uzivatele).
Predpokladam ze na Win9x, ME neni, takze pokud tam existuje nejake pravidlo
pro ukladani takovychto dat? (jinak to budu smazit k aplikaci do /pf/).
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
---------------------------------------------------------------------------
thread & synchronize
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 9.3.2005 23:58:16
Vlastimil Burian wrote (on Wednesday, March 09, 2005 11:52 PM):
> (1) pokousim se napsat primitivni vlakno pro narocny vypocet ...
> potrebuju aby pri provadeni vypoctu sel videt stav - aktualizaci citace
> koncipuju zvlast jako metody a volam pres synchronize - jenze ... cyklus
> je nekolikaminutovy a volani synchronize asi 10krat cyklus zpomaluje ...
> pochopitelne muzu volani regulovat aby se nevolala tak casto ale kdyz to
> dam normalne bez synchronize funguje to taky ... jen chci slyset jestli
> ma vubec smysl pouzivat synchronize i v tomhle pripade kdy u niceho
> nehrozi nejaky vicenasobny pristup ... nemam s vlakny zkusenosti takze
> jestli je ta kostra blbe klidne navrhnete neco jinyho ... (2) jinak se mi
> jaksi nepodarilo nadeklarovat metodu ktera se ma provest po ukonceni
> vlanka ... za coz taky budu vdecen
Ja to resim tak, ze thread posila pres PostMessage zpravy oknu a to je obsluhuje a vyklesluje. Je to rychly a jednoduchy.
Na TThread.OnTerminate muzes povesit svoji proceduru.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/thread & synchronize
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 9.3.2005 23:52:15
(1) pokousim se napsat primitivni vlakno pro narocny vypocet ... potrebuju
aby pri provadeni vypoctu sel videt stav - aktualizaci citace koncipuju
zvlast jako metody a volam pres synchronize - jenze ... cyklus je
nekolikaminutovy a volani synchronize asi 10krat cyklus zpomaluje ...
pochopitelne muzu volani regulovat aby se nevolala tak casto ale kdyz to dam
normalne bez synchronize funguje to taky ... jen chci slyset jestli ma vubec
smysl pouzivat synchronize i v tomhle pripade kdy u niceho nehrozi nejaky
vicenasobny pristup ... nemam s vlakny zkusenosti takze jestli je ta kostra
blbe klidne navrhnete neco jinyho ... (2) jinak se mi jaksi nepodarilo
nadeklarovat metodu ktera se ma provest po ukonceni vlanka ... za coz taky
budu vdecen
TCountThread = class(TThread)
procedure Execute; override;
procedure Display32;
procedure Display64;
end;
procedure TCountThread.Display32;
begin
FormHlavni.Stav.Progress := .....
end;
procedure TCountThread.Display64;
begin
FormHlavni.Stav.Progress := .....
end;
procedure TCountThread.Execute;
begin
...
Synchronize(Display32);
...
end; Jak propojit adresar jako jednotku?
[*] konference(zv)sales(tec)cz - 9.3.2005 21:14:04
On Behalf Of Jiri Virt
> jak pripojim adresar Winserveru jako jednotku, ale pod
> jinym uzivatelem,
> nez je prihlasen?
>
> jsem prihlasen jako uzivatel "A" a chci pripojit adresar z
> \\WinSERVER\Data
> jako jednotku D pod uzivatelem "B" a s jeho pravy.uzivatel
> "A" na tento
> adresar nema zadna prava.
>
> pres WNetConnection2 mi to nefunguje, pise mi to chybu 5
> access_denied.
>
Ahoj,
Pravdepodobne se jedna o NT domenu. V ni muzes byt ke kazdemu stroji
prihlasen pouze pod jednim uctem. Takze je nutne se prihlasit ne jako
\\WinSERVER\Data ale jako \\192.168.x.x\Data
Pak to pobezi, ovsem ten uzivatel se nesmi nikdy pokouset pristoupit pres
stejnou cestu (ovsem proc by to delal ze ?).
Stoprocentni reseni IMHO neexistuje.
Ludek
Nacteni vzdaleneho adresare
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 9.3.2005 20:34:02
Ahoj,
koukni na WNetAddConnection2
Petr Berek wrote:
> Zdravim,
> muj problem se tyka toho, jak v delphi nacist treba do listboxu nejake
> soubory z pocitace, ktery je na siti a ktery urcim.
Ukazatel na konstruktor
[*] Radim Kunz <rkunz(zv)casestudio(tec)com> - 9.3.2005 19:51:58
----- Original Message -----
From: "Jakub Cermak" <cermiforum(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, March 09, 2005 7:27 PM
Subject: Ukazatel na konstruktor
> Zdravim,
> jde nejak udelat ukazatel na konstruktor? Zkousel jsem TKonstruktor =
> function : TObject, ale kdyz pak chci priradit konstruktor tak to
> nezkompiluje (Incompatible types).
>
> --
> S pozdravem
>
> Jakub Cermak
> ICQ 159971304
> http://cermi.wz(tec)cz
>
>
K cemu to potrebujes? Urcite by to slo jinak.
Radim
Ukazatel na konstruktor
[*] Jakub Cermak <cermiforum(zv)centrum(tec)cz> - 9.3.2005 19:27:55
Zdravim,
jde nejak udelat ukazatel na konstruktor? Zkousel jsem TKonstruktor =
function : TObject, ale kdyz pak chci priradit konstruktor tak to
nezkompiluje (Incompatible types).
--
S pozdravem
Jakub Cermak
ICQ 159971304
http://cermi.wz(tec)cz
Nacteni vzdaleneho adresare
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 9.3.2005 17:53:49
Zdravim,
muj problem se tyka toho, jak v delphi nacist treba do listboxu nejake
soubory z pocitace, ktery je na siti a ktery urcim.
Diky
Zjisteni nastaveni proxy
[*] Suky <suky(zv)atlas(tec)cz> - 9.3.2005 16:57:45
puvodni zprava:
>> No nevim kde sebrat parametry do ProxyUser, ProxyPass
LG> Normalne internet explorer si o ne rekne okenkem a uzivatel je tam
LG> vyplni ne?
LG> Takze si udelej do sveho programu okenko, kam ti to uzivatel vyplni,
LG> a ty vysledek predej do tech properties.
Jo, tak jsem to chtel ted udelat. Problem je, ze strilim od boku, jeste jsem
si nenainstaloval proxy abych si overil jak to funguje, tedy jak se to v
pripade vyzadovane autorizace chova :(
Zjisteni nastaveni proxy
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 9.3.2005 16:55:44
> > Taky bych rad vedel jak na AutoConfigProxy.
uses WinInet;
function ProxyAutoDetect: string;
var Len: DWORD; Str: string;
begin
Len:=0;
InternetQueryOption(nil,INTERNET_OPTION_PROXY,nil,Len);
SetLength(Str,Len);
InternetQueryOption(nil,INTERNET_OPTION_PROXY,Pointer(Str),Len);
Result:=PInternetProxyInfo(Pointer(Str))^.lpszProxy;
end;
S pozdravem Milan Cizek, amatersky programator, D7 Ent
Win2k (SP4) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Zjisteni nastaveni proxy
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 9.3.2005 16:31:43
> No nevim kde sebrat parametry do ProxyUser, ProxyPass
Normalne internet explorer si o ne rekne okenkem a uzivatel je tam
vyplni ne?
Takze si udelej do sveho programu okenko, kam ti to uzivatel vyplni,
a ty vysledek predej do tech properties.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Zjisteni nastaveni proxy
[*] Suky <suky(zv)atlas(tec)cz> - 9.3.2005 16:27:42
puvodni zprava:
>> vytvoril jsem ActiveX, ktery odesila soubory na server do internetu. Pro
>> POST souboru pouzivam knihovny Synapse HTTPSend.
>>
>> Ted mam problem s proxy serverem v pripade, ze je pouzivan pro pripojeni k
>> internetu. Vyresil jsem to tak, ze z registru:
>> HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings
>> Ctu informace:
>> - ProxyEnable
>> - ProxyServer
LG> Jestli je ci neni nastavena proxy v IE, to muzes zjistit i promo v
LG> synapsi pomoci unity synamisc.pas, kde je na to funkce.
Diky, na tuhle unitu se urcite podivam.
>> Jenze co kdyz je vyzadovana autorizace, jak to pak mam vyresit? Podle statusu
>> toho POST zjistim kod 407 Authorization request, je to spravna cesta?
LG> Nerozumim co mas za problem... vzdyt ten SynapsiTHTTPSend ma
LG> property:
LG> ProxyHost: string;
LG> ProxyPort: string;
LG> ProxyUser: string;
LG> ProxyPass: string;
LG> Tedy nastavis ze chces pouzivat ten a ten proxy server na tom a to
LG> portu a stou a tou autorizaci. Zbytek pouzivani HTTPsendu je pak uz
LG> uplne stejny jako kdyby tam zadna proxy nebyla.
No nevim kde sebrat parametry do ProxyUser, ProxyPass
Zjisteni nastaveni proxy
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 9.3.2005 15:11:36
> vytvoril jsem ActiveX, ktery odesila soubory na server do internetu. Pro
> POST souboru pouzivam knihovny Synapse HTTPSend.
>
> Ted mam problem s proxy serverem v pripade, ze je pouzivan pro pripojeni k
> internetu. Vyresil jsem to tak, ze z registru:
> HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings
> Ctu informace:
> - ProxyEnable
> - ProxyServer
Jestli je ci neni nastavena proxy v IE, to muzes zjistit i promo v
synapsi pomoci unity synamisc.pas, kde je na to funkce.
> Jenze co kdyz je vyzadovana autorizace, jak to pak mam vyresit? Podle statusu
> toho POST zjistim kod 407 Authorization request, je to spravna cesta?
Nerozumim co mas za problem... vzdyt ten SynapsiTHTTPSend ma
property:
ProxyHost: string;
ProxyPort: string;
ProxyUser: string;
ProxyPass: string;
Tedy nastavis ze chces pouzivat ten a ten proxy server na tom a to
portu a stou a tou autorizaci. Zbytek pouzivani HTTPsendu je pak uz
uplne stejny jako kdyby tam zadna proxy nebyla.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Zjisteni nastaveni proxy
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 9.3.2005 14:07:29
> Taky bych rad vedel jak na AutoConfigProxy.
>
Ahoj,
k automaticke detekci nastaveni proxy lze pouzit prislusne funkce z
WinInet - viz popis v MSDN. Je tam i cely priklad na tuto detekci.
Druha otazka je, jak zjistit, zda v nastaveni IE je zaskrtnuto, ze se
pouziva automaticke zjistovani proxy. Pokud si pamatuji, nekde v
registru je nejaka hodnota jako blok binarnich dat a jeden bit rika, zda
IE pouziva ci nepouziva automatickou detekci. Vic si ted z hlavy
nepamatuji, ale urcite se da vse potrebne vyhledat na internetu
(google), aspon ja tehdy nasel potrebne.
David Lebeda
Zjisteni nastaveni proxy
[*] Suky <suky(zv)atlas(tec)cz> - 9.3.2005 13:03:25
Ahoj,
vytvoril jsem ActiveX, ktery odesila soubory na server do internetu. Pro
POST souboru pouzivam knihovny Synapse HTTPSend.
Ted mam problem s proxy serverem v pripade, ze je pouzivan pro pripojeni k
internetu. Vyresil jsem to tak, ze z registru:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings
Ctu informace:
- ProxyEnable
- ProxyServer
Jenze co kdyz je vyzadovana autorizace, jak to pak mam vyresit? Podle statusu
toho POST zjistim kod 407 Authorization request, je to spravna cesta?
Taky bych rad vedel jak na AutoConfigProxy.
Umite mi nekdo poradit jak co nejlepe pracovat s proxy serverem?
--
S pozdravem,
Michal Soukup
http://hobitin.blogspot.com/ (Blog Bilba Pytlika z Kraje)Prekreslovani okna (controlu)
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 9.3.2005 12:51:24
rect: TRect; (to co chces prekreslit)
InvalidateRect(aToolBar.Handle, (zv)Rect, True);
Palo
> abych zamezil problikavani okna, zakazu jeho prekreslovani pomoci:
> SendMessage(aToolBar.Handle, WM_SETREDRAW, 0, 0);
>
> po skonceni operace prekreslovani povolim:
> SendMessage(aToolBar.Handle, WM_SETREDRAW, 1, 0);
>
> a pro jistotu jeste znevalidnim region:
> InvalidateRgn(Handle, nil, False);
>
> pripadne Control.Invalidate;
>
> Bohuzel okno (control) se neprekresli, teprve kdyz nad nim jezdim mysi, tak se postupne prekresluje. Zkousel jsem i Redraw, Repaint .. ale nic nepomaha.
Prekreslovani okna (controlu)
[*] delphak(zv)centrum(tec)cz - 9.3.2005 10:01:12
Ahoj,
abych zamezil problikavani okna, zakazu jeho prekreslovani pomoci:
SendMessage(aToolBar.Handle, WM_SETREDRAW, 0, 0);
po skonceni operace prekreslovani povolim:
SendMessage(aToolBar.Handle, WM_SETREDRAW, 1, 0);
a pro jistotu jeste znevalidnim region:
InvalidateRgn(Handle, nil, False);
pripadne Control.Invalidate;
Bohuzel okno (control) se neprekresli, teprve kdyz nad nim jezdim mysi, tak se postupne prekresluje. Zkousel jsem i Redraw, Repaint .. ale nic nepomaha.
Muzete me nekdo nakopnout spravnym smerem?
Diky!
Seminar "Belohrad 2005"
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 9.3.2005 09:31:10
Ve dnech 23.-24.2. 2005 probehl v Laznich Belohrade
7.rocnik tradicniho vyvojarskeho seminare "Belohrad 2005".
Pokud mate zajem o informace z tohoto seminare, jeho vyhodnoceni, diskuse a materialy ke stazeni,
podivejte se na
http://www.haes(tec)cz/ws_pozv.asp
a dale
http://www.hlinka(tec)cz/belohrad/
http://blog.vyvojar(tec)cz/michal/archive/2005/02/25.aspx
http://www.aspnet(tec)cz/entry/article-20050226.aspx
Pro nas seminar znamenal predevsim v konfrontaci se 140 ucastniky proverit spravnost struktury a vecne naplne nasich kurzu.
http://www.haes(tec)cz/kurzy.asp?r=kurzy
Jan Sebelik
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================ShellTreeView + CheckBox
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 9.3.2005 07:40:58
Martin Kasman wrote:
> Neviete o nejakej komponente, ktora by fungovala podobne ako ShellTreeView
> (zobrazovala adresare na disku), len pred kazdym adresarom by bol este
> CheckBox? Teda uzivatel by si mohol pozaskrtavat niektore adresare.
Pokud nic nenajdes tak si vem VirtualTree a pokud to nechces psat od
zacatku,
tak mezi demy je tam neco podobneho (mozna si to budes muset upravit)
Myslim ze jsem to dokonce videl v tom zakladnim velkem demu
http://www.delphi-gems.com/VirtualTreeview/VT.php
> Vdaka za kazdu radu
Radek
synapse
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 8.3.2005 20:50:14
Na prvni pohled: Nesmis vytvaret TStrings ale TStringList. TStrings je
abstraktni trida.
Pavel Volak napsal(a):
> Zkousim Synapse. Jsem temer zelenac. Chci na internet (zatim local) poslat
> soubor a tam ho ulozit. Vraci mi to EAbstractError v Httpsend na radku 769.
> Muzete poradit?
>
> Dik
>
>
> procedure TForm1.Button1Click(Sender: TObject);
> var BIS: TFileStream;
> pom: string;
> vys: Tstrings;
> begin
> // m_Obraz.Clear;
> pom:= 'C:\Dokumenty\Obrazky\aqualung\Cousteau first.jpg';
> BIS := TFileStream.Create(pom, fmCreate);
> vys:= Tstrings.Create;
> //vys.Clear;
> if HttpPostFile( 'http://localhost/money/uloz.php', 'doc', pom, BIS,
> vys) = true then
> m_Obraz.Lines:=vys;
> BIS.Free;
> end;
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
Tisk stitku ve FastReportu
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 8.3.2005 20:20:11
On 8 Mar 2005 at 18:19, Karel Kral wrote:
> Je to stejna jako tvoje, FR 3.10 Pro.
posilam (prilohy) na soukromy mail
Jarek
synapse
[*] Pavel Volak <volakp(zv)chello(tec)cz> - 8.3.2005 19:06:03
Zkousim Synapse. Jsem temer zelenac. Chci na internet (zatim local) poslat
soubor a tam ho ulozit. Vraci mi to EAbstractError v Httpsend na radku 769.
Muzete poradit?
Dik
procedure TForm1.Button1Click(Sender: TObject);
var BIS: TFileStream;
pom: string;
vys: Tstrings;
begin
// m_Obraz.Clear;
pom:= 'C:\Dokumenty\Obrazky\aqualung\Cousteau first.jpg';
BIS := TFileStream.Create(pom, fmCreate);
vys:= Tstrings.Create;
//vys.Clear;
if HttpPostFile( 'http://localhost/money/uloz.php', 'doc', pom, BIS,
vys) = true then
m_Obraz.Lines:=vys;
BIS.Free;
end;prenos zvuku
[*] Pavel P <pavel(zv)tvsp(tec)net> - 8.3.2005 18:56:03
Vrele doporucuji sadu komponent DSPack, resi se vsechno pres directshow a je to docela rychly, ne moc uzivatelsky ale,... jinak audiolab z www.mitov.com by taky mohl zabrat, ale to nevim....
----- Original Message -----
From: Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz>
To: delphi-l(zv)clexpert(tec)cz
Sent: Tue, 8 Mar 2005 18:26:00 +0100
Subject: Re: prenos zvuku
> > From: delphikonf(zv)post(tec)cz
> >
> > chtel bych vytvorit neco jako rozhlas; na jednom PC bude mikrofon;
> > ostatni pocitace na siti budou poslouchat.
>
> Kdysi jsem zkousel vysilani videa. Delal jsem to tak, ze jsem na
> zdrojovem pocitaci nainstaloval Windows Media Encoder a do Delphi jsem
> naimportoval ActiveX komponenty MSPropShell a WMEncoder. Pak uz to byla
> jen otazka nastaveni profilu a zavolani metod encoderu Start/Stop.
> Na prijimacich pocitacich se pouzila komponenta Windows Media Playeru.
> Se samotnym zvukem by to melo jit stejne, staci v profilu vynechat
> video.
>
> Vaclav Krmela
>
>
>
>
>
> prenos zvuku
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 8.3.2005 18:26:00
> From: delphikonf(zv)post(tec)cz
>
> chtel bych vytvorit neco jako rozhlas; na jednom PC bude mikrofon;
> ostatni pocitace na siti budou poslouchat.
Kdysi jsem zkousel vysilani videa. Delal jsem to tak, ze jsem na
zdrojovem pocitaci nainstaloval Windows Media Encoder a do Delphi jsem
naimportoval ActiveX komponenty MSPropShell a WMEncoder. Pak uz to byla
jen otazka nastaveni profilu a zavolani metod encoderu Start/Stop.
Na prijimacich pocitacich se pouzila komponenta Windows Media Playeru.
Se samotnym zvukem by to melo jit stejne, staci v profilu vynechat
video.
Vaclav Krmela
Tisk stitku ve FastReportu
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 8.3.2005 18:19:59
Je to stejna jako tvoje, FR 3.10 Pro.
Jaroslav Uher napsal(a):
> On 8 Mar 2005 at 17:27, Karel Kral wrote:
>
> ja je minuly tyden konecne vyresil v FR 3 Profi,
> pokud prozradis verzi, poradim(e)
>
> Jarek Uher
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
Tisk stitku ve FastReportu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 8.3.2005 17:43:57
> Resil bych to asi takhle: File->Page Options->Options: Columns Number
> nastavit na 4 a potom tam hodit Master data s polem s vyskou A4/10. Melo
> by to fungovat.
V fr3 by melo stacit nastavit v bandu Columns a ColumnWidth.
MB
Tisk stitku ve FastReportu
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 8.3.2005 17:39:57
On 8 Mar 2005 at 17:27, Karel Kral wrote:
> muzete me nekdo nasmerovat, jak tisknout na samolepici etikety (ty, co
> jsou napr. ve 4 sloupcich a 10 radach na strane) ve FastReportu? --
ja je minuly tyden konecne vyresil v FR 3 Profi,
pokud prozradis verzi, poradim(e)
Jarek Uher
Tisk stitku ve FastReportu
[*] Vaclav Sykora <vaclav.sykora(zv)accidis(tec)cz> - 8.3.2005 17:37:56
> muzete me nekdo nasmerovat, jak tisknout na samolepici
> etikety (ty, co
> jsou napr. ve 4 sloupcich a 10 radach na strane) ve FastReportu?
Resil bych to asi takhle: File->Page Options->Options: Columns Number
nastavit na 4 a potom tam hodit Master data s polem s vyskou A4/10. Melo
by to fungovat.
Druhy reseni je pomoci Cross data viz. demo ve FR.
Vas, FR 2.45
Tisk stitku ve FastReportu
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 8.3.2005 17:27:55
Ahoj,
muzete me nekdo nasmerovat, jak tisknout na samolepici etikety (ty, co
jsou napr. ve 4 sloupcich a 10 radach na strane) ve FastReportu?
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
ShellTreeView + CheckBox
[*] Martin Kasman <martinkasman(zv)martinkasman.sk> - 8.3.2005 16:03:50
Neviete o nejakej komponente, ktora by fungovala podobne ako ShellTreeView
(zobrazovala adresare na disku), len pred kazdym adresarom by bol este
CheckBox? Teda uzivatel by si mohol pozaskrtavat niektore adresare.
Vdaka za kazdu radu
DATE (prip. TIME, TIMESTAMP) v UDF
[*] Richard Kejval <kejval.delphi(zv)centrum(tec)cz> - 8.3.2005 14:23:42
> > var
> > ResultIBDateTime: TIBDateTime;
>
> Tohle funguje jenom u klasika, u superserveru
> takovato funkce bude generovat nepredvidatelne vysledky !!!
>
a pravda omlouvam se uz je to davno, kdy jsme ty udf delali a samozrejme
jsme vysli z nejake zdrojove knihovny, myslim ze to bylo FreeUdfLib a ty
globalni promenne se tam alokuji jeste v nejakem thredu, takze nam to
funguje, ale asi jsem to pro nazornost moc zjednodusil..:-((
S pozdravem
ing. Richard Kejval
mobil: 602477679
http://www.icsoftware(tec)cz
DATE (prip. TIME, TIMESTAMP) v UDF
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 8.3.2005 13:49:39
> var
> ResultIBDateTime: TIBDateTime;
Tohle funguje jenom u klasika, u superserveru
takovato funkce bude generovat nepredvidatelne vysledky !!!
>
> a pak vysledek prevadim pomoci ukazatele, takze napr:
>
> Bohuzel jeste pracujeme v dialektu 1, kde TimeStamp neni, ale
> myslim, ze by to melo fungovat stejne protoze v 1 ma Date datum i cas
V dialektu 1 timestamp je (synonymum pro date) :)))
Slavek
DATE (prip. TIME, TIMESTAMP) v UDF
[*] Richard Kejval <kejval.delphi(zv)centrum(tec)cz> - 8.3.2005 13:43:39
> Blby je, ze nechce
>
> declare external function xxx
> timestamp
> returns timestamp by value
> entry_point 'xx' module_name 'yyy';
>
> Return mode by value not allowed for this datatype.
> To asi proto, ze timestamp je ten record.
Ja zavadim globalni promenou
var
ResultIBDateTime: TIBDateTime;
a pak vysledek prevadim pomoci ukazatele, takze napr:
function NowToDate : PIBDateTime; cdecl; export;
var
DateTime: TDateTime;
DelphyDays : Integer;
begin
DateTime := Now;
DelphyDays := Trunc(DateTime);
with ResultIBDateTime do begin
Days := DelphyDays + IBDateDelta;
MSec10 := Trunc((DateTime - DelphyDays) * MSecsPerDay10);
end;
Result := (zv)ResultIBDateTime;
end;
a nasledna deklarace:
DECLARE EXTERNAL FUNCTION F_NOWTODATE
RETURNS DATE FREE_IT
ENTRY_POINT 'NowToDate' MODULE_NAME 'IBFunction';
Bohuzel jeste pracujeme v dialektu 1, kde TimeStamp neni, ale myslim,
ze by to melo fungovat stejne protoze v 1 ma Date datum i cas
S pozdravem
ing. Richard Kejval
mobil: 602477679
http://www.icsoftware(tec)cz
DATE (prip. TIME, TIMESTAMP) v UDF
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 8.3.2005 13:33:38
Podivej do standartnich udf pro FB1.5 (soubor fbudf.sql),
funkce :
--FBUDF_API ISC_TIMESTAMP* addMonth(ISC_TIMESTAMP* v, int nmonths)
declare external function addMonth
timestamp, int
returns timestamp
entry_point 'addMonth' module_name 'fbudf';
Za funkci netucim :))
Slavek
>
> Nevite nekdo, jak predat do UDF
> DATE (prip. TIME, TIMESTAMP)
>
> Pripadne taky vratit.
> Potrebuju neco jako IncMonth(DATE)
>
> Stacilo by mi vratit pocet dni v mesici:
> d2 = d1 + DayCount(d1);prenos zvuku
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.3.2005 12:33:34
DD,
delphikonf(zv)post(tec)cz wrote:
> Zdravim,
> chtel bych vytvorit neco jako rozhlas;
> na jednom PC bude mikrofon; ostatni pocitace na siti budou
> poslouchat. Jelikoz jsem nikdy nedelal nic s prenosem dat po
> siti, tak bych se chtel zeptat, co pouzit za komponenty (uvazoval
> jsem indy udp pro prenos dat po siti, co se tyce snimani a
> prehravani zvuku - nevim vubec)
>
pokud o prenosech na siti nic netusis tak je pro tenhle pripad potreba
si to honem dostudovat. Konkretne UDP prenos pro zacatecnika neni
uplne to prave orechove. Sice se pouziva k prenosu zvuku (protoze je
mnohem mene narocnejsi na systemove zdroje a vysilac/prijimac muze mit
prenos vice pod kontrolou nez v pripade TCP), ale jedna se o protokol,
ktery nezarucuje doruceni dat, takze komunikujici aplikace se s tim
musi nejak vyrovnat (nucene opakovani prenosu - je-li to treba atd).
Doporucoval bych se s TCP a UDP blize seznamit - jinak hrozi to, ze
zvolis pro konkretni reseni nevhodny prenosovy protokol. Pokud se
jedna o nejaky relativne nenarocny system (par stanic prijimajicich
rozhlas), muzes to klidne prenaset pomoci TCP. Pokud se jedna o
nasazeni v 'bezeztratove' siti (typicky LAN - nikoliv prenos po
obecnem Internetu) bude To chodit i UDP (data se ztracet nebudou). Pak
je ale zase vhodne zvazit, zda je nutne komunikovat s kazdym klientem
zvlast nebo vysilat UDP data broadcastem (usetris nejaky provoz na
siti a nemusis realizovat prihlasovani stanic) - to ovsem funguje jen
pokud se s nasazenim pocita v neroutovane siti (stanice umistena za
routerem nebude broadcasty slyset)
Zdravi
D. Toman
prenos zvuku
[*] delphikonf(zv)post(tec)cz - 8.3.2005 12:15:32
Zdravim,
chtel bych vytvorit neco jako rozhlas;
na jednom PC bude mikrofon; ostatni pocitace na siti budou
poslouchat. Jelikoz jsem nikdy nedelal nic s prenosem dat po
siti, tak bych se chtel zeptat, co pouzit za komponenty (uvazoval
jsem indy udp pro prenos dat po siti, co se tyce snimani a
prehravani zvuku - nevim vubec)
Dekuji za jakekoli rady, pripadne odkazy, atd.
D7 prof, win XP sp2
Kodovani DBF
[*] mivedelphi(zv)seznam(tec)cz - 8.3.2005 11:43:30
Nazdar,
ak chces, tak si mozes z mojej stranky stiahnut
program DBFview. Ten ma funkciu prekodovania DBF
medzi strankami Kamenicky, Latin2, Win1250,
ISO 8859-2, KOI 8 CS.
Link: http://www.fornex.sk/software/dbfview131.exe
mildy
DATE (prip. TIME, TIMESTAMP) v UDF
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 8.3.2005 11:13:28
> Tak snad to z toho nejak vydolujes..:-)
Jo, prisel jsem na tu konstantu 15018:
function DayCount(var D:Integer): Integer; cdecl; export;
var D1: Integer;
begin
D1:=D-15018;
Result:=round(IncMonth(D1)-D1);
end;
Blby je, ze nechce
declare external function xxx
timestamp
returns timestamp by value
entry_point 'xx' module_name 'yyy';
Return mode by value not allowed for this datatype.
To asi proto, ze timestamp je ten record.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================DATE (prip. TIME, TIMESTAMP) v UDF
[*] Richard Kejval <kejval.delphi(zv)centrum(tec)cz> - 8.3.2005 10:35:25
Ahoj,
"Jan Sebelik" wrote :
> Nevite nekdo, jak predat do UDF
> DATE (prip. TIME, TIMESTAMP)
>
> Pripadne taky vratit.
> Potrebuju neco jako IncMonth(DATE)
Ja to resim pres pomocny record:
type
PIBDateTime = ^TIBDateTime;
TIBDateTime = record
Days, // Date: Days since ??.??.????
MSec10 : Integer; // Time: Millisecond * 10 since midnigth
end;
const // Date
translation constants
MSecsPerDay10 = MSecsPerDay * 10; // Milliseconds per day * 10
IBDateDelta = 15018; // Days between Delphi and
InterBase dates
Takze pak napr:
function DateToStr(DateTime : PIBDateTime; Param : PChar) : PChar;
var
sParam, Vysl : string;
begin
sParam := string(Param);
Vysl := FormatDateTime (sParam,
DateTime^.Days-IBDateDelta+DateTime^.MSec10/MSecsPerDay10);
Result := MakeResultString(PChar(String(vysl)), nil, 0);
end;
Tak snad to z toho nejak vydolujes..:-)
S pozdravem
ing. Richard Kejval
mobil: 602477679
http://www.icsoftware(tec)cz
Jak propojit adresar jako jednotku?
[*] Sommer Pavel <psommer(zv)cpoj(tec)cz> - 8.3.2005 10:31:24
>Ahoj vsem,
>jak pripojim adresar Winserveru jako jednotku, ale pod jinym
uzivatelem, nez je prihlasen?
>jsem prihlasen jako uzivatel "A" a chci pripojit adresar z
\\WinSERVER\Data jako jednotku D pod uzivatelem "B" a s
>jeho pravy.uzivatel "A" na tento adresar nema zadna prava.
Ahoj, nevim ted z hlavy jak to udelat pres API, ale muzes napr. takto:
'net use G: "\\WinSERVER\Data" heslo /USER:nazev_domeny\B'. Muzes to
zavolat treba pres ShellExecute. Vice viz prikaz 'net use /?'.
P.
DATE (prip. TIME, TIMESTAMP) v UDF
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 8.3.2005 10:23:23
Standardni FBUDF obsahuje fci AddMonth.
Libor
----- Original Message -----
From: "Jan Sebelik" <honza(zv)haes(tec)cz>
Sent: Tuesday, March 08, 2005 10:09 AM
> Potrebuju neco jako IncMonth(DATE)
> Honza
Jak propojit adresar jako jednotku?
[*] Jiri Virt <virt(zv)volny(tec)cz> - 8.3.2005 10:21:23
Ahoj vsem,
jak pripojim adresar Winserveru jako jednotku, ale pod jinym uzivatelem,
nez je prihlasen?
jsem prihlasen jako uzivatel "A" a chci pripojit adresar z \\WinSERVER\Data
jako jednotku D pod uzivatelem "B" a s jeho pravy.uzivatel "A" na tento
adresar nema zadna prava.
pres WNetConnection2 mi to nefunguje, pise mi to chybu 5 access_denied.
Delal jste toto nekdo? po netu jsou priklady, ale ty funguji jen, pokud bych
se pripojoval k adresari jako uzivatel "A" tj, prihlaseny uzivatel do
stanice.
Diky
Jirka Virt
DATE (prip. TIME, TIMESTAMP) v UDF
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 8.3.2005 10:09:22
Nevite nekdo, jak predat do UDF
DATE (prip. TIME, TIMESTAMP)
Pripadne taky vratit.
Potrebuju neco jako IncMonth(DATE)
Stacilo by mi vratit pocet dni v mesici:
d2 = d1 + DayCount(d1);
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================ADOQuery predgenerovani ID
[*] Petr Gregor <pgregor(zv)orsia(tec)cz> - 8.3.2005 07:21:10
Predpokladam ze jse pripojen k nektere z SQL databazi.
Pokud Vase databaze podporuje sequence nebo generatory, tak bych na to sel
tak,
ze pre insertem spustim select na sequenci (u ORACLE), nebo generator
(INTERBASE)
a takto zjistenou hodnotu bych pouzil pri pouziti prikazu INSERT do
databaze.
Napr. pro Oracle:
select seq_is_cenik_id.nextval from dual
Kde seq_is_cenik_id je nazev me sequence
Obdobne asi u ostatnich SQL databazi.
Za "normalnejsi" ale povazuji cely kod souvisejici s generovanim ID prenest
do before insert triggeru
vkladajiciho hodnotu do sloupce ID a nasledne zjisteni vlozeneho ID pres
dotaz pomoci UNIQUE indexu.
Petr Gregor > Ahoj, potreboval bych v AdoQuery predgenerovat ID hodnotu
> sloupce typu AutoInc, jde to udelat?
> Po afterpost hodnotu ID zjistim, ale to je pozde, ja to
> potrebuji zjistit, bud pri OnNewRecord nebo pri BeforePost
>
> Dik
>
> Dalibor
> ADOQuery predgenerovani ID
[*] Ing. Petr Kejval <petr.kejval(zv)worldonline(tec)cz> - 8.3.2005 06:59:08
Obavam se ze to nepujde, lepsi bude asi pouzit misto pole AutoInc pole typu
GUID a hodnotu tohoto pole si vygenerovat v klientske aplikaci.
Petr
> Ahoj, potreboval bych v AdoQuery predgenerovat ID hodnotu sloupce typu
AutoInc, jde to udelat?
> Po afterpost hodnotu ID zjistim, ale to je pozde, ja to potrebuji zjistit,
bud pri OnNewRecord nebo pri BeforePost
>
> Dik
>
> Dalibor
Kodovani DBF
[*] dssoft(zv)centrum(tec)cz - 8.3.2005 04:06:56
> DBF soubor neobsahu informaci o pouzitem kodovani, tu musis znat
> (tak jako musis znat nazev souboru).
To neni tak uplne pravda. Ale nektere programy to do hlavicky opravdu
neukladaji.
Kodova stranka:
(omluvte prosim grafickou uroven - je to vytazeno z poznamky ve zdrojaku)
Byte je uveden na 30. znaku DBF (prvni znak ma poradi 1)
437 - AMERICKY MS-DOS 1
850 - MEZINARODNI MS-DOS 2
1252 - WINDOWS ANSI 3
10000- STANDARD MACINTOSH 4
852 - EE MS-DOS(LATIN2) 100
866 - RUSSIAN MS-DOS 101
865 - NORDIC MS-DOS 102
861 - ICELANDIC MS-DOS 103
895 - KAMENICKY (CESKY) MS-DOS 104
620 - MAZOVIA (POLISH) MS-DOS 105
737 - GREEK MS-DOS(437 G) 106
857 - ? 107
863 - ? 108
10007- RUSSIAN MACINTOSH 150
10029- EASTERN EUROPEAN MACINTOSH 151
10006- GREEK MACINTOSH 152
1250 - WINDOWS EE 200
1251 - RUSSIAN WINDOWS 201
1253 - GREEK WINDOWS 203
1254 - TURKISH WINDOWS 202
1257 - BALTIC WINDOWS 204
David
Kodovani DBF
[*] Chaosz <chaosz-veliky(zv)volny(tec)cz> - 8.3.2005 01:10:44
No, data v DBF souboru nejsou nijak kodovana. Takze staci tento soubor
otevrit treba ve Windows/Total Commanderu pro prohlizeni (klavesou F3)
a v menu Moznosti si muzes vybrat kodovani
- ANSI (Windows) - 1250
- ASCII (Dos) - 852 (Latin II)
Podle toho v jake chvili se ti to zobrazi spravne poznas, v jakem je
to kodovani, pripadne ze je to v uplne jinem kodovani...
NEBO
Jeden byte v hlavicce DBF souboru FoxPro 2.5 a vyssi rika v jake kodove
strance ten soubor je. (Bohuzel si uz presne nepamatuju ktery to je).
Pokud tento byte prepises na 0 a otevres ten DBF soubor ve WinFoxPro,
tak se te zepta na kodovou stranku souboru. A kdyz trefis spravnou,
tak se ti data zobrazi spravne. Pokud trefis spatnou, tak znova :-)
Stepan o:) -=* David Klodner <delphi-l(zv)clexpert(tec)cz>, 8.3.2005 0:24 wrote *=-
DK> Ok, tak to jsem prikaz GetCurCP spatne pochopil.
DK> Stejne si ale porad nevim rady, podle vseho je teda muj DBF kodovany Win
DK> 1250,
DK> a kolega me tvrdi, ze to neni Win 1250.
DK> Jak vubec poznam, v jakem kodovani je DBF soubor?
DK> David Klodner
Kodovani DBF
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 8.3.2005 01:10:44
To proste nejde, jedine heuristikou, tj. podivas se jestli jsou texty
OK.
DBF soubor neobsahu informaci o pouzitem kodovani, tu musis znat
(tak jako musis znat nazev souboru).
Slavek
> Jak vubec poznam, v jakem kodovani je DBF soubor?
>
> David Klodner
Kodovani DBF
[*] David Klodner <delphikonfer(zv)seznam(tec)cz> - 8.3.2005 00:24:40
Ok, tak to jsem prikaz GetCurCP spatne pochopil.
Stejne si ale porad nevim rady, podle vseho je teda muj DBF kodovany Win
1250,
a kolega me tvrdi, ze to neni Win 1250.
Jak vubec poznam, v jakem kodovani je DBF soubor?
David Klodner
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Lukas Gebauer
> Sent: Monday, March 07, 2005 10:16 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Kodovani DBF
>
>
> > Kdyz se dotazu na kodovani tohoto souboru pres Synapsi -
> GetCurCP, tak
> > me to vrati Windows - 1250.
>
> ??? getCurCP vraci defaultni kodovani uzivane v operacnim
> systemu. To ti
> nemuze nikdy vratit kodovani uzite v nejakem souboru!
>
> --
> Lukas Gebauer.
>
> E-mail: gebauerl(zv)mlp(tec)cz
> WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
> Library
>
>
>
> Kodovani DBF
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 7.3.2005 22:16:15
> Kdyz se dotazu na kodovani tohoto souboru pres Synapsi - GetCurCP, tak me
> to vrati Windows - 1250.
??? getCurCP vraci defaultni kodovani uzivane v operacnim systemu. To ti
nemuze nikdy vratit kodovani uzite v nejakem souboru!
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Kodovani DBF
[*] Chaosz <chaosz-veliky(zv)volny(tec)cz> - 7.3.2005 22:08:14
Ahoj,
mam takovy pocit, ze DatabaseDesktop nezobrazuje ceske znaky spravne
nikdy. Je to vec nastaveni fontu DatabaseDesktopu. Neda se tam
nastavit kodova stranka fontu. Jedine, kdyby jsi si nainstaloval
pouze cesky font (treba z win 3.1).
Stepan o:) -=* David Klodner <delphi-l(zv)clexpert(tec)cz>, 7.3.2005 21:42 wrote *=-
DK> Mam zmatek v kodovani DBF souboru.
DK> DOSovsky program mi nabizi 3 moznosti exportu do DBF - win1250,
DK> Kamenicky a Latin2.
DK> Ceske znaky se me spravne nactou jen z Latin2. To same Excel - zobrazi
DK> spravne jen verzi Latin2.
DK> Kdyz se dotazu na kodovani tohoto souboru pres Synapsi - GetCurCP, tak
DK> me to vrati Windows - 1250.
DK> Kolega po me chce DBF soubor pro nacteni dat do mySQL ve win1250.
DK> Kdyz takovy souboru vytvorim, Synapse hlasi, ze je to win1250, tak on
DK> tam vidi nektere znaky spatne.
DK> Mam pry vytvorit DBF, ktery bude spravne videt v DatabaseDesktopu.
DK> Zkousim vsechna kodovani co v Synapsi jsou, ale vzdycky jsou tam nektere
DK> ceske znaky videt spatne.
DK> David Klodner
Kodovani DBF
[*] David Klodner <delphikonfer(zv)seznam(tec)cz> - 7.3.2005 21:42:12
Mam zmatek v kodovani DBF souboru.
DOSovsky program mi nabizi 3 moznosti exportu do DBF - win1250,
Kamenicky a Latin2.
Ceske znaky se me spravne nactou jen z Latin2. To same Excel - zobrazi
spravne jen verzi Latin2.
Kdyz se dotazu na kodovani tohoto souboru pres Synapsi - GetCurCP, tak
me to vrati Windows - 1250.
Kolega po me chce DBF soubor pro nacteni dat do mySQL ve win1250.
Kdyz takovy souboru vytvorim, Synapse hlasi, ze je to win1250, tak on
tam vidi nektere znaky spatne.
Mam pry vytvorit DBF, ktery bude spravne videt v DatabaseDesktopu.
Zkousim vsechna kodovani co v Synapsi jsou, ale vzdycky jsou tam nektere
ceske znaky videt spatne.
David Klodner
Richard Grimes o .NET ! (Trochu kritiky na .NET)
[*] KasiX <kasix(zv)atlas(tec)cz> - 7.3.2005 17:15:54
FYI
http://www.ddj.com/documents/s=9211/ddj050201dnn/
(Diky Tome M.)
Pavol Kakacka
Vedouci vyvoje IS
AAC Czech s.r.o.
V Luzich 818
Praha 4 Libus
tel: +420 234 646 443
pavol.kakacka(zv)aac-czech(tec)cz
www.aac-czech(tec)cz
funkce na zjisteni lastwrite u souboru
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.3.2005 16:31:50
> tu prave pouzivam na prevod do RFC822 ale nemuzu nejak z zadne
> funkce
> dostat posledni pristup v datetime formatu... :(
a jeste se doplnim GetFileTime kupodivu vraci i lastwritetime.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/getfiletime.asp
a pak pouzit FileTimeToSystemTime
D. Toman
funkce na zjisteni lastwrite u souboru
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.3.2005 16:27:50
> tu prave pouzivam na prevod do RFC822 ale nemuzu nejak z zadne
> funkce
> dostat posledni pristup v datetime formatu... :(
windowsi nativni format je TFileTime (neni problem to z nej prevest )
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/base/win32_find_data_str.asp
D. Toman
private vs. protected
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 7.3.2005 16:15:49
Vlastimil Burian wrote (on Monday, March 07, 2005 3:34 PM):
> zustava mi nejasne ktere pristupove funkce vlastnosti mam nechavat
> private a ktere protected ... ?
Protected je videt v tom modulu a ve vsech potomcich. Private jen v modulu, kde je definovana.
Toz asi tak.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Odeslani souboru na web
[*] Fait <develop(zv)lmss(tec)cz> - 7.3.2005 15:39:46
Mohu dostat nejak soubor na web bez pouziti FTP?
Koukal jsem na synapsi (THTTPSend), ale asi mi chybi znalosti jak
prizpusobit web tomu, aby ten soubor prijal.
Jirka
ADOQuery predgenerovani ID
[*] Dalibor <dalibor(zv)torola(tec)cz> - 7.3.2005 15:39:46
Ahoj, potreboval bych v AdoQuery predgenerovat ID hodnotu sloupce typu AutoInc, jde to udelat?
Po afterpost hodnotu ID zjistim, ale to je pozde, ja to potrebuji zjistit, bud pri OnNewRecord nebo pri BeforePost
Dik
Dalibor
private vs. protected
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 7.3.2005 15:33:46
zustava mi nejasne ktere pristupove funkce vlastnosti mam nechavat private a
ktere
protected ... ? Inno Setup a odkaz na folder
[*] Lasevic, Martin <mlasevic(zv)ratiopharm(tec)cz> - 7.3.2005 14:59:43
Zdravim,
Potrebuji v Inno Setup udelat odkaz na slozku, ale nejak se mi nedari.....kompilace sice probehne, ale shortcut tam neni....
Co je potreba ve zdrojaku instalaku nastavit?
Diky za odpoved
Martin Lasevic
Soubory ve slozce, rekurzivni hledani ...
[*] Josef Zvonicek <prosoft(zv)prosoft(tec)cz> - 7.3.2005 14:23:41
To mi nejak kdysi funguvalo, tak se na to podivej. Vybiral jsem soubory s
dcm a dat priponou a dale pracoval s nima.
procedure TPForm1.OjedAdr(ADir: string);
VAR
FileAttrs,FileAttrs1:Integer;
sr,sr1: TSearchRec;
AStr:string;
AGlo,APor:string;
begin
FileAttrs := faAnyFile;
if FindFirst(ADir+'\*.*', FileAttrs, sr) = 0 then
begin
repeat
Label1.Caption:=ADir+sr.Name;
Application.HandleMessage;
if FStop and (MessageDlg('Prerusit?', mtWarning, [mbYes,mbNo],
0)=mrYes) then halt;
if ((sr.Attr and faDirectory) = sr.Attr) and
(copy(sr.Name,1,1)<>'.') then OjedAdr(ADir+'\'+sr.Name+'\')
else if ((sr.Attr and faArchive) = sr.Attr) and
((ExtractFileExt(sr.Name)='.dcm') or (ExtractFileExt(sr.Name)='.dat') then
begin
/**** delej co chces
end;
until FindNext(sr) <> 0;
FindClose(sr1);
end;
end;
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Karel Kral
Sent: Monday, March 07, 2005 12:58 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Soubory ve slozce, rekurzivni hledani ...
Podivej se do JCL, JclFileUtils, funkce AdvBuildFileList
mydelphiconf(zv)centrum(tec)cz napsal(a):
> Ahoj lidi,
> potreboval bych najit podle zadane masky nejake soubory v adresari ....
bohuzel se nejak nemohu dopatrat metod pro hledani souboru v adresari
pripadne i rekurzivne v dalsich podadresarich ...
> nemuzete mne nasmerovat ... ?
> diky moc.
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
funkce na zjisteni lastwrite u souboru
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 7.3.2005 13:53:38
zkus toto
function FileTimeToDateTime (const aFileTime : tFileTime) : tDateTime;
var lft : tFileTime; l : longint;
begin
FileTimeToLocalFileTime (aFileTime,lft);
FileTimeToDosDateTime (lft,longrec(l).Hi,longrec(l).Lo);
result:=FileDateToDateTime (l);
end;
a volani
function fdDateTime (const rec : tSearchRec; datetype : tFileDateType =
fdtLastWrite) : tDateTime;
begin
case datetype of
fdtCreate : result:=FileTimeToDateTime (rec.FindData.ftCreationTime);
fdtLastWrite : result:=FileTimeToDateTime
(rec.FindData.ftLastWriteTime);
fdtLastRead : result:=FileTimeToDateTime
(rec.FindData.ftLastAccessTime);
else result:=FileDateToDateTime (rec.Time);
end;
end;
funkce na zjisteni lastwrite u souboru
[*] david.kopecek(zv)hacktrack(tec)com - 7.3.2005 13:37:37
Cauky
>> nemate nekdo funkci na zjisteni posledniho zapisu do souboru a
>> jeho nasledny prevod do datumoveho formatu RFC822 ?
LG> Se zjistenim casu ti nepomuzu, ale s prevodem tdatetime do RFC822
LG> formatu ti pomuzu. Pouzij funkci:
LG> function Rfc822DateTime(t: TDateTime): string;
LG> ze synautil.pas v Synapsi. ;-)
tu prave pouzivam na prevod do RFC822 ale nemuzu nejak z zadne funkce
dostat posledni pristup v datetime formatu... :(
D.
Soubory ve slozce, rekurzivni hledani ...
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 7.3.2005 12:57:34
Podivej se do JCL, JclFileUtils, funkce AdvBuildFileList
mydelphiconf(zv)centrum(tec)cz napsal(a):
> Ahoj lidi,
> potreboval bych najit podle zadane masky nejake soubory v adresari ... bohuzel se nejak nemohu dopatrat metod pro hledani souboru v adresari pripadne i rekurzivne v dalsich podadresarich ...
> nemuzete mne nasmerovat ... ?
> diky moc.
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
Rozsahly projekt win32 .net
[*] KasiX <kasix(zv)atlas(tec)cz> - 7.3.2005 12:41:32
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] za uzivatele josef tichy
> Predpokladam, ze situaci prechodu z win32 na .net resi i
> velke zahranicni softwarove firmy, kde se tim zabyva jiste
> spousta odborniku. Zajima mne jestli existuje treba nejaky
> trend jako predelavat na .net i velke projekty apod. Zajimalo
> by mne jestli nemate nekdo nejake reference, jake jsou v teto
> oblasti trendy ve svete(u projektu ktere jsou pod win32 jiz
> vyvinuty a maji ocekavanou dlouhodobejsi zivotnost).
Trendy, ktore sledujem ja, su v business sektoru. (SAP, Oracle, Logica, ....)
Velke firmy s velkymi projektami idu smerom, ktory som popisoval uz v
diskusii "Re: Delphi .NET/Delphi win 32 - zpetna kompatibilita": velke
projekty spravidla neprepisuju, nove projekty zvazuju podla okolnosti a
potreby. Maju ale niektore casti projektov, ktore pisu v .NET.
Situacia je ina hlavne v sektoru webovych aplikacii. Tam hodne firiem pise
uz v .NET, ale to uz su roky. Napriklad Active24 (Globe) pouziva .NET uz 5
rokov.
(Podla mojich informacii, ale nerucim za to...)
btw: Ale k comu Ti takato informacia bude? ;-)
Pavol Kakacka
Vedouci vyvoje IS
AAC Czech s.r.o.
V Luzich 818
Praha 4 Libus
tel: +420 234 646 443
pavol.kakacka(zv)aac-czech(tec)cz
www.aac-czech(tec)cz
Soubory ve slozce, rekurzivni hledani ...
[*] p.sestak(zv)corag.sk - 7.3.2005 12:03:30
Pozri funkciu VCL FindFirst(). Je k tomu v helpe aj exampel, rekurziu si
ale musis naprogramovat sam(btw velmi jednoducha rekurzia).
P.
mydelphiconf(zv)centrum(tec)cz
Sent by: delphi-l-owner(zv)clexpert(tec)cz
07.03.2005 11:51
Please respond to
delphi-l(zv)clexpert(tec)cz
To
delphi-l(zv)clexpert(tec)cz
cc
Subject
Soubory ve slozce, rekurzivni hledani ...
Ahoj lidi,
potreboval bych najit podle zadane masky nejake soubory v adresari ...
bohuzel se nejak nemohu dopatrat metod pro hledani souboru v adresari
pripadne i rekurzivne v dalsich podadresarich ...
nemuzete mne nasmerovat ... ?
diky moc.
P.
D7, WinXP
zacatecnik-amater
Soubory ve slozce, rekurzivni hledani ...
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 7.3.2005 12:01:29
Mam jednu takovou unitku ktera prohledava strom adresaru a zapisuje nalezene
adresare/soubory (volitelne) do stringlistu. Nehleda podle masky, ale bere
vsechno, musel by sis to upravit. Muzu poslat.
Jirka Matejka
==>Monday, March 07, 2005 11:51 AM mydelphiconf(zv)centrum(tec)cz wrote:
> Ahoj lidi,
> potreboval bych najit podle zadane masky nejake soubory v adresari
> ... bohuzel se nejak nemohu dopatrat metod pro hledani souboru v
> adresari pripadne i rekurzivne v dalsich podadresarich ... nemuzete
> mne nasmerovat ... ? diky moc.
>
> P.
> D7, WinXP
> zacatecnik-amater
Soubory ve slozce, rekurzivni hledani ...
[*] mydelphiconf(zv)centrum(tec)cz - 7.3.2005 11:51:29
Ahoj lidi,
potreboval bych najit podle zadane masky nejake soubory v adresari ... bohuzel se nejak nemohu dopatrat metod pro hledani souboru v adresari pripadne i rekurzivne v dalsich podadresarich ...
nemuzete mne nasmerovat ... ?
diky moc.
P.
D7, WinXP
zacatecnik-amater
Porovnavani retezcu
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 7.3.2005 10:55:25
Dalibor Toman wrote (on Monday, March 07, 2005 10:35 AM):
> ta uloha mi ponekud pripomina komprimacni algoritmus z cyklickym bufferem
> (je nutne v bufferu najit moznou shodu se vstupnim retezcem). Obvykle
> reseni optimlizace tohot prohledavani je pomoci binarniho stromu. Treba
> by to slo aplikovat na Tvuj problem..
Mam ted algoritmus co mi pocita Levenshteinovy vzdalenosti pro dane zadani (cili neco podobneho).
Podle vseho to uz asi moc zrychlit nepujde, spis se snazim omezit vstupni podminku, aby se algoritmus spostel co nejmene.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/TList.Free - mozna trochu OT
[*] Winsoft <winsoft(zv)netkosice.sk> - 7.3.2005 10:47:24
> Cetl jsem mnoho dotazu na tema "moje aplikace zabira 1 GB RAM i kdyz nic
> nedela" a vse ma uvolneno. Ano, vyplyvaji z nepochopeni problemu.
> Nicmene: uz se tesim, az se me zakaznici (kteri znaji spravce uloh)
> budou ptat, proc ma aplikace zabira tolik pameti.
"uz vidim" ako zakaznici sleduju pamet, ktoru zabera aplikacia.
Ze sa niektori stupidni programatori, ktori este netusia ako GC
pracuje, taketo otazky niekde pytaju je jedna vec. Ale zakaznikov
IMHO trapia uplne ine problemy, predovsetkym, ze nieco nefunguje.
Erik
Porovnavani retezcu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.3.2005 10:35:23
> Ahoj,
>
> potrebuju porovnat 2 retezce. Zajima me pocet rozdilu (libovolnych)
> mezi tema 2 (pokud by byla i nejaka extended fce ktera by
> vratila i offset a onen rozdil bude to ok).
>
> Pr.:
> abc : abc = 0
> abc : bc = 1
> abc : c = 2
> abc : ac = 1
>
> vim horni hranici, takze neni nutne se zanorovat, pokud napriklad
> rozdilu bude 5, konec.
>
> Problem je, ze to porovnani (myslim ta prvni fce druha zhriba v
> tretine pripadu, ale nejni nutne) se bude volat cca minimalne 50 000
> ^ 2 (50k na druhou) obycejne kolem 200k ^ 2.
>
> Nevi nekdo o nejake zpusobu, jak to zvladnout v realnem case
> (rekneme 20 - 40minut).
>
ta uloha mi ponekud pripomina komprimacni algoritmus z cyklickym
bufferem (je nutne v bufferu najit moznou shodu se vstupnim retezcem).
Obvykle reseni optimlizace tohot prohledavani je pomoci binarniho
stromu. Treba by to slo aplikovat na Tvuj problem..
Zdravi
D. Toman
funkce na zjisteni lastwrite u souboru
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 7.3.2005 10:33:22
> nemate nekdo funkci na zjisteni posledniho zapisu do souboru a
> jeho nasledny prevod do datumoveho formatu RFC822 ?
Se zjistenim casu ti nepomuzu, ale s prevodem tdatetime do RFC822
formatu ti pomuzu. Pouzij funkci:
function Rfc822DateTime(t: TDateTime): string;
ze synautil.pas v Synapsi. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Rozsahly projekt win32 .net
[*] Petr Vones <konference(zv)petrvones(tec)net> - 7.3.2005 10:27:22
From: "josef tichy" <josef.tich(zv)seznam(tec)cz>
> Predpokladam, ze situaci prechodu z win32 na .net resi i velke zahranicni
> softwarove firmy, kde se tim zabyva jiste spousta odborniku. Zajima mne
Predevsim je otazkou co si od toho v konkretnim pripade slibujete.
Petr Vones
TList.Free - mozna trochu OT
[*] Petr Vones <konference(zv)petrvones(tec)net> - 7.3.2005 10:07:20
From: "Karel Kral" <kralkonf(zv)purusmeda(tec)cz>
> Cetl jsem mnoho dotazu na tema "moje aplikace zabira 1 GB RAM i kdyz nic
> nedela" a vse ma uvolneno. Ano, vyplyvaji z nepochopeni problemu.
Ten problem s TListem opravdu ukazuje typicky pripad kdy se nemusi resit:
- uvolnovani objektu
- ukladani typu ktere nejsou potomkem TObject
Predevsim ten druhy pripad je krasna ukazka vyhody jednotneho typoveho
systemu.
Petr Vones Rozsahly projekt win32 .net
[*] josef tichy <josef.tich(zv)seznam(tec)cz> - 7.3.2005 09:27:16
Dobry den
Predpokladam, ze situaci prechodu z win32 na .net resi i velke zahranicni softwarove firmy, kde se tim zabyva jiste spousta odborniku. Zajima mne jestli existuje treba nejaky trend jako predelavat na .net i velke projekty apod. Zajimalo by mne jestli nemate nekdo nejake reference, jake jsou v teto oblasti trendy ve svete(u projektu ktere jsou pod win32 jiz vyvinuty a maji ocekavanou dlouhodobejsi zivotnost).
Diky Josef Tichy
TList.Free - mozna trochu OT
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 7.3.2005 09:19:15
Jeste bych dodal, ze chovani metody Notify zavisi na tom, zda v constructoru
nastavis vlastnost OwnsObjects na true nebo false...
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Radim Kunz
> Sent: Sunday, March 06, 2005 3:30 PM
>
> ----- Original Message -----
> From: "Jan Sebelik" <honza(zv)haes(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
>
> Ale uvolni, predkem je TList, ktery v Destroy vola Clear, ten vola
> pro vsechny polozky Delete, Delete vola Notify a Notify je v
> TObjectList prekryto tak, ze uvolni objekt.
funkce na zjisteni lastwrite u souboru
[*] david.kopecek(zv)hacktrack(tec)com - 7.3.2005 09:13:14
Zdravim konferenci,
nemate nekdo funkci na zjisteni posledniho zapisu do souboru a
jeho nasledny prevod do datumoveho formatu RFC822 ?
thx david
Zaokrouhleni na padesatnik
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 7.3.2005 09:03:14
V pripade pozadavku na zaokrouhlovani na konkretni misto muzes pouzit funkci
RoundTo (statisticke zaokrouhleni) nebo SimpleRoundTo (matematicke
zaokrouhleni). Jen pozor pri pouziti SimpleRoundTo - pro zaporna cisla vraci
spatne vysledky !!!
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Praktik SW
> Sent: Sunday, March 06, 2005 8:33 AM
>
> vratil k puvodnimu problemu. Snahu zaokrouhlovat bych
> prenechal vestavene funkci Round. Ta sice nema zadne
> parametry, na ktere misto chceme zaokrouhlit, ale to vsichni
> vedi, jak to obejit nasobenim a delenim. Pak se staci
> zamyslet jak to ponasobit v pripade toho padesitniku a vyjde
> nam tohle.
>
> Round(X*2)/2
Hodnota cisla za desetinnou carkou
[*] Milos J. Hrach <delphi_konf(zv)post(tec)cz> - 7.3.2005 08:59:13
Vynasob cislo 100 preved na string a pres porovnani znaku
porovnavej. Neni to sice moc elegantni, ale ucinne to je
> To sice ano, ale ja nepotrebuji zjistit cele cislo za
> desetinnou carkou, ja
> potrebuji zjistit, ze na pozici setin je cislo 7 (z
> puvodniho prikladu)
>
> Nebo to nechapu........:((
>
>
>
>
>
--
Milos J. Hrach, D6 profi, WinXP Home
Delphi7 + MS reporting services
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 7.3.2005 08:33:11
Ahoj vsichni
Protoze mi QR dodavany s D7 prinasi stale problemy, rad bych vyzkousel MS reporting services.
Obracim se na vas s prosbou, zda existuje nejaky popis, jak k teto sluzbe pristupovat z delphi.
Krome toho by me zajimalo, jestli si poradi s nasledujicim:
1. Nekdy potrebuju tisknout do formularu (slozenky, traktorovy papir format ruzny od A4 i A3) potrebuji tedy definovat format papiru a trefit se do kolonek.
2.Nektere sestavy bych chtel automaticky exportovat do pdf, nebo obrazku a ulozit je do databaze(uzivatel by do toho nemel zasahovat) a po nacteni z databaze opet vytisnout do predtisteneho formulare.
3. Moznost predat nektere tistene hodnoty z prostredi Delphi.
Da se to udelat a je to vhodne delat v tomto prostredi? Mam D7 a MS SQL 2000.
Rad bych se take zeptal, jestli jde prinutit QR z D7 aby to s tisknu primo z prohlizece, bylo stejne, jako kdyz sestavu ulozim do souboru, nactu ji a vytisknu. Nebo zda pro verze , splnuje vyse uvedene body s pouzitim .pdf formatu
Jaromir Cermak
TList.Free - mozna trochu OT
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 7.3.2005 08:17:10
Cetl jsem mnoho dotazu na tema "moje aplikace zabira 1 GB RAM i kdyz nic
nedela" a vse ma uvolneno. Ano, vyplyvaji z nepochopeni problemu.
Nicmene: uz se tesim, az se me zakaznici (kteri znaji spravce uloh)
budou ptat, proc ma aplikace zabira tolik pameti.
> o co jednoduchsie je to v .NET, kde sa o taketo zalezitosti
> (s vynimkou unmanaged resources) programator vobec
> nemusi zaujimat.
--
______________________________________________________
Karel Kr+AOE-l, +AVk-editel IT / IT manager
PURUS-MEDA, s.r.o., Palack+AOk-ho 174, 621 00 Brno, CZ
I+AQw-O: 46903453, DI+AQw- CZ46903453
Tel: 547 235 000, 602 552 432
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
SQL - datetime
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 7.3.2005 03:12:47
jedna se o MySQL a pristup pres PHP ... nevim jestli sem to ve 3 rano spatne
napsal ale nejak to nefunguje ... necham to na zitrek
SELECT MAX(polozka) FROM tabulka
Slavek
PS: Bez uvedeni SQL serveru je opravdu tezke ti pomoci.
PS2: Pozor na prechod zimni - letni cas, tj. tvuj vypocet bude fungovat
pouze
pokud budes mit cas v UTC.
>
> nemuzu rict ze bych s SQL delal nejak casto ... resim zrejme
> trivialni
> problem ale nejak "to nejde" ... mam tabulku v niz kazdy
> zaznam ma sve pole
> typu DATETIME ... (1) nedari se mi napsat dotaz ktery mi
> vyplivne nejvetsi z
> nich ... tedy nejnovejsi polozku ... potrebuju totiz zjistit
> jestli je
> casovy rozdil mezi touto polozkou a NOW() vetsi nez 1 minuta
> ... diky za
SQL - datetime
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 7.3.2005 01:36:38
SELECT MAX(polozka) FROM tabulka
Slavek
PS: Bez uvedeni SQL serveru je opravdu tezke ti pomoci.
PS2: Pozor na prechod zimni - letni cas, tj. tvuj vypocet bude fungovat
pouze
pokud budes mit cas v UTC.
>
> nemuzu rict ze bych s SQL delal nejak casto ... resim zrejme
> trivialni
> problem ale nejak "to nejde" ... mam tabulku v niz kazdy
> zaznam ma sve pole
> typu DATETIME ... (1) nedari se mi napsat dotaz ktery mi
> vyplivne nejvetsi z
> nich ... tedy nejnovejsi polozku ... potrebuju totiz zjistit
> jestli je
> casovy rozdil mezi touto polozkou a NOW() vetsi nez 1 minuta
> ... diky za SQL - datetime
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 7.3.2005 00:48:32
nemuzu rict ze bych s SQL delal nejak casto ... resim zrejme trivialni
problem ale nejak "to nejde" ... mam tabulku v niz kazdy zaznam ma sve pole
typu DATETIME ... (1) nedari se mi napsat dotaz ktery mi vyplivne nejvetsi z
nich ... tedy nejnovejsi polozku ... potrebuju totiz zjistit jestli je
casovy rozdil mezi touto polozkou a NOW() vetsi nez 1 minuta ... diky za
pomoc ... sedim nad tim uz pres hodinu ... Porovnavani retezcu
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 6.3.2005 21:46:20
John Bricklayer wrote (on Sunday, March 06, 2005 9:30 PM):
> delky). To by musela byt chytra rutina, ktera vi co dela a to zabere dost
Coz chytra, ale rychla.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Porovnavani retezcu
[*] John Bricklayer <bricklayer(zv)seznam(tec)cz> - 6.3.2005 21:30:14
>Ahoj,
>
>potrebuju porovnat 2 retezce. Zajima me pocet rozdilu (libovolnych) mezi tema 2 (pokud by byla i nejaka extended fce ktera by
>vratila i offset a onen rozdil bude to ok).
>
>Pr.:
>abc : abc = 0
>abc : bc = 1
>abc : c = 2
>abc : ac = 1
>
Podle prikladu by bylo nejjednodussi porovnat delky a vyjde ti totez :-)
Pri shodnych delkach retezcu porovnavat byty retezcu a pri max. poctu rozdilu opustit smycku. :-)
Tvuj priklad je moc nepresny, protoze kdyz ti bude chybet pismenko automaticky ti vyjde
neshodny cely zbytek retezce(pokud neporovnas delky). To by musela byt chytra rutina,
ktera vi co dela a to zabere dost casu a prostoru .... (mozne definice chyb retezcu a jejich
analyza jako je treba kontrola cestiny - podobnost slov atd.)
Porovnavani retezcu
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 6.3.2005 20:50:11
Ahoj,
potrebuju porovnat 2 retezce. Zajima me pocet rozdilu (libovolnych) mezi tema 2 (pokud by byla i nejaka extended fce ktera by
vratila i offset a onen rozdil bude to ok).
Pr.:
abc : abc = 0
abc : bc = 1
abc : c = 2
abc : ac = 1
vim horni hranici, takze neni nutne se zanorovat, pokud napriklad rozdilu bude 5, konec.
Problem je, ze to porovnani (myslim ta prvni fce druha zhriba v tretine pripadu, ale nejni nutne) se bude volat cca minimalne 50 000
^ 2 (50k na druhou) obycejne kolem 200k ^ 2.
Nevi nekdo o nejake zpusobu, jak to zvladnout v realnem case (rekneme 20 - 40minut).
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/
TList.Free - mozna trochu OT
[*] Winsoft <winsoft(zv)netkosice.sk> - 6.3.2005 18:34:02
> > > Jeste je tam trida TObjectList, ktera ma
> > > property Items[i]: TObject;
> > > U te bych tedy ocekaval, ze Items v destruktoru uvolni.
> > > Kdyz ale koukam do zdrojaku - zda se, za taky neuvolni.
> >
> > Ale uvolni, predkem je TList, ktery v Destroy vola Clear, ten vola
> > pro vsechny polozky Delete, Delete vola Notify a Notify je v
> > TObjectList prekryto tak, ze uvolni objekt.
o co jednoduchsie je to v .NET, kde sa o taketo zalezitosti
(s vynimkou unmanaged resources) programator vobec
nemusi zaujimat.
Erik
Zjisteni rychlosti FTP prenosu
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 6.3.2005 16:51:55
> nevite prosim vas nekdo jak v Delphi zjistim rychlost prenosu pri
> downloadu pres FTP?
No to zalezi co pouzivas na ten FTP prenos... na takto obecnou otazku ti
tezko nekdo odpovi.
Napriklad Indy nebo Synapse umoznuje monitorovat prenasene mnozstvi
dat... z toho uz tu rychlost dokazes dostat, vcetne kresleni ruznych
progressbaru, atd.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
TList.Free - mozna trochu OT
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 6.3.2005 16:05:52
Jan Sebelik wrote (on Sunday, March 06, 2005 3:50 PM):
>
No tak to jsem to pekne zmotal. Koukal jsem na neco jineho. :-(
Omlouvam se za mini-hoax.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/TList.Free - mozna trochu OT
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 6.3.2005 15:49:50
> > Jeste je tam trida TObjectList, ktera ma
> > property Items[i]: TObject;
> > U te bych tedy ocekaval, ze Items v destruktoru uvolni.
> > Kdyz ale koukam do zdrojaku - zda se, za taky neuvolni.
>
> Ale uvolni, predkem je TList, ktery v Destroy vola Clear, ten vola
> pro vsechny polozky Delete, Delete vola Notify a Notify je v
> TObjectList prekryto tak, ze uvolni objekt.
Pravda, koukal jsi lepe.
Ja jsem tam jen tak "mrknul".
> Mnohem lepsi a cistsi je prekryt metodu Clear, ta je virtualni
> a stejne se vola v TList.Destroy.
Souhlas, to je cistsi..
Navic to uvolni objekty nejen pri Free, ale prave i pri tom Clear.
To je rozumne.
Ja jsem do toho sel jen tak narychlo, ci rekneme "strelba od boku".
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================TList.Free - mozna trochu OT
[*] Radim Kunz <rkunz(zv)casestudio(tec)com> - 6.3.2005 15:29:49
----- Original Message -----
From: "Jan Sebelik" <honza(zv)haes(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, March 06, 2005 3:19 PM
Subject: Re: TList.Free - mozna trochu OT
>> Zavolanim TList.Free nedochazi k uvolneni polozek na ktere je
>> odkazovano - tak je to psano v Delphi (u me D7) Helpu. Polozka stale
>> jsou alokovany v pameti. Je to logicke, Delphi (u me D7) nevi,
>> jake polozky jsou v TList, proto je ani nemuze poradne uvolnit.
>
> At hledam, jak hledam, v helpu (D7) nevidim, ze by pri TList.Free melo
> dojit k uvolneni polozek.
> Koukam do helpu (D7) a u TList metodu Free vubec nevidim - pouze inherited
> z TObject.
>
> Ono to taky neni dost dobre mozne:
> property Items[i] je typu Pointer, nikoli TObject, takze TList muze ve
> svem destruktoru tezko volat:
> for i := 0 to Count-1 do
> Items[i].Free;
>
> Jeste je tam trida TObjectList, ktera ma
> property Items[i]: TObject;
> U te bych tedy ocekaval, ze Items v destruktoru uvolni.
> Kdyz ale koukam do zdrojaku - zda se, za taky neuvolni.
Ale uvolni, predkem je TList, ktery v Destroy vola Clear, ten vola
pro vsechny polozky Delete, Delete vola Notify a Notify je v
TObjectList prekryto tak, ze uvolni objekt.
>
> Asi nejjednodussi je (pozor, pisu z hlavy)
>
> TMyObjectList = class(TList)
> protected
> function GetItem(Index: Integer): TObject; virtual;
> procedure SetItem(Index: Integer; AObject: TObject); virtual;
> public
> destructor Destroy; override;
> property Items[Index: Integer]: TObject read GetItem write SetItem;
> default;
> end;
>
> destructor TMyObjectList.Destroy;
> var i:Integer;
> begin
> for i:=0 to Count-1 do
> Items[i].Free;
> inherited;
> end;
>
Mnohem lepsi a cistsi je prekryt metodu Clear, ta je virtualni
a stejne se vola v TList.Destroy.
Radim
>
> A mam to pod kontrolou...
>
> Honza
TList.Free - mozna trochu OT
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 6.3.2005 15:19:45
> Zavolanim TList.Free nedochazi k uvolneni polozek na ktere je
> odkazovano - tak je to psano v Delphi (u me D7) Helpu. Polozka stale
> jsou alokovany v pameti. Je to logicke, Delphi (u me D7) nevi,
> jake polozky jsou v TList, proto je ani nemuze poradne uvolnit.
At hledam, jak hledam, v helpu (D7) nevidim, ze by pri TList.Free melo dojit k uvolneni polozek.
Koukam do helpu (D7) a u TList metodu Free vubec nevidim - pouze inherited z TObject.
Ono to taky neni dost dobre mozne:
property Items[i] je typu Pointer, nikoli TObject, takze TList muze ve svem destruktoru tezko volat:
for i := 0 to Count-1 do
Items[i].Free;
Jeste je tam trida TObjectList, ktera ma
property Items[i]: TObject;
U te bych tedy ocekaval, ze Items v destruktoru uvolni.
Kdyz ale koukam do zdrojaku - zda se, za taky neuvolni.
Asi nejjednodussi je (pozor, pisu z hlavy)
TMyObjectList = class(TList)
protected
function GetItem(Index: Integer): TObject; virtual;
procedure SetItem(Index: Integer; AObject: TObject); virtual;
public
destructor Destroy; override;
property Items[Index: Integer]: TObject read GetItem write SetItem; default;
end;
destructor TMyObjectList.Destroy;
var i:Integer;
begin
for i:=0 to Count-1 do
Items[i].Free;
inherited;
end;
function TMyObjectList.GetItem(Index: Integer): TObject;
begin
Result:= inherited Items[Index];
end;
procedure TMyObjectList.SetItem(Index: Integer; AObject: TObject);
begin
inherited Items[Index] := AObject;
end;
A mam to pod kontrolou...
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================Zjisteni rychlosti FTP prenosu
[*] rpoli(zv)email(tec)cz - 6.3.2005 15:05:41
Zdravim,
nevite prosim vas nekdo jak v Delphi zjistim rychlost prenosu pri downloadu pres FTP?Hodnota cisla za desetinnou carkou
[*] Fait <develop(zv)lmss(tec)cz> - 6.3.2005 13:57:36
> Obavam se ze tazatel se tazal tak na max4 des. mista a to si
> myslim je dostacujici.
>
Ano, slo o zjsisteni cislice na desetinne, pripadne setinne pozici.
Ucel, proc to potrebuji vedet, byl zaokrouhleni na desetnik
nahoru.....puvodne.....
Proto mi konstrukce "vysledek:=trunc(Hodnota*power(10,pozice))mod 10 ....kdy
pozice je 2 pro setiny" dostacuje......
Jirka
Zaokrouhleni na padesatnik
[*] John Bricklayer <bricklayer(zv)seznam(tec)cz> - 6.3.2005 12:31:30
>To je ale plodna debata. Je s podivem, co vsechno se muzeme dozvedet na zaklade tak jednoducheho dotazu. Ale ja bych se vratil k puvodnimu problemu. >Snahu zaokrouhlovat bych prenechal vestavene funkci Round. Ta sice nema zadne parametry, na ktere misto chceme zaokrouhlit, ale to vsichni vedi, jak to >obejit nasobenim a delenim. Pak se staci zamyslet jak to ponasobit v pripade toho padesitniku a vyjde nam tohle.
>
>Round(X*2)/2
>
>Kellner
>
No ja nevim ale
trunc((hodnota+0,25)*2)/2;
je upne to same, pokud vim tak FPU pri fn FRNDINT (coz je tve Round) interne stejne 0,5 pricte a usekne :-),
akorat pocetne to je obracene.
viz trunc(hodnota*2+0,5)/2
JB
TList.Free - mozna trochu OT
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 6.3.2005 11:59:27
Ahoj,
narazil jsem na problem, ktery by mozna mohl trapit i jine.
Zavolanim TList.Free nedochazi k uvolneni polozek na ktere je odkazovano - tak je to psano v Delphi (u me D7) Helpu. Polozka stale
jsou alokovany v pameti. Je to logicke, Delphi (u me D7) nevi, jake polozky jsou v TList, proto je ani nemuze poradne uvolnit.
Musite je rucne uvolnit a az pak uvolnit TList.
Pokud je to jen "jednoduchy" pointer staci treba:
for i := 0 to TList.Count-1 do
begin
Tmp := TList.Items[i];
Dispose(Tmp);
Tmp := nil;
end;
Mozna to vsichni vite, mozna to je nekde v QC (nenasel jsem - ale nejak mi pripada, ze nefunguje to jejich hledani) napsane (ale v
Helpu neopravene), tak me kdyztak nekamenujte.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Hodnota cisla za desetinnou carkou
[*] John Bricklayer <bricklayer(zv)seznam(tec)cz> - 6.3.2005 10:57:23
>>> Result:=trunc(Hodnota*power(10,pozice))mod 10;
>
>> To je presne ono......dik
>
>Obavam se, ze ne. To nezjistuje cislici v puvodnim cisle 'hodnota',
>ale ve vysledku jejiho soucinu s jinym (pro pozice<0 dokonce
Obavam se ze tazatel se tazal tak na max4 des. mista a to si myslim je dostacujici.
To by jsme potom nesmeli verit slovum vyrobce ze
rozsah presnost velikost v bytech
Single 1.5 x 10^-45 .. 3.4 x 10^38 7-8 4
Double 5.0 x 10^-324 .. 1.7 x 10^308 15-16 8
Extended 3.6 x 10^-4951 .. 1.1 x 10^4932 19-20 10
Jen k te presnosti. Presnost neni pocet desetinych mist ale cisel celkove (pred i za des teckou).
Pokud pracuji s cisli do milionu a zjistuji pozice des. mist max.5 tak si myslim ze double je postacujici.
Potom jeste existuje Extended. A navic bych detaily nechal FPU. Rad bych vedel jak by jsis s tim po-
ratil v assembleru, kdyby jsi nemel podpurne nastroje jako delphi. Kde jsou casy Z80 a clovek nemel FPU
a vsechny vypocty se delali programove a kazdymu to stacilo protoze vedel na cem je.
Kdyz vim presnost cisla tak tu chybu neudelam. A navic od urcitych hodnot existuji "kvuli presnosti cisla"
exponenty. Myslim ze nejspis proto ze jsme (lide) jeste neudelali vykonejsi FPU pro sva PC. Treba nekdy
v daleke budoucnosti budou zvladat FPU pocitat s cisli v rozsahu extended bez exponentu (utopie).
JB
TJclEmail
[*] RTE <rtepema(zv)mbox.vol(tec)cz> - 6.3.2005 10:53:22
Zdravim a prosi m o pomoc.
V aplikaci pouzivam k odesilani emailu TJclEmail. Pod W98SE, W2000 je
vse OK. Pod WXP prof SP2 se vyskytne nasledujici prroblem
(SimpleMapiMail := TJclEmail.Create):
Naplneni adresy, zpravy a priloh je OK, zadna chyba. Pri volani
try
try
if SimpleMapiMail.Send(DialogCheckBox.Checked) then
begin
Label3.text:='8a'; //pomocne prikazy pro sledovani pod WXP Prof
........
end
else
begin
Label3.text:='8b'; //pomocne prikazy pro sledovani pod WXP Prof
Memo2.Lines.Add('Zprava nebyla odeslana');
end;
except
On E:Exception do
ShowMessage('Chyba');
end;
finally
Showmessage('OK');
end;
Pokud volani SimpleMapiMail.Send neosetrim blokem try..except..end, pri
volani se nezobrazi zadna vyjimka a program skoci do casti finally..end;
Nevim, co delam spatne. Vynuceni kompatibility pro W2000 nepomaha.
Delphi5 SP1, W2000 prof CZ, JCL V1.9.
Petr Marik
Zaokrouhleni na padesatnik
[*] Lukas Barton <lukas(zv)cnawr(tec)cz> - 6.3.2005 10:47:22
Praktik SW wrote:
>To je ale plodna debata. Je s podivem, co vsechno se muzeme dozvedet na zaklade tak jednoducheho dotazu. Ale ja bych se vratil k puvodnimu problemu. Snahu zaokrouhlovat bych prenechal vestavene funkci Round. Ta sice nema zadne parametry, na ktere misto chceme zaokrouhlit, ale to vsichni vedi, jak to obejit nasobenim a delenim. Pak se staci zamyslet jak to ponasobit v pripade toho padesitniku a vyjde nam tohle.
>
>Round(X*2)/2
>
>Kellner
>
>
>
>
Ahoj,
na zakourouhleni na jisty pocet mist je tady RoundTo.
A potom jeste SetRoundMode a Set8087CW, kterymy se nastavuje jak se ma
RundoTo chovat.
Lukas
Zaokrouhleni na padesatnik
[*] Lukas Barton <lukas(zv)cnawr(tec)cz> - 6.3.2005 10:41:21
Praktik SW wrote:
>To je ale plodna debata. Je s podivem, co vsechno se muzeme dozvedet na zaklade tak jednoducheho dotazu. Ale ja bych se vratil k puvodnimu problemu. Snahu zaokrouhlovat bych prenechal vestavene funkci Round. Ta sice nema zadne parametry, na ktere misto chceme zaokrouhlit, ale to vsichni vedi, jak to obejit nasobenim a delenim. Pak se staci zamyslet jak to ponasobit v pripade toho padesitniku a vyjde nam tohle.
>
>Round(X*2)/2
>
>Kellner
>
>
>
>
Ahoj,
na zakourouhleni na jisty pocet mist je tady RoundTo(...):
Rounds a floating-point value to a specified digit or power of ten using
�Banker�s rounding�.
Unit
Math
Category
Arithmetic routines
type TRoundToRange = -37..37;
function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;
Description
Call RoundTo to round AValue to a specified power of ten.
AValue is the value to round.
ADigit indicates the power of ten to which you want AValue rounded. It
can be any value from �37 to 37 (inclusive).
RoundTo uses �Banker�s Rounding� to determine how to round values that
are exactly midway between the two values that have the desired number
of significant digits. This method rounds to an even number in the case
that AValue is not nearer to either value.
The following examples illustrate the use of RoundTo:
Expression Value
RoundTo(1234567, 3) 1234000
RoundTo(1.234, -2) 1.23
RoundTo(1.235, -2) 1.24
RoundTo(1.245, -2) 1.24
Note: The behavior of RoundTo can be affected by the Set8087CW procedure
or SetRoundMode function.
A potom jeste SetRoundMode functio:
type TFPURoundingMode = (rmNearest, rmDown, rmUp, rmTruncate);
function SetRoundMode(const RoundMode: TFPURoundingMode): TFPURoundingMode;
Description
Call SetRoundingMode to specify how the FPU handles rounding issues. The
rounding mode can be any of the following values:
Value Meaning
rmNearest Rounds to the closest value.
rmDown Rounds toward negative infinity.
rmUp Rounds toward positive infinity.
rmTruncate Truncates the value, rounding positive numbers down and
negative numbers up.
LUkas
PS: cituji z helpu k Delphi.
TJvSpinEdit
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 6.3.2005 10:01:18
Preposilam dotaz od kolegy....
>--------------------------
>Zdar,
>pouzivam TJvSpinEdit, mam nastaven Thousands na true. Bohuzel ale v
>pripade, ze se mi tam vlozi dana mezera jako oddelovac tisicu, bohuzel
>se mi neposune kurzor. Kurzor by se mel posunout o 2 znaky (mezera a
>dane cislo), ale posune se jen o jedna. Coz samozrejme pri rychlejsim
>psani velkych cisel dela neplechu. Hledal jsem ve zdrojaku hledal a
>nenasel... Nevite nekdo, jak z toho ven? Prosim nedoporucujte jinou
>komponentu, nebo vypnuti Thousands, potrebuji vyresit toto
>
>Diky
>
>Brona
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
---------------------------------------------------------------------------
Text na Canvasu do obdelniku
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 6.3.2005 09:49:15
> aby se rozdelil na vice radku po slovech a aby byl text co nejvetsi.
Ja bych nejdrive text posekal na slova do nejakeho stringlistu a pak
bych udelal cyklus pro pocet radku od 1 vzestupne, kde bych volal
fukci pro overeni, zda se text vleze.
Ta funkce by pro vyska_fontu:=vyska_okna/pocet_radku spocitala
potrebnou sirku pro kazde slovo a pak jeste pro mezeru a skladala by v
cyklu slova (t.j. ty delky) do radku, dokud se slova nebo radky
nevycerpaji. A podle toho, co se vycerpalo jako prvni, bych vratil
true nebo false.
Jeste se nesmi zapomenout na pripad, ze by vyska fontu vychazela
mensi, nez treba 5 bodu, to uz musi funkce vratit true (nebo
Exception?), i kdyz se text nevleze.Hodnota cisla za desetinnou carkou
[*] Jan Novak <delfin4(zv)volny(tec)cz> - 6.3.2005 09:31:10
>> Result:=trunc(Hodnota*power(10,pozice))mod 10;
> To je presne ono......dik
Obavam se, ze ne. To nezjistuje cislici v puvodnim cisle 'hodnota',
ale ve vysledku jejiho soucinu s jinym (pro pozice<0 dokonce
desetinnym!) cislem, coz ve dvojkove reprezentaci muze zpusobit
rozdil. Krome toho vysledek kazdeho nasobeni ma (hrube receno)
dvojnasobnou presnost jako operandy a pri prevodu vysledku do
presnosti operandu se POLOVINA nejnizsich radu zahazuje. Zkus to pro
32-bit integer s cisly pres 20 milionu...
Pokud pozadavek striktne trva na tom, ze vysledek se ma tykat puvodni
hodnoty, nelze nez prevest tuto hodnotu (a to jeste stejnou funkci, se
kterou se ma vysledek shodovat!) na retezec a z nej vyndat znak na
pozadovane pozici.Zaokrouhleni na padesatnik
[*] Praktik SW <praktik.sw(zv)seznam(tec)cz> - 6.3.2005 08:33:05
To je ale plodna debata. Je s podivem, co vsechno se muzeme dozvedet na zaklade tak jednoducheho dotazu. Ale ja bych se vratil k puvodnimu problemu. Snahu zaokrouhlovat bych prenechal vestavene funkci Round. Ta sice nema zadne parametry, na ktere misto chceme zaokrouhlit, ale to vsichni vedi, jak to obejit nasobenim a delenim. Pak se staci zamyslet jak to ponasobit v pripade toho padesitniku a vyjde nam tohle.
Round(X*2)/2
Kellner
Zjisteni verze FB
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 6.3.2005 01:26:35
ve wisql je prikaz "display connect version"
ktery vrati tohle:
SHOW VERSION
ISQL Version: WI-V5.5.0.742
Firebird/x86/Windows NT (access method), version "WI-V1.5.2.4721
Firebird 1.5"
Firebird/x86/Windows NT (remote server), version "WI-V1.5.2.4721
Firebird 1.5/tcp (nemo)/P10"
Firebird/x86/Windows NT (remote interface), version "WI-T1.5.0.3773
Firebird 1.5 Release Candidate 5/tcp (nemo)/P10"
on disk structure version 10.1
Takze se podivej do api, nekde to tam musi byt, pripadne pres isql, ale
....
Slavek
> DD,
> netusite nekdo, jak zjistit verzi FB, ktera je spustena na serveru ?
> (Potrebuju to zjistit vc. release)Hodnota cisla za desetinnou carkou
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 6.3.2005 01:22:35
Co takle help a kouknout se na ceil a floor ?
Hlavne NE pres string, to je opravdu blbost, pak
se muzes teprve divit.
Je rozdil, jestli zaokrouhlujes, nebo jestli zobrazujes.
Pri zaokroulovani vznikaji chyby (nektera cisla proste
neexistuji a tak se misto nich uchovava
pouze priblizna hodnota) a proto se cisla pri zobrazeni
automaticky mirne zaokrouli, ale zalezi na koli mist.
Take zalezi na tom, jak se FPU zrovna vyspal, respektive, kdo
jej vyrobil, jelikoz se posledni mista z dovodu rychlosti
spise odhaduji, nez pocitaji.
Takze zobrazeni 0.00 (to je formatovaci retezec)
muze vyjit 1.45 ale 0.000 muze byt 1.447.
Co je spravne 4, nebo 5 ?
Tento problem muze byt na libovolnem miste.
Slavek
> Zkusil.....nefunguje......protoze to neni to co chi.
> napr: pri cisle 1,475 to vrati 8 ale ja potrebuji 7.
>
> Ja chci jenom zjistit, jestli existuje nejaka funkce ktera by
> mi rekla, ze na 2 miste za desetinnou carkou je cislo 6.
> Nechci zaokrouhlovat na setinz desetiny....atd, chci jenom tu cislici.
>
> Nejblize je asi skutecne prevod na string a pak dotaz pomoci
> pos() a vykousnuti znaku a prevod na cislo. Ale rekl bych, ze
> to musi jit jinak.......
>
> Jirka
>
>
>
>
> objektova architekuta, Visitor
[*] Radim Kunz <rkunz(zv)casestudio(tec)com> - 5.3.2005 22:38:21
----- Original Message -----
From: "Jan Sebelik" <honza(zv)haes(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, March 05, 2005 10:39 AM
Subject: Re: objektova architekuta
>> IMHO bod (kruh, ctverec, ...) ma mit i jakesi obecne poneti o tom, jak
>> vypada. Fyzicke kresleni ale musi byt realizovano jinak, protoze jinak se
>> kresli na WinForm, jinak na WebForm atp.
>
> Tak, tak, to je presne,
> tak nejak jsem se to pak snazil vyjadrit.
>
> Jako ze ctverec zna sve ctyri vrcholy a svoje ctyri strany, vi, ze vsechno
> se "nejak" nakreslit musi, ale nevi, jestli se kresli na Canvas formulare
> neho na tiskarnu nebo nekam do pisku.
>
> Jenze to uz jsme ulitli moc daleko, tak jsem toho nechal.
>
> Honza
> ====================================
Takhle by se to mohlo resit pomoci vzoru Visitor, nejspis tam bude par chyb,
nekompiloval jsem to.
objekty vykreslis tak, ze je projdes a zavolas:
(NejakyGrafickyObjekt as IVisitable).Accept(PaintVisitor)
tady jsou tridy a interfaces
IVisitor = interface;
IVisitable = interface
procedure Accept(Value:IVisitor);
end;
ICara = interface
p1:TPoint;
p2:TPoint;
end;
ICtverec = interface
r:TRectangle;
end;
IVisitor = interface
procedure VisitCara(Value:ICara);
procedure VisitCtverec(Value:ICtverec);
end;
TPaintVisitor = class(TInterfacedObject,IVisitor)
procedure VisitCara(Value:ICara);
procedure VisitCtverec(Value:ICtverec);
end;
TCara = class(TInterfacedObject, IVisitable, ICara)
public
procedure Accept(Value: IVisitor);
end;
TCtverec = class(TInterfacedObject, IVisitable, ICtverec)
public
procedure Accept(Value: IVisitor);
end;
implementation
{ TPaintVisitor }
procedure TPaintVisitor.VisitCara(Value: ICara);
begin
Canvas.MoveTo(Value.p.x,Value.p.y);
Canvas.LineTo(Value,p2.x,Value.p2.y);
end;
procedure TPaintVisitor.VisitCtverec(Value: ICtverec);
begin
Canvas.Rectangle(Value.r.Left,Value.r.Top,Value.r.Width,Value.r.Height);
end;
{ TCara }
procedure TCara.Accept(Value: IVisitor);
begin
Value.VisitCara(Self);
end;
{ TCtverec }
procedure TCtverec.Accept(Value: IVisitor);
begin
Value.VisitCtverec(Self);
end;
graficky objekt nemusi vedet nic o vykreslovani, canvasu atd. Pokud chces
pridat
objektum dalsi moznost, staci pripsat dalsi visitor.
Nevyhody: Visitor musi znat vsechny tridy, muze pracovat jen s publikovanymi
vlastnostmi objektu.
Radim
Zjisteni verze FB
[*] Jiri Baudys <konference(zv)baudys.name> - 5.3.2005 22:30:21
DD,
netusite nekdo, jak zjistit verzi FB, ktera je spustena na serveru ?
(Potrebuju to zjistit vc. release)Hodnota cisla za desetinnou carkou
[*] Fait <develop(zv)lmss(tec)cz> - 5.3.2005 22:24:20
> Jezisku, tak vynasobis stem, udelas trunc a na miste jednotek
> mas to cislo, ne?
>
No jo....a pak se ale zeptam, jak zjistim, jaka cislice je na miste
jednotek....:)
Uz me nakopl John......to je presne to co jsem potreboval.
Jirka
Hodnota cisla za desetinnou carkou
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 5.3.2005 22:10:19
Puvodni zprava ze dne 5.3.2005:
> Ja chci jenom zjistit, jestli existuje nejaka funkce ktera by mi
> rekla, ze na 2 miste za desetinnou carkou je cislo 6. Nechci
> zaokrouhlovat na setinz desetiny....atd, chci jenom tu cislici.
> Nejblize je asi skutecne prevod na string a pak dotaz pomoci pos() a
> vykousnuti znaku a prevod na cislo. Ale rekl bych, ze to musi jit
> jinak.......
Jezisku, tak vynasobis stem, udelas trunc a na miste jednotek mas to
cislo, ne?
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Hodnota cisla za desetinnou carkou
[*] Fait <develop(zv)lmss(tec)cz> - 5.3.2005 22:08:18
> Skus fn
>
> hodnota = zjistovane cislo
> pozice = pozice za des.teckou(zacina 1.. )
>
> *********************
>
> function GetNumAtPos(Hodnota:double;pozice:byte):byte;
> begin
> Result:=trunc(Hodnota*power(10,pozice))mod 10;
> end;
>
To je presne ono......dik
Jirka
Hodnota cisla za desetinnou carkou
[*] Fait <develop(zv)lmss(tec)cz> - 5.3.2005 22:06:18
> Zkusil jsi to vubec, nebo jen tak porad remcas, ze neco nejde ?
>
> setiny=(Round(cislo*100)) mod 10;
Zkusil.....nefunguje......protoze to neni to co chi.
napr: pri cisle 1,475 to vrati 8 ale ja potrebuji 7.
Ja chci jenom zjistit, jestli existuje nejaka funkce ktera by mi rekla, ze
na 2 miste za desetinnou carkou je cislo 6.
Nechci zaokrouhlovat na setinz desetiny....atd, chci jenom tu cislici.
Nejblize je asi skutecne prevod na string a pak dotaz pomoci pos() a
vykousnuti znaku a prevod na cislo.
Ale rekl bych, ze to musi jit jinak.......
Jirka
ticha/signalizovana NAN
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 5.3.2005 22:00:17
uz sem %subj% parkrat nekde videl ... ve stylu "ticha NAN" ci "signalizovana
NAN" ... mohl by mi nekdo objasnit o co jde ?
Hodnota cisla za desetinnou carkou
[*] John Bricklayer <bricklayer(zv)seznam(tec)cz> - 5.3.2005 21:24:14
>Jak zjistim hodnotu cisla za desetinnou carkou? Je na to nejaka funkce?
>
Skus fn
hodnota = zjistovane cislo
pozice = pozice za des.teckou(zacina 1.. )
*********************
function GetNumAtPos(Hodnota:double;pozice:byte):byte;
begin
Result:=trunc(Hodnota*power(10,pozice))mod 10;
end;
*********************
pokud chces se zaokrouhlenim staci jen pridat 0,5
function GetRoundNumAtPos(Hodnota:double;pozice:byte):byte;
begin
Result:=trunc((Hodnota*power(10,pozice))+0,5)mod 10;
end;
*********************
Nebo muzes udelat fn kde bude 0,5 podminena promennou na vstupu a mas univerzalni fn,
ale podminka a dve operace zpomali fn (pokud ji budes volat jen jednou tak to samozrejme neber vazne,
ono samo volani fn dost zpomaluje :-)
function GetNumAtPos(Hodnota:double;pozice:byte;zaokrouhleno:boolean):byte;
var x:double;
begin
if zaokrouhleno then x:=0,5 else x:=0;
Result:=trunc((Hodnota*power(10,pozice))+x)mod 10;
end;
snad to pomuze JB
Text na Canvasu do obdelniku
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 5.3.2005 19:28:06
DrawText
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/fontext_0odw.asp
pokud pouzijes parametr DT_WORDBREAK a DT_CALCRECT tak to zalomi text a
vrati to vysku obdelniku. Diky tomu pak muzes menit velikost fontu dle potreby.
>potrebuju na Canvasu vypsat text do zadaneho obdelniku, ale tak, aby se
>rozdelil na vice radku po slovech a aby byl text co nejvetsi. V pripade,
>ze je vyska obdelniku vetsi nez sirka, text musim vypsat vertikalne.
>
>Narazim na 2 problemy:
>
>1. jak spocitat optimalni pocet radku (to by jeste celkem slo), a kdyz
>mam pocet radku, jak stanovit, kolik slov na kterem radku bude.
>
>2. Jak stanovit nejvetsi moznou velikost fontu.
>
>
>Muzete nekdo poradit? Existuje na toto nejake hotove reseni? 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
---------------------------------------------------------------------------
Text na Canvasu do obdelniku
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 5.3.2005 19:12:04
Karel Pecinka wrote (on Saturday, March 05, 2005 7:06 PM):
> Muzete nekdo poradit? Existuje na toto nejake hotove reseni?
Nevim jestli je nejake hotove (urcite nekde jo).
Ja spis pridam postreh. Canvas ma metody TextWidth(String) a TextHeight(String), cili by se to dalo pouzit na zkouseni, jestli se
tam dany text vejde.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Text na Canvasu do obdelniku
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 5.3.2005 19:06:04
Cau,
potrebuju na Canvasu vypsat text do zadaneho obdelniku, ale tak, aby se
rozdelil na vice radku po slovech a aby byl text co nejvetsi. V pripade,
ze je vyska obdelniku vetsi nez sirka, text musim vypsat vertikalne.
Narazim na 2 problemy:
1. jak spocitat optimalni pocet radku (to by jeste celkem slo), a kdyz
mam pocet radku, jak stanovit, kolik slov na kterem radku bude.
2. Jak stanovit nejvetsi moznou velikost fontu.
Muzete nekdo poradit? Existuje na toto nejake hotove reseni?
Diky Karel
16 vs 32 vs 64 bitu
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 5.3.2005 18:20:01
>
>Vylucne? Nevim, snad zadny, nebo zanedbatelne minimum. Vzdy by tam mel
>hnizdit nejaky slusnejsi server. Uz proto, ze MS SQL je na W98 tak jako tak
>problematicka. Ted mam na mysli Dochazku.
no, pravda - pusit MS SQL na Win98 je fakt hlina :-D
> > - je pro ne jina alternativa - existuje konkurecni aplikace,
>
>Jiste. :) Vtip je v tom, ze konkurence je bohata, a pokryti low-level trhu
>je mohutne, presycene. Smysl ma tedy nabizet to, co ostatni nemaji.
Pak neni co resit. Me se (doufam) podarilo vystourat obor, kde chybi neco
uprostred - ale i tak jako ty nabizim to co neni. Nicmene pokud je zde trh
presycen - pak je reseni jasne.
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
---------------------------------------------------------------------------
Hodnota cisla za desetinnou carkou
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 5.3.2005 17:53:59
Zkusil jsi to vubec, nebo jen tak porad remcas, ze neco nejde ?
setiny=(Round(cislo*100)) mod 10;
Slavek
PS: Round lze nahradit dle potreby pomoci floor nebo ceil, ale
to uz je nutne cist i help, nebo spusit delphi.
> To je presne to o co jde......nepotrebuji vedet jestli
> HODNOTA za desetinnou carkou je 0.06999 nebo jestli to je
> 0.07, ale to ze na 2 miste za desetinnou carkou je v tomto
> pripade 6 bez ohledu na aritmetiku, zaokrouhlovani atd.
>
> Diky
>
>
>
> 16 vs 32 vs 64 bitu
[*] lelicek(zv)volny(tec)cz - 5.3.2005 17:33:57
Kdysi jsem od nejakeho pracovnika IBM cetl, ze minimalni mnozstvi
lidi pracujicich na jednom projektu (vyvojaru) je 40. Duvodem je
mnozstvi podporovanych platforem (proste to musi byt pro vsecny
"podstatne") a proto se mnoho projetu proste ani neotevre. Dle
stejneho cloveka to byl duvod masivniho prechodu IBM do sveta JAVA.
Jak ti to pomuze to nevim, ale asi to stoji za zamysleni.
Pavel
> From: "Zbysek Hlinka" <konference(zv)hlinka(tec)cz>
> > Mam tedy delat aplikaci dvojmo tak, aby chodila i na krapech?
> > Mam na takovou
> > politiku vubec penize?
>
> No to je asi ta jedina podstatna otazka :-) Budto si muzes
> dovolit o takove
> zakazniky prijit a nezblaznit se z tech ruznych srotu co kde
> jeste provozuji
> protoze to "nejak funguje" a jeste treba neprisli o data ktere
> kolikrat jiste
> ani nezalohuji, anebo s tim budes muset zit a morit se nadale s
> vyvojovymi
> nastroji ktere produkuji idealni aplikace pro tento segment (a
> nechat si to
> nalezite ohodnotit).
>
> Petr Vones
>
--
Levnejsi internet v pracovni dny jiz od 18:00 hod.
Surfujte s VOLNY!
http://mimospicku.volny(tec)cz
16 vs 32 vs 64 bitu
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 5.3.2005 17:31:57
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Tomas Rosa
> Sent: Saturday, March 05, 2005 4:14 PM
>
> >Mam tedy delat aplikaci dvojmo tak, aby chodila i na krapech? Mam na
> >takovou politiku vubec penize?
>
> obavam se ze na tuto otazku si musis odpovedet sam. Takze
Uz jsem si odpovedel. To byla jen recnicka otazka. :)
> snad jen par doplnujicich otazek:
>
> - co vyuzivas ve sve aplikaci takoveho ze to nebezi na win9x?
.NET.
> - lze to ozelit, aniz by to bylo na ukor aplikace?
Ne.
> - kolik tvych zakazniku ma prave ony win9x?
Vylucne? Nevim, snad zadny, nebo zanedbatelne minimum. Vzdy by tam mel
hnizdit nejaky slusnejsi server. Uz proto, ze MS SQL je na W98 tak jako tak
problematicka. Ted mam na mysli Dochazku.
> - je pro ne jina alternativa - existuje konkurecni aplikace,
Jiste. :) Vtip je v tom, ze konkurence je bohata, a pokryti low-level trhu
je mohutne, presycene. Smysl ma tedy nabizet to, co ostatni nemaji.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz