Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
SMS aplikace
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 20.4.2005 13:42:43
Na podobnou vec pouzivame T-Mobile Privatni SMS branu (bezi jako sluzba),
ktera je pomoci OpenVPN spojena se serverem operatora a SMSky na ni jdouci
(vyhrazene cislo) zpracuje a vzdy pri prichodu zpravy spusti patricnou
aplikaci, ktere pomoci promennych prostredi predava parametry zpravy. Ta
patricna aplikace se da nastavit, tzn. je to nase aplikace, ktera ty
parametry schrousta a neco s tim provede, napr. ulozi do databaze. Soucasti
te T-Mobile privatni brany je i webserver, pres kterej se daji posilat
SMSky.
Celkove to neni nic moc reseni, minimalne proto, ze nainstalovat a rozchodit
tu branu od T-Mobileu je celkem peklo, ale jakz takz to funguje :) Ale na
druhou stranu na to staci i docela slaby stroj, bezi nam to na tusim 350MHz
procesoru, s 128 MB pameti, W2000.
Jirka Matejka
> Predstava je asi nasledujici:
>
> Zakaznik zasle SMS z mobilniho telefonu s cislem 606XXXXXX na
> "nejake" cislo s textem OBJ XXX, kde XXX je napr. cislo
> objednavky. Moje aplikace tuto SMS prijme, zpracuje jeji obsah a
> odesle vysledek zpet na cislo 606XXXXXX napr. ve stavu STAV OBJ
> XXX - CEKA SE NA DODAVKU.
>
> Pokud by mel nekdo s timto typem aplikace zkusenosti, prosim
> ozvete se. Nevim jak na to.
>
> Dekuji.
>
> Milan Kotaska
> mkotaska(zv)post(tec)cz
Monitorovani behu ulozenych procedur na MS SQL
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 20.4.2005 13:32:42
> Ahoj specialisti!
>
> Pisu "maly" programek, ktery se pripoji k danemu SQL serveru
> a databazi a mel by umet zjistit pro presne dane ulozene
> procedury, zda bezi (byly
> spusteny) nebo nebezi (byly spusteny, ale jsou ve stavu
> zastaveni treba z duvodu chyby).
>
> Ulozene procedury spousteji jednotlivi uzivatele ze svych
> stanic, kazdy uzivatel je prihlasen k SQL serveru pod svym
> uctem. Doba behu procedur je delsi, nekdy i nekolik hodin.
> Urcite informace o jednotlivych procedurach se pri jejich
> spusteni ukladaji do ulozenych pomtabulek (cas spusteni,
> ktery uzivatel a dalsi). Pokud procedura uspesne skonci maze
> o sobe informace v pomtabulkach. Potreboval bych monitorovat
> u procedur prave stav, kdy procedura je ukoncena chybou.
>
> Neporadil by nekdo jak na to, pripadne nejaky odkaz na tipy a
> priklady. Ulozene procedury muzu i podle potreby upravit,
> psal jsem je.
>
> Pro pripojeni pouzivam komponety ADO, programek je v D5 ent
> (MS SQL 2000).
>
Pokud to nejsou nejake opravdu rozsahle procedury, co pouzit (zv)(zv)Error
Ja to pouzivam nasledovne:
Declare (zv)Chyba int
SET (zv)Chyba = 0
--nejaky update, insert
Select (zv)Chyba = (zv)Chyba + (zv)(zv)Error
--opet nejaky update...
Select (zv)Chyba = (zv)Chyba + (zv)(zv)Error
A pokud na konci procedury neni promenna (zv)Chyba = 0 doslo k chybe.
Ale opravdu nevim jak moc rozsahle procedury delas...
Jirka
OT: SMS aplikace
[*] Milan Kotaska <mkotaska(zv)post(tec)cz> - 20.4.2005 13:26:42
Ahoj,
omlouvam se za OT, ale uz nevim, kde bych nasel informace.
Mam vytvorenou aplikaci zpracovavajici objednavky fungujici na
WIN XP a data z aplikace ulozena v databazi FB. Nyni bych
potreboval, aby moji zakaznici mohli prostrednictvim SMS z
mobilniho telefonu zjistovat stav sve objednavky.
Predstava je asi nasledujici:
Zakaznik zasle SMS z mobilniho telefonu s cislem 606XXXXXX na
"nejake" cislo s textem OBJ XXX, kde XXX je napr. cislo
objednavky. Moje aplikace tuto SMS prijme, zpracuje jeji obsah a
odesle vysledek zpet na cislo 606XXXXXX napr. ve stavu STAV OBJ
XXX - CEKA SE NA DODAVKU.
Pokud by mel nekdo s timto typem aplikace zkusenosti, prosim
ozvete se. Nevim jak na to.
Dekuji.
Milan Kotaska
mkotaska(zv)post(tec)cz
Problem s Indy10
[*] Karel Kral <kralkonf(zv)purusmeda(tec)cz> - 20.4.2005 13:20:41
Mas nekde zapomenuty stary DCU. Najdi vsechny DCU od Indy a pomaz.
Frantisek Mlcoch napsal(a):
> Nainstaloval jsem si do D6 novou verzi Indy10 a ted mi to pri kopilaci pise
> chybu:
>
> [Fatal Error]: Unit IdMessage was compiled with a different version of
> System.RTLVersion.
>
>
> Nevite nekdo co s tim????
>
>
> Diky F.
>
>
>
>
>
>
>
--
______________________________________________________
Karel Kral, reditel IT / IT manager
PURUS-MEDA, s.r.o., Palackeho 174, 621 00 Brno, CZ
E-Mail: kral(zv)purusmeda(tec)cz
______________________________________________________
IcXMLParser vklada mezery
[*] Pavel Gazda <pavel_gazda(zv)datasw(tec)cz> - 20.4.2005 12:28:38
> Nechce se mi verit ze tam nejsou potrebne unity, mozna tak chybi
> komponenta
> TXMDocument v palete, ale ta je stejne k nicemu. S IXMLDocument se pracuje
> v kodu.
>
> Doc := NewXMLDocument;
> Doc.AddChild('node');
> Doc.SaveToFile('doc.xml');
Jo, to opravdu funguje.
Diky
Pavel
IcXMLParser vklada mezery
[*] Petr Vones <konference(zv)petrvones(tec)net> - 20.4.2005 12:16:37
From: "Pavel Gazda" <pavel_gazda(zv)datasw(tec)cz>
> Mam D6 Professional a tam XMLDocument neni a proto jsem zkousel IcXMLParser.
Nechce se mi verit ze tam nejsou potrebne unity, mozna tak chybi komponenta
TXMDocument v palete, ale ta je stejne k nicemu. S IXMLDocument se pracuje
v kodu.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils, XMLDoc, XMLIntf;
var
Doc: IXMLDocument;
begin
// nahrada volani Application.Initialze v neVCL aplikaci (inicializace COM)
if Assigned(InitProc) then
TProcedure(InitProc);
Doc := NewXMLDocument;
Doc.AddChild('node');
Doc.SaveToFile('doc.xml');
end.IcXMLParser vklada mezery
[*] Pavel Gazda <pavel_gazda(zv)datasw(tec)cz> - 20.4.2005 12:00:35
>> pro parsovani XML dokumentu jsem pouzil IcXMLParser
>> a ten mi pri pouhem nacteni a ulozeni vklada mezery do dokumentu.
>> Lze tomu nejak zabranit ?
>
> Neznam IcXMLParser, ale pokud mas Delphi 6 a novejsi tak bych doporucoval
> pouzit normalni XML parser, viz IXMLDocument a spol.
>
> Petr Vones
Mam D6 Professional a tam XMLDocument neni a proto jsem zkousel IcXMLParser.
Vim, ze si mohu naimportovat type library MS XML, ale myslel jsem, ze nekdo
tento parser
pouziva a poradi mi.
Pavel
IcXMLParser vklada mezery
[*] Petr Vones <konference(zv)petrvones(tec)net> - 20.4.2005 11:32:33
From: "Pavel Gazda" <pavel_gazda(zv)datasw(tec)cz>
> pro parsovani XML dokumentu jsem pouzil IcXMLParser
> a ten mi pri pouhem nacteni a ulozeni vklada mezery do dokumentu.
> Lze tomu nejak zabranit ?
Neznam IcXMLParser, ale pokud mas Delphi 6 a novejsi tak bych doporucoval
pouzit normalni XML parser, viz IXMLDocument a spol.
Petr Vones
Nenalezen DesignIntf.dcu
[*] Petr Vones <konference(zv)petrvones(tec)net> - 20.4.2005 11:28:33
From: "Ladislav Stary" <stary(zv)ekodat(tec)cz>
> File not found:DesignIntf.dcu
> u zdrojoveho souboru, ktery je soucasti te nove vytvorene komponenty.
>
> Netusite, kde jsem se dopustil chyby?
Je treba dusledne oddelovat runtime a designtime kod komponent. Patrne si do
jednoho unitu dal jak runtime kod komponenty tak designtime kod property
editoru, to je zcela spatne. Na unity jako DesignIntf a spol nesmi byt nikdy
reference z kodu aplikace, takze to musis rozdelit na dva unity.
Petr Vones
Nenalezen DesignIntf.dcu
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 20.4.2005 11:22:32
Ahoj vespolek.
Mam takovy problem. Udelal jsem si komponentu, ke ktere jsem si vytvoril
objekt jako editor vlastnosti zaregistrovany pres RegisterPropertyEditor.
Aby se mi balicek prelozil, doplnil jsem do nej, ze potrebuje balicek
designide.dcp.
Pak jsem si tu svoji novou komponentu pridal do sveho zkusebniho
projektu. Chvili to fungovalo, jenze pak jsem neco prenastavil a zacalo to
hlasit:
File not found:DesignIntf.dcu
u zdrojoveho souboru, ktery je soucasti te nove vytvorene komponenty.
Netusite, kde jsem se dopustil chyby?
Ladislav Stary
FireBird a gbak.exe
[*] delphi(zv)mjsoft(tec)cz - 20.4.2005 11:14:31
Ahoj,
gbak ma prepinac -y [soubor] ktery presmeruje stavova hlaseni do
souboru. Treba by to z neho slo zjistit.
Karel V.
> Jde nejak v programu "zachytit" vypis chyb, programu
> gbak.exe? Volam jej nasledovne:
>
> hpErr:=sysw_WinExecAndWait('gbak.exe '+hpPar, SW_HIDE);
>
> kdyz je vse ok je hpErr rovno 0, a ja bych potreboval v
> pripade, ze hpErr<>0 vypsat hlasku, kterou vypise gbak.exe.
>
>
> Marek Dostal
> D7Prof, WinXP, FireBird 1.0, 1.5
Monitorovani behu ulozenych procedur na MS SQL
[*] Ing. Igor Vodicka <vodicka(zv)sagit(tec)cz> - 20.4.2005 11:12:31
Ahoj specialisti!
Pisu "maly" programek, ktery se pripoji k danemu SQL serveru a databazi a
mel by umet zjistit pro presne dane ulozene procedury, zda bezi (byly
spusteny) nebo nebezi (byly spusteny, ale jsou ve stavu zastaveni treba z
duvodu chyby).
Ulozene procedury spousteji jednotlivi uzivatele ze svych stanic, kazdy
uzivatel je prihlasen k SQL serveru pod svym uctem. Doba behu procedur je
delsi, nekdy i nekolik hodin. Urcite informace o jednotlivych procedurach se
pri jejich spusteni ukladaji do ulozenych pomtabulek (cas spusteni, ktery
uzivatel a dalsi). Pokud procedura uspesne skonci maze o sobe informace v
pomtabulkach.
Potreboval bych monitorovat u procedur prave stav, kdy procedura je ukoncena
chybou.
Neporadil by nekdo jak na to, pripadne nejaky odkaz na tipy a priklady.
Ulozene procedury muzu i podle potreby upravit, psal jsem je.
Pro pripojeni pouzivam komponety ADO, programek je v D5 ent (MS SQL 2000).
Ing. Igor Vodicka
informacni systemy
Nakladatelstvi Sagit
Tel.: 59 6786 001
HTTP://www.sagit(tec)cz/Nastartovani TThread
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 20.4.2005 10:44:29
delphin(zv)post(tec)cz wrote (on Wednesday, April 20, 2005 10:28 AM):
> Nevim, jak v jinych verzich, ale v D7 se thread vytvori v inherited
> Create a pote je ihned k dispozici handle, nicmene vlakno nebezi, protoze
> je vytvoreno s parametrem SUSPENDED. Vlakno se fyzicky spusti az v
> AfterConstruction.
Jo na to jsem se taky dival.
Diky za potvrzeni me myslenky.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/Nastartovani TThread
[*] delphin(zv)post(tec)cz - 20.4.2005 10:28:27
> mam-li vlastni konstruktor pro thread a v nem zavolam hned na zacatku
> inherited Create(False);, nastartuje se thread okamzite, nebo az po
> provedeni celeho konstruktoru (predpokladam, ze za inherited jsou dalsi
> prikazy pro inicializaci)? Jak jsem se dival na Thread Status okno, vypada
> to, ze skutecne az po provedeni celeho konstruktoru (a vyskakani z
> procedur
> odkud se volal).
Nevim, jak v jinych verzich, ale v D7 se thread vytvori v inherited Create a
pote je ihned k dispozici handle, nicmene vlakno nebezi, protoze je
vytvoreno s parametrem SUSPENDED. Vlakno se fyzicky spusti az v
AfterConstruction. D6 + Win95 - nezobrazeni TToolButton
[*] Petr Vones <konference(zv)petrvones(tec)net> - 20.4.2005 10:26:27
From: "Petr Gregor" <pgregor(zv)orsia(tec)cz>
> mam napsany program v Delphi6.
> Kdyz program bezi na WIN98 a vyssi, je vse v poradku.
>
> Kdyz vsak program spustim pod Win95,
> tak se mi nezobrazi lista s toolbarem (komponenta TToolbar z Delphi).
Borland ve VCL Delphi 6 jiz nepodporuje Windows 95 (stejne jako je nepodporuje
Microsoft).
Je treba provest update COMTCL32.DLL knihovny, to lze dvema zpusoby:
- instalovat IE 5.5 SP2
- instalovat samostatny update teto knihovny (50comupd.exe):
http://www.microsoft.com/downloads/details.aspx?FamilyID=cb2cf3a2-8025-4e8f-8511-9b476a8d35d2&displaylang=en
Petr Vones
Nastartovani TThread
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 20.4.2005 10:20:27
Ahoj,
mam-li vlastni konstruktor pro thread a v nem zavolam hned na zacatku
inherited Create(False);, nastartuje se thread okamzite, nebo az po
provedeni celeho konstruktoru (predpokladam, ze za inherited jsou dalsi
prikazy pro inicializaci)? Jak jsem se dival na Thread Status okno, vypada
to, ze skutecne az po provedeni celeho konstruktoru (a vyskakani z procedur
odkud se volal).
Je to skutecne tak?
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/IcXMLParser vklada mezery
[*] Pavel Gazda <pavel_gazda(zv)datasw(tec)cz> - 20.4.2005 09:54:24
Zdravim,
pro parsovani XML dokumentu jsem pouzil IcXMLParser
a ten mi pri pouhem nacteni a ulozeni vklada mezery do dokumentu.
Lze tomu nejak zabranit ?
Ukazka
z tohoto:
<?xml version="1.0" ?>
<RELDP id="" vs="" nam="" cit="" str="" num="" pnu="">
<reldp yer="" typ="" dre="">
dostanu:
<?xml version = "1.0"?>
<RELDP id = "" vs = "" nam = "" cit = "" str = "" num = "" pnu = "">
<reldp yer = "" typ = "" dre = "">
Diky
Pavel
FireBird a gbak.exe
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 20.4.2005 09:50:23
Jde nejak v programu "zachytit" vypis chyb, programu gbak.exe? Volam jej nasledovne:
hpErr:=sysw_WinExecAndWait('gbak.exe '+hpPar, SW_HIDE);
kdyz je vse ok je hpErr rovno 0, a ja bych potreboval v pripade, ze hpErr<>0 vypsat hlasku, kterou vypise gbak.exe. Marek Dostal
D7Prof, WinXP, FireBird 1.0, 1.5
D6 + Win95 - nezobrazeni TToolButton
[*] Petr Gregor <pgregor(zv)orsia(tec)cz> - 20.4.2005 08:42:18
Preji dobreho dne a prosim o pomoc.
mam napsany program v Delphi6.
Kdyz program bezi na WIN98 a vyssi, je vse v poradku.
Kdyz vsak program spustim pod Win95,
tak se mi nezobrazi lista s toolbarem (komponenta TToolbar z Delphi).
Nevite nekdo v cem by mohl byt problem?
Diky za radu.
Petr Gregor
Problem s Indy10
[*] Frantisek Mlcoch <frantisek.mlcoch(zv)vsb(tec)cz> - 20.4.2005 08:38:17
Nainstaloval jsem si do D6 novou verzi Indy10 a ted mi to pri kopilaci pise
chybu:
[Fatal Error]: Unit IdMessage was compiled with a different version of
System.RTLVersion.
Nevite nekdo co s tim????
Diky F.
Firebird - nelze se pripojit - spadne aplikace
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 19.4.2005 20:33:28
Ahoj,
mam nejake problemy s aplikacemi u jednoho jedineho zakaznika. Obcas
mu program nabehne, obcas ne (ja vim, takovy popis chyby je na odstrel).
Podle klienta se nekdy proste stane, ze nelze spustit aplikaci, ktera
pouziva Firebird pres TCP/IP. Ping na jmeno funguje, FB 1.5.2 bezi jak
po masle, zadnej FW, jenom AVG 7. Jedna aplikace, ktera jede pres
lokalni connection, jede OK. Ostatni aplikace, ktere jedou natvrdo na
jmeno pocitace pres TCP/IP natvrdo lehnou. Presnou chynu nemam, jenom,
ze windows vypisi, ze aplikace musi byt ukoncena a jestli odeslat
zpravu. Pricemz jindy vse funguje jak ma. Jakoby neco blokovalo
komunikaci aplikace, ale zase pokud aplikace nemuze najit server, chova
se to jinak (to uz mam v praxi overono).
Nesetkal jste se nekdo s podobnym chovanim? Nemate napad?
Dik za kazdej napad
Petr Palicka aka Peca
cannot attach to service manager u FB 1.5 na Win 2
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 19.4.2005 19:57:26
Diky, to je ono, funguje to.
Tomas Bradle
----- Original Message -----
> zkus se pripojovat jako na Remonte pres 127.0.0.1
>
> Jirka Virt
>
Nevyresene problemy s FastReportem
[*] delphi(zv)unileasing(tec)cz - 19.4.2005 19:53:20
Zdravim vsechny, trapim se dvema problemy s Fastreportem (verze 3.11). Prosim o radu:
1) Na sirokouhlem notebooku v rozliseni 1280x800 je nahled a tisk spatne.. Proste jsou ty pismenka trochu zesireny. Pritom kdyz ten notebook prepnu do 1024x768 tak se to vytiskne a zobrazi v pohode, jenze se sirokouhlym notebookem se v tomhle rozliseni delat neda. Pritom vsechny ostatni programy jsou v pohode (IE, MS Word,..) jenom muj software s FastReportem se chova takhle divne.
2) Pokud si dam nahled ve FastReportu, tak mi zustanou aktivni vsechny tri tlacitka v pravem hornim rohu - minimalizace, maximalizace i zavrit. Vadi mi tam ta minimalizace. Pokud to udelam, tak mi nahledove okno zmizi a uz se do nej nevratim. Proto bych to rad zakazal, ale neprisel jsem na to jak. To same pri editacnim okne.
Diky moc, Lubos
Firebird, kylix a deleni nulou
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 19.4.2005 18:55:16
Zdravim konferenci,
v aplikaci napsane v Kylixu mi v urcitem pripade nastane deleni nulou.
To je osetrene pomoci try except (nelze kontrolovat zda delitel je 0).
Ve windows vse funguje jak ma. V Linuxu deleni 0 vyvola signal
SIGFPE ktery je zpracovan v SignalDispatcher v SysUtils, potud je vse ok.
Problem nastane pokud aplikace zaroven pouziva nekterou z komponent
pro pripojeni k Firebirdu (zkousel jsem IBX a FBLib). Po te ce se knihovna
libfbclient.so (libgds.so, nebo libgs.do.0) prilinkuje k aplikaci (napr. pripojenim
k databazi) Vyvolany SIGFPE se dostane do procedury SignalDispatcher,
ale parametr UContext" PUserContext je nil, s cimz se ocividne v te procedure
nepocita. To ma za nasledek tezky pad aplikace.
V Call Stacku v te SignalDispatcher je navic, oproti stavu kdy vse projde, radek
/usr/lib/libfbclient.so
Prijde mi jako by ta knihovna signal zachytila a preposlala dal uz bez parametru...
V cem by mohl byt problem, krome toho deleni 0 :-), je to chyba ve fbclient, nebo v
Kylixu?
Predem dik za rady
Pavel Poles
Komponenta combobox s tabelatorem
[*] Stranik Frantisek Ing. <fstranik(zv)cpoj(tec)cz> - 19.4.2005 16:31:06
Dobry den
Nevite nahodou nekdo o komponente combobox ve ktere je mozno pracovat s tabulatorem
(zarovnani stringovych polozek)
dekuji predem
F.Stranik
Chybny index u DBF v DBE
[*] Koukal Pavel <pavel.koukal(zv)pvt(tec)cz> - 19.4.2005 13:10:53
Ahoj,
Zkus toto (pisu to bez otestovani):
Table1.Close;
Table1.TableLevel:=25;
Table1.Exclusive:=true;
Table1.IndexName:='';
Table1.Open;
Table1.IndexDefs.Update;
Table1.AddIndex('IDX','SLOUPEC+SLOUPEC3',[ixExpression]);
Table1.Close;
Table1.Exclusive:=false;
Table1.IndexName:='IDX';
Table1.Open;
Jeste by jsi mel projit definice indexu a kdyz pozadovany index IDX
existuje, tak ho nevytvaret.
Je to jen nastrel, musis si to dodelat.
S pozdravem Pavel Koukal.
> Od: Ing. Miroslav Vopalecky [mailto:m.vopalecky(zv)tiscali(tec)cz]
>
> Ahoj.
>
> Pri otevreni formulare obsahujici Table (ttDBase) a nasazeni
> indexu pomoci:
> Table1.Exclusive:=true;
> Table1.AddIndex('IDX','SLOUPEC1;SLOUPEC3',[ixExpression]);
> Table1.IndexName:='IDX';
> Table1.Exclusive:=false;
> Table1.Open;
> Se nesetridi tabulka podle udaju v indexu. Mate nekdo nejaky napad?
>
> S pozdravem Mirek Vopalecky, D7 W2000
Chybny index u DBF v DBE
[*] Ing. Miroslav Vopalecky <m.vopalecky(zv)tiscali(tec)cz> - 19.4.2005 12:52:51
Ahoj.
Pri otevreni formulare obsahujici Table (ttDBase) a nasazeni indexu pomoci:
Table1.Exclusive:=true;
Table1.AddIndex('IDX','SLOUPEC1;SLOUPEC3',[ixExpression]);
Table1.IndexName:='IDX';
Table1.Exclusive:=false;
Table1.Open;
Se nesetridi tabulka podle udaju v indexu. Mate nekdo nejaky napad?
S pozdravem Mirek Vopalecky, D7 W2000 Prevod jmena promenne na hodnotu
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 19.4.2005 11:46:47
Koukni se na RTTI a ukladani property objektu.
Treba to to pomuze.
Slavek
> Mam problem - chci naprogramovat funkci, jenz by mela jako
> vstup pole stringu. Toto pole by obsahovalo nazvy promennych.
> No a ta funkce by podle nazvu techto konstant zjistila jejich
> hodnoty a dal je zpracovala. Problem je v tom, jak prevest
> nazvy promennych na odkazy na tyto promenne. Nevite nekdo, jak na to?
>
> Dan
>
>
> Je mozne pridat BDE primo do aplikace?
[*] Venca Zaruba <zaruba(zv)elastoform(tec)cz> - 19.4.2005 10:44:41
A co komponenta TDBF?
----- Original Message -----
From: "Ing. Miroslav Vopalecky" <m.vopalecky(zv)tiscali(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, April 19, 2005 9:58 AM
Subject: Je mozne pridat BDE primo do aplikace?> Ahoj.
> Potrebuji udelat aplikaci na prohlizeni DBF souboru, ktera musi umet
> vytvorit index nad DBF a chci se vyhnout tomu, abych na cilovy stroj musel
> instalovat BDE. Je mozne udelat EXE tak, aby obsahoval i DBE.
> Jiny format tabulek (DBF) nelze pouzit.
> Muzete mi poradit?
> S pozdravem
> Mirek Vopalecky, D7 W2000
> http://imv.web.tiscali(tec)cz
> m.vopalecky(zv)tiscali(tec)cz
>
>
> Prevod jmena promenne na hodnotu
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 19.4.2005 10:44:42
19.4.2005 Dan:
> Smyslem je funkce, ktera by dokazala (podle nastavene direktivy) vyhrat
> vybrane typove konstanty (typu string) do externiho textoveho souboru,
> pripadne zpetne nastavit hodnoty techto typovych konstant (pri vypnute
> direktive).
> Obdobnou funkci pouzivame pro jazykovou lokalizaci. Pracuje ale jen pro
> objekty, pripadne u typovych konstant je treba napsat jmeno konstanty i
> inicializacni hodnotu. Chtel jsem zjednodusit pouzivani teto funkce.
To se bude Zbysek zase zlobit :-)
Proc nepouzijes ResourceStringy misto typovych konstant ?
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Je mozne pridat BDE primo do aplikace?
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 19.4.2005 10:44:41
19.4.2005 Ing. Miroslav Vopalecky:
> Ahoj.
> Potrebuji udelat aplikaci na prohlizeni DBF souboru, ktera musi umet
> vytvorit index nad DBF a chci se vyhnout tomu, abych na cilovy stroj musel
> instalovat BDE. Je mozne udelat EXE tak, aby obsahoval i DBE.
> Jiny format tabulek (DBF) nelze pouzit.
Ne, BDE jsou DLL knihovny, takze je do EXE nezabudujes.
Instalovat to nemusis, staci, kdyz ty knihovny nakopirujes k EXE, ale
je to takove "cunacke" reseni.
Existuji komponenty, ktere umoznuji primou praci s DBF bez nutnosti
jakychkoliv db enginu
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Je?mozne?pridat?BDE?primo?do?aplikace?
[*] Fabtech technologies <fabtech(zv)fabtech.sk> - 19.4.2005 11:08:44
Myslim, ze nie, ale asi by som siel cestou komponenty Tdbf. Neviem ale ci
dokaze index. V takom pripade vobec nepotrebujes BDE.
Fabik Milan
> Ahoj.
> Potrebuji udelat aplikaci na prohlizeni DBF souboru, ktera musi umet
> vytvorit index nad DBF a chci se vyhnout tomu, abych na cilovy stroj musel
> instalovat BDE.
Prevod jmena promenne na hodnotu
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 19.4.2005 11:06:44
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jan Fiala
> Sent: Tuesday, April 19, 2005 10:45 AM
>
> > Obdobnou funkci pouzivame pro jazykovou lokalizaci. Pracuje ale jen
> > pro objekty, pripadne u typovych konstant je treba napsat jmeno
> > konstanty i inicializacni hodnotu. Chtel jsem zjednodusit
> pouzivani teto funkce.
>
> To se bude Zbysek zase zlobit :-)
Proc bych se mel zlobit? :-) Ale jen nechapave kroutim hlavou - proc to
delat jednoduse, kdyz to jde slozite, ze?
> Proc nepouzijes ResourceStringy misto typovych konstant ?
Jasne, kdyz uz bych se matlal s necim takovym co popsal Dan, pouzil bych
resourcestringy, nechal bych program sestavit i s jejich jmeny, a pracoval
bych pak s tim. Vsak k tomu take resources tabulky jsou, ze?
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Prevod jmena promenne na hodnotu
[*] Dan <xfojtik(zv)centrum(tec)cz> - 19.4.2005 10:24:40
Smyslem je funkce, ktera by dokazala (podle nastavene direktivy) vyhrat
vybrane typove konstanty (typu string) do externiho textoveho souboru,
pripadne zpetne nastavit hodnoty techto typovych konstant (pri vypnute
direktive).
Obdobnou funkci pouzivame pro jazykovou lokalizaci. Pracuje ale jen pro
objekty, pripadne u typovych konstant je treba napsat jmeno konstanty i
inicializacni hodnotu. Chtel jsem zjednodusit pouzivani teto funkce.
Dan
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Vones
Sent: Monday, April 18, 2005 8:06 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Prevod jmena promenne na hodnotu
From: "Dan" <xfojtik(zv)centrum(tec)cz>
> by mne, jestli existuje obdoba pro takovouto praci s globalnimi
promennymi.
> Pripadne jestli vubec je nejaka cesta, jak na to.
Co ma byt vubec smyslem ?
Petr Vones
Je mozne pridat BDE primo do aplikace?
[*] Ing. Miroslav Vopalecky <m.vopalecky(zv)tiscali(tec)cz> - 19.4.2005 09:58:38
Ahoj.
Potrebuji udelat aplikaci na prohlizeni DBF souboru, ktera musi umet
vytvorit index nad DBF a chci se vyhnout tomu, abych na cilovy stroj musel
instalovat BDE. Je mozne udelat EXE tak, aby obsahoval i DBE.
Jiny format tabulek (DBF) nelze pouzit.
Muzete mi poradit?
S pozdravem
Mirek Vopalecky, D7 W2000
http://imv.web.tiscali(tec)cz
m.vopalecky(zv)tiscali(tec)cz
jak na napovedu v chm
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 18.4.2005 22:51:48
18.4.2005 Tomas Krejzek:
> ahoj,
> Predelevame program z jineho programovaciho prostredi do delphi, program
> je uplne novy, ale spousta veci tam bude stejnych jako v puvodni verzi,
> takze by jsme chteli vyuzit alespon cast helpu, ktery mame ve formatu
> *.chm, ale kdyz pridam vlastnost HelpFile s cestou k tomuto souboru
> vyhuci to s chybou, kdyz tam pripojim soubor typu *.hlp tak to jede OK,
> nevite v cem by mohla byt chyba, pripadne o nejake komponente ktera by
> to umoznovala pouzit??
> Dik Tom
http://www.ec-software.com/comppage.htm
uplne dole
EC Software Help Suite (ehs.zip, 1.01 MB)
Includes all components with full source code and a compiled exe demo.
Staci pouzit HelpRouter
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
jak na napovedu v chm
[*] Tomas Krejzek <tomas.krejzek(zv)kpsys(tec)cz> - 18.4.2005 22:25:46
ahoj,
Predelevame program z jineho programovaciho prostredi do delphi, program
je uplne novy, ale spousta veci tam bude stejnych jako v puvodni verzi,
takze by jsme chteli vyuzit alespon cast helpu, ktery mame ve formatu
*.chm, ale kdyz pridam vlastnost HelpFile s cestou k tomuto souboru
vyhuci to s chybou, kdyz tam pripojim soubor typu *.hlp tak to jede OK,
nevite v cem by mohla byt chyba, pripadne o nejake komponente ktera by
to umoznovala pouzit??
Dik Tom
cannot attach to service manager u FB 1.5 na Win 2
[*] Jiri Virt <virt(zv)volny(tec)cz> - 18.4.2005 21:07:40
zkus se pripojovat jako na Remonte pres 127.0.0.1
Jirka Virt
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Tomas Bradle
Sent: Monday, April 18, 2005 9:06 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: cannot attach to service manager u FB 1.5 na Win 2003 server
Zdravim vsechny,
mam FB 1.5 instalovany na Win 2003 server. Kdyz se k databazi pripojuji z
jineho pocitace (Win XP) tak je vse OK, ale kdyz se o to pokusim primo na
tom serveru tak mi to pise hlasku: Cannot attach to services manager.
Nevi nekdo kde je chyba ?
diky
Tomas Bradle
t.bradle(zv)sanet(tec)cz
t.bradle(zv)worldonline(tec)cz
cannot attach to service manager u FB 1.5 na Win 2
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 18.4.2005 21:05:40
Zdravim vsechny,
mam FB 1.5 instalovany na Win 2003 server. Kdyz se k databazi pripojuji z
jineho pocitace (Win XP) tak je vse OK, ale kdyz se o to pokusim primo na
tom serveru tak mi to pise hlasku: Cannot attach to services manager.
Nevi nekdo kde je chyba ?
diky
Tomas Bradle
t.bradle(zv)sanet(tec)cz
t.bradle(zv)worldonline(tec)cz
Vytvoreni potomka Frame
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 18.4.2005 20:39:38
> 1. Vynech konstrukci FrameClass.InheritsFrom - je zbytecna
> (pred tim totiz provadis tvrde pretypovani na
> TLekceFrameClass) 2. Zkontroluj, zda mas konstruktor oznaceny
> direktivou override a vsechny dalsi metody, ktere
> predefinovavaji metody predka tez...
Ahoj,
Moc a moc dekuji, uz to snad funguje. Cela veda byla opravdu jen v
direktivach override/virtual. Dost me to uz nervovalo, tak jsem zkousel
naslepo. Jeste jednou dik, jsem velky dluznik. :-)
Preji pekny den,
Milan Cizek, Chvalsiny.NET
Vytvoreni potomka Frame
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 18.4.2005 20:21:36
1. Vynech konstrukci FrameClass.InheritsFrom - je zbytecna (pred tim totiz
provadis tvrde pretypovani na TLekceFrameClass)
2. Zkontroluj, zda mas konstruktor oznaceny direktivou override a vsechny
dalsi metody, ktere predefinovavaji metody predka tez...
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Cizek Milan
> Sent: Monday, April 18, 2005 8:12 PM
>
> type
> TLekceFrameClass = class of TLekceFrame;
>
> private
> CviceniFrame: TLekceFrame;
>
> procedure TLekceForm.StartCviceni;
> var CviceniStr: string; FrameClass: TLekceFrameClass; begin
> CviceniStr:=Cviceni[AktualCvic];
>
> FrameClass:=TLekceFrameClass(FindClass(Format('TCvic%sFrame',[
> CviceniStr])))
> ;
>
> if (FrameClass.InheritsFrom(TLekceFrame)) then
> begin
> CviceniFrame:=FrameClass.Create(Self);
> CviceniFrame.Parent:=Self;
> CviceniFrame.SetFocus;
> end;
> end;
>
> Kdyz to krokuji, tak v CviceniFrame mam opravdu jeden z
> CvicXXFrame, vse projde, ale vsechny metody vcetne
> konstruktoru konci primo v TLekceFrame, nikoli v tech
> podedenych frame. Nevim, mozna se snazim o nemozne?
Vytvoreni potomka Frame
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 18.4.2005 20:11:35
> -----Original Message-----
>
> No a ted napis uz jen toto:
>
> FrameClass.Create(...);
>
> S pozdravem
>
> Milan Tomes
>
Predem dik za trpelivost. :-) Jedine co jsem schopen dat dohromady bez AV
je... Ostatni rady vedou k nekompatibilite typu nebo po pretypovani k AV.
type
TLekceFrameClass = class of TLekceFrame;
private
CviceniFrame: TLekceFrame;
procedure TLekceForm.StartCviceni;
var CviceniStr: string; FrameClass: TLekceFrameClass;
begin
CviceniStr:=Cviceni[AktualCvic];
FrameClass:=TLekceFrameClass(FindClass(Format('TCvic%sFrame',[CviceniStr])))
;
if (FrameClass.InheritsFrom(TLekceFrame)) then
begin
CviceniFrame:=FrameClass.Create(Self);
CviceniFrame.Parent:=Self;
CviceniFrame.SetFocus;
end;
end;
Kdyz to krokuji, tak v CviceniFrame mam opravdu jeden z CvicXXFrame, vse
projde, ale vsechny metody vcetne konstruktoru konci primo v TLekceFrame,
nikoli v tech podedenych frame. Nevim, mozna se snazim o nemozne?
S pozdravem Milan Cizek, amatersky programator, D7 Ent
Win2k (SP4) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Prevod jmena promenne na hodnotu
[*] Petr Vones <konference(zv)petrvones(tec)net> - 18.4.2005 20:05:35
From: "Dan" <xfojtik(zv)centrum(tec)cz>
> by mne, jestli existuje obdoba pro takovouto praci s globalnimi promennymi.
> Pripadne jestli vubec je nejaka cesta, jak na to.
Co ma byt vubec smyslem ?
Petr Vones
Vytvoreni potomka Frame
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 18.4.2005 19:37:32
No a ted napis uz jen toto:
FrameClass.Create(...);
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Cizek Milan
> Sent: Monday, April 18, 2005 6:03 PM
>
> > Takze jsem trochu patral. Kdyz si vytvoris novy typ konstrukci:
> >
> > TMujFrame = class of TLekceFrame
> > pak muzes pouzit:
> >
> > TMujFrame := TCvic01Frame;
> >
> > CviceniFrame := TMujFrame.Create(self);
> >
> > Podivej se do napovedy na konstrukci class of, je tam pekny priklad.
> >
> > Ladislav Stary
>
>
> Ahoj, at se snazim sebevic, stale vytvarim maximalne instanci
> predka, nikoli vsak TCvicXXFrame.
>
> type
> TLekceFrameClass = class of TLekceFrame;
>
> private
> CviceniFrame: TLekceFrame;
>
>
> Var FrameClass: TPersistentClass;
>
> FrameClass:=FindClass(Format('TCvic%sFrame',[CviceniStr]));
> // ve FrameClass mam nyni 'TCvic01Frame'
>
> if (FrameClass.InheritsFrom(TLekceFrame)) then
> begin
> // a tady uz vazne nevim co s tim, uy jsem vzykousel
> snad vsechno
Vytvoreni potomka Frame
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 18.4.2005 18:45:29
> A mas virtualni konstruktor?
Nemam, to ma byt u predka TLekceFrame? V tehle direktivach se prilis
nevyznam...
Milan
Vytvoreni potomka Frame
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 18.4.2005 18:43:29
>type
> TLekceFrameClass = class of TLekceFrame;
>
> private
> CviceniFrame: TLekceFrame;
>
>
>Var FrameClass: TPersistentClass;
>
> FrameClass:=FindClass(Format('TCvic%sFrame',[CviceniStr]));
>// ve FrameClass mam nyni 'TCvic01Frame'
>
> if (FrameClass.InheritsFrom(TLekceFrame)) then
> begin
> // a tady uz vazne nevim co s tim, uy jsem vzykousel snad vsechno
>
>
>
>
Hm, to je divny, ted jsem zkusil konstrukci:
Pom:=FindClass('TEdit');
if (Pom.InheritsFrom(TWinControl)) then
begin
Promenna:= TPom(Pom).Create(Self);
Promenna.Parent := self;
end;
Je to teda normalni komponenta, ale TPom = class of TWinControl, takze
princip by mel byt totozny.
Ladislav Stary
Prevod jmena promenne na hodnotu
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 18.4.2005 18:41:28
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Dan
> Sent: Monday, April 18, 2005 5:59 PM
>
> objektech. Zajimalo by mne, jestli existuje obdoba pro
> takovouto praci s globalnimi promennymi.
Ne.
> Pripadne jestli vubec je nejaka cesta, jak na to.
Prejit do .NET.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Formular v zalozke TPageControl
[*] Martin Cajbik <cajbik(zv)sct.sk> - 18.4.2005 18:27:22
Zdravim,
podobny framework mame rieseny ako klasicku MDI aplikaciu (tym padom nie
je potrebne specialne osetrovat spajanie menu) a naviac je tam iba lista
so zoznamom zobrazenych okien (podobne ako vo Windows, akurat sa
zobrazuje pod hlavnym menu aplikacie).
V maximized stave je to v podstate to co chces, naviac je mozne pouzivat
aj minimalizovanie a zmenu velkosti okien (ak by to vadilo, je mozne to
zakazat). Pri vytvoreni sa kazde okno akurat prida do toho zoznamu a pri
zatvarani sa vymaze. Konkretna implementacia tej listy moze byt rozna,
mozes pouzit aj klasicky TabControl, akurat zmenseny na minimalnu vysku
(okna sa budu zobrazovat pod nim, nie v nom)
--
Martin Cajbik
SCT s.r.o. Kosice
martin wrote:
> Povodna sprava zo dna : 18.4.2005, od <mburle2(zv)volny(tec)cz> :
>
>>>Ale ak ten formular nastavim ako "zalozku TabSheet v PageControl" tak
>>>sa menu VOBEC NEOBJAVI....Preco? Viete mi poradit?
>
>
>>A kde se ma objevit? Na tom formulari, ktery obsahuje PgCtrl? Mam za to, ze
>>musis hlavnimu formulari proradit menu "child" formulare. Neco jako
>>HlavniForm.Menu := FrmAdresar.mojemenu;
>
> --------
> Nie, menu daneho formulara nechcem v hlavnom formulari standardne na
> vrchu,to menu potrebujem aby sa objavovalo priamo v tej zalozke - myslel som
> ze by to nemal byt problem nakolko ten form je "vlastne zalozkou"
> Ale to menu sa jednoducho v zalozke nezobrazi ...Poradte prosim....
>
>
>>Mimochodem, ten PgCtrl bude mit 50 zalozek/formularu? V tom pripade bys asi
>>mel ty formulare vytvaret az tehdy, kdy budou potreba, a mozna je i
>>uvolnovat po prechodu na jinou zalozku. Na slabsim kompu treba navic s Win
>>98 to muze delat potize (nedostatek zdroju, rychlost).
>>MB
>
> -----------
> :) Jasne ze to tak nebude, potrebujem to koli uzivatelskej poziadavke,
> kde si chce uzivatel prepinat medzi formularmi podobne ako napr v
> Opere alebo v Firefoxe (ale tam je nieco ako TabControl), mno v mojom
> pripade ide PageControl nakolko su formulare uplne ine...
> Zalozky sa budu vytvarat dynamicky po stlaceni
> prislusneho tlacitka resp. z menu to je jedno ...a uzivatel potom vidi
> co uz ma otvorene a jednoducho sa prepina medzi otvorenymi formularmi.....
>
> Aj ked je tam tych formularov >30, pre uzivatela su zaujimave max 5-8
> sucasne otvorenych ....
>
> Uz mi to zda sa chodi ako ma, len to menu daneho formu neviem dostat
> na prislusny pagecontrol....
>
> martin
> .Vytvoreni potomka Frame
[*] Radim Kunz <rkunz(zv)casestudio(tec)com> - 18.4.2005 18:25:22
Cizek Milan napsal(a):
>>Takze jsem trochu patral. Kdyz si vytvoris novy typ konstrukci:
>>
>> TMujFrame = class of TLekceFrame
>>pak muzes pouzit:
>>
>>TMujFrame := TCvic01Frame;
>>
>>CviceniFrame := TMujFrame.Create(self);
>>
>>Podivej se do napovedy na konstrukci class of, je tam pekny priklad.
>>
>>Ladislav Stary
>>
>>
>
>
>Ahoj, at se snazim sebevic, stale vytvarim maximalne instanci predka, nikoli
>vsak TCvicXXFrame.
>
>type
> TLekceFrameClass = class of TLekceFrame;
>
> private
> CviceniFrame: TLekceFrame;
>
>
>Var FrameClass: TPersistentClass;
>
> FrameClass:=FindClass(Format('TCvic%sFrame',[CviceniStr]));
>// ve FrameClass mam nyni 'TCvic01Frame'
>
> if (FrameClass.InheritsFrom(TLekceFrame)) then
> begin
> // a tady uz vazne nevim co s tim, uy jsem vzykousel snad vsechno
>
>
>S pozdravem Milan Cizek, amatersky programator, D7 Ent
>Win2k (SP4) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
>
>
A mas virtualni konstruktor?
Radim
Vytvoreni potomka Frame
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 18.4.2005 18:03:20
> Takze jsem trochu patral. Kdyz si vytvoris novy typ konstrukci:
>
> TMujFrame = class of TLekceFrame
> pak muzes pouzit:
>
> TMujFrame := TCvic01Frame;
>
> CviceniFrame := TMujFrame.Create(self);
>
> Podivej se do napovedy na konstrukci class of, je tam pekny priklad.
>
> Ladislav Stary
Ahoj, at se snazim sebevic, stale vytvarim maximalne instanci predka, nikoli
vsak TCvicXXFrame.
type
TLekceFrameClass = class of TLekceFrame;
private
CviceniFrame: TLekceFrame;
Var FrameClass: TPersistentClass;
FrameClass:=FindClass(Format('TCvic%sFrame',[CviceniStr]));
// ve FrameClass mam nyni 'TCvic01Frame'
if (FrameClass.InheritsFrom(TLekceFrame)) then
begin
// a tady uz vazne nevim co s tim, uy jsem vzykousel snad vsechno
S pozdravem Milan Cizek, amatersky programator, D7 Ent
Win2k (SP4) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Prevod jmena promenne na hodnotu
[*] Dan <xfojtik(zv)centrum(tec)cz> - 18.4.2005 17:59:20
>> Mam problem - chci naprogramovat funkci, jenz by mela jako
>> vstup pole stringu. Toto pole by obsahovalo nazvy promennych.
>> No a ta funkce by podle nazvu techto konstant zjistila jejich
>> hodnoty a dal je zpracovala.
>> Problem je v tom, jak prevest nazvy promennych na odkazy na
>> tyto promenne.
>
>Jde to, ale musi se jednat o published property.
Ano, pomoci funkce GetPropInfo zjistim tuto informaci na objektech. Zajimalo
by mne, jestli existuje obdoba pro takovouto praci s globalnimi promennymi.
Pripadne jestli vubec je nejaka cesta, jak na to.
Dan
Prevod jmena promenne na hodnotu
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 18.4.2005 17:01:15
18.4.2005 Dan:
> Mam problem - chci naprogramovat funkci, jenz by mela jako vstup pole
> stringu. Toto pole by obsahovalo nazvy promennych. No a ta funkce by podle
> nazvu techto konstant zjistila jejich hodnoty a dal je zpracovala.
> Problem je v tom, jak prevest nazvy promennych na odkazy na tyto promenne.
> Nevite nekdo, jak na to?
Neni mozne predat primo pole ukazatelu na ty promenne ?
Popr. pouzit napr. TStringList, kde se predaji jmena a v Object i
ukazatele ?
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Prevod jmena promenne na hodnotu
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 18.4.2005 16:53:15
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Dan
> Sent: Monday, April 18, 2005 4:23 PM
>
> Mam problem - chci naprogramovat funkci, jenz by mela jako
> vstup pole stringu. Toto pole by obsahovalo nazvy promennych.
> No a ta funkce by podle nazvu techto konstant zjistila jejich
> hodnoty a dal je zpracovala.
> Problem je v tom, jak prevest nazvy promennych na odkazy na
> tyto promenne.
Jde to, ale musi se jednat o published property.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Prevod jmena promenne na hodnotu
[*] Kalhous <kalhous(zv)eu(tec)cz> - 18.4.2005 16:45:14
Jelikoz Delphi nejsou interpret ale kompilator a chvilemi skoro prekladac
tak bych si tipnul ze to pujde ztuha. Proc by v exe souboru udrzoval slovnik
nazvu promennych kdyz je nepotrebuje. Leda nejak znasilnit debuger.
----- Original Message -----
From: "Dan" <xfojtik(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, April 18, 2005 4:23 PM
Subject: Prevod jmena promenne na hodnotu
> Mam problem - chci naprogramovat funkci, jenz by mela jako vstup pole
> stringu. Toto pole by obsahovalo nazvy promennych. No a ta funkce by podle
> nazvu techto konstant zjistila jejich hodnoty a dal je zpracovala.
> Problem je v tom, jak prevest nazvy promennych na odkazy na tyto promenne.
> Nevite nekdo, jak na to?
>
> Dan
>
>
> Prevod jmena promenne na hodnotu
[*] Dan <xfojtik(zv)centrum(tec)cz> - 18.4.2005 16:23:12
Mam problem - chci naprogramovat funkci, jenz by mela jako vstup pole
stringu. Toto pole by obsahovalo nazvy promennych. No a ta funkce by podle
nazvu techto konstant zjistila jejich hodnoty a dal je zpracovala.
Problem je v tom, jak prevest nazvy promennych na odkazy na tyto promenne.
Nevite nekdo, jak na to?
Dan
Formular v zalozke TPageControl
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 18.4.2005 15:57:10
> Nie, menu daneho formulara nechcem v hlavnom formulari standardne na
> vrchu,to menu potrebujem aby sa objavovalo priamo v tej zalozke - myslel
> som
> ze by to nemal byt problem nakolko ten form je "vlastne zalozkou"
> Ale to menu sa jednoducho v zalozke nezobrazi ...Poradte prosim....
No ja myslim ze standarni menu tam zobrazit nelze, nebo alespon ne
jednoduse. Mam takovy matny dojem, ze komponenty Tb2k a TBx (hledej na
torry) umoznuji vytvaret vlastni menu dokovatelna kdekoli, to by mohla byt
cesta).
MB Formular v zalozke TPageControl
[*] martin <matrix(zv)inmail(tec)cz> - 18.4.2005 15:33:08
Povodna sprava zo dna : 18.4.2005, od <mburle2(zv)volny(tec)cz> :
>> Ale ak ten formular nastavim ako "zalozku TabSheet v PageControl" tak
>> sa menu VOBEC NEOBJAVI....Preco? Viete mi poradit?
> A kde se ma objevit? Na tom formulari, ktery obsahuje PgCtrl? Mam za to, ze
> musis hlavnimu formulari proradit menu "child" formulare. Neco jako
> HlavniForm.Menu := FrmAdresar.mojemenu;
--------
Nie, menu daneho formulara nechcem v hlavnom formulari standardne na
vrchu,to menu potrebujem aby sa objavovalo priamo v tej zalozke - myslel som
ze by to nemal byt problem nakolko ten form je "vlastne zalozkou"
Ale to menu sa jednoducho v zalozke nezobrazi ...Poradte prosim....
> Mimochodem, ten PgCtrl bude mit 50 zalozek/formularu? V tom pripade bys asi
> mel ty formulare vytvaret az tehdy, kdy budou potreba, a mozna je i
> uvolnovat po prechodu na jinou zalozku. Na slabsim kompu treba navic s Win
> 98 to muze delat potize (nedostatek zdroju, rychlost).
> MB
-----------
:) Jasne ze to tak nebude, potrebujem to koli uzivatelskej poziadavke,
kde si chce uzivatel prepinat medzi formularmi podobne ako napr v
Opere alebo v Firefoxe (ale tam je nieco ako TabControl), mno v mojom
pripade ide PageControl nakolko su formulare uplne ine...
Zalozky sa budu vytvarat dynamicky po stlaceni
prislusneho tlacitka resp. z menu to je jedno ...a uzivatel potom vidi
co uz ma otvorene a jednoducho sa prepina medzi otvorenymi formularmi....
Aj ked je tam tych formularov >30, pre uzivatela su zaujimave max 5-8
sucasne otvorenych ....
Uz mi to zda sa chodi ako ma, len to menu daneho formu neviem dostat
na prislusny pagecontrol....
martin
Vlakna - HyperThearding resp. 2 procesory
[*] delphin(zv)post(tec)cz - 18.4.2005 15:19:07
> chtel jsem se optat nekoho vzdelaneho, resp. si podporit svou domenku.
> Pokud aplikace bezi na stroji s hypertheardingem, resp. 2 ma procesory a
> aplikace si spousti dalsi vlakna, tak si system sam managuje, na kterem
> procesoru, ktere vlakno pobezi ?
Defaultne ano, ale jde to menit. GetProcessAffinityMask vraci aktualni stav,
na kterych procesorech proces bezi. Jmeno Pracovni skupiny
[*] delphi(zv)spst(tec)cz - 18.4.2005 15:17:07
Dobry den.
Porad zapasim s prejmenovanim "Pracovni skupiny" ve Windows XP pod Delphi 5
Rucne se ve vlastnostech, na zalozce Nazev pocitace provede zmena a vse
funguje.
Kdyz vsak chci pouzit Delphi narazim neustale na nejaky proglem.
Funkce, ktera vraci Pracovni skupiny je NetWkstaGetInfo. Obdobne fce, ktara
ma toto umet nastavit je NetWkstaSetInfo. Vzdy vsak dostanu navratovy kod
124 (nenasel jsem co to je) a nic se nestane.
Muj kod
type
WKSTA_INFO_100 = Record
wki100_platform_id : DWORD;
wki100_computername : LPWSTR;
wki100_langroup : LPWSTR;
wki100_ver_major : DWORD;
wki100_ver_minor : DWORD;
end;
LPWKSTA_INFO_100 = ^WKSTA_INFO_100;
Function NetWkstaGetInfo
(ServerName : LPWSTR;
Level : DWORD;
BufPtr : Pointer) : Longint; Stdcall;
external 'netapi32.dll' Name 'NetWkstaGetInfo';
Function NetWkstaSetInfo
(ServerName : LPWSTR;
Level : DWORD;
BufPtr : Pointer;
ParmErr : Pointer) : Longint; Stdcall;
external 'netapi32.dll' Name 'NetWkstaSetInfo';
procedure SetNetParam(langroup : string);
Var
wDomainName : WideString;
PBuf : LPWKSTA_INFO_100;
Res : LongInt;
Err : DWord;
begin
NetWkstaGetInfo (Nil, 100, (zv)PBuf); // nactu stavajici hodnoty -
funguje
wDomainName := langroup;
PBuf^.wki100_langroup:=PWideChar (wDomainName); // upravim LanGroup -
funguje
Res := NetWkstaSetInfo (Nil, 100, (zv)PBuf, (zv)Err); // pokusim se
nastavit na PC
//Jen pro kontrolu if Res <> NERR_Success then ShowMessage(IntToStr(Res)+'
'+IntToStr(Err));
end;
Existuje nejaka jina funkce pro zmenu pracovni skupiny?
Predem moc dekuji
Novacek
Formular v zalozke TPageControl
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 18.4.2005 14:25:00
> Ale ak ten formular nastavim ako "zalozku TabSheet v PageControl" tak
> sa menu VOBEC NEOBJAVI....Preco? Viete mi poradit?
A kde se ma objevit? Na tom formulari, ktery obsahuje PgCtrl? Mam za to, ze
musis hlavnimu formulari proradit menu "child" formulare. Neco jako
HlavniForm.Menu := FrmAdresar.mojemenu;
Mimochodem, ten PgCtrl bude mit 50 zalozek/formularu? V tom pripade bys asi
mel ty formulare vytvaret az tehdy, kdy budou potreba, a mozna je i
uvolnovat po prechodu na jinou zalozku. Na slabsim kompu treba navic s Win
98 to muze delat potize (nedostatek zdroju, rychlost).
MB
Formular v zalozke TPageControl
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 18.4.2005 13:58:58
Resime neco podobneho. Vkladame formular do panelu:
FrameDet1 := TFrameDet1.Create(Application);
// vytvoreni formulare detailu
FrameDet1.Parent := GBDetail1; //
nastavi jako rodice panel detailu
FrameDet1.Visible := true; //
umozni, aby byl formular detailu viditelny
FrameDet1.Align := alClient; //
zobrazi detail pres cely rodicovsky panel
FrameDet1.Enabled := true; //
zpristupni formular detailu pro editaci
FrameDet1.Show; //
zobrazi formular detailu
Ladislav Stary
martin napsal(a):
>Dobry den,
> cely vikend sa trapim s nasledovnym problemom:
>
> Predstavte si aplikaciu ktora ma >50 formularov.
> Na hlavnom formulari je komponenta TPageControl.
> Chcem, aby sa tie formulare otvarali nie ako modalne, ale ako
> "tabsheet" toho TPageControl..
>
> Uz som to aj nejak vyriesil no nie som si isty ci idem na to spravne
> Na konci je kus klucoveho kodu.
>
> Trapim sa este s problemom, ako dostat TMainMenu na ten TPageControl
> Totizto ak na nejakom formulari je TMainMenu a zobrazim ho ako
> ShowModal bez "vnorenia do PageControl" tak sa menu zobrazuje
> spravne.
> Ale ak ten formular nastavim ako "zalozku TabSheet v PageControl" tak
> sa menu VOBEC NEOBJAVI....Preco? Viete mi poradit?
>
> Ak mate niekto odskusany kod rovnakeho alebo podobneho "frameworku"
> prosim poslite mi ho....Dik
>
>
>
Formular v zalozke TPageControl
[*] martin <matrix(zv)inmail(tec)cz> - 18.4.2005 13:38:56
Dobry den,
cely vikend sa trapim s nasledovnym problemom:
Predstavte si aplikaciu ktora ma >50 formularov.
Na hlavnom formulari je komponenta TPageControl.
Chcem, aby sa tie formulare otvarali nie ako modalne, ale ako
"tabsheet" toho TPageControl..
Uz som to aj nejak vyriesil no nie som si isty ci idem na to spravne
Na konci je kus klucoveho kodu.
Trapim sa este s problemom, ako dostat TMainMenu na ten TPageControl
Totizto ak na nejakom formulari je TMainMenu a zobrazim ho ako
ShowModal bez "vnorenia do PageControl" tak sa menu zobrazuje
spravne.
Ale ak ten formular nastavim ako "zalozku TabSheet v PageControl" tak
sa menu VOBEC NEOBJAVI....Preco? Viete mi poradit?
Ak mate niekto odskusany kod rovnakeho alebo podobneho "frameworku"
prosim poslite mi ho....Dik
-----------
tabsheet_adresar: TTabSheet;
...
var
frm_adresar: Tfrm_adresar;
...
procedure Tfrm_adresar.tabsheet_show(Sender: TObject);
begin
BringToFront;
end;
procedure Tfrm_adresar.FormCreate(Sender: TObject);
begin
tabsheet_adresar := TTabSheet.Create(Application);
tabsheet_adresar.PageControl := frm_main.main_pagectrl;
parent := tabsheet_adresar;
Align := alClient;
BorderStyle := bsNone;
tabsheet_adresar.Caption := Caption;
tabsheet_adresar.OnShow := tabsheet_show;
end;
procedure Tfrm_adresar.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
hide;
tabsheet_adresar.PageControl := nil;
parent := nil;
action := caFree;
tabsheet_adresar.free;
end;
------------
--
Martin
D7Pro
FB - bezpecny prenos dat cez internet
[*] Vlko II. <vlko(zv)zilina(tec)net> - 18.4.2005 11:36:48
On Mon, 18 Apr 2005 10:36:43 +0200, <delphinpp(zv)atlas(tec)cz> wrote:> .dik, to mi je tak trochu jasne, skor mi nie je jasny ten postup, ktory
> tam je spomenuty s tymi roznymi certifikatmi a tak..
no ak ide o dokument :Secure Connections to Firebird with Stunnel
Tak generovanie certifikatov je nutna podmienka, aby bol ssl tunnel
vytvoreny, pretoze client a server sa musia urcitim sposobom overit
aby nedoslo, k podvrhnutiu spojenia. Ale to je uz skor otazka bezpecnosti.
Ak firebird bezi na linuxovom stroji, tak tu uz by mali byt pri instalacii
nejake certifikaty vygenerovane. Ak je to na win, tam je nutne tieto
certifikaty vygenerovat a nastavit pre stunnel, ako sa k nim dostane.
vlko
--
--------------
mail: vlko(zv)zilina.net
web: http://vlko.zilina.net
OT: Licence Interbase
[*] Tomas Fajman <tomas.fajman(zv)ortex(tec)cz> - 18.4.2005 10:54:45
Cus bus nevite nekdo prosim jak to je s distribuci Interbase co je k delphi
( muzu to davat zakazniku zdarma?)? Diky za odpovedi
--
Zpravu proveril BitDefender.
Menu - rozbaleni na urcite ItemMenu
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 18.4.2005 10:38:43
Ahoj vsem!
Jde nejak (jak? ;o) po kliku uzivatele rozbalit menu tak, aby "jako" zustal na stejnem miste? Klik uzivatele totiz v mem pripade zpusobi jen Checked/unChecked ItemMenu.
Diky a hezky den vsem!
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP2; FB 1.5.1
programator amater
FB - bezpecny prenos dat cez internet
[*] delphinpp(zv)atlas(tec)cz - 18.4.2005 10:36:43
Vlko II. wrote:
>On Mon, 18 Apr 2005 09:30:03 +0200, <delphinpp(zv)atlas(tec)cz> wrote:
>
>
>
>pouzitie stunnelu je vlastne vytvorenim urciteho premostenia medzi
>klientskym strojom a serverom. Toto premostenie je secure a skrz neho
>prechadzaju nechranene data, ktore nie je mozne na ceste odchytit.
>Spojenie sa otvara medzi portom na serveri a clientskym portom, takym
>sposobom, ze port servera sa tvari ako lokalny port clienta.
>Cize po vytvoreni spojenia medzi serverom a clientom staci uz iba
>aby aplikacia sa pripojila na lokalny port clienta a vsetko pekne funguje:)
>
>vlko
>
>
>
.dik, to mi je tak trochu jasne, skor mi nie je jasny ten postup, ktory
tam je spomenuty s tymi roznymi certifikatmi a tak..
M.
FB - bezpecny prenos dat cez internet
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 18.4.2005 10:32:43
Klasickou VPN.
(nekolik typu, OpenVPN, PPTP v soucasne dobe).
Dale se da pouzit stunel (pak navazujes spojeni s localhostem,
kde bezi ssltunel a ten ti tuneluje spojeni na server).
Slavek
> mozete mi prosim vas niekto poradit ako na %subj% ? ..na
> www.ibphoenix(tec)cz som nasiel nejaky clanok, kde sa spomina
> www.stunnel.org, ale nie celkom tomu rozumiem. Mohol by mi
> ten postup niekto zrozumitelnejsie vysvetlit?...pripadne co
> ine pouzivate?FB - bezpecny prenos dat cez internet
[*] Vlko II. <vlko(zv)zilina(tec)net> - 18.4.2005 10:10:41
On Mon, 18 Apr 2005 09:30:03 +0200, <delphinpp(zv)atlas(tec)cz> wrote:
> Zdar,
>
> mozete mi prosim vas niekto poradit ako na %subj% ? ..na
> www.ibphoenix(tec)cz som nasiel nejaky clanok, kde sa spomina
> www.stunnel.org, ale nie celkom tomu rozumiem. Mohol by mi ten postup
> niekto zrozumitelnejsie vysvetlit?...pripadne co ine pouzivate?
>
pouzitie stunnelu je vlastne vytvorenim urciteho premostenia medzi
klientskym strojom a serverom. Toto premostenie je secure a skrz neho
prechadzaju nechranene data, ktore nie je mozne na ceste odchytit.
Spojenie sa otvara medzi portom na serveri a clientskym portom, takym
sposobom, ze port servera sa tvari ako lokalny port clienta.
Cize po vytvoreni spojenia medzi serverom a clientom staci uz iba
aby aplikacia sa pripojila na lokalny port clienta a vsetko pekne funguje:)
vlko
--
--------------
mail: vlko(zv)zilina.net
web: http://vlko.zilina.net
FB - bezpecny prenos dat cez internet
[*] delphinpp(zv)atlas(tec)cz - 18.4.2005 09:30:03
Zdar,
mozete mi prosim vas niekto poradit ako na %subj% ? ..na
www.ibphoenix(tec)cz som nasiel nejaky clanok, kde sa spomina
www.stunnel.org, ale nie celkom tomu rozumiem. Mohol by mi ten postup
niekto zrozumitelnejsie vysvetlit?...pripadne co ine pouzivate?
Dik,
Miso
Chyba: "Pristup byl odepren" - WinExec a zmena SQL
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.4.2005 08:19:52
> var
> err1, dw1: cardinal;
> begin
> dw1:=WaitForSingleObject(WinExec(PChar('"'+'D:\gfix.exe'+'" "'+'D:\DB.gdb'+'" '+'-sql_dialect 3 -user SYSDBA -password masterkey'), SW_MINIMIZE or SW_HIDE), INFINITE);
> err1:=GetLastError;
>
> //prevod err1 na systemove hlaseni
> //if err1=5 then "Pristup byl odepren"
> end;
>
Ahoj,
sice ti asi nepomuzu, ale pozor - tohle bych pro zacatek zkusil opravit:
1) Misto WinExec pouzit ShellExecute (to asi neni az tak dulezite)
2) Podle helpu se pripadna chyba nezjistuje pomoci GetLastError, ale
podle vracene hodnoty fce WinExec/ShellExecute. A bacha - vyznam
cisla chyby se u nekterych hodnot lisi od vyznamu tohoto kodu z
GetLastError. Tj. na hodnotu chyby vracenou z ShellExecute nelze
pouzit SysErrorMessage z unity SysUtils, ale je treba si sam napsat
prislusne hlaseni podle seznamu vracenych hodnot dle helpu k
ShellExecute. I z duvodu mozneho zkolabovani proto asi neni dobre
WinExec rovnou spojit s WaitForSingleObject, ale postupovat nejak
takto:
handle := WinExec nebo ShellExecute...
if handle > 32 then
WaitForSingleObject... nebo jiny cekaci mechanismus
else
case handle of
...zobrazeni chyby
David Lebeda
OT: Zamestnani
[*] jsdelphi(zv)creatix(tec)cz - 18.4.2005 02:21:28
Hledame zamestnance - programatora se znalosti Delphi a ORACLE pro bankovni
aplikace. Pruzna pracovni doba, dobre ohodnoceni. Rozhoduji schopnosti.
Nabidky na soukromy email.
Jan Skopovy
CREATIX s.r.o.
tel/fax: +420 222 564 426
mobil: +420 776 097 202
email: <mailto:js(zv)creatix(tec)cz> js(zv)creatix(tec)cz
<http://www.creatix(tec)cz/> www.creatix(tec)cz
zachrante Elisce tatinka <http://www.creatix(tec)cz/vyzva.htm> ...
Vlakna - HyperThearding resp. 2 procesory
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 17.4.2005 18:16:51
> DD,
> chtel jsem se optat nekoho vzdelaneho, resp. si podporit svou domenku.
> Pokud aplikace bezi na stroji s hypertheardingem, resp. 2 ma
> procesory a aplikace si spousti dalsi vlakna, tak si system
> sam managuje, na kterem procesoru, ktere vlakno pobezi ?
Ahoj,
predne HT<>2CPU, pokud vim, tak u HT se to defaultne jakoby rozklada, tedy
treba 50+50%. Jak je to u vice CPU jsem nemel moznost vyzkouset, ale asi se
nejprve vyuzije prvni a az pak druhy procesor? Pokud si s tim chces pohrat,
podivej se na me demo na http://milanc.chvalsiny.net/hratky.php.
S pozdravem Milan Cizek, amatersky programator, D7 Ent
Win2k (SP4) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Vlakna - HyperThearding resp. 2 procesory
[*] Jiri Baudys <konference(zv)baudys.name> - 17.4.2005 17:32:48
DD,
chtel jsem se optat nekoho vzdelaneho, resp. si podporit svou domenku.
Pokud aplikace bezi na stroji s hypertheardingem, resp. 2 ma procesory a
aplikace si spousti dalsi vlakna, tak si system sam managuje, na kterem
procesoru, ktere vlakno pobezi ?
Diky
jirKa
Vytvoreni potomka Frame
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 17.4.2005 14:14:50
No nevim nevim, ale ja jsem neco podobneho provedl takto:
FrameClass:=FindClass('TCvic01Frame');
if (FrameClass.InheritsFrom(TLekceFrame)) then
begin
CviceniFrame := FrameClass.Create(Self);
CviceniFrame.Parent:=Self;
CviceniFrame.SetFocus;
end;
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Cizek Milan
> Sent: Saturday, April 16, 2005 8:08 PM
>
> TLekceFrame je vlastni potomek TCustomFrame, pak mam mnoho
> framu odvozenych od TLekceFrame, napr.:
>
> TCvic01Frame = class(TLekceFrame)
>
> Nyni potrebuji tento frame vytvorit, delam to takto:
>
> FrameClass:=FindClass('TCvic01Frame');
> if (FrameClass.InheritsFrom(TLekceFrame)) then
> begin
> CviceniFrame:=TLekceFrame(FrameClass).Create(Self);
> //--> zde skoncim s AV
> CviceniFrame.Parent:=Self;
> CviceniFrame.SetFocus;
> end;
Vytvoreni potomka Frame
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 17.4.2005 09:20:29
Takze jsem trochu patral. Kdyz si vytvoris novy typ konstrukci:
TMujFrame = class of TLekceFrame
pak muzes pouzit:
TMujFrame := TCvic01Frame;
CviceniFrame := TMujFrame.Create(self);
Podivej se do napovedy na konstrukci class of, je tam pekny priklad.
Ladislav Stary
Cizek Milan napsal(a):
>>-----Original Message-----
>>A nemel bys tam mit pri vytvareni toho framu spis
>>
>>CviceniFrame := TCvic01Frame.Create(Self)
>>
>>
>
>To prave nejde, framu mam asi 50, proto ta konstrukce a zjisteni podle
>jmena...
>
>
>
>>Jeste je taky otazka, jakyho typu mas promennou CviceniFrame
>>
>>
>
>CviceniFrame: TLekceFrame;
>
>S pozdravem Milan Cizek, amatersky programator, D7 Ent
>Win2k (SP4) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
>Ulozeni dat do relacni databaze FireBird
[*] Ing. Miroslav Vopalecky <m.vopalecky(zv)tiscali(tec)cz> - 17.4.2005 08:18:23
Ahoj.
Resil jsem podobnou vec. Nejjednodussi bylo pred prechodem na detailni data
zjistit pomoci SQL maximalni cislo klicovaho udaje ID (definuji do kazda
tabulky a je to vzdy primarni klic), tuto hodnotu povysit o jednicku a
zaznam ulozit. Pak pro zobrazeni detailu ci podrizenych vet uz mam
existujici zaznam s platnym jednoznacnym klicem a mohu zaznam identifikovat.
V datovem modulu je dobra u IBTransaction nastavit u DefaultAction hodnotu
"TACommitRetaining" aby se zmeny zapsaly a byly videt pri porizeni dalsi
vety.
V IBExpertovi jsou videt zmeny az po znovunacteni tabulky. Podstatne je zda
jsou zmeny zaznamu tabulky databaze videt v aplikaci.
S pozdravem Mirek Vopalecky, D7 W2000
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Pavel Beranek
Sent: Friday, April 15, 2005 3:23 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Ulozeni dat do relacni databaze FireBird
Dobry den,
mam jeden laicky dotaz:
V Delphi 7 vytvarim program, ktery mam napojen na databazi FireBirdu
(pouzivam komponenty InterBase). Na jednom z formularu zadavam novy zaznam,
jenz pouziva jako klic AutoInc hodnotu (ktera se prirazuje pri ulozeni). Z
toho sameho formulare se pomoci tlacitka dostanu na jiny formular, na kterem
potrebuji zadat detailni udaje vztahujici se k zaznamu zadavanem na prvnim
formulari. Tato data jsou ukladana do jine tabulky a jsou svazana relaci
prave podle ID zaznamu z prvniho formulare. Jelikoz ID prvotniho zaznamu
neexistuje, jak mohu zadat data na druhem formulari ? FireBird pri ukladani
dat pochopitelne vyvola vyjimku na neexistujici ID v nadrazene tabulce.
Pokud data z prvniho formulare ulozim (POST), tak si moc nepomohu, protoze
ID se nepriradi ani pote (resp. v aplikaci ho nevidim). Dokonce cely zaznam
nevidim ani v aplikaci IBExpert, kterou pozivam na praci s FireBird, kdyz v
me aplikaci potvrdim transakci ("IBTable1.Transaction.CommitRetaining" nebo
"Transaction1.CommitRetainig"). Zaznam vidim, az kdyz potvrdim transakci
primo v IBExpert.
Shrnuti dotazu:
Jak mohu ulozit data na druhem formulari, kdyz neznam ID nadrazeneho zaznamu
? Jak mohu nadrazeny zaznam ulozit, abych mohl ukladat i detailni data
zadavana na druhem formulari, ale se zachovanim moznosti transakci nakonec
zrusit ? Proc nevidim zaznam v IBExpertovi po commitnuti transakce v mem
programu.
Predem dekuji za pomoc
Pavel Beranek
Potomek TCustomFrame
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 17.4.2005 00:57:51
Ahoj,
uz jsem z toho docela zoufaly. Chtel jsem si vytvorit potomka od
TCustomFrame, ktery bude spolecnym rodicem pro dalsi frames. Vyzkousel jsem:
1) udelal jsem si .pas s normalni tridou odvozenou od TCustomFrame, doplnil
sve property, pak z teto tridy podedil dalsi frame. Vysledkem je to, ze se
rodicovsky frame netvari jako CustomFrame, ma mraky properties, nechapu proc
a nevim odkud se berou.
2) udelal jsem prvniho potomka TCustomFrame jako komponentu, tedy s register
procedurou, zkompiloval, nainstaloval a pridal do repository. Jako v
predeslem pripade tam jsou property ktere tam vubec nepatri (nemeli by e
dedit). Program se sice zkompiluje ale nasledne pada na chyby, ze je
postradana nektera property, patrne chybi v dfm. Ruzne jsem si s tim hral,
ale bez vysledku.
Muzete me nekdo nasmerovat, jak na to? Chci proste svuj vlastni vzorovy
frame, pouze s property ktere tam maji byt + me vlastni a z neho nasledne
odvozovat. Dik
S pozdravem Milan Cizek, amatersky programator, D7 Ent
Win2k (SP4) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Vytvoreni potomka Frame
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 16.4.2005 22:39:41
> -----Original Message-----
> A nemel bys tam mit pri vytvareni toho framu spis
>
> CviceniFrame := TCvic01Frame.Create(Self)
To prave nejde, framu mam asi 50, proto ta konstrukce a zjisteni podle
jmena...
> Jeste je taky otazka, jakyho typu mas promennou CviceniFrame
CviceniFrame: TLekceFrame;
S pozdravem Milan Cizek, amatersky programator, D7 Ent
Win2k (SP4) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Vytvoreni potomka Frame
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 16.4.2005 22:33:41
A nemel bys tam mit pri vytvareni toho framu spis
CviceniFrame := TCvic01Frame.Create(Self)
Jeste je taky otazka, jakyho typu mas promennou CviceniFrame
Ladislav Stary
Cizek Milan napsal(a):
>Ahoj,
>mam situaci:
>
>TLekceFrame je vlastni potomek TCustomFrame, pak mam mnoho framu odvozenych
>od TLekceFrame, napr.:
>
>TCvic01Frame = class(TLekceFrame)
>
>Nyni potrebuji tento frame vytvorit, delam to takto:
>
> FrameClass:=FindClass('TCvic01Frame');
> if (FrameClass.InheritsFrom(TLekceFrame)) then
> begin
> CviceniFrame:=TLekceFrame(FrameClass).Create(Self); //--> zde skoncim
>s AV
> CviceniFrame.Parent:=Self;
> CviceniFrame.SetFocus;
> end;
>
>Dokud jsem misto TLekceFrame pouyival primo TCustomFrame, chodilo to bey
>problemu. Uz si nevim rady. Diky.
>
>S pozdravem Milan Cizek, amatersky programator, D7 Ent
>Win2k (SP4) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
>
>Vytvoreni potomka Frame
[*] Cizek Milan <cizek.milan(zv)seznam(tec)cz> - 16.4.2005 20:07:31
Ahoj,
mam situaci:
TLekceFrame je vlastni potomek TCustomFrame, pak mam mnoho framu odvozenych
od TLekceFrame, napr.:
TCvic01Frame = class(TLekceFrame)
Nyni potrebuji tento frame vytvorit, delam to takto:
FrameClass:=FindClass('TCvic01Frame');
if (FrameClass.InheritsFrom(TLekceFrame)) then
begin
CviceniFrame:=TLekceFrame(FrameClass).Create(Self); //--> zde skoncim
s AV
CviceniFrame.Parent:=Self;
CviceniFrame.SetFocus;
end;
Dokud jsem misto TLekceFrame pouyival primo TCustomFrame, chodilo to bey
problemu. Uz si nevim rady. Diky.
S pozdravem Milan Cizek, amatersky programator, D7 Ent
Win2k (SP4) a WinXP, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
prime numbers (prvocisla)
[*] Jerry <jry2000(zv)seznam(tec)cz> - 16.4.2005 14:17:07
http://www.utm.edu/research/primes/
tam v sekci prime links je veci habadej vcetne teorie a programu.
Jaroslav Vorlicek
prime numbers (prvocisla)
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 16.4.2005 00:04:07
zdravim konferenci,
pomuze mi nekdo s volbou algoritmu pro hledani prvocisel ? ... Eratosthenovo
sito zrejme nelze upravit tak aby se nezacalo od pocatku coz je nezadouci
... pouzivam klasickou metodu deleni do odmocniny ktera je pomerne
jednoducha a zaroven do hranice Integer celkem rychla ovsem stale krajne
nedostacujici ... predpokladam ze existuji podstatne efektivnejsi metody ...
poradi nekdo z pritomnych ? Ulozeni dat do relacni databaze FireBird
[*] Kalhous <kalhous(zv)eu(tec)cz> - 15.4.2005 16:09:35
> Jak mohu ulozit data na druhem formulari, kdyz neznam ID nadrazeneho
> zaznamu ?
Nejlepe asi nepouzivat jakesi AutoInc ale primarni klice prirazovat nejak
elegantneji. Nejlepe jako GUIDy, nebo pouzivat generatory SQL serveru. Rucni
prace je rucni prace. A samozrejme je potreba nejdriv zapsat parent zaznam a
az potom childy.
> Jak mohu nadrazeny zaznam ulozit, abych mohl ukladat i detailni data
> zadavana na druhem formulari, ale se zachovanim moznosti transakci
> nakonec zrusit ?
Musi to proste vsechno jet v jedne transakci. Uvnitr teze transakce uvidi
vsichni vsechno.
> Proc nevidim zaznam v IBExpertovi po commitnuti transakce v mem
> programu.
Asi IBExpert jede ve vlastni transakci ktera je snapshot.Ulozeni dat do relacni databaze FireBird
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 15.4.2005 15:49:33
Nejdrive si zjisti ID (pred prvni editaci)
SELECT GEN_ID(nazev_neneratoru,1) FROM rdb$database
a pak ho muzes pouzivat podle potreby.
Slavek
> Shrnuti dotazu:
> Jak mohu ulozit data na druhem formulari, kdyz neznam ID
> nadrazeneho zaznamu ? Jak mohu nadrazeny zaznam ulozit, abych
> mohl ukladat i detailni data zadavana na druhem formulari,
> ale se zachovanim moznosti transakci nakonec zrusit ? Proc
> nevidim zaznam v IBExpertovi po commitnuti transakce v mem programu.Ulozeni dat do relacni databaze FireBird
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 15.4.2005 15:41:33
> Shrnuti dotazu:
> Jak mohu ulozit data na druhem formulari, kdyz neznam ID nadrazeneho
> zaznamu ?
Tezko, musis to ID zjistit, treba tak, ze po ulozeni master recordu tento
refreshnes, nebo id zjistis z generatoru dopredu a vlozis do masteru i
detailu jeste na klientu.
> Jak mohu nadrazeny zaznam ulozit, abych mohl ukladat i detailni data
> zadavana na druhem formulari, ale se zachovanim moznosti transakci
> nakonec zrusit ?
Tohle neni moc stastne, drzet transakci behem celeho zadavani. Doporucuji
zjistit novy ID, nechat uzivatele cele vyplnit a pak najednout ulozit do
databaze, nejprve master, pak detailni zaznamy a nakonec commit/rollback v
pripade chyby. Urcite bych to nedelal v IBTable - uz se tu o tom psalo
hodnekrat.
> Proc nevidim zaznam v IBExpertovi po commitnuti transakce v mem
> programu.
Protoze jsi zrejme v IBEx otevrel data jeste pred ulozenim zmen z aplikace,
tj,. zahajil jsi transakci, ktera ty zmeny z novejsi transakce "nevidi".
Pokud otevres data az po provedeni zmen / a tyto budou commitnute/, pak je
uvidis i v IBEx.
Zkus to radeji v IBdataSet, nebo IBClientdataset+Provider, muzes take vyuzit
"cached updates".
MB
Ulozeni dat do relacni databaze FireBird
[*] Pavel Beranek <pavel.0(zv)tiscali(tec)cz> - 15.4.2005 15:23:26
Dobry den,
mam jeden laicky dotaz:
V Delphi 7 vytvarim program, ktery mam napojen na databazi FireBirdu
(pouzivam komponenty InterBase).
Na jednom z formularu zadavam novy zaznam, jenz pouziva jako klic
AutoInc hodnotu (ktera se prirazuje pri ulozeni).
Z toho sameho formulare se pomoci tlacitka dostanu na jiny formular, na
kterem potrebuji zadat detailni udaje vztahujici se k zaznamu zadavanem
na prvnim formulari. Tato data jsou ukladana do jine tabulky a jsou
svazana relaci prave podle ID zaznamu z prvniho formulare. Jelikoz ID
prvotniho zaznamu neexistuje, jak mohu zadat data na druhem formulari ?
FireBird pri ukladani dat pochopitelne vyvola vyjimku na neexistujici ID
v nadrazene tabulce.
Pokud data z prvniho formulare ulozim (POST), tak si moc nepomohu,
protoze ID se nepriradi ani pote (resp. v aplikaci ho nevidim). Dokonce
cely zaznam nevidim ani v aplikaci IBExpert, kterou pozivam na praci s
FireBird, kdyz v me aplikaci potvrdim transakci
("IBTable1.Transaction.CommitRetaining" nebo
"Transaction1.CommitRetainig"). Zaznam vidim, az kdyz potvrdim transakci
primo v IBExpert.
Shrnuti dotazu:
Jak mohu ulozit data na druhem formulari, kdyz neznam ID nadrazeneho
zaznamu ?
Jak mohu nadrazeny zaznam ulozit, abych mohl ukladat i detailni data
zadavana na druhem formulari, ale se zachovanim moznosti transakci
nakonec zrusit ?
Proc nevidim zaznam v IBExpertovi po commitnuti transakce v mem
programu.
Predem dekuji za pomoc
Pavel Beranek
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.9.10 - Release Date: 14. 4. 2005
OT: TEST
[*] konference(zv)sales(tec)cz - 15.4.2005 14:55:24
Nic mi nechodi tak to zkousim:)
Ludek
FreeOnTerminate a iniherited create - jak to ma sp
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 14.4.2005 17:31:02
david.kopecek(zv)hacktrack.com wrote:
> konferenci v navaznosti na reseni meho problemu s padem v aplikaci
> bych vas chtel poprosit aby mi nekdo vysvetlik jak spravne vyuzivat
> FreeOnTerminate a iniherited create ve vice vlaknovych aplikacich
> postavenych na TTHread ..
Obecne plati, ze bys mel volat nejdriv konstruktor predka a pak teprve
pokracovat v konstrukci vlastni instance, abys mel predka v definovanem
stavu.
>> FreeOnTerminate := false;
>> inherited create(false);
Obracene poradi zde zrejme ma zamezit situaci,
kdy by se thread vytvareny ve stavu CreateSuspended=FALSE
rozebehl a mohl skoncit driv, nez by se nastavilo FreeOnTerminate,
pokud by by bylo az za volanim konstruktoru.
Protoze je Synapse multiplatformni, tak nevim, jestli to neni nutne
kvuli Linuxu, ale pod Windows to neni potreba, protoze ve windows
se API funkce CreateThread vola vzdy s parametrem CREATE_SUSPENDED
a teprve v metode AfterConstruction se vola Resume, nema-li byt thread
vytvoren jako Suspended.
***
Osobne bych preferoval konzervativni implementaci, kdy se vola konstruktor
predka jako prvni a vytvareny thread je explicitne uveden do stavu
suspended:
inherited Create(TRUE);
FreeOnTerminate := ...;
...
...
self.Resume;
Je to IMHO daleko srozumitelnejsi ...
HTH, pf
db, dbtables unity
[*] brano <odber(zv)centrum.sk> - 14.4.2005 16:32:58
asi fakt blba otazka, ale neviem si poradit.
Kde vezmem unity Db, DbTables, je to komponenta TTable?
Kde ju vezmem?
Vdaka
Verze Firebirdu
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 14.4.2005 15:28:53
Ahoj,
Pavel Malinsky wrote:
> Ano to mam ne sice z ISQL, ale z ibexperta, pricemz bych prave potreboval
> vedet co to tenkrat bylo zac (asi RC ).
proto pisu z ISQL. ISQL by mohla, ale taky nemusela, vypsat tu verzi
jinak. Asi to budou nejaky RC, protoze 1.5.1 se hlasi uz jako
WI-V1.5.1.neco.
Peca
Verze Firebirdu
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 14.4.2005 15:08:51
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
>
> Pavel Malinsky wrote:
> > nekdo co je to za verzi a ze kdy FB: WI-V6.3.0.4306 ?
>
> to ti vypise ISQL? jestli ne, tak si to zkus zjistit v ni,
> mohlo by
> to tam byt jasneji uvedene. Dalsi moznost je v Win9x, pravy
> tlacitko na
> ikone v trayi, tam to myslim taky bylo rozepsany jak ve fake
> IB verzi,
> tak ve variante FB. Jistej si 2x nejsem... :(
Ano to mam ne sice z ISQL, ale z ibexperta, pricemz bych prave potreboval
vedet co to tenkrat bylo zac (asi RC ).
Mam k dispozici jen tyto udaje:
Server version: WI-V6.3.1.4481 Firebird 1.5
Server version: WI-V6.3.0.4306 Firebird 1.5
Potreboval bych to zjisiti pro obe verze, co to bylo zac :(
Dekuji predem :)
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Verze Firebirdu
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 14.4.2005 14:58:51
Ahoj,
Pavel Malinsky wrote:
> nekdo co je to za verzi a ze kdy FB: WI-V6.3.0.4306 ?
to ti vypise ISQL? jestli ne, tak si to zkus zjistit v ni, mohlo by
to tam byt jasneji uvedene. Dalsi moznost je v Win9x, pravy tlacitko na
ikone v trayi, tam to myslim taky bylo rozepsany jak ve fake IB verzi,
tak ve variante FB. Jistej si 2x nejsem... :(
Peca
Verze Firebirdu
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 14.4.2005 14:44:50
Ahoj,
mozna trochu legracni dotaz, ale nevite, prosim,
nekdo co je to za verzi a ze kdy FB: WI-V6.3.0.4306 ?
To byla nejaka RC verze 1.5ky ?
Dekuji moc
S pozdravem a pranim prijemneho dne
============================================
| Pavel Malinsky - Mcom | malinsky(zv)pmcom(tec)cz|
|==========================================|
| vyvoj software, poradentsvi a servis IT |
|========================================= |
| ICQ: 322015967 | GSM: 602 652 203 |
============================================
FreeOnTerminate a iniherited create - jak to ma sp
[*] david.kopecek(zv)hacktrack(tec)com - 14.4.2005 14:18:47
Zdravim
konferenci v navaznosti na reseni meho problemu s padem v aplikaci
bych vas chtel poprosit aby mi nekdo vysvetlik jak spravne vyuzivat
FreeOnTerminate a iniherited create ve vice vlaknovych aplikacich
postavenych na TTHread ..
THX DAvid
pad v aplikaci.. - synapse
[*] david.kopecek(zv)hacktrack(tec)com - 14.4.2005 14:14:47
Cauu
>> v hlavnim HTTPserver vlaknu mam constucor create udelany tak ze na
>> konci kodu jsou
>>
>> FreeOnTerminate := false;
>> inherited create(false);
>>
>> a v samontem vlaknu pripojeneho klienta v constructoru create
>> obsahuje na konci
>>
>> FreeOnTerminate:=true;
>> inherited create(false);
KR> nesledoval jsem to od zacatku - FreeOnTerminate je vlastnost
KR> toho objektu, v jehoz konstruktoru se
KR> "FreeOnTerminate:=true;" vyskytuje? Pokud ano, nemelo by se
KR> nejprv volat inherited create... a pak
KR> teprve dat to prirazeni?
NO ja jsem se inspiroval demo HTTP serveru ze synapse kde
v hlavnim vlaknu je
Constructor TTCPHttpDaemon.Create;
begin
sock:=TTCPBlockSocket.create;
FreeOnTerminate:=true;
Priority:=tpNormal;
inherited create(false);
end;
a v tom vlaknu noveho klienta je
Constructor TTCPHttpThrd.Create(Hsock:TSocket);
begin
sock:=TTCPBlockSocket.create;
Headers := TStringList.Create;
InputData := TMemoryStream.Create;
OutputData := TMemoryStream.Create;
Sock.socket:=HSock;
FreeOnTerminate:=true;
Priority:=tpNormal;
inherited create(false);
end;
tudiz jsem si myslel ze pouziji to co je ve zname a casto pouzivane
veci..
a kdyz se tedka koukam do HTTPproxy dema tak tam ma zase
constructor TServiceThread.create;
begin
FreeOnTerminate := false;
inherited create(false);
end;
a
Constructor TTCPHttpThrd.Create(Hsock:TSocket);
begin
csock := hsock;
Headers := TStringList.Create;
ProxyHeaders := TStringList.Create;
FreeOnTerminate:=true;
inherited create(false);
end;
takze nevim co je teda spravne
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
FB inst.
[*] fabo <fabtech(zv)fabtech.sk> - 14.4.2005 13:54:46
Dobry den,
rad by som si overil spravnost niekolkych tvrdeni.
Ak chcem spustit aplikaciu, ktora pracuje s Firebird musim mat:
- na servery naistalovany Firebird, napr. superserver
- na klietovi zaregistrovanu kniznicu fbcklient.dll napr. takto
"instclient.exe i fbcklient.dll"
To je vsetko.
Poprosim o reakcie, ci je to spravne a ci je to vsetko.
Dik MF
OCR & Oskar gate
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 14.4.2005 11:30:33
rozumim ... navstivim jinou konferenci ... nelegalni, nemoralni ani jinak
proti-neco mi to neprijde a nemyslim si to ... budu te ale respektovat
OK, takze znovu a jinak a kratce - nechci tu videt podobne prispevky,
at uz je to nelegalni nebo nemoralni nebo nejake ocuravani. Vsichni
dobre vime, proc to tam je, a ja opravdu nemam cas ani chut se
dohadovat o slovickach. Chcete-li nekdo neco nebo nekoho ocuravat,
delejte to v jine konferenci. ADMIN: OCR & Oskar gate
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.4.2005 11:22:32
Puvodni zprava ze dne 14.4.2005:
> Jen mala semanticka poznamka - nelegalni znamena cesky nezakonny,
> coz je stav, o ktery se v tomto pripade zjevne nejedna.
OK, takze znovu a jinak a kratce - nechci tu videt podobne prispevky,
at uz je to nelegalni nebo nemoralni nebo nejake ocuravani. Vsichni
dobre vime, proc to tam je, a ja opravdu nemam cas ani chut se
dohadovat o slovickach. Chcete-li nekdo neco nebo nekoho ocuravat,
delejte to v jine konferenci.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
OCR & Oskar gate
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 14.4.2005 11:06:31
> > mohl by nekdo pomoci s velkym problemem jak automaticky s lepsim
> > vysledkem nez sance 50% lze rozpoznat ciselny kod na oskarove brane
> > (tedy dostat jej pomoci OCR z toho obrazku)
>
> To je tam proto, abys to nedelal. Takze je to nelegalni a v teto
> konferenci to nema co delat. Precti si pravidla a ber to jako durazne
> napomenuti.
>
> Petr Zahradnik, pocitacovy expert
Jen mala semanticka poznamka - nelegalni znamena cesky nezakonny, coz je
stav, o ktery se v tomto pripade zjevne nejedna. Spis jde o zamer
provozovatele stranek ztizit navstevnikum odesilani SMS, coz muze nebo taky
nemusi byt deklarovano v pravidlech pouzivani brany, v kazdem pripade to ale
s legalnosti/nelegalnosti nema nic spolecneho. Je na svobodne volbe kazdeho,
zda k rozpoznani kodu pouzije biologicky OCR system (tedy oci + mozek +
ruce) nebo pocitacovy OCR system. Provozovatel odesilani SMS nezakazuje,
takze zpusob, ktery zvolim, zavisi pouze na mem rozhodnuti a technickych
moznostech. Maximalni sankci muze byt sankce za poruseni pravidel brany,
udelena provozovatelem brany navstevnikovi, ktery pravidla porusil.
Zdravim
Jiri Foldyna
ADMIN: OCR & Oskar gate
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 14.4.2005 09:38:20
Puvodni zprava ze dne 13.4.2005:
> mohl by nekdo pomoci s velkym problemem jak automaticky s lepsim
> vysledkem nez sance 50% lze rozpoznat ciselny kod na oskarove brane
> (tedy dostat jej pomoci OCR z toho obrazku)
To je tam proto, abys to nedelal. Takze je to nelegalni a v teto
konferenci to nema co delat. Precti si pravidla a ber to jako durazne
napomenuti.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
OCR & Oskar gate
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 14.4.2005 09:34:16
No jestli chces programove posilat smsky z jejich brany, tak se nejprve
ujisti, zda je to legalni. Prekvapilo by me kdyby si tam dali tu ochranu
kodem v obrazku a soucasne s tim nezakazali to, co chces pravdepodobne
delat...
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Vlastimil Burian
> Sent: Wednesday, April 13, 2005 8:57 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: OCR & Oskar gate
>
>
> mohl by nekdo pomoci s velkym problemem jak automaticky s lepsim
> vysledkem
> nez sance 50% lze rozpoznat ciselny kod na oskarove brane (tedy
> dostat jej
> pomoci OCR z toho obrazku)
>
>
pad v aplikaci.. - synapse
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 14.4.2005 07:36:05
david.kopecek(zv)hacktrack.com dne 13 Apr 2005 v 20:43:
> v hlavnim HTTPserver vlaknu mam constucor create udelany tak ze na
> konci kodu jsou
>
> FreeOnTerminate := false;
> inherited create(false);
>
> a v samontem vlaknu pripojeneho klienta v constructoru create
> obsahuje na konci
>
> FreeOnTerminate:=true;
> inherited create(false);
Ahoj,
nesledoval jsem to od zacatku - FreeOnTerminate je vlastnost toho objektu, v jehoz konstruktoru se
"FreeOnTerminate:=true;" vyskytuje? Pokud ano, nemelo by se nejprv volat inherited create... a pak
teprve dat to prirazeni?
Karel Rys
synapse a chat
[*] david.kopecek(zv)hacktrack(tec)com - 13.4.2005 22:49:26
Zdravim
zajimlao by me jakym spusobem by jste realiozvali chat ve stylu ICQ
pomoci synapse komponent ?
THX david
OCR & Oskar gate
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 13.4.2005 20:57:19
mohl by nekdo pomoci s velkym problemem jak automaticky s lepsim vysledkem
nez sance 50% lze rozpoznat ciselny kod na oskarove brane (tedy dostat jej
pomoci OCR z toho obrazku) pad v aplikaci.. - synapse
[*] david.kopecek(zv)hacktrack(tec)com - 13.4.2005 20:43:17
Cau
>> pro jednu nasi testovaci aplikaci jsem pouzil demo HTTP serveru z
>> balicku synapse.. a obcas se mi stane ze se objevi chyba "The handle
>> is invalid (6)" jenze nevim proc. kompletni tracker exception nad
>> danym projektem mi cas od casu vyhodi tohle
LG> Takovouhle chybu dostavam nahodne pokud poustim aplikaci z Delphi5 ci
LG> Delphi 4 (uz si nepamatuji presne ktera verze to byla...). Pokud ji
LG> pustim samostatne mimo delphi, tak se mi tahle chyba nikdy
LG> neobjevila.
no taky se mi to stavalo dkyz jsem to spoustel .. jenze vetisnu tech
aplikaci musism spoustet rovnou z disku a ne z Delphi napriklad kvuli
kritickym sekcim ktere casto vyvolaji exception..
LG> Abych byl presnejsi, tato chyba se mi tam objevovala lhostejno na
LG> tom, jestli v te apliakci byla ci nebyla Synapse.
ano neni to primo synapsi ale vsiml jsem si ze by za to mohlo tohle:
v hlavnim HTTPserver vlaknu mam constucor create udelany tak ze na konci kodu
jsou
FreeOnTerminate := false;
inherited create(false);
a v samontem vlaknu pripojeneho klienta v constructoru create obsahuje na konci
FreeOnTerminate:=true;
inherited create(false);
pouze v tomhle se muj kod drivejsi lisil.. Synapse zustavala...
LG> Stejne tak se mi ta chyba nikdy neobjevila na D3, ani na D7. Takze co
LG> mas za Delphi? neni to podobny pripad? Pak je to proste chyba v
LG> delphi a ne v tve aplikaci. ;-)
Mam D7 a asi je budu mit na vzdy ... :)
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
Delka MP3.
[*] Centrum <e_ddt(zv)centrum(tec)cz> - 13.4.2005 18:23:07
Zdravim vsechny.
Mel bych jeden dotaz. Nevite nahodou nekdo jak zjistit z MP3 souboru jeho
velikost? Myslim tim minutaz.
Diky moc.
DDT
pad v aplikaci.. - synapse
[*] Petr Vones <konference(zv)petrvones(tec)net> - 13.4.2005 18:01:05
From: <david.kopecek(zv)hacktrack.com>
> pro jednu nasi testovaci aplikaci jsem pouzil demo HTTP serveru z
> balicku synapse.. a obcas se mi stane ze se objevi chyba "The handle
> is invalid (6)" jenze nevim proc. kompletni tracker exception nad
Nevolas nahodou metody TThread.Suspend nebo TThread.Resume ?
Petr Vones
IB/FB - ostraneni duplicitnich zaznamu
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 13.4.2005 17:47:04
Podivej se do dokumentace na prikaz FOR.
FOR SELECT ... INTO DO BEGIN
END
Nedavno to tady probehlo.
Slavek
> Mam proceduru a vni uz chci vytvorit jen tu samotnou smycku
> (prokletou): begin
> while ((select Max(t1.id)
> from table t1
> where t1.AA is not NULL
> group by t1.cas, t1.AA, t1.idU, t1.NN
> having count(t1.cas)>1) is not NULL) do
> begin
> end
>
> suspend;
> end
Kousek kodu:
FOR SELECT id,pOrder FROM ucl_header WHERE pOrder<:poH AND pOrder>=:poD
ORDER BY pOrder DESC INTO :id,:po DO BEGIN
IF(id<>DestHeader OR Alignment=1) THEN BEGIN
UPDATE ucl_header SET pOrder=:poL, row_version=row_version+1
WHERE id=:id;
poL=po;
END
END
Ing. Slavomir Skopalik
Jednatel spolecnosti
Elekt Labs s.r.o.
Chaloupky 158
783 72 Velky Tynec
Czech Republic
--------------------------------------------
Mobil: +420 724 207 851
icq:199 118 333
e-mail:skopalik(zv)elektlabs(tec)cz
http://www.elektlabs(tec)cz
IB/FB - ostraneni duplicitnich zaznamu
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 13.4.2005 17:33:03
Tak jsem se rozhodl pro tu ulozenou proceduru.
Mam opet problem. Nejak se nemuzu dobrat syntaxe k IB/FB v ulozenych procedurach a vypada to, ze to neni shodne s MS SQL.
Mam napsan ten cyklus, ktery mi smaze ty duplicitni ID. Jenomze se muze stat, ze tech duplicitich zaznamu muze byt vic jak 2 -> po jednom pruchodu procedurou stale zustavaji v DB duplicity.
Tak jsem chtel udelat smycku, ale nejsem schopen to rozchodit - stale mi IBExpert hlasi tohle:
"Column does not belong to referenced table."
"SQL error code = -206"
Mam proceduru a vni uz chci vytvorit jen tu samotnou smycku (prokletou):
begin
while ((select Max(t1.id)
from table t1
where t1.AA is not NULL
group by t1.cas, t1.AA, t1.idU, t1.NN
having count(t1.cas)>1) is not NULL) do
begin
end
suspend;
end
Jen podotykam, ze kdyz ten select vythnu do SQL editoru, tak probehne bez jakychkoli problemu...
Tohle nechodi - uz jsem "na prasky"
Diky za silne nakopnuti ;o)
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP2; FB 1.5.1
programator amater
pad v aplikaci.. - synapse
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 13.4.2005 15:46:55
> pro jednu nasi testovaci aplikaci jsem pouzil demo HTTP serveru z
> balicku synapse.. a obcas se mi stane ze se objevi chyba "The handle
> is invalid (6)" jenze nevim proc. kompletni tracker exception nad
> danym projektem mi cas od casu vyhodi tohle
Takovouhle chybu dostavam nahodne pokud poustim aplikaci z Delphi5 ci
Delphi 4 (uz si nepamatuji presne ktera verze to byla...). Pokud ji
pustim samostatne mimo delphi, tak se mi tahle chyba nikdy
neobjevila.
Abych byl presnejsi, tato chyba se mi tam objevovala lhostejno na
tom, jestli v te apliakci byla ci nebyla Synapse.
Stejne tak se mi ta chyba nikdy neobjevila na D3, ani na D7. Takze co
mas za Delphi? neni to podobny pripad? Pak je to proste chyba v
delphi a ne v tve aplikaci. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.pad v aplikaci.. - synapse
[*] david.kopecek(zv)hacktrack(tec)com - 13.4.2005 15:06:52
Zdravim konferenci
pro jednu nasi testovaci aplikaci jsem pouzil demo HTTP serveru z
balicku synapse.. a obcas se mi stane ze se objevi chyba "The handle
is invalid (6)" jenze nevim proc. kompletni tracker exception nad
danym projektem mi cas od casu vyhodi tohle
Exception EThread: Thread Error: The handle is invalid (6)
Exception occured at $00419FF0 (Module "Classes", Procedure "TThread.CheckThreadError", Unit "", Line 0)
Exception info: OffsetFromProcName=58, OffsetFromLineNumber=00
Except frame-dump: Frame at $00DDFEA4 (type: efkFinally)
Code at $00419FFD
Module "Classes", Procedure "TThread.CheckThreadError", Unit "", Line 0
Frame at $00DDFEF0 (type: efkAnyException, handles exception)
Handler at $00403622
Module "System", Procedure "(zv)ClassCreate", Unit "", Line 0
Frame at $00DDFF54 (type: efkFinally)
Code at $00471733
Module "UnitServer", Procedure "THTTPServer.Execute", Unit "UnitServer.pas", Line 2344
Frame at $00DDFF78 (type: efkAnyException, handles exception)
Handler at $00419DF2
Module "Classes", Procedure "ThreadProc", Unit "", Line 0
Frame at $00DDFF84 (type: efkFinally)
Code at $00419E0F
Module "Classes", Procedure "ThreadProc", Unit "", Line 0
Frame at $00DDFFA8 (type: efkUnknown)
Code at $00DDFFAC
Module "", Procedure "", Unit "", Line 0
drive jsem do neceho podobneho implementoval Synapse blocksock taktez
a nedelalo to.. rozdil mezi temi dvemi aplikacemi v podstate neni...
thx David
IB/FB - ostraneni duplicitnich zaznamu
[*] BRCKO Peter <peter.brcko(zv)assetsoft.sk> - 13.4.2005 14:28:49
> select MAX(id) from table
> where AA is not NULL
> group by cas, AA, idU, NN
> having count(cas)>1
> order by 1 desc
> to probehne docela bleskove a z cca 180.000 zaznamu vyhodi 1048 id, ktere bych chtel smazat.
> Kdyz ale napisu:
> delete from tabulka
> where id IN
> (select MAX(t1.id)
> from table t1
> where t1.AA is not NULL
> group by t1.cas, t1.AA, t1.idU, t1.NN
> having count(t1.cas)>1
> order by 1 desc)
> Tak to bezelo uz cca 40 min a nic, tak jsem to natvrdo sestrelil. Muzete mi, prosim, poradit kde delam botu?
Prvy nastrel :
0. Dufam, ze ID je PK alebo aspon indexovana kolona
1. Myslim, ze okrem toho, ze tato konstrukcia ( IN ) je pomala aj na ORACLE, zdrziava aj zbytocny "order by 1 desc"
2. Budes to musiet robit na viac prechodov, pokial prvy select nevrati prazdnu mnozinu
3. Pokial je moznost vytvorit docastnu tabulku, tak jednoduche riesenie NAPR. :
creaet table zmaz (ID ???);
create index i_zmaz on zmaz(id);
WHILE existuje duplicita
insert into zmaz select max(id) from table ....
delete from table a where exists (select 1 from zmaz b where a.id = b.id);
delete from zmaz;
END;
alebo zoptimalizovat naplnenie tabulky zmaz a vymazat duplicitne zaznamy naraz.
PBR
IB/FB - ostraneni duplicitnich zaznamu
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 13.4.2005 14:16:48
> select MAX(id) ...
> to probehne docela bleskove a z cca 180.000 zaznamu vyhodi 1048
> id, ktere bych chtel smazat.
A co zase zkusit ulozenou proceduru
for select ... into id
delete from ... where id=:id
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 931 (mobil 776 347 735)
====================================IB/FB - ostraneni duplicitnich zaznamu
[*] Ing. Jiri Sokol <js-delphi(zv)email(tec)cz> - 13.4.2005 13:32:45
Ahoj vsem!
Ja vim, ze uz se to tu resilo - do archivu jsem koukal, ale stejne jsem to nakonec nedal a tak si dovoluji pozadat o pomoc s resenim meho problemu.
Duplicity zjistim takhle:
select MAX(id)
from table
where AA is not NULL
group by cas, AA, idU, NN
having count(cas)>1
order by 1 desc
to probehne docela bleskove a z cca 180.000 zaznamu vyhodi 1048 id, ktere bych chtel smazat.
Kdyz ale napisu:
delete from tabulka
where id IN
(select MAX(t1.id)
from table t1
where t1.AA is not NULL
group by t1.cas, t1.AA, t1.idU, t1.NN
having count(t1.cas)>1
order by 1 desc)
Tak to bezelo uz cca 40 min a nic, tak jsem to natvrdo sestrelil. Muzete mi, prosim, poradit kde delam botu?
Potreboval bych to napsat jako jeden dotaz... a myslim, ze FB neumi tmpTable...
Jde to vubec takhle vyresit?
Diky predem vsem...
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP2; FB 1.5.2
programator amater
Teechart-menitelny popis x
[*] Ing. Josef Staufcik <j.staufcik(zv)msp.mesit(tec)cz> - 13.4.2005 12:32:40
Dobry den.
Pouzivam ke grafickemu zobrazeni dat Teechart. Data zobrazuji v jednotlivych
seriich s prislusnym popisem na horiz. a vert. osach. Pokud mam aktivnich
soucasne nekolik serii grafu, je popis na Xove ose odpovidajici serii s
nejnizsim poradim. Potreboval bych ale mit moznost prepinat popis na ose X
pro ruzne aktivni serie. Tedy kdyz mam v serii 0 nactenou rychlost a popis
osy nezadam, pak zadam do dalsich serii pri nulovych hodnotach ruzne popisy
pro zobrazeni na ose X.
for i:=1 to j do
begin
Chart1.Series[0].AddY(rychlost[i]);
Chart1.Series[1].AddY(0,cas[i]');
Chart1.Series[2].AddY(0,draha[i]');
Chart1.Series[3].AddY(0,popis[i]');
end;
Jak je mohu pak prepinat? Vedel by mi prosim nekdo poradit jak v
nasledujicim priklade postupne prepinat aktivni popis na ose x pri stale
aktivni serii 0, tedy zobrazeni rychlosti v case, draze, popisech..? Jak
dostat pro jednu krivku grafu na osu x postupne popis serie 1, 2, 3.?
Nouzovym resenim je
for i:=1 to j do
begin
Chart1.Series[0].AddY(rychlost,cas[i]);
Chart1.Series[1].AddY(rychlost,draha[i]');
Chart1.Series[2].AddY(rychlost,popis[i]');
end;
a pak prepinat aktivni jen jednu serii. To se mi ale nelibi, protoze v
slozitejsich pripadech , kdy chci v case, draze, popisech. zobrazovat nejen
rychlost,ale i dalsi namerene hodnoty, to pak pocet serii v Tchartu narusta.
Dekuji. Pepa
Jpeg z databaze ve Freereportu
[*] Jan Diblik <diblik(zv)gmail(tec)com> - 13.4.2005 11:22:35
Dobry den,
daji se ve Freereportu zobrazovat Jpeg obrazky z blobu v databazi? BMP
se zobrazuji korektne, ale kdyz je v blobu Jpeg, objevi se pri
generovani sestavy chyba
An error occured during calculating
[Dataset."OBRAZEK"]
Report: R
Band: Subdetail data
a zbytek sestavy se nevygeneruje. Podporu Jpeg ve Freereportu upravou
souboru FR.inc pred instalaci jsem nastavil. Jpeg primo vlozeny do
sestavy se ukazuje korektne.
Pouzivam FreeReport v2.33, Delphi 6 Professional Update Pack 2, IBX
6.08, Firebird 1.5, Windows 2000 Professional
Jan Diblik
zakazanie vymazania zaznamu
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 13.4.2005 10:54:33
> Ako riesite zakazanie vymazania zaznamu, ked ho ma iny uzivatel otvoreny
na
> editaciu a niekto na inom PC sa "rozhodne" zaznam vymazat?
Podle charakteru aplikace a pravdepodobnosti konfliktu muzes pouzit treba
a)neresit, pripadne dojde k chybe ulozeni zmeneneho zaznamu
b)"fyzicky"lock editovaneho zaznamu (update bez commit, nebezpeci
deadlocku, bezi transakce ktra muze zpomalit ostatni uzivatele)
c)"aplikacni" lock (commitnute oznaceni zaznamu udajem o casu, do kdy je
zaznam rezervovan pro jineho uzivatele a pro koho). Pred pokusem o editaci
nebo smazani otestujes zda ten zaznam nema nekdo "zamcen". Pokud user, ktery
takto zaznam zamkl/oznacil odpadne, nic se nedeje, protoze ten jeho zamek
proste vyprsi/stane se neplatnym.
Ja preferuji c)
MB
CompareText
[*] Jaroslav Pivonka <jpivonka(zv)centrum(tec)cz> - 13.4.2005 10:36:32
From: "Dalibor" <dalibor(zv)torola(tec)cz>
Sent: Tuesday, February 15, 2005 4:29 PM
> Ahoj, nemate nekdo funkci na vyhodnocovani textu, neco jako je
> CompareText, ale ktery by zohlednoval retezce
>
> Priklad
> Spravne C1..C10
> Spatne C1,C10,C2,C20, atd
>
> D.
Tedy pokud je to jeste aktualni...
pouzivam pro trideni adres, funguje i pro texty s vice cisly uvnitr, treba
'Praha 6, Zeyerova alej 11a'
function SmartCompare(const x,y:string):int;
var ix,iy:int; x2,y2:string;
function DoCislic(const x:string;var n:int;var za:string):string;
const num=['0'..'9'];
var i:int; // funkce vraci cast retezce az k prvni cislici,
// do N pak uklada ciselnou hodnotu (nebo 0)
// a do Za zbytek retezce (je-li tam jeste neco)
begin
i:=1;
while (i<=length(x)) and not (x[i] in num) do Inc(i);
if i>length(x) then result:=x else result:=Trim(copy(x,1,i-1));
n:=0;
while (i<=length(x)) and (x[i] in num) do begin
n:=n*10+Ord(x[i])-Ord('0');
Inc(i)
end;
if i>length(x) then za:='' else za:=trim(copy(x,i,MaxInt));
end;
begin
if x='' then result:=int(y='')-1 else if y='' then result:=1 else begin
result:=ANSIcompareText(DoCislic(x,ix,x2),DoCislic(y,iy,y2));
if result=0 then result:=ix-iy;
if result=0 then result:=SmartCompare(x2,y2);
end;
end;
type int=integer, samozrejme
Kdysi jsem mel v PL/1 i respektovani rimskych cislic, jako Wien XVI, ale to
uz bych asi nenasel...
JPi zakazanie vymazania zaznamu
[*] Robert Fujak <robof(zv)inmail.sk> - 13.4.2005 10:18:30
Zdravim Vas.
Ako riesite zakazanie vymazania zaznamu, ked ho ma iny uzivatel otvoreny na
editaciu a niekto na inom PC sa "rozhodne" zaznam vymazat?
FireBird1.5
S pozdravom
Robert Fujak FireBird 1.5.2 - po prerusenem sitovem spojeni
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 13.4.2005 09:50:28
Radek Cervinka dne 13 Apr 2005 v 8:20:
> > v aplikaci testujeme pocet pracujicich uzivatelu podle toho, kolik
> > jich je pripojeno k nasi FB databazi.
> Mohu se jen zeptat jak zjistujete ten pocet? Potreboval bych neco
> podobneho ale primo na serveru ve vlozene procedure.
Umim to jen v aplikaci - pomoci TIBDatabaseInfo.UserNames.Count, ale problem prave predstavuji
"mrtve stanice"...
Karel Rys
volanie WebService cez PageProducer
[*] Werki <delphi(zv)minv.sk> - 13.4.2005 09:26:26
Ahoj
Mam jednoduchy PageProducer ktory pouzivam v standalone CGI executable
aplikacii.
Pocas requestu by som potreboval zavolat nejaku WebService, bohuzial stale
dostanem spravu: Access Denied, hoci mam vsetko dobre nastavene. Ked
aplikaciu
testujem v delphi napr. v oncreate WebModulu, tak prebehne, ale ked sa to
spusti cez napr. explorer na lokalnom IIS, tak neprebehne a vrati tuto
exception. Vie mi niekdo poradit v com moze byt problem?
Dakujem
Werki
FireBird 1.5.2 - po prerusenem sitovem spojeni
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 13.4.2005 09:02:16
> Mohu se jen zeptat jak zjistujete ten pocet? Potreboval bych neco
> podobneho ale primo na serveru ve vlozene procedure.
No reseni by mohlo byt pomoci UDF ktera si sahne na seznam uzivatelu DB
>> Popr. neporadite jinou moznost, jak bez aplikacniho serveru zjistovat,
>> kolik uzivatelu s aplikaci
>> pracuje?
> To prave resim pro firebird, jina moznost nez to nechat na serveru asi
> neni (bez applikacniho serveru).
Tohle by se dalo resit ale pomoci takove prasarnicky jako je dead lock
zaznamu.
Vygenerovat si napriklad v nejake tabulce stejny pocet zaznamu jako je pocet
licenci. Kdyz se client potrebuje zalogovat, tak si musi zamknout nejaky
zaznam ktery, jeste neni zamknuty (treba pomoci update zaznamu a drzeni teto
zmeny v transakci). Tim by se dalo zarucit, ze pocet pripojenych uzivatelu
nepresahne pocet licenci. Pokud by bylo potreba zjistovat pocet pripojenych
uzivatelu, museji se spocitat dead locky. Ale jak jsem jiz psal, jedna se o
prasarnu ktera bude fungovat na mensich systemech.
Nejcistejsi reseni bez vlastniho AppServeru ale asi bude udelat si vlastni
manager licenci do ktereho se bude aplikace registrovat (TCP), nebo pouzit
nektere jiz existujici reseni k sitovym HW klicum.
Libor
FireBird 1.5.2 - po prerusenem sitovem spojeni
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 13.4.2005 08:20:06
Karel Rys wrote:
> Pekne odpoledne,
>
> v aplikaci testujeme pocet pracujicich uzivatelu podle toho, kolik jich je pripojeno k nasi FB
> databazi.
Mohu se jen zeptat jak zjistujete ten pocet? Potreboval bych neco
podobneho ale primo na serveru ve vlozene procedure.
> Problem je, ze obcas nekdo restartne PC natvrdo (zakopnou o vypinac apod.), pricemz FB nezjisti,
> ze stanice je uz "mrtva". Resp. to nejspise zjisti zhruba po dvou hodinach.
V knizce P.Cisare jsem neco takove zahledl, zkusim se doma podivat.
> Popr. neporadite jinou moznost, jak bez aplikacniho serveru zjistovat, kolik uzivatelu s aplikaci
> pracuje?
To prave resim pro firebird, jina moznost nez to nechat na serveru asi
neni (bez applikacniho serveru).
Radek
> Diky,
>
> Karel Rys
>
>
>
> Delphi a nastroj Obnoveni systemu
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 12.4.2005 20:53:17
12.4.2005 Petr Gregor:
> Pouzil jsem nastroj "Obnoveni systemu" z WIN XP.
> Po dokonceni obnoveni vse funguje.
> Jen bych potreboval vedet, co mi nastroj Obnoveni systemu obnovil,
> abych se priste vyvaroval stejne chyby.
> Takze strucne: Kam si nastroj "Obnoveni systemu" zapisuje provedene zmeny.
adresar System Volume Information
> Mam moznost nekde prohlednout co provadel behem obnovy?
ne. Ale normalne to funguje tak, ze obnovuje programove soubory (EXE,
DLL, ...), datove soubory necha. Ale uz jsem se setkal s tim, ze mi
(jednou) zrusil ZIPy.
Doporucuji nechat to zapnute na systemovem disku a na datovem to
vypnout.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Odstraneni diakritiky
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 12.4.2005 17:19:02
Ahoj,
neresil nekdo z Vas odstraneni diakritiky ze stringu nejak vice genericky,
nez jen pro CZ? Nejlepe tak aby to fakalo v co nejvice zemich (pominu-li mit
x konverznich tabulek).
Nevite nekdo o necem? Hledam uz nekolik desitek minut a porad nic poradneho.
--
Jiri Cincura
http://www.cincura.net/
http://ID3renamer.cincura.net/
ICQ#: 314711544
http://photo.cincura.net/
http://phorum.cincura.net/
http://x2develop.com/FireBird 1.5.2 - po prerusenem sitovem spojeni
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 12.4.2005 15:34:55
Na te MS strance co jsem posilal je odkaz i na Win2000
http://support.microsoft.com/kb/120642/EN-US/
ale tam pisou vlastne to same jen koukam ze jsem se prekoukl, jedna se o
hodnotu KeepAliveTime v:
\HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\TCPIP\Parameters
KeepAliveTime
Key: Tcpip\Parameters
Value Type: REG_DWORD - Time in milliseconds
Valid Range: 1 - 0xFFFFFFFF
Default: 7,200,000 (two hours)
Description: The parameter controls how often TCP attempts to verify that an
idle connection is still intact by sending a keep alive packet. If the
remote system is still reachable and functioning, it will acknowledge the
keep alive transmission. Keep alive packets are not sent by default. This
feature may be enabled on a connection by an application.
Pokud se nepletu zkousel jsem to i na WinXP a jelo to OK.
Libor
----- Original Message -----
From: "Karel Rys" <delphi(zv)zas-me(tec)cz>
Sent: Tuesday, April 12, 2005 3:18 PM
> No, na to jsem nasel odkaz v konfiguracni souboru, ale na strankach ms se
> pise, ze to plati pro
> Win 95 a NT...FireBird 1.5.2 - po prerusenem sitovem spojeni
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 12.4.2005 15:18:51
No, na to jsem nasel odkaz v konfiguracni souboru, ale na strankach ms se pise, ze to plati pro
Win 95 a NT...
Karel Rys
Libor Junek, Medisoft International dne 12 Apr 2005 v 15:04:
> Da se to nastavit v registrech Windows:
>
> Win95/98
> \HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\MSTCP\
> WinNT
> \HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\TCPIP\Parameters
> \
>
> KeepAliveInterval (REG_DWORD) hodnota intervalu v msec.
>
> nejake info na
> http://support.microsoft.com/default.aspx?kbid=140325
FireBird 1.5.2 - po prerusenem sitovem spojeni
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 12.4.2005 15:04:50
Da se to nastavit v registrech Windows:
Win95/98
\HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\MSTCP\
WinNT
\HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\TCPIP\Parameters\
KeepAliveInterval (REG_DWORD) hodnota intervalu v msec.
nejake info na
http://support.microsoft.com/default.aspx?kbid=140325
PS: Mam dojem ze to chce restart.
Libor
----- Original Message -----
From: "Karel Rys" <delphi(zv)zas-me(tec)cz>
Sent: Tuesday, April 12, 2005 2:56 PM
> Problem je, ze obcas nekdo restartne PC natvrdo (zakopnou o vypinac
> apod.), pricemz FB nezjisti,
> ze stanice je uz "mrtva". Resp. to nejspise zjisti zhruba po dvou
> hodinach.
>
> Da se nekde bezpecne nastavit, aby to FB zjistil drive? FireBird 1.5.2 - po prerusenem sitovem spojeni
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 12.4.2005 14:56:50
Pekne odpoledne,
v aplikaci testujeme pocet pracujicich uzivatelu podle toho, kolik jich je pripojeno k nasi FB
databazi.
Problem je, ze obcas nekdo restartne PC natvrdo (zakopnou o vypinac apod.), pricemz FB nezjisti,
ze stanice je uz "mrtva". Resp. to nejspise zjisti zhruba po dvou hodinach.
Da se nekde bezpecne nastavit, aby to FB zjistil drive? V konfiguracni souboru jsou dve volby,
ktere se toho mozna tykaji (ConnectionTimeout a DummyPacketInterval), ale zatim jsem si nerisknul
to nastavit, protoze u toho pisou "DO NOT USE THIS OPTION"...
Popr. neporadite jinou moznost, jak bez aplikacniho serveru zjistovat, kolik uzivatelu s aplikaci
pracuje?
Diky,
Karel Rys
Chybejici unita MSCommLib_TLB
[*] Kalhous <kalhous(zv)eu(tec)cz> - 12.4.2005 13:44:44
No myslim ze to zalezi na tom, k comu ta TLB patri. To by chtelo vedet a pak
proste z prislusneho exe
(tusim volbou Project - Import type library) si muzes zdrojak vycucnout.
> zdedil jsem projekt a pro preklad (Delphi 2005, Win32), mi chybi unita
> MSCommLib_TLB, idealni by byla se zdrojakem, na webu se mi nedari nic
> rozumneho najit. Nemate prosim nekdo tuto unitu?Chybejici unita MSCommLib_TLB
[*] Petr Lupinek <plupinek(zv)synthesia(tec)cz> - 12.4.2005 13:18:41
Zdravim,
zdedil jsem projekt a pro preklad (Delphi 2005, Win32), mi chybi unita
MSCommLib_TLB, idealni by byla se zdrojakem, na webu se mi nedari nic
rozumneho najit. Nemate prosim nekdo tuto unitu?
Diky.
S pozdravem
Ing. Petr Lupinek
datove komunikacni systemy
odbor Informatika
ALIACHEM a.s. o.z SYNTHESIA
tel.: 466825535
mob.: +420 736 505 512
OT: Delphi a nastroj Obnoveni systemu
[*] Petr Gregor <pgregor(zv)orsia(tec)cz> - 12.4.2005 12:46:39
Omlouvam se za OT
Mel jsem mensi problem v DELPHI 6.
Prestalo mi fungovat napojeni na ORACLE 8 databazi z DELPHI 6.
Pricemz vsak oracle klient fungoval spravne.
Pouzil jsem nastroj "Obnoveni systemu" z WIN XP.
Po dokonceni obnoveni vse funguje.
Jen bych potreboval vedet, co mi nastroj Obnoveni systemu obnovil,
abych se priste vyvaroval stejne chyby.
Takze strucne: Kam si nastroj "Obnoveni systemu" zapisuje provedene zmeny.
Mam moznost nekde prohlednout co provadel behem obnovy?
Omlouvam se za OT.
Petr Gregor
dbGrid a pozice v sloupci
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 12.4.2005 11:54:34
> potreboval bych do podminky dostat na kterem sloupci
> dbGridu mam focus...
Ahoj,
nejsem si jist, nemam spustene Delphi, ale nei to fce SelectedIndex?
David Lebeda
IdFTP1 vs. proxy
[*] Martin Kasman <martinkasman(zv)martinkasman.sk> - 12.4.2005 11:18:32
Skusal som ale stale mi to vypiseje
Syntax error. You must specify remote host(user(zv)ftphost)
Martin Kasman
-----Original Message-----
fpcmOpen neni ten spravny typ, nastav si fpcmUserSite.
S pozdravem,
Michal Soukup
IdFTP1 vs. proxy
[*] Suky <suky(zv)atlas(tec)cz> - 12.4.2005 10:30:28
MK> Pouzivam komponentu IdFTP1. Pouzival som ju, kym sme nemali zriadeny proxy
MK> server a vsetko islo v pohode. Odkedy vsak mame proxy, tak nefunguje a
MK> neviem spravne komponentu nastavit, aby fungovala.
MK> Napriklad v Total Commandery som nastavil proxy takto:
MK> Use proxy server = yes
MK> Connect method = Send command USER user(zv)hostname
MK> Host name [:PORT] = XXX.XXX.X.XX:YYYY
MK> User name = ''
MK> Password = ''
MK> Vsetko islo v pohode a pripojil som sa
MK> V IdFTP1
MK> Som to nastavil takto:
MK> Port = 21
MK> ProxySettings.ProxyType = fpcmOpen
MK> ProxySettings.Host = 'XXX.XXX.X.XX'
MK> ProxySettings.Port = 'YYYY'
MK> ProxySettings.UserName = ''
MK> ProxySettings.Password = ''
MK> A nefunguje to. Skusal som to aj vseliako inak nastavit a nijak to neslo.
MK> Este raz opakujem, ze pretym ako nebolo proxy, tak to islo OK.
MK> Vdaka za kazdu radu
MK> S?pozdravom www.MartinKasman.sk
fpcmOpen neni ten spravny typ, nastav si fpcmUserSite.
S pozdravem,
Michal Soukup
http://hobitin.blogspot.com/ (Blog Bilba Pytlika z Kraje)
IdFTP1 vs. proxy
[*] Martin Kasman <martinkasman(zv)martinkasman.sk> - 12.4.2005 10:00:26
Pouzivam komponentu IdFTP1. Pouzival som ju, kym sme nemali zriadeny proxy
server a vsetko islo v pohode. Odkedy vsak mame proxy, tak nefunguje a
neviem spravne komponentu nastavit, aby fungovala.
Napriklad v Total Commandery som nastavil proxy takto:
Use proxy server = yes
Connect method = Send command USER user(zv)hostname
Host name [:PORT] = XXX.XXX.X.XX:YYYY
User name = ''
Password = ''
Vsetko islo v pohode a pripojil som sa
V IdFTP1
Som to nastavil takto:
Port = 21
ProxySettings.ProxyType = fpcmOpen
ProxySettings.Host = 'XXX.XXX.X.XX'
ProxySettings.Port = 'YYYY'
ProxySettings.UserName = ''
ProxySettings.Password = ''
A nefunguje to. Skusal som to aj vseliako inak nastavit a nijak to neslo.
Este raz opakujem, ze pretym ako nebolo proxy, tak to islo OK.
Vdaka za kazdu radu
S?pozdravom www.MartinKasman.sk
Filtrovani zaznamu z SQL a promenna
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 12.4.2005 09:50:24
> Pak je potreba na prislusnem miste v programu pred otevrenim DataSetu
> nastavit ty parametry:
> with DataSet.Parameters
> do begin
> ParamValues['Param1'] := Promenna1;
> ParamValues['Param2'] := Promenna2;
> ParamValues['Param3'] := Promenna3;
> atd;
> end;
> Pak je potreba otevrit ten DataSet pomoci DataSet.Open
> V pripade, ze potrebujes nejaky parametr programove zmenit, tak je potreba :
> - DataSet zase zavrit pomoci DataSet.Close
> - zmenit prislusny parametr nebo parametry
> - DataSet zase otevrit
> Snad to takto bude stacit. Psal jsem to z hlavy, tak doufam, ze jsem se
> nekde nesekl.
> S pozdravem
> Ladislav Stary
Je to skvele. Moc mi to pomohlo. Ale jeste by mne zajimalo, jak mohu v
SELECTu vytahnout data napr. ze SloupceA, kde je obsah A a obsah B.
Petr mailto:petr.cafourek.d7(zv)seznam(tec)cz
Zavreni formulare ve FormShow
[*] Tomas Bihary <delphi(zv)wige-mic(tec)cz> - 12.4.2005 09:44:23
S oblibou pouzivam scenar s metodou Execute, ktera provede vse nutne
v souvislosti se zobrazenim formulare. K rozhodnuti o zobrazeni dojde
jeste pred samotnym zobrazenim, napriklad:
function TMyForm.Execute: ModalResult;
begin
if (AllowShowing) then
Result := ShowModal
else
Result := mrNone;
end;
function TMyForm.AllowShowing: Boolean;
begin
Result := True;
end;
Tomas
> -----Original Message-----
> Ahoj,
>
> vim ze uz to tady nekdy bylo, ale nemuzu to najit. Muzete me
> nekdo nasmerovat, kterak zavrit formular pokud ve FormShow
> rozhodnu, ze se nema zobrazit? Nejlepe tak, aby na obrazovce
> vubec neprobliknul.Zavreni formulare ve FormShow
[*] likeapear <likeapear(zv)centrum(tec)cz> - 12.4.2005 09:24:22
A jakto, ze se rohodujes az ve FormShow?
{likeapear}
----- Original Message -----
From: <delphak(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, April 12, 2005 8:42 AM
Subject: Zavreni formulare ve FormShow
| Ahoj,
|
| vim ze uz to tady nekdy bylo, ale nemuzu to najit. Muzete me nekdo nasmerovat, kterak zavrit formular pokud ve FormShow rozhodnu, ze se nema zobrazit? Nejlepe tak, aby na obrazovce vubec neprobliknul.
|
| Diky!
|
|
|Zavreni formulare ve FormShow
[*] Krysl, Tomas <tomas.krysl(zv)cherry.de> - 12.4.2005 09:08:20
Ve FormShow je to pozde. Nejlip bud nevytvaret nebo nezobrazovat (nevolat
Show, Showmodal). Je-li to mainform tak vubec nic nevytvaret v dpr.
Tk.
> nekdo nasmerovat, kterak zavrit formular pokud ve FormShow
> rozhodnu, ze se nema zobrazit? Nejlepe tak, aby na obrazovce
> vubec neprobliknul.
Zavreni formulare ve FormShow
[*] Ales <konference(zv)vasicek.biz> - 12.4.2005 08:54:19
PostMessage(Handle, WM_CLOSE, 0, 0);
Ales
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of delphak(zv)centrum(tec)cz
>
> vim ze uz to tady nekdy bylo, ale nemuzu to najit. Muzete me
> nekdo nasmerovat, kterak zavrit formular pokud ve FormShow
> rozhodnu, ze se nema zobrazit? Nejlepe tak, aby na obrazovce
> vubec neprobliknul.Zavreni formulare ve FormShow
[*] delphak(zv)centrum(tec)cz - 12.4.2005 08:42:18
Ahoj,
vim ze uz to tady nekdy bylo, ale nemuzu to najit. Muzete me nekdo nasmerovat, kterak zavrit formular pokud ve FormShow rozhodnu, ze se nema zobrazit? Nejlepe tak, aby na obrazovce vubec neprobliknul.
Diky!
Firebird kodovani ISO8859_2 do WIN1250
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 12.4.2005 08:22:12
Ahoj,
pokud mas data skutecne v ISO8859_2 a mas toto kodovani nastavene pro
pripojeni k databazi, pak to musi fungovat. Uspesne to pouzivam k
importu dat v kodovani ISO-Latin-2:
..........
case cbCestina.ItemIndex of
0: Cestina:='ISO8859_2';
1: Cestina:='WIN1250';
else
Application.MessageBox(PChar('Nastavte cestinu!'),
'CHYBA', mb_applmodal+mb_iconerror+mb_ok+mb_defbutton1);
EXIT;
end;
Screen.Cursor:=crHourGlass;
if IBDatabase1.Params.Values['lc_ctype']<>Cestina then
begin
if IBDatabase1.Connected then IBDatabase1.Close;
IBDatabase1.Params.Values['lc_ctype']:=Cestina;
end;
..........
Peca
TJvDBGrid a ukrutne pomale zobrazeni dat z MDB
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 12.4.2005 08:16:11
Zdravicko.
Mam MDB databazi s nekolika tabulkami. Pri zobrazeni jedne z nich do
JvDBGridu se stane to, ze nez se vubec neco objevi, trva to cca 30 sec.
Tabulka ma kolem 60 000 zaznamu. Zkousel jsem ruzne gridy ale chova se to
stejne. Je to zpusobeno tim mnozstvim dat v MDB? Pokud se data do gridu uz
dostanou, posun na dalsi radek trva taky cca 30 sec. U normalniho DBF
souboru behajicim nad databazi Apollo(alternativa bez BDE) se vse zobrazi
prakticky okamzite. Nevite co s tim? Je na tom tak spatne MDB soubor nebo
nekde delam chybu? V Grid1DrawColumnCell sice provadim nejakou akci ale ta
na to nema vliv. Pracuji s KaDao komponentami.
data pripojuji takto
GridDS.DataSet:=MojeTable;
Grid1.DataSource:=GridDS;
FloatCaptionPanel1.Caption:=IntToStr(MojeTable.RecordCount);
D7pro, WXP.
Zapletal Martin dbGrid a pozice v sloupci
[*] Lada <lada.xt(zv)volny(tec)cz> - 12.4.2005 03:13:30
Zdravim vsechny,
opet zacatecnicka.. castecnou omluvou mi budiz hodiny pokusu..
potreboval bych do podminky dostat na kterem sloupci dbGridu mam focus...
Moc dekuju za pripadnou pomoc,
Lada
W2k D6 FB1.5
Filtrovani zaznamu z SQL a promenna
[*] Ladislav Stary <stary(zv)ekodat(tec)cz> - 11.4.2005 18:54:56
>Omlouvam se za tak hloupy dotaz, ale jsem zacatecnik.
>A jak bych mohl timto zpusobem vyfiltrovat data podle vice sloupcu, ci
>hodnot?
>
> Petr mailto:petr.cafourek.d7(zv)seznam(tec)cz
>
>
>
Takze zkusim to vzit trochu podrobneji.
Dejme tomu ze mas na formulari komponentu DataSet typu TADODataSet.
Do jeji vlastnosti CommandText napises prislusny select:
select * from Tabulka
where SloupecA = :Param1 and
SloupecB = :Param2 and
SloupecC = :Param3
atd
Pak je potreba na prislusnem miste v programu pred otevrenim DataSetu
nastavit ty parametry:
with DataSet.Parameters
do begin
ParamValues['Param1'] := Promenna1;
ParamValues['Param2'] := Promenna2;
ParamValues['Param3'] := Promenna3;
atd;
end;
Pak je potreba otevrit ten DataSet pomoci DataSet.Open
V pripade, ze potrebujes nejaky parametr programove zmenit, tak je potreba :
- DataSet zase zavrit pomoci DataSet.Close
- zmenit prislusny parametr nebo parametry
- DataSet zase otevrit
Snad to takto bude stacit. Psal jsem to z hlavy, tak doufam, ze jsem se
nekde nesekl.
S pozdravem
Ladislav Stary
Mierne OT: Nahrada za VSS
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 11.4.2005 17:32:50
Pred tydnem jsme presli z VSS na Subversion.
http://subversion.tigris.org/
Je to kratka doba, ale zatim prevazuji plusy. Subversion je
modernejsi nahrada CVS, podporuje atomicke commity (zmeny ve vice
souborech v ramci jedne revize), vzdaleny vyvoj, pristup pres TCP
bud nativni nebo https:// (jako modul Apache). Bohuzel uplny prevod
historie zmen z VSS, kterych mame pozehnane od roku 1997(?), se nam
nepodaril -- hlavne kvuli tomu ze VSS umoznuje nekonzistence typu
permanentni mazani, takze prevodni program mel fatalni problemy se
ziskanim historie.
Pokud bude zajem, muzu sem za cas prispet se zkusenostmi.
Martin Schayna
www.aktis(tec)cz
mstevlik(zv)gamo.sk wrote:
> Hi all,
> Chcel by som sa vas opytat na vase skusenosti s CVS systemami na spravu a
> verzovania zdrojakov
> Doteraz sme vo firme pouzivali Visual Source Safe od MS, ale vadi mi na
> nom ze nema http podporu, t.j. ze sa nan neviem dostat napr zdomu
> Skusal SourceOffSite, ale ten nevedel preniest vacsie binarne subory (uz
> mal problem pri prenose 1MB doc suboru :( )
> Preto sa vas pytam ake mate skusenosti a co by ste mi poradili aby to malo
> minimalne tie fcie co VSS (verzovanie, porovnavanie mojej lokalnej verzie
> a verzie na CVS serveri, check out, check in ...)
> Resp. ak mi viete poradit nejaku inu http nadstavbu nad VSS tak som tiez
> za
Firebird kodovani ISO8859_2 do WIN1250
[*] jancarik <jancarik(zv)hame(tec)cz> - 11.4.2005 16:38:46
Zdar,
komponenty IB kodovani ISO8859_2 vubec neznaji a proto ho nezobrazuji
spravne. V nastaveni character set u TIBDatabase lze nastavit lc_ctype
na ISO8859_1.
Jedine, co jsem nasel s ISO8859_2, byly komponenty pro FB.
S.Jancarik
pilifs napsal(a):
>Zdravim ve spolek,
>mam na webu normalne fungujici aplikaci s FB 1.5 napsanou v PHP.
>Ted jsem si udelal nejakou rozsirujici utilitku v Delphi pro import dat.
>Problem mam v tom, ze se mi spatne prekodovavaji retezce. Nektera diakritika
>je pokazena, pritom v connection mam ISO8859_2.
>Kde bych tak mohl mit chybu?
>
>Pouzivam standardni Interbase komponenty z D7.
>
>L. Filip
>
Odeslani RELDP pres portal verejne spravy
[*] Pavel Gazda <pavel_gazda(zv)datasw(tec)cz> - 11.4.2005 12:40:29
Zdravim vsechny
Chci vytvorit funkci do DLL knihovny k odeslani udaju z mezd.
Momentalne se snazim prokousat informacemi, ale ne zcela se v tom orientuji.
Mam spoustu (asi i hloupych) dotazu, nevim jak zacit a pritom vim, ze jsou
zde lide, kteri jiz toto zvladli.
Najde se nekdo ochotny mi radit s jednotlivymi kroky ?
Rad bych pouzil Synapsi a CapiCom.
Diky
Pavel
Potize s UnhookWindowsHookEx
[*] RNDr. Milan Vorisek <vorisek(zv)igtt(tec)cz> - 11.4.2005 12:26:28
Mam systemovy hook na WH_CALLWNDPROC (WH_CALLWNDPROCRET) v DLL.
Pracuje tak , jak ma, ale kdyz dam UnhookWindowsHookEx tak mi to shodi
nektere nebo vsechny aplikace v systemu bez varovani.
V CallWndProc jen indikuji pocet pristupu a popripade volam CallNextHookEx.
Pokud stejny kod aplikuji na WH_KEYBOARD nebo WH_MOUSE
nebo vyse zminene hookuji jen pro thread,
probehne vsechno v poradku.
Nevite nekdo, kde je problem a co s tim?
Diky.
M.Vorisek