Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
chybny vysledek funkce AnsiToUtf8
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 10.10.2004 16:57:34
Zdravicko !
Pouzivam funkci AnsiToUtf8 a obcas se mi stava, ze nektere znaky jsou
kodovany spatne, napriklad znak "n s hackem" je zakodovan jako C3 B2 na
misto spravneho C5 88. Zda se mi, ze misto unicode hodnoty znaku se do utf8
prevede jen jeho ansi hodnota, ktera je u tohoto znaku F2 (cp1250).
Restartem aplikace se chyba obvykle odstrani. Aplikace, ve ktere k tomuto
jevu dochazi, je ISAPI rozsireni IIS 4.0 provozovane pod Windows NT 4.0 a
napsana je v Delphi 7. Ma nekdo tuseni cim by to mohlo byt zpusobeno ?
Dekuji
Daniel
---------------------------------------------------------------
Scanning complete: NO intelligent life form in range.
Licence GPL a uzavreny software
[*] Petr Langer <langer(zv)xdom(tec)cz> - 10.10.2004 16:53:33
Zalezi na autorovi. Bud ti to poskytne jeste pod jinou licenci (at uz free,
nebo komercni za nejakou uplatu), nebo pokud trva na GPL, tak z hlediska
"cistoty" podle mne existuje jedna jedina cesticka - prepsat ty zdrojaky po
svojem...
Petr Langer
----- Original Message -----
From: "Bronislav Klucka" <bronislav.klucka(zv)pro2-soft.com>
Subject: Licence GPL a uzavreny software
> Zdar,
> mam zdrojaky v C++ (to bych si prelozil) k dllku licencovane jako GPL,
> je nejaka moznost, jak to zamontovat do uzavreneho (a placeneho)
> software? Nejaka cesticka?
>
>
> s pozdravem
> Bronislav Klucka
Checked vice CheckBoxu do Mema
[*] Petr Cafourek <petr.cafourek.d7(zv)seznam(tec)cz> - 10.10.2004 16:23:30
D6, WinXP Pro, SP2
Zdravim vsechny,
mam takovy drobny problem, potreboval bych do Mema dostat hodnoty 0
nebo 1 z vice CheckBoxu podle toho, jestli je zaskrtly, ci nikoliv.
nevite nekdo jak na to?
S pozdravem,
Petr Cafourek
mailto:petr.cafourek.d7(zv)seznam(tec)cz
InnoSetup a PATH
[*] mstevlik(zv)gamo.sk - 10.10.2004 15:45:27
> zrovna pred chvili jsem jeden instal. soubor delal, ale moc ti
> nerozumim.
>
> Path je v (konstante - prommenne ?) {app}
> a v
> [Dirs]
> Name: {app}\Data; Components: Server
> Name: {app}\Data\Zalohy; Components: Server
>
> Pokud (OPRAVDU) myslis zmenit nastaveni default path ve Win,
> tak se obavam, ze ti vsichni budou NESMIRNE vdecni :-)
>
> Jarek Uher
Ano chcem zmenit enviroment variable Path a to tak ze chcem nakoniec
doplnit cestu do adresara mnou nainstalovanej app
Co podla mna velka zvrhlost nieje, zda sa mi to mensie zlo ako kopirovat
dllka kt. potrebujem niekam do systemovych adresarov
Ale uz to mam vyriesene cez app napisanu v delphi, kt. mi zapise cestu na
patricne miesto v registroch (este raz vdaka P.Gratzer)
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +421 905 462010
icq: 38493645
Licence GPL a uzavreny software
[*] Bronislav Klucka <bronislav.klucka(zv)pro2-soft(tec)com> - 10.10.2004 15:45:27
Zdar,
mam zdrojaky v C++ (to bych si prelozil) k dllku licencovane jako GPL,
je nejaka moznost, jak to zamontovat do uzavreneho (a placeneho)
software? Nejaka cesticka?
s pozdravem
Bronislav Klucka
----------=[ pro2-soft.com ]=----------
http://pro2-soft.com
Bronislav Klucka(zv)pro2-soft.com
+420 605 58 29 22
* webove aplikace
* software na zakazku
* skoleni PC
---------------------------------------
Opravneni procesu - castecne vyreseno
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 10.10.2004 16:07:29
Project/Options/Advanced compiler/Data alignment ?>Jak donutit Delphi aby pouzili mnou upravenou unitu AccCtrl resp. aby
>vsechny prvky recordu zarovnal na 4 byte ??? Nakopirovani do adresare
>projektu nepomaha...
Opravneni procesu - castecne vyreseno
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 10.10.2004 15:49:28
Pokud mam
{$A4}
P_TRUSTEE_A = ^_TRUSTEE_A;
{$EXTERNALSYM P_TRUSTEE_A}
_TRUSTEE_A = record
pMultipleTrustee: P_TRUSTEE_A;
MultipleTrusteeOperation: MULTIPLE_TRUSTEE_OPERATION;
TrusteeForm: TRUSTEE_FORM;
TrusteeType: TRUSTEE_TYPE;
ptstrName: PAnsiChar;
end;
{$EXTERNALSYM _TRUSTEE_A}
{$A+}
tak je porad celkova velikost vracena funkci SizeOf(_TRUSTEE_A) = 12. Pokud
pridam packed, tak je 11.
Pokud jsem doplnil nove cleny recordu tak, abych ho umele zarovnal na DWORD,
tak to chodi...
Ted zalezi co presne rozumis tim "rucne doplnil pad"... :)
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Fejfar
> Sent: Wednesday, November 10, 2004 3:43 PM
>
> Milan Tomes wrote:
>
> > Jeste jedna technicka - zruseni packed u recordu vede ke zvetseni
> > velikosti struktury na 12 tzn. celkova velikost puvodni struktury se
> > zarovna na nejvyssi blizsi nasobek 4 a to vubec neresi muj problem.
>
> Ted jsem nejak mimo - kdyz jsi rucne doplnil pad tak,
> aby kazdy clen recordu mel 4 byty, tak to by celkova velikost
> struktury mela
> byt taky na hranici 4, ne?
>
> pf
Opravneni procesu - castecne vyreseno
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 10.10.2004 15:43:27
Milan Tomes wrote:
> Jeste jedna technicka - zruseni packed u recordu vede ke zvetseni
> velikosti struktury na 12 tzn. celkova velikost puvodni struktury se
> zarovna na nejvyssi blizsi nasobek 4 a to vubec neresi muj problem.
Ted jsem nejak mimo - kdyz jsi rucne doplnil pad tak,
aby kazdy clen recordu mel 4 byty, tak to by celkova velikost struktury mela
byt taky na hranici 4, ne?
pf
Opravneni procesu - castecne vyreseno
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 10.10.2004 15:39:26
Milan Tomes wrote:
> P.S.: Nechodi mi poradne help k Delphi - jaka je syntaxe direktivy
> $ALIGN pro zarovnani na 4 byte ??? Lze to zarovnani vubec zapnout jen
> pro jedno pole ???
V helpu deklaruji scope local, ale mozna to nebude fungovat stejne jako mi v
D6 nefunguje spravne treba direktiva $Q, to budes muset vyzkouset. Tady je
vynatek z helpu:
Type Switch
Syntax {$A+}, {$A-}, {$A1}, {$A2}, {$A4}, or {$A8}
{$ALIGN ON}, {$ALIGN OFF}, {$ALIGN 1}, {$ALIGN 2}, {$ALIGN 4}, or {$ALIGN 8}
Default {$A8}
{$ALIGN 8}
Scope Local
Remarks
The $A directive controls alignment of fields in record types and class
structures.
In the {$A1} or {$A-} state, fields are never aligned. All record and class
structures are packed.
In the {$A2} state, fields in record types that are declared without the
packed modifier and fields in class structures are aligned on word
boundaries.
In the {$A4} state, fields in record types that are declared without the
packed modifier and fields in class structures are aligned on double-word
boundaries.
In the {$A8} or {$A+} state, fields in record types that are declared
without the packed modifier and fields in class structures are aligned on
quad-word boundaries.
Record type field alignment is described in the Object Pascal Language
Guide. See Record types.
Regardless of the state of the $A directive, variables and typed constants
are always aligned for optimal access. In the {$A8} state, execution will be
faster.
***
When a record type is declared in the {$A+} state (the default), and when
the declaration does not include a packed modifier, the type is an unpacked
record type, and the fields of the record are aligned for efficient access
by the CPU. The alignment is controlled by the type of each field. Every
data type has an inherent alignment, which is automatically computed by the
compiler. The alignment can be 1, 2, 4, or 8, and represents the byte
boundary that a value of the type must be stored on to provide the most
efficient access. The table below lists the alignments for all data types.
Type Alignment
Ordinal types size of the type (1, 2, 4, or 8)
Real types 2 for Real48, 4 for Single, 8 for Double and Extended
Short string types 1
Array types same as the element type of the array.
Record types the largest alignment of the fields in the record
Set types size of the type if 1, 2, or 4, otherwise 1
All other types 4
To ensure proper alignment of the fields in an unpacked record type, the
compiler inserts an unused byte before fields with an alignment of 2, and up
to three unused bytes before fields with an alignment of 4, if required.
Finally, the compiler rounds the total size of the record upward to the byte
boundary specified by the largest alignment of any of the fields.
When a record type is declared in the {$A-} state, or when the declaration
includes the packed modifier, the fields of the record are not aligned, but
are instead assigned consecutive offsets. The total size of such a packed
record is simply the size of all the fields. Because data alignment can
change, it's a good idea to pack any record structure that you intend to
write to disk or pass in memory to another module compiled using a different
version of the compiler.
Opravneni procesu - castecne vyreseno
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 10.10.2004 15:31:23
Jeste jedna technicka - zruseni packed u recordu vede ke zvetseni velikosti
struktury na 12 tzn. celkova velikost puvodni struktury se zarovna na
nejvyssi blizsi nasobek 4 a to vubec neresi muj problem.
S pozdravem
Milan Tomes
> Sent: Wednesday, November 10, 2004 3:27 PM
> To: delphi-l(zv)clexpert(tec)cz
>
> I to je moznost - spise jsem chtel nechat packed record a prinutit ho, aby
> napr. u typu MULTIPLE_TRUSTEE_OPERATION pouzil jako datovy typ
> nikoliv byte,
> ale DWORD.
>
> > [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Fejfar
> > Sent: Wednesday, November 10, 2004 3:19 PM
> >
> > Milan Tomes wrote:
> >
> > > Jak donutit Delphi aby pouzili mnou upravenou unitu AccCtrl resp. aby
> > > vsechny prvky recordu zarovnal na 4 byte ???
> >
> > Direktivou $ALIGN resp. $A, ale *nesmis* to deklarovat jako packed
> >
> > HTH, pf
>
>
>Opravneni procesu - castecne vyreseno
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 10.10.2004 15:27:23
I to je moznost - spise jsem chtel nechat packed record a prinutit ho, aby
napr. u typu MULTIPLE_TRUSTEE_OPERATION pouzil jako datovy typ nikoliv byte,
ale DWORD.
S pozdravem
Milan Tomes
P.S.: Nechodi mi poradne help k Delphi - jaka je syntaxe direktivy $ALIGN
pro zarovnani na 4 byte ??? Lze to zarovnani vubec zapnout jen pro jedno
pole ???
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Fejfar
> Sent: Wednesday, November 10, 2004 3:19 PM
>
> Milan Tomes wrote:
>
> > Jak donutit Delphi aby pouzili mnou upravenou unitu AccCtrl resp. aby
> > vsechny prvky recordu zarovnal na 4 byte ???
>
> Direktivou $ALIGN resp. $A, ale *nesmis* to deklarovat jako packed
>
> HTH, pf
TreeView a multiselect
[*] Marian Nykel <m.any(zv)centrum(tec)cz> - 10.10.2004 15:25:22
> nevite nekdo o nejake komponente s vlastnostmi jako TTreeView,
> ale s moznosti multiselectu?
Ja bych doporucil VirtualTreeView (http://www.soft-gems.net/VirtualTreeview/VT.php)
- pracuje se s ni sice uplne odlisnym zpusobem, ale dovede snad uplne vsechno...
--
mANY
Opravneni procesu - castecne vyreseno
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 10.10.2004 15:19:22
Milan Tomes wrote:
> Jak donutit Delphi aby pouzili mnou upravenou unitu AccCtrl resp. aby
> vsechny prvky recordu zarovnal na 4 byte ???
Direktivou $ALIGN resp. $A, ale *nesmis* to deklarovat jako packed
HTH, pf
Opravneni procesu - castecne vyreseno
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 10.10.2004 15:11:21
Po dalsim dni patrani jsem dospel k tomuto:
Pokud misto puvodni struktury _TRUSTEE_A (unit AccCtrl)
_TRUSTEE_A = packed record
pMultipleTrustee: P_TRUSTEE_A;
MultipleTrusteeOperation: MULTIPLE_TRUSTEE_OPERATION;
TrusteeForm: TRUSTEE_FORM;
TrusteeType: TRUSTEE_TYPE;
ptstrName: PAnsiChar;
end;
pouziji mnou upravenou strukturu
_TRUSTEE_A = packed record
pMultipleTrustee: P_TRUSTEE_A;
MultipleTrusteeOperation: MULTIPLE_TRUSTEE_OPERATION;
unused1: byte;
unused2: word;
TrusteeForm: TRUSTEE_FORM;
unused3: byte;
unused4: word;
TrusteeType: TRUSTEE_TYPE;
unused5: byte;
unused6: word;
ptstrName: PAnsiChar;
end;
tak je vse naprosto v poradku. Rozdil je pouze v tom, ze vsechny polozky
struktury maji 4 byte.
Jak donutit Delphi aby pouzili mnou upravenou unitu AccCtrl resp. aby
vsechny prvky recordu zarovnal na 4 byte ??? Nakopirovani do adresare
projektu nepomaha...
S pozdravem
Milan Tomes
InnoSetup a PATH
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 10.10.2004 14:59:20
On 10 Nov 2004 at 12:23, mstevlik(zv)gamo.sk wrote:
> Hi all,
> Viem ze je toto Delphi konferencia, ale isto sa niekto najde, kto
> pouziva InnoSetup Potrebujem do svojej instalacie dorobit i zmenu win
> premennej PATH, doplnit ju o nejaku cestu Je to mozne? Ak ano tak ako?
zrovna pred chvili jsem jeden instal. soubor delal, ale moc ti
nerozumim.
Path je v (konstante - prommenne ?) {app}
a v
[Dirs]
Name: {app}\Data; Components: Server
Name: {app}\Data\Zalohy; Components: Server
Pokud (OPRAVDU) myslis zmenit nastaveni default path ve Win,
tak se obavam, ze ti vsichni budou NESMIRNE vdecni :-)
Jarek Uher
FB Embed zaloha databazy
[*] dphi_forum(zv)proces.sk - 10.10.2004 14:45:19
Nazdar,
neviem prosim vas niekto ako by sa dala spravit zaloha databazy vo Firebird
Embed? GBAK.EXE mi funguje pokial ma nainstalovany FB ako server.
Stano
Win XP Prof, D5, FB 1.5.1.4481
TreeView a multiselect
[*] Milan Kotaska <mkotaska(zv)post(tec)cz> - 10.10.2004 14:37:18
Ahoj,
nevite nekdo o nejake komponente s vlastnostmi jako TTreeView,
ale s moznosti multiselectu?
Milan Kotaska
manual k MSDE; nakup licence na D6 profi
[*] Libor Janecek <libor.janecek(zv)cegedim(tec)com> - 10.10.2004 12:23:09
MSDE je odlehcena verze MS SQL. Stahni si demo MS SQL 2000 a pouzij Books
on-line jako DOC.
L.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of David Janko
Sent: Wednesday, November 10, 2004 11:53 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: manual k MSDE; nakup licence na D6 profi
Zdravim vsechny.
Zkousim pracovat s MSDE z Delphi, ale nikde nemuzu najit popis jeho SQL
dialektu (syntaxe SQL prikazu, build-in SQL funkci ktere podporuje, popis
typu sloupcu - pro blob se tu pouziva typ image (?)). Googlil sem a hledal
msdn na webu ms, ale (zejmena v msdn) nic takoveho nenasel, asi nechapu
logiku ms dokumentace ... Mohl by mi nekdo poslat odkaz ?
A kdyz uz sem v tom psani, lze nekde (od nekoho) koupit licenci na D6 profi
? Primo v borlandim shopu uz vedou je 7 a vyssi, ale me by D6 stacilo - a
( mozna naivne ;-) ) se domnivam ze by treba mohla byt i levnejsi na starsi
verzi ...
Diky za odpovedi
---
Best Regards,
David Janko
Projects manager
djanko(zv)infoware(tec)cz
http://www.infoware(tec)cz
+420 777 233 530
OT: InnoSetup a PATH
[*] mstevlik(zv)gamo.sk - 10.10.2004 12:23:09
Hi all,
Viem ze je toto Delphi konferencia, ale isto sa niekto najde, kto pouziva
InnoSetup
Potrebujem do svojej instalacie dorobit i zmenu win premennej PATH,
doplnit ju o nejaku cestu
Je to mozne? Ak ano tak ako?
Dakujem
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +421 905 462010
icq: 38493645
manual k MSDE; nakup licence na D6 profi
[*] Winsoft <winsoft(zv)netkosice.sk> - 10.10.2004 12:23:08
> Zkousim pracovat s MSDE z Delphi, ale nikde nemuzu najit popis jeho SQL
> dialektu (syntaxe SQL prikazu, build-in SQL funkci ktere podporuje, popis
> typu sloupcu - pro blob se tu pouziva typ image (?)). Googlil sem a hledal
> msdn na webu ms, ale (zejmena v msdn) nic takoveho nenasel, asi nechapu
> logiku ms dokumentace ... Mohl by mi nekdo poslat odkaz ?
SQL Server 2000 Books Online:
http://www.microsoft.com/sql/msde/techinfo/default.asp
IMO je to velmi dobre napisana dokumentacia
Erik
manual k MSDE; nakup licence na D6 profi
[*] Winsoft <winsoft(zv)netkosice.sk> - 10.10.2004 12:31:10
> Zkousim pracovat s MSDE z Delphi, ale nikde nemuzu najit popis jeho SQL
> dialektu (syntaxe SQL prikazu, build-in SQL funkci ktere podporuje, popis
> typu sloupcu - pro blob se tu pouziva typ image (?)). Googlil sem a hledal
> msdn na webu ms, ale (zejmena v msdn) nic takoveho nenasel, asi nechapu
> logiku ms dokumentace ... Mohl by mi nekdo poslat odkaz ?
SQL Server 2000 Books Online:
http://www.microsoft.com/sql/msde/techinfo/default.asp
IMO je to velmi dobre napisana dokumentacia
Erik
nacteni vlastniho kurzoru
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 10.10.2004 11:59:07
> > LoadCursor(MAININSTANCE, 'MY_CURSOR_1') ziskas pouze handle toho kurzoru
> > takze to prirad do Screen.Cursor.Handle ...
taxe oprava - zmylil sem se - handle sam o sobe priradit je na nic ...
pouzijte funkce
SetCursor - lokalni zmena kurzoru v dane aplikaci
SetSystemCursor - zmeni dany kurzor pro cele windows a to i po ukonceni
aplikace !
(viz WinAPI help)manual k MSDE; nakup licence na D6 profi
[*] David Janko <djanko(zv)wizards(tec)cz> - 10.10.2004 11:53:06
Zdravim vsechny.
Zkousim pracovat s MSDE z Delphi, ale nikde nemuzu najit popis jeho SQL
dialektu (syntaxe SQL prikazu, build-in SQL funkci ktere podporuje, popis
typu sloupcu - pro blob se tu pouziva typ image (?)). Googlil sem a hledal
msdn na webu ms, ale (zejmena v msdn) nic takoveho nenasel, asi nechapu
logiku ms dokumentace ... Mohl by mi nekdo poslat odkaz ?
A kdyz uz sem v tom psani, lze nekde (od nekoho) koupit licenci na D6 profi
? Primo v borlandim shopu uz vedou je 7 a vyssi, ale me by D6 stacilo - a
( mozna naivne ;-) ) se domnivam ze by treba mohla byt i levnejsi na starsi
verzi ...
Diky za odpovedi
---
Best Regards,
David Janko
Projects manager
djanko(zv)infoware(tec)cz
http://www.infoware(tec)cz
+420 777 233 530
SMTP doruovani
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 10.10.2004 10:20:59
> mam takovy OT dotazek, resp. se chci ujistit, ze si to predstavuji
> dobre. Pokud se budu snazit dorucovat emaily ne pres Relay, ale primo
> na server-y adresatu jednoduse si zjistim v DNS, kam ukazuji MX
> zaznamy a pak se na dane servery pripojim pomoci SMTP, stejne jako na
> Relay a postu odeslu.
Jo, tva predstava je spravna.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.SMTP doruovani
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.10.2004 10:20:59
DD,
On Wednesday, November 10, 2004 10:08 AM [CET], Jiri Baudys
<konference(zv)baudys.name> wrote:
> Dobry den,
> mam takovy OT dotazek, resp. se chci ujistit, ze si to predstavuji
> dobre. Pokud se budu snazit dorucovat emaily ne pres Relay, ale
primo
> na server-y adresatu jednoduse si zjistim v DNS, kam ukazuji MX
> zaznamy a pak se na dane servery pripojim pomoci SMTP, stejne jako
na
> Relay a postu odeslu.
presny zpusob vyberu ciloveho pocitace je popsan v RFC
(http://www.ietf.org/rfc/rfc2821.txt?number=2821 - sekce 5. Address
Resolution and Mail Handling)
Zdravi
Dalibor Toman
OT: SMTP doruovani
[*] Jiri Baudys <konference(zv)baudys.name> - 10.10.2004 10:08:58
Dobry den,
mam takovy OT dotazek, resp. se chci ujistit, ze si to predstavuji dobre.
Pokud se budu snazit dorucovat emaily ne pres Relay, ale primo na server-y
adresatu jednoduse si zjistim v DNS, kam ukazuji MX zaznamy a pak se na dane
servery pripojim pomoci SMTP, stejne jako na Relay a postu odeslu.
Diky
jirka
prevod WAV do MP3 ???
[*] MISHAK <gmishka(zv)seznam(tec)cz> - 10.10.2004 09:50:56
> Nemate nekdo poneti kde roste nejaka procedurka ci komponenta pro konverzi
> wav do mp3 ? Na webu jsem nasel LAME, ale tam by se melo spoustet exe a to
> nechci a ACM, ale to neni ke stazeni. Predpokladam, ze nahravat ze vstupu
> zvukovky primo do mp3 asi nepujde. Nebo ano?
je jedna komponenta jmenuje se nejak Tlamemp3, sic nevim kde je, vim ze je ale mne nejak haprovala pri startu delphi. Potrebuje lame.dllcka, ale funguje.
._00 MISHAK[17] >> http://mishak.wz(tec)cz >> gmishka(zv)seznam(tec)cz 00_.
prevod WAV do MP3 ???
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 10.10.2004 09:40:53
Nemate nekdo poneti kde roste nejaka procedurka ci komponenta pro konverzi
wav do mp3 ? Na webu jsem nasel LAME, ale tam by se melo spoustet exe a to
nechci a ACM, ale to neni ke stazeni. Predpokladam, ze nahravat ze vstupu
zvukovky primo do mp3 asi nepujde. Nebo ano?
WinXP, D5-D7 Pro
Zapletal Martin Prochazeni TMainMenu/PopuMenu
[*] Ing. Jan Dvorak <dvorak(zv)szu(tec)cz> - 10.10.2004 09:34:53
Prochazet lze takto:
for i:= 0 to ComponentCount - 1 do if (Components[i] is TMenuItem) then
begin
...
end;
Jan Dvorak
> potrebuji vedet jak prochazet Meny, tak abych ziskal kazdy
> TMenuItem. Vytvarim si svuj vlastni vzhled Menu, vse je OK,
Prochazeni TMainMenu/PopuMenu
[*] mr.guest_delphi(zv)centrum(tec)cz - 10.10.2004 09:24:52
Bry den pratele,
potrebuji vedet jak prochazet Meny, tak abych ziskal kazdy TMenuItem. Vytvarim si svuj vlastni vzhled Menu, vse je OK, ale ne a ne nakreslit obrazek pro vlastnost CHECKED a ENABLED, proto chci postupne prochazet Items, a kdyz uz zjistim ze ENABLED tak si zjistimect nebo Canvas(to jeste presne nevim, co tam najdu) a obrazek na dane misto vlozim. Takze pokud nekdo jiz neco takoveho resil prosim prosim. Klidne i to s umistovanim obrazku, ja so to upravym do podoby mne potrebne. Ale hlavne to prochazeni.
PS: Obrazek toho menu jak vypadaa kam co chci zobrazovat je zde http://vyroba-nabytku.kvalitne(tec)cz/test/menu.jpg
A jeste jedno OT:
NEjaky sikovny uzivatel mi nainstaloval do Windows 5500 Fontu, a zacal bbnout Word a jine prg. myslite ze to muze byt tim poctem, kdyz co jsem cetl mely by mit Winy max. 400pisem??? Diky
DeleteFile - jak vymazu celou slozku
[*] Marek <marek.rakowski(zv)trz(tec)cz> - 10.10.2004 08:54:50
ahoj,
pri behu programu vytvarim soubory ve slozce
extractfilepath(application.exename) +'\temp\Page' + IntToHex(PageNum, 2)+
, ktere bych chtel smazat najednou, je na to nejaka fce.
Marek
Synapse - TPingSend - vyreseno
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 9.10.2004 20:31:11
> Odpovim si sam :-)
> Bylo to v priorite procesu. Kdyz jsem ji zvedl na vysokou,
> hodnoty zacaly aspon radove odpovidat.
> Stejne je mi ale zahadou, proc to tak je,
> kdyz PING s prikazoveho radku ma prioritu NORMAL
> a muj program potrebuje ke stejnym vysledkum
> prioritu vysokou...
To proto, ze microsofti ping je naspan zcela jinou technologii.
(pouziva primo sitovy subsystem). takze ackoliv aplikace PING.EXE
bezi s normalni prioritou, vsechnu praci provadi stejne nejaka
vnitrnost sitoveho sybsystemu windows.
Aplikace, ktera implementuje PING pomoci RAW socketu, bude vzdy vice
nachylna na vytizeny pocitac. Zvlast kdyz synapse je napsana velmi
neagresivne vuci CPU. Diky tomu nejake intenzivni sitove akce
nevytizi pocitac, stejne jako u serveru s mnoha stovkami klientu je
vykon diky tomu krasne rozprostreny mezi vsechny klienty.
Bohuzel pri teto filozofii, jakmile je tvuj pocitac necim agresivne
vytizeny, odezvy Synapse se odpovidajicim zpusobem prodlouzi.
Takze chces-li opravdu presne mereni pingu, musis opravdu zvysis
prioritu.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Opravneni procesu
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 9.10.2004 20:31:11
Ani GetMem neprojde spravne. Zkousel jsem New - Dispose, GetMem/AllocMem -
FreeMem a nic. Problem nastane teprve v okamziku, kdy ten ukazatel predam
funkci BuildTrusteeWithName. Kdyz toto volani zrusim, tak je vse - vcetne
dealokace v poradku...
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Jakub Cermak
> Sent: Tuesday, November 09, 2004 8:09 PM
>
> Zkus misto pTrust := AllocMem(SizeOf(_TRUSTEE_A));
> dat GetMem (vetsinou mi FreeMem selhalo pokud se pamet nealokovala pres
> Getmem, hlasilo to invalid pointer operation). Ale je to bez zaruky
JclSimpleSendMail na WinXP SP2
[*] Docekal Radek <rdocekal(zv)csas(tec)cz> - 9.10.2004 20:25:10
Ahoj,
mam problem s volanim JclSimpleSendMail na WinXP SP2 a nainstalovanym Outlook XP (2002). Nefunguje mi jednoducha aplikace:
program sendmail;
{$APPTYPE CONSOLE}
uses
JclMapi;
begin
if ParamCount <> 3 then
begin
WriteLn('SENDMAIL Recipient Subject Body');
Exit;
end;
JclSimpleSendMail(ParamStr(1), '', ParamStr(2), ParamStr(3), '', false); end.
ktera zhavaruje a v drwtsn32.log je "Exception number: c00000fd (stack overflow)". Demo, prilozene k JCL (MapiExample.dpr) zhavaruje s chybou General MAPI failure. Tytez programy na Win2000 SP4 a Outlooku 2000 funguji bez zavad. Prekladam na D7.
Diky za kazdy napad.
S pozdravem
Radek Docekal
Opravneni procesu
[*] Jakub Cermak <cermiforum(zv)centrum(tec)cz> - 9.10.2004 20:09:09
Zkus misto pTrust := AllocMem(SizeOf(_TRUSTEE_A));
dat GetMem (vetsinou mi FreeMem selhalo pokud se pamet nealokovala pres
Getmem, hlasilo to invalid pointer operation). Ale je to bez zaruky
Jakub Cermak
ja.cermi(zv)centrum(tec)cz
Pomaly Full outer join
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 9.10.2004 20:01:08
doporucuji ti to rozdelit do dvou insertu, nebo unionu.
Prvni projde pomoci left join, druhy pak prida rozdil (to co v druhe
neni).
Slozitost toho prvniho je 2*n, toho druheho m*n.
full outer join FB neumi kulturne zpracovat a ted mne okamzite
nenapada zadna fligna.
Dalsi moznosti by bylo to udelat programova na klientovy.
Natahnout obe tabulky do pameti (setrideny)
a zpracovat to rucne.
Slavek
>
> Plan se mi po spusteni dotazu v ISQL nevypise (Plan not
> availeble) i kdyz dam set plan on.
> SQL dotaz je pravda trochu brutalni, ale tady je...
> na tabulce ordis mam unique index na sloupec EAN, v tabulce
> Optis jenom normalni index na sloupec EAN - mnoho carovych
> kodu zde totiz neni vyplneno. Doba trvani insertu je 1:43
> (minuta a 43 s), vysledkem je asi 7000 radku, slouci se tak
> 2500, zbytek se doplnuje z obou tabulek.
>
> Karel
>
> insert into disp (Skupina, ID_Zbozi, EAN, Nazev, Baleni,
> Cena, DPH, Sklad, ksVO, Ordis, Dod, PRODEJ0, PRODEJ1,
> PRODEJ2, PRODEJ3, PRODEJ4, PRODEJ5, PRODEJ6, PRODEJ7,
> PRODEJ10, PRODEJ14, PRODEJ21, PRODEJ28)
> Pomaly Full outer join
[*] Karel PeATinka <k.pecinka(zv)seznam(tec)cz> - 9.10.2004 19:21:04
> Mohl bys prosim te poslat PLAN a SQL dotaz ?
>
> Slavek
Plan se mi po spusteni dotazu v ISQL nevypise (Plan not availeble) i kdyz dam set plan on.
SQL dotaz je pravda trochu brutalni, ale tady je...
na tabulce ordis mam unique index na sloupec EAN, v tabulce Optis jenom normalni index na sloupec EAN - mnoho carovych kodu zde totiz neni vyplneno. Doba trvani insertu je 1:43 (minuta a 43 s), vysledkem je asi 7000 radku, slouci se tak 2500, zbytek se doplnuje z obou tabulek.
Karel
insert into disp (Skupina, ID_Zbozi, EAN, Nazev, Baleni, Cena, DPH, Sklad, ksVO, Ordis, Dod, PRODEJ0,
PRODEJ1, PRODEJ2, PRODEJ3, PRODEJ4, PRODEJ5, PRODEJ6, PRODEJ7, PRODEJ10, PRODEJ14, PRODEJ21, PRODEJ28)
select
CASE WHEN o.skupina is not null THEN o.skupina ELSE
z.skupina END as skupina,
CASE WHEN o.id_zbozi is not null THEN o.id_zbozi ELSE
z.id_zbozi END as id_zbozi,
CASE WHEN o.EAN is not null THEN o.EAN ELSE
z.EAN END as EAN,
CASE WHEN o.Nazev is not null THEN o.nazev ELSE
z.Nazev END as Nazev,
CASE WHEN o.Baleni is not null THEN o.baleni ELSE
z.Baleni END as Baleni,
CASE WHEN o.Cena is not null THEN o.cena ELSE
z.cena END as Cena,
CASE WHEN o.DPH is not null THEN o.DPH ELSE
z.DPH END as DPH,
z.Sklad,
o.ksvo,
CASE WHEN o.ID_ZBOZI is not null and z.ID_ZBOZI is null THEN 1 ELSE
CASE WHEN o.ID_ZBOZI is null and z.ID_ZBOZI is not null THEN 2 ELSE 3 END END as ORDIS,
CASE WHEN o.ID_ZBOZI is not null THEN '+ALY-dod;' ELSE
z.dod END as Dod,
z.PRODEJ0, z.PRODEJ1, z.PRODEJ2, z.PRODEJ3, z.PRODEJ4, z.PRODEJ5, z.PRODEJ6, z.PRODEJ7, z.PRODEJ10,
z.PRODEJ14, z.PRODEJ21, z.PRODEJ28
from Ordis o
full outer join Optis z on
o.EAN = z.EAN Delphi a posilani emailu s prilohou
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 9.10.2004 18:39:01
D(zv)ewo wrote:
> retezce. Zjistil jsem, ze tam je omezeni asi na 255 znaku. Nevite jak mu
> vysvetlit aby mi vzal delsi retezce do body ??? Nebo jak mu pres tento
> ShellExecute vnutit automaticky soubor jako prilohu ???
Tezko. :)
To bude chtit MAPI.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
Pomaly Full outer join
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 9.10.2004 18:16:59
Mohl bys prosim te poslat PLAN a SQL dotaz ?
Slavek
> >
> > Full outer join je potvora. Indexy na spojovaci pole by
> mohly pomoci,
> > ale neni to zarucene. Velikost (a typ) spojovaciho pole vliv ma,
> > protoze je typicky nutne udelat sort. Dalsi alternativou je pouzit
> > dva outer joiny, jeden levy a jeden pravy, a spojit je pres union
> > (ale ne union all !). Mohlo by byt rychlejsi nez full, ale opet bez
> > zaruky.
>
> 2x left join by nepomohlo, stejne by musel delat 3x v pripade
> dvou left joinu dokonce 4x merge
Pomaly Full outer join
[*] Pospisil Jan <j.pospisil(zv)aquasoft(tec)cz> - 9.10.2004 17:46:56
> > v aplikaci potrebuji spojit 2 tabulky na FB pomoci full outer join.
> > Operace spojeni 2 tabulek o 5000 radcich a 3000 radcich vsak trva
> > priblizne 2-3 minuty, coz je neunosne dlouho. Da se toto nejak
> > zrychlit? Ma na rychlost vliv napr. velikost pole podle ktereho se
> > spojuje?
> >
>
> Full outer join je potvora. Indexy na spojovaci pole by mohly pomoci,
> ale neni to zarucene. Velikost (a typ) spojovaciho pole vliv ma,
> protoze je typicky nutne udelat sort. Dalsi alternativou je pouzit
> dva outer joiny, jeden levy a jeden pravy, a spojit je pres union
> (ale ne union all !). Mohlo by byt rychlejsi nez full, ale opet bez
> zaruky.
2x left join by nepomohlo, stejne by musel delat 3x v pripade dvou left joinu dokonce 4x merge
Vlakna - jak na promenne, ktere potrebuji pouzivat
[*] tondrej(zv)t-online.de - 9.10.2004 17:44:56
> Myslim, ze muj dotaz je vice nez jasny. V soucasne dobe (na zaklade Vasich rad a pripominek) jsem predelal aplikaci na obsluhu VCL a jedno separatni vlakno.
> Jak muze hlavni vlakno (aplikace) a separatni vlakno pouzivat jenu tridu (jsou v ni 3 stringlisty)
> Jde to nejak? Jak?
Pristup k zdielanym premennym je potrebne synchronizovat, napriklad
pomocou critical section (TCriticalSection).
HTH
TOndrej
spravne uklizeni pameti
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 9.10.2004 17:28:55
> Zalezi na tom, jak tu pamet alokujes. Pokud napriklad
>
> var a: string;
> b: array[1..10000] of integer;
Tahle pamet se nealokuje klasicky,
ale pouze vyhradi na stacku volane funkce.
>
> a podobne, kdy je kompilator schopen urcit velikost alokovane
> pameti (u stringu to umi take), nemusis se o uvolnovani
> starat, to se provadi automaticky. Pokud ale alokujes pamet
> sam, napriklad
>
> O: array of TYourObject;
Tuto pamet uvolnuje automaticky compiler na zaklade pocitani referenci.
Vrele doporucuji se o tuto pamet nestarat.
To same plati pro stringy, ale pozor, ne pro PCHAR.
Je treba si uvedomit, ze string; a array of neco; je uplne to same !
Obecne plati, pokud nic rucne nevytvarim, tak to taky neuvolnuji.
> procedure TAllowances.ClearDataList;
> var i: integer;
> begin
> for i:= 0 to FDataList.Count - 1 do
> TClPosData(FDataList.Items[i]).Free; --- uvolneni
> jednotlivych prvku seznamu FDataList.Clear; end;
>
> ... a samotne uvolneni objektu FDataList:
>
> destructor TAllowances.Destroy;
> begin
> inherited;
> ...
> ClearDataList;
> FDataList.Free;
> ...
> end;
Zde byla pouzita nevhodna trida pro uchovani seznamu objektu.
Vhodnejsi je pouzit TObjectList.
Ten pak umi i vlozene objekty vlastnit a tudiz se postara o jejich
uvolneni.>
> Pro TStringList neni podobna konstrukce nutna, protoze Delphi
> "vedi", kolik pameti se pri praci s tim seznamem naalokovalo
> pameti, takze uvolneni je automaticke.
Tohle neni specialni pripad TStringListu, ale vsech typovyh listu.
Napriklad Tcollection, Tcomponent, ...
> No a pokud si nejsi jisty, pouzij MemProof a ten je schopen
> zjistit, jestli nekde neni neco zapomenuteho. Osvedcil se mi
> postup, kdy bezprostredne po napsani kodu alokujiciho pamet
> vzapeti pisu kod, ktery bude pamet uvolnovat.
Dobry indikator je GetHeapStatus.TotalAllocated;
Slavek
spravne uklizeni pameti
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 9.10.2004 16:56:52
Zalezi na tom, jak tu pamet alokujes. Pokud napriklad
var a: string;
b: array[1..10000] of integer;
a podobne, kdy je kompilator schopen urcit velikost alokovane pameti (u
stringu to umi take), nemusis se o uvolnovani starat, to se provadi
automaticky. Pokud ale alokujes pamet sam, napriklad
O: array of TYourObject;
O:= TYourObject.Create;
O:= GetMem(p, 20000);
O:= new(OBj)
je treba pamet uvolnit rucne (O:= nil, O.Free, FreeMem(O), Dispose(Obj) ).
Pozor ale na to, pokud tvuj objekt obsahuje dalsi objekty. Ty se musi
nejprve uvolnit (zpravidla v destruktoru, je-li k dispozici) anebo rucne,
napriklad pokud se jedna o prvky TList, viz ukazka ze skutecneho kodu:
procedure TAllowances.ClearDataList;
var i: integer;
begin
for i:= 0 to FDataList.Count - 1 do
TClPosData(FDataList.Items[i]).Free; --- uvolneni jednotlivych prvku
seznamu
FDataList.Clear;
end;
... a samotne uvolneni objektu FDataList:
destructor TAllowances.Destroy;
begin
inherited;
...
ClearDataList;
FDataList.Free;
...
end;
Pro TStringList neni podobna konstrukce nutna, protoze Delphi "vedi", kolik
pameti se pri praci s tim seznamem naalokovalo pameti, takze uvolneni je
automaticke.
No a pokud si nejsi jisty, pouzij MemProof a ten je schopen zjistit, jestli
nekde neni neco zapomenuteho. Osvedcil se mi postup, kdy bezprostredne po
napsani kodu alokujiciho pamet vzapeti pisu kod, ktery bude pamet uvolnovat.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz <http://brant.wz(tec)cz> > chtel bych par profesionalu pozadat o radu..
> jak spravne ve funkci ci procedure po sobe cistit obsazenou pamet..
>
> vim ze na tstringlist je nejlepsi free. ale co dalsi veci.. arraye of
> cosi nebo stringy kde jsem natahl cca 2 kila dat...
>
Terminal server a VPN
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 9.10.2004 16:40:51
Ahoj,
zakaznik nainstalovat na hlavni sidlo (pobocku) Terminal server a
pres VPN (256 kbit/Kbps) se pripojuje z jine pobocky.
Chtel jsem se zeptam, mate s tim nekdo zkusenosti ?
Nase aplikace je (bude) v D6, databaze FB 1.5.1 a FibPlus.
Pristi tyden to mame zacit testovat, ale rad bych vedet cemu se
radeji vyvarovat.
Dekuji za kazdou zkusenost (zajimam mne hlavne odezva na
klientech jine (pripadne jinych) pobockach.
Preji hezky den (vecer).
Jarek Uher
spravne uklizeni pameti
[*] david.kopecek(zv)hacktrack(tec)com - 9.10.2004 16:12:49
Zdravim
chtel bych par profesionalu pozadat o radu..
jak spravne ve funkci ci procedure po sobe cistit obsazenou pamet..
vim ze na tstringlist je nejlepsi free. ale co dalsi veci.. arraye of
cosi nebo stringy kde jsem natahl cca 2 kila dat...
--
S pozdravem,
david
david.kopecek(zv)hacktrack.com
co je runtime error 203
[*] david.kopecek(zv)hacktrack(tec)com - 9.10.2004 16:12:49
Zdarvim
>>> nevi nekdo prosim co je runtime error 203 a proc nastane obcas v me
>>> aplikaci ?
>>
>> napis do prikazove radky (CMD.EXE):
>>
>> NET HELPMSG 203
PF> Spis bych mu poradil, aby si otevrel help, v rejstriku zadal run-time error
PF> a pak vybral Fatal errors (zjisti, ze 203 je Heap Overflow (EOutOfMemory).
ajo .. uz jsem to taky nasel. zjistil jsem ze proces alokoval moc
pameti..
diky david
Volani funkci z dll
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.10.2004 15:36:46
On Tuesday, November 09, 2004 1:02 PM [CET], David Kraina
<dkx(zv)seznam(tec)cz> wrote:
> Dobry den,
> potreboval bych pri zavedeni knihovny dll, aby jeji hlavni vlakno
> obcas zavolalo funkci z kodu aplikace.
> Presne receno knihovna bude zachytavat zpravy, dle nichz pak zavola
> danou funkci.
>
> Ale netusim, jak se to dela (vim jen, ze to bude asi neco s tim
> stdcall). Poradite, kde hledat ?
>
1) muzes predat volanim nejake funkce z DLL do DLL pinter na nejakou
proceduru/funkci (callback model - pouziva se bezne v Win API)
2) execko muze exportovat funkce naprosto stejne jako ta knihovna -
cili knihovna muze volat funkce z materskeho exace stejne jako by je
volala z jine DLL. Jedina finta je ta, ze handle na execko se ziakava
pomoci GetModuleHandle(NIL)
Dalibor Toman
co je runtime error 203
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 9.10.2004 15:00:43
A to v Delphi nebo Borlan Pascalu? Znamena to preteceni heapu a to je v
Delphi podivne.
david.kopecek(zv)hacktrack.com napsal(a):
> Zdravim
>
> nevi nekdo prosim co je runtime error 203 a proc nastane obcas v me
> aplikaci ?
>
>
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
SQL - delka trvani
[*] Dalibor Faltynel <dalibor.faltynek(zv)orgrez(tec)cz> - 9.10.2004 14:54:43
Dobry den,
mam potize s neunosnou delkou natahovani SQL dotazu na stanici. Pouzivam
paradox a BDE a komponentu TQuery, tabulky jsou na sitovem servru, velikost
hlavni tabulky cca 1,2 MByte, velikost rekordu 1125 Byte (vratila funce
recordsize), pocet rekordu asi 1500. Po mistni siti je to asi za 4 vteriny
otevreno, na dalku pres linku 256 kbitu/s to trva asi minutu. Index nad
tabulkou je primarni longint. Ja vim, ze Pdox neni sql databaze, ale presto
bych potreboval poradit a vedet:
1. Kde se dotaz sestavuje a co vse se po siti prenasi.
2. Existuje finta, jak prenos zkratit?
Dekuji za kazdou pomoc.
Dalibor Faltynek
ORGREZ, a.s.
tel.: 541 613 312
fax: 541 613 299
E-mail: dalibor.faltynek(zv)orgrez(tec)cz
co je runtime error 203
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 9.10.2004 14:36:04
Zalesak Tomas wrote:
>> nevi nekdo prosim co je runtime error 203 a proc nastane obcas v me
>> aplikaci ?
>
> napis do prikazove radky (CMD.EXE):
>
> NET HELPMSG 203
Spis bych mu poradil, aby si otevrel help, v rejstriku zadal run-time error
a pak vybral Fatal errors (zjisti, ze 203 je Heap Overflow (EOutOfMemory).
pf
Nastaveni modemu
[*] jharman(zv)volny(tec)cz - 9.10.2004 14:46:26
Zdravim,
prosim Vas, mam problem s nastavenim modemu.
Totizto:
v nastaveni systemu nastavim nejake vlastnosti (rychlost, bity,
parita...) a potom kdyz vyvolam z aplikace dialog
"lineConfigDialog", tak ten mi ukaze neco jineho. Zas je zajimave
ze tyto vlastnosti (nastavene v aplikaci) se nekde uchovaji,
protoze pri dalsim vyvolani "lineConfigDialog" jsou tam, nehlede
nato, ze nastaveni v systemu je jine.
Potreboval bych aby byli vlastnosti modemu jen jedne. Jak nato?
Diky moc.
Jan Harman
--
A za kolik kupujete ELEKTRO Vy?
http://www.MALL(tec)cz/penezenka
Overte si pres SMS, kolik se da USETRIT!Firebird: velkost FDB nezmensena ani po sweep
[*] Slencova Miroslava <miroslava.slencova(zv)pvt(tec)cz> - 9.10.2004 14:42:06
procedure Pack(tab:TTable);
begin
try
tab.Exclusive:=true;
tab.Open;
DBiPackTable(tab.DBHandle,tab.Handle,nil,nil,true);
tab.Close;
tab.Exclusive:=false;
except
ShowMessage('Soubor '+tab.TableName+' nebyl spakovan.');
tab.Close;
end;
end;
-----Original Message-----
From: martin [mailto:matrix(zv)inmail(tec)cz]
Sent: Tuesday, November 09, 2004 1:08 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Firebird: velkost FDB nezmensena ani po sweep
Dobry den,
vytvorim jednoduchu databasu, kde je tabulka DOKUMENTY a stlpce
ID(Integer),DOC(BLOB)
V BLOBe su dokumenty.
Ak pridam nejake dokumenty a nasledne ich vymazem,
nezmensi sa FDB subor.
Potom spustim sweep a takisto sa nezmensi subor.
Ako teda vymazat "vymazane" riadky resp.bloby fyzicky?
Nieco ako "pack" nad DBF.
-- Martin D7Pro,FB1.5.1,FibPlus
Jak na napovedu
[*] wetty(zv)quick(tec)cz - 9.10.2004 14:33:47
Zdravim vsechny,
chtel bych se zeptat, jak resite napovedu.
Rad bych pouzil format CHM, ale mam nekolik otazek.
1) Opravdu je nutne mit co tema, to html stranku?
2) Opravdu je nutne volat tema takto : "napoveda.chm::/tema.htm" ?
3) Lze nejakym zpusobem vyvolat automaticke hledani dle nejakeho klicoveho slova?
Predem dik Petr
porovnani zaznamu
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 9.10.2004 14:27:42
Pokud je mas packed a nemas v nich stringy (ci jina dynamicka pole,
PCHAR, ...),
tak pomoci porovnani pameti.
Ale pokud mohu radit, tak bych spise si napsal funkci Equal a jednou
vypsal vsechny podminky,
jelikoz pak si zmenis string(20) na string a budes to velmi spatne
hledat.
Slavek
> zdravim,
> potrebuji porovnat dva zaznamy (record) a nechce se mi to
> delat polozku po polozce. muze me nekdo nasmerovat?
>
> Vit Krska
> vit.krska(zv)del(tec)cz
> 2004-11-09
>
>
>
>
> co je runtime error 203
[*] Zalesak Tomas <tomas.zalesak(zv)lcs(tec)cz> - 9.10.2004 14:11:35
> nevi nekdo prosim co je runtime error 203 a proc nastane obcas v me
> aplikaci ?
napis do prikazove radky (CMD.EXE):
NET HELPMSG 203
v anglickych Windows dostanes:
The system could not find the environment option that was entered.
Tomas Zalesak
Pomaly Full outer join
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 9.10.2004 13:59:13
Haj hou!
On 9 Nov 2004 at 13:16, Karel Pecinka wrote:
> Cau lidi,
>
> v aplikaci potrebuji spojit 2 tabulky na FB pomoci full outer join.
> Operace spojeni 2 tabulek o 5000 radcich a 3000 radcich vsak trva
> priblizne 2-3 minuty, coz je neunosne dlouho. Da se toto nejak zrychlit?
> Ma na rychlost vliv napr. velikost pole podle ktereho se spojuje?
>
> V jinem pripade jsem resil i left join a tam pomohlo zapnuti indexu na
> tu levou tabulku (z 30 sekund pred indexem to po indexu trvalo mene nez
> sekundu).
Full outer join je potvora. Indexy na spojovaci pole by mohly pomoci,
ale neni to zarucene. Velikost (a typ) spojovaciho pole vliv ma,
protoze je typicky nutne udelat sort. Dalsi alternativou je pouzit
dva outer joiny, jeden levy a jeden pravy, a spojit je pres union
(ale ne union all !). Mohlo by byt rychlejsi nez full, ale opet bez
zaruky.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Pomaly Full outer join
[*] Pospisil Jan <j.pospisil(zv)aquasoft(tec)cz> - 9.10.2004 13:53:07
> v aplikaci potrebuji spojit 2 tabulky na FB pomoci full outer
> join. Operace spojeni 2 tabulek o 5000 radcich a 3000 radcich
> vsak trva priblizne 2-3 minuty, coz je neunosne dlouho. Da se
> toto nejak zrychlit? Ma na rychlost vliv napr. velikost pole
> podle ktereho se spojuje?
>
> V jinem pripade jsem resil i left join a tam pomohlo zapnuti
> indexu na tu levou tabulku (z 30 sekund pred indexem to po
> indexu trvalo mene nez sekundu).
Ahoj,
Chces tim rict, ze tady indexy nemas? Jestli ne, tak se nediv.
Firebird: velkost FDB nezmensena ani po sweep
[*] martin <matrix(zv)inmail(tec)cz> - 9.10.2004 13:41:06
>> Ak pridam nejake dokumenty a nasledne ich vymazem,
>> nezmensi sa FDB subor.
>>
>> Potom spustim sweep a takisto sa nezmensi subor.
>>
>> Ako teda vymazat "vymazane" riadky resp.bloby fyzicky?
>> Nieco ako "pack" nad DBF.
Povodna sprava zo dna : 9. 11. 2004, od <libor.junek(zv)medisoft(tec)cz> :
LJMI> pomuze Backup/Restore
LJMI> Libor
Cez Backup/restore je to jedina cesta?
--
Martin
D7Pro,FB1.5,FibPlus
Firebird: velkost FDB nezmensena ani po sweep
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 9.10.2004 13:39:00
> Ako teda vymazat "vymazane" riadky resp.bloby fyzicky?
> Nieco ako "pack" nad DBF.
zaloha a obnoveni. btw, proc bys to delal? jakile zacnes doplnovat nova
data, db zase poroste.
Peca
Volani funkci z dll
[*] David Kraina <dkx(zv)seznam(tec)cz> - 9.10.2004 13:02:17
Dobry den,
potreboval bych pri zavedeni knihovny dll, aby jeji hlavni vlakno obcas
zavolalo funkci z kodu aplikace.
Presne receno knihovna bude zachytavat zpravy, dle nichz pak zavola danou
funkci.
Ale netusim, jak se to dela (vim jen, ze to bude asi neco s tim stdcall).
Poradite, kde hledat ?
Dik
S pozdravem
David Kraina, DKx
---------------------------
Vedouci vyvojarskeho tymu MX-3, programator
http://DKx.MX-3(tec)cz
http://www.MX-3(tec)cz
Synapse - TPingSend - vyreseno
[*] Ing. Igor Kapoun <igor.kapoun(zv)volny(tec)cz> - 9.10.2004 12:29:54
> Pouzivam TPingSend, nechavam nastaveny
> default hodnoty TimeOut a PacketSize.
> Vysledky, ktere dava tento Ping, jsou
> diametralne odlisne od prikazu PING,
> spusteneho v prikazovem radku.
> Nema nekdo napad, cim to?
Odpovim si sam :-)
Bylo to v priorite procesu. Kdyz jsem ji zvedl na vysokou,
hodnoty zacaly aspon radove odpovidat.
Stejne je mi ale zahadou, proc to tak je,
kdyz PING s prikazoveho radku ma prioritu NORMAL
a muj program potrebuje ke stejnym vysledkum
prioritu vysokou...
Igor
Firebird: velkost FDB nezmensena ani po sweep
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 9.10.2004 13:18:56
pomuze Backup/Restore
Libor
----- Original Message -----
From: "martin" <matrix(zv)inmail(tec)cz>
Sent: Tuesday, November 09, 2004 1:08 PM
> Ak pridam nejake dokumenty a nasledne ich vymazem,
> nezmensi sa FDB subor.
>
> Potom spustim sweep a takisto sa nezmensi subor.
>
> Ako teda vymazat "vymazane" riadky resp.bloby fyzicky?
> Nieco ako "pack" nad DBF.
Pomaly Full outer join
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 9.10.2004 13:16:56
Cau lidi,
v aplikaci potrebuji spojit 2 tabulky na FB pomoci full outer join.
Operace spojeni 2 tabulek o 5000 radcich a 3000 radcich vsak trva
priblizne 2-3 minuty, coz je neunosne dlouho. Da se toto nejak zrychlit?
Ma na rychlost vliv napr. velikost pole podle ktereho se spojuje?
V jinem pripade jsem resil i left join a tam pomohlo zapnuti indexu na
tu levou tabulku (z 30 sekund pred indexem to po indexu trvalo mene nez
sekundu).
Karel, D5, FB 1.5
mam problem mozno reseni nekto vi
[*] Matej Sukenik <mtssoftware(zv)orangemail.sk> - 8.10.2004 20:14:16
Mam rozne aplikacie ale niektore idu a niektore nejdu...
Problem je len na P4....
Problem je v tom ze pri spusteni programu aplikacia sa ani nenacita a ukaze
sa okno "Program provedl neplatnou operaci a bude ukoncen". Adresa je u
kazdeho programu ina.
Mam podozrenie na komponenty z projektu JEDI. Mate niektor s nimi
skusenosti?
Zdravim
-----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, November 08, 2004 3:02 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: mam problem mozno reseni nekto vi
From: "Matej Sukenik" <mtssoftware(zv)orangemail.sk>
> na novych pc kde je WindowsXP a SP2 nejde muj program spustit. Jen
> kdyz tam dam kompatibilitu Windows98. Pak ale nejde Office2003 kdyz je
> volam pres ole...
Tezko poradit kdyz neuvadis presny chybovy hlaseni.
Petr Vones
Opravneni procesu
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 8.10.2004 20:04:16
Milan Tomes wrote:
> ale i jinych napr. HKEY_LOCAL_MACHINE apod...) a take do konkretniho
> adresare na disku (typicky Program files a dalsich...)...
Nevim, jak to zjistit, ale co to zkusit a kdyztak chytit exception? Je to
trochu pokulhavajici, ale pro zacatek to muze fungovat.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; | http://www.cincura.net/
mailto:xcincura(zv)informatics.muni(tec)cz | http://photo.cincura.net/
ICQ#: 314711544 | http://phorum.cincura.net/
---
And if our times are difficult and perplexing,
so are they challenging and filled with opportunity.
-Robert F. Kennedy, 1961
FastReport - vice reportu v jednom FRF souboru
[*] jsdelphi(zv)creatix(tec)cz - 8.10.2004 18:08:08
Muzete mi nekdo poradit, jak muzu vytvorit vice verzi jednoho reportu v
ramci 1 frf souboru a teprve pred tiskem se rozhodnout, kterou verzi
pouziju? Mit jednotlive verze v ruznych souborech je pro me z jistych duvodu
problematicke.
Dekuji
Jan Skopovy
OpenService vraci chybu
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 8.10.2004 17:58:07
Jo to je presne ono, ja jsem slepon. Nazev te sluzby je
'FirebirdServerDefaultInstance' a slape to jak ma.
Diky za radu
S pozdravem
A.B.
----- Original Message -----
From: "Milan Tomes" <delphi(zv)haida(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, November 08, 2004 3:05 PM
Subject: Re: OpenService vraci chybu
> Otevri si seznam sluzeb - Control panel - Nastroje pro spravu - Sluzby.
> Najdi si prislusnou sluzbu
> Otevri detail te sluzby
> Prvni polozka na detailu - Nazev sluzby - je to co musis hledat v
> OpenService.
>
> S pozdravem
>
> Milan Tomes
>
>> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Andreas Bednarek
>> Sent: Monday, November 08, 2004 2:56 PM
>>
>> > Mam neblahy pocit, ze sluzba se jmenuje uplne jinak -
>> > InterBaseServer...
>> >
>> > S pozdravem
>> >
>> > Milan Tomes
>>
>> No to je docela podstatna vec :-) A sluzbu 'InterBaseServer'
>> dokonce najdu,
>> coz je pokrok! Nicmene jak potom rozlisim InterBase of Firebirdu? Me to v
>> mem pripade vzdy najde a hlasi stav serveru IB nikoli FB. Mam
>> tady totiz oba
>> a v pripade moji aplikace je to casty stav, ze bezi IB/FB na
>> jednom pocitaci
>> a ja bych potrebovat vzdy zjistit stav FB serveru (zda je
>> nainstalovany, zda
>> bezi).
>
> mazani souboru
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 8.10.2004 17:38:05
DD,
neznate nekdo nejaky programek ktery by umel mazane soubory
premistovat nekam do adresare a uvedl u nich kdo ho smazal ? a to vcetne
souboru smazanych po siti ?
byl by to problem naprogramovat?
diky PM
Xp SP2 WAS:Windows Sockets - nekolik otazek
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 8.10.2004 17:36:05
On Behalf Of Milan Tomes
Behalf Of delphi(zv)hon(tec)cz
> > ........
> > * MSDE, MS-SQL standard, MS-SQL Enterprise nesly nainstalovat na
> > ciste WinXP Profi SP1, SP2... ale sly nainstalovat v poradi
> SP1, MSDE,
> > SP2. [tak to udelej jak popisujes a mas klid]
>
> Dle vlastni zkusenosti - nenastal jediny problem
>
> > * Autocad 2004 nefungoval (ne neni to ta sama chyba, kterou
> popisuje MS).
> > Tu bych to upresnil, jedna se o nastavbu pro nabytkare. [koho to
> > zajima]
> > ................
Ahoj.
K tomu vsemu snad jedine:
Kazdy komu jsem doporucil provest downgrade XP na W2k mi podekoval a
vetsina podobnych hure lokalizovatelnych problemu naprosto zmizela.
Predevsim sit zacala chodit tak jak ma.
Jak vidno XP SP2 asi moc nepomohly.
Skoda, nektere veci v XP byly uzivatelsky prijemnejsi, ale za ty
problemy to IMHO nestoji.
Ludek
detekce zpracovani CM_RECREATEWND
[*] Petr Kuklik <pkuklik(zv)cerny-ps(tec)cz> - 8.10.2004 17:34:04
Dobry den,
pozna komponenta, ze prave bezi CM_RECREATEWND? A jak?
Diky Petr Kuklik
like, case insensitive, cestina
[*] Tomas Krejzek <tomas.krejzek(zv)kpsys(tec)cz> - 8.10.2004 15:49:57
Musis si udelat upper uz nad tim textem v aplikaci, tj. v C++ Builderu
hodnota1.text.UpperCase() predpokladam ze v Delphi je to to samy
Tomas
>hodnota1.text davam '%toto je treba najit%'.Takto je vysledek hledani case
>insensitive pro vsechna pismena s vyjimkou pismen s diakritikou, kde to
>zustava case sensitive. Mohl by nekdo poradit?
>
>
>
>
FreeReport a tisk RTF
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 8.10.2004 16:07:58
Zdravim vsechny,
mam sestavu na ktere mam RTF objekt a par obyc textu. Ten RTF natahuji ze
souboru takto
procedure TfrTisk2Main.frTiskGetValue(const ParName: String; var ParValue:
Variant);
var
sl: TStringList;
begin
if ParName = 'N1' then
try
sl:=TStringList.create;
sl.LoadFromFile('reText.rtf');
ParValue:=sl.text;
finally
sl.free;
end; {try}
end;
U me to chodi (Win XP SP2), ale u zakaznika (win98 SE) to vytiskne primo
zdrojak toho RTFka.
Nevi nekdo proc ?
diky
Tomas Bradle
t.bradle(zv)sanet(tec)cz
t.bradle(zv)worldonline(tec)cz
Opravneni procesu
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 8.10.2004 16:03:58
Zdravim vsechny,
mam takovy orisek - potrebuji zjistit zda ma proces opravneni pro
cteni/zapis do konkretni vetve registru (standardne HKEY_USERS\.Default, ale
i jinych napr. HKEY_LOCAL_MACHINE apod...) a take do konkretniho adresare na
disku (typicky Program files a dalsich...)...
Diky moc za odpovedi
S pozdravem
Milan Tomes
Uzivatelska konfigurace nastrojove listy
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 8.10.2004 15:51:57
> > > potreboval bych uzivateli umoznit konfiguraci (vcetne
> > > ulozeni a nacteni)
> > > nastrojove listy. Staci mi tlacitka, takze asi
> > > controlbar plus toolbary.
>
> Dej si do menu vsechny polozky, ktere chces aby uzivatel mohl
> pridavat ci odebirat na zaklade nastaveni a ty, ktere nechces aby
> byly v zakladnim nastaveni udelel neviditelne. Utech, ktere si
> uzivatel vybere nastavis vlastnost visible na True.Nastaveni pak
> ukladej do ini souboru
> --
> Milos J. Hrach, D6 profi, WinXP Home
No, spis jsem si predstavoval neco jako ma IDE Delphi. Mam v ActionListu asi
100 akci, takze v menu by to nebylo moc prehledne. Nicmene, nasel jsem
Toolbar2000 s rozsirenim TBX a k tomu TBX Customizer, ktery by mel delat to,
co ocekavam (plus radu veci navic, ktere asi nepouziji :-)).
Zdravim
Jiri Foldyna
nejde se pripojit k interbazi po lokalni siti
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 8.10.2004 15:27:55
DD
mam na win2000 SP4 nainstalovanu interbazi 6.0.1 pomoci IB console
se pripojim k Local Server bez problemu
ale pokud se chci pripojit z jineho pocitace a nastavim tam remote
server - TCP/IP a napisu nazev toho PC nebo IP adresu tak se pripojeni
nezdari
poradil by pls nekdo kde hledat chybu ?
Kresleni kolem okna
[*] Ing. Jan Dvorak <dvorak(zv)szu(tec)cz> - 8.10.2004 15:27:55
Zkus Repaint.
Jan Dvorak
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Dalibor Faltynel
> Sent: Monday, November 08, 2004 8:27 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Kresleni kolem okna
>
> Ahoj pratele,
> zcasti jsem vycetl, zcasti upravil kod pro vykreslovani
> ramecku kolem oken,
> kdyz nad nimi zastavim mys a pockam na timer. Potud to
> funguje dobre. Ale
> jak mam zase ty ramecky mazat a obnovit puvodni vzhled? Mel bych nejak
> prekreslit plochu, ale nevim jak. Prosim, pomozte mi nekdo,
> zkousel jsem
> UpdateWindow, a InvalidateRect na ruznych mistech, ale to asi
> neni ono. Toto
> je kod kresleni ramecku.
>
> procedure TForm1.Timer1Timer(Sender: TObject);
> var
> dc: hDc;
> Pen: hPen;
> OldPen: hPen;
> OldBrush: hBrush;
> RR: TRect;
> PRR: Pointer;
> begin
> dc:=GetWindowDC(GetWindowUnderMouse);
> Pen:=CreatePen(PS_SOLID, 5, RGB(0,255,0));
> OldPen:=SelectObject(dc, Pen);
> OldBrush:=SelectObject(dc, GetStockObject(NULL_BRUSH));
> GetWindowRect(WindowFromDC(dc), RR);
> Rectangle(dc,0,0,RR.Right - RR.left,RR.Bottom - RR.Top);
> SelectObject(dc, OldBrush);
> SelectObject(dc, OldPen);
> DeleteObject(Pen);
> InvalidateRect(dc, PRR, true);
> updateWindow(WindowFromDC(dc));
> ReleaseDC(Handle, Canvas.Handle);
> end;
>
>
>
OdpoveAZ:Re: mam problem mozno reseni nekto vi
[*] 0905939096 <mtssoftware(zv)orangemail.sk> - 8.10.2004 15:31:55
Hne+AQ8- pri spusteni to nap+AO0BYQ-e program provedl neplatnou operaci a bude ukoncen. Mam viac programov a niektor+AOk- id+APo- niektor+AOk- nie. M+AOE-m podozrenie na jedi komponenty.
like, case insensitive, cestina
[*] ing. Petr Borkovec <petrborkovec(zv)volny(tec)cz> - 8.10.2004 15:07:53
Delphi 7, InterBase WI - 06.0.1.6.
Potrebuji prohledat pole tabulky, aby hledani bylo case insensitive a
fungovalo v cestine. Pole je varchar(10000). Tabulku ctu komponentou
IBQuery, pro hledani vkladam do jeji vlastnosti SQL 'select * from
tab_archiv where UPPER(OBSAH) LIKE upper(_WIN1250'hodnota1.Text')',do
hodnota1.text davam '%toto je treba najit%'.Takto je vysledek hledani case
insensitive pro vsechna pismena s vyjimkou pismen s diakritikou, kde to
zustava case sensitive. Mohl by nekdo poradit?
OpenService vraci chybu
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 8.10.2004 15:05:53
Otevri si seznam sluzeb - Control panel - Nastroje pro spravu - Sluzby.
Najdi si prislusnou sluzbu
Otevri detail te sluzby
Prvni polozka na detailu - Nazev sluzby - je to co musis hledat v
OpenService.
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Andreas Bednarek
> Sent: Monday, November 08, 2004 2:56 PM
>
> > Mam neblahy pocit, ze sluzba se jmenuje uplne jinak - InterBaseServer...
> >
> > S pozdravem
> >
> > Milan Tomes
>
> No to je docela podstatna vec :-) A sluzbu 'InterBaseServer'
> dokonce najdu,
> coz je pokrok! Nicmene jak potom rozlisim InterBase of Firebirdu? Me to v
> mem pripade vzdy najde a hlasi stav serveru IB nikoli FB. Mam
> tady totiz oba
> a v pripade moji aplikace je to casty stav, ze bezi IB/FB na
> jednom pocitaci
> a ja bych potrebovat vzdy zjistit stav FB serveru (zda je
> nainstalovany, zda
> bezi).mam problem mozno reseni nekto vi
[*] Petr Vones <konference(zv)petrvones(tec)net> - 8.10.2004 15:01:52
From: "Matej Sukenik" <mtssoftware(zv)orangemail.sk>
> na novych pc kde je WindowsXP a SP2 nejde muj program spustit. Jen kdyz tam
> dam kompatibilitu Windows98. Pak ale nejde Office2003 kdyz je volam pres
> ole...
Tezko poradit kdyz neuvadis presny chybovy hlaseni.
Petr Vones
OpenService vraci chybu
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 8.10.2004 14:55:52
> Mam neblahy pocit, ze sluzba se jmenuje uplne jinak - InterBaseServer...
>
> S pozdravem
>
> Milan Tomes
No to je docela podstatna vec :-) A sluzbu 'InterBaseServer' dokonce najdu,
coz je pokrok! Nicmene jak potom rozlisim InterBase of Firebirdu? Me to v
mem pripade vzdy najde a hlasi stav serveru IB nikoli FB. Mam tady totiz oba
a v pripade moji aplikace je to casty stav, ze bezi IB/FB na jednom pocitaci
a ja bych potrebovat vzdy zjistit stav FB serveru (zda je nainstalovany, zda
bezi).
Jak tedy zamerit Firebird?
Diky
A.B.
Uvolnovani pameti
[*] Petr Vones <konference(zv)petrvones(tec)net> - 8.10.2004 14:53:52
From: "Jan Netrval" <jnetrval(zv)pilscom(tec)cz>
> Mam problem s aplikaci napsanou v Delphi. Aplikace behem sveho behu
> spotrebovava stale veci pameti, staci ji ovsem shodit na listu
> (minimalizovat) a pamet se uvolni. Netusite nekdo co s tim?
Z toho vyplyva, ze nesledujes skutecne alokovanou pamet - "VM Size" ale "Mem
Usage" coz je vlastne working set, ktery se zmensi prave kdyz minimalizujes
hlavni okono aplikace.
Petr.Ktere fonty ve Windows jsou neproporcionalni ?
[*] Martin Pavera <martin.pavera(zv)cmail(tec)cz> - 8.10.2004 14:51:51
Zdravim,
jak pomoci Delphi zjistit ktere fonty ve Windows jsou neproporcionalni
(kazdy znak ma stejnou sirku) ?
Dekuji Martin Pavera. Windows Sockets - nekolik otazek
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 8.10.2004 14:35:50
Ja jen dodavam sve postrehy, tak jak jsem je psal Martinovi :)
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of delphi(zv)hon(tec)cz
> Sent: Monday, November 08, 2004 2:30 PM
>
> * Skype prestalo chodit
> [jasne, je to zadarmo, ale prece...]
Neznam - netusim
> * OE miva problemy s pripojenim
> [a kdo je nema]
OE bezne nepouzivam, uzivatele ktere znam a pouzivaji jej s nim nemaji
nejmensi problem. Pripojeni se obcas nezdari jakemukoliv klientovi (OE,
Outlook 2000, XP, 2003) bez ohledu na SP2.
> * slozka "Sitova pripojeni" se otvira neumerne dlouho
> [a to ti vadi Martine? dej si neco k piti a pockej]
Po instalaci SP2 nepozoruji zadne zpomaleni. Snad jen pokud se nepouziva
domena NT, tak to chodi velice pomalu (ale to je tusim obecny problem)
> * DCOM aplikace (nas informacni system) funguje spatne
> a nepredvidatelne
> [proc nepouzivas .NET informacni system? To je ted "in"]
Neprovozuji
> * MSDE, MS-SQL standard, MS-SQL Enterprise nesly nainstalovat
> na ciste WinXP Profi SP1, SP2... ale sly nainstalovat v poradi SP1, MSDE,
> SP2.
> [tak to udelej jak popisujes a mas klid]
Dle vlastni zkusenosti - nenastal jediny problem
> * Autocad 2004 nefungoval (ne neni to ta sama chyba, kterou popisuje MS).
> Tu bych to upresnil, jedna se o nastavbu pro nabytkare.
> [koho to zajima]
Neznam - nepouzivam :)
S pozdravem
Milan Tomes
Windows Sockets - nekolik otazek
[*] delphi(zv)hon(tec)cz - 8.10.2004 14:29:49
Navazuji na svuj predchozi prispevek.
Takze jsem na to prisel a uz mi UDP nemizi.
Problem nebyl (kupodivu) na strane SP2, ale
na strane programatora (hle, jaky div).
Takze mohu konstatovat, ze UDP chodi asi
normalne (jen ten zbytek obcas blbne).
Presto vsak tvrdim, ze v SP2 existuji chyby. Strucny
mnou nalezeny prehled predavam dal, tak jak jsem jej psal
M. Tomesovi v mailu (a hned si to i okomentuju).
* Skype prestalo chodit
[jasne, je to zadarmo, ale prece...]
* OE miva problemy s pripojenim
[a kdo je nema]
* slozka "Sitova pripojeni" se otvira neumerne dlouho
[a to ti vadi Martine? dej si neco k piti a pockej]
* DCOM aplikace (nas informacni system) funguje spatne
a nepredvidatelne
[proc nepouzivas .NET informacni system? To je ted "in"]
* MSDE, MS-SQL standard, MS-SQL Enterprise nesly nainstalovat
na ciste WinXP Profi SP1, SP2... ale sly nainstalovat v poradi SP1, MSDE,
SP2.
[tak to udelej jak popisujes a mas klid]
* Autocad 2004 nefungoval (ne neni to ta sama chyba, kterou popisuje MS).
Tu bych to upresnil, jedna se o nastavbu pro nabytkare.
[koho to zajima]
Martin
----- Original Message -----
> Jasne, fw bylo prvni, co me napadlo. Nicmene, neblokuje.
> Az do dneska jsem nemel s SP2 (na svem pocitaci) problemy.
> Jinak znovu opakuji, co jsem uz kdysi rikal ... WinXP SP2 je
> (bohuzel, protoze si myslim, ze souhrn patchu plus nektere dalsi
> veci by z nej delaly pouzitelny produkt) nepouzitelny.
>
> Martin
>
>
>>> No nevim jak ostatni, ale ja mam u sve aplikace, ktera beha
>>> na UDP komunikaci (de facto z lokalu na lokal) velke
>>> problemy s SP2. Jinymi slovy to nefunguje a na ostatnich
>>> WinXP SP1 ano (a u mne pred instalaci SP2 bohuzel take).
>>
>> Nepozoroval jsem zadne takoveto problemy. Schvalne jsem to pred chvili
>> zkusil, a skutecne vse mi funguje jak ma. Zkousel jsem jak unicasty, tak
>> i broadcasty. (Zkouseno Synapsi.)
>>
>> Takovy hloupy napad... neblokuje ti to firewall?
>
>
> Uvolnovani pameti
[*] Jan Netrval <jnetrval(zv)pilscom(tec)cz> - 8.10.2004 14:19:48
Mam problem s aplikaci napsanou v Delphi. Aplikace behem sveho behu spotrebovava stale veci pameti, staci ji ovsem shodit na listu (minimalizovat) a pamet se uvolni. Netusite nekdo co s tim?
Ing. Jan Netrval
PilsCom, s.r.o. www.pilscom(tec)cz
Houskova 16
326 00 Plzen (Pilsen) Czech Republic
Tel.: +420 377 441 306
GSM: +420 603 851 391
E-mail: jnetrval(zv)pilscom(tec)cz
D7, chyba v ntdll.dll
[*] Petr Vones <konference(zv)petrvones(tec)net> - 8.10.2004 14:01:47
From: "Kalhous" <kalhous(zv)eu(tec)cz>
> Po prechodu z D6 na D7 (WinXP) se v programech i jiz odladenych zacala
> objevovat chyba Access violation .. 7C912FFC in ntdll.dll ... write of
> address 00404815
Neni to nahodou ta chyba s prazdnou polozkou v TComboBoxu ? Potom by to ovsem
znamenalo, ze si nenainstaloval Update #1 pro D7.
Petr Vones
datove pasky
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 8.10.2004 13:37:45
zdravim
nevite nekdo jestli existuje spolecne api rozhranni pro pristup k datovym
paskam, nebo to ma kazdy vyrobce jinak
Windows Sockets - nekolik otazek
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 8.10.2004 13:27:45
Dalibor Toman wrote:
> Lukas Gebauer uz odpovedel dostatecne - staci pouzit select() a recv
Jasne - ja jsem totiz tvoji namitku o zbytecnosti chybne vztahnul
k volani select a ne ke zjistovani delky pending dat ;-)
pf
Zruseni komponenty na ancestorovi
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 8.10.2004 12:45:39
Kdyz uz pouzivas dedicnost formu nebo framu, tak:
Misto IDE od Borlandu pouzij neco vhodnejsiho, treba notepad.
Oprav si DFM rucne.
Delej si zalohy.
Casto.
Jednou se ti totiz stane, ze uz ani neotevres projekt (Access violation v
IDE)>D7
>Na formulari predka jsem zrusil nepotrebnou komponentu, konkretne stranku
na PageControlu. Ale na potomcich ne a ne se ji zbavit. Otevru v projektu
formulare vseck >potomku, u vsech se me zepta jestli ma odkaz zrusit, u
vsech to potvrdim, dam build, preklad, program funguje. Save >all, close
all, znovu otevru projekt a jsem tam kde jsem byl - kdyz formulare v design
neotevru tak jsou v programu chyby a kdyz je otviram tak >se me znovu pta
jestli ma zrusit odkaz na komponentu ktera neexistuje na ancestorovi.
>Existuje nejaky zpusob jak delfy presvedcit ze kdyz uz jsem desetkrat
potvrdil ze se ma odkaz zrusit tak ze to myslim vazne?
>Z.Kalhous
>ToWare s.r.o.
mam problem mozno reseni nekto vi
[*] Matej Sukenik <mtssoftware(zv)orangemail.sk> - 8.10.2004 12:39:39
A tyka se to jen procesoru P4 a mam delphi6...
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Matej Sukenik
Sent: Monday, November 08, 2004 11:00 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: mam problem mozno reseni nekto vi
na novych pc kde je WindowsXP a SP2 nejde muj program spustit. Jen kdyz tam
dam kompatibilitu Windows98. Pak ale nejde Office2003 kdyz je volam pres
ole...
Zdravim
Windows Sockets - nekolik otazek
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.10.2004 12:31:38
On Monday, November 08, 2004 11:57 AM [CET], Petr Fejfar
<development(zv)callnet(tec)cz> wrote:
> Dalibor Toman wrote:
>
>> to je IMHO zbytecne - recv() by mela skoncit okamzite vzdy kdyz
jsou
>> v systemovych bufferech nejaka data. Ceka se pouze pokud zadna data
>> nejsou
>
>
> Puvodni dotaz byl na timeout v pripade, ze netecou data - jak bys ho
> tedy udelal, kdyz volani recv() bude blocking?
Lukas Gebauer uz odpovedel dostatecne - staci pouzit select() a recv
volat az v pripade ze _vim_ ze jsou data ke cteni. Nepotrebuji znat
pocet bajtu, ktere cekaji k vyzvednuti (to cislo se muze kdykoliv pred
volanim recv() stejne zvysit). Staci kdyz vim, ze recv() muzu volat
bez rizika zablokovani.
Dalsi reseni je samozrejme pouzit non-blocking sockety (nechat si
posilat eventy kdyz jsou data)
Zdravi
Dalibor Toman
Fortech s.r.o.
D7, chyba v ntdll.dll
[*] Kalhous <kalhous(zv)eu(tec)cz> - 8.10.2004 12:27:38
Po prechodu z D6 na D7 (WinXP) se v programech i jiz odladenych zacala objevovat chyba
Access violation .. 7C912FFC in ntdll.dll ... write of address 00404815
a to zcela nahodne - nekdy se objevi pri vytvoreni formulare, nekdy pri show, nekdy pri zavreni, u nekterych formularu systematicky, u jinych obcas, zridka nebo zatim vubec. Netusite nekdo o co jde?
Z.Kalhous
ToWare s.r.o.
Zruseni komponenty na ancestorovi
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 8.10.2004 12:25:37
Tusim, ze pomuze pohnout s formularem a ulozit ho - je nutno vynutit
znovuulozeni formulare. Mame ty same problemy - nejspise se jedna opet o
chybu v Delphi, kterou nikdo nehodla opravit... :(((
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Kalhous
> Sent: Monday, November 08, 2004 12:22 PM
>
> Na formulari predka jsem zrusil nepotrebnou komponentu, konkretne
> stranku na PageControlu. Ale na potomcich ne a ne se ji zbavit.
> Otevru v projektu formulare vseck potomku, u vsech se me zepta
> jestli ma odkaz zrusit, u vsech to potvrdim, dam build, preklad,
> program funguje. Save all, close all, znovu otevru projekt a jsem
> tam kde jsem byl - kdyz formulare v design neotevru tak jsou v
> programu chyby a kdyz je otviram tak se me znovu pta jestli ma
> zrusit odkaz na komponentu ktera neexistuje na ancestorovi.Zruseni komponenty na ancestorovi
[*] Kalhous <kalhous(zv)eu(tec)cz> - 8.10.2004 12:21:37
D7
Na formulari predka jsem zrusil nepotrebnou komponentu, konkretne stranku na PageControlu. Ale na potomcich ne a ne se ji zbavit. Otevru v projektu formulare vseck potomku, u vsech se me zepta jestli ma odkaz zrusit, u vsech to potvrdim, dam build, preklad, program funguje. Save all, close all, znovu otevru projekt a jsem tam kde jsem byl - kdyz formulare v design neotevru tak jsou v programu chyby a kdyz je otviram tak se me znovu pta jestli ma zrusit odkaz na komponentu ktera neexistuje na ancestorovi.
Existuje nejaky zpusob jak delfy presvedcit ze kdyz uz jsem desetkrat potvrdil ze se ma odkaz zrusit tak ze to myslim vazne?
Z.Kalhous
ToWare s.r.o.
Komunikace s IE (was IE - OLE)
[*] Ing. Igor Kapoun <igor.kapoun(zv)volny(tec)cz> - 8.10.2004 12:01:35
Pokousim se porad vysosnout text z IE. Pokud tam nejsou framy,
tak priklad, ktery zaslal Jiri Svoboda jede. Pokud tam ale jsou framy,
mel bych se na jednotlive framy dostat takhle (konkretne pro prvni frame):
var
document: IHTMLDocument2;
ole_index: OleVariant;
frame_dispatch: IDispatch;
begin
document := WebBrowser.Document as IHTMLDocument2;
ole_index := 0;
frame_dispatch := document.Frames.Item(ole_index);
Jenze tedy mi to hlasi chybu 'Clen nebyl nalezen'.
Nevi nekdo, proc?
Igor
Windows Sockets - nekolik otazek
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 8.10.2004 11:57:34
Dalibor Toman wrote:
> to je IMHO zbytecne - recv() by mela skoncit okamzite vzdy kdyz jsou v
> systemovych bufferech nejaka data. Ceka se pouze pokud zadna data
> nejsou
Puvodni dotaz byl na timeout v pripade, ze netecou data - jak bys ho tedy
udelal, kdyz volani recv() bude blocking?
pf
DBF dataset?
[*] petr <petr_hl(zv)mrp(tec)cz> - 8.10.2004 11:47:33
Dne pa 5. listopadu 2004 09:15 Viktor Doubek napsal(a):
> Budu muset vymenovat data s jinym SW pres dbf soubory (Visual FoxPro 7).
> Doporucite mi nejaky Dataset (potomek TDataSet - potrebuju to nejlepe pro
> CLX), abych nemusel pouzit BDE? Podminkou je dobre fungujici sdileny
> pristup k tabulkam. Radsi free, ale mozno i placene. Delphi 7 prof. Diky
> moc. VD.
Zkuste tdbf tdbf.sourceforge.net
Petr
--
web : www.webpark(tec)cz/ok2cqr
mail : ok2cqr at post dot cz; petr_hl at mrp dot cz
ICQ : 165536992
Windows Sockets - nekolik otazek
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.10.2004 11:01:30
DD,
On Monday, November 08, 2004 10:31 AM [CET], Lukas Gebauer
<gebylist(zv)mlp(tec)cz> wrote:
>>> Pak si zjistim, kolik bytu dat ceka
>>> na precteni a tak volam Recv funkci na presne znamy pocet bytu
dat,
>>> ktere jiz cekaji v bufferech.
>>
>> to je IMHO zbytecne - recv() by mela skoncit okamzite vzdy kdyz
jsou
>> v systemovych bufferech nejaka data. Ceka se pouze pokud zadna data
>> nejsou
>
> Zbytecne to neni, pokud tuto informaci pouzijes treba i k tomu, aby
> sis pripravil buffer na cteni, atd.
ok - ale pokud nechces zbytecne ztracet rychlost mel bys mit alokovano
davno pred tim
Dalibor Toman
Win XP SP 2 vs. QuickReport
[*] Dalibor <dalibor(zv)torola(tec)cz> - 8.10.2004 10:35:26
No jestli to spise nesouvisi nejak s ovladaci te tiskarny.
Mel jsem projekt v D5, ktery jsem prevedl do D7. Sam v nem QR pouzivam.
Na SP2 mi to funguje bezproblemu. Testoval jsem jak verzi v Delphi 5, tak
verzi v Delphi 7
>
> zakaznik tvrdi, ze po nahrani SP2 moje aplikace spadne, kdyz zkusi vyvolat
nahled sestavy (nejde
> ani tisk). Zadna chybova hlaska aplikace, ale takove to okenko, kde lze
odeslat popis Microsoftu.
>
> Nesatkal jste se s tim nekdo? App psana v D5 Pro. U sebe zatim k instalaci
SP2 sbiram odvahu :-)
>
>mam problem mozno reseni nekto vi
[*] Matej Sukenik <mtssoftware(zv)orangemail.sk> - 8.10.2004 10:59:30
na novych pc kde je WindowsXP a SP2 nejde muj program spustit. Jen kdyz tam
dam kompatibilitu Windows98. Pak ale nejde Office2003 kdyz je volam pres
ole...
Zdravim
Dynamicke pole 2.
[*] delphin(zv)post(tec)cz - 8.10.2004 10:45:27
> Pouzil jsem Exception dialog z JCL. Chyba nastava obvykle kolem
dvoutisiciho zaznamu (plus minus 200), pole ma 107000 prvku, nejde tedy o
problem s chybnou indexaci na okraji pole, Exception dialog hlasi, ze chyba
vznika na volani FreeMem v _LStrClr (tusim, za nazev z hlavy presne
nerucim), coz je procedura v unite system a podle nazvu soudim, ze ma
uvolnit string z pameti.
Neni nic jednodussiho, nez si to vyzkouset v novem projektu. Predpokladam,
ze nasledujici kod bude fungovat na 100%.
SetLength(Pole,107000);
for i:=low(Pole) to high(Pole) do
begin
Pole[i].Nazev:=inttostr(i);
Pole[i].Popis:=inttostr(i);
end;
Pole:=nil;Windows Sockets - nekolik otazek
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 8.10.2004 10:31:26
> > Pak si zjistim, kolik bytu dat ceka
> > na precteni a tak volam Recv funkci na presne znamy pocet bytu dat,
> > ktere jiz cekaji v bufferech.
>
> to je IMHO zbytecne - recv() by mela skoncit okamzite vzdy kdyz jsou v
> systemovych bufferech nejaka data. Ceka se pouze pokud zadna data
> nejsou
Zbytecne to neni, pokud tuto informaci pouzijes treba i k tomu, aby
sis pripravil buffer na cteni, atd.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Win XP SP 2 vs. QuickReport
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 8.10.2004 10:23:24
Pekne dopoledne,
zakaznik tvrdi, ze po nahrani SP2 moje aplikace spadne, kdyz zkusi vyvolat nahled sestavy (nejde
ani tisk). Zadna chybova hlaska aplikace, ale takove to okenko, kde lze odeslat popis Microsoftu.
Nesatkal jste se s tim nekdo? App psana v D5 Pro. U sebe zatim k instalaci SP2 sbiram odvahu :-)
Diky,
Karel Rys
Windows Sockets - nekolik otazek
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.10.2004 10:21:23
On Saturday, November 06, 2004 12:19 PM [CET], Lukas Gebauer
<gebylist(zv)mlp(tec)cz> wrote:
>> 1. Existuje neco jako "timeoutovana" fce recv() (pro TCP spojeni)?
>> Proste aby po uplynuti urcite doby skoncila i kdyz neprijdou zadna
>> data.
>
> Primo neexistuje. Ja to delam tak, ze si pomoci Select pockam, az
> prijdou nejaka data k precteni.
> Pak si zjistim, kolik bytu dat ceka
> na precteni a tak volam Recv funkci na presne znamy pocet bytu dat,
> ktere jiz cekaji v bufferech.
to je IMHO zbytecne - recv() by mela skoncit okamzite vzdy kdyz jsou v
systemovych bufferech nejaka data. Ceka se pouze pokud zadna data
nejsou
Dalibor Toman
Interbase: pridavanie noveho uzivatela
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 8.10.2004 10:15:22
Haj hou!
On 8 Nov 2004 at 9:53, Ivan Kozak wrote:
> Napriek tomu, ked sa pokusam spustit databazu (ci uz z programu alebo z IB
> Console) tak mi hlasi, ze "database is shutdown". T.j. ako keby bolo treba
> nastavit nejake prava pre otvorenie databazy -- ale neviem, ze kde...
Databaze je shutdown, je treba ji prepnout do on-line pres IBConsole
nebo GFIX.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Windows Sockets - nekolik otazek
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 8.10.2004 10:09:22
> Zde je mozna nedorozumeni,
> ja reagoval na to, ze mam s UDP prenosem na WinXP SP2
> problemy, ale nerekl jsem, ze jsem to psal v Synapsi.
>
> Jinak si za tim, co jsem napsal stojim. Jsou problemy.
No to je snad jedno cim, ja s UDP prenosy zadny problem nevidim. Ale
je fakt, ze na resolving jmen pouzivam na WinXP zasadne funkci
GetAddrInfo. Mozna je to tim.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Dynamicke pole 2.
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 8.10.2004 10:07:22
David Lebeda wrote:
> hlasi, ze chyba vznika na volani FreeMem v _LStrClr (tusim, za nazev
Zajimavejsi je call stack tj. v jakem kontextu se to vola.
pf
BDE administrator
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 8.10.2004 10:05:22
Pokud jedes pres BDE, musi se nainstalovat (lze i z instalacniho CD,
zaskrtnout jen volbu pro instalaci BDE). Tim padem se take objevi BDE Admin.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz <http://brant.wz(tec)cz> > potreboval bych na jednom PC rozjet muj programek a pristupovat do
> databaze, ale neni v ovladacich panelech BDE Administrator
> je mozne ho nekde stahnout nebo se to musi kupovat? lze to doinstalovat
> samostatne?
>
komponenta reagujici na pohyb formu
[*] Petr Kuklik <pkuklik(zv)cerny-ps(tec)cz> - 8.10.2004 09:57:21
Dobry den,
jake zpravy se ma chytit komponenta (treba edit), aby mohla reagovat na pohyb formu?
Diky Petr Kuklik
Windows Sockets - nekolik otazek
[*] delphi(zv)hon(tec)cz - 8.10.2004 09:29:18
Zde je mozna nedorozumeni,
ja reagoval na to, ze mam s UDP prenosem na WinXP SP2
problemy, ale nerekl jsem, ze jsem to psal v Synapsi.
Jinak si za tim, co jsem napsal stojim. Jsou problemy.
Martin
----- Original Message -----
>> Jasne, fw bylo prvni, co me napadlo. Nicmene, neblokuje.
>> Az do dneska jsem nemel s SP2 (na svem pocitaci) problemy.
>> Jinak znovu opakuji, co jsem uz kdysi rikal ... WinXP SP2 je
>> (bohuzel, protoze si myslim, ze souhrn patchu plus nektere dalsi
>> veci by z nej delaly pouzitelny produkt) nepouzitelny.
>
> Silna slova... opakuji, osobne mam SP2 tady na vsech WinXP, coz je
> tak odhadem desitka ruznych stroju, a podobny problem jsem
> nezaznamenal.
>
> Pravda, vsechny moje programy pouzivaji Synapsi. Stejne jako v
> konferenci Synapse nikdo zatim nehlasil zadny podobny problem.
> BDE administrator
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 8.10.2004 09:29:18
DD,
potreboval bych na jednom PC rozjet muj programek a pristupovat do
databaze, ale neni v ovladacich panelech BDE Administrator
je mozne ho nekde stahnout nebo se to musi kupovat? lze to doinstalovat
samostatne?
diky PM
Interbase: pridavanie noveho uzivatela
[*] Ivan Kozak <ivan(zv)boucek(tec)cz> - 8.10.2004 09:53:21
Nemate niekto skusenosti s pridanim noveho uzivatelo do Interbase 6? alebo
7?
Chcel by som pridat novych uzivatelov do databazy Interbase zatial s
kompletnymi pravami (rovnako ako ma Sysdba).
Pridat uzivatelov viem. Nastavil som aj v tabulkach databazy pristupove
prava pre Insert, edit atd. rovnako, ako to bolo pre sysdba.
Napriek tomu, ked sa pokusam spustit databazu (ci uz z programu alebo z IB
Console) tak mi hlasi, ze "database is shutdown". T.j. ako keby bolo treba
nastavit nejake prava pre otvorenie databazy -- ale neviem, ze kde...
Dik za radu.
Ivan Kozak
Uzivatelska konfigurace nastrojove listy
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 8.10.2004 09:31:19
Pro komponenty ToolBar97 existuje ukazkova aplikace pro CustomizeToolbar,
kterou jsem osobne celkem uspesne po mensich upravach pouzil. Ale super
jednotuche to zrovna neni a zapisuje konfiguraci do registru. Ale to se da
upravit na ini soubor. Akorat uz nevim kde jsem to nasel. Zkusil bych hledat
na Google.
Martin
> Toto je nam asi vsem jasne, ale podle me mel tazatel na mysli nejakou
> komponentu, ktera by fungovala jako "formular na customizaci" pro
> standardni toolbary, coolbary a controlbary pro D5, aby si to nemusel
> sprogramovat sam.
>
> Ja se tez pridavam a poptavam totez.Vytvoreni db z programu
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 8.10.2004 09:01:16
Set names je prikaz pro konzoli, ktery urcuje znakovou sadu pro pripojeni
(je tedy nutno jej volat pred pripojenim k databazi) a COLLATE je prikaz pro
SQL server, ktery urcuje trideni. COLLATE je zavisly na znakove sade pouzite
pri zakladani databaze.
Takze pokud chces aby Ti to fungovalo, tak musis udelat nasledujici:
1. SET NAMES WIN1250;
2. CONNECT .....;
nebo
2. CREATE DATABASE ... DEFAULT CHARACTER SET WIN1250;
3. CREATE TABLE AAA (
TEXT VARCHAR(2000) COLLATE PXW_CSY
);
Z programu nemusis volat Set names, protoze to vlastne nastavis v
parametrech pripojeni k databazi (viz lc_ctype=WIN1250)
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Kalhous
> Sent: Monday, November 08, 2004 8:19 AM
>
> Muzete mi nekdo poradit co pouzit kdyz chci vytvorit novou
> databazi primo z programu a/nebo upgradovat strukturu stavajici
> pri zmene verze programu? Cili spustit kompletni vytvareci
> skript. Muzu sice z programu spustit iSQL a podstrcit mu skript
> jako vstup ale to se mi moc nelibi.
> Ostatne jsem u iSQL narazil na zahadu - i kdyz je nastaveno SET
> NAMES WIN1250, v CREATE TABLE vyhazuje v definici sloupcu COLLATE
> PXW_CSY jako nepouzitelne pro tuto znakovou sadu. A nejvetsi
> zahada je pro mne v tom, ze ne u vsech znakovych atributu - u
> nekterych to projde, u jinych ne. Stejny skript treba pres
> IBConsole projde bez problemu.Uzivatelska konfigurace nastrojove listy
[*] Ing. Petr Sikola <developer(zv)efg(tec)cz> - 8.10.2004 09:01:16
> > > potreboval bych uzivateli umoznit konfiguraci (vcetne
> > > ulozeni a nacteni)
> > > nastrojove listy. Staci mi tlacitka, takze asi
> > > controlbar plus toolbary.
> Dej si do menu vsechny polozky, ktere chces aby uzivatel mohl
> pridavat ci odebirat na zaklade nastaveni a ty, ktere nechces aby
> byly v zakladnim nastaveni udelel neviditelne. Utech, ktere si
> uzivatel vybere nastavis vlastnost visible na True.Nastaveni pak
> ukladej do ini souboru
Toto je nam asi vsem jasne, ale podle me mel tazatel na mysli nejakou
komponentu, ktera by fungovala jako "formular na customizaci" pro
standardni toolbary, coolbary a controlbary pro D5, aby si to nemusel
sprogramovat sam.
Ja se tez pridavam a poptavam totez.
Petr Sikola
Windows Sockets - nekolik otazek
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 8.10.2004 09:09:17
> Jasne, fw bylo prvni, co me napadlo. Nicmene, neblokuje.
> Az do dneska jsem nemel s SP2 (na svem pocitaci) problemy.
> Jinak znovu opakuji, co jsem uz kdysi rikal ... WinXP SP2 je
> (bohuzel, protoze si myslim, ze souhrn patchu plus nektere dalsi
> veci by z nej delaly pouzitelny produkt) nepouzitelny.
Silna slova... opakuji, osobne mam SP2 tady na vsech WinXP, coz je
tak odhadem desitka ruznych stroju, a podobny problem jsem
nezaznamenal.
Pravda, vsechny moje programy pouzivaji Synapsi. Stejne jako v
konferenci Synapse nikdo zatim nehlasil zadny podobny problem.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Uzivatelska konfigurace nastrojove listy
[*] Milos J. Hrach <delphi_konf(zv)post(tec)cz> - 8.10.2004 08:53:15
> Jiri Foldyna napsal(a):
> > Ahoj,
> >
> > potreboval bych uzivateli umoznit konfiguraci (vcetne
> > ulozeni a nacteni)
> > nastrojove listy. Staci mi tlacitka, takze asi
> > controlbar plus toolbary.
Dej si do menu vsechny polozky, ktere chces aby uzivatel mohl
pridavat ci odebirat na zaklade nastaveni a ty, ktere nechces aby
byly v zakladnim nastaveni udelel neviditelne. Utech, ktere si
uzivatel vybere nastavis vlastnost visible na True.Nastaveni pak
ukladej do ini souboru
--
Milos J. Hrach, D6 profi, WinXP Home
Prace s verzi programu
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 8.10.2004 08:49:14
A nebo pouzit TJclFileVersionInfo (unit JclFileUtils)
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Zapletal Martin
> Sent: Monday, November 08, 2004 8:45 AM
>
> Function GetVerApp(const FileName: string) : string;
> [snipped]
>
> > Muzete me nekdo nakopnout spravnym smerem kde se dozvedet neco
> o tom jak
> > se dostat v programu k verzi kterou muzu nastavit v Project Options?Prace s verzi programu
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 8.10.2004 08:45:14
Treba takhle...
Function GetVerApp(const FileName: string) : string;
var
dwHandle :THandle;
dwSize :DWORD;
lpData,lpData2:Pointer;
uiSize :UINT;
begin
Result:='';
dwSize:= GetFileVersionInfoSize(PChar(FileName), dwSize);
if dwSize<>0 then
begin
GetMem(lpData, dwSize);
if GetFileVersionInfo(PChar(FileName),dwHandle, dwSize, lpData) then
begin
uiSize:=SizeOf(TVSFixedFileInfo);
VerQueryValue(lpData,'\', lpData2,uiSize);
with PVSFixedFileInfo(lpData2)^ do
Result:= Format('%d.%d.%d.%d', [
HiWord(dwProductVersionMS),
LoWord(dwProductVersionMS),
HiWord(dwProductVersionLS),
LoWord(dwProductVersionLS)]);
end;
FreeMem(lpData, dwSize);
end;
end;
Ja to pouzivam prakticky v kazdem programu.
Martin Zapletal
> D7
> Muzete me nekdo nakopnout spravnym smerem kde se dozvedet neco o tom jak
> se dostat v programu k verzi kterou muzu nastavit v Project Options?Windows Sockets - nekolik otazek
[*] delphi(zv)hon(tec)cz - 8.10.2004 08:37:13
Jasne, fw bylo prvni, co me napadlo. Nicmene, neblokuje.
Az do dneska jsem nemel s SP2 (na svem pocitaci) problemy.
Jinak znovu opakuji, co jsem uz kdysi rikal ... WinXP SP2 je
(bohuzel, protoze si myslim, ze souhrn patchu plus nektere dalsi
veci by z nej delaly pouzitelny produkt) nepouzitelny.
Martin
>> No nevim jak ostatni, ale ja mam u sve aplikace, ktera beha
>> na UDP komunikaci (de facto z lokalu na lokal) velke
>> problemy s SP2. Jinymi slovy to nefunguje a na ostatnich
>> WinXP SP1 ano (a u mne pred instalaci SP2 bohuzel take).
>
> Nepozoroval jsem zadne takoveto problemy. Schvalne jsem to pred chvili
> zkusil, a skutecne vse mi funguje jak ma. Zkousel jsem jak unicasty, tak
> i broadcasty. (Zkouseno Synapsi.)
>
> Takovy hloupy napad... neblokuje ti to firewall?Kresleni kolem okna
[*] Dalibor Faltynel <dalibor.faltynek(zv)orgrez(tec)cz> - 8.10.2004 08:27:10
Ahoj pratele,
zcasti jsem vycetl, zcasti upravil kod pro vykreslovani ramecku kolem oken,
kdyz nad nimi zastavim mys a pockam na timer. Potud to funguje dobre. Ale
jak mam zase ty ramecky mazat a obnovit puvodni vzhled? Mel bych nejak
prekreslit plochu, ale nevim jak. Prosim, pomozte mi nekdo, zkousel jsem
UpdateWindow, a InvalidateRect na ruznych mistech, ale to asi neni ono. Toto
je kod kresleni ramecku.
procedure TForm1.Timer1Timer(Sender: TObject);
var
dc: hDc;
Pen: hPen;
OldPen: hPen;
OldBrush: hBrush;
RR: TRect;
PRR: Pointer;
begin
dc:=GetWindowDC(GetWindowUnderMouse);
Pen:=CreatePen(PS_SOLID, 5, RGB(0,255,0));
OldPen:=SelectObject(dc, Pen);
OldBrush:=SelectObject(dc, GetStockObject(NULL_BRUSH));
GetWindowRect(WindowFromDC(dc), RR);
Rectangle(dc,0,0,RR.Right - RR.left,RR.Bottom - RR.Top);
SelectObject(dc, OldBrush);
SelectObject(dc, OldPen);
DeleteObject(Pen);
InvalidateRect(dc, PRR, true);
updateWindow(WindowFromDC(dc));
ReleaseDC(Handle, Canvas.Handle);
end;Dynamicke pole 2.
[*] David Lebeda <david.lebeda(zv)seznam(tec)cz> - 8.10.2004 08:23:09
> > TRec = packed record
> > Index: integer;
> > Nazev: string;
> > Popis: string;
> > end;
> >
> > TPole = packed array of TRec;
>
> Dynamicke pole lze jednoduse cele dealokovat pomoci Pole:=nil; Delphi
> samo zajisti korektni uvolneni stringu z pole.
Ahoj,
prapuvodne jsem delal nejprve pouze Pole := nil; Pritom zacalo vznikat prave (obcas, nahodile) Invalid pointer operation. Druhy krok byl jeste pred vynilovanim volat Finalize(Pole); To spadlo tusim pokazde, zjevne to nebyl dobry krok. Volani Finalize v cyklu pro vsechny prvky pole jsem taky zkousel a chyba rovnez nezmizela. On je problem v tom, ze to nekdy i pomerne dlouhou dobu bezi a pak teprve vznikne vyjimka - a zas je nejakou dobu pokoj. Proto jsem v patek zacal provadet logovani do souboru, abych zjistil, kdy problem nastava.
> Invalid pointer operation pri uvolnovani muze zpusobit bud chybny index pri
> predchozi praci s polem nebo libovolna jina chybna i zdanlive nesouvisejici
> prace s pameti.
Pouzil jsem Exception dialog z JCL. Chyba nastava obvykle kolem dvoutisiciho zaznamu (plus minus 200), pole ma 107000 prvku, nejde tedy o problem s chybnou indexaci na okraji pole, Exception dialog hlasi, ze chyba vznika na volani FreeMem v _LStrClr (tusim, za nazev z hlavy presne nerucim), coz je procedura v unite system a podle nazvu soudim, ze ma uvolnit string z pameti.
David Lebeda
Prace s verzi programu
[*] Kalhous <kalhous(zv)eu(tec)cz> - 8.10.2004 08:21:09
D7
Muzete me nekdo nakopnout spravnym smerem kde se dozvedet neco o tom jak se dostat v programu k verzi kterou muzu nastavit v Project Options?
Z.Kalhous
ToWare s.r.o.
Vytvoreni db z programu
[*] Kalhous <kalhous(zv)eu(tec)cz> - 8.10.2004 08:19:09
D7,InterBase/FireBird
Muzete mi nekdo poradit co pouzit kdyz chci vytvorit novou databazi primo z programu a/nebo upgradovat strukturu stavajici pri zmene verze programu? Cili spustit kompletni vytvareci skript. Muzu sice z programu spustit iSQL a podstrcit mu skript jako vstup ale to se mi moc nelibi.
Ostatne jsem u iSQL narazil na zahadu - i kdyz je nastaveno SET NAMES WIN1250, v CREATE TABLE vyhazuje v definici sloupcu COLLATE PXW_CSY jako nepouzitelne pro tuto znakovou sadu. A nejvetsi zahada je pro mne v tom, ze ne u vsech znakovych atributu - u nekterych to projde, u jinych ne. Stejny skript treba pres IBConsole projde bez problemu.
Z.Kalhous
ToWare s.r.o.
n-oknenni aplikace
[*] David Kraina <dkx(zv)seznam(tec)cz> - 7.10.2004 19:02:14
Opet zdravim konferenci,
pri konceptovani nove aplikace (TODO editor 2) stojim pred velkym
problemem.
Budu nucen, aby aplikace bezela na pozadi, jako tray, a na popredi mohlo byt
libovolne mnozstvi dynamicky tvorenych oken, proste tak jako nekolik
otevrenych notepadu, ale musi to byt jedna aplikace.
Resil bych to : pole vlaken, v nemz ma kazde vlastni form, eventy atd.
Nicmene bych se na tom asi udrel, tak se ptam, zdali nekdo nema s timto
typem prace zkusenosti..
S pozdravem
David Kraina, DKx
---------------------------
Vedouci vyvojarskeho tymu MX-3, programator
http://DKx.MX-3(tec)cz
http://www.MX-3(tec)cz
OpenService vraci chybu
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 7.10.2004 18:50:13
Mam neblahy pocit, ze sluzba se jmenuje uplne jinak - InterBaseServer...
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Andreas Bednarek
> Sent: Saturday, November 06, 2004 4:21 AM
>
> potreboval bych pomoct, mam zahadny problem, nemuzu uspesne
> zavolat OpenService abych zjistil, jestli bezi DB server
>
> var
> scmgr_handle, svc_handle : SC_HANDLE;
>
> begin
>
> scmgr_handle := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
> svc_handle := OpenService(scmgr_handle, PChar('Firebird
> Server - DefaultInstance'), SERVICE_QUERY_STATUS or SERVICE_START);
>
> end;
>
> OpenService selze, svc_handle = 0 a GetLastError hlasi:
>
> 1060 "Zadana sluzba neni nainstalovana sluzba. "ToolButton & text
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 7.10.2004 16:49:41
David Kraina wrote:
> nepodarilo se mi zjistit, jak primet ToolButton, k poradi ikona -
> text na jeden radek.
TToolbar ma atribut List, o kterem se v Helpu pravi:
When List is False, tool buttons (TToolButton) appear in the toolbar with
their images (if any) centered and their captions (if visible) underneath.
Setting List to True aligns captions to the right and images to the left.
pf
ToolButton & text
[*] David Kraina <dkx(zv)seznam(tec)cz> - 7.10.2004 15:51:36
Zdravim,
nepodarilo se mi zjistit, jak primet ToolButton, k poradi ikona - text na
jeden radek.
Implicitne se zobrazuje ikona nad textem, domluvit mu nejde :-)
Jde to ? Dik.
S pozdravem
David Kraina, DKx
---------------------------
Vedouci vyvojarskeho tymu MX-3, programator
http://DKx.MX-3(tec)cz
http://www.MX-3(tec)cz
FreeVCS
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 7.10.2004 10:44:38
Jan Rizek wrote:
> Mam takove neblahe tuseni, ze FreeVCS neni dal rozvijene.. Pokud se
> pletu, tak me opravte..
FreeVCS konvergoval na JVCS viz http://jedivcs.sourceforge.net/,
na forums.talkto.net je k nemu diskusni skupina jedi.vcs
pf
FreeVCS
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 7.10.2004 09:47:11
Taky jsem se s tim pral - a mozna jde o to, ze to spravne chodi jen na win
2000.
Win xp nejsou podporovane..
(podobny problem je s tim, ze to chodi jen s FB 1.0 a uz to nechodi s FB
1.5) ale to neni Vas pripad...
Pokud by jste objevil nejake jine reseni - pokud mozno zadarmo a uplne
dokonale :-) tak napiste..
Jedno z reseni je nainstalovat to na server s win 2000 - jeden pocitac na to
obetovat.. Viz. starsi konference a dokumantace k FreeVCS..
Mam takove neblahe tuseni, ze FreeVCS neni dal rozvijene.. Pokud se pletu,
tak me opravte..> Zdravim vsechny,
>
> kdyz uz tu byla rec o FreeVCS, tak se zeptam - neni tu nekdo, kdo ma
> nainstalovany FreeVCS server 1.08 pro MS SQL jako NT service na Windows
2003
> Server nebo alespon na Win XP Pro? Nejsem schopen rozchodit control panel
> aplet 1.05. Kdyz ten aplet spustim (po zkopirovani .cpl a .dll do
> Windows\system32), tak hodi presypaci hodiny a prestane odpovidat. Takze
> nejsem schopen nastavit a spustit service. Jinak jako aplikacni server mi
to
> bezi, pripojene na SQL, klienti server vidi, vse funguje. Ale potrebuji to
> rozchodit jako Service, protoze server je vetsinou v neprihlasenem
stavu....
> Samozrejme, ze jsem prihlasen jako domain admin s veskerymi pravy, server
> neni domain controller, ale je clenem domeny.
>
> Odpovedi podle zvazeni prinosu pro tuto komunitu na ondrisek(zv)bonnel(tec)cz
>
> Diky vsem, preji prijemny vikend a omlouvam se za OT.
>
> Mira Ondrisek
>
>
>Free report - Prosty Rich text na stranku
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 6.10.2004 17:08:02
On 6 Nov 2004 at 16:25, Tomas Bradle wrote:
> zkousim free report a nedari se mi: potrebuji na stranku umistit RTF
> objekt a pred tiskem do nej nahrat obsah z RTF souboru. Nevi nekdo jak
> na to ?
s FreeReportem jsem delal naposledy asi pred rokem, ted pouzivam
FastReport 3, ale pokud si vzpominam v Demo to bylo.
Kazdopadne na ten Form musis dat TfrRichObject z palety
Btw, doporucuji prejit na FR3, umi export do PDF
<a cesky - bez problemu>.
Jarek Uher
Free report - Prosty Rich text na stranku
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 6.10.2004 16:25:59
Zdravim vsechny,
zkousim free report a nedari se mi: potrebuji na stranku umistit RTF objekt
a pred tiskem do nej nahrat obsah z RTF souboru. Nevi nekdo jak na to ?
diky
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
Windows Sockets - nekolik otazek
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 6.10.2004 15:31:55
> No nevim jak ostatni, ale ja mam u sve aplikace, ktera beha
> na UDP komunikaci (de facto z lokalu na lokal) velke
> problemy s SP2. Jinymi slovy to nefunguje a na ostatnich
> WinXP SP1 ano (a u mne pred instalaci SP2 bohuzel take).
Nepozoroval jsem zadne takoveto problemy. Schvalne jsem to pred chvili
zkusil, a skutecne vse mi funguje jak ma. Zkousel jsem jak unicasty, tak
i broadcasty. (Zkouseno Synapsi.)
Takovy hloupy napad... neblokuje ti to firewall?
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP Library
Windows Sockets - nekolik otazek
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 6.10.2004 12:19:41
> 1. Existuje neco jako "timeoutovana" fce recv() (pro TCP spojeni)? Proste
> aby po uplynuti urcite doby skoncila i kdyz neprijdou zadna data.
Primo neexistuje. Ja to delam tak, ze si pomoci Select pockam, az prijdou
nejaka data k precteni. Pak si zjistim, kolik bytu dat ceka na precteni a
tak volam Recv funkci na presne znamy pocet bytu dat, ktere jiz cekaji v
bufferech.
Diky tomu samotna Recv funkce neni nikdy blokujici a nevadi mi chybejici
timeout.
Timeout mam totiz usetreny hned v prvnim kroku, tedy pri volani Select
funkce, ktera timeout zna.
Nazorny priklad tohoto postupu najdes v kodu Synapse.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP Library
Windows Sockets - nekolik otazek
[*] delphi(zv)hon(tec)cz - 6.10.2004 09:09:28
No nevim jak ostatni, ale ja mam u sve aplikace, ktera beha
na UDP komunikaci (de facto z lokalu na lokal) velke
problemy s SP2. Jinymi slovy to nefunguje a na ostatnich
WinXP SP1 ano (a u mne pred instalaci SP2 bohuzel take).
A ted co s tim.... mam sednout k Etherealu a dokazovat, ze
se ty pakety ztraci nebo prehazuji?
Jinak mam WinXP Pro SP2 s D7. Do vcerejska vsechno bezelo.
Martin.
----- Original Message -----
> Mam nekolik otazek z %sub%:
> 1. Existuje neco jako "timeoutovana" fce recv() (pro TCP spojeni)? Proste
> aby po uplynuti urcite doby skoncila i kdyz neprijdou zadna data.
> 2. Jak se pracuje s UDP sockety? Zkousel jsem poslat data z 1 UDP socketu
> na
> 2. a system hlasil odeslani ale nic se neprijalo.
> Zdroj prijemce (je to v threadu):procedure TUDPServerThread.Execute();
> var s:integer;
> addr:sockaddr_in;
> buf:pchar;
> recv_size:integer;
> const buflen=1000;
> begin
> s:=socket(AF_INET,SOCK_DGRAM,IPPROTO_UDP);
> if s = -1 then
> LastErrorToODS; // Neco jako RaiseLastOSError, akorat nedela vyjimku a
> chybu vypise pres Output debug string
> addr.sin_family:=AF_INET;
> addr.sin_port:=SwapEndianWord(666);
> addr.sin_addr.S_addr:=0;
> if bind(s,addr,sizeof(addr)) = socket_error then
> LastErrorToODS;
> getmem(buf,buflen);
> while not terminated do
> begin
> buf:='';
> recv_size:=recv(s,buf,buflen,0);
> if buf^ <> #0 then
> OutputDebugString(pchar(format('MSG from %s: %s',['',buf])));
> end;
> end;
>
> Zdroj. odesilatele:
> procedure TForm1.Button2Click(Sender: TObject);
> var s:integer;
> buf:pchar;
> recv_size:integer;
> addr:sockaddr_in;
> const buflen=1000;
> begin
> s:=socket(AF_INET,SOCK_DGRAM,IPPROTO_UDP);
> addr.sin_family:=AF_INET;
> addr.sin_port:=SwapEndianWord(666);
> addr.sin_addr.S_addr:=inet_addr('127.0.0.1');
> if connect(s,addr,sizeof(addr)) = -1 then
> LastErrorToODS;
> buf:='1234';
> recv_size:=send(s,buf,5,0);
> if recv_size < 1 then
> LastErrorToODS;
> end;
>
> Vytvoreni vsech socketu probehne bez problemu.
>
> Windows XP SP2, Delphi 6 Ent.
>
> Jakub Cermak
> ja.cermi(zv)centrum(tec)cz
> ICQ 159971304
> http://cermi.wz(tec)cz
>
>
> OpenService vraci chybu
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 6.10.2004 04:21:09
Zdravim,
potreboval bych pomoct, mam zahadny problem, nemuzu uspesne zavolat OpenService abych zjistil, jestli bezi DB server Firebird. Asi takto (samozrejme tam jinak mam i kontrolu chyb):
var
scmgr_handle, svc_handle : SC_HANDLE;
begin
scmgr_handle := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
svc_handle := OpenService(scmgr_handle, PChar('Firebird Server - DefaultInstance'), SERVICE_QUERY_STATUS or SERVICE_START);
...
end;
OpenService selze, svc_handle = 0 a GetLastError hlasi:
1060 "Zadana sluzba neni nainstalovana sluzba. "
At mam Firebird server stoply nebo spusteny chova se to stejne a to i na ostatni sluzby.
Nemate tuseni kde delam chybu? Program bezi pod administratorskymi pravy na WinXP.
Diky za kazdou radu
A.B.
Import velkeho mnozstvi dat do FB
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 6.10.2004 00:14:52
> > Pokud je KLIC jedinecny, pak staci pouze vkladat. Pokud zaznam
> > existuje, vyhuci vlozeni daneho radku na chybu, ktera se
> bude proste
> > ignorovat.
>
> A nebude to spusobovat nejaky problem primo na Firebird
> serveru? Treba nejaky "Memory leak", zahlceni serveru, atd?
> Kdyz si treba vemu 600000 exceptionu diky duplicite zaznamu.
Ahoj,
Nechci delat chytryho, ale jedna se jen o doplneni o nove zaznamy ?
Je mi divne proc vstupni soubor obsahuje takove mnozstvi nepotrebnych
dat a jestli by nebylo v tom pripade lepsi nejprve z FB vyexportovat
pouze KLIC, podle tohoto klice na klientovi odstranit nepotrebne radky,
a pak teprve ten zbytek cpat do FB.
Vyhledavat az pri "akci" ze tohle zrovna nechci je divne a zasadni chybu
bych videl prave v existenci tech nadbytecnych vet ve vstupnim souboru.
Ludek
komponenta na kalendar
[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 5.10.2004 22:42:45
Pokud ti jde jen o jednoduchy kalendar, kde ke dni mohu dopsat nejake
poznamky, tak zkombinuj komponentu Calendar ze Samples z Delphi s nejakym
TMemo.
Pokud ale potrebujes neco "lepsiho", tak to resi napriklad TurboPower Visual
PlanIt. Uz nejakou dobu to roste na sourceforge.net. Mam ale pocit, ze se to
od konce TurboPoweru moc nepohnulo.
Jiri Kratochvil wrote:
> Potreboval bych poradit jestli existuje nejaka komponenta ktera
> zobrazi kalendar a pujde k jednotlivym dnum pripsat poznamky.mssql a order by
[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 5.10.2004 18:26:27
ahoj,
.. order by A asc, B desc
Vice napriklad na:
http://www.dbsvet(tec)cz/view.php?cisloclanku=2004030102
http://www.dbsvet(tec)cz/view.php?cisloclanku=2004031501
KER
mssql a order by
[*] Milan Schembera <four(zv)4squares(tec)net> - 5.10.2004 18:06:26
ORDER BY A ASC, B DESC
4> -----Original Message-----
4> From: delphi-l-owner(zv)clexpert(tec)cz
4> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Matejcek Petr
4> Sent: Friday, November 05, 2004 6:04 PM
4> To: delphi-l(zv)clexpert(tec)cz
4> Subject: mssql a order by
4>
4>
4> DD,
4>
4> potrebuju seradit tabulku vzesupne podle A a pak
4> sestupne podle B
4>
4> order by A, B
4>
4> poradi nekdo jaky je na to prikaz ?
4>
4> diky PM
4>
4>
4>mssql a order by
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 5.10.2004 18:04:25
DD,
potrebuju seradit tabulku vzesupne podle A a pak sestupne podle B
order by A, B
poradi nekdo jaky je na to prikaz ?
diky PM
Windows Sockets - nekolik otazek
[*] Jakub Cermak <cermiforum(zv)centrum(tec)cz> - 5.10.2004 17:44:24
Mam nekolik otazek z %sub%:
1. Existuje neco jako "timeoutovana" fce recv() (pro TCP spojeni)? Proste
aby po uplynuti urcite doby skoncila i kdyz neprijdou zadna data.
2. Jak se pracuje s UDP sockety? Zkousel jsem poslat data z 1 UDP socketu na
2. a system hlasil odeslani ale nic se neprijalo.
Zdroj prijemce (je to v threadu):procedure TUDPServerThread.Execute();
var s:integer;
addr:sockaddr_in;
buf:pchar;
recv_size:integer;
const buflen=1000;
begin
s:=socket(AF_INET,SOCK_DGRAM,IPPROTO_UDP);
if s = -1 then
LastErrorToODS; // Neco jako RaiseLastOSError, akorat nedela vyjimku a
chybu vypise pres Output debug string
addr.sin_family:=AF_INET;
addr.sin_port:=SwapEndianWord(666);
addr.sin_addr.S_addr:=0;
if bind(s,addr,sizeof(addr)) = socket_error then
LastErrorToODS;
getmem(buf,buflen);
while not terminated do
begin
buf:='';
recv_size:=recv(s,buf,buflen,0);
if buf^ <> #0 then
OutputDebugString(pchar(format('MSG from %s: %s',['',buf])));
end;
end;
Zdroj. odesilatele:
procedure TForm1.Button2Click(Sender: TObject);
var s:integer;
buf:pchar;
recv_size:integer;
addr:sockaddr_in;
const buflen=1000;
begin
s:=socket(AF_INET,SOCK_DGRAM,IPPROTO_UDP);
addr.sin_family:=AF_INET;
addr.sin_port:=SwapEndianWord(666);
addr.sin_addr.S_addr:=inet_addr('127.0.0.1');
if connect(s,addr,sizeof(addr)) = -1 then
LastErrorToODS;
buf:='1234';
recv_size:=send(s,buf,5,0);
if recv_size < 1 then
LastErrorToODS;
end;
Vytvoreni vsech socketu probehne bez problemu.
Windows XP SP2, Delphi 6 Ent.
Jakub Cermak
ja.cermi(zv)centrum(tec)cz
ICQ 159971304
http://cermi.wz(tec)cz
Dynamicke pole 2.
[*] delphin(zv)post(tec)cz - 5.10.2004 16:38:19
> TRec = packed record
> Index: integer;
> Nazev: string;
> Popis: string;
> end;
>
> TPole = packed array of TRec;
Dynamicke pole lze jednoduse cele dealokovat pomoci Pole:=nil; Delphi
samo zajisti korektni uvolneni stringu z pole.
Invalid pointer operation pri uvolnovani muze zpusobit bud chybny index pri
predchozi praci s polem nebo libovolna jina chybna i zdanlive nesouvisejici
prace s pameti.Dynamicke pole 2.
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 5.10.2004 16:28:18
A zkusil jsi zavolat na kazdy record Finalize?
David Lebeda napsal(a):
> Ahoj,
>
> Na konci programu delam to, ze cele to dynamicke pole projedu
> for i := 0 to high(Pole) do
> begin
> Pole[i].Nazev := '';
> Pole[i].Popis := '';
> end;
> SetLength(Pole, 0); //dealokace
>
> I presto nekdy, zridka a nepravidelne, v prubehu vyse uvedeneho cyklu vznikne
> Invalid pointer operation. Uz opravdu nevim, kde by mohla byt chyba. Jedine, co me jeste napada, je misto ansistringu pouzit v TRec PChar a pri plneni vzdy volat StrAlloc. Nebo tam nekde chyba je?
>
> David Lebeda
>
>
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
nacteni vlastniho kurzoru
[*] MISHAK <gmishka(zv)seznam(tec)cz> - 5.10.2004 16:10:17
> Hm... a mas naincludovany soubor s tim resourcem? Nejak {$R MYCURSORS.RES}
> nebo podobne, ted se nepodivam. A jeste tam nejakou roli hraji mala/velka
> pismena.
> > potrebuju do aplikace dostat vlastni kurzor pro mys. podle helpu by melo
> > stacit toto:
> >
> > Screen.Cursors[crBigCross]:=LoadCursor(HInstance, 'CRBIGCROSS');
> > pbDrawBox.Cursor:=crBigCross;
> >
> > ale kde nic tu nic. co delam spatne?
> > crBigCross je moje konstanta.
ne crBigCross ukazuje jen na prvek pole v Screen.Cursors
spravne prirazeni je pbDrawBox.Cursor:=Screen.Cursors[crBigCross];
nebo crBigCross definujte jako promenou HCURSOR nebo tak nejak
const crBigCursor: HCursor = nejake_cislo;
crBigCursor := Screen.Cursor[crBigCursor];
PS v RES nehraji roli velka nebo mala pismena, ale je zvyk to psat velkima (co kdyby.. :-)
PS pane brante zkuste si udelat hezci stranky PLZ
MISHAK[17] >> http://mishak.wz(tec)cz >> gmishka(zv)seznam(tec)cz
Import velkeho mnozstvi dat do FB
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 5.10.2004 16:06:16
Haj hou!
On 5 Nov 2004 at 13:50, Dalibor wrote:
> A nebude to spusobovat nejaky problem primo na Firebird serveru?
> Treba nejaky "Memory leak", zahlceni serveru, atd?
> Kdyz si treba vemu 600000 exceptionu diky duplicite zaznamu.
Ne, nebude. Pokud by se skutecne ukazal nejaky memory leak, pak je
traba ho nahlasit a my to opravime.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Dynamicke pole 2.
[*] Ing. Petr Sikola <developer(zv)efg(tec)cz> - 5.10.2004 15:52:15
ja bych pro zacatek pouzil
for i := Low(Pole) to high(Pole) do
treba to pomuze :)))
> for i := 0 to high(Pole) do
> begin
> Pole[i].Nazev := '';
> Pole[i].Popis := '';
> end;
Petr Sikola
Dynamicke pole 2.
[*] David Lebeda <david.lebeda(zv)seznam(tec)cz> - 5.10.2004 15:46:15
Ahoj,
stale se nemohu zbavit problemu s dealokaci dynamickeho pole.
Mam tyto deklarace.
TRec = packed record
Index: integer;
Nazev: string;
Popis: string;
end;
TPole = packed array of TRec;
V programu Vytvorim MemoryStream a naplnim jej daty ze zdroje dat. MemoryStream pak obsahuje za sebou naskladane takoveto reocrdy:
TRec1 = packed record
Index: integer;
Nazev: string[30];
Popis: string[50];
end;
Ja cely Memory stream prolezu a naplnim z nej dynamickou promennou typu TPole.
V cyklu pekne priradim Index do Indexu, Nazev do Nazvu, Popis do Popisu. Nasledne se memory stream uvolni. Vysledkem je, ze velikost zabrane pameti je pak daleko mensi nez byla delka memory streamu, protoze ansistringy se naalokuji jen v delce odpovidajici skutecnemu obsahu retezcu (jen malo retezcu ma delku 30 resp. 50 znaku), takze budovat TPole z TRec1 misto z TRec by bylo znacne plytvani.
Na konci programu delam to, ze cele to dynamicke pole projedu
for i := 0 to high(Pole) do
begin
Pole[i].Nazev := '';
Pole[i].Popis := '';
end;
SetLength(Pole, 0); //dealokace
I presto nekdy, zridka a nepravidelne, v prubehu vyse uvedeneho cyklu vznikne
Invalid pointer operation. Uz opravdu nevim, kde by mohla byt chyba. Jedine, co me jeste napada, je misto ansistringu pouzit v TRec PChar a pri plneni vzdy volat StrAlloc. Nebo tam nekde chyba je?
David Lebeda
Import velkeho mnozstvi dat do FB
[*] Richard Kejval <kejval.delphi(zv)centrum(tec)cz> - 5.10.2004 15:14:12
----- Original Message -----
From: "Dalibor" <dalibor(zv)torola(tec)cz>> Ahoj, casto importuju do DB Firebirdu velke mnostvi zaznamu. Radove stovky
> tisic.
> V soucasne dobe na to pouzivam dve FibQuery.
> Jedna, ktera zjistuje jestli dany zaznam existuje a druha Query, ktera je
> parametricka a udaje uklada do databaze.
>
> Jenze to trva hodne dlouho.
Mame udalanou datovou pumpu, ktera presouva data z 1 nebo vice zdrojovych
fdb
do 1 cilove fdb. Data se pohybuji v 10 mil. zaznamu.
Delame to 2 zpusoby:
1. V kazdem pripade napumpuji data bez ohledu na vazby: (rychlejsi varianta)
- obnova fdb ze zalohy + Deactivate Indices = true (jediny zpusob jak
vypnout
primarni a cizi klice)
- programove vypnuti vsech triggeru
- velmi rychly prenos dat
- programove zapnuti triggeru
- postupne programove zapnuti indexu a zapsani do logu tech ktere z
nejakych
vazebnich duvodu nejdou zapnout
- pak se musi pripadne rucne opravit data a indexy pozapinat => cena za
rychlost
2. Ponechani zapnuti indexu: (pomalejsi varianta)
- pumpovani dat a vyhazovani do logu SQL prikazu, ktere hodi pri zapisu
chybu
Zvazeni, ktery postup se pouzije uz zavisi na konkretnim posouzeni situace.
Variantu 1 vetsinou pouzivame, kdyz prechazime na jinou strukturu databaze
V kazdem pripade pro nacitani dat pouzivame TIBQuery, pozor s parametrem
UniDirectional=true, jinak se vsechny zaznamy budou nacitat do pameti, coz u
velkych tabulek, znamenalo az pad systemu. A na zapis uz pouzivame pouze
TIBSQL
Asi to nebude presne to co potrebujes, ale treba Ti to pomuze.
S pozdravem
ing. Richard Kejval
mobil: 602477679
http://www.icsoftware(tec)cz