Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Prevod carky na tecku u vkladani desetinneho cisla
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 26.4.2004 13:19:41
Tak to udelej uplne jinak:
Query.SQL.Add('update TABULKA set HODNOTA = :Hodn where ID = :IDecko')
Query.ParamByName('Hodn').AsFloat:= T1.Fields[0].AsFloat;
Query.ParamByName('IDecko').AsInteger:= T2.Fields[0].AsInteger;
a pak tu Query normalne spustis a mas vystarano a bez problemu s narodnim
nastavenim.
Zdravim
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
v Delphi si vytvarim SQL dotaz, ktery si posilam na FB 1.5.
SQL dotaz vytvarim zhruba takto:
dotaz := format('update TABULKA set HODNOTA = %f where ID = %d',
[T1.Fields[0].AsFloat, T2.Fields[0].AsInteger]);
Stale jsem nemohl prijit na to, proc se mi parametr AsFloat vklada
do dotazu
s desetinnou carkou (coz zpusobovalo chybu SQL), kdyz se mi ve Watch
Listu
zobrazuje s desetinnou teckou.
Po delsim case jsem zjistil, ze je to nastavenim narodniho prostredi
v
ovladacich panelech Windows.
Musel jsem si proto udelat funkci na prevod z Float na String,
nahradit
pripadnou carku za tecku a vysledny retezec vlozit do dotazu:
dotaz := format('update TABULKA set HODNOTA = %s where ID = %d',
[PrevodNaTecku(T1.Fields[0].AsFloat), T2.Fields[0].AsInteger]);
Nyni se ptam, zda jsem nahodou nezapomnel na nejaky jiny zpusob, jak
vlozit
Float do SQL tak, aby se vlozil vzdy s teckou.
Prevod carky na tecku u vkladani desetinneho cisla
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 26.4.2004 13:21:42
Ahoj,
nastav si promennou DecimalSeparator na '.'.
var
ds: Char;
...
begin
...
ds:=DecimalSeparator;
DecimalSeparator:='.';
...
DecimalSeparator:=ds;
...
end;
Peca
Viceradkove memo pres SQL
[*] Petr Brada, uniCODE systems <brada(zv)unicodesys(tec)cz> - 26.4.2004 13:21:41
Zdravim,
ja memo ukladam pres property stringlistu CommaText - je tam prevedeny obsah
celeho mema do jednoho stringu
Ukladam pres ulozenou proceduru:
SP1.Parameters[x].Value := memo1.Lines.CommaText
Nacteni z datasetu:
memo1.Lines.CommaText := DataSet.FieldByName('xy').AsString
Petr Brada
> Zdravim,
>
> nevite prosim nekdo, jak ulozit obsah viceradkoveho mema do databaze
> pres SQL dotaz? Existuje nejaky znak, kterym bych mohl nahradit Enter
> tak, aby to potom Interbase zpet prelozil jako Enter?
>
> Diky za odpoved.
>
> Karel
> D5, IB6
>
>
>
OT: nabidka zamestnani (Ostrava)
[*] Radim Kunz <rkunz(zv)casestudio(tec)com> - 26.4.2004 13:37:46
Zdravim:
nase firma hleda programatora
podminky:
dobra znalost Delphi,
dobra znalost OOP,
pasivni znalost anglictiny (aktivni znalost vyhodou)
ochota ucit se novym vecem.
samostatnost
schopnost analyzy problemu
nejde o databazove aplikace.
nabizime zajimavou praci v super kolektivu
pouze hpp, pracoviste v Ostrave-Hrabuvce
nastupni termin v cervnu, pripadne podle dohody.
odpovidejte na adresu jobs(zv)casestudio.com
Radim Kunz
CHARONWARE, s.r.o.
OT: Svetovy den dusevniho vlastnictvi
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 26.4.2004 13:25:43
Ahoj,
vite, ze dnes je svetovy den dusevniho vlastnictvi? Tak mame vlastne
vsichni svatek :-)
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
nastaveni IBRestoreService
[*] David Fajfr <davidfajfr(zv)seznam(tec)cz> - 26.4.2004 13:25:44
From: "petr palicka" <palicka.petr(zv)seznam(tec)cz>
> Ahoj,
>
> BackupFile _musi_ byt na lokalnim disku serveru!
>
> Peca
Proc musi? Gbak umi provest obnovu z localu na server.
Zapis nize mi funguje, ale potrebuji totez dosahnout pomoci IBRestoreService.
gbak -R -T c:\database.fbk 62.204.224.20:f:\database.fdb -user SYSDBA -password masterkey
David
nastaveni IBRestoreService
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 26.4.2004 12:51:37
Ahoj,
BackupFile _musi_ byt na lokalnim disku serveru!
Peca
Prevod carky na tecku u vkladani desetinneho cisla
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 26.4.2004 13:17:40
> v Delphi si vytvarim SQL dotaz, ktery si posilam na FB 1.5.
> SQL dotaz vytvarim zhruba takto:
> dotaz := format('update TABULKA set HODNOTA = %f where ID = %d',
> [T1.Fields[0].AsFloat, T2.Fields[0].AsInteger]);
>
> Stale jsem nemohl prijit na to, proc se mi parametr AsFloat
> vklada do dotazu
> s desetinnou carkou (coz zpusobovalo chybu SQL), kdyz se mi
> ve Watch Listu
> zobrazuje s desetinnou teckou.
> Po delsim case jsem zjistil, ze je to nastavenim narodniho prostredi v
> ovladacich panelech Windows.
>
> Musel jsem si proto udelat funkci na prevod z Float na
> String, nahradit
> pripadnou carku za tecku a vysledny retezec vlozit do dotazu:
> dotaz := format('update TABULKA set HODNOTA = %s where ID = %d',
> [PrevodNaTecku(T1.Fields[0].AsFloat), T2.Fields[0].AsInteger]);
>
> Nyni se ptam, zda jsem nahodou nezapomnel na nejaky jiny
> zpusob, jak vlozit
> Float do SQL tak, aby se vlozil vzdy s teckou.
> Nebo se, prosim, podelte o to, jakym zpusobem toto resite vy.
Ahoj,
zkus neco jako
TmpDecSep : char;
...
TmpDecSep := DecimalSeparator; // odlozit DecimalSeparator
DecimalSeparator := '.'; // nastavit tecku
// tady formatuj dotaz
dotaz := format('update TABULKA set HODNOTA = %f where ID = %d',
[T1.Fields[0].AsFloat, T2.Fields[0].AsInteger]);
...
DecimalSeparator := TmpDecSep; // vratit DecimalSeparator
...
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Prevod carky na tecku u vkladani desetinneho cisla
[*] little_bobes(zv)centrum(tec)cz - 26.4.2004 13:09:39
Zdravim,
v Delphi si vytvarim SQL dotaz, ktery si posilam na FB 1.5.
SQL dotaz vytvarim zhruba takto:
dotaz := format('update TABULKA set HODNOTA = %f where ID = %d',
[T1.Fields[0].AsFloat, T2.Fields[0].AsInteger]);
Stale jsem nemohl prijit na to, proc se mi parametr AsFloat vklada do dotazu
s desetinnou carkou (coz zpusobovalo chybu SQL), kdyz se mi ve Watch Listu
zobrazuje s desetinnou teckou.
Po delsim case jsem zjistil, ze je to nastavenim narodniho prostredi v
ovladacich panelech Windows.
Musel jsem si proto udelat funkci na prevod z Float na String, nahradit
pripadnou carku za tecku a vysledny retezec vlozit do dotazu:
dotaz := format('update TABULKA set HODNOTA = %s where ID = %d',
[PrevodNaTecku(T1.Fields[0].AsFloat), T2.Fields[0].AsInteger]);
Nyni se ptam, zda jsem nahodou nezapomnel na nejaky jiny zpusob, jak vlozit
Float do SQL tak, aby se vlozil vzdy s teckou.
Nebo se, prosim, podelte o to, jakym zpusobem toto resite vy.
Diky Bob
(D4 c/s, FB 1.5)Windows2003 Server a IB/FB - dlouhe prodlevy
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 26.4.2004 12:51:36
> muzete mi nekdo rict, jestli je FB zespodu kompatibilni s 1.0.3
pouzivam taktez IBX komponenty a nemam zatim zadny problem
se serverem FB 1.5
Peca
Windows2003 Server a IB/FB - dlouhe prodlevy
[*] Jiri Virt <virt(zv)volny(tec)cz> - 26.4.2004 12:13:33
S tim jsem se setkal u IB6.0 neuveritelne dlouhy prodlevy an Win2003.Pomohlo
preinstalovat na FB 1.5 a vse je OK .
Jirka Virt
Windows2003 Server a IB/FB - dlouhe prodlevy
[*] js-delphi(zv)quick(tec)cz - 26.4.2004 11:41:30
Ahoj panove.
Koukal jsem do historie, ze uz se tady tohle tema probiralo docela casto, ale nejake zavazne resume nepadlo.
Bylo pojednavano, ze podobny problem se objevuje na WinXP a Win2003. Ja mam WinXP a chodi mi FB 1.0.3 uplne bez problemu. Bohuzel na Win2003 jsou opravdu velke prodlevy, ktere, dokud tam byl Win2k, drive nebyly.
Na tomto serveru pouzivame IB 6.01 a tak se domnivam, ze prechod na FB 1.0.3 bude zpusobovat stejne problemy.
Asi se Vas s timto problemem setkalo uz vice a museli jste ho nejak resit. Podotykam, ze uz jsem zmenil priponu databazi z *.gdb na *.idb, vypnul System Restore na disku, kde je databaze, ale vysledek je porad stejny.
Jeden clovicek (omlouvam se, ze jsem zapomnel jmeno) tady radil prechod na FB 1.5 - muzete mi nekdo rict, jestli je FB zespodu kompatibilni s 1.0.3 nebo mi moje aplikace nepobezi - pouzivam klasicke komponenty z Delhi, zalozka InterBase (database, transakce, query, table, dataset)
Diky vsem za jakekoliv info.
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.0.3
programator amater
nastaveni IBRestoreService
[*] David Fajfr <davidfajfr(zv)seznam(tec)cz> - 26.4.2004 11:29:28
Ahoj,
nevite nekdo, jak nastavit TIBRestoreService, pokud chcete provest obnovu
databaze z lokalu na jiny pocitac?
Kod nize neprojde, protoze cilovy pocitac ocekava BackupFile na svem
lokalnim disku, kde ho pochopitelne nenajde.
with IBRestoreService do begin
Active := False;
LoginPrompt := False;
Params.Values['user_name'] := 'SYSDBA';
Params.Values['password'] := 'masterkey';
Protocol := TCP;
ServerName := 'IPAdresa';
Active := True;
Options := [CreateNewDB, UseAllSpace];
PageBuffers := 3000;
PageSize := 4096;
BackupFile.Text := 'C:\database.gdb';
DatabaseName.Text := 'IPAdresa:C:\database.gdb;
ServiceStart;
while not Eof do begin
GetNextLine;
Application.ProcessMessages;
end;
end;
Delphi 5 Prof., IBX 5.03
David
c++ jak to napsat v delphi
[*] Mgr. Zdenek Plachy <plachy(zv)plachy(tec)cz> - 26.4.2004 10:49:23
K problematice promenne f v 1.cyklu.
1. promenna f neni v cyklu deklarovana, ale pouze inicializovana hodnotou 0.
2. nezvetsuje se s i protoze pocita pocet pruchodu cyklem, kdy neni splnena
podminka pred prikazem continue.
Zdenek Plachy
Firebird lokalne
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 26.4.2004 09:45:17
Haj hou!
On 26 Apr 2004 at 9:19, dphi_forum(zv)proces.sk wrote:
> neexistuje nejaka kniznica pomocou ktorej by som pristupoval k databaze
> Firebirdu? Nechcem instalovat Firebird server, stacilo by mi nieco lokalne.
Firebird Client. Oficialni Windows Setup FB dovoluje nainstalovat
pouze klienta.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Firebird lokalne
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 26.4.2004 09:45:17
Ahoj
> neexistuje nejaka kniznica pomocou ktorej by som pristupoval k databaze
> Firebirdu? Nechcem instalovat Firebird server, stacilo by mi nieco lokalne.
>
> Stano
pouzij embeded server. je to jedna dll, ktera spojuje
klientskou knihovnu a dbserver do jednoho nastroje
pro lokalni a jednouzivatelsky pristup k databazi.
pokud potrebujes viceuzivatelsky pristup, nic jeneho,
nez normalni server pouzit nemuzes.
pro prohlizeni obsahu databazovych stranek (ne
pristup k datum) lze pouzit IBSurgeon od Devrace.
Peca
Firebird lokalne
[*] Dalibor <dalibor(zv)torola(tec)cz> - 26.4.2004 09:43:16
Existuje a docela to funguje. Rika se tomu Embedded Server.
Misto knihovny gds32.dll nebo fbclient pouzijes fbembed.dll
Stahnes to na
http://www.ibphoenix.com/main.nfs?a=ibphoenix&page=ibp_download_15
> Nazdarek,
>
> neexistuje nejaka kniznica pomocou ktorej by som pristupoval k databaze
> Firebirdu? Nechcem instalovat Firebird server, stacilo by mi nieco
lokalne.
>
> Stano
>
>update DocVariables v dokumentu
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 26.4.2004 09:23:14
Ladislav Cholinsky dne 23 Apr 2004 v 14:42:
> Problem je v tom, ze hodnota promenne "jmeno" se neprojevi, resp.
> projevi se az kdyz primo ve Wordu vlozim znova (Insert/Field/...)
Ahoj,
nestacilo by neco na zpusob "Oznacit vse" a "Aktualizovat"? (Kdyz ve wordu do toho pole najedes a
stisknes F9, tak se to hadam zaktualizuje spravne?)
Karel Rys
Firebird lokalne
[*] dphi_forum(zv)proces.sk - 26.4.2004 09:19:13
Nazdarek,
neexistuje nejaka kniznica pomocou ktorej by som pristupoval k databaze
Firebirdu? Nechcem instalovat Firebird server, stacilo by mi nieco lokalne.
Stano
Prepinani jazku za behu
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 26.4.2004 08:57:06
> -----Original Message-----
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Pavel Polak
> Sent: Sunday, April 25, 2004 11:34 PM
>
> - po nastaveni jazyka mi zmizi z menu polozky ktere jsem
> vytvoril za behu aplikace Da se toto chovani nejak ovlivnit?
Jo. Tyto polozky je nutne vytvorit znovu.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
OLE DB
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 26.4.2004 07:47:00
Ahoj,
no prave ze se tam bohuzel ukladaji a zobrazuji. Nemuze to byt tim ze
Personal Edition je treba nejaka divna?
Dalik.
> DF> Udelal jsem jednoduchy program s jednou ADOquery, datasetem a
DBGridem. Kdyz
> DF> se pak prihlasim jako patricny uzivatel, ale se spatnym heslem, tak
me sice
> DF> vyskoci hlaseni asi oraclu s chybou ORA-01017, ale kdyz to odklepnu,
tak si
> DF> klidne muzu do tabulky zadavat pres DBGrid. Cim to je?
>
> Ale urcite se tam nenactou aktualni data ani se zmeny v gridu nikam
> neukladaji.
>
c++ jak to napsat v delphi
[*] Petr Matejovsky <delphidev(zv)atlas(tec)cz> - 26.4.2004 01:24:33
Mas pravdu Delphi jsem opravdu naistalovane nemel jen sem tupe prepisoval
kod v notepadu. 2 roky jsem s Delphi nedelal a to potom clovek zapomene i
uplne zaklady.
Petr
----- Original Message -----
From: "Pavol Stugel, NETGraphics" <palo(zv)netgraphics.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, April 25, 2004 9:36 PM
Subject: Re: c++ jak to napsat v delphi
> > prepisuju jednu proceduru z C++ do Delfi a potrebuju se ujistit ze je
to
> > spavne. Nemam nikde nainstalovano C++.
> a zjavne ani Delphi! ten kod co dole pises ti ani neprekompiluje delphi
> nakolo vo for cykle musis mat integer a nie BOOLEAN hodnotu! (i < len)
> od toho mas ten WHILE alebo REPEAT UNTIL ...
> > f := 0
> > for i := 0 to i < len do
> > begin
> > if (podminka) then continue;
> > ....
> > // nejaky kod
> > Inc (f);
> > end;
> >
Zjisteni nastaveni proxy
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 26.4.2004 00:56:26
> -----Original Message-----
> Zdravim,
>
> potreboval bych zjistit nastaveni proxy serveru tak, abych se
> mohl bez konfigurace programu prihlasit ven na FTP server.
> Melo by to byt nekde v nastaveni Internet Exploreru. Nevite
> nekdo jak na to?
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 (SP3) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Zjisteni nastaveni proxy
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 26.4.2004 00:26:21
Zdravim,
potreboval bych zjistit nastaveni proxy serveru tak, abych se mohl bez
konfigurace programu prihlasit ven na FTP server. Melo by to byt nekde v
nastaveni Internet Exploreru. Nevite nekdo jak na to?
Diky.
Karel
D5, IDFTP
Prepinani jazku za behu
[*] Pavel Polak <admin(zv)golden-html(tec)com> - 25.4.2004 23:34:16
Zdravim,
snazim se dle prikladu v delphi - richedit vytvorit aplikaci ktera prepina
jazyky za behu aplikace(nacitam resource z dll), funguje to az na nekolik
drobnosti, ktere nevim jak potlacit a to:
- pri nastavovani jazyku mi probliknou vsechny formulare v aplikaci
- po nastaveni jazyka mi zmizi z menu polozky ktere jsem vytvoril za behu
aplikace
Da se toto chovani nejak ovlivnit?
Dekuju za kazdou radu
Pavel Polak
c++ jak to napsat v delphi
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 25.4.2004 21:36:06
> prepisuju jednu proceduru z C++ do Delfi a potrebuju se ujistit ze je to
> spavne. Nemam nikde nainstalovano C++.
a zjavne ani Delphi! ten kod co dole pises ti ani neprekompiluje delphi
nakolo vo for cykle musis mat integer a nie BOOLEAN hodnotu! (i < len)
od toho mas ten WHILE alebo REPEAT UNTIL ...
> f := 0
> for i := 0 to i < len do
> begin
> if (podminka) then continue;
> ....
> // nejaky kod
> Inc (f);
> end;
>
> - nechapu proc je promenna f deklarovana v cyklu nezvetsuje se zaroven s
> promennou i ?
lebo ten cyklus ani nebezi!
>
> a nasledujici prikaz for bez ridici promenne by se v Delphi dal nahradit
> prikazem while nebo je lepsi repeat until ?
to mas jedno! podla toho co ti vyhovuje
>
> while i<end do
> begin
> Inc (i);
> ....
> end;
END je reserved word! mam taky pocit, ze to bude nejaka domaca uloha :((((
Plakat VCL
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 25.4.2004 19:19:57
VCL:
http://www.delphidevelopers.com/learnbooks/delphi7_handbook/VCLHierarchyPoster.pdf
CLX:
http://www.delphidevelopers.com/learnbooks/delphi7_handbook/CLXHierarchyPoster.pdf
ale mal by si to mat v kazdej distrib ... (teda asi okrem personal).
> nema nekdo z Vas plakat VCL jak je dodavan k Delphi? Urcite jo. Byl by
> nekdo ochoten ho prenechat (za mirny uplatek :)) nebo ho oskenovat a poslat
> na muj mail?
>
c++ jak to napsat v delphi
[*] Petr Matejovsky <delphidev(zv)atlas(tec)cz> - 25.4.2004 15:57:44
Zdravim
prepisuju jednu proceduru z C++ do Delfi a potrebuju se ujistit ze je to
spavne. Nemam nikde nainstalovano C++.
C++
for (i=0, f=0; i<len; i++) {
if (podminka) continue;
....
// nejaky kod
f++;
}
Delphi
f := 0
for i := 0 to i < len do
begin
if (podminka) then continue;
....
// nejaky kod
Inc (f);
end;
- nechapu proc je promenna f deklarovana v cyklu nezvetsuje se zaroven s
promennou i ?
a nasledujici prikaz for bez ridici promenne by se v Delphi dal nahradit
prikazem while nebo je lepsi repeat until ?
C++
...
for (; i<end; i++)
...
Delphi
...
while i<end do
begin
Inc (i);
....
end;
Petr Matejovsky
--- nova jarni soutez s firmou JCFsystem ---
--- www.jcfsystem(tec)cz ---
Porty com
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 25.4.2004 14:05:33
> > Ahoj,
> > mel bych na vas dotaz, delame jukebox kde mincovnik ma davat
> > informaci o vhozene minci do portu com, delam to ted tak ze
> > nahodim signal RTS a za pouziti komponenty TAfComPort sleduju
> > zmenu signalu na zbylych 4rech vstupech
> > (AfComPort1CTSChanged), kdyz se hodi mince tak se sepne rele
> > a spoji napr. RTS+CTS, problem je ze se obcas stava ze rele
> > se nesepne ale dojde k AfComPort1CTSChanged, asi delame neco
> > spatne, nevite jde to udelat i jinak ? (nebo je to problem
> > hw?) predtim sem to skousel pres knihovnu Port.dll ale to zas
> > delalo problem ze rele seplo ale nic se nezaznamenalo, muselo
> > by to rele byt sepnute delsi dobu, mel jsem timer 1ms a
> > sledoval if CTS=True then...
Ahoj,
ja bych to netestoval timerem, ale ve zvlastnim threadu...
S pozdravem Milan Cizek, amatersky programator, D7 Ent
Win2k (SP3) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Porty com
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 25.4.2004 13:07:27
Zkus to nastavit takto:
DTR - LO
RTS - HI
mezi DTR a CTS zapojit odpor asi tak 10K
reke by melo spinat mezi RST a CTS.
Monitorovat pouze CTS.
Rele by melo sepnout alespon po dobu 50 ms.
Rele mit co nejblize a hlavne nevezt draty kolem
jinych (moznost indukce a falesnych signalu).
Osciloskopem zkontrolavet kvalitu signalu na CTS.
Slavek
Ing. Slavomir Skopalik
Jednatel spolecnosti
Elekt Labs s.r.o.
Chaloupky 158
783 72 Velky Tynec
Czech Republic
--------------------------------------------
Mobil: 724 207 851
e-mail:skopalik(zv)elektlabs(tec)cz
http://www.elektlabs(tec)cz
\
> Ahoj,
> mel bych na vas dotaz, delame jukebox kde mincovnik ma davat
> informaci o vhozene minci do portu com, delam to ted tak ze
> nahodim signal RTS a za pouziti komponenty TAfComPort sleduju
> zmenu signalu na zbylych 4rech vstupech
> (AfComPort1CTSChanged), kdyz se hodi mince tak se sepne rele
> a spoji napr. RTS+CTS, problem je ze se obcas stava ze rele
> se nesepne ale dojde k AfComPort1CTSChanged, asi delame neco
> spatne, nevite jde to udelat i jinak ? (nebo je to problem
> hw?) predtim sem to skousel pres knihovnu Port.dll ale to zas
> delalo problem ze rele seplo ale nic se nezaznamenalo, muselo
> by to rele byt sepnute delsi dobu, mel jsem timer 1ms a
> sledoval if CTS=True then...Porty com
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 25.4.2004 11:07:19
Ahoj,
mel bych na vas dotaz, delame jukebox kde mincovnik ma davat informaci o vhozene minci do portu com, delam to ted tak ze nahodim signal RTS a za pouziti komponenty TAfComPort sleduju zmenu signalu na zbylych 4rech vstupech (AfComPort1CTSChanged), kdyz se hodi mince tak se sepne rele a spoji napr. RTS+CTS, problem je ze se obcas stava ze rele se nesepne ale dojde k AfComPort1CTSChanged, asi delame neco spatne, nevite jde to udelat i jinak ? (nebo je to problem hw?) predtim sem to skousel pres knihovnu Port.dll ale to zas delalo problem ze rele seplo ale nic se nezaznamenalo, muselo by to rele byt sepnute delsi dobu, mel jsem timer 1ms a sledoval if CTS=True then...
diky za kazdou radu
Radek Szurman
ADMIN: OT: Plakat VCL
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 24.4.2004 14:15:53
Puvodni zprava ze dne 24.4.2004:
> nema nekdo z Vas plakat VCL jak je dodavan k Delphi? Urcite jo. Byl
> by nekdo ochoten ho prenechat (za mirny uplatek :)) nebo ho
> oskenovat a poslat na muj mail?
Mam takovy pocit, ze na ten plakat bude copyright. Pokud ano, tak
prave porusujes pravidla a nabadas k poruseni autorskeho zakona. Ber
to jako napomenuti a nechci to tu videt.
Jestli chces plakat, tak si kup Delphi a nebo maximalne sem napis
dotaz, zda ten plakat nahodou neni free od Borlandu nekde na jejich
webu ke stazeni.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
OT: Plakat VCL
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 24.4.2004 13:11:48
Ahoj,
nema nekdo z Vas plakat VCL jak je dodavan k Delphi? Urcite jo. Byl by
nekdo ochoten ho prenechat (za mirny uplatek :)) nebo ho oskenovat a poslat
na muj mail?
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
web: http://www.cincura.net; http://cincura.net/photo
Viceradkove memo pres SQL
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 24.4.2004 12:53:46
Tohle FTP prekonvertuje jen v textovem modu, v binarnim to zustane
stejne.
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Saturday, April 24, 2004, 12:33:44 PM, you wrote:
LZ> Ahoj.
LZ> sLineBreak = #13#10.
LZ> Problem bude spise v tom, ze ftp ti prekonverti #13#10 na #10.
LZ> Zkontroluj i toto.
LZ> Ludek
Viceradkove memo pres SQL
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 24.4.2004 12:33:44
On Behalf Of Karel Pecinka
>
> To bohuzel nemuzu protoze musim pouzit SQL prikaz. Prikaz
> totiz odesilam v souboru pres FTP na vzdaleny soubor, kde mi
> jej dalsi program zpracuje a vrati odpoved. Pokud je memo
> jednoradkove, vse funguje bez problemu, ja vsak potrebuju
> vlozit nekolikaradkovou poznamku.
>
> Nevite jak na to?
>
> Query1.SQL.Text := 'INSERT INTO table (memo) VALUES (:memo)';
> Query1.ParamByName('memo') := 'Line 1' + sLineBreak + 'Line 2';
Ahoj.
sLineBreak = #13#10.
Problem bude spise v tom, ze ftp ti prekonverti #13#10 na #10.
Zkontroluj i toto.
Ludek
Viceradkove memo pres SQL
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 24.4.2004 12:07:42
Napadaji me 2 moznosti:
1) posilat to ve vice souborech:
Insert.sql: INSERT INTO table (memo1, memo2) VALUES (:param1, :param2)
Param1.prm: Text 1
Param2.prm: Text 2
Na serveru se zpracuje Insert.sql, hodnoty parametru se dotahnou podle
nazvu parametru z dalsich souboru.
2) jinak je potreba resit nejen viceradkovy text, ale i treba
apostrofy... Apostrofy se resi zdvojenim, novy radek se vyresi v
podstate sam (aspon u me, viz. priklad), ale bez parametru v tom muzou
vzniknout dalsi problemy, nejspis bych to hledal v nejake norme, kde
bude popsano jak se chovat ke specialnim znakum v SQL. Parametry od
tohohle uzivatele odstinuji, takze bych volil variantu podobnou
variante 1).
INSERT INTO table (memo) VALUES ('It''s line 1
It''s line 2')
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Saturday, April 24, 2004, 11:41:39 AM, you wrote:
KP> To bohuzel nemuzu protoze musim pouzit SQL prikaz. Prikaz totiz odesilam
KP> v souboru pres FTP na vzdaleny soubor, kde mi jej dalsi program zpracuje
KP> a vrati odpoved. Pokud je memo jednoradkove, vse funguje bez problemu,
KP> ja vsak potrebuju vlozit nekolikaradkovou poznamku.
KP> Nevite jak na to?Viceradkove memo pres SQL
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 24.4.2004 11:41:39
To bohuzel nemuzu protoze musim pouzit SQL prikaz. Prikaz totiz odesilam
v souboru pres FTP na vzdaleny soubor, kde mi jej dalsi program zpracuje
a vrati odpoved. Pokud je memo jednoradkove, vse funguje bez problemu,
ja vsak potrebuju vlozit nekolikaradkovou poznamku.
Nevite jak na to?
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Jakub Dusek
Sent: Saturday, April 24, 2004 11:30 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Viceradkove memo pres SQL
Pouzit parametry SQL prikazu, misto primeho vkladani dat do nej:
Query1.SQL.Text := 'INSERT INTO table (memo) VALUES (:memo)';
Query1.ParamByName('memo') := 'Line 1' + sLineBreak + 'Line 2';
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Saturday, April 24, 2004, 11:13:35 AM, you wrote:
KP> Zdravim,
KP> nevite prosim nekdo, jak ulozit obsah viceradkoveho mema do databaze
KP> pres SQL dotaz? Existuje nejaky znak, kterym bych mohl nahradit
KP> Enter tak, aby to potom Interbase zpet prelozil jako Enter?
KP> Diky za odpoved.
KP> Karel
KP> D5, IB6
Viceradkove memo pres SQL
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 24.4.2004 11:13:35
Zdravim,
nevite prosim nekdo, jak ulozit obsah viceradkoveho mema do databaze
pres SQL dotaz? Existuje nejaky znak, kterym bych mohl nahradit Enter
tak, aby to potom Interbase zpet prelozil jako Enter?
Diky za odpoved.
Karel
D5, IB6
Viceradkove memo pres SQL
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 24.4.2004 11:29:37
Pouzit parametry SQL prikazu, misto primeho vkladani dat do nej:
Query1.SQL.Text := 'INSERT INTO table (memo) VALUES (:memo)';
Query1.ParamByName('memo') := 'Line 1' + sLineBreak + 'Line 2';
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Saturday, April 24, 2004, 11:13:35 AM, you wrote:
KP> Zdravim,
KP> nevite prosim nekdo, jak ulozit obsah viceradkoveho mema do databaze
KP> pres SQL dotaz? Existuje nejaky znak, kterym bych mohl nahradit Enter
KP> tak, aby to potom Interbase zpet prelozil jako Enter?
KP> Diky za odpoved.
KP> Karel
KP> D5, IB6
divne chovanie ibx komponent
[*] Ivan Turcan <iturcan(zv)drake.sk> - 24.4.2004 10:33:32
>----- Original Message -----
>From: "Slavomir Skopalik" <skopalik(zv)elektlabs(tec)cz>
>To: <delphi-l(zv)clexpert(tec)cz>
>Sent: Friday, April 23, 2004 10:59 PM
>Subject: Re: divne chovanie ibx komponent
> Double klik na transakci (komponente).
> Tam si vyberes typ transakce.
> Jeste bych chtel upozornit, to co jsem ti poradil se nehodi na vsechno,
> takze prohledej archiv, nebo si stahni dokumentaci k IB (staci k 5.6 co
> je na CD
> k delphi 5).
>
> Slavek
vdaka, presne to som hladal...
Ivan
divne chovanie ibx komponent
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 23.4.2004 22:59:27
Double klik na transakci (komponente).
Tam si vyberes typ transakce.
Jeste bych chtel upozornit, to co jsem ti poradil se nehodi na vsechno,
takze prohledej archiv, nebo si stahni dokumentaci k IB (staci k 5.6 co
je na CD
k delphi 5).
Slavek
>
> hmm, ok, este bol by si taky dobry a povedal mi ze kde to nastavim ?
> predpokladam ze niekde do params ale co tam napisat ?
>
> dakujem
>
> Ivan
>
>
>
>
>
>
>
> OLE DB
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 23.4.2004 20:43:18
======================================================================
Friday, April 23, 2004, 8:13:59 AM, you wrote:
DF> Ahoj,
DF> tabulka sice existuje, ale byly tam asi nejake problemy toho razu, ze
DF> prislusny uzivatel na ni nevidel. Kdyz jsem pod jeho jmenem zalozil novou
DF> tabulku, tak uz to slo.
To je to co jsem rikal, byla v jinem schematu. Jeden uzivatel
(popripade vice) je v databazi vlastnik schematu, ostatni uzivatele na
nej bud maji vytvoreno synonymum, nebo ho pouzivaji i s uvedenim
vlastnika:
SELECT * FROM schema.tabulka
DF> Ale zarazilo me toto:
DF> Udelal jsem jednoduchy program s jednou ADOquery, datasetem a DBGridem. Kdyz
DF> se pak prihlasim jako patricny uzivatel, ale se spatnym heslem, tak me sice
DF> vyskoci hlaseni asi oraclu s chybou ORA-01017, ale kdyz to odklepnu, tak si
DF> klidne muzu do tabulky zadavat pres DBGrid. Cim to je?
Ale urcite se tam nenactou aktualni data ani se zmeny v gridu nikam
neukladaji.
DF> A jeste mi neni jasny, jestli dbgrid a dataset potrebuji mit nainstalovane
DF> BDE, aby fungovaly s ADO?
Nepotrebuji, ADO a BDE jsou rozdilne technologie.
DF> Dalik.
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
TComboBox - CLX chyba???
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 23.4.2004 20:09:15
> mam pocit, ze ComboBox pri CLX app ma zajimavou chybu.
> Kdyz dam OwnerDrawFixed a napisu vlastni OnDrawItem (vykleslim neco primo na
> Canvas - tr.: ComboBox1.Canvas.TextOut(Rect.Left, Rect.Top,
> LeftStr(ComboBox1.Items[Index], 2))) a ComboBox ztrati Focus, nedojde k
> prekresleni. Ale kdyz ho znovu rozbalim, je polozka vybrana.
>
> Setkal se s tim nekdo? Nevi nekdo jako to resit? -> Jak?
V CLX (aspon v linuxe) sa pouziva este aj PIXMAP, ktory treba tiez
aktualizovat (iked textout by to mal robit)...
Aspon v D6 je podpora kresliacich funkcii CLX dost biedna (napr. nemozes
mat 16bit TBitmap :( ). To bude tym starim QT.
Palo
RC4 v delphi
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 23.4.2004 20:11:15
http://delphi.icm.edu.pl/ftp/d20free/cipher.zip
> Zdravim
>
> nemate nekdo nejakou unitu na RC4 sifrovani v delphi
>
Palo
divne chovanie ibx komponent
[*] Ivan Turcan <iturcan(zv)drake.sk> - 23.4.2004 18:15:04
>----- Original Message -----
>From: "Slavomir Skopalik" <skopalik(zv)elektlabs(tec)cz>
>To: <delphi-l(zv)clexpert(tec)cz>
>Sent: Friday, April 23, 2004 5:28 PM
>Subject: Re: divne chovanie ibx komponent
> Tvuj problem nesouvisi s IBX, ale s nastavenim transakci pro FB.
> Pro zacatek by ti melo stacit nastaveni readcommited.
> V jedne aplikaci zapises a potvrdis data (commit), v druhe das refresh
> (znovu nacteni dat z db, tj. close a open datasetu.
>
> Slavek
hmm, ok, este bol by si taky dobry a povedal mi ze kde to nastavim ?
predpokladam ze niekde do params ale co tam napisat ?
dakujem
Ivan
divne chovanie ibx komponent
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 23.4.2004 17:28:59
Tvuj problem nesouvisi s IBX, ale s nastavenim transakci pro FB.
Pro zacatek by ti melo stacit nastaveni readcommited.
V jedne aplikaci zapises a potvrdis data (commit), v druhe das refresh
(znovu nacteni dat z db, tj. close a open datasetu.
Slavek
> Caves,
>
> uplnov nahodov som urobil jeden projekt ktory pouziva IBX a
> pristupuje cez to na IBX/Firebird... celkom funguje ale
> nejako si neviem predstavit logiku tych komponent, pripada mi
> ich chovanie dost nestandardne oproti inym komponentam...
> divne chovanie ibx komponent
[*] Ivan Turcan <iturcan(zv)drake.sk> - 23.4.2004 16:02:52
Caves,
uplnov nahodov som urobil jeden projekt ktory pouziva IBX a pristupuje cez to na IBX/Firebird... celkom funguje ale nejako si neviem predstavit logiku tych komponent, pripada mi ich chovanie dost nestandardne oproti inym komponentam... mam dve aplikacie ktore pristupuju na totoznu DB
hlavne co ma stve:
- jedna app urobi zmenu a commitne ju
- popritom v rovnakom case druha aplikacia ma otvorenu tu istu tabulku a nek robim co robim ani po refresh (close/open) mi nove data do tabulky neda.... musim zavriet komplet tabulky a rollbackovat tranzakcie ktore sa mi otvaraju pri otvarani query a nasledne otvorit si query a az potom vydim data korektne...
no to je riadna haluz...
je mozne v IBX otvorit query tak aby som nemusel otvarat tranzakciu ??? normalne byva ze db tranzakcia si otvorim ked to pozadujem, avsak nemusim ju otvarat pri kazdom selecte ktory je readonly...
potreboval by som aby sa to chovalo takto:
- pri otvoreni query v rezime readonly by sa neotvorila tranzakcia a tym padom nekomplikovala zivot.. pri refreshoch...
- pred editovanim by som manualne spustil tranzakciu a potom ju potvrdil alebo rollbackol...
je to mozne ??
- dalsia kravina je prikaz commit/rollback... po jeho pouziti mi zavre vsetky tabulky... iste je mozne ho nahradit prikazom commitRetaining alebo RollbackRetaining. avsak tieto dva prikazi su naprd lebo sice potvrdia mi zmeny ale nevidim zmeny ktore medzicasom previedol iny uzivatel. cize beztak musim zavriet pripojenie na db a otvorit ho nanovo.... no haluz aku som pri inych db / komponentach nemal...
da sa to nastavit aby sa to chovalo normalne a nie takto sialene....
vdaka
Ivan
update DocVariables v dokumentu
[*] Ladislav Cholinsky <lcholinsky(zv)usu(tec)cz> - 23.4.2004 14:42:46
Dobry den,
prave pracuji na generovani Word dokumentu, a totim zpusebem, ze:
1) Mam pripraveny dokumentik, treba:
Vazeny pane {DOCVARIABLE "jmeno"}, .......... atd.
2) V kodu plnim do tohoto dokumentu promenne DOCVARIABLES takto:
...
var Value: OleVariant;
...
Value := 'Ladislav';
WordDocument.Variables.Add('jmeno', Value);(WordDocument je TWordDocument z palety OleServeru)
Problem je v tom, ze hodnota promenne "jmeno" se neprojevi, resp. projevi se
az kdyz primo ve Wordu vlozim znova (Insert/Field/...) DOCVARIABLE "jmeno",
po kliknuti na OK se objevi spravne "Ladislav".
Ale kdyz promennou pomoci Delphi zmenim, dokument zustane stejny a zmenena
promenna se projevi zase az kdyz vlozim DOCVARIABLE "jmeno" znova.
Nevite, jak dokument donutit, aby si znovu nacetl obsahy promennych ?
Nebo je na to jina, treba i jednodussi cesta ?
Diky moc !
Ladislav.
Delphi Developersky Orisek...
[*] david.kopecek(zv)hacktrack(tec)com - 23.4.2004 12:58:39
Dobry den,
Friday, April 23, 2004, 11:38:31 AM, napsal jste:
JF> 22.4.2004 david.kopecek(zv)hacktrack.com:
>> ale vubec mi nejde proc to tak nefuguje u tohohle kodu primo v dpr
>> resni..
JF> V DPR nebezi obsluha zprav. To dela az TForm, pokud si obsluhu zprav
JF> nenapises sam.
a sakra.. portreboval bych totiz hlavne zmensit velikost toho kodu..
450 k na to ze to nic nedela je moc
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
Delphi Developersky Orisek...
[*] Petr Vones <pvones(zv)vol(tec)cz> - 23.4.2004 13:08:40
From: <david.kopecek(zv)hacktrack.com>
> a sakra.. portreboval bych totiz hlavne zmensit velikost toho kodu..
Obsluha zprav neni v nevizualni aplikaci zpravidla k nicemu potreba, takze se
jedna spise o spatny navrh cele aplikace.
> 450 k na to ze to nic nedela je moc
A neni to takhle uplne jedno ?
Petr Vones
Chybne zobrazeni formulare
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 23.4.2004 11:48:33
U jednoho zakaznika se vyskytl problem: hlavni formular aplikace MainForm zobrazi formular Form1.ShowModal a ten zobrazi formular Form2.ShowModal. Problem je v tom, ze Form2 se zobrazi pod formularem Form1, takze neni videt, a da se na nej dostat je prepinutim Alt Tab. Nikde jinde se to zatim nestalo. V cem by mohl byt problem?
Marek Dostal
D7Prof, WinXP Home, FireBird 1.0.2
Delphi Developersky Orisek...
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 23.4.2004 11:38:31
22.4.2004 david.kopecek(zv)hacktrack.com:
> ale vubec mi nejde proc to tak nefuguje u tohohle kodu primo v dpr
> resni..
V DPR nebezi obsluha zprav. To dela az TForm, pokud si obsluhu zprav
nenapises sam.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Alt-tab - Ctrl -Esc ?
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 23.4.2004 11:20:27
Jiri Betunak wrote:
> Hello Vit,
>
>>> Lze nejak realizovat zakazani kl. skrat. ctrl-esc bez toho aniz
>>> bych zaroven zakazal alt- tab ?
>>>
>>>
>> pomoci HOOKovani klaves.
>
>
> ale jo jo to vim ale netusim jak zakazu kl skratku jednotlive kl.
> dokazi zablokovat ale jak bloknout ctrl - esc ? aby ctr a esc
> nezavisle funguvali ?
Reagujes na kazdou klavesu. Pokud je to Ctrl, pockas na dalsi a pokud je to
Esc a nedoslo to dalsi o Ctrl Up, je to ta tvoje klavesa a muzes to
zablokovat.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
web: http://www.cincura.net; http://cincura.net/photo
problem s ADo
[*] Erik Salaj, Winsoft <winsoft(zv)netkosice.sk> - 23.4.2004 11:04:26
> mam problem s aplikaciou, ktora pouziva komponnety ADO expres z D7. Ak ju
> spustim na W2000 tak bezi OK. Ale na NT 4.0 vypisuje ZPROZSTREDKOVATEL
NEBYL
> NALEZEN. PRAVDEPODOBNE NENI RADNE NAINSTALOVAN.
> Je to NT 40 + SP6a.
> dal som tam IE 5.5 a MDAC 2.8
ak sa pripajas na Access, tak potrebujes este doinstalovat Jet Engine
(je to na MS webe ale instaluje sa zvlast)
Erik
RC4 v delphi
[*] david.kopecek(zv)hacktrack(tec)com - 23.4.2004 10:38:22
Zdravim
nemate nekdo nejakou unitu na RC4 sifrovani v delphi
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
problem s ADo
[*] mato <mato.tino(zv)inmail.sk> - 23.4.2004 10:10:18
zdravim,
mam problem s aplikaciou, ktora pouziva komponnety ADO expres z D7. Ak ju
spustim na W2000 tak bezi OK. Ale na NT 4.0 vypisuje ZPROZSTREDKOVATEL NEBYL
NALEZEN. PRAVDEPODOBNE NENI RADNE NAINSTALOVAN.
Je to NT 40 + SP6a.
dal som tam IE 5.5 a MDAC 2.8
v com moze byt problem ?
pristupujem k databaze mdb.
AV v FBClient.DLL
[*] Dalibor <dalibor(zv)torola(tec)cz> - 23.4.2004 09:06:04
Ahoj,
pri ukonceni aplikace se mi stava, ze program spadne na Access Violation v dll knihovne FBClient.dll, ale pouze v ramci jednoho PC.
Pokud se pripojim k databazi z jineho PC, tak se problem neobjevuje.
Nevite nekdo v cem by mohl byt problem?
Pri ukoncovani aplikace provadim odregistrovani eventu a odpojeni databaze.
FB15, FIBPlus 5.10, D7Prof, WinXP
OLE DB
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 23.4.2004 08:26:01
To netusim, ja jsem zatim rad, ze vytvorim tabulku a uzivatele a pridelim mu
prava. Oracle se zacinam zvolna teprve ucit a nebude to asi jednoduchy.
Dalik.> Je tabulka zadana i se schematem ve kterem je (pokud neni prihlasen
> vlastnik schematu nebo neni vytvoreno synonymum)?
OLE DB
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 23.4.2004 08:13:59
Ahoj,
tabulka sice existuje, ale byly tam asi nejake problemy toho razu, ze
prislusny uzivatel na ni nevidel. Kdyz jsem pod jeho jmenem zalozil novou
tabulku, tak uz to slo.
Ale zarazilo me toto:
Udelal jsem jednoduchy program s jednou ADOquery, datasetem a DBGridem. Kdyz
se pak prihlasim jako patricny uzivatel, ale se spatnym heslem, tak me sice
vyskoci hlaseni asi oraclu s chybou ORA-01017, ale kdyz to odklepnu, tak si
klidne muzu do tabulky zadavat pres DBGrid. Cim to je?
A jeste mi neni jasny, jestli dbgrid a dataset potrebuji mit nainstalovane
BDE, aby fungovaly s ADO?
Dalik.> No tak zrejme neexistuje :) Hlasi to chybu Oraclu (ORAXXXX) nebo ADO?
> Je tabulka zadana i se schematem ve kterem je (pokud neni prihlasen
> vlastnik schematu nebo neni vytvoreno synonymum)?
Precenovani ve skladovem systemu
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 23.4.2004 00:07:25
On Behalf Of Jan Fiala
>
> Omezis chyby obsluhy, ale neomezis problem s tim, ze ti
> prijde zbozi + doklad (dodaci list, treba bez cen), ktery
> musis prijmout na sklad, aby se dalo zbozi dal expedovat a
> pak treba po 14 dnech ti prijde faktura, ktera obsahuje krome
> cen i dodatecne naklady. Takze musis byt schopen tam dodat
> spravne ceny.
>
> V tomto pripade pripada v uvahu Offline zpusob ocenovani,
> ktery uvadel Martin. Navic to uzivateli umozni kdykoliv si
> stav skladu "opravit", protoze nemusis poustet "ostrou"
> uzaverku, ale jen prepocet.
Ahoj.
Znovu jsem se mrknul na pocatek threadu a tam slo prave hlavno o to, ze
potrebuje naskladnit ihned ocenit vcetne vedlejsich nakladu a podle nove
prumerne skladove ceny okamzite zmenit prodejni cenu.
Takze predpokladam , ze tyhle udaje ma k dispozici, jinak je pozadavek
nesplnitelny a jedine by bylo mozne nejak pouze pro ucely zmeny prodejni
ceny to ocenit cenou aproximovanou nejakym zpusobem na vyvoj cen a
nakladu.
Ludek
Delphi Developersky Orisek...
[*] david.kopecek(zv)hacktrack(tec)com - 22.4.2004 22:55:20
Zdravim konferenci,
mam jednu takovy velice krasny orisek.. mozna to ani neni orisek a je
to moje blbost ;).
snazim se napsat server a v dpr primo vytvarim objekt TDBListener
ktery je typu TDBListener = class(TThread) a zacne naslouchat na
urcitem porte.. Jakmile se pripoji client tak mu to vytvori novy
objekt typu tthread. POte co se client odpoji vlakno se automaticky
ukonci. Teda melo by ale v tomhle pripade (reseni pres dpr) tam to
vlakno zustane kontroloval jsem to pres Task Managera a i Task Info..
mel jsem tu aplikaci puvodne napsanou pres formular kde se skratka po
startu zavolala procedurea ktera zavolala
dbiServ:=TDBListener.Create(self) a tim se to spustilo. kdyz se
propojil klient a odpojil tak se vlakno zase stratilo..
ale vubec mi nejde proc to tak nefuguje u tohohle kodu primo v dpr
resni..
etc skousel jsem tam pridavat unity a asi na forms to zabralo a jelo
to jak ma.. jenze proc tam mit forms kdyz je nepouzivam.. zbytecne
velky kod.. kvuli velikosti kodu to mam v dpr...
tu je ukazka toho vytvoreni v dpr.
program DBServer;
uses Windows,
UnitServer in 'UnitServer.pas',
UnitFunctions in 'UnitFunctions.pas',
UnitLocFuncs in 'UnitLocFuncs.pas';
{$R *.res}
const
ModuleName = 'DB';
var
dbiserv : TDBListener;
begin
dbiServ:=TDBListener.Create(nil);
messagebox(0,Pchar('DB Module is on-line'),Pchar('DB'),0);
dbiserv.Terminate;
end.
--
S pozdravem a d iky,
David
Precenovani ve skladovem systemu
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 22.4.2004 20:57:12
21.4.2004 Ludek ZITA:
> 1) kontrola na celistvost nasobku zbozi na palete/v
> kartonu/kontejneru.... (obvykle jde o celistve nasobky)
> 2) kontrola na vahu (zase treba se da zjistit ze 1 prijemka ~= 1 avie
> (no a na ta ti tezko poveze 100kg nebo 100T) pripadne lze zjistit zase
> pocet palet a pod
> 3) prumerna cena zbozi a dodavky celkem (obvykle se da stanovit nejaka
> maximalni cenova odchylka od posledni dodavky jak za kus tak za celou
> dodavku od stejneho dodavatele)
> atd...
> Samozrejme ta kontrola musi byt mekka (jen upozorneni) a je treba dobre
> volit jak uroven (aby se to neptalo skoro pokazde) tak srozumitelnost
> textu.
> Tim se daji omezit vstupni chyby o docela dost procent.
Omezis chyby obsluhy, ale neomezis problem s tim, ze ti prijde zbozi +
doklad (dodaci list, treba bez cen), ktery musis prijmout na sklad,
aby se dalo zbozi dal expedovat a pak treba po 14 dnech ti prijde
faktura, ktera obsahuje krome cen i dodatecne naklady. Takze musis byt
schopen tam dodat spravne ceny.
V tomto pripade pripada v uvahu Offline zpusob ocenovani, ktery uvadel
Martin. Navic to uzivateli umozni kdykoliv si stav skladu "opravit",
protoze nemusis poustet "ostrou" uzaverku, ale jen prepocet.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
OLE DB
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 22.4.2004 19:41:06
No tak zrejme neexistuje :) Hlasi to chybu Oraclu (ORAXXXX) nebo ADO?
Je tabulka zadana i se schematem ve kterem je (pokud neni prihlasen
vlastnik schematu nebo neni vytvoreno synonymum)?
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Thursday, April 22, 2004, 1:04:28 PM, you wrote:
DF> Ahoj.
DF> Tak jsem se pres ConnectionString a test connection pripojil do Oraclu, ale
DF> kdyz chci AdoQuery otevrit na ACTIVE, zahlasi se chyba, ze patricna tabulka
DF> neexistuje. Cotoje? Poradte mi prosim nekdo. Mam tady D5 ent. a Oracle 8 PE,
DF> Win 98.
DF> Diky
DF> Dalibor Faltynek
prevod c++ do delphi
[*] Blazek Jaroslav <jaroslav.blazek(zv)access-it(tec)cz> - 22.4.2004 19:11:03
Ahoj,
> konference(zv)crhov.komfi(tec)cz 22.4.2004 15:32:45 >>>
> snazim se prevest z c++ do delphi hlavicku sick.h a nevim si rady
>jak do *.pas dostat toto:
>#define UNIVERSE_FIFO_WAIT \
> do { \
> } while ((*sicl_universe_misc_stat & 0x00040000L) == 0)
toto je makro, takze vsude v kodu, kde je UNIVERSE_FIFO_WAIT musis
prepsat na
while (sicl_universe_misc_stat^ and $00040000) = 0 do
;
nebo si udalat fci...
>#define ibpeek(addr) *((unsigned volatile char *)(addr))
type PByte = ^byte;
var b : byte;
b := PByte(addr)^;
nevim, ale jak v Delphi nahradit modifikator "volatile", mozna vi nekdo
jiny...
- rika kompilatoru....promenna, ktera je definovana jako volatile, muze
byt modifikovana nejakou nespecifikovanou asynchronni udalosti
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ# : 133673990
+420605/813644
prevod c++ do delphi
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 22.4.2004 17:54:57
Neco jako
while(sicl_universe_misc_stat^ and $00040000)=0 do;
Slavek
>
> DD,
>
> snazim se prevest z c++ do delphi hlavicku sick.h a
> nevim si rady
> jak do *.pas dostat toto:
>
> #define UNIVERSE_FIFO_WAIT \
> do { \
> } while ((*sicl_universe_misc_stat & 0x00040000L) == 0)
> prevod c++ do delphi
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 22.4.2004 17:38:56
On Thursday, April 22, 2004 3:32 PM [CET], Matejcek Petr
<konference(zv)crhov.komfi(tec)cz> wrote:
> DD,
>
> snazim se prevest z c++ do delphi hlavicku sick.h a nevim si
rady
> jak do *.pas dostat toto:
>
> #define UNIVERSE_FIFO_WAIT \
> do { \
> } while ((*sicl_universe_misc_stat & 0x00040000L) == 0)
je to jen obycejne makro. Podle mne by melo vsechny vyskyty
UNIVERSE_FIFO_WAIT nahradit cyklem:
do { } while ((*sicl_universe_misc_stat & 0x00040000L) == 0)
cili si to v pascalu musis prepsat obdobne. sicl_universe_misc_stat
bude zrejme nejaka funkce nebo globalni promenna nastavovana necim
asynchronnim.
>
> #define ibpeek(addr) *((unsigned volatile char *)(addr))
>
tohle by snad melo byt jen nejake zbesile pretypovani (pretypovani mi
nevadi ale jejich zapis v CCku primo 'miluju'). Mohlo by to slouzit ke
cteni pameti z adresy zadane v addr. Tech hvezdicek a zavorek je tam
na muj vkus nejak moc. Konkretni vyklad te definice bych radsi
odhadoval se znalosti dalsiho kontextu :-). Zrejme ale v addr je
adresa, kterou pretypuji na unsigned char (proc je ta volatile
netusim, vyznam by snad menit nemelo). No a ta hvezdicka uplne vlevo z
toho dela pointer na pointer, ale proc se to pred ni (resp za ni)
pretypovava na ten char netusim.
muj hruby odhad je :
Byte(Pointer(Pointer(addr)^)^)
:-) samozrejme jde to napsat i lip..> pro jistotu se jeste zeptam nemate nekdo uz hotovy sicl.pas pro
> komunikaci s kartou HPIB hledal jsem na webu ale marne
s HPIB jsem prisel sice kdysi do styku (karta od Hewlet-Packard). Ke
karte byla pascalska unita, ale z HPIB komunikace jsem byl tezce
zklamany. To co fungovat melo, nefungovalo, komunikace byla strasne
pomala (mam na mysli reakcni dobu (dotaz/odpoved)). Vzhledem k tomu,
ze asynchronni veci nefungovaly (nebo je HPIB neumi? ) a ten program
cetl z mnoha cidel i mimo HPIB tak to byl docela velkej hack, ze to
nakonec chodilo. Do dneska netusim, zda na vine byla ta karta nebo
zarizeni k ni pripojene (nejakej merak od Rohde&Schwarz nebo jak se
tam firma jmenuje). Komponenty za priserny penize a obycejna seriovka
byla proti tomu zlata.
D. Toman
THTMLEdit na bazi DHTML a SetFocus
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 22.4.2004 17:12:52
CP,
zkousim v D6.02prof pod W2KCZ SP4 pouzit WYSIWYG HTML editor
na bazi ActiveX DHTML od Petera Morrise
(www.euromind.com/iedelphi) a jedna z veci, ktera mi nechodi,
je vraceni focusu zpatky editoru v pripade, ze focus ztrati
napr. po vyberu polozky z combo boxu.
Zkousel jsem nechat v handleru OnChange u combo boxu jen volani
DHTML.SetFocus a trasovat do VCL - vsechno vypada O.K. vcetne volani API
funkce SetFocus(), ale ten DHTML ho stejne neziska
(musim na nej bud clicknout nebo stiknout klavesu TAB).
Nema s tim nekdo nejakou zkusenost popr. nenapada nekoho,
proc se to volani DHTML.SetFocus miji ucinkem?
Diky, pf
nastaveni DPI tiskarny
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 22.4.2004 17:10:51
Ahoj,
potreboval bych prikladek na nastaveni rozliseni tisku.
treba na 300dpi. vim ze bych mel pouzit DocumentProperties
(doufam), ale nejak nejsem schopnej vykoumat, jak se to spravne
dela (asi den blbec).
delam tisk mapy a ono to netiskne cary, pokud tisknu moc velky
kus. laserovka s 300dpi je vytiskne, ale inkoustovka s nejakym
asi 2400dpi ne. domnivam se ze je to tim. na obrazovce se mi cary
nikdy neztrati. pouzivam isotropni mapovaci rezim a mapuju si
tam SJTSK a souradnice jsou tim padem v radech metru. Text popisu
se tiskne dobre. Pokud udelam priblizeni, a zara vychazi tlusta
treba milimetr, tak uz se vytiskne i ta.
dekuji za radu
Peca
prevod c++ do delphi
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 22.4.2004 15:32:45
DD,
snazim se prevest z c++ do delphi hlavicku sick.h a nevim si rady
jak do *.pas dostat toto:
#define UNIVERSE_FIFO_WAIT \
do { \
} while ((*sicl_universe_misc_stat & 0x00040000L) == 0)#define ibpeek(addr) *((unsigned volatile char *)(addr))
pro jistotu se jeste zeptam nemate nekdo uz hotovy sicl.pas pro
komunikaci s kartou HPIB hledal jsem na webu ale marne
diky PM
Alt-tab - Ctrl -Esc ?
[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 22.4.2004 15:12:42
Hello Vit,
>> Lze nejak realizovat zakazani kl. skrat. ctrl-esc bez toho aniz bych
>> zaroven zakazal alt- tab ?
>>
>>
VK> pomoci HOOKovani klaves.
ale jo jo to vim ale netusim jak zakazu kl skratku jednotlive kl.
dokazi zablokovat ale jak bloknout ctrl - esc ? aby ctr a esc
nezavisle funguvali ?
--
Best regards,
Jiri mailto:kindrik(zv)centrum(tec)cz
Verzia Delphi (VS.NET) pre DB aplikacie
[*] BRCKO Peter <peter.brcko(zv)assetsoft.sk> - 22.4.2004 15:10:42
Prosim o radu od vyvojarov, ktori maju prakticke skusenosti s
DB aplikaciami vyvijanymi v Delphi (VS.NET).
Nakolko u mna nastala nutnost prerobit 13-ty rok beziaci DB
projekt ( BP 7 a BTreeFiler)
a v Delphi som nic ucelene nenaprogramoval ( firma presedlala
v 1997 na Oracle DB i vyvojove nastroje ),
potrebujem radu ohladom vhodnosti verzie Delphi 8.
1. Aka verzia Delphi 8 je minimalna pre vyvoj DB aplikacie ak
budem vyuzivat komponenty tretich stran pre pristup k DB?
Ak DB bude FB
2. FIBPlus ma komponenty iba pre pristup k DB a administracii
DB. Je to postacujuce pre DB aplikaciu ak ( mozno zatial )
nemam cas a ani skusenosti s vytvaranim vlastnych komponent ?
3. IBO ma podstatne viac komponent - su potrebne alebo aspon
vhodne pre vyvoj DB aplikacii ?
4. Ma niekto skusenosti s pouzivanim FIBPlus alebo IBO a je ochotny ( priamo nie cez konferenciu ) sa podelit o skusenosti
pri zaciatkoch ich pouzivania ( hlavne pouzitelnost jednotlivych komponent nie samotny sposob ich pouzitia ) ?
5. Je niekto, kto presiel z IBO na FIBPlus alebo opacne - PRECO? ( okrem spominanych problemov Milanom Tomesom
- nacitanie a cachovabnie niekolkych stoviek tisic zaznamov - spadli jak IBX tak i FIBPlus )
Ak DB bude Oracle
6. Ma niekto skusenosti s pouzivanim komponent DAO a je ochotny ( priamo nie cez konferenciu ) sa podelit o skusenosti
pri zaciatkoch ich pouzivania ?
!!!!!!!!!!!!!!!!
7. Otazka pre vyvojarov, ktory presli na VS.NET z Delphi. Da sa odhadnut doba, ktoru potrebuje skuseny
( relativne - 14.rokov analiz a klikania) vyvojar na zacatie prace vo VS ( nikdy som MS nastroje netestoval )?
Ako a kym ( MS - tretie starny ) je riesena konektivita do FB i Oracle vo VS.NET?
Aka verzia VS.NET je potrebna pre vyvoj DB aplikacii - FB, Oracle?
Dakujem.
Peter Brcko.
Alt-tab - Ctrl -Esc ?
[*] Vit Krska <vit.krska(zv)del(tec)cz> - 22.4.2004 15:00:40
> Lze nejak realizovat zakazani kl. skrat. ctrl-esc bez toho aniz bych
> zaroven zakazal alt- tab ?
>
>
pomoci HOOKovani klaves.
vitek
HTTPSendRequestEx
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 22.4.2004 14:24:37
Ahoj,
zkousim vytvorit jednu HTTP seanci pomoci WinInet v asynchronnim rezimu, ale moc
se mi nedari.
Podminky:
1) Bezpodminecne pouziti WinInet
2) Moznost zobrazovat prubeh komunikace do listboxu
3) Jde o jeden pozadavek: metodou POST chci odeslat serveru pozadavek, ktery bude
mit v tele nejaka data (cca 3000 B binarnich dat), na to precist odpoved, ktera bude
obsahovat tez nejaky balik dat. Data jsou v TMemoryStreamu.
Mam zatim zhruba toto:
FhInet := InternetOpen(PChar('AAAA'), INTERNET_OPEN_TYPE_DIRECT, nil, nil,
INTERNET_FLAG_ASYNC);
if FhInet = nil then
raise Exception.Create('InternetOpen Failed');
InternetSetStatusCallback(FhInet, (zv)InternetStatusCallbackFunc);
FhConnection := InternetConnect(FhInet, PChar(URL), RemotePort, '', '',
INTERNET_SERVICE_HTTP, 0, 1);
if FhConnection = nil then
raise Exception.Create('InternetConnect Failed');
FhRequest := HTTPOpenRequest(FhConnection, PChar('POST'), nil, nil,
nil, nil, INTERNET_FLAG_KEEP_CONNECTION, 1);
Buff.dwStructSize := sizeof(Buff);
Buff.Next := nil;
Buff.lpcszHeader := nil;
Buff.dwHeadersLength := 0;
Buff.dwHeadersTotal := 0;
Buff.lpvBuffer := StreamKOdeslani.Memory;
Buff.dwBufferLength := StreamKOdeslani.Size;
Buff.dwBufferTotal := StreamKOdeslani.Size;
Buff.dwOffsetLow := 0;
Buff.dwOffsetHigh := 0;
if not HTTPSendRequestEx(FhRequest, (zv)Buff, nil, 0, lparam(Self)) then
begin
if GetLastError <> ERROR_IO_PENDING then
raise Exception.Create('HTTPSendRequestEx Failed');
end;
Tento kod by mel spustit asynchronne odeslani pozadavku. Prozatim neresim prijem
odpovedi - ten bude v callback funkci.
InternetStatusCallbackFunc je callback funkce, ktera je prozatim prazdna.
No a ted problem. Posledni parametr ve funkcich InternetConnect a dalsich ma byt
nejaka promenna urcujici kontext. Kdyz tam dam hodnotu nula, nevznikne nikde zadna
chyba, ale callback funkce se nikdy nevyvola. Kdyz tam dam cokoli jineho, program do
callback funkce vleze (predane parametry jsou ale nesmyslne, a po jejim skonceni
vznikne access violation v kernel32.dll.
Nemate nekdo nahodou nejaky funkcni priklad na asynchronni komunikaci pres WinInet
- nebo aspon nevite, co delam spatne?
Diky
David Lebeda
OT: Evidence odpracovane doby na zakazce
[*] Dalibor <dalibor(zv)torola(tec)cz> - 22.4.2004 14:02:35
Ahoj,
mate nekdo zkusenosti s implementaci systemu na evidenci odpracovane doby pracovnika na zakazce, vcetne evidence provedeneho vykonu a mnozstvi jednotek.
Pracovnik muze pracovat behem dne na vice zakazkach, muze take prerusit praci na zakazce a pracovat na jine, atd.
Co pouzit za reseni pri evidenci - napr. Dallas klice, Ctecky caroveho kodu, atd. tak aby to prilis nezatezovalo, a nezdrzovalo pracovnika, pripadne dalsi pracovniky pri evidenci.
Za jakekoliv info dekuji.
Dalibor.
Memo a smer cteni ?
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 22.4.2004 13:40:32
toto ti tam prida system kdyz mas naistalovanou nejakou arabskou ci co
klavesnici nebo podporu pro tohle pismo
property ReadOnly Edit-u a barva
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 22.4.2004 13:44:33
Vsechny zdravim,
chtel bych pri zmene property ReadOnly menit barvu editu.
property je definovana v CustomEdit: a v metode SetReadOnly je posilana tato zprava
SendMessage(Handle, EM_SETREADONLY, Ord(Value), 0);
Snazil jsem se najit nejakou konstatnu v Controls. Neco jako CM_SETREADONLY, ale marne. Nevite nekdo, jak odchytit tuto zpravu - nemam s tim moc zkusenosti. Popripade, kde bych mel patrat?
JR
Memo a smer cteni ?
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 22.4.2004 13:22:30
Ahoj delphici,
jsem zmaten, mozna jsem to dycky prehlizel nebo fakt nevim ale u komponenty memo kdyz v spustenem programu kliknu pravym tlacitkem na ni tak se mi zobrazi krome klasicke nabidky vlozit, kopirovat... neco navic a to Smer cteni zprava doleva, Zobrazit ridici znaky unicode, Vlozit ridici znaky unicode, proto se ptam wo co tady jde ? Ja to tam mit nechtel, je to tam standartne windowsem nebo to tam pridalo neco o cem nevim (soucast systemu nebo co, je to ted v kazdem programu).
dik za kazde vysvetleni.
Radek Szurman
OLE DB
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 22.4.2004 13:04:28
Ahoj.
Tak jsem se pres ConnectionString a test connection pripojil do Oraclu, ale
kdyz chci AdoQuery otevrit na ACTIVE, zahlasi se chyba, ze patricna tabulka
neexistuje. Cotoje? Poradte mi prosim nekdo. Mam tady D5 ent. a Oracle 8 PE,
Win 98.
Diky
Dalibor Faltynek
Orgrez, a. s.
tel.: +420 541 613 312
fax: +420 541 613 299
e-mail: dalibor.faltynek(zv)orgrez(tec)cz
OLE DB
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 22.4.2004 12:20:24
Aha pardon,
stacilo si spustit delfi, je tam pruvodce, ale kdyz uy o tom mluvim, neni
tam nejaky zakopany pes, kde bych se zasekl?
Dalik.
> neporadite nekdo, jak si vytvorit udl soubor, rad bych si zkusil neco v
> Oraclu pres ADO, zatim jsem to delal pres BDE, nebo ODBC. Mam knizku
> Prechazime na Delphi 5, a je tam popisovane pripojeni pomoci
> ConnectionString, jenze nemam vytvorene v OLE DB/DataLinks zadne soubory
> typu UDL a nevim jak na to.
> Diky za radu - Dalibor.
>
OLE DB
[*] Jiri Sedivec <jsedivec(zv)tiscali(tec)cz> - 22.4.2004 12:26:25
A nestacilo by ti dat si na plochu prazdny soubor, pak ho prejmenovat na
XXXYYY.UDL a dvakrat na nej kliknout???
----- Original Message -----
Subject: OLE DB
> Ahoj,
> neporadite nekdo, jak si vytvorit udl soubor, rad bych si zkusil neco v
> Oraclu pres ADO, zatim jsem to delal pres BDE, nebo ODBC. Mam knizku
> Prechazime na Delphi 5, a je tam popisovane pripojeni pomoci
> ConnectionString, jenze nemam vytvorene v OLE DB/DataLinks zadne soubory
> typu UDL a nevim jak na to.
> Diky za radu - Dalibor.OLE DB
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 22.4.2004 12:16:23
Ahoj,
neporadite nekdo, jak si vytvorit udl soubor, rad bych si zkusil neco v
Oraclu pres ADO, zatim jsem to delal pres BDE, nebo ODBC. Mam knizku
Prechazime na Delphi 5, a je tam popisovane pripojeni pomoci
ConnectionString, jenze nemam vytvorene v OLE DB/DataLinks zadne soubory
typu UDL a nevim jak na to.
Diky za radu - Dalibor.vice vlaken a ADO
[*] L?ikola Petr <developer(zv)efg(tec)cz> - 22.4.2004 11:18:19
Zdravim konferenci, planuji vytvoreni vicevlaknove aplikace (service), kde bude komunikovat s databazi vice vlaken. Jaky mam zvolit nejlepsi model (jake objekty v jakem vlakne), aby aplikace byla co nejodolnejsi a take co nejrobustnejsi a abz se ty pristupy samozdrejme nemuseli vykonavat pres hlavni vlakno (synchronize)?
Jeste by me zajimala problematika vice procesoru X vice vlaken. V soucasnosti provozujem vicevlaknovou applikaci na vice procesorech ale jen s SetProcessAffinityMask(ProcessHandle, 1) (cimz ovsem prijdu o vyhodu vice procesoru), jinak aplikace nahodne padala.
D5, MSSQL, ADO,
Diky za info
Petr Sikola
normalizace databazi adresare
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 22.4.2004 10:56:17
Myslim, ze sparovani dat v takovychto pripadech je vec pro umelou
inteligenci, nebo spravce ciselniku. Na zaklade ica to sparovat asi nejde,
protoze pod jednim icem je vice pobocek nebo provozoven a jak rozhodnes,
ktera je ktera, kdyz pri zadavani nove firmy a sidla pobocky nekdo napise
treba do ulice o mezeru vic, takze sidla se jevi jako ruzna. To je ta krasa
centralnich databazi nepropojenych online. Ja bych to resil tak, ze upravu
hlavnich ciselniku (zbozi, skupiny a jine trideni)lze provadet jen centralne
a pokud je bezna prace offline, tak urcite ciselniky, kde to nejde, zavest
jako individualni.
Dalik.> Bude to mit jedinnou vadu:
> pokud budou vstupovat nove odberatele na pobockach (bez centralni
> evidence
> jak jsem pochopil), tak musi nekde dojit ke sparovani tech ID_FIRMY
> (na kazde pobocce ma ta sama firma jine ID).
> Tam jsem chtel pouzit to ICO, ale jestli mas lepsi reseni ?
>
______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
Alt-tab - Ctrl -Esc ?
[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 22.4.2004 10:54:16
Hello Konference,
Lze nejak realizovat zakazani kl. skrat. ctrl-esc bez toho aniz bych
zaroven zakazal alt- tab ?
--
Best regards,
Jiri mailto:kindrik(zv)centrum(tec)cz
ICQ#: 265297587
__________________________________________________________________
______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
Ladeni vlaken v Delphi 6
[*] Ludek <delphi-konference(zv)bcpraha(tec)com> - 22.4.2004 10:42:15
Ahoj,
Mam problem pri ladeni nehlavnich vlaken v Delphi 6. Pokud bych chtel
ladit kod v Delphi debuggeru, tak vzdy kdyz prechazim na dalsi radek kodu
pomoci F7 nebo F8, trva tento prechod 3-4 sekundy. To naprosto znemoznuje
jakekoli symsluplne ladeni. Netusite, kde by mohl byt problem?
Diky,
Ludek
Alt-tab - Ctrl -Esc ?
[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 22.4.2004 10:32:13
Hello Konference,
Lze nejak realizovat zakazani kl. skrat. ctrl-esc bez toho aniz bych
zaroven zakazal alt- tab ?
--
Best regards,
Jiri mailto:kindrik(zv)centrum(tec)cz
ICQ#: 265297587
__________________________________________________________________
normalizace databazi adresare
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 22.4.2004 10:26:03
On Behalf Of Dalibor Faltynek
> Myslim, ze sparovani dat v takovychto pripadech je vec pro
> umelou inteligenci, nebo spravce ciselniku. Na zaklade ica to
> sparovat asi nejde, protoze pod jednim icem je vice pobocek
> nebo provozoven a jak rozhodnes, ktera je ktera, kdyz pri
> zadavani nove firmy a sidla pobocky nekdo napise treba do
> ulice o mezeru vic, takze sidla se jevi jako ruzna. To je ta
> krasa centralnich databazi nepropojenych online. Ja bych to
> resil tak, ze upravu hlavnich ciselniku (zbozi, skupiny a
> jine trideni)lze provadet jen centralne a pokud je bezna
> prace offline, tak urcite ciselniky, kde to nejde, zavest
> jako individualni.
Ahoj.
To je pravda, ovsem v praxi je to obvykle tak, ze pobocky maji nejakou
identifikaci (napr. Hypernova 104)
Ludek
normalizace databazi adresare
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 22.4.2004 10:24:00
On Behalf Of Slavomir Skopalik
> Bude to mit jedinnou vadu:
> pokud budou vstupovat nove odberatele na pobockach (bez
> centralni evidence jak jsem pochopil), tak musi nekde dojit
> ke sparovani tech ID_FIRMY (na kazde pobocce ma ta sama firma
> jine ID). Tam jsem chtel pouzit to ICO, ale jestli mas lepsi reseni ?
>
> Slavek
>
> PS:Jeden muj odberatel to resi tak, ze je nutne se nejprve u
> nej zaregistrovat (trva to dost dlouho) a pak teprve muze
> clovek dodavat.
Ahoj.
Tak to jsem zase nepochopil ja::)), Pocital jsem s tim ze se jedna o
centralni evidenci.
Jinak udelat centralni evidenci replikovanou na Internetu je i pro tento
DM to prave protoze staci on-line replikovat pouze tu kratkou hlavni
tabulku ktera zajisti jedinecnost KOD_FIRMY a prideli unikatni ID_RIFMY
(v takovem pripade samozrejme guid.
Nic jineho nemusi na Inetu byt, ostatni se zreplikuje na centralu
nejakou davkou.
Ale to jsme se uz dostali strasne daleko a asi uplne jinam nez o co
puvodne slo.
Ludek
normalizace databazi adresare
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 22.4.2004 09:29:49
Myslim, ze sparovani dat v takovychto pripadech je vec pro umelou
inteligenci, nebo spravce ciselniku. Na zaklade ica to sparovat asi nejde,
protoze pod jednim icem je vice pobocek nebo provozoven a jak rozhodnes,
ktera je ktera, kdyz pri zadavani nove firmy a sidla pobocky nekdo napise
treba do ulice o mezeru vic, takze sidla se jevi jako ruzna. To je ta krasa
centralnich databazi nepropojenych online. Ja bych to resil tak, ze upravu
hlavnich ciselniku (zbozi, skupiny a jine trideni)lze provadet jen centralne
a pokud je bezna prace offline, tak urcite ciselniky, kde to nejde, zavest
jako individualni.
Dalik.> Bude to mit jedinnou vadu:
> pokud budou vstupovat nove odberatele na pobockach (bez centralni
> evidence
> jak jsem pochopil), tak musi nekde dojit ke sparovani tech ID_FIRMY
> (na kazde pobocce ma ta sama firma jine ID).
> Tam jsem chtel pouzit to ICO, ale jestli mas lepsi reseni ?
>
Shift+Sipka...
[*] horky(zv)cominn(tec)cz - 22.4.2004 07:23:39
> From: vponecha(zv)volny(tec)cz [mailto:vponecha(zv)volny(tec)cz]
> Sent: Wednesday, April 21, 2004 5:00 PM
> Mam prosbu. Chci na pohyb objektu ve sve aplikaci (objekty jsou
> tridy TPanel) pouzit shift+sipka (left, rigth, top, down). Delal
> jsem to asi takto. Na formular jsem do OnKeyDown dal proceduru,
> ktera oznaceny objekt najde a pripocitava nebo odcita
> TPanel.left/top.
>
> Jenze ono to nefunguje. Misto toho, aby se mi pohyboval objekt,
> lita mi focused po buttons, ktere mam take na formulari.
1. KeyPreview na formu musis mit true.
2. Po vlastni obsluze stisku klaves potlacit dalsi defaultni zpracovani pomoci Key := 0;
procedure TMujForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssShift in State) then begin
if (Key = VK_UP) then begin
PosunPanelNahoru;
Key := 0; //zablokovat dalsi zpracovani stisku sipky
end;
...
obsluha dalsich sipek
...
end;
end;
--
S pozdravem Karel Horky, D7, FB 1.0.3, IBX 7.08, WXP SP1
[mailto:horky(zv)cominn(tec)cz]
OCR do aplikace
[*] Jan Blaha <jan.blaha(zv)terminus(tec)cz> - 22.4.2004 07:09:37
Ceny dostanes v ramci podepisovani smlouvy. Bez pisemneho podpisu
smlouvy to stejne nedostanes. Pokud chces, posli mi mail mimo konferenci
a ja ti poslu excelovskou tabulku. Predem podotykam, nevim jake reseni
shanite, tohle umi temer vse vcetne treba arabskych fontu a podle toho
to stoji. Na rocni vyvoj to lze dostat zdarma, pak ale cena SDK je
4500-5500 USD a cena nutnych runtime licenci je od 400USD za jednu pres
200USD za jednu pri 100ks az k 10USD za jednu pri 10000 ks. Takze je to
super vec pouzitelna ale jen do vetsich projektu....
Honza
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Jan Netrval
Sent: Thursday, April 22, 2004 6:46 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: OCR do aplikace
To je docela zajimave. Jen jsem tam nikde nenasel ceny tech runtime
licenci, ktere by potreboval pripadny uzivatel.
Ing. Jan Netrval
PilsCom, s.r.o. www.pilscom(tec)cz
Houskova 16
326 00 Plzen (Pilsen) Czech Republic
Tel.: +420 377 441 306
GSM: +420 603 851 391
E-mail: jnetrval(zv)pilscom(tec)cz
> -----Original Message-----
> From: Jan Blaha [mailto:jan.blaha(zv)terminus(tec)cz]
> Sent: Thursday, April 22, 2004 12:37 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: OCR do aplikace
>
> Hledej na http://www.scansoft.com/developers/ sekce Capture
> Development System -> Free Evaluation version
>
> Honza
>
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
> On Behalf Of MMS
> Sent: Wednesday, April 21, 2004 8:35 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: OCR do aplikace
>
>
> Ahoj,
> ----- Original Message -----
> From: "Jan Blaha" <jan.blaha(zv)terminus(tec)cz>
>
>
> > www.ScanSoft.com je to spicka v oboru, jazyky a I kdyz SDK pro
> vyvoj je
> po
> > registraci zdarma.
> Po registracii coho - ktorej verzie? (OmniPage Pro/Standard?)
>
> Diky Miro
>
>
>
>
>
> OCR do aplikace
[*] Jan Blaha <jan.blaha(zv)terminus(tec)cz> - 22.4.2004 07:09:38
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Jan Netrval
Sent: Thursday, April 22, 2004 6:46 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: OCR do aplikace
To je docela zajimave. Jen jsem tam nikde nenasel ceny tech runtime
licenci, ktere by potreboval pripadny uzivatel.
Ing. Jan Netrval
PilsCom, s.r.o. www.pilscom(tec)cz
Houskova 16
326 00 Plzen (Pilsen) Czech Republic
Tel.: +420 377 441 306
GSM: +420 603 851 391
E-mail: jnetrval(zv)pilscom(tec)cz
> -----Original Message-----
> From: Jan Blaha [mailto:jan.blaha(zv)terminus(tec)cz]
> Sent: Thursday, April 22, 2004 12:37 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: OCR do aplikace
>
> Hledej na http://www.scansoft.com/developers/ sekce Capture
> Development System -> Free Evaluation version
>
> Honza
>
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
> On Behalf Of MMS
> Sent: Wednesday, April 21, 2004 8:35 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: OCR do aplikace
>
>
> Ahoj,
> ----- Original Message -----
> From: "Jan Blaha" <jan.blaha(zv)terminus(tec)cz>
>
>
> > www.ScanSoft.com je to spicka v oboru, jazyky a I kdyz SDK pro
> vyvoj je
> po
> > registraci zdarma.
> Po registracii coho - ktorej verzie? (OmniPage Pro/Standard?)
>
> Diky Miro
>
>
>
>
>
> OCR do aplikace
[*] Jan Netrval <jnetrval(zv)pilscom(tec)cz> - 22.4.2004 06:45:35
To je docela zajimave. Jen jsem tam nikde nenasel ceny tech runtime licenci, ktere by potreboval pripadny uzivatel.
Ing. Jan Netrval
PilsCom, s.r.o. www.pilscom(tec)cz
Houskova 16
326 00 Plzen (Pilsen) Czech Republic
Tel.: +420 377 441 306
GSM: +420 603 851 391
E-mail: jnetrval(zv)pilscom(tec)cz
> -----Original Message-----
> From: Jan Blaha [mailto:jan.blaha(zv)terminus(tec)cz]
> Sent: Thursday, April 22, 2004 12:37 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: OCR do aplikace
>
> Hledej na http://www.scansoft.com/developers/ sekce Capture
> Development System -> Free Evaluation version
>
> Honza
>
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
> Behalf Of MMS
> Sent: Wednesday, April 21, 2004 8:35 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: OCR do aplikace
>
>
> Ahoj,
> ----- Original Message -----
> From: "Jan Blaha" <jan.blaha(zv)terminus(tec)cz>
>
>
> > www.ScanSoft.com je to spicka v oboru, jazyky a I kdyz SDK pro
> vyvoj je
> po
> > registraci zdarma.
> Po registracii coho - ktorej verzie? (OmniPage Pro/Standard?)
>
> Diky Miro
>
>
>
>
>
> OCR do aplikace
[*] Jan Blaha <jan.blaha(zv)terminus(tec)cz> - 22.4.2004 00:37:09
Hledej na http://www.scansoft.com/developers/ sekce Capture
Development System -> Free Evaluation version
Honza
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of MMS
Sent: Wednesday, April 21, 2004 8:35 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: OCR do aplikace
Ahoj,
----- Original Message -----
From: "Jan Blaha" <jan.blaha(zv)terminus(tec)cz>> www.ScanSoft.com je to spicka v oboru, jazyky a I kdyz SDK pro
vyvoj je
po
> registraci zdarma.
Po registracii coho - ktorej verzie? (OmniPage Pro/Standard?)
Diky Miro
OCR do aplikace
[*] Jan Blaha <jan.blaha(zv)terminus(tec)cz> - 22.4.2004 00:29:07
K ziskani SDK - je pro visual C++, ale to by nemelo vadit..
Takze k ziskani SDK je treba se zaregistrovat, nasledne prijde email od
scansoftu, neni to hned, dela to clovek a pak se musi podepsana smlouva
na SDK odeslat do Belgie a prijde od nich soft. SDK je tedy na rocni
vyvoj zdarma, problem je spise v runtime licencich. Ale je to spicka v
oboru, vyuzita napr. ve Filenetu ci Sharepointu, coby etalonu DMS
systemu....
Honza
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of MMS
Sent: Wednesday, April 21, 2004 8:35 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: OCR do aplikace
Ahoj,
----- Original Message -----
From: "Jan Blaha" <jan.blaha(zv)terminus(tec)cz>> www.ScanSoft.com je to spicka v oboru, jazyky a I kdyz SDK pro
vyvoj je
po
> registraci zdarma.
Po registracii coho - ktorej verzie? (OmniPage Pro/Standard?)
Diky Miro
normalizace databazi adresare
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 21.4.2004 23:41:04
Bude to mit jedinnou vadu:
pokud budou vstupovat nove odberatele na pobockach (bez centralni
evidence
jak jsem pochopil), tak musi nekde dojit ke sparovani tech ID_FIRMY
(na kazde pobocce ma ta sama firma jine ID).
Tam jsem chtel pouzit to ICO, ale jestli mas lepsi reseni ?
Slavek
PS:Jeden muj odberatel to resi tak, ze je nutne se nejprve u nej
zaregistrovat
(trva to dost dlouho) a pak teprve muze clovek dodavat.
> Nejlepsi je neco takoveho :
>
> Tabulka firem
> ID_FIRMY (guid nebo autoincremet)
> KOD unique textovy klic
>
> Tabulka udaju
> ID_UDAJFIRMY
> ID_FIRMY
> ID_TYPUUDAJE
> dale
> UDAJCISLO DECIMAL
> UDAJTEXT VARCHAR
> UDAJDATUM DATE
> Nebo
> UDAJ "VARIANT"
> PLATIOD DATETIME
> PLATIDO DATETIME
>
> Tabulka typu
> ID_TYPUDAJE
> LABEL varchar
> POPIS varchar
> VLASTNOST int
> Pripadne dalsi kratke idetifikatory vlastnosti udaju
>
> V tabulce typu pak treba mas:
> 1 - Nazev - Obchodni jemeno firmy - NULL
> 2 - ICO - IC firmy - NULL
> 3 - DIC - DIC firmy -NULL
> 4 - Ulice - Ulice - 1 (fakturacni)
> 5 - Ulice - Ulice - 2 (dodaci)
> 6 - Ulice - Ulice - 3 (sidlo)
> ......
> 9999 - NOS - velikost nosu obchodniho zastupce -NULL
>
> Pomoci toho popises co jde a jeste das uzivatelum moznost si
> krasne dodavat svoje potrebna pole, navic podle typu se pak
> muzes v uzivatelskem rozhrani k jedntlivym udajum stavet,
> pokud typ ID=124 bude e-mail pak kliknutim spustis Outlook
> MAILTO, atd... Zrovna tak co se tyce nabizenych ciselniku a
> pod, nese si to ssebou uz samotny udaj a je jedno kolik mailu
> telefonu ci adres si uzivatel do adresare prida.
>
> Jak spocitat pobocky je pak jiz jen select podle ID_TYP_UDAJE
> --> ID_UDAJFIRMY --> ID_FIRMY
> normalizace databazi adresare
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 21.4.2004 22:30:58
] On Behalf Of Slavomir Skopalik
> Dotaz nebyl o jednoznacne identifikaci, tu bych pres ICO
> nedelal, ale jak dat dohromady data z pobocek (tak jsem to pochopil).
Ahoj.
No to je o cele konstrukci datoveho modelu adresare.
Musis oddelit adresy od firem a je to.
Adres pak muzes mit k firme prirazenych vic a jeste u nich muzes mit
vlastnost zda se jedna o dresy fakturacni, dodaci, neplatnou ....
Pripadne i casovou platnosti.
Dale predpokladam, ze faktura ma jednak identifikaci firmy a jedna
idetifikaci konecneho prijemce. Bez toho se fakturace snad ani neda
napsat.
Nejlepsi je neco takoveho :
Tabulka firem
ID_FIRMY (guid nebo autoincremet)
KOD unique textovy klic
Tabulka udaju
ID_UDAJFIRMY
ID_FIRMY
ID_TYPUUDAJE
dale
UDAJCISLO DECIMAL
UDAJTEXT VARCHAR
UDAJDATUM DATE
Nebo
UDAJ "VARIANT"
PLATIOD DATETIME
PLATIDO DATETIME
Tabulka typu
ID_TYPUDAJE
LABEL varchar
POPIS varchar
VLASTNOST int
Pripadne dalsi kratke idetifikatory vlastnosti udaju
V tabulce typu pak treba mas:
1 - Nazev - Obchodni jemeno firmy - NULL
2 - ICO - IC firmy - NULL
3 - DIC - DIC firmy -NULL
4 - Ulice - Ulice - 1 (fakturacni)
5 - Ulice - Ulice - 2 (dodaci)
6 - Ulice - Ulice - 3 (sidlo)
......
9999 - NOS - velikost nosu obchodniho zastupce -NULL
Pomoci toho popises co jde a jeste das uzivatelum moznost si krasne
dodavat svoje potrebna pole, navic podle typu se pak muzes v
uzivatelskem rozhrani k jedntlivym udajum stavet, pokud typ ID=124 bude
e-mail pak kliknutim spustis Outlook MAILTO, atd... Zrovna tak co se
tyce nabizenych ciselniku a pod, nese si to ssebou uz samotny udaj a je
jedno kolik mailu telefonu ci adres si uzivatel do adresare prida.
Jak spocitat pobocky je pak jiz jen select podle ID_TYP_UDAJE -->
ID_UDAJFIRMY --> ID_FIRMY
Ludek
TComboBox - CLX chyba???
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 21.4.2004 22:22:56
Ahoj,
mam pocit, ze ComboBox pri CLX app ma zajimavou chybu.
Kdyz dam OwnerDrawFixed a napisu vlastni OnDrawItem (vykleslim neco primo na
Canvas - tr.: ComboBox1.Canvas.TextOut(Rect.Left, Rect.Top,
LeftStr(ComboBox1.Items[Index], 2))) a ComboBox ztrati Focus, nedojde k
prekresleni. Ale kdyz ho znovu rozbalim, je polozka vybrana.
Setkal se s tim nekdo? Nevi nekdo jako to resit? -> Jak?
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
web: http://www.cincura.net; http://cincura.net/photo
OCR do aplikace
[*] MMS <preas_w(zv)stonline.sk> - 21.4.2004 20:34:48
Ahoj,
----- Original Message -----
From: "Jan Blaha" <jan.blaha(zv)terminus(tec)cz>> www.ScanSoft.com je to spicka v oboru, jazyky a I kdyz SDK pro vyvoj je
po
> registraci zdarma.
Po registracii coho - ktorej verzie? (OmniPage Pro/Standard?)
Diky Miro
normalizace databazi adresare
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 21.4.2004 20:32:47
> Jake "parovani" mas na mysli (parovani plateb nebo snad ...
> <JOKE>uzivatelu a uzivatelek ::)</JOKE>
Jestli jsem to spravne pochipil, tak se melo jednat o sestavy,
kolik ktera firma odebrala stahovane z ryznych pobocek.
>
> No ja znam i uzivatele kteri ocekavaji neco jineho
> Priklad z praxe : Jednoznacny klic subjektu =
> 1) v pripade drobnych odberatelu je to opravdu ICO
> 2) v pripade velkych siti a vyznacnych odberatelu je to
> nejaka zvolena zkratka (napr. CZAHLOD, SKAHOLD, CZDELVITA)
> 3) v pripade zahranicnich spolecnosti je to obdobne napriklad
> JIMMY1, HANNAH2 .... Proste kazda firma ma jine potreby....
Souhlas.
> > > 1) ICO (ac se to zda divne) NEMUSI byt v praxi jednoznacne
> >
> > Prosim dokaz to. Pokud se to stane, tak je chyba na
> > prislusnem OR a firmy kterym se to stane budou mit dost problemu.
>
> No jake problemy mas na mysli ?
Pri vyberu dani, jelikoz, pokud budou ze stejneho kraje, tak budou
mit i stejne ico a .... :((((
>
> V praxi jsem na to narazil jednou (bylo to tusim jedna firma
> odnekud z Usti a druha blizko Brna ale bohuzel konkretni
> informace uz nejsem schopen nijak dohledat a dolozit.) Jinak
> z praxe je znamo a v archivu konference prijdes na to, ze
> podobna situace je u rodnych cisel. Na soukromy mail Ti
> posilam vypis z OR kdy nam zaregistovali firmu s.r.o. se
> stejnym nazvem jako uz existujici a prisli jsme na to cirou
> nahodou v bance pri zalozeni uctu :)
Uz jsem to tu psal nekolikrat:
Jmeno firmy je k nicemu.
Zakon definuje, ze firma je urcena svym nazvem a sidlem a to cos
mi poslal proste byla jen shoda nazvu nic vic.
>
> Takze tvoje duvera v statni rejstriky je prinejmensim problematicka.
Pri vystavovani dokladu ti nic jineho nezbyva, musis respektovat
zakony i kdyz se ti to nelibi. Ja neresim identifikaci uvnitr DB,
to je trivialitka, ale identifikaci pri vstupu dat do systemu a vystupu
dat ze systemu.
> > Tohle jsou ze zakona jine firmy, to ze si je sloucis pro sve
> > interni potreby je tva vec.
>
> No zalezi na tom z jakeho pohledu a podle ktereho zakona.
> Napriklad zavazky a pohledavky mohou klidne mit pravni
> kontinuitu u rozdilnych firem. Takze to co rikas je takova
> samopravda ktera nema vubec zadny vliv na vhodnost pouziti IC
> pro jednoznacnou identifikaci firmy v ramci informacniho systemu.
Ja se opravdu nesnazim identifikovat uvnitr IS, ale mezi IS a na jeho
vstupu.
Prevod zavazku a pohledavek je neco jineho, to nesouvisi s fakturou,
novou fakturu vystavis na novou firmu, pohledavku budes uplatnovat vuci
subjektu, ktery je uveden na fakture jako odberatel.
Pokud se neco s firmou deje, tak nezaplacene faktury zustavaji v strare
spolecnosti a aktiva se prevedou.
Dotaz nebyl o jednoznacne identifikaci, tu bych pres ICO nedelal,
ale jak dat dohromady data z pobocek (tak jsem to pochopil).
Slavek
Knihovna pro praci s TIFF soubory (Delphi 7)
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 21.4.2004 20:10:44
Aldik:
Hledej bmp2tif nebo tak nejak se jmenovala knihovna co jsem ji kdysi
pouzil
Umela ji jine veci
Ludek:
> > > Neznate nekdo nejakou knihovnu pro praci s TIFF soubory ?
> >
> Ahoj.
> Pokud ti staci pro w2k tak se da natahnout ocx Imagingu
OCR do aplikace
[*] Jan Blaha <jan.blaha(zv)terminus(tec)cz> - 21.4.2004 20:06:44
www.ScanSoft.com je to spicka v oboru, jazyky a fonty temer vse co si
lze vzpomenout, ale neni to nejlevnejsi. I kdyz SDK pro vyvoj je po
registraci zdarma.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of delphin(zv)post(tec)cz
Sent: Wednesday, April 21, 2004 5:17 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: OCR do aplikace
V aplikaci ziskam obrazek a potrebuju ho prohnat OCR a zpracovat
vysledky. Existuje nejake slusne OCR (musi umet ceske znaky) k vestaveni
do aplikace, pripadne aby slo programove ovladat ? Nemusi byt free.
Diky Delphin
OCR do aplikace
[*] delphin(zv)post(tec)cz - 21.4.2004 17:16:30
V aplikaci ziskam obrazek a potrebuju ho prohnat OCR a zpracovat vysledky.
Existuje nejake slusne OCR (musi umet ceske znaky) k vestaveni do aplikace,
pripadne aby slo programove ovladat ? Nemusi byt free.
Diky Delphin
Shift+Sipka...
[*] Burkovsky Ladislav <ladislav.burkovsky(zv)autinform.de> - 21.4.2004 17:14:29
Zeby keypreview
-----Ursprungliche Nachricht-----
Von: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]Im
Auftrag von vponecha(zv)volny(tec)cz
Gesendet: Mittwoch, 21. April 2004 17:00
An: delphi-l(zv)clexpert(tec)cz
Betreff: Shift+Sipka...
Ahoj,
Mam prosbu. Chci na pohyb objektu ve sve aplikaci (objekty jsou
tridy TPanel) pouzit shift+sipka (left, rigth, top, down). Delal
jsem to asi takto. Na formular jsem do OnKeyDown dal proceduru,
ktera oznaceny objekt najde a pripocitava nebo odcita
TPanel.left/top.
Jenze ono to nefunguje. Misto toho, aby se mi pohyboval objekt,
lita mi focused po buttons, ktere mam take na formulari.
Jak na to?
Diky,
Vl.
--
SURVIVAL --- L-Carnitin+ HCA+ Chrom --- Miluj sve telo. Zbav se
kil! Specialni nabidka pro zeny na
http://www.mixer(tec)cz/redirect.phtml?sig=survival
dll-ky vytvorene vo visual .net studiu II
[*] p.sestak(zv)corag.sk - 21.4.2004 17:10:28
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of energystar
>
> dovolte mi aby som svoj dotaz zo vcera trosku konkretizoval.
> potrebujem vytvorit aplikaciu v d5ent ktora bude zobrazovat
> data ditribuovane z dll ktora bola vytvorena vo vb.net.
> zdrojove kody od dll mam, avsak z rozlicnych dovodov
> prepisanie dll do delphi nieje mozne. po nainstalovani
> framewoku sa z delphi aplikacii da dll natiahnut do pamati,
> aj z nej uvolnit. problem je vsak v tom ze data predavane z
> dll do aplikace su predavane ako metody objektov z dll.
> poradite mi prosim niekto ako vyvolat , vytvorit instanciu
> objektu z dll v delphi aplikacie?
Nie je mozne volat metody objektov z dll, pokial ta dll nie je pisana v
tom istom jazyku a kompilovana
tym istym kompilatorom a linkerom z dovodu nekompatibility tabulky
virtualnych metod
(teda pokial sa nebavime o COM technologii).
Ale co ti brani, za predpokladu ze mas zdrojaky od dll, si tam este
dorobit nejake exportovane funkcie
a volat z delphi aplikacie len tieto standardnou cestou.
Tieto funkcie budu len propagovat tvoje volania na objekty vo VB a
navratove hodnoty pojdu zas
opacne cez exportovane funkcie? Bude to sice trochu neefektivne ale inu
cestu ako prerobit to na COM
objekt nevidim, teda ak to musi byt za kazdu cenu obycajna dll.
Pavol Sestak
ICQ : 20989081
Shift+Sipka...
[*] vponecha(zv)volny(tec)cz - 21.4.2004 17:00:26
Ahoj,
Mam prosbu. Chci na pohyb objektu ve sve aplikaci (objekty jsou
tridy TPanel) pouzit shift+sipka (left, rigth, top, down). Delal
jsem to asi takto. Na formular jsem do OnKeyDown dal proceduru,
ktera oznaceny objekt najde a pripocitava nebo odcita
TPanel.left/top.
Jenze ono to nefunguje. Misto toho, aby se mi pohyboval objekt,
lita mi focused po buttons, ktere mam take na formulari.
Jak na to?
Diky,
Vl.
--
SURVIVAL --- L-Carnitin+ HCA+ Chrom --- Miluj sve telo. Zbav se
kil! Specialni nabidka pro zeny na
http://www.mixer(tec)cz/redirect.phtml?sig=survival
normalizace databazi adresare
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 21.4.2004 16:58:25
> -----Original Message-----
> > Ahoj.
> > Pouzit ICO(DIC) je IMHO VELMI_ HRUBA_CHYBA!!!
>
> To je omyl !!
> Ja nikde nepsal, ze mas pouzit ICO jako PK, ale muzes
> jej pouzit pro parovani, jelikoz pri opisovani adresy je
> chyba temer jistotou.
Jake "parovani" mas na mysli (parovani plateb nebo snad ...
<JOKE>uzivatelu a uzivatelek ::)</JOKE>
> Zakon rika tohle:
> Firma je definovana jmenem a sidlem firmy.
>
> Na OR to transaformuji do ICO.
>
> Pokud budes delat zadavani faktury, tak bych jako
> uzivatel ocekaval, ze zadam ICO a zobrazi se mi zaznam o
> firme. Preci nebudu mit ve firme jeste jeden ciselnik s
> prekladem ICO -> GUID a vstupovat GUID ?
No ja znam i uzivatele kteri ocekavaji neco jineho
Priklad z praxe : Jednoznacny klic subjektu =
1) v pripade drobnych odberatelu je to opravdu ICO
2) v pripade velkych siti a vyznacnych odberatelu je to nejaka zvolena
zkratka (napr. CZAHLOD, SKAHOLD, CZDELVITA)
3) v pripade zahranicnich spolecnosti je to obdobne napriklad JIMMY1,
HANNAH2 ....
Proste kazda firma ma jine potreby....
>
> >
> > 1) ICO (ac se to zda divne) NEMUSI byt v praxi jednoznacne
>
> Prosim dokaz to. Pokud se to stane, tak je chyba na
> prislusnem OR a firmy kterym se to stane budou mit dost problemu.
No jake problemy mas na mysli ?
V praxi jsem na to narazil jednou (bylo to tusim jedna firma odnekud z
Usti a druha blizko Brna ale bohuzel konkretni informace uz nejsem
schopen nijak dohledat a dolozit.)
Jinak z praxe je znamo a v archivu konference prijdes na to, ze podobna
situace je u rodnych cisel.
Na soukromy mail Ti posilam vypis z OR kdy nam zaregistovali firmu
s.r.o. se stejnym nazvem jako uz existujici a prisli jsme na to cirou
nahodou v bance pri zalozeni uctu :)
Takze tvoje duvera v statni rejstriky je prinejmensim problematicka.
> > 2) ICO(DIC) se muze zmenit a presto se jedna z marketingoveho i
> > pravniho hlediska (zavazky a pohledavky) o stejneho odberatele
> > napriklad pokud spolecnost zmeni pravni formu nebo
>
> Jenze se pak jedna o jinou spolecnost !
> Ze zakona:
> treba ABC, a.s. -> ABC, s.r.o.
>
> Tohle jsou ze zakona jine firmy, to ze si je sloucis pro sve
> interni potreby je tva vec.
No zalezi na tom z jakeho pohledu a podle ktereho zakona.
Napriklad zavazky a pohledavky mohou klidne mit pravni kontinuitu u
rozdilnych firem.
Takze to co rikas je takova samopravda ktera nema vubec zadny vliv na
vhodnost pouziti IC pro jednoznacnou identifikaci firmy v ramci
informacniho systemu.
Ludek
O.T. Nabidka zamestnani
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 21.4.2004 15:48:18
Uvolnilo se nam misto pro programatora v Delphi se znalosti SQL. Pokud byste
mel nekodo zajem nebo o nekom vite ozvete se mi na muj mail. Pracoviste je v
Praze a jen na HPP.
Jaroslav Nadhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel.: 224 312 344-5
fax: 235 522 892
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
pobocka Ostrava:
Nedbalova 14, 701 00 Ostrava
tel: 596 635 687
normalizace databazi adresare
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 21.4.2004 15:48:15
> Ahoj.
> Pouzit ICO(DIC) je IMHO VELMI_ HRUBA_CHYBA!!!
To je omyl !!
Ja nikde nepsal, ze mas pouzit ICO jako PK, ale muzes
jej pouzit pro parovani, jelikoz pri opisovani adresy je
chyba temer jistotou.
Zakon rika tohle:
Firma je definovana jmenem a sidlem firmy.
Na OR to transaformuji do ICO.
Pokud budes delat zadavani faktury, tak bych jako
uzivatel ocekaval, ze zadam ICO a zobrazi se mi zaznam o firme. Preci nebudu mit
ve firme jeste jeden ciselnik s prekladem ICO -> GUID
a vstupovat GUID ?
>
> 1) ICO (ac se to zda divne) NEMUSI byt v praxi jednoznacne
Prosim dokaz to. Pokud se to stane, tak je chyba na prislusnem OR
a firmy kterym se to stane budou mit dost problemu.
> 2) ICO(DIC) se muze zmenit a presto se jedna z marketingoveho
> i pravniho hlediska (zavazky a pohledavky) o stejneho
> odberatele napriklad pokud spolecnost zmeni pravni formu nebo
Jenze se pak jedna o jinou spolecnost !
Ze zakona:
treba ABC, a.s. -> ABC, s.r.o.
Tohle jsou ze zakona jine firmy, to ze si je sloucis pro sve interni potreby je
tva vec.
> pokud dojde ke slouceni spolecnosti nebo v pripade nejake
> formy pravniho nastupnictvi. DIC se meni napriklad pri
> stehovani sidla firmy. (mozna ted v tom novem formatu uz ne),
> nicmene plati bod 2
O DIC se tady nikdo nebavil, toco pises je snad samozrejme.
Slavek
dll-ky vytvorene vo visual .net studiu II
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 21.4.2004 15:48:19
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of energystar
>
> dovolte mi aby som svoj dotaz zo vcera trosku konkretizoval.
> potrebujem vytvorit aplikaciu v d5ent ktora bude zobrazovat
> data ditribuovane z dll ktora bola vytvorena vo vb.net.
> zdrojove kody od dll mam, avsak z rozlicnych dovodov
> prepisanie dll do delphi nieje mozne. po nainstalovani
> framewoku sa z delphi aplikacii da dll natiahnut do pamati,
> aj z nej uvolnit. problem je vsak v tom ze data predavane z
> dll do aplikace su predavane ako metody objektov z dll.
> poradite mi prosim niekto ako vyvolat , vytvorit instanciu
> objektu z dll v delphi aplikacie?
Obavam se, ze z toho nic nebude. Je to podobne, jako by ses snazil volat
Win32 dll z DOS programu.
Pokud jsi ve fazi, ze "potrebujes vytvorit aplikaci", zahod D5 a napis to
rovnou v .NET.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Precenovani ve skladovem systemu
[*] Ludek Paral <ludek.paral(zv)quick(tec)cz> - 21.4.2004 15:52:20
Vzdycky mas moznost uzaverku vratit, doklady opravit a znovu
nechat prepocitat skladove ceny novou uzaverkou.
Martin Schayna
lp: souhlas, takove systemy mam rad.Ty ktere uzivatel neomezuji. :)dll-ky vytvorene vo visual .net studiu II
[*] energystar <energystar(zv)inmail.sk> - 21.4.2004 15:03:48
dobry den
dovolte mi aby som svoj dotaz zo vcera trosku konkretizoval. potrebujem
vytvorit aplikaciu v d5ent ktora bude zobrazovat data ditribuovane z dll
ktora bola vytvorena vo vb.net. zdrojove kody od dll mam, avsak z
rozlicnych dovodov prepisanie dll do delphi nieje mozne. po
nainstalovani framewoku sa z delphi aplikacii da dll natiahnut do
pamati, aj z nej uvolnit. problem je vsak v tom ze data predavane z dll
do aplikace su predavane ako metody objektov z dll. poradite mi prosim
niekto ako vyvolat , vytvorit instanciu objektu z dll v delphi aplikacie?
dakujem .
prijemny den
ronai
normalizace databazi adresare
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 21.4.2004 14:25:42
On Behalf Of Slavomir Skopalik
> K tomu by melo slouzit ICO.
Ahoj.
Pouzit ICO(DIC) je IMHO VELMI_ HRUBA_CHYBA!!!
1) ICO (ac se to zda divne) NEMUSI byt v praxi jednoznacne
2) ICO(DIC) se muze zmenit a presto se jedna z marketingoveho i pravniho
hlediska (zavazky a pohledavky) o stejneho odberatele napriklad pokud
spolecnost zmeni pravni formu nebo pokud dojde ke slouceni spolecnosti
nebo v pripade nejake formy pravniho nastupnictvi.
DIC se meni napriklad pri stehovani sidla firmy. (mozna ted v tom novem
formatu uz ne), nicmene plati bod 2
Ludek
Precenovani ve skladovem systemu
[*] Ludek Paral <ludek.paral(zv)quick(tec)cz> - 21.4.2004 14:25:40
A co kdyz uz tu fakturu dostal odberatel? To si ji jako klidne opravis a
posles odberateli znovu? A jak dolozis, ze ta puvodni uz neplati? A ktere
DPH je pak platne? Kdybych byl financak, tak Ti za tohle naparim neprukazne
ucetnictvi a jestli to takhle uzivatele chteli, at se na tu pokutu klidne
poskladaji.
> ja nepisi jako dan.poradce, ale jak se da domluvit. Pokud obdrzim postou a
fakturu a ta je spatne, tak ji s klidnym svedomim dam do obalky a poslu zpet
na prepracovani. Ty snad zaplatis treba 100000 Kc navic ? .Kde je potom
problem ? Jen v tom , ze na te druhe strane jim to system nepovoli
prepracovat, poslou Ti jinou fakturu s jinym cislem. A to musime delat hodne
casto. Zeptam se jeste : uz jsi treba uctoval denne 100 faktur a do toho
resil neustala storna, opravy a nestandarty ? Kdyz denne dve hodiny stravis
zapoctama chybnych dokladu a ucetni ti stoji porad za prdeli, tak mluvis
jinak.
Jestlize doklad opustil ucetni jednotku, at uz se jedna o fakturu, pokladni
doklad, dodaci list, smlouvu nebo cokoli jineho, pak uz to nesmis menit at
se Ti to libi nebo ne.
- nemas pravdu, samotna auditorka stahuje faktury a opravuje je, je to jen
otazka dohody. Pokud se doklad nezaklada na pravde, tak je neplatny a
hotovo.Precenovani ve skladovem systemu
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 21.4.2004 14:57:47
Ludek Paral <ludek.paral(zv)quick(tec)cz> wrote:
>> Uz leta tohle mame vyresene pomoci off-line ocenovanim skladu,
>> tj. obsluha muze delat chyby a muze je kdykoliv pozdeji opravovat
>> popr. pozdeji doplnovat dodatecne naklady. Vyskladnovat ze skladu
>> take muze, avsak doklady ktere takto vznikaji nemaji urcenu skladovou
>> cenu -- do okamziku nez se sklad oceni "uzaverkou". Tato uzaverka
>> "potvrdi" na prijemkach dosud zadanou cenu a z ni odvodi ceny
>> pro vydejky. Tato operace lze delat podle potreby, muze se nechat
>> otevreny napr. tyden zpatky apod. Doklady uzavrene a ocenene
>> uzaverkou jiz nelze menit, ale samozrejme lze uzaverku zrusit a znovu
>> ji spocitat v okamziku kdy zjistim ze jsem spatne zadal prijemku.
>
> Ano, ja to delam shodne, ale stejne i po tom tydnu k tomu
> dojde.Offline prepocet te nezachrani, stejne musis mit moznost data
> opravit.
Vzdycky mas moznost uzaverku vratit, doklady opravit a znovu
nechat prepocitat skladove ceny novou uzaverkou.
Martin Schayna
Precenovani ve skladovem systemu
[*] Ludek Paral <ludek.paral(zv)quick(tec)cz> - 21.4.2004 14:25:41
> Uz leta tohle mame vyresene pomoci off-line ocenovanim skladu,
> tj. obsluha muze delat chyby a muze je kdykoliv pozdeji opravovat
> popr. pozdeji doplnovat dodatecne naklady. Vyskladnovat ze skladu
> take muze, avsak doklady ktere takto vznikaji nemaji urcenu skladovou
> cenu -- do okamziku nez se sklad oceni "uzaverkou". Tato uzaverka
> "potvrdi" na prijemkach dosud zadanou cenu a z ni odvodi ceny
> pro vydejky. Tato operace lze delat podle potreby, muze se nechat
> otevreny napr. tyden zpatky apod. Doklady uzavrene a ocenene
> uzaverkou jiz nelze menit, ale samozrejme lze uzaverku zrusit a znovu
> ji spocitat v okamziku kdy zjistim ze jsem spatne zadal prijemku.
Ano, ja to delam shodne, ale stejne i po tom tydnu k tomu dojde.Offline
prepocet te nezachrani, stejne musis mit moznost data opravit.Knihovna pro praci s TIFF soubory (Delphi 7)
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 21.4.2004 14:27:43
>
> > Neznate nekdo nejakou knihovnu pro praci s TIFF soubory ?
>
Ahoj.
Pokud ti staci pro w2k tak se da natahnout ocx Imagingu
Ludek
FastReport - zmena barvy v runtime
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 21.4.2004 14:23:40
Ahoj,
potrebuji v runtime menit vlastnosti objektu TfrMemoView.
Bohuzel TfrReport ve verzi 2.51 jiz nema zadny primy event, ve ktere
by k nemu slo pristupovat.
Zkousel jsem to v OnCustomizeObject
procedure TFormVazbyHarmoPrint.frReport1CustomizeObject(Sender:
TObject);
begin
if (Sender As TfrMemoView).Name = 'MemoColor' then
(Sender As TfrMemoView).FillColor := clRed;
end;
ale bez uspechu.
FreeReport (a asi i FastReport jeste ve verzi 2.4 - podle helpu) mel
v TfrReport event OnEnterRect(Memo: TStringList; View: TfrView).
ve kterem slo vse menit v TfrView.
Ve verzi 2.51 jiz ale OnEnterRect neni NEBO JSEM TOTALNE OSLEPL !
Poradi mi, prosim nekdo zkusenejsi ?
D6Pro, FastReport 2.51, FB 1.5
Dekuji,
Jarek Uher
Jak udelat pole pro IP adresu?
[*] Bohac Frantisek <bohacf(zv)vnol(tec)cz> - 21.4.2004 13:53:36
Pokud mas nainstalovane JVCL (http://sourceforge.net/projects/jvcl), tak
zalozka Jv Win32: JvIPAdress
F.
----- Original Message -----
From: "Lukas Gallina" <lukas.gallina(zv)programky(tec)cz>> potrebuji udelat pole pro zadani IP adresy.Precenovani ve skladovem systemu
[*] Vlastimil Bardon <bardon(zv)akord-soft(tec)cz> - 21.4.2004 14:03:38
A co kdyz uz tu fakturu dostal odberatel? To si ji jako klidne opravis a posles odberateli znovu? A jak dolozis, ze ta puvodni uz neplati? A ktere DPH je pak platne? Kdybych byl financak, tak Ti za tohle naparim neprukazne ucetnictvi a jestli to takhle uzivatele chteli, at se na tu pokutu klidne poskladaji.
Jestlize doklad opustil ucetni jednotku, at uz se jedna o fakturu, pokladni doklad, dodaci list, smlouvu nebo cokoli jineho, pak uz to nesmis menit at se Ti to libi nebo ne. Jinak je to s internimi doklady, ktere zustavaji doma. Tam se za jistych okolnosti opravovat da... Napriklad ty mesicni uzaverky o kterych se tu psalo maji smysl. Ale platis za ne tim, ze cely mesic nevis, co se Ti na sklade deje. To leckdy muze byt neprijatelne.
-----Original Message-----
From: Ludek Paral [mailto:ludek.paral(zv)quick(tec)cz]
Sent: Wednesday, April 21, 2004 1:52 PM
Vzdy mne ale hrozne mrzi, kdyz musim 2 dny starou fakturu za 1 mil.Kc nechat
vystornovat (tzn. vystavit dobropis v jinem modulu) a vystavovat fakturu
znovu- pak se musi trzba brat jako rozdil fa-dbs(bez dbs za zmetky).To bych
pak ty, kteri mi neumoznili ucet opravit,byt s polorucnim zasahem,zavrazdil.
Nezalezi jen co je spravne, ale na co je zvykla obsluha.
Ludek
normalizace databazi adresare
[*] Vlastimil Bardon <bardon(zv)akord-soft(tec)cz> - 21.4.2004 13:15:29
Trochu si to rozmysli, nez neco navrhnes. ICO nepouzivej jako klic (radeji nikdy nepouzivej vyznamove polozky jako klic). Ale vzdy je to tak, ze jedna firma muze mit nekolik fakturacnich mist a nekolik dodacich mist a nekolik kontaktnich adres ... a kdovi co jeste. Takze to chce navrhnout nejakou promyslenejsi strukturu s ohledem na budouci zivot Tve aplikace.
-----Original Message-----
From: Slavomir Skopalik [mailto:skopalik(zv)elektlabs(tec)cz]
Sent: Wednesday, April 21, 2004 1:07 PM
K tomu by melo slouzit ICO. To ze to koupi nejake stredisko neni
podstatne,
a ze se to koupi na nejakem stredisku take,
tedy pokud to neni dcerinna spolecnost, ale to je uz zase jina firma a
nelze
je davat do hromady (napriklad siemens).
Tady, pokud ovsem neresis vlastni OLAP, kdy se zajimas o strukture
odberatelu podlejinych kriterii.
Pak samozrejme te nezajima zmena nazvu, adresy atd.
Tohle by ale melo (se to dava) do jine DB, ktera slozi pouze
pro tyto ucely (ma jinou strukturu).
Precenovani ve skladovem systemu
[*] Ludek Paral <ludek.paral(zv)quick(tec)cz> - 21.4.2004 13:51:35
Ahoj,
ja preferuji uctovani pouze spravnych dat.Uctovani odchylek a chyb,
stornovani dokladu ,atd beru jen jako nouzove reseni. Data ze skladu
prenasim spravna na konci mesice. Takze lepsi je doklad odemknout, provest
zmeny a prepocitat skladovou kartu.
Vzdy mne ale hrozne mrzi, kdyz musim 2 dny starou fakturu za 1 mil.Kc nechat
vystornovat (tzn. vystavit dobropis v jinem modulu) a vystavovat fakturu
znovu- pak se musi trzba brat jako rozdil fa-dbs(bez dbs za zmetky).To bych
pak ty, kteri mi neumoznili ucet opravit,byt s polorucnim zasahem,zavrazdil.
Nezalezi jen co je spravne, ale na co je zvykla obsluha.
Ludek
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Martin Burle
Sent: Tuesday, April 20, 2004 9:34 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Precenovani ve skladovem systemu
> Tanto druh problemu resim zasadne takto:
> V editacnim formulari, ktery je zcela odpojen od "zivych" dat, necham
> uzivatele klofat jak je mu libo.
> Pak udelam kontroly, ktere databaze nezvladne nebo je vyhodnejsi udelat je
> na klientovi.
> Pak poslu celou davku ulozene procedure, ktera se postara o zbytek - a v
> pripade problemu akci stornuje a vrati chybu.
Souhlas, nicmene otazka se tykala spise metodiky precenovani ve skladu -
jak nalozit se zprumerovanou cenou pri chybe nikoli databaze, ale chybe
obsluhy pri zapisovani prijmu...
MB
Precenovani ve skladovem systemu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 21.4.2004 13:15:30
> Uz leta tohle mame vyresene pomoci off-line ocenovanim skladu,
> tj. obsluha muze delat chyby a muze je kdykoliv pozdeji opravovat
> popr. pozdeji doplnovat dodatecne naklady. Vyskladnovat ze skladu
> take muze, avsak doklady ktere takto vznikaji nemaji urcenu skladovou
> cenu -- do okamziku nez se sklad oceni "uzaverkou". Tato uzaverka
> "potvrdi" na prijemkach dosud zadanou cenu a z ni odvodi ceny
> pro vydejky. Tato operace lze delat podle potreby, muze se nechat
> otevreny napr. tyden zpatky apod. Doklady uzavrene a ocenene
> uzaverkou jiz nelze menit, ale samozrejme lze uzaverku zrusit a znovu
> ji spocitat v okamziku kdy zjistim ze jsem spatne zadal prijemku.
To by mohlo byt ono, resp. umoznuje to spravne stanoveni porizovanci ceny.
Problem je ale s prodejnimi cenami (pokud se jedna o prodejni sklad), kde se
soucasne se zapsanim prijmu nejak polozky precenuji. Nejspis to bude chtit
nejake verzovani, historii prodejnich cen a navrat k verzi, neco takoveho.
MB
Knihovna pro praci s TIFF soubory (Delphi 7)
[*] MMS <preas_w(zv)stonline.sk> - 21.4.2004 13:31:33
Ahoj
ak whareware tak napr.
www.intervalsoftware.com
http://www.hicomponents.com
Miro
----- Original Message -----
From: "Jonas Marian" <jonas(zv)komercpoj(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>> Neznate nekdo nejakou knihovnu pro praci s TIFF soubory ?Soucasny beh FireBirdu 1.0 a 1.5
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 21.4.2004 13:23:32
Haj hou!
On 21 Apr 2004 at 13:01, Jaroslav Popluhar wrote:
> Je mozne nejako zariadit aby bezali ako sluzby sucasne a kazda na inom
> porte?
Komunikace na ruznych portech se zajisti konfiguraci v1.5, viz
release notes (to je stejne bez ohledu na zpusob provozovani). Co se
tyka soucasneho provozovani jako sluzeb, pak by to teoreticky mohlo
jit, ale nezkousel jsem to. Rozhodne doporucuji nejdriv zprovoznit
soucasny beh jako aplikaci, a az pak resit sluzby.
> Su niekde popisane vsetky prepinace serveru aj guardiana?
Z hlavy nevim kde, ani si nevybavuji ze bych takovy kompletni seznam
nekde nekdy videl. Ale ono tam snad kromne prepinace -a snad ani nic
jineho neni :-)
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Quick Report a Delphi 7 - Kde je?
[*] Michal Kuncl <spider_x(zv)quick(tec)cz> - 21.4.2004 13:21:31
Petr Svejda wrote:
> Potrebuji nainstalovat Quick Report do Delphi 7 a nemohu ho najit. Nevite
> prosim, kde je (na kterem CD)?
Mel by se instalovat spolu s delphi, jestli ho nevidis na liste s
komponentama, tak si nainstaluj balicek c:\program
files\borland\delphi7\bin\dclqrt70.bpl
--
Zdravi Spider_X
Quick Report a Delphi 7 - Kde je?
[*] Petr Svejda <petr(zv)svejda(tec)cz> - 21.4.2004 13:15:26
Potrebuji nainstalovat Quick Report do Delphi 7 a nemohu ho najit. Nevite
prosim, kde je (na kterem CD)?
Diky
Petr
normalizace databazi adresare
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 21.4.2004 13:07:24
K tomu by melo slouzit ICO. To ze to koupi nejake stredisko neni
podstatne,
a ze se to koupi na nejakem stredisku take,
tedy pokud to neni dcerinna spolecnost, ale to je uz zase jina firma a
nelze
je davat do hromady (napriklad siemens).
Tady, pokud ovsem neresis vlastni OLAP, kdy se zajimas o strukture
odberatelu podlejinych kriterii.
Pak samozrejme te nezajima zmena nazvu, adresy atd.
Tohle by ale melo (se to dava) do jine DB, ktera slozi pouze
pro tyto ucely (ma jinou strukturu).
Slavek
> > Asi resis problem stredisek, tedy dodaci adresy.
>
> ne resim to ze ja mam nekolik stredisek a na jednotlivych
> strediscich si ta sama firma akorat jine jeji strediska neco
> koupi a prave jak toto dat dohromady
>
> no ted co dela kdyz toodojde na moji centralu - nejak to
> spojit nebo to nechat tak kdyz si to spojim tak samozrejme by
> se to melo nejak promitnu i na patricne klienty protoze asi
> vygeneruji novou vazbu na tuto firmu
> XML syntax highlight
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 21.4.2004 13:05:23
Ahoj,
nezna nekdo dobrou, malou komponentu na syntax highlighting XML? Jen neco
jako TMemo, nic jineho to umet nemusi, no mozna, kdyby to umelo
preformatovat, ale nejni to nutne.
Dival jsem se na SynEdit, ale to je dost tezky kalibr.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
web: http://www.cincura.net; http://cincura.net/photo
Soucasny beh FireBirdu 1.0 a 1.5
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 21.4.2004 13:01:20
Hello Pavel,
>> O.i. naozaj potrebujem urobit porovnanie vykonnosti FB1.0 a FB1.5 na jednom PC.
>> bolo by fajn keby oba servery mohli bezat sucasne, ale prezijem aj prepinanie.
PC> Prepinani je bez problemu, jen nesmi byt ani jedna verze provozovana
PC> jako sluzba. Kazda verze se pak spousti primo volanim
PC> ibserver/fbserver.exe s parametrem -a.
Co znamena -a? V rel. notes som to nenasiel. -? ani /? neukazu nic.
PC> Pro klienty je nutne vzdy zajistit prislusnou verzi klientske knihovny.
Nemozem teda pouzit vygenerovanu gds32.dll pre pristup k FB 1.0?
Je mozne nejako zariadit aby bezali ako sluzby sucasne a kazda na inom
porte?
>> - Ak sa budem chciet potom pripajat k "staremu" FB 1.0, kam a v akej
>> syntaxi musim potom uviest port 3051?
>> - Delphi Komponenta IBX IBDatabase
>> - rkEdit 4.8
>> - IB Expert 2003.11.06 PE
PC> Doporucuji si precist release Notes k FB 1.5 (jsou i v cestine).
Citam, citam, ale bez -a som sa nevedel pohnut:-|
Su niekde popisane vsetky prepinace serveru aj guardiana?
--
Jaro
castka slovy
[*] Michal Kuncl <spider_x(zv)quick(tec)cz> - 21.4.2004 12:55:09
Ahoj, poslali byste mi prosim (na spider_x(zv)atlas(tec)cz) nekdo funkci na
prevod cisla na castku slovy. Bude to na na vyplnovani smluv, takze bych
potreboval, aby zvladala aspon do radu desitek milionu.
dekuji.
Michal Kuncl
Jak udelat pole pro IP adresu?
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 21.4.2004 12:45:04
From: "Lukas Gallina"
> Neumim moc pouzivat MaskEdit a potrebuji udelat pole pro zadani IP adresy.
> Idealni by sice bylo, kdyby vypadala jako ve Windows, nicmene neni to
> uplne podminkou.
V Comctl32.dll od verze 4.71 (IE 4.0) je "IP address control".
Zda je pro nej hotove i nejake zabaleni do VCL to netusim, ale v ComCtrl.pas
ten control je (SysIPAddress32 resp. WC_IPADDRESS).
Daniel
normalizace databazi adresare
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 21.4.2004 12:16:59
> Asi resis problem stredisek, tedy dodaci adresy.
ne resim to ze ja mam nekolik stredisek a na jednotlivych strediscich si ta
sama firma akorat jine jeji strediska neco koupi a prave jak toto dat
dohromady
no ted co dela kdyz toodojde na moji centralu - nejak to spojit nebo to
nechat tak
kdyz si to spojim tak samozrejme by se to melo nejak promitnu i na patricne
klienty protoze asi vygeneruji novou vazbu na tuto firmu
Jak udelat pole pro IP adresu?
[*] Lukas Gallina <lukas.gallina(zv)programky(tec)cz> - 21.4.2004 12:14:58
Ahoj.
Neumim moc pouzivat MaskEdit a potrebuji udelat pole pro zadani IP adresy.
Idealni by sice bylo, kdyby vypadala jako ve Windows, nicmene neni to uplne
podminkou.
Muzete me nekdo nakopnout? Diky.
S pozdravem
Lukas Gallina
lukas.gallina(zv)programky(tec)cz
www.programky(tec)cz
+420 777 821 699
-------------------------------------------------------
-> Zalohujete data? Zalohujte lepe!
-> http://www.netbackuplite.com
-------------------------------------------------------
Knihovna pro praci s TIFF soubory (Delphi 7)
[*] Jonas Marian <jonas(zv)komercpoj(tec)cz> - 21.4.2004 12:00:56
Neznate nekdo nejakou knihovnu pro praci s TIFF soubory ?
Potrebuji aby umela nacist TIFF obrazek ktery je vicestrankovy, moznost zobrazeni tifu se zvetsenim a listovanim po strankach. Specialni pozadavek, musi to byt nativni VCL komponenta bez dodatecnych DLL, bez nutnosti registrace pres REGSRV32 a nutnosti cokoliv zapisovat do registru.
Dik Marian
Precenovani ve skladovem systemu
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 21.4.2004 11:52:55
Martin Burle <mburle2(zv)volny(tec)cz> wrote:
> Souhlas, nicmene otazka se tykala spise metodiky precenovani ve
> skladu - jak nalozit se zprumerovanou cenou pri chybe nikoli
> databaze, ale chybe obsluhy pri zapisovani prijmu...
Uz leta tohle mame vyresene pomoci off-line ocenovanim skladu,
tj. obsluha muze delat chyby a muze je kdykoliv pozdeji opravovat
popr. pozdeji doplnovat dodatecne naklady. Vyskladnovat ze skladu
take muze, avsak doklady ktere takto vznikaji nemaji urcenu skladovou
cenu -- do okamziku nez se sklad oceni "uzaverkou". Tato uzaverka
"potvrdi" na prijemkach dosud zadanou cenu a z ni odvodi ceny
pro vydejky. Tato operace lze delat podle potreby, muze se nechat
otevreny napr. tyden zpatky apod. Doklady uzavrene a ocenene
uzaverkou jiz nelze menit, ale samozrejme lze uzaverku zrusit a znovu
ji spocitat v okamziku kdy zjistim ze jsem spatne zadal prijemku.
Je to overene v praxi u tisicu uzivatelu...
Martin Schayna
normalizace databazi adresare
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 21.4.2004 11:50:54
Fakturacni adresa je jen jedna, takze zadny problem.
Asi resis problem stredisek, tedy dodaci adresy.
Tech muze mit firma neomezene a mohou byt i docasne,
napriklad stavebni firma si necha posilat material tak kde
stavi nikoliv k sobe domu.
Doporucuji si nastudovat nektery z beznych ucetnich SW,
nebo si zajit do uctarny.
Slavek
> takze abych to nejak shrnul asi nejvyhodnejsi (z hlediska
> moznosti prace a minima problemu s urady) je mit tabulku
> firem s nazvem, ico, dic a k ni tabulku adres ulice, mesto,
> psc, telefon, ... jak resite pokud to mate takhle to ze ta
> sama firma nakupuje na ruznych strediscich (napada me napr
> drahy) s jejich svazanim pod jednu firmu s ruznymi adresami
> (pokud teda nechci replikovat vsechny adresy na vsechny
> strediska coz se mi jevi jako zbytecne)
>
> v dokladu potom mit odkaz na danou adresu a pres ni i na
> firmu a navic i textove vyjadreni adresy pro eventuelni tisk
> normalizace databazi adresare
[*] Erik Salaj, Winsoft <winsoft(zv)netkosice.sk> - 21.4.2004 11:14:50
> takze abych to nejak shrnul asi nejvyhodnejsi (z hlediska moznosti prace a
> minima problemu s urady) je mit tabulku firem s nazvem, ico, dic a k ni
> tabulku adres ulice, mesto, psc, telefon, ...
> jak resite pokud to mate takhle to ze ta sama firma nakupuje na ruznych
> strediscich (napada me napr drahy) s jejich svazanim pod jednu firmu s
> ruznymi adresami (pokud teda nechci replikovat vsechny adresy na vsechny
> strediska coz se mi jevi jako zbytecne)
>
> v dokladu potom mit odkaz na danou adresu a pres ni i na firmu a navic i
> textove vyjadreni adresy pro eventuelni tisk
uz tu niekto spominal, ze mozes doplnit casovu platnost zaznamov,
to je IMHO najlepsie riesenie
Erik
normalizace databazi adresare
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 21.4.2004 10:36:45
takze abych to nejak shrnul asi nejvyhodnejsi (z hlediska moznosti prace a
minima problemu s urady) je mit tabulku firem s nazvem, ico, dic a k ni
tabulku adres ulice, mesto, psc, telefon, ...
jak resite pokud to mate takhle to ze ta sama firma nakupuje na ruznych
strediscich (napada me napr drahy) s jejich svazanim pod jednu firmu s
ruznymi adresami (pokud teda nechci replikovat vsechny adresy na vsechny
strediska coz se mi jevi jako zbytecne)
v dokladu potom mit odkaz na danou adresu a pres ni i na firmu a navic i
textove vyjadreni adresy pro eventuelni tisk
Nahrazeni textu v binarnim souboru ?
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 21.4.2004 10:50:47
Ahoj,
nejsem sice zadny expert, ale zkusil bych nacist vzdycky blok dat do
dlooouheho stringu, na to aplikovat funkci pro praci s podretezci POS, DEL a
INSERT. Predpokladam, ze tyto fce budou v delfi optimalizovane na rychlost
vic, nez kdyz to budes delat pesky vlastnim kodem. Akorat musis pohlidat,
abys dalsi blok dat nacital od pozice - delka hledaneho stringu. A rekl
bych, ze muzes pouzit ke cteni a zapisu blokove operace pascalu, nebo
streamy, to je burt.
Zdravi Dalik.
----- Original Message -----
From: Jiri Betunak <kindrik(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, April 21, 2004 8:34 AM
Subject: Nahrazeni textu v binarnim souboru ?> Zdravim konference,
> potreboval bych poradit viz %subj%
> resim to takto ale je to opravdu ale opravdu pomale ,neynate nekdo
> prosim rychlejsi spusob ?
>
> Procedure FileReplaceString(Const FileName, SearchString, ReplaceString:
> String);
> Var
> fs: TFileStream;
> pos: Integer;
> b: Byte;
> Begin
> Pos := 1;
> fs := TFileStream.Create(FileName, fmOpenReadWrite Or fmShareDenyNone);
> form1.ProgressBar1.Max:=fs.Size;
> Try
> fs.Position:=0;
> While fs.Position < fs.Size Do
> Begin
> form1.ProgressBar1.Position:=fs.Position;
> form1.Label6.Caption:=inttostr(fs.Position)+'/'+inttostr(fs.Size);
> Application.ProcessMessages;
>
> fs.Read(b, 1);
> If b = ord(SearchString[Pos]) Then
> Begin
>
> Inc(Pos);
> If Pos - 1 = Length(SearchString) Then
> Begin
> // Nasel
> fs.Seek(-(Length(SearchString)), soFromCurrent);
> fs.Write(ReplaceString[1], Length(ReplaceString));
> Pos := 1;
> End;
> End
> Else
> Begin
> Pos := 1;
> End;
> End;
> Finally
> fs.Free;
> End;
> End;
>
> Predem diky za jakoukoliv pomoc
>
> --
> Best regards,
> Jiri mailto:kindrik(zv)centrum(tec)cz
>
> ICQ#: 265297587
>
> __________________________________________________________________
>
>
>Nahrazeni textu v binarnim souboru ?
[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 21.4.2004 10:48:46
Hello delphin,
dpc> Melo by pomoct:
dpc> - nacist najednou cely soubor do pameti
dpc> - vyhledavat pomoci SearchBuf
jj to ja vim ale nevim jak to udelat nebyl by prikladek
--
Best regards,
Jiri mailto:kindrik(zv)centrum(tec)cz
Nahrazeni textu v binarnim souboru ?
[*] delphin(zv)post(tec)cz - 21.4.2004 10:26:43
Melo by pomoct:
- nacist najednou cely soubor do pameti
- vyhledavat pomoci SearchBuf
Nahrazeni textu v binarnim souboru ?
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 21.4.2004 09:26:37
Mozna placnu hloupost, ale
1. zkusit pri tak malem souboru nacist stream do pameti a vsechno delat v pameti?
2. nenacitat ze soubory po jednom znaku, ale vzdy blok dat (omezeni I/O operaci)
Jirka
> -----Original Message-----
> From: Jiri Betunak [mailto:kindrik(zv)centrum(tec)cz]
> Sent: Wednesday, April 21, 2004 9:13 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: Nahrazeni textu v binarnim souboru ?
>
>
> Hello jiri,
>
>
> >Rekl bych, ze Application.ProcessMessages .........
> > ale treba kazdy 10pruchod (cim mene, tim
> >lepe). Ale to asi nebude ta hlavni brzda...
>
> No brzda to je ale i kdyz ho nevolam tak to je stejne pomale
> napr 600kb soubor to prochazi (na 1200 celer) zhruba 7minut !
>
> --
> Best regards,
> Jiri mailto:kindrik(zv)centrum(tec)cz
>
>
>
>
> Nahrazeni textu v binarnim souboru ?
[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 21.4.2004 09:12:33
Hello jiri, >Rekl bych, ze Application.ProcessMessages .........
> ale treba kazdy 10pruchod (cim mene, tim
>lepe). Ale to asi nebude ta hlavni brzda...
No brzda to je ale i kdyz ho nevolam tak to je stejne pomale
napr 600kb soubor to prochazi (na 1200 celer) zhruba 7minut !
--
Best regards,
Jiri mailto:kindrik(zv)centrum(tec)cz
Precenovani ve skladovem systemu
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 21.4.2004 09:06:32
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Martin Burle
> Sent: Tuesday, April 20, 2004 10:34 PM
>
> Souhlas, nicmene otazka se tykala spise metodiky precenovani
> ve skladu - jak nalozit se zprumerovanou cenou pri chybe
> nikoli databaze, ale chybe obsluhy pri zapisovani prijmu...
Asi jedine tak, ze do programu implantujes umelou inteligenci, ktera bude
umet rozpoznavat chyby obsluhy ve vztahu k zakonum, ktere prave pro tento
den plati. Jenze pak bude ta obsluha zbytecna...
Fakt nevim, tohle se IMHO rozumne osetrit neda, maximalne tak porovnat, zda
udaje souhlasi proti sobe navzajem.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
dll-ky vytvorene vo visual .net studiu
[*] sulodk(zv)atlas(tec)cz - 21.4.2004 08:56:30
> ahoj
>
> mam taku otazku ohladom delphi and .net
> daju sa v delphi pouzit dll-ky vytvorene vo visual .net studiu? (konkretne
vo visual basicu)?
>
> dakujem
>
> alex ronai
Kedze su dll-ky vyrobene vo Vs.NET ako assembly, tak by to malo ist pouzit v
Delphi.NET.
Neviem presne pretoze Delphi.NET nepouzivam. Teoreticky by to malo ist.Nahrazeni textu v binarnim souboru ?
[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 21.4.2004 08:34:27
Zdravim konference,
potreboval bych poradit viz %subj%
resim to takto ale je to opravdu ale opravdu pomale ,neynate nekdo
prosim rychlejsi spusob ?
Procedure FileReplaceString(Const FileName, SearchString, ReplaceString:
String);
Var
fs: TFileStream;
pos: Integer;
b: Byte;
Begin
Pos := 1;
fs := TFileStream.Create(FileName, fmOpenReadWrite Or fmShareDenyNone);
form1.ProgressBar1.Max:=fs.Size;
Try
fs.Position:=0;
While fs.Position < fs.Size Do
Begin
form1.ProgressBar1.Position:=fs.Position;
form1.Label6.Caption:=inttostr(fs.Position)+'/'+inttostr(fs.Size);
Application.ProcessMessages;
fs.Read(b, 1);
If b = ord(SearchString[Pos]) Then
Begin
Inc(Pos);
If Pos - 1 = Length(SearchString) Then
Begin
// Nasel
fs.Seek(-(Length(SearchString)), soFromCurrent);
fs.Write(ReplaceString[1], Length(ReplaceString));
Pos := 1;
End;
End
Else
Begin
Pos := 1;
End;
End;
Finally
fs.Free;
End;
End;
Predem diky za jakoukoliv pomoc
--
Best regards,
Jiri mailto:kindrik(zv)centrum(tec)cz
ICQ#: 265297587
__________________________________________________________________
Nahrazeni textu v binarnim souboru ?
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 21.4.2004 08:42:29
Rekl bych, ze Application.ProcessMessages bych nevolal urcite pri kazdem pruchodu, ale treba kazdy 10pruchod (cim mene, tim lepe). Ale to asi nebude ta hlavni brzda...
Jirka
> -----Original Message-----
> From: Jiri Betunak [mailto:kindrik(zv)centrum(tec)cz]
> Sent: Wednesday, April 21, 2004 8:34 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Nahrazeni textu v binarnim souboru ?
>
>
> Zdravim konference,
> potreboval bych poradit viz %subj%
> resim to takto ale je to opravdu ale opravdu pomale ,neynate
> nekdo prosim rychlejsi spusob ?
>
> Procedure FileReplaceString(Const FileName, SearchString,
> ReplaceString:
> String);
> Var
> fs: TFileStream;
> pos: Integer;
> b: Byte;
> Begin
> Pos := 1;
> fs := TFileStream.Create(FileName, fmOpenReadWrite Or
> fmShareDenyNone); form1.ProgressBar1.Max:=fs.Size;
> Try
> fs.Position:=0;
> While fs.Position < fs.Size Do
> Begin
> form1.ProgressBar1.Position:=fs.Position;
>
> form1.Label6.Caption:=inttostr(fs.Position)+'/'+inttostr(fs.Size);
> Application.ProcessMessages;
>
> fs.Read(b, 1);
> If b = ord(SearchString[Pos]) Then
> Begin
>
> Inc(Pos);
> If Pos - 1 = Length(SearchString) Then
> Begin
> // Nasel
> fs.Seek(-(Length(SearchString)), soFromCurrent);
> fs.Write(ReplaceString[1], Length(ReplaceString));
> Pos := 1;
> End;
> End
> Else
> Begin
> Pos := 1;
> End;
> End;
> Finally
> fs.Free;
> End;
> End;Neuplny vysledek joinu
[*] Jan Blaha <jan.blaha(zv)terminus(tec)cz> - 21.4.2004 08:30:27
To je dane jinym primarnim nastavenim DB. Napr. MSSQL ma default left
join a ORACLE right join.
Takze podobny rozdil muze byt i mezi Accessem, mysql a paradoxem. Totez
muze byt pro inner a outer. Jestlize to neuvedes explicitne v dotazu,
tak to databaze doplni defaultne a muze byt problem...
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Martin Pisarik
Sent: Tuesday, April 20, 2004 4:18 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Neuplny vysledek joinu
INNER JOIN mi dava stejny vysledek jako LEFT JOIN.
Pouhy JOIN bez privlastku mi dava neuplny vysledek stejne jako select
... where klauzule. Tak nevim...
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Langer
Sent: Tuesday, April 20, 2004 3:43 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Neuplny vysledek joinu
Zkus INNER JOIN misto LEFT JOIN a porovnej, jestli nemas stejny vysledek
jak ti daval ten puvodni SQL dotaz, pak by to bylo jasne.
Petr Langer
----- Original Message -----
From: "Martin Pisarik" <martin.pisarik(zv)seznam(tec)cz>
Subject: Re: Neuplny vysledek joinu
> No ja jsem zkousel JOIN a nefungovalo to dobre, ale s LEFT JOINEM to
funguje
> tak jak ma.
> Takze dik moc.
> Ale nechapu to.
> Kdyz jsem mel ty data na mySQL tak muj dotaz fungoval dobre a kdyz
> jsem to zkousel v Accessu, tak to taky fungovalo dobre. V tomto
> pripade mi LEFT nevadi, ale co kdybych mel takova data, ze bych ho
> nemohl pouzit? Co pak? A nebo nerozumim SQL?
Neuplny vysledek joinu
[*] Jan Blaha <jan.blaha(zv)terminus(tec)cz> - 21.4.2004 08:22:25
Neni nahodou v tabulce AP 50 kombinaci pro?
Mel jsi v joinech spravne nastavene left/right innner/outer join?
Nevim zda je v BDE defaultni left nebo right join, mozna by mohla pomoci
zmena poradi tabulek v selectu.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Martin Pisarik
Sent: Tuesday, April 20, 2004 3:01 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Neuplny vysledek joinu
Ahoj *,
Doufam, ze na tento dotaz nekdo zareaguje protoze uz fakt nevim. Mam 3
tabulky: Artikl, Provedeni, AP. Tabulka AP obsahuje povolene kombinace
Artiklu a Provedeni a ma teda jen 3 fieldy (ID, Provedeni_ID, Artikl_ID)
A ted ten problem!
spojim ty tabulky takto:
SELECT *
FROM AP, Artikl, Provedeni
where Artikl.ID=AP.Artikl_ID
and Provedeni.ID=AP.Provedeni_ID
Vrati mi to ale min zaznamu, nez by melo. Zkoumal jsem to a zjistil jsem
strasnou vec! Od kazdeho Provedeni_ID mi to vrati max 50 zaznamu, takze
pokud by jich tam melo byt vic, tak mi to vrati 50 zaznamu a hotovo. V
dusledku toho je vysledek neuplny a misto 7280 zaznamu dostanu jen 5928.
Zkousel jsem i join ale vysledek stejny.
Vubec nevim cim to je.
Jsou to paradoxove tabulky *.db a pracuju s tim pres BDE.
Ja vim, ja vim, ale rady abych se vykaslal na BDE jsou mi ted k nicemu.
Tohle prece musi fungovat i v BDE ne?
Prosim pomozte!