Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
AdoConnection dialog
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 16.1.2002 11:30:36
Ahoj,
prosim jak se da vyvolat programove dialog na vytvoreni
Connection stringu pro ADO?
Diky
S pranim hezkeho dne Radek
AdoConnection dialog
[*] virag <ivan.virag(zv)aliatel(tec)cz> - 16.1.2002 12:08:29
Zdrav�m
v ADODB unit je funkce
PromptDataSource(ParentHandle: THandle; InitialString: WideString):
WideString.
takze
procedure TForm1.Button1Click(Sender: TObject);
var s : WideString;
begin
s := PromptDataSource(Handle,s);
end;
Ivan Virag
> -----Original Message-----
> From: Radek Cervinka [mailto:radek.cervinka(zv)centrum(tec)cz]
> Sent: 16. ledna 2002 11:31
> To: delphi-l(zv)clexpert(tec)cz
> Subject: AdoConnection dialog
>
>
> Ahoj,
> prosim jak se da vyvolat programove dialog na vytvoreni
> Connection stringu pro ADO?
> Diky
> S pranim hezkeho dne Radek
> Array[0..x] of TMyType
[*] Pa�out <pazout(zv)horolezci(tec)cz> - 16.1.2002 12:11:54
Da je nejakym zpusobem vytvorit Konstantni pole uzivatelskeho typu
(recordu)?
Neco jako:
type TMyType = record
a : string;
b : integer;
end;
const
C : array[0..0] of TMyType = (('a',2); //??syntaxe?? Pazout
Array[0..x] of TMyType
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 16.1.2002 12:20:16
----- Original Message -----
From: "Pa�out" <pazout(zv)horolezci(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, January 16, 2002 12:11 PM
Subject: Array[0..x] of TMyType
> Da je nejakym zpusobem vytvorit Konstantni pole uzivatelskeho typu
> (recordu)?
>
> Neco jako:
>
> type TMyType = record
> a : string;
> b : integer;
> end;
>
> const
> C : array[0..0] of TMyType = (('a',2); //??syntaxe??
>
>
const
C : array[0..1] of TMyType =
(
(
a: 'a';
b: 2
),
(
a: 'aaaa';
b: 2222
)
);
Pozn: Mozna bude nutne deklarovat Array[] jako novy pojmenovany typ
D. Toman
AdoConnection dialog
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 16.1.2002 12:23:05
Bylo to tu asi pred 14 dny:
V unite ADODB je funkce PromptDataSource(ParentHandle: THandle;
InitialString: WideString): WideString.
Pri zavolani se objevi stejny dialog jako pri nastaveni property
ADOConnection.ConnectionString
Martin Ben
> -----Puvodni zprava-----
> Od: Radek Cervinka [mailto:radek.cervinka(zv)centrum(tec)cz]
>
> Ahoj,
> prosim jak se da vyvolat programove dialog na vytvoreni
> Connection stringu pro ADO?Array[0..x] of TMyType
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 16.1.2002 12:27:02
No z hlavy bych rekl, ze by to mohlo byt asi takto (nezkousel jsem to, takze
to nemuzu s jistotou tvrdit ;)) :
type TMyType = record
a : string;
b : integer;
end;
const
C = array[0..10] of TMyType = (('a',2), ...., ('i', 1)); // ikdyz nevim,
jestli to vezme ty parametry spravne :-/
var
pole : C;
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
http://www.cometsystem(tec)cz
ICQ# : 119119215
> Da je nejakym zpusobem vytvorit Konstantni pole uzivatelskeho typu
> (recordu)?
>
> Neco jako:
>
> type TMyType = record
> a : string;
> b : integer;
> end;
>
> const
> C : array[0..0] of TMyType = (('a',2); //??syntaxe??
IB/FB table properities - vyreseno
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 16.1.2002 12:35:57
Ahoj,
rad bych podekoval vsem, kteri mi pomohli a pokud to nekoho
zajima, tak tento select mi poskytuje dostatecne udaje o tabulce
SELECT
F.RDB$FIELD_POSITION,
F.RDB$FIELD_NAME,
F.RDB$FIELD_SOURCE,
T.RDB$TYPE_NAME,
D.RDB$FIELD_TYPE,
F.RDB$COLLATION_ID,
D.RDB$FIELD_LENGTH,
D.RDB$FIELD_SCALE,D.RDB$NULL_FLAG,
D.RDB$CHARACTER_LENGTH,
D.RDB$CHARACTER_SET_ID
FROM RDB$RELATION_FIELDS F
LEFT OUTER JOIN RDB$FIELDS D
ON (D.RDB$FIELD_NAME=F.RDB$FIELD_SOURCE)
LEFT OUTER JOIN RDB$TYPES T
ON (D.RDB$FIELD_TYPE = T.RDB$TYPE)
WHERE (T.RDB$FIELD_NAME = 'RDB$FIELD_TYPE') AND
(F.RDB$RELATION_NAME='My_Table'')
ORDER BY RDB$FIELD_POSITION
Jarek Uher
On 15 Jan 2002, at 18:34, Rado Benc wrote:
> Nazdar,
>
> > prosim o radu jak ziskat %subj%, tak jak se zobrazi v IBConsole v
> > Properities for: MOJE_TABULKA na zalozce Properities (Name, Type,
> > Character Set, Collation, Default Value, Allow Nulls) Nemohu to v
> > system. tabulkach najit. Nazvy vsech tabulek databaze vybrat umim.
>
> Nie je to uplne vsetko, ale pre inspiraciu:
>
> CREATE PROCEDURE "LIST_RELATIONS"
> RETURNS
> (
> "RELATION_NAME" VARCHAR(32) CHARACTER SET UNICODE_FSS,
> "FIELD_NAME" VARCHAR(32) CHARACTER SET UNICODE_FSS,
> "FIELD_TYPE" VARCHAR(32) CHARACTER SET UNICODE_FSS,
> "FIELD_DEFAULT" BLOB SUB_TYPE 0 SEGMENT SIZE 80
> )
> AS
> /**
> * Returns formated list of relations and their fields.
> */
> DECLARE VARIABLE FLD_LENGTH NUMERIC(9, 0);
> DECLARE VARIABLE FLD_SCALE NUMERIC(9, 0);
> DECLARE VARIABLE FLD_NULL NUMERIC(9, 0);
> BEGIN
> FOR SELECT
> R.RDB$RELATION_NAME,
> R.RDB$FIELD_NAME,
> F.RDB$FIELD_LENGTH,
> - F.RDB$FIELD_SCALE,
> F.RDB$NULL_FLAG,
> F.RDB$DEFAULT_SOURCE,
> T.RDB$TYPE_NAME
> FROM
> RDB$RELATION_FIELDS R
> LEFT OUTER JOIN RDB$FIELDS F
> ON (R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME)
> LEFT OUTER JOIN RDB$TYPES T
> ON (F.RDB$FIELD_TYPE = T.RDB$TYPE)
> WHERE (T.RDB$FIELD_NAME = 'RDB$FIELD_TYPE')
> ORDER BY R.RDB$RELATION_NAME,
> R.RDB$FIELD_POSITION
> INTO
> :RELATION_NAME,
> :FIELD_NAME,
> :FLD_LENGTH,
> :FLD_SCALE,
> :FLD_NULL,
> :FIELD_DEFAULT,
> :FIELD_TYPE
> DO
> BEGIN
> IF (:FIELD_TYPE = 'VARYING') THEN
> FIELD_TYPE =
> 'VARCHAR(' ||
> CAST(:FLD_LENGTH AS VARCHAR(3)) ||
> ')';
> IF (:FIELD_TYPE = 'LONG') THEN
> FIELD_TYPE = 'NUMERIC(9, 0)';
> IF (:FIELD_TYPE = 'DOUBLE') THEN
> FIELD_TYPE =
> 'NUMERIC(15, ' ||
> CAST(:FLD_SCALE AS VARCHAR(2)) ||
> ')';
> IF (:FLD_NULL = 1) THEN
> FIELD_TYPE =
> :FIELD_TYPE || ' NOT NULL';
> SUSPEND;
> END
> EXIT;
> END
>
> Potom:
>
> SELECT * FROM LIST_RELATIONS;
>
> HTH,
>
> Rado
PopupMenu u TCustomEdit
[*] Martin Kleiner <mkleiner(zv)seznam(tec)cz> - 16.1.2002 12:40:35
Potrebuji zjistit jak pridat dalsi MenuItem do systemoveho PopupMenu, ktere
je
v TEdit, TMemo atd.. (standardne je tam clipboard).
Zkousim to pres API AppendMenu ale k tomu potrebuji handle a ten nemuzu
zjistit.
API GetMenu(Memo1.Handle) mi vraci handle na memo1 a API
GetMenu(Memo1.popupmenu.Handle) mi vraci NULL.
Diky Martin
ADOConnection - problem pri otvarani TADOQuery
[*] Miroslav Hro��o <hrossik(zv)nrsys.sk> - 16.1.2002 13:04:30
Dobry den,
Mam Takyto problem :
Mam JEDEN TAdoConnection (Cez ktory sa pripajam na MSSQL) a na neho sa
pripaja niekolko TADOQuery (Z roznych objectov).
Niektore objekty maju az 5 TADOQuery. A v jednom objekte otvaram dva
TADOQuery vo samostatnych Thredoch, ktore spustam naraz, ich vysledkom su
dva Selecty, teda vtatia mi recordset. Cize sa moze stat ze Windows spravi
open sucasne.
No a niekedy sa mi stane ze ked spravim na niektrom z nich OPEN tak dostanem
hlasku "Connection is busy with results for another Command".
Predpokladam ze mi ju posle ten ADOConnection. Zaujimave je ze sa to stane
vadsinou pri otvarani TADOQuery v Threde.
Vsetky TadoQuery su nastavene - CursorType = ctKeySet.
Kde moze byt problem ?
resp ako riesit situaciu ked potrebujem sucasne otvorit napr. 2 TAdoQuery
Pouzivam :
WIN2000, D5Ent, ADOExpres, D5Ent Servis pack 1, ADO servis pack 2, MSSQL2000
Miro.Predani parametru do metody jineho formulare z dyn
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 16.1.2002 13:37:34
Ahoj,
mam jednoduchou aplikaci, v ni formular Form1. Pri startu nactu balik a z
nej vytvorim dynamicky formular DynForm1. Zobrazim jej, potud to jde dobre.
Nyni bych potreboval z tohoto zobrazeneho formulare DynForm1 zavolat
(published) metodu hlavniho formulare Form1.
Jak tam ale poslu parametr, tak Out of memory nebo jina chyba, v nejlepsim
pripade nesmysly. Problem delaji jen parametry a jen z dynamickeho
formulare. Kdyz totez udelam pres dva "staticke" formulare, funguje to
dobre. Mate nekdo nejaky napad?
Procedura v hlavnim formulari:
published
procedure Hello(a:String);
TForm1.procedure Hello(a:String);
begin
ShowMessage('Nacteno'+a);
end;
Volani z dynamickeho formulare:
var
o: TObject;
p: procedure(a:String);
begin
o := Application.FindComponent('Form1');
if (o<>nil) then
begin
p := o.MethodAddress('Hello');
if Assigned(p) then
begin
p3('Nejaky text');
end;
end;
Diky
Leos
Array[0..x] of TMyType
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 16.1.2002 14:05:46
Ahoj,
Pa�out wrote:
>
> Da je nejakym zpusobem vytvorit Konstantni pole uzivatelskeho typu
> (recordu)?
>
> Neco jako:
>
> type TMyType = record
> a : string;
> b : integer;
> end;
>
> const
> C : array[0..0] of TMyType = (('a',2); //??syntaxe??
C : array[0..1] of TMyType = ((a : 'a';b : 2),(a : 'aa';b : 222));
Vaclav Sazima
ADOConnection - problem pri otvarani TADOQuery
[*] Martinec <martin108(zv)post(tec)cz> - 16.1.2002 14:12:04
Kazdopadne by kazdy thread mel mit vlastni pripojeni na DB, napr.
type
TMyThread = class(TThread)
private
FADOConn: TADOConnection;
protected
procedure Execute; override;
public
TMyThread.Create(ConnStr: string);virtual;
...
end;
constructor TMyThread.Create(ADOConn: TADOConnection);
begin
inherited Create;
FADOConn := ADOConn;
...
end;
procedure TMyThread.Execute;
begin
FADOConn.Open;
...
end;
Martinec
> -----Puvodni zprava-----
> Od: Miroslav Hro��o [mailto:hrossik(zv)nrsys.sk]
> Predmet: ADOConnection - problem pri otvarani TADOQuery
>
> No a niekedy sa mi stane ze ked spravim na niektrom z nich
> OPEN tak dostanem
> hlasku "Connection is busy with results for another Command".
> Predpokladam ze mi ju posle ten ADOConnection. Zaujimave je
> ze sa to stane
> vadsinou pri otvarani TADOQuery v Threde.
---
V.I.P. Chat - DJ IM CYBER
16.01.2002 od 14:00 na http://chat.volny(tec)cz
CallbackProc jako metoda objektu
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 16.1.2002 14:21:13
Zdravim vsechny,
jde vubec neco takoveho ?
Mam nadeklarovano:
Tf_Main = class(TForm)
....
private
procedure SQLCallback......
end;
pak chci adresu teto procedury predat jedne funkci a kompilator na me krici:
Variable required.
S pozdravem
Milan Tome� [mailto:milan.tomes(zv)haida(tec)cz]DB na IB/FB a MS SQL - obecna metoda na provedeni
[*] Frantisek Sevcik <sevcik(zv)anexis(tec)cz> - 16.1.2002 14:35:58
> mam takovy problem (dneska mi to asi moc nezapaluje).
> Delam zakladni objekty pro nas IS a vzhledem k tomu, ze tento system
pobezi
> na MS SQL a IB je nutne vyresit na urovni tohoto objektu nejakou obecnou
> metodu, ktera dokaze provest zadany SQL dotaz s tim, ze si ona sama
interne
> rozlisi na jakem stroji bezi zrovna pripojena DB. Pro pripojeni na IB
budeme
> vyuzivat IB Objects a pro MS SQL ADO
>
Pro inspiraci doporucuji podivat se sem: www.techinsite.com.au
Frantisek Sevcik
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.314 / Virov� b�ze: 175 - datum vyd�n�: 11.1.2002
Velikost Checkboxu
[*] Pavel Krehula <pavel.krehula(zv)nlm(tec)cz> - 16.1.2002 14:40:21
Zdravim vsechny,
potreboval bych nejak zjistit rozmery checkboxu ( jen toho ctverecku )
Pavel
pavel.krehula(zv)nlm(tec)cz
ADOConnection - problem pri otvarani TADOQuery
[*] Martin �ajbik <cajbik(zv)sct.sk> - 16.1.2002 14:41:27
ADO nepouzivam ale v ODBCe v podobnych pripadoch pouzivam dynamicky kurzor
alebo SepareConnect (to vsak asi ADO nema). Skus teda pouzit dynamicky
kurzor (ctDynamic)
MarCaNT
----- Original Message -----
From: "Miroslav Hro��o" <hrossik(zv)nrsys.sk>
To: "DELPHI - L" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, January 16, 2002 1:04 PM
Subject: ADOConnection - problem pri otvarani TADOQuery
> Dobry den,
>
> Mam Takyto problem :
> Mam JEDEN TAdoConnection (Cez ktory sa pripajam na MSSQL) a na neho sa
> pripaja niekolko TADOQuery (Z roznych objectov).
> Niektore objekty maju az 5 TADOQuery. A v jednom objekte otvaram dva
> TADOQuery vo samostatnych Thredoch, ktore spustam naraz, ich vysledkom su
> dva Selecty, teda vtatia mi recordset. Cize sa moze stat ze Windows spravi
> open sucasne.
> No a niekedy sa mi stane ze ked spravim na niektrom z nich OPEN tak
dostanem
> hlasku "Connection is busy with results for another Command".
> Predpokladam ze mi ju posle ten ADOConnection. Zaujimave je ze sa to stane
> vadsinou pri otvarani TADOQuery v Threde.
> Vsetky TadoQuery su nastavene - CursorType = ctKeySet.
> Kde moze byt problem ?
> resp ako riesit situaciu ked potrebujem sucasne otvorit napr. 2 TAdoQuery
>
> Pouzivam :
> WIN2000, D5Ent, ADOExpres, D5Ent Servis pack 1, ADO servis pack 2,
MSSQL2000
>
> Miro.
>
>CallbackProc jako metoda objektu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 16.1.2002 14:58:01
> jde vubec neco takoveho ?
>
> Mam nadeklarovano:
>
> Tf_Main = class(TForm)
> ....
> private
> procedure SQLCallback......
> end;
>
> pak chci adresu teto procedury predat jedne funkci a
> kompilator na me krici:
> Variable required.
Mohlo by to ist, ale skus najprv poslat plnu deklaraciu tej metody, a tiez
plnu deklaraciu tej funkcie, ktorej chces predat jej adresu.
TOndrej
CallbackProc jako metoda objektu
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 16.1.2002 15:04:01
> > jde vubec neco takoveho ?
> >
> > Mam nadeklarovano:
> >
> > Tf_Main = class(TForm)
> > ....
> > private
> > procedure SQLCallback......
> > end;
> >
> > pak chci adresu teto procedury predat jedne funkci a
> > kompilator na me krici:
> > Variable required.
>
> Mohlo by to ist, ale skus najprv poslat plnu deklaraciu tej metody, a tiez
> plnu deklaraciu tej funkcie, ktorej chces predat jej adresu.
>
> TOndrej
type
TExecSQLCallbackProcStatus = (sqlsBeforeStartTransaction,
sqlsAfterStartTransaction,
sqlsBeforeCommitTransaction,
sqlsAfterCommitTransaction,
sqlsBeforeRollbackTransaction,
sqlsAfterRollbackTransaction,
sqlsBeforeOpenQuery, sqlsAfterOpenQuery,
sqlsBeforeCloseQuery, sqlsAfterCloseQuery,
sqlsBeforePrepareQuery,
sqlsAfterPrepareQuery);
TExecSQLCallbackProc = procedure (AStatus: TExecSQLCallbackProcStatus;
var AExit: boolean;
uData : DWord); stdcall;
function TGor3WinApplication.executeSQL(ASQLObj : TDataset; AParams:
TSQLParamsSet; ACallbackProc: Pointer; uData: DWord): boolean;
var
CallbackProc: TExecSQLCallbackProc;
AExit : boolean;
begin
Result := false;
Assert(Assigned(ASQLObj), 'Je nutno poedat ASQLObj !!!');
Assert(not ((sqlpOpenQuery in AParams) and (sqlpExecuteQuery in AParams)),
'Nelze poedat soueasni parametry sqlpOpenQuery a sqlpExecuteQuery !!!');
Assert(not ((sqlpCommitTransaction in AParams) and
(sqlpRollbackTransaction in AParams)), 'Nelze poedat soueasni parametry
sqlpCommitTransaction a sqlpRollbackTransaction !!!');
if ACallbackProc <> nil then
(zv)CallbackProc := ACallbackProc;
AExit := false;
case FDBEngine of
dbe_IB_6: begin
Assert(ASQLObj is TIBOQuery, 'ASQLObj mus� b�t typu TIBOQuery !!!');
if (sqlpStartTransaction in AParams) and
FIBTransaction.TransactionIsActive then
raise EG3Error.Create('Transakce je ji� otevoena !!!');
(ASQLObj as TIBOQuery).IB_Connection := FIBConnection;
(ASQLObj as TIBOQuery).IB_Transaction := FIBTransaction;
if sqlpStartTransaction in AParams then
begin
if Assigned(CallbackProc) then
begin
CallbackProc(sqlsBeforeStartTransaction, AExit, uData);
if AExit then
exit;
end;
FIBTransaction.StartTransaction;
if Assigned(CallbackProc) then
begin
CallbackProc(sqlsAfterStartTransaction, AExit, uData);
if AExit then
exit;
end;
end;
with ASQLObj as TIBOQuery do begin
if sqlpPrepareQuery in AParams then
begin
if Assigned(CallbackProc) then
begin
CallbackProc(sqlsBeforePrepareQuery, AExit, uData);
if AExit then
exit;
end;
Prepare;
if Assigned(CallbackProc) then
begin
CallbackProc(sqlsAfterPrepareQuery, AExit, uData);
if AExit then
exit;
end;
end;
if Assigned(CallbackProc) then
begin
CallbackProc(sqlsBeforeOpenQuery, AExit, uData);
if AExit then
exit;
end;
Open;
if Assigned(CallbackProc) then
begin
CallbackProc(sqlsAfterOpenQuery, AExit, uData);
if AExit then
exit;
end;
if sqlpExecuteQuery in AParams then
begin
if Assigned(CallbackProc) then
begin
CallbackProc(sqlsBeforeCloseQuery, AExit, uData);
if AExit then
exit;
end;
Close;
if Assigned(CallbackProc) then
begin
CallbackProc(sqlsAfterCloseQuery, AExit, uData);
if AExit then
exit;
end;
end;
end;
if sqlpCommitTransaction in AParams then
begin
if Assigned(CallbackProc) then
begin
CallbackProc(sqlsBeforeCommitTransaction, AExit, uData);
if AExit then
exit;
end;
FIBTransaction.Commit;
if Assigned(CallbackProc) then
begin
CallbackProc(sqlsAfterCommitTransaction, AExit, uData);
if AExit then
exit;
end;
end;
if sqlpRollbackTransaction in AParams then
begin
if Assigned(CallbackProc) then
begin
CallbackProc(sqlsBeforeRollbackTransaction, AExit, uData);
if AExit then
exit;
end;
FIBTransaction.Rollback;
if Assigned(CallbackProc) then
begin
CallbackProc(sqlsAfterRollbackTransaction, AExit, uData);
if AExit then
exit;
end;
end;
Result := true;
end;
// dbe_MSSQL_2000: Assert(ASQLObj is TQuery, 'ASQLObj mus� b�t typu
TQuery !!!');
end;
end;
S pozdravem
Milan Tome� [mailto:milan.tomes(zv)haida(tec)cz]CVS (pro stazeni ibconsole)
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 16.1.2002 15:26:33
<color><param>7F00,0000,0000</param>Haj hou!<color><param>0100,0100,0100</param>On 16 Jan 2002, at 10:03, Petr Palicka wrote:<color><param>7F00,0000,0000</param><FontFamily><param>Arial</param>> na sf je nejaky takovyto retezec:
> cvs
> -d:pserver:anonymous(zv)cvs.IBConsole.sourceforge.net:/cvsroot/ibconsole
> login
</color><FontFamily><param>Arial CE</param>To je prikaz pro radkovy CVS. U WinCVS se zadava v menu Admin
-> Preferences do kolonky CVSROOT, tedy jen nasledujici cast
<color><param>7F00,0000,0000</param><FontFamily><param>Arial</param>anonymous(zv)cvs.IBConsole.sourceforge.net:/cvsroot/ibconsole
</color><FontFamily><param>Arial CE</param>pak je treba vybrat autentizaci pres "passwd" soubor na cvs
serveru. Dobre je take nastavit kompresi prenosu na zalozce
Globals tehoz dialogu, nejlepe na hodnotu 3 (optimalni).
Jinak je treba davat pozor na mala a velka pismena. Protoze je
CVS ze sveta Unixu, tak na tom zalezi, a moc.
Pak uz je mozne jen vybrat Admin -> Login a na dotaz na heslo
nezadavat nic. A pak Create -> Checkout module a zadat
ibconsole do jmena modulu a vybrat kam se ma ulozit.
<color><param>7F00,0000,0000</param><FontFamily><param>Arial</param>
> zkousel jsem to i v holem cvs
> (to je super vec, zadna instalace, jenom jedno exe ;)
>
> ale vyhodi mi to:
> cvs login: failed to open P:\/.cvspass for reading: No such file or
> directory
> cvs [login aborted]: fatal error: exiting
>
> muze to byt tim, ze jsem za M$Proxy s NTLM autorizaci?</color><FontFamily><param>Arial CE</param>Mozne to je, i kdyz ted z hlavy nevim na jakem portu CVS pracuje.
Ale ja bych spise sazel na mala/velka pismena. Podle me jsou
vsude mala, tedy
anonymous(zv)cvs.ibconsole.sourceforge.net:/cvsroot/ibconsole
Pokud to nezabere, tak je to ta proxy :-) a pak je treba nastavit jeji
parametry v panel Proxy dialogu Admin -> Preferences.
S pozdravem
<nofill>
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
CVS (pro stazeni ibconsole)
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 16.1.2002 15:29:09
> Jinak je treba davat pozor na mala a velka pismena.
huraaaa, bylo to tim ;)
no posledni problem je, ze je to delany pod D6 a ja mam D5.
cozpak o to, tech par direktiv vyhazim atp., ale nejvetsi
problem dela konec radku. je tam LF, a kompilator
zarve, ze mam delsi radek nez 1023 znaku a vodchod.
ale dik, todle uz nejak zvladnu, spis je to varovani
ostatnim, aby tusili co je ceka :o]
dekuji PeC(zv)Visiaci "connect" na Windows NT
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 16.1.2002 15:57:46
Ahoj,
v programe pouzivam funkciu WNetAddConnection2 na zdielanie
sietovych zdrojov, ktore po skonceni programu uvolnujem
cez WNetCancelConnection2.
U Windows 9x to funguje bez problemov. Ak vsak program bezi
na Windows NT 4.0, tak po jeho skonceni ako keby ostal
namapovany zdroj neuvolneny, takze pri opatovnom spusteni
programu WNetAddConnection2 stale vracia chybu,
az kym na zdielanej stanici manualne (cez NetWatch)
nezhodim tento "visiaci" conect.
Nestretol sa s tym uz niekto?
Za pripadnu pomoc - vdaka.
Vlkovic
WIN98 a WINNT versus DLL
[*] Ing. Vladim�r R��i�ka������rFv("��� - 16.1.2002 16:04:51
Zdarec
v D4 tvorim aplikaci, ktera komunikuje s jednim zarizenim pres TCP/IP.
Potrebuju k teto komunikaci ctyri dll. Pokud kompilat pustim na WIN98, tak
fse maka jak ma, ale pri pokusu spustit program v NT mi jenom program nahodi
hlasku "Nelze najit knihovnu DLL Commdll na zadane ceste ... " no a tedka
tam vypise cestu odkud byl program spusten a cesty do systemovych adresaru.
Nevi nekdo co se deje ? A hlavne co s tim ?
Upresnuji, ze DLL byly puvodne psana pro C++ a nejde s nima nic delat, byly
soucasti SDK.
A co to asi udela ve Win2k nebo WIN XP ?
Predem diky
Vladimir, staly dodavatel dotazu
CallbackProc jako metoda objektu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 16.1.2002 16:06:55
Ahoj, nie som si isty, ci som to pochopil spravne, takze mozno to nie je to,
co chces:
type
TExecSQLCallbackProcStatus = (sqlsBeforeStartTransaction,
sqlsAfterStartTransaction, sqlsBeforeCommitTransaction,
sqlsAfterCommitTransaction, sqlsBeforeRollbackTransaction,
sqlsAfterRollbackTransaction, sqlsBeforeOpenQuery,
sqlsAfterOpenQuery, sqlsBeforeCloseQuery, sqlsAfterCloseQuery,
sqlsBeforePrepareQuery, sqlsAfterPrepareQuery);
TExecSQLCallbackProc = procedure(AStatus: TExecSQLCallbackProcStatus; var
AExit: boolean; uData : DWord); stdcall;
TExecSQLCallbackMethod = procedure(AStatus: TExecSQLCallbackProcStatus;
var AExit: boolean; uData : DWord) of object;
stdcall;
TSQLParamsSet = Pointer; // neposlal si tento typ
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
function CallItWithMethod(ASQLObj: TDataSet; AParams: TSQLParamsSet;
ACallbackMethod: TExecSQLCallbackMethod; uData: DWORD): Boolean;
function CallItWithProc(ASQLObj: TDataSet; AParams: TSQLParamsSet;
ACallbackProc: TExecSQLCallbackProc; uData: DWORD): Boolean;
function ExecuteSQL(ASQLObj: TDataset; AParams: TSQLParamsSet;
ACallbackProc: TExecSQLCallbackProc; uData: DWord): Boolean;
procedure TestMethod(AStatus: TExecSQLCallbackProcStatus;
var AExit: Boolean; uData: DWORD); stdcall;
public
end;
var
Form1: TForm1;
implementation
uses
TypInfo;
{$R *.dfm}
// priklad volania s metodou namiesto procedury, podobne ako v
SysUtils.TLanguages.Create
function TForm1.CallItWithMethod(ASQLObj: TDataSet; AParams: TSQLParamsSet;
ACallbackMethod: TExecSQLCallbackMethod; uData: DWORD): Boolean;
type
TCallbackThunk = packed record
POPEDX: Byte;
MOVEAX: Byte;
SelfPtr: Pointer;
PUSHEAX: Byte;
PUSHEDX: Byte;
JMP: Byte;
JmpOffset: Integer;
end;
var
Callback: TCallbackThunk;
begin
Callback.POPEDX := $5A;
Callback.MOVEAX := $B8;
Callback.SelfPtr := Self;
Callback.PUSHEAX := $50;
Callback.PUSHEDX := $52;
Callback.JMP := $E9;
Callback.JmpOffset := Integer((zv)ACallbackMethod) - Integer((zv)Callback.JMP) -
5;
Result := ExecuteSQL(ASQLObj, AParams, TExecSQLCallbackProc((zv)Callback),
uData);
end;
// priklad volania s procedurou
function TForm1.CallItWithProc(ASQLObj: TDataSet; AParams: TSQLParamsSet;
ACallbackProc: TExecSQLCallbackProc; uData: DWORD): Boolean;
begin
Result := ExecuteSQL(ASQLObj, AParams, ACallbackProc, uData);
end;
function TForm1.ExecuteSQL(ASQLObj: TDataset; AParams: TSQLParamsSet;
ACallbackProc: TExecSQLCallbackProc; uData: DWord): Boolean;
var
DoExit: Boolean;
begin
Result := False;
DoExit := False;
if Assigned(ACallbackProc) then
ACallbackProc(sqlsBeforeStartTransaction, DoExit, uData);
// start transaction
ACallbackProc(sqlsAfterStartTransaction, DoExit, uData);
try
if Assigned(ACallbackProc) then
ACallbackProc(sqlsBeforePrepareQuery, DoExit, uData);
// prepare query
if Assigned(ACallbackProc) then
ACallbackProc(sqlsAfterPrepareQuery, DoExit, uData);
if Assigned(ACallbackProc) then
ACallbackProc(sqlsBeforeOpenQuery, DoExit, uData);
// open query
if Assigned(ACallbackProc) then
ACallbackProc(sqlsAfterOpenQuery, DoExit, uData);
// exec query
if Assigned(ACallbackProc) then
ACallbackProc(sqlsBeforeCloseQuery, DoExit, uData);
// close query
if Assigned(ACallbackProc) then
ACallBackProc(sqlsAfterCloseQuery, DoExit, uData);
if Assigned(ACallbackProc) then
ACallbackProc(sqlsBeforeCommitTransaction, DoExit, uData);
// commit
if Assigned(ACallbackProc) then
ACallbackProc(sqlsAfterCommitTransaction, DoExit, uData);
except
if Assigned(ACallbackProc) then
ACallbackProc(sqlsBeforeRollbackTransaction, DoExit, uData);
// rollback
if Assigned(ACallbackProc) then
ACallbackProc(sqlsAfterRollbackTransaction, DoExit, uData);
raise;
end;
end;
const
BoolStrings: array[Boolean] of string = ('False', 'True');
procedure TestProc(AStatus: TExecSQLCallbackProcStatus; var AExit: boolean;
uData : DWord); stdcall;
begin
ShowMessage(Format('TestProc: AStatus = %s, AExit = %s, uData = %d',
[GetEnumName(TypeInfo(TExecSQLCallbackProcStatus), Integer(AStatus)),
BoolStrings[AExit], uData]));
end;
procedure TForm1.TestMethod(AStatus: TExecSQLCallbackProcStatus;
var AExit: Boolean; uData: DWORD); stdcall;
begin
ShowMessage(Format('TestMethod: AStatus = %s, AExit = %s, uData = %d',
[GetEnumName(TypeInfo(TExecSQLCallbackProcStatus), Integer(AStatus)),
BoolStrings[AExit], uData]));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CallItWithProc(nil, nil, TestProc, 0);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
CallItWithMethod(nil, nil, TestMethod, 0);
end;
HTH
TOndrej
CVS (pro stazeni ibconsole)
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 16.1.2002 16:16:57
To je divny, ja pouzivam WinCVS a mam tam CRLF.
LF tam je pri exportu (checkoutu) na Linuxu.
Slavek
> no posledni problem je, ze je to delany pod D6 a ja mam D5.
> cozpak o to, tech par direktiv vyhazim atp., ale nejvetsi
> problem dela konec radku. je tam LF, a kompilator
> zarve, ze mam delsi radek nez 1023 znaku a vodchod.
>
> ale dik, todle uz nejak zvladnu, spis je to varovani
> ostatnim, aby tusili co je ceka :o]
>
> dekuji PeC(zv)CVS (pro stazeni ibconsole)
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 16.1.2002 16:19:16
Haj hou!
On 16 Jan 2002, at 15:29, Petr Palicka wrote:
> nejvetsi problem dela konec radku. je tam LF, a kompilator zarve, ze
> mam delsi radek nez 1023 znaku a vodchod.
CVS ma pruzny system ukonceni radku (umi samo konvertovat).
WinCVS by melo spravne nastavit ukonceni radku dle potreb
Windows, u radkoveho si nejsem jist, zrejme nejakym prepinacem.
Jinak pokud mas UltraEdit, tak ten umi mimo jine konvertovat z
UNIX na DOS a MAC :)
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Predani parametru do metody jineho formulare z dyn
[*] Martin �ajbik <cajbik(zv)sct.sk> - 16.1.2002 16:20:51
spravne by to mohlo byt nejako takto
var
o: TObject;
p: procedure(a:String) of object; // tu chybalo of object
begin
o := Application.FindComponent('Form1');
if (o<>nil) then
begin
(zv)p := o.MethodAddress('Hello'); // tu chybalo (zv)
if Assigned(p) then
begin
p('Nejaky text');
end;
end;
MarCaNT
----- Original Message -----
From: "Leos Urban" <Leos.Urban(zv)iol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, January 16, 2002 1:37 PM
Subject: Predani parametru do metody jineho formulare z dynamickeho
formulare
> Ahoj,
> mam jednoduchou aplikaci, v ni formular Form1. Pri startu nactu balik a z
> nej vytvorim dynamicky formular DynForm1. Zobrazim jej, potud to jde
dobre.
> Nyni bych potreboval z tohoto zobrazeneho formulare DynForm1 zavolat
> (published) metodu hlavniho formulare Form1.
>
> Jak tam ale poslu parametr, tak Out of memory nebo jina chyba, v nejlepsim
> pripade nesmysly. Problem delaji jen parametry a jen z dynamickeho
> formulare. Kdyz totez udelam pres dva "staticke" formulare, funguje to
> dobre. Mate nekdo nejaky napad?
>
> Procedura v hlavnim formulari:
>
> published
> procedure Hello(a:String);
> TForm1.procedure Hello(a:String);
> begin
> ShowMessage('Nacteno'+a);
> end;
>
> Volani z dynamickeho formulare:
> var
> o: TObject;
> p: procedure(a:String);
> begin
> o := Application.FindComponent('Form1');
> if (o<>nil) then
> begin
> p := o.MethodAddress('Hello');
> if Assigned(p) then
> begin
> p3('Nejaky text');
> end;
> end;
>
> Diky
> Leos
>
>Karta s porty LPT a COM
[*] Zden�k �t�p�nek�����^��ޏ����� - 16.1.2002 16:40:56
Zdravim
Mozna to bude mimo misu, ale nymyslim si, ze by se tyhle nove karty nejak
lisily od tech starsich, co se davaly do 386tek. Ty se vubec nijak
instalovat nemusely. Staci na ni jumperama nastavit 3e8, 2e8, 278 a strcit
ji do pocitace. BIOS mi ukazal, ze mam 4 COMy a 2 LPT. Windowsy pak nasly
dva COMy a jeden LPT. Tot naprosto vse.
Co se tyce nejakych ovladacu, zkousel ses podivat na webu vyrobce? Kdyby
neslo www.butterfly.com, www.butterfly.org apod., zkus ji najit podle
FCC-ID, ktere by na te karte melo byt napsane.
Zdenek
----- Original Message -----
Pot�ebuji pomoct. Koupil jsem si kartu, kter� obsahuje porty pro roz���en�
1x LPT a 2x COM. Tuto kartu se mi st�le ned�� nainstalovat do WIndows 98.
Pot�ebuji co nejd��ve poradit. V�robcem karty je podle krabice firma
BUTTERFLY. Pot�eboval bych bud nejake ovladace, nebo radu jak tuto kartu
nainstalovat. Windows tuto kartu nadetekuji a hl�s� ji jako PCI COMUNICATION
DEVICE co� bych bral jako spr�vn�, ale u� ji pot� nenaleznou ovlada�e.Karta s porty LPT a COM
[*] Zden�k �t�p�nek�����^��ޏ����� - 16.1.2002 16:46:17
Zdravim
> spravci souboru odebrat. Ale POZOR, potom je vhodne restartovat do
NOUZOVEHO
> REZIMU (F5 pri startu) a tam tu kartu odebtrat take ... Jinak se ji nemusi
> povest spravne nadetekovat... Tohle vetsinou zabere, i kdyz hlavne u
> zvukovek... ale kdo vi... :)
Pokud jsi nainstaloval kartu pomoci ovladacu od vyrobce (ne od MS), tak jsou
ve windows\inf\other (u W9x, nevim jak u NT). Pokud chces pri nove detekci
te karty zrusit pouziti tohoto ovladace, musis ho v te slozce smazat. Widle
se te pak znova zeptaji na cestu.
Zdenek
WIN98 a WINNT versus DLL
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 16.1.2002 16:49:52
From: "Ing. Vladim�r R��i�ka" <ruzicka(zv)digitus(tec)cz>
> hlasku "Nelze najit knihovnu DLL Commdll na zadane ceste ... "
> no a tedka tam vypise cestu odkud byl program spusten
> a cesty do systemovych adresaru.
>
> Nevi nekdo co se deje ? A hlavne co s tim ?
Pokud si to pamatuji, tak je to pravdepodobne tim, ze pri importu
neuvadis priponu .dll (na W9x se doplni sama, na NT ne)
takze napr.
const
MyDLL = 'mydll.dll';
procedure AAA; external MyDLL name 'AAA';
...OT: Karta s porty LPT a COM
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 16.1.2002 17:10:41
Ahoj,
asi jak ktere karty. Poridil jsem PCI kartu (Kouwell 220N-2) se dvema paralelnimi porty, chtel jsem ji rozchodit pod
Novellem 5. BIOS ty porty sam nenasel. Novell taky ne (ten se tedy asi ani nesnazil), ovladace do Novellu nejsou. Nastesti
k tomu davaji DOSovskou utilitku, ktera tu kartu rozpozna a v DOSu vyplni na spravna mista v pameti jejich adresy. Prvnimu
to pridelilo $278, druhemu to ponechalo neco jako $c800. Prestoze ta adresa je "trosku" nezvykla, DOS (a nasledne i Novell)
je spokojen, ze ma pro LPT2 a LPT3 adresu pridelenou, pouzije ji a funguje to. Bez te utilitky tam zadne adresy pridelene
nejsou (a konkretne na tom Novellu nevim, jestli se daji nekde nakonfigurovat rucne - nenasel jsem to).
Karel Rys
Zden�k �t�p�nek dne 16 Jan 2002 v 16:40:
> Mozna to bude mimo misu, ale nymyslim si, ze by se tyhle nove karty
> nejak lisily od tech starsich, co se davaly do 386tek. Ty se vubec
> nijak instalovat nemusely. Staci na ni jumperama nastavit 3e8, 2e8,
> 278 a strcit ji do pocitace. BIOS mi ukazal, ze mam 4 COMy a 2 LPT.
> Windowsy pak nasly dva COMy a jeden LPT. Tot naprosto vse.Vlastn� komponenta
[*] Martin Pe�ava - 16.1.2002 17:31:03
Ahojda Delphi-guruov� :),
r�d bych si ud�lal vlastn� komponentu na komunikaci via TCP/IP
sockety. N�co u� jsem d�lal v progr�mc�ch p��mo pro WinAPI, tak�e jak�
tak� tomu rozum�m. Ale n�jak mi nen� jasn�, co m�m d�t za handle okna,
kter� bude dost�vat zpr�vy. R�d bych ale, aby to bylo univerz�ln�;
pou�iteln� i t�eba v konzolov� aplikaci, kter� ��dn� okno nem�. To si
m�m vytvo�it n�jak� pr�zdn�? Nebo jak na to. P�edem d�k za v�echny
rady.
--
Martin mailto:jimx(zv)volny(tec)cz
OT
[*] <bukaj(zv)iol(tec)cz> - 16.1.2002 18:10:35
Dobry den,
omlouvam se za OT, ale nevim, kde jinde bych se zeptal. Shanis nejaky
program, ktery by umel projit HTML stranky v nejakem adresari a nahradit
<include> za opravdove soubory a vysledek nekam vyhodit. Tento vysledek by
se teprve daval na web. Urcite vite, co mam na mysli. Dik za pomoc.
Kuba
CVS (pro stazeni ibconsole)
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 16.1.2002 18:36:54
----- Original Message -----
From: "Petr Palicka" <petr.palicka(zv)atlas(tec)cz>
>no posledni problem je, ze je to delany pod D6 a ja mam D5.
Ahoj.
Probehni konferenci, videl jsem tady odkaz na nejaky konverzni program pro
prevody formularu a unit mezi D5 a D6.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
CVS (pro stazeni ibconsole)
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 16.1.2002 19:30:45
Hi,
tento program si muzes stahnout tady, ackoliv nejsem jeho autor
http://www.peprsoft(tec)cz/download/d625.zip
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
.. -----Original Message-----
..
.. >no posledni problem je, ze je to delany pod D6 a ja mam D5.
..
.. Ahoj.
.. Probehni konferenci, videl jsem tady odkaz na nejaky
.. konverzni program pro
.. prevody formularu a unit mezi D5 a D6.Pridanie Popupmenu do Gridu
[*] Roland Turcan <rolo(zv)sedas.sk> - 16.1.2002 20:15:24
Ahojte.
Toto mam v Create mojho Gridu, ale potrebujem spravit aby sa v pripade
existujuceho popupmenu doplnilo moje programovo vytvorene, ale asi to nemoze
byt v TDBGrid.Create lebo to nefunguje. Teraz ak mam priradene nejake
popupmenu v design mode, tak sa moj novy neprida a je aktivne to pridane v
navrhu. Ak nema v design mode definovane menu tak je moje viditelne a
funguje OK.
Ako ich zlucim dohromady ? //vytvorenie popup menu do gridu
if PopupMenu=nil then //ak nie je tam ziadne menu tak vytvor
begin
GridPopup:=TPopupMenu.Create(Self);
PopupMenu:=GridPopup;
end;
PMItem1:=TMenuItem.Create(Self);
PMItem1.Caption:=PMItem1Caption;
PMItem1.OnClick:=PopupMenuClick;
PMItem1.ShortCut:=ShortCut(Word('C'), [ssCtrl]);
PopupMenu.Items.Add(PMItem1);
PMItem2:=TMenuItem.Create(Self);
PMItem2.Caption:=PMItem2Caption;
PMItem2.ShortCut:=ShortCut(Word('C'), [ssCtrl,ssShift]);
PMItem2.OnClick:=PopupMenuClick;
PopupMenu.Items.Add(PMItem2);
Dakujem
S pozdravom
Roland Turcan - amatersky programator
D5Pro, Firebird 1.0, IBX4.62, Win2000Pro/CZ, Win98CZSE
jak na navratovou hodnotu
[*] Erik Salaj <winsoft(zv)stonline.sk> - 16.1.2002 20:58:15
> > pozri www.eiffel.com
>
> To som pozrel, ale ako som pisal referencie som tam nenasiel %-)
vlavo hore je "Who's Using It?"
http://www.eiffel.com/eiffel/projects/page.html
Erik
Licence Borland
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.1.2002 04:00:20
From: "Miroslav Ondrisek" <ondrisek(zv)atlas(tec)cz>
> Zajimave cteni...
> http://freshmeat.net/articles/view/369/
Open letter to the Borland developer community:
http://community.borland.com/article/0,1410,28243,00.html
Petr Vones
Problem s WM_COPYDATA
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.1.2002 04:03:40
From: "Ales Vasicek" <vasicek(zv)ecommerce(tec)cz>
> Nevite v cem by mohl byt problem? Popr. bych uvital nejaky odkaz na funkcni
> priklad v delphi.
Ahoj,
podivej se na unit JclAppInst z JCL, tam je to pouzito pro predavani dat mezi
instancemi aplikace (http://delphi-jedi.org/Jedi:CODELIBJCL)
Petr Vones
PopupMenu u TCustomEdit
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.1.2002 04:10:14
From: "Martin Kleiner" <mkleiner(zv)seznam(tec)cz>
> Potrebuji zjistit jak pridat dalsi MenuItem do systemoveho PopupMenu, ktere
> je v TEdit, TMemo atd.. (standardne je tam clipboard).
Ahoj,
myslim ze jednodusii bude si vytvorit menu nove s pouzitim prislusnych edit
akci.
Petr Vones
{$E} a pripona s vice nez 3mi znaky
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 17.1.2002 07:12:25
ahoj,
da se nejak docilit toho, aby se mi vysledna dll knihovna generovala
s priponou, ktera ma vice nez 3 znaky? Pri pouziti $E mi to vzdy
orizne, stejne tak i pri zadani do Project Options. Zkousel jsem to i
v uvozovkach, ze by to neslo?
Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1), D6 Ent
Win2k (SP2,Pre-SP3) a Win98 SE, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
______________________________________________________________________
Seznam Prace - Hledate praci nebo menite zamestnani? http://prace.seznam(tec)cz
Pridanie Popupmenu do Gridu
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 17.1.2002 07:36:31
> existujuceho popupmenu doplnilo moje programovo vytvorene, ale asi to nemoze
> byt v TDBGrid.Create lebo to nefunguje.
Ahoj
Musis to pridavat az po Loaded.
Preji hodne zdaru
Jirka
BorderStyle
[*] David Maly <david(zv)archa(tec)com> - 17.1.2002 10:00:50
Ahoj,
neporadite mi nekdo, jak nejjednoduseji udelat formular(dialog), ktery nema
zadne okraje ani caption (proste BorderStyle=bsNone), ale presto ho lze
zvetsovat a zmensovat ("tahat" za pravy dolni roh, pripadne za okraje)...
Diky David
David Maly
___________________________________________
email: david(zv)archa.com, tel.:0603 95 99 38
TClickEdit
[*] Rumcajs <prajz.rumcajs(zv)quick(tec)cz> - 17.1.2002 10:24:59
Servus ve spolek,
mam docela vazny problem; pouzivam v projektu
komponentu TClickEdit. Problem tkvi v tom, ze sem preinstaloval cely
pocitac. Vsechny baliky komponent sem mel zalohovane, az na tuto. Nevi
nekdo, kde ji muzu sehnat (bylo to soucasti nejakeho baliku komponent, ale
uz si nebzpominam, ktereho).
Specha, prosim, pomozte
Rumcajs
TClickEdit
[*] Kr�l Jirka jr. <admin(zv)printo(tec)cz> - 17.1.2002 10:32:42
::Nevi nekdo, kde ji muzu sehnat (bylo to soucasti nejakeho baliku
komponent, ale uz si ::nebzpominam, ktereho). Specha, prosim, pomozte
Rumcajs
tu to je: http://www.vglib.com/link-1.html
J.
P.S. Kdyz neco nevis, vi to www.google.com :-)OT
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 17.1.2002 10:35:17
----- Original Message -----
From: <bukaj(zv)iol(tec)cz>
> omlouvam se za OT, ale nevim, kde jinde bych se zeptal. Shanis nejaky
> program, ktery by umel projit HTML stranky v nejakem adresari a nahradit
> <include> za opravdove soubory a vysledek nekam vyhodit. Tento vysledek by
> se teprve daval na web. Urcite vite, co mam na mysli. Dik za pomoc.
Ahoj.
Co treba PHP http://www.php(tec)cz
Bud to muzes pouzit primo jako modul Apache nebo jako cgi k libovolnemu www
serveru.
Kdyz se podivas na http://www.builder(tec)cz/serial55.html
najdes tam serial o GTK+, coz je jakesi GUI pro PHP, pokud by to melo behat
mimo web.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
TClickEdit
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 17.1.2002 10:37:50
> pouzivam v projektu komponentu TClickEdit.
> Nevi nekdo, kde ji muzu sehnat
Ahoj, na Google som nasiel toto: http://www.vglib.com/link-1.html
HTH
TOndrej
MSSQL,ADO a delphi
[*] Bohdan Voska <bohdan(zv)softok(tec)cz> - 17.1.2002 10:44:35
Ahoj,
jde nejak zabezpecit, ze kdyz uzivatel resetne pocitac pri spustene
aplikaci, aby po restartu nebylo na serveru pres prikaz sp_who videt jeho
puvodni spojeni (tj aby doslo k odpojeni neexitujiciho spojeni)? Mohu to
nejak z delphi zabezpecit? Po nejakem case si to sice server uvedomi, ze
neni pripojen, ale ja bych to potreboval co nejdrive.
Diky predem za nejaky napad.
Bohdan Voska
MDI ve W2000 a W98
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 17.1.2002 10:46:49
Zdravim,
mam tento problem. MDI aplikace ve W2000 pracuje spravne. Pokud ji ale
spustim ve W98 tak se mi child okna zobrazuji bez systemovych ikon
(minimalizace, maxim. uzavreni).
Poradite nekdo kde by mohl byt zakopany pes?
Diky Lada
D5E, MSSQL2000, W2000
Browse symbol
[*] Jan Dvorak <dvorak(zv)szu(tec)cz> - 17.1.2002 11:00:45
Prosim o radu v predmetu. V editoru Delphi lze pravym tlacitkem vyvolat
lokaln� menu, kde je jednou z polozek 'Browse Symbol at Cursor'. Pri
aktivaci se zobrazi formular s editovacim polem, kam se vsak symbol u
kursoru neprenese. Je mozny prenos pres clipboard a nekdy se podari vyhledat
vyskyty symbolu v textu, vetsinou vsak to skonci hlasenim, ze symbol nebyl
nalezen. Toto chovani se mi projevovalo v D5S a nyni i v D6P, v obou
pripadech pod W98. Je treba nekde neco nastavit pro rozumnejsi chovani teto
funkce?
V Borland Pascalu existovala externi funkce GREP, ktera umoznovala nalezt
vyskyty symbolu ve vsech zdrojovych souborech v celem adresari a pak tim
celkem prijatelne prochazet. Lze neco podobneho delat i v IDE Delphi?
Ing. Jan Dvorak
Browse symbol
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 17.1.2002 11:08:31
tato funkce je implementovana v GExpert - rozsireni do Delphi
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
17.1.2002 Jan Dvorak:
> Prosim o radu v predmetu. V editoru Delphi lze pravym tlacitkem vyvolat
> lokaln� menu, kde je jednou z polozek 'Browse Symbol at Cursor'. Pri
> aktivaci se zobrazi formular s editovacim polem, kam se vsak symbol u
> kursoru neprenese. Je mozny prenos pres clipboard a nekdy se podari vyhledat
> vyskyty symbolu v textu, vetsinou vsak to skonci hlasenim, ze symbol nebyl
> nalezen. Toto chovani se mi projevovalo v D5S a nyni i v D6P, v obou
> pripadech pod W98. Je treba nekde neco nastavit pro rozumnejsi chovani teto
> funkce?
> V Borland Pascalu existovala externi funkce GREP, ktera umoznovala nalezt
> vyskyty symbolu ve vsech zdrojovych souborech v celem adresari a pak tim
> celkem prijatelne prochazet. Lze neco podobneho delat i v IDE Delphi?
> Ing. Jan Dvorak
Browse symbol
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 17.1.2002 11:19:20
Ahoj,
mozna by Ti pomohl i prikaz v menu Search, Find in files.
Karel Rys
ing. Jan Fiala dne 17 Jan 2002 v 11:08:
> tato funkce je implementovana v GExpert - rozsireni do Delphi
>
> > V Borland Pascalu existovala externi funkce GREP, ktera umoznovala
> > nalezt vyskyty symbolu ve vsech zdrojovych souborech v celem
> > adresari a pak tim celkem prijatelne prochazet. Lze neco podobneho
> > delat i v IDE Delphi?
>
> > Ing. Jan Dvorak
Browse symbol
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 17.1.2002 11:20:22
> Prosim o radu v predmetu. V editoru Delphi lze pravym tlacitkem
vyvolat
> lokaln� menu, kde je jednou z polozek 'Browse Symbol at Cursor'. Pri
> aktivaci se zobrazi formular s editovacim polem, kam se vsak symbol
u
> kursoru neprenese.
je nutne mit zkompilovany (build je lepsi) projekt - nesmi byt
spusten. Pak to funguje.
Starsi verze D se chovaly lepe
>Je mozny prenos pres clipboard a nekdy se podari vyhledat
> vyskyty symbolu v textu, vetsinou vsak to skonci hlasenim, ze symbol
nebyl
> nalezen.
mate projekt prelozen s debug symboly? (mimo jineho tusim musi byt
zapnute $Y+)> V Borland Pascalu existovala externi funkce GREP, ktera umoznovala
nalezt
> vyskyty symbolu ve vsech zdrojovych souborech v celem adresari a pak
tim
> celkem prijatelne prochazet. Lze neco podobneho delat i v IDE
Delphi?
>
funkce search v IDE umi hledat i ve vice souborech (adresar nebo
projekt)
D. Toman
Browse symbol
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 17.1.2002 11:29:53
On 17 Jan 2002, at 11:00, Jan Dvorak wrote:
> V Borland Pascalu existovala externi funkce GREP, ktera umoznovala
> nalezt vyskyty symbolu ve vsech zdrojovych souborech v celem adresari
> a pak tim celkem prijatelne prochazet. Lze neco podobneho delat i v
> IDE Delphi?
Ahoj,
v Delphi misto Grepu je v menu Search | Find in Files a vysledek se
objevi v Messages Editoru.
Jarek Uher
Browse symbol
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 17.1.2002 12:00:05
> Prosim o radu v predmetu. V editoru Delphi lze pravym
> tlacitkem vyvolat lokaln� menu, kde je jednou z polozek
> 'Browse Symbol at Cursor'. Pri aktivaci se zobrazi
> formular s editovacim polem, kam se vsak symbol u
> kursoru neprenese. Je mozny prenos pres clipboard a
> nekdy se podari vyhledat vyskyty symbolu v textu,
> vetsinou vsak to skonci hlasenim, ze symbol nebyl
> nalezen. Toto chovani se mi projevovalo v D5S a nyni i
> v D6P, v obou pripadech pod W98. Je treba nekde
> neco nastavit pro rozumnejsi chovani teto funkce?
V helpe o tom pisu v "Compiler settings that affect the Project Browser".
Myslim, ze dolezite je, s akymi nastaveniami bola skompilovana unita, ktora
obsahuje odkaz na dany symbol (z ktorej volas funkciu Browse), ale tiez
unita, v ktorej je dany symbol deklarovany (ta totiz nemusi byt kompilovana
spolu s projektom, a v tom pripade nastavenia projektu na nu nemaju vplyv).
> V Borland Pascalu existovala externi funkce GREP, ktera
> umoznovala nalezt vyskyty symbolu ve vsech zdrojovych
> souborech v celem adresari a pak tim celkem prijatelne
> prochazet. Lze neco podobneho delat i v IDE Delphi?
Je tam funkcia Find (Ctrl+F alebo menu Search\Find), kde mozes pouzit volbu
Find in Files. Mozes si potom zvolit, ci chces hladat v suboroch projektu,
vo vsetkych otvorenych suboroch, alebo v adresaroch (s moznostou hladania v
podadresaroch). Search string podporuje moznosti regular expressions, case
sensitive, whole words only.
File mask moze obsahovat environment variables, napr. $(DELPHI)\Demos alebo
$(MYLIB). Mena suborov, ktore chces prehladat, mozes zadat so
semicolon-separated wildcards (default je *.dpr;*.pas), napr.
$(MYLIB)\*.txt;*.inc
HTH
TOndrej
OT:Intranet aplikacia
[*] Martin Cajbik <cajbik(zv)sct.sk> - 17.1.2002 12:45:50
Ospravedlnujem sa za mierny offtopic ale aj ked vacsinou programujem v
Delphi,
potreboval by som ziskat nejake zakladne informacie o prostriedkoch pre
vyvoj
Intranetovych aplikacii.
Jednu mensiu som uz vytvoril pomocou PHP, ale samotny jazyk ma prilis
nenadchol
(hlavne to, ze nie je objektovo orientovany a program napisany v nom vyzera
ako
riadny gulas v ktorom najst nejaku logicku chybu je skoro nemozne).
Mozno som len prilis rozmaznany z Delphi :-) Ale aj tak, by som velmi ocenil
(bohuzial nie financne) ak by mi niekto poskytol viac informacii o inych
moznostiach (Java, ASP, Perl...), hlavne ma zaujima porovnanie a nejake
zhrnutie
vyhod a nevyhod jednotlivych pristupov k tvorbe. Alebo aspon odkazy na
nejake linky.
Nechce sa mi prehrabovat konkretnymi popismi jednotlivych jazykov, skor by
som
ocenil nejaky vseobecnejsi popis.
vopred vdaka MarCaNT
Vlastn� komponenta
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 17.1.2002 12:45:48
nelepsi rada je: NEDELEJ TO!
Ohledne TCP/IP komponent existuje mnoho dobreho...
Asynchronni (tedy zpravami rizene) komponenty - ICS
komponenty s blokujicimi sockety - Indy
kod (nekomponenty) s blokujicimi sockety - Synapse
jsi si opravdu jisty,z e te zadny z tehto dlouho vyvyjenych hotovych
knihoven neuspokoji natolik, aby sis to psal sam???
> r�d bych si ud�lal vlastn� komponentu na komunikaci via TCP/IP
> sockety. N�co u� jsem d�lal v progr�mc�ch p��mo pro WinAPI, tak�e jak�
> tak� tomu rozum�m. Ale n�jak mi nen� jasn�, co m�m d�t za handle okna,
> kter� bude dost�vat zpr�vy. R�d bych ale, aby to bylo univerz�ln�;
> pou�iteln� i t�eba v konzolov� aplikaci, kter� ��dn� okno nem�. To si
> m�m vytvo�it n�jak� pr�zdn�? Nebo jak na to. P�edem d�k za v�echny
> rady.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.PopupMenu u TCustomEdit
[*] Martin Kleiner <mkleiner(zv)seznam(tec)cz> - 17.1.2002 12:51:59
> > Potrebuji zjistit jak pridat dalsi MenuItem do systemoveho PopupMenu,
ktere
> > je v TEdit, TMemo atd.. (standardne je tam clipboard).
> myslim ze jednodusii bude si vytvorit menu nove s pouzitim prislusnych
edit
> akci.
To sice ano, ale musim zbytecne resit lokalizace menu a navic pri pripadne
zmene systemoveho menu na to musim reagovat.
Nepripada mi to jako objektovy pristup.
OT:Intranet aplikacia
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 17.1.2002 12:53:09
V PHP objekty jsou, tak nejak nevim, co ti na tom chybi... :-)
Co se tyce vlastniho jazyka, tak mi prijde mnohem prijemnejsi nez
trebas PERL. PERL je cistokrevny skriptovaci jazyk, zatimco PHP je
vlastne preprocesor v HTML kodu. Intranetove apliakce se v tom pisi
mnohem pohodlneji. (v php vlastne delas HTML stranku, kam jen dopises
to co chces vygenerovat skriptem.. zatimco PERL je cely skript, ktery
musi sam o sobe generovat uplne celou HTML stranku)
ASP se vyhni, je to reseni pouze na MS platformu, zatimco PHP i PERL
ti bude fungovat stejne na windowsech i na Linuxech, atd.
Java narozdil od predchozich bezina klientovi, tedy je to zcela jiny
druh programovani, a na tohle se moc nehodi.. maximalne leda tak
servlety.
> Ospravedlnujem sa za mierny offtopic ale aj ked vacsinou programujem v
> Delphi, potreboval by som ziskat nejake zakladne informacie o
> prostriedkoch pre vyvoj Intranetovych aplikacii. Jednu mensiu som uz
> vytvoril pomocou PHP, ale samotny jazyk ma prilis nenadchol (hlavne to,
> ze nie je objektovo orientovany a program napisany v nom vyzera ako
> riadny gulas v ktorom najst nejaku logicku chybu je skoro nemozne).
> Mozno som len prilis rozmaznany z Delphi :-) Ale aj tak, by som velmi
> ocenil (bohuzial nie financne) ak by mi niekto poskytol viac informacii
> o inych moznostiach (Java, ASP, Perl...), hlavne ma zaujima porovnanie
> a nejake zhrnutie vyhod a nevyhod jednotlivych pristupov k tvorbe. Alebo
> aspon odkazy na nejake linky. Nechce sa mi prehrabovat konkretnymi
> popismi jednotlivych jazykov, skor by som ocenil nejaky vseobecnejsi
> popis.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.OT:Intranet aplikacia
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 17.1.2002 12:54:10
jinak, abych nebyl az ta OT, tak jedno z reseni je i trebas CGI,
ktere klidne muzes naprogramovat v Delphi. ;-) popripad to zkombinuj
s PHP.
> Ospravedlnujem sa za mierny offtopic ale aj ked vacsinou programujem v
> Delphi, potreboval by som ziskat nejake zakladne informacie o
> prostriedkoch pre vyvoj Intranetovych aplikacii. Jednu mensiu som uz
> vytvoril pomocou PHP, ale samotny jazyk ma prilis nenadchol
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Tachnicka dokumentace
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 17.1.2002 12:56:25
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Mirek Drej�ek
Ahoj,
> Mohl by mi prosim nekdo poslat velmi malou cast technicke
> dokumentace k programu? Nebo aspon nejakou radu co vsechno se tam
> pise a co ne?
> Vubec nemam tuseni, jak se takova vec dela.
Doporucuji si precist Vestnik Uradu pro verejne informacni systemy.
Obsahuje i standardy pro narodni prostredi, popis datovych prvku...
Lze ziskat zdarma primo na Uradu pro verejne informacni systemy,
Havelkova 22, Praha 3. Tel: 02/21008211
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
Doplneni delky stringu o mezery
[*] <aldik(zv)quick(tec)cz> - 17.1.2002 13:02:06
Ahoj potreboval bych zapisovat do souboru v pevne delce,
proste textXXXXX teeextXXX kde X by byla mezera, existuje fce ktera mi doplni
text o urcity pocet mezer??
Diky moc
Aldik Pavel
W2000 D5 Ent
Doplneni delky stringu o mezery
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 17.1.2002 13:05:49
> From: aldik(zv)quick(tec)cz [mailto:aldik(zv)quick(tec)cz]
> Ahoj potreboval bych zapisovat do souboru v pevne delce,
> proste textXXXXX teeextXXX kde X by byla mezera, existuje fce
> ktera mi doplni
> text o urcity pocet mezer??
Mohlo by to byt:
function GetString(Text : String; Delka : Integer) : String;
begin
Result := Text + StringOfChar(' ', Delka - Length(Text));
end;
Ales
Doplneni delky stringu o mezery
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 17.1.2002 13:10:08
Zkusil sis pohrat s funkci Format ? Pomoci ni to jde. ;-)
> Ahoj potreboval bych zapisovat do souboru v pevne delce,
> proste textXXXXX teeextXXX kde X by byla mezera, existuje fce ktera mi doplni
> text o urcity pocet mezer??
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Doplneni delky stringu o mezery
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 17.1.2002 13:13:41
Ahoj,
pouzij funkci Format, ve formatovacim stringu parametr napr. %10s.
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> P�edm�t: Doplneni delky stringu o mezery
> Ahoj potreboval bych zapisovat do souboru v pevne delce,
> proste textXXXXX teeextXXX kde X by byla mezera, existuje fce
> ktera mi doplni
> text o urcity pocet mezer??
> Aldik Pavel
Re[2]: OT:Intranet aplikacia
[*] Frantisek Augusztin <afsoft(zv)host.sk> - 17.1.2002 13:30:31
GL> V PHP objekty jsou, tak nejak nevim, co ti na tom chybi... :-)
GL> Co se tyce vlastniho jazyka, tak mi prijde mnohem prijemnejsi nez
GL> trebas PERL. PERL je cistokrevny skriptovaci jazyk, zatimco PHP je
GL> vlastne preprocesor v HTML kodu. Intranetove apliakce se v tom pisi
GL> mnohem pohodlneji. (v php vlastne delas HTML stranku, kam jen dopises
GL> to co chces vygenerovat skriptem.. zatimco PERL je cely skript, ktery
GL> musi sam o sobe generovat uplne celou HTML stranku)
GL> ASP se vyhni, je to reseni pouze na MS platformu, zatimco PHP i PERL
GL> ti bude fungovat stejne na windowsech i na Linuxech, atd.
GL> Java narozdil od predchozich bezina klientovi, tedy je to zcela jiny
GL> druh programovani, a na tohle se moc nehodi.. maximalne leda tak
GL> servlety.
Inac by som ti doporucoval pozriet si Smarty
(www.phpinsider.com) . Pomocou neho uz nebudes mat gulas v PHP/HTML.
Fero
Doplneni delky stringu o mezery
[*] Jaroslav Kuba <jarda(zv)tresoft(tec)cz> - 17.1.2002 13:34:00
> Ahoj potreboval bych zapisovat do souboru v pevne delce,
> proste textXXXXX teeextXXX kde X by byla mezera, existuje fce ktera mi
doplni
> text o urcity pocet mezer??
> Diky moc
> Aldik Pavel
> W2000 D5 Ent
Ahoj
function LeftStr(const S: string; N: Integer): string;
z unity StrUtils, asi je soucasti Rx je tam spousta funkci pro praci z
retezcem
Delphi 5 Prof Win 2000 SP2
Jaroslav KUBA
jarda(zv)tresoft(tec)cz
OT:Intranet aplikacia
[*] Martin Cajbik <cajbik(zv)sct.sk> - 17.1.2002 13:39:49
Riesenie cez Dephi by ma celkom lakalo (aj ked asi skor ISAPI nez CGI). Ma s
tym niekto s vas realne skusenosti (teda urobil v tom niekto nejaku aspon
trochu vacsiu aplikaciu) ? A je vobec mozne pouzit napriklad ISAPI napisane
v Delphi na generovanie PHP a PHP potom na generovanie samotneho HTML ?
Moznosti pisania niecoho takeho cisto v Delphi sa mi totiz vidia dost
obmedzene (aj ked je pravda, ze mam iba D6 Professional a nie Enterprise).
Celkom ma laka aj JBuilder ale ani na ten nemam priame referencie od ludi
ktory by v tom vytvorili nieco vacsie. V com su vyhody a naopak nevyhody
Java servletov oproti napr. PHP alebo ISAPI.
Vacsina referencii je na ASP ale tomu by som sa radsej oblukom vyhol.
MarCaNT
> jinak, abych nebyl az ta OT, tak jedno z reseni je i trebas CGI,
> ktere klidne muzes naprogramovat v Delphi. ;-) popripad to zkombinuj
> s PHP.
>
> > Ospravedlnujem sa za mierny offtopic ale aj ked vacsinou programujem v
> > Delphi, potreboval by som ziskat nejake zakladne informacie o
> > prostriedkoch pre vyvoj Intranetovych aplikacii. Jednu mensiu som uz
> > vytvoril pomocou PHP, ale samotny jazyk ma prilis nenadchol
>
>
> -- Lukas Gebauer.
>
Doplneni delky stringu o mezery
[*] brant(zv)dcomm(tec)cz - 17.1.2002 13:40:10
Treba takto (predpoklada se, ze text neni nikdy delsi, nez ma byt zapisovana
delka). Neni to nejefektivnejsi, zalezi na tom, jak ma byt program rychly,
kolik se toho zapisuje apod. Nasel by se urcite i rychlejsi algoritmus.
Predpokladam deklaraci Tvuj_text: string
for i:=1 to Pevna_delka - Length(Tvuj_text) do Tvuj_text:= Tvuj_text + ' ';
RNDr. Petr Brant
********************************************
* D&COMM s.r.o. - sledov�n� vozidel *
* v re�ln�m �ase a prodej licenc� *
* v r�mci programu Microsoft Select *
* ---------------------------------------- *
* Korunova�n� 6 *
* Praha 7 *
********************************************
Ahoj potreboval bych zapisovat do souboru v pevne delce,
proste textXXXXX teeextXXX kde X by byla mezera, existuje fce ktera mi
doplni
text o urcity pocet mezer??Tachnicka dokumentace
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 17.1.2002 12:42:52
Mohl by mi prosim nekdo poslat velmi malou cast technicke dokumentace k programu? Nebo aspon nejakou radu co vsechno se tam pise a co ne?
Vubec nemam tuseni, jak se takova vec dela.
Predem dekuji za jakoukoli odpoved.
Mirek Drejcek.
Doplneni delky stringu o mezery
[*] Martin �ajbik <cajbik(zv)sct.sk> - 17.1.2002 13:54:44
Neviem o takej, ale mozes si ju napisat sam.
function AddChars(Str: String; Ch: Char; Count: Integer);
begin
Result:= str+StringOfChar(Ch; Count-Length(str))
end;
alebo pouzi funkciu Format
----- Original Message -----
From: <aldik(zv)quick(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 17, 2002 1:02 PM
Subject: Doplneni delky stringu o mezery
> Ahoj potreboval bych zapisovat do souboru v pevne delce,
> proste textXXXXX teeextXXX kde X by byla mezera, existuje fce ktera mi
doplni
> text o urcity pocet mezer??
> Diky moc
> Aldik Pavel
> W2000 D5 Ent
>
>Re[2]: OT:Intranet aplikacia
[*] Michal <suky(zv)atlas(tec)cz> - 17.1.2002 13:55:09
Nevim proc se chces vyhnout ASP. Myslim, ze neni na nem nic tak
spatneho. Naopak se domnivam, ze resini na ASP se da snaze upravovat.
Michal
MC> Riesenie cez Dephi by ma celkom lakalo (aj ked asi skor ISAPI nez CGI). Ma s
MC> tym niekto s vas realne skusenosti (teda urobil v tom niekto nejaku aspon
MC> trochu vacsiu aplikaciu) ? A je vobec mozne pouzit napriklad ISAPI napisane
MC> v Delphi na generovanie PHP a PHP potom na generovanie samotneho HTML ?
MC> Moznosti pisania niecoho takeho cisto v Delphi sa mi totiz vidia dost
MC> obmedzene (aj ked je pravda, ze mam iba D6 Professional a nie Enterprise).
MC> Celkom ma laka aj JBuilder ale ani na ten nemam priame referencie od ludi
MC> ktory by v tom vytvorili nieco vacsie. V com su vyhody a naopak nevyhody
MC> Java servletov oproti napr. PHP alebo ISAPI.
MC> Vacsina referencii je na ASP ale tomu by som sa radsej oblukom vyhol.
MC> MarCaNT
>> jinak, abych nebyl az ta OT, tak jedno z reseni je i trebas CGI,
>> ktere klidne muzes naprogramovat v Delphi. ;-) popripad to zkombinuj
>> s PHP.
>>
>> > Ospravedlnujem sa za mierny offtopic ale aj ked vacsinou programujem v
>> > Delphi, potreboval by som ziskat nejake zakladne informacie o
>> > prostriedkoch pre vyvoj Intranetovych aplikacii. Jednu mensiu som uz
>> > vytvoril pomocou PHP, ale samotny jazyk ma prilis nenadchol
>>
>>
>> -- Lukas Gebauer.
>>
--
S pozdravem,
Michal
suky(zv)atlas(tec)cz
Browse symbol
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.1.2002 14:24:48
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> mate projekt prelozen s debug symboly? (mimo jineho tusim musi byt
> zapnute $Y+)
Ahoj,
v Compiler Options -> Debugging musis mit zapnute Reference Info a v pripade
ze chces aby Browser vyhledal nejen definice, ale i mista kde je dany symbol
pouzit musis vypnout Definitions Only (vychozi nastaveni je tusim zapnuto)
Petr Vones
TRxDBLookupCombo
[*] tomsir1.edu(zv)mail.cez(tec)cz - 17.1.2002 14:38:58
Je mozne v %SUBJ% docilit toho, ze se mi v DropdownListu zobrazi na jednom
radku dva atributy patrici k sobe v ramci zaznamu v tabulce ?? Pripadne
jak ??
Asi to neni moc srozumitelne ... takze tabulka
| id | jmeno | prijmeni | telefon |
| 1 | Radek | Tomsik | 0603 ....... |
| 2 | Petr | Novak | 0602 ....... |
| 3 | Martin | Dvorak | 0603 ....... |
| 4 | Jan | Janu | 0604 ....... |
a mam-li dotaz SELECT * FROM tabulka ORDER BY id
chci aby v RxDBLookupCombo se objevily moznosti
Radek Tomsik
Petr Novak
Martin Dvorak
Jan Janu
uffff, doufam ze to je srozumitelny :O)
Dik Radegast
FileAge
[*] Sebesta Jan <delcomseb(zv)volny(tec)cz> - 17.1.2002 14:38:22
Zdravim profiky,
Nevite nahodou proc mi:
ShowMessage(DateTimeToStr(FileDateToDateTime(FileAge('soubor')));
ukaze napr. ve Win98,WinME 12:46:46
a v WinXP 12:46:48 na stejnem souboru.
Lze pouzit napr. jinou funkci pro zjisteni datumu a casu vytvoreni (posledni
zmeny) souboru?
Moc Dik Jan Sebesta.Picture Editor
[*] mstevlik(zv)gamo.sk - 17.1.2002 15:09:47
Hi all
Mozem vas poprosit ci neviete o nejakej komponente, kt. by som dokazal
robit nejake zakladne operacie s obrazkom (resize, vystrihnut cast ...)
Alebo ak mi viete pomoct, mam unitu s urobenymi fciami na pracu s BitMap
Potreboval by som vsak, nieco take akoze si vyrezem cas obrazku zobrazeneho
v TImage
Dakujem ze vsetky nakopnutia ;)
Stevlik Marian
ISYS programator
GAMO a.s., Banska Bystrica
+421 48 413 7935, 413 2942
mstevlik(zv)gamo.sk
+421 905 462 010
ICQ: 38493645
Picture Editor
[*] Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 17.1.2002 15:27:38
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of mstevlik(zv)gamo.sk
>
> Hi all
> Mozem vas poprosit ci neviete o nejakej komponente, kt. by som dokazal
> robit nejake zakladne operacie s obrazkom (resize, vystrihnut
> cast ...)
> Alebo ak mi viete pomoct, mam unitu s urobenymi fciami na
> pracu s BitMap
> Potreboval by som vsak, nieco take akoze si vyrezem cas
> obrazku zobrazeneho
> v TImage
Ahoj,
dost dobre komponenty jsou na http://www.leadtools.com/,
ale nejsou zrovna nejlevnejsi.
S pozdravem
Ing. Jaroslav Sipek
IDEA spol. s r.o.
mailto:jaroslav.sipek(zv)idea(tec)cz
http://www.idea(tec)cz OT:Intranet aplikacia
[*] Rado Benc <bego(zv)pobox.sk> - 17.1.2002 15:31:58
Nazdar,
> Riesenie cez Dephi by ma celkom lakalo (aj ked asi skor ISAPI nez
> CGI). Ma s tym niekto s vas realne skusenosti (teda urobil v tom niekto
> nejaku aspon trochu vacsiu aplikaciu) ?
Mam skusenosti iba s D5 Ent a tie su zle. Pisal som aplikaciu na prezeranie
a editaciu databazy klientov a zmluv apod (radovo stovky tisic zaznamov).
Strateny cas. Okrem toho ze pisat CGI / ISAPI je pakaren:
- vysledny exe (cgi), resp. dll musi byt ulozeny v adresari, kde ho vie
webserver najst. To znamena - a) po kazdej zmene / rekompliacii kopirovat
exe / dll do cieloveho alresara b) nastavit Output directory v Project
Options na cielovy adresar (ma svoje uskalia, vid dalej) c) vyvijat pramo
v cielovom adresari - neodporucam.
Vsetky tri moznosti su zle.
- v pripade, ze nieco v CGI / ISAPI module nedopadne dobre (chyba pri
pripojeni na databazu, cokolvek) je velka sanca, ze exe / dll
zostane "vysiet" (nemozno zmazat / prepisat) a mas na vyber:
a) restartovat webserver - nie vzdy pomoze,
b) restartovat stroj - prudko stupa produktivita prace. :-)
- Pisanie zlozitejsich CGI / ISAPI modulov je V Delphi dost pracne a ak sa
nahodou pomylis... :-( AFAIK je borlandovsky CodeCentral pisany v Delphi -
a vysledok je vyditelny (caste vypadky).
- IMHO je vyvoj v PHP omnoho rychlejsi - neskor som pisal podobnu
aplikaciu v PHP a trvalo mi to podstatne kratsie.
> A je vobec mozne pouzit napriklad ISAPI napisane
> v Delphi na generovanie PHP a PHP potom na generovanie samotneho HTML ?
AFAIK to mozne nie je - ako webserver zisti, ze ma zavolat CGI / ISAPI? a
nasledne presmerovat vystup PHP? Mozno sa to da... Ak mas naozaj velmi
vela casu, trpezlivosti... :-)
> Moznosti pisania niecoho takeho cisto v Delphi sa mi totiz vidia dost
> obmedzene (aj ked je pravda, ze mam iba D6 Professional a nie
> Enterprise).
Suhlasim.
> Celkom ma laka aj JBuilder ale ani na ten nemam priame referencie od ludi
> ktory by v tom vytvorili nieco vacsie. V com su vyhody a naopak nevyhody
> Java servletov oproti napr. PHP alebo ISAPI.
Zo servletmi som sa nejaku dobu hral - najvacsi problem je to rozchodit.
Konfiguracia servlet engine nie je vobec jednoducha a pokial by si sa
nahodou niekedy rozhodol preniest aplikaciu na iny stroj - je to dost
problem.
Opat, podla mojich skusenosti je PHP jednoduchsie, spolahlivejsie a
rychlejsie.
> Vacsina referencii je na ASP ale tomu by som sa radsej oblukom vyhol.
IMHO urobis dobre.
FWIW,
Rado
____________________________________
http://www.pobox.sk/ - spolahliva a bezpecna prevadzka
Doplneni delky stringu o mezery:Stop
[*] <aldik(zv)quick(tec)cz> - 17.1.2002 15:39:09
RNDr. Petr Brant wrote:
Neni to nejefektivnejsi, zalezi na tom, jak ma byt program rychly,
Prave proto jsem se ptal,ted asi vypadam jak peknej PIP
Ja se vetsinou ptam,kdyz si nejsem jist efektivitou sveho vyplodu...:-))) Je to
moje chyba mel jsem to napsat:-))
RNDr. Petr Brant wrote:
kolik se toho zapisuje apod. Nasel by se urcite i rychlejsi algoritmus.
Ano uz mi poradili Format....o tehle vlastnosti Format jsem nevedel, asi bude
nejefektivnejsi DIKY VSEM.... a tobe taky Petre
TAK PRESNE TAKHLE JSEM TO MEL VE ZDROJAKU ALE S
WHILE not (Length=dana_size)
Predpokladam deklaraci Tvuj_text: string
for i:=1 to Pevna_delka - Length(Tvuj_text) do Tvuj_text:= Tvuj_text + ' ';
Diky diky....
Ales Pavel
W2000 D5 Ent
hledani v dbgridu
[*] <kuchar(zv)unicodesys(tec)cz> - 17.1.2002 15:40:19
caute,
da se nejakym zpusobem vyhledat v urcitem sloupci v dbgridu nejaka hodnota a
nasledne umistnit
na to select radku bez toho abych musel upravovat dotaz v napojene
komponente query ?
DIK
Doplneni delky stringu o mezery:Stop
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 17.1.2002 15:47:35
On 17 Jan 2002 at 15:39, aldik(zv)quick(tec)cz wrote:
> Prave proto jsem se ptal,ted asi vypadam jak peknej PIP
> Ja se vetsinou ptam,kdyz si nejsem jist efektivitou sveho
> vyplodu...:-))) Je to moje chyba mel jsem to napsat:-))
A co treba nejak takto?
Len := Length(MujText);
if Len < PevnaDelka then
begin
SetLength(MujText, PevnaDelka);
FillChar(MujText[Len + 1], PevnaDelka - Len, ' ');
end;
S pozdravem
Zbysek Hlinka
Phone: 0603 551 282
OT:Intranet aplikacia
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.1.2002 15:47:55
From: "Rado Benc" <bego(zv)pobox.sk>
> - vysledny exe (cgi), resp. dll musi byt ulozeny v adresari, kde ho vie
> webserver najst. To znamena - a) po kazdej zmene / rekompliacii kopirovat
Pro testovani lze pouzit jiny webserver (OmniHTTP, Server7..) , navic pri
pouziti WebSnap v Delphi 6 muzes pouzit Web App Debugger ktery je soucasti
Delphi.
> nahodou pomylis... :-( AFAIK je borlandovsky CodeCentral pisany v Delphi -
> a vysledok je vyditelny (caste vypadky).
V posledni dobe uz to bezi relativne dobre, akorat je to dost pomale protoze:
a) je to stale CGI (dle ccweb.exe)
b) bezi to na stroji ktery by dnes clovek hledal spise v bazaru
> - IMHO je vyvoj v PHP omnoho rychlejsi - neskor som pisal podobnu
> aplikaciu v PHP a trvalo mi to podstatne kratsie.
Skriptove jazyky te zase nenuti oddelovat striktne prezentacni cast od logiky
aplikace.
Petr Vones
OT:Intranet aplikacia
[*] Martin Nedopil <nedopil(zv)yahoo(tec)com> - 17.1.2002 06:50:01 -0800 (pst)
Ahoj,>Strateny cas. Okrem toho ze pisat CGI / ISAPI je
>pakaren:
>- vysledny exe (cgi), resp. dll musi byt ulozeny v
>adresari, kde ho vie
>webserver najst. To znamena - a) po kazdej zmene /
Neni nic jednodussiho. Ja mam kuprikladu vsechny
zdrojove adresare vyse a pak do Output Directory dam
jen ".." a je to.
Navic mam na www serveru udelany virtualni adresar,
takze muzu ladit primo. Mam zakazano prohlizeni
adresare jen povoleny skripty + autorizace a muzes
mit zdrojaky kde chces.
> v pripade, ze nieco v CGI / ISAPI module nedopadne
>dobre (chyba pri pripojeni na databazu, cokolvek) je
> velka sanca, ze exe / dll
> zostane "vysiet" (nemozno zmazat / prepisat) a mas
>na vyber:
>a) restartovat webserver - nie vzdy pomoze,
Tak to by melo pomoci vzdycky! Tedy u ISAPI vzdycky.
Proto je lepsi psat ISAPI DLL, ktere kdyz server
spadne vezme s sebou, kdezto standalone CGI exe
programy bohuzel nikoliv.
>b) restartovat stroj - prudko stupa produktivita
?>prace. :-)
To by se nemelo stavat vubec, bud jde web server
sestrelit a s nim vsechno co k nemu patri nebo je
chyba v samotnem serveru pripadne OS.
>- Pisanie zlozitejsich CGI / ISAPI modulov je V
>Delphi dost pracne a ak sa
>nahodou pomylis...
Neni nic jednodussiho, jen to holt neni vizualni.
Staci na to pri trose dobre vule a znalosti i D3
Standart. Pak je to jen o
if TagString = "MYTAG1" then ....
Ja osobne to pokladam za jednodussi nez se dokola
mordovat s TDBGrid, TDBEdit a spol.
No a kdyz se spletu je tu maly, ale jen maly
problem, protoze DLL nelze za behu aplikace, ktera
jej vyuziva vymenit. Jednoducha rada:
Rychle restartuj www server, prekopiruj DLL
(dll se natahne s prvnim pouzitim, coz pri trose
stesti hned tak nebude) a je to! Prace na dve vteriny
a nemusis vstat z zidle. Server restartnes vzdalene
a DLL vymenis pomoci sdileni adresaru, pripadne FTP.
> A je vobec mozne pouzit napriklad ISAPI napisane
> v Delphi na generovanie PHP a PHP potom na
>generovanie samotneho HTML ?
No, urcitym resenim by bylo generovat z ISAPI
PHP, to ulozit a pak na nej stranku presmerovat.
Ale to nema vyznam.
Martin
__________________________________________________
Do You Yahoo!?
Send FREE video emails in Yahoo! Mail!
http://promo.yahoo.com/videomail/TRxDBLookupCombo
[*] Michal Sefcik <sefcik(zv)benefitcz(tec)cz> - 17.1.2002 15:54:38
Neni problem. Vyrez to na strane SQL dotazu:
SELECT RTRIM(jmeno) + ' '+ prijmeni FROM tabulka
Michal Sefcik
> Je mozne v %SUBJ% docilit toho, ze se mi v DropdownListu zobrazi na jednom
> radku dva atributy patrici k sobe v ramci zaznamu v tabulce ?? Pripadne
> jak ??
>
> Asi to neni moc srozumitelne ... takze tabulka
>
> | id | jmeno | prijmeni | telefon |
> | 1 | Radek | Tomsik | 0603 ....... |
> | 2 | Petr | Novak | 0602 ....... |
> | 3 | Martin | Dvorak | 0603 ....... |
> | 4 | Jan | Janu | 0604 ....... |
>
> a mam-li dotaz SELECT * FROM tabulka ORDER BY id
>
> chci aby v RxDBLookupCombo se objevily moznosti
>
> Radek Tomsik
> Petr Novak
> Martin Dvorak
> Jan Janu
>
> uffff, doufam ze to je srozumitelny :O)
>
> Dik Radegast
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.303 / Virov� b�ze: 164 - datum vyd�n�: 24.11.2001
ADOConnection - problem pri otvarani TADOQuery - Z
[*] Miroslav Hro��o <hrossik(zv)nrsys.sk> - 17.1.2002 15:55:40
Dobry den,
Znovu sa na Vas obraciam s nasledujucim problemom, kedze rada, ktora dosla mi nepomohla :
Mam JEDEN TAdoConnection (Cez ktory sa pripajam na MSSQL) a na neho sa
pripaja niekolko TADOQuery (Z roznych objectov).
Niektore objekty maju az 5 TADOQuery. A v jednom objekte otvaram dva
TADOQuery vo samostatnych Thredoch, ktore spustam naraz, ich vysledkom su
dva Selecty, teda vtatia mi recordset. Cize sa moze stat ze Windows spravi
open sucasne.
No a niekedy sa mi stane ze ked spravim na niektrom z nich OPEN tak dostanem
hlasku "Connection is busy with results for another Command".
Predpokladam ze mi ju posle ten ADOConnection. Zaujimave je ze sa to stane
vadsinou pri otvarani TADOQuery v Threde.
Vsetky TadoQuery su nastavene - CursorType = ctKeySet.
Kde moze byt problem ?
resp ako riesit situaciu ked potrebujem sucasne otvorit napr. 2 TAdoQuery
Pouzivam :
WIN2000, D5Ent, ADOExpres, D5Ent Servis pack 1, ADO servis pack 2, MSSQL2000
Miro.
hledani v dbgridu
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 17.1.2002 16:01:57
Zdravim,
metodu pripojeneho datasetu (TDataSet.Locate(...)) nelze pouzit?
----- Original Message -----
From: <kuchar(zv)unicodesys(tec)cz>
To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 17, 2002 3:40 PM
Subject: hledani v dbgridu
> caute,
>
> da se nejakym zpusobem vyhledat v urcitem sloupci v dbgridu nejaka hodnota
a
> nasledne umistnit
> na to select radku bez toho abych musel upravovat dotaz v napojene
> komponente query ?
>
> DIK
>
>Databazovy program v jedinem adresari
[*] <context.katalog(zv)centrum(tec)cz> - 17.1.2002 16:08:16
Dobry den,
uvodem predesilam, ze nejsem programator, pouze si chci nechat
vyrobit na zakazku
jednu aplikaci na evidenci, a zjistuji moznosti jednotlivych
vyvojovych prostredku.
Zajimalo by me, jestli existuje v Delphi za pomoci standardnich
prostredku
moznost udelat databazovou aplikaci, kter� by se spoustela z
jednoho adresare bez
nutnosti doinstalovavat cokoli do Windows.
Mam na mysli ruzne BDE a podobne podpory, ktere se nahravaji do
specifickych
mist.
Tzn. ze vsechny knihovny by byly ve stejnem adresari jako exe
soubor.
(Podadresare by nevadily).
Ptam se proto, ze uz jsem takove aplikace videl udelane v MS
Visual FoxPro,
ale v Delphi jsem se s tim jeste nesetkal. K FoxPro mam ale dost
silnou neduveru
a radeji bych si to nechal udelat v necem solidnim.
Vim ze naprogramovat se da vsechno, ale jde mi spis o to, jestli
se to da
docilit jednoduchymi prostredky, protoze se nema jednat o nic
svetoborneho a predevsim by se to melo instalovat na PC
prostym prekopirovanim adresare.
Diky a predem se omlouvam za laicky dotaz
Ales Vojta,
sberatel
context.katalog(zv)centrum(tec)cz
-----
Nov� vyhled�va� pro �esk� internet www.webfast(tec)cz - prost� najde ...ODBCe - pole BLOB v dotazu musi byt posledni?
[*] Lubo Fule <fule(zv)ekosoft.sk> - 17.1.2002 16:18:20
Dotaz, ktory obsahuje BLOB polozky by pre MSSQL by mal mat CursorType
nastaveny na ctDynamic (ctForwardOnly moze sposobovat prave tuto chybu).
L.
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of borkovec(zv)email(tec)cz
> Sent: Sunday, January 13, 2002 3:38 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: ODBCe - pole BLOB v dotazu musi byt posledni?
>
> Dobre odpoledne,
> pred nejakym casem jsem pracoval s ODBCe a nyni me zarazil
> %subj%. Je to opravdu tak, nebo jsem nekde neco nechtene
> nastavil? Mel jsem dojem, ze tehdy mohly byt BLOBY kdekoliv. Ted
> to vyhazuje chybu index descriptoru
> D5Prof, NT4, MSSQL2000
> R&B
>
> ---
> ---------> Created by Email(tec)cz
> http://www.email(tec)cz <--- Get Your Free Email
>
Doplneni delky stringu o mezery:Stop
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 17.1.2002 16:34:02
From: <aldik(zv)quick(tec)cz>
> Ano uz mi poradili Format....o tehle vlastnosti Format jsem nevedel, asi
bude
> nejefektivnejsi
Ak pod efektivitou rozumies rychlost tak urcite ne-e. Rychlejsi je
StringOfChar() alebo FillChar(). (Viz kod)
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
Databazovy program v jedinem adresari
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 17.1.2002 16:41:48
Puvodni zprava, kterou napsal context.katalog(zv)centrum(tec)cz dne 17 Jan 2002:
> Zajimalo by me, jestli existuje v Delphi za pomoci standardnich
> prostredku
> moznost udelat databazovou aplikaci, kter� by se spoustela z
> jednoho adresare bez
> nutnosti doinstalovavat cokoli do Windows.
No standardnich prostredku moc ne, ale treba s FlashFilerem to lze. Tam
neni potreba nic instalovat. Je to primo zakompilovane v EXE.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================OT: Hledam externiho spolupracovnika
[*] David Michal <david.michal(zv)czechwireless(tec)cz> - 17.1.2002 17:55:12
Zdravim,
Omlouvam se za OT.
Pro projekt hledam jednoho externiho programatora.
Jednorazova odmena po dokonceni 10000,- na Vas ucet.
Jedna se o praci na cca 14dni.
Pri oboustrane spokojenosti spoluprace na dalsich projektach mozna.
Pohybuji se v lokalitach Praha a Ceska Lipa. Takze prvotni osobni schuzku je mozne uskutecnit nekde pobliz techto koncin.
Podminky:
Znalost a zkusenosti s programovanim v Delphi a SQL (konretne MSSQL).
Kazdodeni pristup k internetu pro koordinaci prace.
Zodpovednost.
A samozrejme pristup k PC a Delphi.
Nabidky prosim zasilejte na moji adresu.
Diky,
David Michal
david.michal(zv)czechwireless(tec)cz
OT:Intranet aplikacia
[*] Erik Salaj <winsoft(zv)stonline.sk> - 17.1.2002 18:18:55
> Mozno som len prilis rozmaznany z Delphi :-) Ale aj tak, by som velmi
ocenil
> (bohuzial nie financne) ak by mi niekto poskytol viac informacii o inych
> moznostiach (Java, ASP, Perl...), hlavne ma zaujima porovnanie a nejake
> zhrnutie
> vyhod a nevyhod jednotlivych pristupov k tvorbe. Alebo aspon odkazy na
> nejake linky.
skus .NET, tam mas moznost programovat web aplikacie pomocou lubovolneho
.Net jazyka napr. C#, VBasic, Eiffel.Net, atd.
Erik
OT:Intranet aplikacia
[*] Erik Salaj <winsoft(zv)stonline.sk> - 17.1.2002 18:22:31
> ASP se vyhni, je to reseni pouze na MS platformu, zatimco PHP i PERL
> ti bude fungovat stejne na windowsech i na Linuxech, atd.
pokial web server bezi na Windowse, tak je to jedno. Vyhodnou zase je,
ze si to moze svojom pocitaci (na ktorom predpokladam ma Windows)
vyvijat a skusat.
Erik
Databazovy program v jedinem adresari
[*] miromr <miromr(zv)hotmail(tec)com> - 17.1.2002 19:12:36
Zdravim,
zalezi aj na zlozitosti. Jednoduchsia aplikacia sa da naprogramovat priamo v
(pomocou TDBF)
delphi. Vsetko je potom v jedinom exe
a ten pracuje s tabulkami vo formate dbase (DBF).
MiroMrazik
----- Original Message -----
From: <context.katalog(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 17, 2002 4:08 PM
Subject: Databazovy program v jedinem adresari
> Dobry den,
>
> uvodem predesilam, ze nejsem programator, pouze si chci nechat
> vyrobit na zakazku
> jednu aplikaci na evidenci, a zjistuji moznosti jednotlivych
> vyvojovych prostredku.
> Zajimalo by me, jestli existuje v Delphi za pomoci standardnich
> prostredku
> moznost udelat databazovou aplikaci, kter� by se spoustela z
> jednoho adresare bez
> nutnosti doinstalovavat cokoli do Windows.
> Mam na mysli ruzne BDE a podobne podpory, ktere se nahravaji do
> specifickych
> mist.
> Tzn. ze vsechny knihovny by byly ve stejnem adresari jako exe
> soubor.
> (Podadresare by nevadily).
> Ptam se proto, ze uz jsem takove aplikace videl udelane v MS
> Visual FoxPro,
> ale v Delphi jsem se s tim jeste nesetkal. K FoxPro mam ale dost
> silnou neduveru
> a radeji bych si to nechal udelat v necem solidnim.
> Vim ze naprogramovat se da vsechno, ale jde mi spis o to, jestli
> se to da
> docilit jednoduchymi prostredky, protoze se nema jednat o nic
> svetoborneho a predevsim by se to melo instalovat na PC
> prostym prekopirovanim adresare.
>
> Diky a predem se omlouvam za laicky dotaz
>
> Ales Vojta,
> sberatel
> context.katalog(zv)centrum(tec)cz
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> -----
> Nov� vyhled�va� pro �esk� internet www.webfast(tec)cz - prost� najde ...
>
>
>
>BDE - KeyViolation
[*] Jirka Virt <virt(zv)volny(tec)cz> - 17.1.2002 19:29:20
ja to delam takto:
function IsKeyViol(E:EDatabaseError;MessageF:boolean):boolean;
begin
result:=false;
if (E is EDBEngineError) then
begin
if (E as EDBEngineError).Errors[0].Errorcode = eKeyViol then
begin
result:= true;
if MessageF = true then
MessageBoxEx(0,'Tento z�znam ji� existuje','Duplicitn� z�znam', MB_OK
+ MB_ICONWARNING,Lang_czech);
end;
end;
end;
Jirka Vitr
email: virt(zv)volny(tec)cz
----- Original Message -----
From: "Str�n�k Franti�ek" <FStranik(zv)cpoj(tec)cz>
To: "Delphi konference" <DELPHI-L(zv)clexpert(tec)cz>
Sent: Tuesday, January 15, 2002 3:10 PM
Subject: BDE - KeyViolation
Da se to udelat vice zpusoby , ale jak nejlepe (nejefektivneji) napsat
(bohuzel stale jeste v tomto pripade pro BDE) odchytinuti duplicitu
ukladaneho udaje ?
(vyjimka KeyViolation)
diky
Franti�ek STR�N�K
mailto:FSTRANIK(zv)CPOJ.CZ
Event Clik out of form
[*] Michal <suky(zv)atlas(tec)cz> - 17.1.2002 20:04:27
Dobr� den,
Potreboval bych vedet jak poznam kdy uzivatel kliknul mimo otevreny
modalni formular?
--
S pozdravem,
Michal
suky(zv)atlas(tec)cz
OT: Synchronizace casu - kde je chyba?
[*] Miroslav Novosad <mirnov(zv)atlas(tec)cz> - 17.1.2002 21:17:57
Ahoj,
napsal jsem si programek, ktery ceka az zachyti pripojeni k internetu, a
pak spusti seznam ukolu (aktualizace atd.) Mezi jinym i AboutTime pro
nastaveni casu podle casoveho serveru.
Zarazi me trochu ten log, ktery (vykuchany) prikladam. Rozumite tomu
nekdo? Zvolit jiny program nebo je to normalni, ze by cas v PC sel tak
nepravidelne? Na cem to zavisi? Kde je, pokud nejaky je, problem?
Diky predem.
01/12/2002 21:40:48 Received time (ping 1112 ms), error 1565 ms.
01/12/2002 21:40:48 New time: Saturday, January 12, 2002 21:40:49.
01/13/2002 23:43:15 Received time (ping 1842 ms), error 789 ms.
01/13/2002 23:43:15 New time: Sunday, January 13, 2002 23:43:16.
01/14/2002 20:30:05 Received time (ping 350 ms), error -859 ms.
01/14/2002 20:30:05 New time: Monday, January 14, 2002 20:30:04.
01/15/2002 21:45:55 Received time (ping 2333 ms), error 540 ms.
01/15/2002 21:45:55 New time: Tuesday, January 15, 2002 21:45:55.
01/16/2002 00:17:55 Received time (ping 1943 ms), error -56 ms.
01/16/2002 00:17:55 New time: Wednesday, January 16, 2002 00:17:55.
01/16/2002 23:06:08 Received time (ping 1783 ms), error -3696 ms.
01/16/2002 23:06:08 New time: Wednesday, January 16, 2002 23:06:04.
01/16/2002 23:08:27 Received time (ping 2133 ms), error -154 ms.
01/16/2002 23:08:27 New time: Wednesday, January 16, 2002 23:08:27.
(Pouzity casovy server byl vzdy stejny.)
Miroslav Novosad
mirnov(zv)atlas(tec)cz
Help designer
[*] Ale� Kerner <ales(zv)kerner(tec)cz> - 17.1.2002 23:40:44
Neznate prosim nekdo freewarovy nebo opensource program na vytvareni napoved?
Dik za odpoved
Ales
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.314 / Virov� b�ze: 175 - datum vyd�n�: 11.1.2002
Help designer
[*] \(c\)rapper <crapper(zv)quick(tec)cz> - 18.1.2002 00:38:40
V lednovem cisle casopisu Internet (tedy v tom co vysel 01/2002), je fajn
program Microsoft HTML Help Workshop ktery s pomoci free utilitky
Web2HTMLHelp dela z internetovych stranek soubory typu CHM. Je to fakt OK.
Utilitku si muzes stahnout na adrese www.web2htmlhelp.co.uk . Mozna si
prejes neco jineho.
----- Original Message -----
From: "Ale� Kerner" <ales(zv)kerner(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, January 17, 2002 11:40 PM
Subject: Help designer
Neznate prosim nekdo freewarovy nebo opensource program na vytvareni
napoved?
Dik za odpoved
Ales
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.314 / Virov� b�ze: 175 - datum vyd�n�: 11.1.2002
Databazovy program v jedinem adresari
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.1.2002 07:01:01
> Zajimalo by me, jestli existuje v Delphi za pomoci standardnich
> prostredku
> moznost udelat databazovou aplikaci, kter� by se spoustela z
> jednoho adresare bez
> nutnosti doinstalovavat cokoli do Windows.
Ja bych v takovem pripade automaticky sahnul pro FlashFiler. Uz
jsme takove aplikace delali a nejsou s nimi absolutne zadne
problemy u zakaznika (porusena data apod.).
David Lebeda
hledani v dbgridu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.1.2002 07:06:50
> da se nejakym zpusobem vyhledat v urcitem sloupci v dbgridu nejaka
> hodnota a nasledne umistnit na to select radku bez toho abych musel
> upravovat dotaz v napojene komponente query ?
>
Metoda datasetu Locate, ale pozor, hledani probiha v podstate
sekvencnim prochazenim dat, takze pokud je dat hodne a hledany
radek nekde daleko, trva to dlouho, zejmena kdyz je treba potrebne
radky nejprve nafetchovat na klienta.
David Lebeda
TRxDBLookupCombo
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.1.2002 07:23:38
> Je mozne v %SUBJ% docilit toho, ze se mi v DropdownListu zobrazi na
> jednom radku dva atributy patrici k sobe v ramci zaznamu v tabulce ??
Jiste, ale...
Prijde na to, co chces. Nejjednodussi je do LookupDisplay dat
pole, ktera chces zobrazit, oddelena strednikem, ale po vyberu se
Ti v Combu zobrazi text jen z jednoho pole, a to toho, ktere
vyberes podle LookupDisplayIndex. Potrebujes-li, abys videl jmeno
i prijmeni i ve sbalenem combu, tj. po vyberu, mas nekolik
moznosti:
1) V SQL dotazu to jmeno skladat (viz jiny mail na toto tema)
2) Calculated pole, ale pozor, tam tusim nefunguje dobre
incremental search
3) Data mit v memory table, do ni pridat sloupec treba Zobraz a v
BeforePost (vyskytuje se pri plneni, aspon na RxMemoryData) do
tohoto pole vlozit cele jmeno a prijmeni.
David Lebeda
Pruhledna komponenta
[*] Standa <Ooman(zv)centrum(tec)cz> - 18.1.2002 07:51:12
Vytvarim komponentu ktera bude ve stredu pruhledna a bude nad vsemi
komponentami. Pokud tu komponnetu odvodim od TGraphicControl je sice
pruhledna, ale je jen nad komponentami odvozenych od stejne tridy. Pokud ji
odvodim od TCustomControl neni pruhledna.
Takze vi nekdo jak docilit toho:
a) aby komponenta odvozena od TGraphicControl byla nad v�emi komponentami.
b) aby komponenta odvozena od TCustomControl byla prusvitna.Event Clik out of form
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 18.1.2002 07:51:45
> Potreboval bych vedet jak poznam kdy uzivatel kliknul mimo otevreny
> modalni formular?
Ahoj
Zkus se podivat na OnDeactivate toho Formu.
Jirka
Pruhledna komponenta
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 18.1.2002 08:26:05
Zkus se podivat sem na tuto stranku, je to sice v C++, snad ti to da nejaky napad........
http://www.radekchalupa(tec)cz/tools/clanek.asp?page=developer\cpp_builder\clanky\2002\1\forms_3.htm
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 13367373990
+420605/813644
>>> Ooman(zv)centrum(tec)cz 18.1.02 7:51 >>>
Vytvarim komponentu ktera bude ve stredu pruhledna a bude nad vsemi
komponentami. Pokud tu komponnetu odvodim od TGraphicControl je sice
pruhledna, ale je jen nad komponentami odvozenych od stejne tridy. Pokud ji
odvodim od TCustomControl neni pruhledna.
Takze vi nekdo jak docilit toho:
a) aby komponenta odvozena od TGraphicControl byla nad v�emi komponentami.
b) aby komponenta odvozena od TCustomControl byla prusvitna.
Komunikace pres TCP/IP
[*] Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 18.1.2002 09:10:03
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Gebauer Lukas
> Sent: Wednesday, January 16, 2002 10:32 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: RE: Komunikace pres TCP/IP
>
> Pokud tvuj komunikacni protokol pracuje na principu jednotlivych
> radku (jak to dela vetsina internetovych protokolu), tak s uspechem
> muzes pouzit velmi jednoduche metody: RecvString a SendString.
>
Ahoj,
stahnul jsem si Synapsi a zkousim komunikovat s databazi
prostrednictvim TTCPBlockSocket. Celkem se mi to dari,
ale chtel bych se zeptat na par veci. Jakym zpusobem se
posilaji pres komunikacni protokol, ktery pracuje na principu
jednotlivych radku, velka binarni data (streamy) a jak se resi
to, pokud chci poslat data, ktera v sobe mohou obsahovat
CRLF, ktery se pouziva jako oddelovac jednotlivych zprav.
Dekuji za jakou koliv radu a pripadne i odkaz, kde bych se
o tomto docetl vice.
S pozdravem
Ing. Jaroslav Sipek
IDEA spol. s r.o.
mailto:jaroslav.sipek(zv)idea(tec)cz
http://www.idea(tec)cz OT: Jde doformatovat cast disku???
[*] Jan N�mec�����݊G^��b�dz�� - 18.1.2002 09:29:37
Zdravim,
mam Win98, na 1 HD mam 2 disky, ted chci jeden zrusit, jde pod windowsama
doformatovat ten druhy k prvnimu aniz bych musel zformatovat ten prvni???
diky za kazdou odpoved
Honzik
Komunikace pres TCP/IP
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 18.1.2002 09:37:07
>Jakym zpusobem se
> posilaji pres komunikacni protokol, ktery pracuje na principu
> jednotlivych radku, velka binarni data (streamy) a jak se resi
> to, pokud chci poslat data, ktera v sobe mohou obsahovat
> CRLF, ktery se pouziva jako oddelovac jednotlivych zprav.
tohle lze resit mnoha zpusoby. Pokud komunikujes s nejakym
serverem (ktery sam prave nepises), tak jsou tyto detaily
predem definovany - musis zjistit co server vyzaduje.
Jinak mozne zpusoby reseni jsou:
1) posilani po blocich - kazdy blok obsahuje definici delky
bloku - pak v datech muze byt cokoliv, konec bloku je danjeho delkou
2) zakodovani dat tak, aby neobsahovala nezadouci znaky (CRLF). Viz
HTTP/maily, atd
a BASE64, QuotedPrintable, etc
3) escape/quotovani - pred kazdy zakazany znak prasknes napriklad
'/' - cimz das najevo, ze ma
byt bran jako obycejny znak a ne jako ridici (samozrejme lomitko pak
musis opentlit taky)
D. Toman
COM objekty v Delphi
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 18.1.2002 09:40:38
Zdravim,
muzete mi prosim Vas nekdo poradit kde najit informace, priklady nebo odkazy
na vytvareni COM objektu v Delphi?
Diky
problikavani scrollbaru u dbgridu
[*] <kuchar(zv)unicodesys(tec)cz> - 18.1.2002 09:40:13
CAUTE,
pomoci query delam select nad nejakou tabulkou a zobrazim ho v dbgridu,
nasledne na to upravim sirky jednotlivych sloupecku u dbgridu a to tak ze
nakonec horizontalni scrollbar zmizi, ale kdyz se select podle nejakych
kategorii zopakuje a znova upravim sirky tak tam dost neprijemne problikava
horizontalni scroolbar, da se nejak zrusit to jeho problikavani, nebo uplne
zakazat ?
DIK
Komunikace pres TCP/IP
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 18.1.2002 09:42:09
> stahnul jsem si Synapsi a zkousim komunikovat s databazi
> prostrednictvim TTCPBlockSocket. Celkem se mi to dari,
> ale chtel bych se zeptat na par veci. Jakym zpusobem se
> posilaji pres komunikacni protokol, ktery pracuje na principu
> jednotlivych radku, velka binarni data (streamy) a jak se resi
> to, pokud chci poslat data, ktera v sobe mohou obsahovat
> CRLF, ktery se pouziva jako oddelovac jednotlivych zprav.
> Dekuji za jakou koliv radu a pripadne i odkaz, kde bych se
> o tomto docetl vice.
nejjednodusi reseni je poslat si jednim radkem prikaz, ktery druhe
strane rekne: "hned za timto radkem nasleduji binarni data o
velikosti 785642 bytu." A po odeslani takovehoto prikazu pomoci
sendstring odesles ty data pomoci jednoho (ci postupne klidne i
nekolika) volani Sendbuffer.
na prijimaci strane prijimas a interpretujes radkove prkazy... a kdyz
dostanes prikaz ohlasujici prenos dat, tak zjistis kolik bytu dat mas
prijmout, a tak staci zavolat RecvBufferEx, kteremu reknes pametovy
buffer, kolik ma prijmout dat a timeout na celou operaci... A je to,
pote opet ctes po radcich a cihas na dalsi prikazy.
Pohopitelne pokud se jedna opravdu o hodne velky objem dat, muzes
RecvBufferEx volat na mensi mnoztsvi dat a volat to opakovane.. a
data prubezne ukladat trebas na disk. (takze kdyz chces postupne
prijmout treba 8546 bytu, tak muzes recvBuffr ex vola na prijem 2000,
2000, 2000, 2000, 546 butudat postupne a postupne si je nekam
salatovat...)
neco velmi pdobneho je v synapsi implementovani v httpsend.pas.. tam
take radkove ctu a posilam hlavicky, prectu si kolik bytu dat mam
prijmout a pak volam tuto funkci, takze tam mas vlastne i konkretni
priklad jak na to.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Jde doformatovat cast disku???
[*] Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 18.1.2002 09:45:21
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Jan N�mec
>
> mam Win98, na 1 HD mam 2 disky, ted chci jeden zrusit, jde
> pod windowsama
> doformatovat ten druhy k prvnimu aniz bych musel zformatovat
> ten prvni???
Toto by mel dokazat Partition Magic 5.
S pozdravem
Ing. Jaroslav Sipek
IDEA spol. s r.o.
mailto:jaroslav.sipek(zv)idea(tec)cz
http://www.idea(tec)cz
OT: Jde doformatovat cast disku???
[*] "Petr Slab�" <Slaby(zv)c3(tec)cz> - 18.1.2002 10:01:48
Ahoj,
Zkus pouzit PartitionMagic. Umi menit velikost logickych disku za behu i se zachovanim dat.
Petr
*********** REPLY SEPARATOR ***********
On 18.1.2002 at 9:29 Jan N�mec wrote:
>Zdravim,
>mam Win98, na 1 HD mam 2 disky, ted chci jeden zrusit, jde pod windowsama
>doformatovat ten druhy k prvnimu aniz bych musel zformatovat ten prvni???
>diky za kazdou odpoved
>Honzik
BorderStyle
[*] David Maly <david(zv)archa(tec)com> - 18.1.2002 10:04:24
Ahoj,
ja zkusim jeste jednou otazku, neverim, ze by mi nikdo neumel poradit,
takovejch chytrejch lidi... :)
>
> neporadite mi nekdo, jak nejjednoduseji udelat formular(dialog), ktery nema
> zadne okraje ani caption (proste BorderStyle=bsNone), ale presto ho lze
> zvetsovat a zmensovat ("tahat" za pravy dolni roh, pripadne za okraje)...
>
>
> Diky David
> BorderStyle
[*] brant(zv)dcomm(tec)cz - 18.1.2002 10:45:39
Protoze nejsem tak chytrej, napada me asi totez, co tebe a to ze si
nadefinujes oblast kolem okraju, kde se prislusne zmeni tvar kurzoru mysi a
budes mit osetrene OnMouseMove v tom smyslu, ze se zmeni Width resp. Height
toho formulare. Mozna ze by slo i hrabnout do windowsovske procedury toho
okna, ale nevim, jestli takove okno vubec dostava zpravy tykajici se zmeny
velikosti.
RNDr. Petr Brant
********************************************
* D&COMM s.r.o. - sledov�n� vozidel *
* v re�ln�m �ase a prodej licenc� *
* v r�mci programu Microsoft Select *
* ---------------------------------------- *
* Korunova�n� 6 *
* Praha 7 *
********************************************
ja zkusim jeste jednou otazku, neverim, ze by mi nikdo neumel poradit,
takovejch chytrejch lidi... :)
>
> neporadite mi nekdo, jak nejjednoduseji udelat formular(dialog), ktery
nema
> zadne okraje ani caption (proste BorderStyle=bsNone), ale presto ho lze
> zvetsovat a zmensovat ("tahat" za pravy dolni roh, pripadne za okraje)...
> Jde doformatovat cast disku???
[*] Roland Turcan <rolo(zv)sedas.sk> - 18.1.2002 10:48:28
Posielam ti na sukromny mail
Partition Resizer v. 1.3.3
Roland.
----- Original Message -----
From: "Jan N�mec" <yendikdelphi(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, January 18, 2002 9:29 AM
Subject: OT: Jde doformatovat cast disku???> Zdravim,
> mam Win98, na 1 HD mam 2 disky, ted chci jeden zrusit, jde pod windowsama
> doformatovat ten druhy k prvnimu aniz bych musel zformatovat ten prvni???
> diky za kazdou odpoved
> Honzik
>BDE - KeyViolation
[*] Str�n�k Franti�ek - 18.1.2002 11:38:11
a kam to vrazim ?> ja to delam takto:
>
> function IsKeyViol(E:EDatabaseError;MessageF:boolean):boolean;
> begin
> result:=false;
> if (E is EDBEngineError) then
> begin
> if (E as EDBEngineError).Errors[0].Errorcode = eKeyViol then
> begin
> result:= true;
> if MessageF = true then
> MessageBoxEx(0,'Tento z�znam ji� existuje','Duplicitn�
> z�znam', MB_OK
> + MB_ICONWARNING,Lang_czech);
> end;
> end;
> end;
>
> Jirka Vitr
> email: virt(zv)volny(tec)cz
>
>
> Da se to udelat vice zpusoby , ale jak nejlepe (nejefektivneji) napsat
> (bohuzel stale jeste v tomto pripade pro BDE) odchytinuti duplicitu
> ukladaneho udaje ?
> (vyjimka KeyViolation)
>
> diky
> Franti�ek STR�N�K
> mailto:FSTRANIK(zv)CPOJ.CZ
>
>
>
> OT: Jde doformatovat cast disku???
[*] Karasek Jaroslav <Jaroslav.Karasek(zv)swh.sk> - 18.1.2002 12:11:34
Ahoj,
MS format to nezvlada. Musis pouzit nejaky iny prgram. Najlepsi
(aspon podla mna) je Partition Magic. FAT zvladal vzdy a FAT32 od verzie 5
vyssie. O inych programoch moc neviem.
Jaro
> -----Original Message-----
> From: Jan N�mec [mailto:yendikdelphi(zv)seznam(tec)cz]
> Sent: Friday, January 18, 2002 9:30 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: OT: Jde doformatovat cast disku???
>
>
> Zdravim,
> mam Win98, na 1 HD mam 2 disky, ted chci jeden zrusit, jde
> pod windowsama
> doformatovat ten druhy k prvnimu aniz bych musel
> zformatovat ten prvni???
> diky za kazdou odpoved
> Honzik
> problikavani scrollbaru u dbgridu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.1.2002 12:17:24
> pomoci query delam select nad nejakou tabulkou a zobrazim ho v
> dbgridu, nasledne na to upravim sirky jednotlivych sloupecku u dbgridu
> a to tak ze nakonec horizontalni scrollbar zmizi, ale kdyz se select
> podle nejakych kategorii zopakuje a znova upravim sirky tak tam dost
> neprijemne problikava horizontalni scroolbar, da se nejak zrusit to
> jeho problikavani, nebo uplne zakazat ?
Ciste bez zaruky - nepomohlo by to nastavovani sirek sloupcu
obklicit volanim DisableControls a EnableControls (metody
datasetu)? Resp. obklicit celou zmenu SQL dotazu.
Delas to nastavovani sirek v AfterOpen nebo kde?
David Lebeda
COM objekty v Delphi
[*] Ondrej Kr�ko <krsko(zv)gjh.sk> - 18.1.2002 12:42:24
Mastering Delphi 6, (www.marcocantu.com - stiahni si aspon priklady, najdes
tam aj celu kapitolu o COMe, ActiveX, automatizacii...)
v dokumentacii.
Inak pokial nieco o COMe vies, tak to zvladnes aj bez vsetkeho... Das New ->
ActiveX
COM object
Automation Object
ActiveX Control
lahko sa da navrhnut rozhrania...
----- Original Message -----
From: "L. Filip" <lfilip(zv)lekis(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, January 18, 2002 9:40 AM
Subject: COM objekty v Delphi
> Zdravim,
> muzete mi prosim Vas nekdo poradit kde najit informace, priklady nebo
odkazy
> na vytvareni COM objektu v Delphi?
>
> Diky
COM objekty v Delphi
[*] skalsky(zv)oksystem(tec)cz - 18.1.2002 12:53:59
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
http://skalsky.webzdarma(tec)cz/odkazy/index.html#delphi
odkazy c.28,29,30 jsou nejspis ty, co hledas .... ale hodej se ti mozna i
dalsi ...
----- Original Message -----
From: "L. Filip" <lfilip(zv)lekis(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, January 18, 2002 9:40 AM
Subject: COM objekty v Delphi
> Zdravim,
> muzete mi prosim Vas nekdo poradit kde najit informace, priklady nebo
odkazy
> na vytvareni COM objektu v Delphi?
>
> Diky
COM objekty v Delphi
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 18.1.2002 13:15:52
> Odes�latel: L. Filip <lfilip(zv)lekis(tec)cz>
> muzete mi prosim Vas nekdo poradit kde najit informace, priklady nebo odkazy
> na vytvareni COM objektu v Delphi?
Zalezi na tom, jak hluboko se potrebujes dostat.
Pokud to chces jenom "naklikat", tak staci
-
New/ActiveX/AutomationObject
-
navrhnes interface
-
snadno zvladnes implementaci
-
z Klienta se pomoci CoXXX.Create pripojis na Server a je to.
Pokud to chces ale hloubeji, je toho mnojem vic.
Viz osnova kurzu COM/DCOM na mem webu.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 569 (0776 347735)
=========================================problikavani scrollbaru u dbgridu
[*] <kuchar(zv)unicodesys(tec)cz> - 18.1.2002 13:31:49
nezabral ani afteropen a ani DisableControls a EnableControls metody
datasetu
Jde doformatovat cast disku???
[*] Roland Turcan <rolo(zv)sedas.sk> - 18.1.2002 13:39:26
----- Original Message -----
From: "Roland Turcan" <rolo(zv)sedas.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, January 18, 2002 10:48 AM
Subject: Re: Jde doformatovat cast disku???> Posielam ti na sukromny mail
> Partition Resizer v. 1.3.3
>
> Roland.
>
Pozrite na www.zeleps.com, je tam novsia verzia a zaroven je tam napisane
toto:
IMPORTANT Bug Announcement: Please do NOT use Partition Resizer (v.1.3.3 or
earlier) to move non-FAT partitions (NTFS, Linux ext2fs etc.). Due to a
serious bug, some rare partition chain cases may cause indeterminate data
loss. Please download Partition Resizer 1.3.4 from here.
S pozdravom
Roland.
> ----- Original Message -----
> From: "Jan N�mec" <yendikdelphi(zv)seznam(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Friday, January 18, 2002 9:29 AM
> Subject: OT: Jde doformatovat cast disku???
>
> > Zdravim,
> > mam Win98, na 1 HD mam 2 disky, ted chci jeden zrusit, jde pod
windowsama
> > doformatovat ten druhy k prvnimu aniz bych musel zformatovat ten
prvni???
> > diky za kazdou odpoved
> > Honzik
> >
>
Jde doformatovat cast disku???
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 18.1.2002 14:27:54
Na to je Quartdrec partition magic (nebo tak nejak).
Nespolejlivejsi cesta je zacit znovu (pujcit si velky disk, tam vse zkopirovat).
Neni treba Win znovu instalovat, staci je sysnout, jde to i u WinNT, tam je treba
provest zakladni instalaci (defakto sys) a pak uz jen kopirovat a kopirovat.
Slavek
> Zdravim,
> mam Win98, na 1 HD mam 2 disky, ted chci jeden zrusit, jde pod windowsama
> doformatovat ten druhy k prvnimu aniz bych musel zformatovat ten prvni???
> diky za kazdou odpoved
> Honzik
> "Pseudomodlani" okno s vice oken predkem Desktop
[*] Ales Radikovsky <radik(zv)allstar(tec)cz> - 18.1.2002 14:30:44
Resim "drobny" problem.
Mam aplikaci, ktera ma krome hlavniho okna jeste jedno (Form2), ktere ma
Params.WndParent := GetDesktopWindow;
Params.exstyle := params.exstyle and not WS_EX_TOOLWINDOW or
WS_EX_APPWINDOW;
takze ma ikonu na liste.
V te same aplikaci vytvarim "pseudomodalni" okno pomoci
EnableWindow(Form1.Handle, False);
EnableWindow(Form2.Handle, False);
Form3.Show;
Pri klikani na plose je to v poradku, ale pokud kliknu na ikonu okna na
liste, prehazuje se poradi oken a dokonce se muze dostat Form2 nad
dialog.
Nevite jak tomu zabranit, aby se nemenilo poradi oken a aby se pri
kliknuti na ikonu na plose "jen" presunula cela aplikace do popredi?
Ales
COM objekty v Delphi
[*] Martin Koran <komar(zv)komar(tec)cz> - 18.1.2002 14:31:42
Ahoj,
> muzete mi prosim Vas nekdo poradit kde najit informace,
> priklady nebo odkazy
> na vytvareni COM objektu v Delphi?
>
dost uzitecnych informaci je na
http://www.techvanguards.com/
S pozdravem
Martin Koran
--------------------------------------------
Martin Koran - KOMAR
Podebradova 877
440 01 LOUNY
Czech Republic
tel.: +420 (395) 65 40 19
fax: +420 (395) 65 53 85
hotline: +420 (602) 42 33 72
mailto:komar(zv)komar(tec)cz
http://www.komar(tec)cz
problikavani scrollbaru u dbgridu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.1.2002 15:24:20
> nezabral ani afteropen a ani DisableControls a EnableControls metody
> datasetu
>
Tak zkus poslat kus kodu, nekde musi byt chyba. Jde o casti, kde
menis dotaz i sirky sloupcu.
David Lebeda
problikavani scrollbaru u dbgridu
[*] <kuchar(zv)unicodesys(tec)cz> - 18.1.2002 15:32:36
uz jsem to odstranil pres
>type
>TDBGridHack = class(TrxDBGrid);
>
>
>TDBGridHack(DBGrid1).ScrollBars := ssNone;"Pseudomodlani" okno s vice oken predkem Desktop
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 18.1.2002 19:02:42
Resil jsem podobny problem - aplikace mela chovani podobne
Outlook Expressu, totiz par oken je nemodalnich, maji button
na liste a z nich se volaji podle potreby modalni okna.
Musis si pohrat s udalostmi Application.OnActiveFormChange a
Application.OnActivate - v OnActiveFormChange si
zapamatujes ktere okno ziskalo focus a pokud je modalni
(t.j. fsModal in FormState) a predchozi okno nebylo modalni,
(t.j. situace kdy je zobrazeny dialog a prepnuti na task liste na
jine puvodne nemodalni okno by modalni dialog posunulo "za"
nepristupne okno) zajistit aby se v OnActivate zavolalo na
tom predchozim topmost okne BringToFront a na tom soucasnem
modalnim topmost okne SetFocus.
Uff, radeji poslu ty dve zminene metody:
procedure TAppMainForm.AppActivate(Sender: TObject);
begin
if fCheckTopMost and Assigned(fTopMostForm) then begin
if Assigned(fTopMostNonModal) then
fTopMostNonModal.BringToFront; // posledni non-modal okno
fTopMostForm.SetFocus; // posledni okno
{ Tady by jeste mohlo byt vynucene "stisknuti" buttonu na taskbare aby
uzivatel nebyl zmaten ze zadny button neni stisknut, ale trida
implementujici ITaskBarList je vytazena z Windows az v IE4 a navic
prislusne konstanty CLSID a IID zatim nezname (jsou uvedeny jen v MSDN
jen jako nazvy):
CoCreateInstance(CLSID_TaskBarList, nil, CLSCTX_INPROC_SERVER,
IID_TaskBarList, TBL);
TBL.ActivateTab(fTopMostNonModal.Handle);
TBL := nil; }
end;
end;
procedure TAppMainForm.AppActiveFormChange(Sender: TObject);
begin
if fTopMostForm <> Screen.ActiveCustomForm then begin
fTopMostForm := Screen.ActiveCustomForm;
fCheckTopMost := False;
if Assigned(fTopMostForm) then begin
fCheckTopMost := (fsModal in fTopMostForm.FormState);
if not fCheckTopMost then
fTopMostNonModal := fTopMostForm;
end;
end;
end;
Jeste muze nastat problem kdyz zanikne okno ktere si pamatuji
v fTopMostNonModal kdyz jsem zrovna v modalnim okne,
napriklad u me to byl splashscreen, pak je treba tuto situaci zabezpecit.
Martin Schayna
Aktis a.s.
----- Original Message -----
From: "Ales Radikovsky" <radik(zv)allstar(tec)cz>
Resim "drobny" problem.
Mam aplikaci, ktera ma krome hlavniho okna jeste jedno (Form2), ktere ma
ikonu na liste.
V te same aplikaci vytvarim "pseudomodalni" okno.
Pri klikani na plose je to v poradku, ale pokud kliknu na ikonu okna na
liste, prehazuje se poradi oken a dokonce se muze dostat Form2 nad
dialog.
Nevite jak tomu zabranit, aby se nemenilo poradi oken a aby se pri
kliknuti na ikonu na plose "jen" presunula cela aplikace do popredi?
Ales
Databazovy program v jedinem adresari
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 18.1.2002 20:04:48
Zkus FF2
----- Pavel ZIDEK -----
http://www.kopr(tec)cz/delphi, delphi(zv)kopr(tec)cz
> Zajimalo by me, jestli existuje v Delphi za pomoci standardnich
> prostredku
> moznost udelat databazovou aplikaci, kter� by se spoustela z
> jednoho adresare bez
> nutnosti doinstalovavat cokoli do Windows.
> Ales Vojta,
> sberatel
> context.katalog(zv)centrum(tec)cz
>
>Chyba pri otvirani D6 IDE
[*] Robert Kindl <rob(zv)exec(tec)cz> - 18.1.2002 20:14:07
Mam na formulari TMemo.
Otevru si jeho propertu Lines do editoru IDE (tlacitkem Code Editor v String
List editoru).
Ukoncim Delphi (predpokladam automaticke ulozeni Desktopu).
Pri znovuotevreni Delphi se jiz zalozka Memo.Lines neobjevi a misto toho
to vzdy ohlasi:
Access Violation at address 77F83941 in module 'ntdll.dll'. Write of address
00000010.
To se vola RtlpWaitForCriticalSection s nejakou nulovou adresou (je zde
instrukce inc [eax+$10]).
Tady ale problem neni.
Pri spusteni v Delphi v nejakem Debuggeru to navic hlasi nasledujici
exception:
Unable to locate file system, 'Delphi.TStringsFileSystem'.
Evidentne tedy dojde k pokusu o zobrazeni Memo.Lines jeste pred zavedenim a
registraci
vyse uvedeneho virtualniho FileSystemu, ktery je v unite StFilSys.pas
a balicku DesignIDE60.bpl (DesignIDE.dcp).
Testovano v Delphi 6 SP1 na W2k Pro SP2.
Dela mi to pro jakoukoliv TStrings propertu (napr. TQuery.SQL apod.).
Dela vam to taky? Nejaky tip na odstraneni?
Rob
OT: Kop�rov�n� Windows z HDD1 na HDD2 se v��m
[*] Ing. Petr �vejda <lingvista(zv)lingvista(tec)cz> - 18.1.2002 20:28:14
Windows 2000 Prof
Dostal jsem se do stavu, kdy pot�ebuji star� disk 20 GB zam�nit za nov� disk
40 GB. Nen� pro m� �nosn� v�echno znovu instalovat (je to pr�ce na cel�
den - v lep��m p��pad�). Existuje n�jak� rozumn� postup, n�stroj, utilita,
atd.?
D�ky
Petr
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.314 / Virov� b�ze: 175 - datum vyd�n�: 11.1.2002
Kop�rov�n� Windows z HDD1 na HDD2 se v��m
[*] Milan ��ek - 18.1.2002 20:33:33
ahoj,
doporucuji vynikajici pomucku: Norton Ghost od Symantecu. Staci pouze soubor
o velikosti 700kB nahrat na systemovou disketu a uz tojede. Muzes s tim
prizpusobit velikosti oblasti, vse ti to zkopiruje 1:1. Akorat si porid
nejakou novejsi verzi (2001 nebo 2002) - kdysi jsem mel problem se starsi
verzi, kdyz jsem miroroval 30GB na 40GB, ruzne to tuhlo atp.
Milan Cizek, D6 Ent
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Ing. Petr �vejda
Sent: Friday, January 18, 2002 8:28 PM
To: Konference Delphi
Subject: OT: Kop�rov�n� Windows z HDD1 na HDD2 se v��m v�udy
Windows 2000 Prof
Dostal jsem se do stavu, kdy pot�ebuji star� disk 20 GB zam�nit za nov� disk
40 GB. Nen� pro m� �nosn� v�echno znovu instalovat (je to pr�ce na cel�
den - v lep��m p��pad�). Existuje n�jak� rozumn� postup, n�stroj, utilita,
atd.?
D�ky
Petr
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.314 / Virov� b�ze: 175 - datum vyd�n�: 11.1.2002
Chyba pri otvirani D6 IDE
[*] Zden�k �t�p�nek�����^��ޏ����� - 18.1.2002 21:24:55
Zdravim
Nejsem expert na NT, ale tipuji, ze ntdll.dll je hlavni soucast jadra
systemu. Pokud to driv fungovalo a driv ne, zkusil bych preinstalovat,
nejdriv Delphi a potom Windle.
Zdenek
----- Original Message -----
> Mam na formulari TMemo.
> Otevru si jeho propertu Lines do editoru IDE (tlacitkem Code Editor v
String
> List editoru).
> Ukoncim Delphi (predpokladam automaticke ulozeni Desktopu).
>
> Pri znovuotevreni Delphi se jiz zalozka Memo.Lines neobjevi a misto toho
> to vzdy ohlasi:
> Access Violation at address 77F83941 in module 'ntdll.dll'. Write of
address
> 00000010.
> To se vola RtlpWaitForCriticalSection s nejakou nulovou adresou (je zde
> instrukce inc [eax+$10]).
> Tady ale problem neni.
>
> Pri spusteni v Delphi v nejakem Debuggeru to navic hlasi nasledujici
> exception:
> Unable to locate file system, 'Delphi.TStringsFileSystem'.
>
> Evidentne tedy dojde k pokusu o zobrazeni Memo.Lines jeste pred zavedenim
a
> registraci
> vyse uvedeneho virtualniho FileSystemu, ktery je v unite StFilSys.pas
> a balicku DesignIDE60.bpl (DesignIDE.dcp).
>
> Testovano v Delphi 6 SP1 na W2k Pro SP2.
> Dela mi to pro jakoukoliv TStrings propertu (napr. TQuery.SQL apod.).
>
> Dela vam to taky? Nejaky tip na odstraneni?Richedit,edit,opendialog
[*] Tomis <Tomis(zv)mail(tec)cz> - 18.1.2002 21:34:01
Zdravi vsechny ucastniky konference,
mam na vas dva dotazy. 1,Jak mam otevrit jeden soubor dvakrat, pokazde s
jiniou priponou(napr. .dcc,.ddc), kdyz k nalezeni prvniho souboru pouzivam
opendialog. Soubory jsou ve stejnem adresari a stejne se jmenuji. 2, Jakym
zpusobem jde udelat , kdyz mam richedit v nem mam nejaky text serazeny podle
abecedy(na kazdem radku jedno slovo), a kdyz budu psat do editu tak at se
automaticky kurzor presunuje na urcity radek(neco jako rejstrik v
napovede). Diky za rady Tom� Sl�dek
------------------------------
Http://Sweb(tec)cz/tomovyprogramy - M� vlastn� tvorba
DATA Z KONFERENCE ZA PROSINEC 2001
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 18.1.2002 22:30:13
Preji vsem pekneho dne a opozdene vse nejlepsi v tomto roce.
Na obvykle adrese, tedy
atrey.karlin.mff.cuni(tec)cz/~rk/DataZKonference.shtml
naleznete data z teto konference za prosinec 2001.
Prosim pocitejte s tim, ze i data za leden tohoto roku budou
opozdene priblizne o pul mesice az dve tretiny mesice s
pravdepodobnosti 91.415 %.
Diky za akceptaci
Slavek
Durex - Let's make kids better.
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
http://swnet(tec)cz
-------------------------------------------------
Chyba pri otvirani D6 IDE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.1.2002 01:20:10
From: "Robert Kindl" <rob(zv)exec(tec)cz>
> Dela vam to taky?
Ano dela.
Petr Vones
odeslani souboru
[*] Zden�k Sv�en - 19.1.2002 10:27:43
Ahoj lidi,
potrebuju na server odeslat soubor a nechci nutit uzivatele, aby musel ten
soubor vyhledat a vlozit do HTML formularoveho prvku <INPUT TYPE=FILE ...>
Bohuzel to je ale jediny zpusob, ktery zatim znam a je schopen odeslat memu
scriptu na webu urcity soubor.
Otazka je tedy takova.
Lze programove odeslat scriptu na web soubor tak, aby to melo stejny efekt,
jako kdyz uzivatel vybere soubor k uploadovani ve formulari HTML a odesle
ho?
Jde to?
(Mozna by to zvladla komponenta NMHTTP, ale neumim ji pouzit.)
Diky.
Zdenek
Items.AddObject()
[*] Zden�k Sv�en - 19.1.2002 10:29:34
Ahoj,
Do ListBoxu muzu jako TObject pridat treba integer jako
ListBox.Items.AddObject('text',TObject(cislo));
Muzu nejakym podobnym zpusobem priradit k polozce RECORD ?
Dik.
Zdenek
Mysi kursor
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 19.1.2002 11:14:18
Ahoj,
ve sve aplikaci potrebuji nastavit kursor mysi na crHourGlass. Kdyz
pouziji Screen.Cursor, plati nastaveny kursor pouze nad mou
aplikaci. Jakmile vyjedu mimo form, kursor je tam normalni. Jak
tedy nastavim kursor viditelny i mimo oblast sve aplikace?
Na jednu stranu chapu, ze bych tim vlastne tak trochu poprel
viceulohovost Windows, ale presto - jde to nejak?
Dik.
David Lebeda
Databazovy program v jedinem adresari
[*] bleak <bleak(zv)atlas(tec)cz> - 19.1.2002 11:15:45
co je FF2? kde je?
----- Original Message -----
From: "Pavel ZIDEK" <delphi(zv)kopr(tec)cz>> Zkus FF2
Databazovy program v jedinem adresari
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 19.1.2002 11:32:15
> co je FF2? kde je?
FlashFiler 2 - viz nedavne maily nebo archiv.
David Lebeda
Databazovy program v jedinem adresari
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 19.1.2002 12:03:13
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
>
> co je FF2? kde je?
Ahoj,
FF2 = FlashFiler 2 vice na www.clexpert(tec)cz
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
Praca s lubovolnou castou obrazovky
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 19.1.2002 14:04:03
Chcem urobit program, ktory bude spusteny ako rezidentny program. Po
stlaceni nejakej klavesovej skratky sa program "aktivuje", zmeni sa kurzor
mysi a uzivatel bude moct myskou oznacit nejaky obdlznik na obrazovke. Ked
pusti tlacitko mysi, obrazok s obdlznika sa skopiruje do TImage a bude sa s
nim moct dalej pracovat.
Takze potrebujem pomoct s:
1. reakcia programu na klavesovu skratku
2. zmena kurzoru mysi
3. vyznacenie myskou obdlznik na akejkolvek casti obrazovky a akomkolvek
programe
4. skopirovanie obrazku s obdlznika do TImage
Vdaka za kazdu radu.
FF2 a AnsiShortString
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 19.1.2002 14:59:53
Zdravim,
pouzivam FF2 kde potrebuji vyhodnotit typ promenne. Bohuzel ve FF2 jsou
nektere typy (asi) nekompatibilni a pri vyhodnoceni typu "AnsiShortString"
dojde k chybe.
Mozna delam chybu ja, ale nevim jakou. Pomuze mi kdosi.
Diky Pavel
kousek ukazky k pochopeni problemu:
var
DT: TFieldType;
begin
...
{zjistim typ promenne z nejakeho recordu Data[i].Index}
for i := 0 to xx do
begin
{jestlize DT je ANSIShortString, tak to zde padne na hubu}
DT := ffTable1.FieldByName(Data[i].Index).DataType;
case DT of
ftString:
FieldByName(Data[i].Index).AsString := Data[i].Text;
ftDate:
FieldByName(Data[i].Index).AsDateTime := StrToDate(Data[i].Text);
...
end;
end;
end;
----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
Items.AddObject()
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 19.1.2002 15:02:54
Ne,
domnivam se, ze RECORD je velikost staticka.
> Do ListBoxu muzu jako TObject pridat treba integer jako
> ListBox.Items.AddObject('text',TObject(cislo));
> Muzu nejakym podobnym zpusobem priradit k polozce RECORD ?
Databazovy program v jedinem adresari
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 19.1.2002 15:03:48
http://www.clexpert(tec)cz/software/turbopower/flashfiler.asp
> co je FF2? kde je?
Zjisteni velikosti souboru
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 19.1.2002 15:17:21
Ahoj,
v jedne sve aplikaci potrebuju stahnout nekolik souboru z internetu a
rad bych uzivatele informoval o prubehu stahovani. Nevite nekdo, jak
by se dala zjistit velikost stahovaneho souboru?
--
Martin
D6Pro+SP1, W2k SP2
Items.AddObject()
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 19.1.2002 16:53:31
Ano :-))
type tPokus = record
A, B, C: Integer;
end;
pPokus = ^tPokus;
const sPokus = sizeof(tPokus);
procedure AddRecord(Jmeno: String; Rec: tPokus; Items: TStrings);
var X: pPokus;
begin
System.GetMem(X, sPokus);
System.Move(Rec, X^, sPokus);
Items.AddObject(Jmeno, TObject(X));
end;
procedure DeleteRecord(Index: Integer; Items: TStrings);
begin
FreeMem(pPokus(Items.Objects[Index]));
Items.Delete(Index);
end;
procedure ClearRecord(Items: TStrings);
var X: Integer;
begin
for X:= 1 to Self.ListBox1.Items.Count
do FreeMem(pPokus(Items.Objects[X-1]));
Items.Clear;
end;
function ReadRecord(Index: Integer; Items: TStrings): tPokus;
begin
Result:= pPokus(Items.Objects[Index])^;
end;
Tot vse :-))
Zdenek
----- Original Message -----
From: "Zden�k Sv�en" <dkonf(zv)seznam(tec)cz>
To: "Delphi konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, January 19, 2002 10:29 AM
Subject: Items.AddObject()> Ahoj,
>
> Do ListBoxu muzu jako TObject pridat treba integer jako
> ListBox.Items.AddObject('text',TObject(cislo));
> Muzu nejakym podobnym zpusobem priradit k polozce RECORD ?
>
> Dik.
>
> Zdenek
>FF2 a AnsiShortString
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 19.1.2002 17:50:57
Trosku dotaz zjednodusim,
jak zjistit v FF2 typ promenne, kdyz znam Name promenne, ale neznam poradove
cislo.
var
DT: TFieldType;
tady to padne u typu ASnsiShortString - mozna i u neceho jineho
DT := ffTable1.FieldByName('Jmeno').DataType;
> pouzivam FF2 kde potrebuji vyhodnotit typ promenne. Bohuzel ve FF2 jsou
> nektere typy (asi) nekompatibilni a pri vyhodnoceni typu
"AnsiShortString"
> dojde k chybe.