Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Obycejny SQL dotaz v Delphi na Firebird 1.5 DB
[*] mstevlik(zv)gamo.sk - 17.7.2006 11:05:41
> Dobry den,
>
> mam nasledujici cast kodu, kde mi Delphi 6 stale generuji chybu:
>
> qStred.SQL.Clear; // qStred je typu TIBQuery
> qStred.SQL.Add('SELECT * FROM Strediska');
> TR.StartTransaction;
> qStred.Open;
> qStred.ExecSQL;
>
> --> TR.Commit;
> Error:
> qStred: Cannot perform this operation on an open dataset
>
> Zkousel jsem vsechno mozne, ale chyby se nemuzu zbavit. Kdyz ale po
> chybe necham aplikaci bezet dal, zobrazi se mi v tabulce spravne
> vybrana data. V Delphi programuji pro Firebird poprve, takze se
> omlouvam, jestli je to trivialni (asi je:-)
>
> Prosim poradi mi nekdo co delam spatne? Diky M. Pojsl
Nepouzivam sice Firebird, ale prikaz ExecSQL mi tam pripada zbytocny
Ja pouzivam takuto kostrukciu:
q := TNejakyDataSet.Create;
try
try
q.Pripoj sa na DB (na komponentu)
q.SQL.Text := 'SELECT * FROM Strediska';
q.Open;
while (not q.Eof) do
begin
...
q.Next;
end;
q.Close;
excpet
on e: exception do
osetrenie chyby
end;
finally
q.Free;
end;
Marian Stevlik (Michal)
IS programmer / developer
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
web: www.gamo.sk
mail: mstevlik(zv)gamo.sk
tel: +421 48 4372098, 4137935, 4372111
gsm: +421 905 462010
icq: 38493645
skype: majklbb
delphi-l-owner(zv)clexpert(tec)cz wrote on 17.07.2006 10:53:40:>
>
Obycejny SQL dotaz v Delphi na Firebird 1.5 DB
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 17.7.2006 11:03:41
> qStred.SQL.Clear; // qStred je typu TIBQuery
> qStred.SQL.Add('SELECT * FROM Strediska');
> TR.StartTransaction;
> qStred.Open;
> qStred.ExecSQL;
>
> --> TR.Commit;
> Error:
> qStred: Cannot perform this operation on an open dataset
>
> Prosim poradi mi nekdo co delam spatne? Diky M. Pojsl
>
Podle te chyby evidentne nelze udelat "this operation" na otevreny dataset.
Tim "this operation" je v tomto pripade qStred.ExecSQL, protoze to udelal uz
predchozi prikaz qStred.Open;
Obecne pro vykonani sql prikazu, ktrey vraci kurzor na data, tj. vraci data,
se pouziva qStred.Open nebo qStred.Active:=true, pro uzavreni analogicky
qStred.Close nebo qStred.Active:=false. Pro vykonani sql prikazu, ktery
nevraci data, napr. "delete from tabulka" apod., se pouzije qStred.ExecSQL.
Marek Dostal
D7Prof, WinXP, FireBird 1.0, 1.5
Obycejny SQL dotaz v Delphi na Firebird 1.5 DB
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 17.7.2006 11:15:42
Ahoj, qStred mas podle vseho "otevren" v design time.
Bud musis pouzit pred qStred.SQL.Clear, qStred.Close;
Nebo to uzavrit v design time.
Slavek
Ing. Slavomir Skopalik
Jednatel spolecnosti
Elekt Labs s.r.o.
Chaloupky 158
783 72 Velky Tynec
Czech Republic
--------------------------------------------
Mobil: +420 724 207 851
icq:199 118 333
e-mail:skopalik(zv)elektlabs(tec)cz
http://www.elektlabs(tec)cz
>
> qStred.SQL.Clear; // qStred je typu TIBQuery
> qStred.SQL.Add('SELECT * FROM Strediska');
> TR.StartTransaction;
> qStred.Open;
> qStred.ExecSQL;
>
> --> TR.Commit;
> Error:
> qStred: Cannot perform this operation on an open dataset
>
> Zkousel jsem vsechno mozne, ale chyby se nemuzu zbavit. Kdyz
> ale po chybe necham aplikaci bezet dal, zobrazi se mi v
> tabulce spravne vybrana data. V Delphi programuji pro
> Firebird poprve, takze se omlouvam, jestli je to trivialni (asi je:-)
>
> Prosim poradi mi nekdo co delam spatne? Diky M. Pojsl
>
>
>
Obycejny SQL dotaz v Delphi na Firebird 1.5 DB
[*] Marian Winkler <mw(zv)osoud.frm.justice(tec)cz> - 17.7.2006 11:35:44
Zkus to treba takhle:
With qstred do
Begin
Close;
SQL.Clear; // qStred je typu TIBQuery
SQL.Add('SELECT * FROM Strediska');
Open;
End;
M.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Miloslav Pojsl
Sent: Monday, July 17, 2006 10:54 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Obycejny SQL dotaz v Delphi na Firebird 1.5 DB
Dobry den,
mam nasledujici cast kodu, kde mi Delphi 6 stale generuji chybu:
qStred.SQL.Clear; // qStred je typu TIBQuery
qStred.SQL.Add('SELECT * FROM Strediska');
TR.StartTransaction;
qStred.Open;
qStred.ExecSQL;
--> TR.Commit;
Error:
qStred: Cannot perform this operation on an open dataset
Zkousel jsem vsechno mozne, ale chyby se nemuzu zbavit. Kdyz ale po chybe necham aplikaci bezet dal, zobrazi se mi v tabulce spravne vybrana data. V Delphi programuji pro Firebird poprve, takze se omlouvam, jestli je to trivialni (asi je:-)
Prosim poradi mi nekdo co delam spatne? Diky M. Pojsl
import z CSV
[*] Pavel P <pavel(zv)tvsp(tec)net> - 17.7.2006 12:03:46
Sdfdataset se da najit na http://www.torry.ru/pages.php?id=567
nebo primy odkaz: http://www.torry.ru/db/direct/db_text/sdfdata.zip
PP.
Seriove cislo desky v C#
[*] Petr Vones <konference(zv)petrvones(tec)net> - 17.7.2006 12:03:46
From: "TOROLA electronic - Dalibor Bednarcik" <dalibor(zv)torola(tec)cz>
> Ahoj, poradite mi nekdo jak v .Net 2005 zjistit seriove cislo zakladni
> desky? Pripadne dalsiho HW.
Pomoci WMI class Win32_BaseBoard
Petr Vones
Delphi 2006 a problem s CST Except
[*] David Kopecek <david.kopecek(zv)hacktrack(tec)com> - 17.7.2006 13:17:51
Zdravim konferenci,
tak sem presel z Delphi 7 na Delphi 2006 a mam nasledujici problem
V aplikaci pouzivam JCLExcept pro odchyceni vsech vyjimek v aplikaci..
Na Delphi 7 mi vse fungovalo jak ma vyhazovalo mi to potrebne
informace
Exception EFOpenError: Cannot open file "d:\temp\temp". Access is denied
Exception occured at $0041798B (Module "Classes", Procedure "TFileStream.Create", Unit "", Line 0)
Exception info: OffsetFromProcName=123, OffsetFromLineNumber=00
Except frame-dump: Frame at $0012F530 (type: efkFinally)
Code at $004179A2
Module "Classes", Procedure "TFileStream.Create", Unit "", Line 0
Frame at $0012F57C (type: efkAnyException, handles exception)
Handler at $0040434A
Module "System", Procedure "(zv)ClassCreate", Unit "", Line 0
Frame at $0012F930 (type: efkFinally)
Code at $0043C044
Module "Controls", Procedure "TWinControl.MainWndProc", Unit "", Line 0
Frame at $0012F93C (type: efkAnyException, handles exception)
Handler at $0043C065
Module "Controls", Procedure "TWinControl.MainWndProc", Unit "", Line 0
Frame at $0012FDF4 (type: efkFinally)
Code at $0043C044
Module "Controls", Procedure "TWinControl.MainWndProc", Unit "", Line 0
Frame at $0012FE00 (type: efkAnyException, handles exception)
Handler at $0043C065
Module "Controls", Procedure "TWinControl.MainWndProc", Unit "", Line 0
Frame at $0012FF80 (type: efkAnyException, handles exception)
Handler at $0045416E
Module "Forms", Procedure "TApplication.Run", Unit "", Line 0
Frame at $0012FF8C (type: efkFinally)
Code at $00454197
Module "Forms", Procedure "TApplication.Run", Unit "", Line 0
Frame at $0012FFB4 (type: efkUnknown)
Code at $0012FFB8
ted to hazi jenom
Exception EFOpenError: Cannot open file "d:\temp\temp". Access is denied
Exception occured at $0041798B (Module "Classes", Procedure "Classes.TFileStream.Create", Unit "", Line 0)
Exception info: OffsetFromProcName=123, OffsetFromLineNumber=00
Except frame-dump: Frame at $0012F530 (type: efkUnknown)
Code at $0012F534
Module "", Procedure "", Unit "", Line 0
Frame at $0012F57C (type: efkUnknown)
Code at $0012F580
Module "", Procedure "", Unit "", Line 0
Frame at $0012F930 (type: efkUnknown)
Code at $0012F934
Module "", Procedure "", Unit "", Line 0
Frame at $0012F93C (type: efkUnknown)
Code at $0012F940
Module "", Procedure "", Unit "", Line 0
Frame at $0012FDF4 (type: efkUnknown)
Code at $0012FDF8
Module "", Procedure "", Unit "", Line 0
Frame at $0012FE00 (type: efkUnknown)
Code at $0012FE04
Module "", Procedure "", Unit "", Line 0
Frame at $0012FF80 (type: efkUnknown)
Code at $0012FF84
Module "", Procedure "", Unit "", Line 0
Frame at $0012FF8C (type: efkUnknown)
Code at $0012FF90
Module "", Procedure "", Unit "", Line 0
Frame at $0012FFB4 (type: efkUnknown)
Code at $0012FFB8
Module "", Procedure "", Unit "", Line 0
Map file mam Detailed a stejnak to nefunguje.. POuze kdyz zapnu
moznost Include TD32 Debug info tak to funguje jak ma. Jenze to nechci
vysledny soubor ma 4MB a spoustu veci co tam nechci..
Nesetkal ste se nekdo stim?
Diky David
Komponenta HtmlLite
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 17.7.2006 22:28:28
Pro zobrazeni Html pouzivam komponentu HtmlLite. Nemohu prijit na zpusob jak
zobrazenou stranku vytisknout.
Poradi nekdo?
Delphi 5 Prof.
Viktor Marek
import z CSV
[*] Ing. Zdenek Reznicek <reznicek(zv)pce(tec)cz> - 17.7.2006 22:40:29
Diky,
nejde mi to nainstalovat. Postupuju podle navodu v SDFdata.pas a kdyz v
Install compunets vyberu v unit file name SDFdata.pas a dam compile, nahlasi
mi to chybu:
WARNING: Duplicate resources
[Error] Type 2 (BITMAP), ID TFIXEDFORMATDATASET:
[Error] File C:\Program Files\Borland\Delphi6\Lib\SdfData.dcr resource
kept; file C:\Program Files\Borland\Delphi6\Lib\SdfData.res resource
discarded.
[Error] Type 2 (BITMAP), ID TSDFDATASET:
[Error] File C:\Program Files\Borland\Delphi6\Lib\SdfData.dcr resource
kept; file C:\Program Files\Borland\Delphi6\Lib\SdfData.res resource
discarded.
Soubor SDFData.res jsem nakopioval take do \lib .
Dik Zdenek
----- Original Message -----
From: "Pavel P" <pavel(zv)tvsp.net>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 17, 2006 12:00 AM
Subject: Re: import z CSV
> Mne celkem funguje SDFdataset, ma stejne problemy jako excel tak se jim da
> predejit, jinak funguje jako kazdej jinej dataset, urcite v D6 a D7 a
> kylix o jinych nemam potvrzenou funkcnost...
>
Delphi 2006 a problem s JCL
[*] David Kopecek <david.kopecek(zv)hacktrack(tec)com> - 18.7.2006 10:45:24
Zdravim konferenci,
tak sem presel z Delphi 7 na Delphi 2006 a mam nasledujici problem
V aplikaci pouzivam JCLExcept pro odchyceni vsech vyjimek v aplikaci..
Na Delphi 7 mi vse fungovalo jak ma vyhazovalo mi to potrebne
informace
Exception EFOpenError: Cannot open file "d:\temp\temp". Access is denied
Exception occured at $0041798B (Module "Classes", Procedure "TFileStream.Create", Unit "", Line 0)
Exception info: OffsetFromProcName=123, OffsetFromLineNumber=00
Except frame-dump: Frame at $0012F530 (type: efkFinally)
Code at $004179A2
Module "Classes", Procedure "TFileStream.Create", Unit "", Line 0
Frame at $0012F57C (type: efkAnyException, handles exception)
Handler at $0040434A
Module "System", Procedure "(zv)ClassCreate", Unit "", Line 0
Frame at $0012F930 (type: efkFinally)
Code at $0043C044
Module "Controls", Procedure "TWinControl.MainWndProc", Unit "", Line 0
Frame at $0012F93C (type: efkAnyException, handles exception)
Handler at $0043C065
Module "Controls", Procedure "TWinControl.MainWndProc", Unit "", Line 0
Frame at $0012FDF4 (type: efkFinally)
Code at $0043C044
Module "Controls", Procedure "TWinControl.MainWndProc", Unit "", Line 0
Frame at $0012FE00 (type: efkAnyException, handles exception)
Handler at $0043C065
Module "Controls", Procedure "TWinControl.MainWndProc", Unit "", Line 0
Frame at $0012FF80 (type: efkAnyException, handles exception)
Handler at $0045416E
Module "Forms", Procedure "TApplication.Run", Unit "", Line 0
Frame at $0012FF8C (type: efkFinally)
Code at $00454197
Module "Forms", Procedure "TApplication.Run", Unit "", Line 0
Frame at $0012FFB4 (type: efkUnknown)
Code at $0012FFB8
ted to hazi jenom
Exception EFOpenError: Cannot open file "d:\temp\temp". Access is denied
Exception occured at $0041798B (Module "Classes", Procedure "Classes.TFileStream.Create", Unit "", Line 0)
Exception info: OffsetFromProcName=123, OffsetFromLineNumber=00
Except frame-dump: Frame at $0012F530 (type: efkUnknown)
Code at $0012F534
Module "", Procedure "", Unit "", Line 0
Frame at $0012F57C (type: efkUnknown)
Code at $0012F580
Module "", Procedure "", Unit "", Line 0
Frame at $0012F930 (type: efkUnknown)
Code at $0012F934
Module "", Procedure "", Unit "", Line 0
Frame at $0012F93C (type: efkUnknown)
Code at $0012F940
Module "", Procedure "", Unit "", Line 0
Frame at $0012FDF4 (type: efkUnknown)
Code at $0012FDF8
Module "", Procedure "", Unit "", Line 0
Frame at $0012FE00 (type: efkUnknown)
Code at $0012FE04
Module "", Procedure "", Unit "", Line 0
Frame at $0012FF80 (type: efkUnknown)
Code at $0012FF84
Module "", Procedure "", Unit "", Line 0
Frame at $0012FF8C (type: efkUnknown)
Code at $0012FF90
Module "", Procedure "", Unit "", Line 0
Frame at $0012FFB4 (type: efkUnknown)
Code at $0012FFB8
Module "", Procedure "", Unit "", Line 0
Map file mam Detailed a stejnak to nefunguje.. POuze kdyz zapnu
moznost Include TD32 Debug info tak to funguje jak ma. Jenze to nechci
vysledny soubor ma 4MB a spoustu veci co tam nechci..
Nesetkal ste se nekdo stim?
Diky David
Komponenta HtmlLite
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 18.7.2006 09:03:17
Ing. Igor Vodicka wrote:
> HtmlViewer, ale meji stejny zaklad jen Lite ma jista omezeni.
No prave:
THtmlLite does not support Frames or the printing of HTML documents.
[...]
HTH, pf
Komponenta HtmlLite
[*] Ing. Igor Vodicka <vodicka(zv)sagit(tec)cz> - 18.7.2006 08:57:17
> Behalf Of Viktor Marek
>
> Pro zobrazeni Html pouzivam komponentu HtmlLite. Nemohu prijit na
> zpusob jak zobrazenou stranku vytisknout.
Je tam metoda Print. Ja si ce pouzivam komercni verzi komponentu HtmlViewer,
ale meji stejny zaklad jen Lite ma jista omezeni. Zde je citace z napovedy:
"Declaration
procedure Print(FromPage, ToPage: integer);
Description
Print prints the current document starting with FromPage and ending with
ToPage. Pages start at page 1.
Example
Viewer.Print(1, 9999);
will print the entire document."
Ing. Igor Vodicka
informacni systemy
Nakladatelstvi Sagit
Tel.: 59 6786 001
HTTP://www.sagit(tec)cz/
T-SQL - SaveToFile
[*] Jiri Puncochar <jiri.puncochar(zv)bcpraha(tec)com> - 18.7.2006 08:31:15
Zdravim,
mozny zpusob zapisu do souboru na serveru je pres DMO. Prihlaseny uzivatel
MSSQL potrebuje mit odpovidajici prava pro pristup na disk.
-- podle knihy Kena Hendersona - Mistrovstvi v T-SQL
declare (zv)object int, (zv)hr int, (zv)bcobject int, (zv)rowsexported int
exec (zv)hr=sp_OACreate 'SQLDMO.SQLServer', (zv)object output
exec (zv)hr=sp_OACreate 'SQLDMO.BulkCopy', (zv)bcobject output
exec (zv)hr = sp_OASetProperty (zv)bcobject, 'DataFilePath', 'C:\temp\pubs.txt' --
output file
exec (zv)hr = sp_OASetProperty (zv)bcobject, 'DataFileType', 2 --
tab delimited
exec (zv)hr = sp_OAMethod (zv)object, 'Connect', NULL, 'server...', 'user...',
'pwd...' -- server, user id, pwd
exec (zv)hr = sp_OAGetProperty (zv)object, 'Databases', (zv)object out
exec (zv)hr = sp_OAMethod (zv)object, 'Item', (zv)object out, 'pubs' --
database name
exec (zv)hr = sp_OAMethod (zv)object, 'Tables', (zv)object out, 'dbo.authors' --
table name
exec (zv)hr = sp_OAMethod (zv)object, 'ExportData', (zv)rowsexported out, (zv)bcobject
print (zv)rowsexported
Jirka
----- Original Message -----
From: "Ludek" <konference(zv)sales(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, July 14, 2006 11:50 AM
Subject: T-SQL - SaveToFile
> Zdravim,
> Nejak se mi nedari prijit na to, jak z promenne v T-SQL zapsat do souboru
> umisteneho na serveru. Potreboval bych zalozit soubor a pridava do nej
> jednotlive radky.
> Diky
> Ludek ZITA
Sprava verzi
[*] Dalibor <dalibor(zv)torola(tec)cz> - 18.7.2006 14:41:41
Ahoj, muzete mi nekdo doporucit nastroj na spravu verzi, ktery podporuje Visual Studio Net 2005. Jak free, tak i komercni.
Zajimaji me i zkusenosti.
Dekuji
Dalibor
Rozbaleni comboboxu
[*] Johanka Arkova <johanka.arkova(zv)pnws.org> - 18.7.2006 14:33:40
Ahoj,
chci se zeptat, jde nejak presvedcit combobox, aby tu sipecku na
rozbalovani mel nalevo a text byl zarovnany doprava? (presne obracene,
nez to ma defaultne)
Diky,
Joan
Uzivatelske jmeno...
[*] Johanka Arkova <johanka.arkova(zv)pnws.org> - 18.7.2006 15:01:43
Cinda wrote:
>Nevi, prosim vas nekdo, jak by se dalo zjistit jmeno, prijmeni a uzivatelske
>jmeno z operacniho
>systemu (Windows) prave prihlaseneho uzivatele??? Zdarec a dik. Cinda.
>
>
>
>
Ahoj,
pro NT systemy (NT, 2000, XP)
function PSIsNTSystem:boolean;
var reg:TRegistry;
begin
reg:=TRegistry.Create;
try
try
reg.RootKey:=HKEY_LOCAL_MACHINE;
result:=reg.KeyExists('Software\Microsoft\Windows
NT\CurrentVersion\Winlogon');
except
result:=false;
end;
finally
reg.Free;
end;
end;
function PSGetShellFileName:string;
var
Reg: TRegistry;
ini:TIniFile;
begin
result:='';
try
if PSIsNTSystem then
begin
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows
NT\CurrentVersion\Winlogon',False);
Result :=Reg.ReadString('Shell');
finally
Reg.Free;
end;
end
else begin
ini:=TIniFile.Create(GetWinDir+'\system.ini');
try
result:=ini.ReadString('boot','shell','');
finally
ini.free;
end;
end;
except
result:='';
end;
end;
function PSGetNTUserName:string;
var pid:Cardinal;
hProcess,hToken:THandle;
has,need,nneed,dneed:cardinal;
tUser:PTokenUser;
res,dom:pAnsiChar;
buff:cardinal;
begin
result:='';
pid:=FindPID(PSGetShellFileNAme);
if PID=0 then exit;
hProcess:=OpenProcess(PROCESS_QUERY_INFORMATION,false,PID);
if hProcess<>0 then
begin
//result:='OpenProces';
OpenProcessToken(hProcess,TOKEN_QUERY,hToken);
if hToken<>0 then
begin
has:=1024;
//result:='OpenToken';
tUser := PTokenUser(AllocMem(has));
if GetTokenInformation(hToken,TokenUser,tUser,has,need) then
begin
//result:='OpenTokInf';
nneed:=1024;
dneed:=nneed;
GetMem(res,nneed);
GetMem(dom,dneed);
LookupAccountSid(nil,tUser.User.Sid,res,nneed,dom,dneed,Buff);
result:=StrPas(res);
FreeMem(Res);
FreeMem(dom);
end;
CloseHandle(hToken);
end;
CloseHandle(hProcess);
end;
end;
Uzivatelske jmeno...
[*] Cinda <cinda(zv)mymail(tec)cz> - 18.7.2006 14:57:42
Nevi, prosim vas nekdo, jak by se dalo zjistit jmeno, prijmeni a uzivatelske
jmeno z operacniho
systemu (Windows) prave prihlaseneho uzivatele??? Zdarec a dik. Cinda.
Uzivatelske jmeno...
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 18.7.2006 15:05:43
> Nevi, prosim vas nekdo, jak by se dalo zjistit jmeno,
> prijmeni a uzivatelske
> jmeno z operacniho
> systemu (Windows) prave prihlaseneho uzivatele??? Zdarec a
> dik. Cinda.
>
Treba takhle
function UserName: String;
const
MAX_USERNAME_LENGTH = 255;
var
C: array[0..MAX_USERNAME_LENGTH] of Char;
L: DWORD;
begin
L := MAX_USERNAME_LENGTH;
if GetUserName(C, L) then
Result := C
else
Result := '';
end;
Jirka
Uzivatelske jmeno... - 2
[*] Johanka Arkova <johanka.arkova(zv)pnws.org> - 18.7.2006 15:03:43
Cinda wrote:
>Nevi, prosim vas nekdo, jak by se dalo zjistit jmeno, prijmeni a uzivatelske
>jmeno z operacniho
>systemu (Windows) prave prihlaseneho uzivatele??? Zdarec a dik. Cinda.
>
>
>
>
....
a obecne (s pouzitim metod z predchoziho emailu)
function PSGetUserName:string;
var name:pAnsiChar;
size:cardinal;
begin
if PSIsNTSystem then result:=PSGetNTUserName
else begin
result:='';
try
size:=1024;
GetMem(name,size);
GetUserName(name,size);
result:=StrPas(Name);
FreeMem(name);
except
result:='';
end;
end;
end;
Jak na inteligentni navigaci v DBGrid
[*] Miloslav Pojsl <mpojsl(zv)seznam(tec)cz> - 18.7.2006 15:35:45
Dobry den,
prosim jak se da inteligentne vyresit nasledujici uloha. Mam v Delphi formular s tabulkou (TDBGrid) napojenou na IBQuery. Pri udalosti IBQuery.OnAfterScroll se mi v tom samem formulari zobrazi detail aktualniho zaznamu. Kdyz zaznam aktualizuji (pomoci SQL "UPDATE...",
musim IBQuery nejprve zavrit, vykonat SQL kod a pak IBQuery znovu otevrit, aby v ni byly videt vykonane zmeny. Jenze to se mi aktualni zaznam nastavi na First, tedy ne na ten, ktery jsem prave aktualizoval a ja bych rad videl v detailu ne prvni ale aktualizovany zaznam.
Nevite, jak to chytre udelat?
Pamatovat si ID aktualizovaneho zaznamu a pak v cyklu prochazet DataSet az narazim na onen zaznam se mi zda otresna moznost (Pomale pri vetsim mnozstvi zaznamu a strasne humpolacke:-)
Dekuji za namety, zdravi Milos Pojsl
Jak na inteligentni navigaci v DBGrid
[*] Dalibor <dalibor(zv)torola(tec)cz> - 18.7.2006 16:01:47
Napadaji me tri moznosti
1. Zapamatovat si recno a potom recno dosadit zpet.
tmp:=IBQuery.recno
....
IBQuery.recno = tmp;
Ale muze se stat, ze po znovu otevreni SQL dotazu se tam objevi nova veta,
tak recno muze odkazovat na jiny zaznam.
2. Zapamatovat si to ID(nebo nejaky jiny sloupec, ktery ma unikatni zaznamy)
a na zaznam se presunout pomoci IBQuey.Locate('ID', ...
3 Vyuzit Bookmark, viz napoveda.
Dalibor
From: "Miloslav Pojsl" <mpojsl(zv)seznam(tec)cz>
> Dobry den,
> prosim jak se da inteligentne vyresit nasledujici uloha. Mam v Delphi
> formular s tabulkou (TDBGrid) napojenou na IBQuery. Pri udalosti
> IBQuery.OnAfterScroll se mi v tom samem formulari zobrazi detail
> aktualniho zaznamu. Kdyz zaznam aktualizuji (pomoci SQL "UPDATE...",
> musim IBQuery nejprve zavrit, vykonat SQL kod a pak IBQuery znovu otevrit,
> aby v ni byly videt vykonane zmeny. Jenze to se mi aktualni zaznam nastavi
> na First, tedy ne na ten, ktery jsem prave aktualizoval a ja bych rad
> videl v detailu ne prvni ale aktualizovany zaznam.
>
> Nevite, jak to chytre udelat?
>
> Pamatovat si ID aktualizovaneho zaznamu a pak v cyklu prochazet DataSet az
> narazim na onen zaznam se mi zda otresna moznost (Pomale pri vetsim
> mnozstvi zaznamu a strasne humpolacke:-)
Jak na inteligentni navigaci v DBGrid
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 18.7.2006 15:53:47
>napojenou na IBQuery. Pri udalosti IBQuery.OnAfterScroll se mi v tom samem
formulari zobrazi detail aktualniho zaznamu. Kdyz zaznam aktualizuji (pomoci
SQL "UPDATE...",
> musim IBQuery nejprve zavrit, vykonat SQL kod a pak IBQuery znovu otevrit,
aby v ni byly videt vykonane zmeny. Jenze to se mi aktualni zaznam nastavi
na First, tedy ne na ten, ktery jsem prave aktualizoval a ja bych rad videl
v detailu ne prvni ale aktualizovany zaznam.
Misto IBQ bych pouzil napr. TIBdataset, ktery umi sam updatovat zaznamy,
nebo nejaky dataset, ktery umi refreshrecord. Co treba
clientdataset+provider?
Martin
Jak na inteligentni navigaci v DBGrid
[*] Tomas Krejzek <tomas.krejzek(zv)kpsys(tec)cz> - 18.7.2006 16:11:48
Nevim, tuhle humpolactinu pouzivam a naprosto bez problemu, jen se vyplati nejdriv odpojit
DataSet od DataSource abys nedelal uzivateli divadlo.
Tom
Miloslav Pojsl napsal(a):
> Dobry den,
> prosim jak se da inteligentne vyresit nasledujici uloha. Mam v Delphi formular s tabulkou (TDBGrid) napojenou na IBQuery. Pri udalosti IBQuery.OnAfterScroll se mi v tom samem formulari zobrazi detail aktualniho zaznamu. Kdyz zaznam aktualizuji (pomoci SQL "UPDATE...",
> musim IBQuery nejprve zavrit, vykonat SQL kod a pak IBQuery znovu otevrit, aby v ni byly videt vykonane zmeny. Jenze to se mi aktualni zaznam nastavi na First, tedy ne na ten, ktery jsem prave aktualizoval a ja bych rad videl v detailu ne prvni ale aktualizovany zaznam.
>
> Nevite, jak to chytre udelat?
>
> Pamatovat si ID aktualizovaneho zaznamu a pak v cyklu prochazet DataSet az narazim na onen zaznam se mi zda otresna moznost (Pomale pri vetsim mnozstvi zaznamu a strasne humpolacke:-)
>
> Dekuji za namety, zdravi Milos Pojsl
>
>
>
>
Jak na inteligentni navigaci v DBGrid
[*] Kalhous <kalhous(zv)eu(tec)cz> - 18.7.2006 16:25:49
> musim IBQuery nejprve zavrit, vykonat SQL kod a pak IBQuery znovu otevrit,
aby v ni byly videt vykonane zmeny. Jenze to >se mi aktualni zaznam nastavi
na First, tedy ne na ten, ktery jsem prave aktualizoval a ja bych rad videl
v detailu ne prvni ale >aktualizovany zaznam.
> Nevite, jak to chytre udelat?
> Pamatovat si ID aktualizovaneho zaznamu a pak v cyklu prochazet DataSet az
narazim na onen zaznam se mi zda otresna >moznost (Pomale pri vetsim
mnozstvi zaznamu a strasne humpolacke:-)
Neprochazet to v cyklu ale udelat na datasetu locate.
Z.Kalhous
Kylix 3 - exception handling
[*] Roland Turcan <konf(zv)rotursoft.sk> - 18.7.2006 16:49:51
Hello Delphi CZ konferencia!
Obraciam sa na vas s prosbou o nakopnutie spravnym smerom. Potreboval
by som nejaky popis k MAP suborom, lebo mame nejake vynimky, ktore
dostli zakaznici a su to velmi zriedkave, ktore niekedy nevedia z
reprodukovat. Poslu nam iba "screenshot of exception" a neviem si z
toho vycitat co potrebujem aj napriek tomu, ze mam presny MAP file.
Velmi uzitocny by bol aj vypis stacku, ale Petrova Vonesova kniznica,
ktoru pouzivam vo VCL sa neda pouzit na Kylixe.
Pripadne poznate nejaky nastroj "EurekaLog", "madExcept" for Kylix?
Dakujem.
--
Best regards, TRoland
http://exekutor.rotursoft.sk
Synaser, nepovolene hodnoty
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 18.7.2006 16:27:49
Ahoj vsichni
Mam takovy drobny dotaz. V D7 zkousim vyuzit Synaser a pomoci metody SetCommState nejsem schopen nastavit nektere hodnoty napr. stopbit delky 1.5 mene jak 6 datovych bitu, rychlost vetsi jak 115200 Bd
a kombinaci
Port.DCB.Flags:=dcb_Binary or dcb_OutxDsrFlow or
dcb_DtrControlEnable or dcb_DtrControlHandshake or
dcb_ParityCheck;
Delam neco spatne, nebo je to problem HW ci Win XP? Mam taky pocit ze funkce GetCommState a SetCommState volaji primo odpovidajici fce API.
dekuji
Jaromir Cermak
Sprava verzi
[*] Petr Vones <konference(zv)petrvones(tec)net> - 18.7.2006 17:49:55
From: "Dalibor" <dalibor(zv)torola(tec)cz>
> Ahoj, muzete mi nekdo doporucit nastroj na spravu verzi, ktery podporuje
> Visual Studio Net 2005. Jak free, tak i komercni.
http://ankhsvn.tigris.org/
Petr Vones
Standalone VCS integrovany do Delphi
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 29.7.2006 16:09:20
Zdravim,
>Myslim, ze by sel udelat nejaky jednoduchy expert, ktery by volal pres
>commandlajnu prikazy pro SVN. Mozna i nejaky GExperts apod umi do menu
>pridat volani programu, pak by to bylo uplne super.
>Pokud na tom ale netrvas, muzes vyuzit skvelou integraci TortoiseSVN do
>shellu, pak jen kliknes pravym, das commit ahotovo.
>
>
>
nainstaluj si posledni verzi JCL a JVCL. Pri instalaci je tam vloba,
kde je mozno takoveho experta nainstalovat. Po instalci bude
v hlavnim menu Delphi dalsi vetev menu pro verzovani. Je to wraper
prave na TortoiseSVN a TortoiseCVS.
Sam jsem jeste nemnel cas to vyzkouset, takze jak to chodi nevim.
Je to ale zatim experimentalni verze.
Vaclav Halik
ExecWait - nie pre exe, ale pre napr. dokumenty
[*] Peter Ondras <konfery(zv)pse.sk> - 29.7.2006 13:17:09
Nasiel som na koders.com funkciu pre spustenie programu a cakanie na
jeho zatvorenie. Funkcia pracuje spravne, ale len pre spustatelne
programy. Ja ju vsak potrebujem pre ine typy suborov ako exe, ale napr.
doc, xls, ale aj pre asociovane programy, ktore sa nedaju pouzit cez
ole. V tejto chvili dokazem cez nu dokument spustit. Problem je v tom,
ze ja dam spustit asociovany program (s parametrom ktorym je nazov
suboru), avsak hned po spusteni sa funkcia uz ukonci. Konkretne word mi
spravne otvori dokument, ale hned po otvoreni sa funkcia konci co je
vsak pre mna chybne. Existuje na toto riesenie (ine ako ole)?
Standalone VCS integrovany do Delphi
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 29.7.2006 10:48:59
On 29.7.2006 0:46 Jiri Foldyna wrote:
> Ahoj,
>
> rad bych si poridil spravu verzi - pouze pro jednoho uzivatele, nejak
> ztracim prehled :-). Vubec se v problematice neorientuji, muzete mi nekdo
> neco doporucit nebo nasmerovat ?
> Potrebuji to pro D5 na W2K, chtel bych to integrovane do IDE, a uplne
> nejdulezitejsi je, ze to potrebuji casto (denne) prenaset z jedne masiny na
> druhou nebo treti (pocitac v praci, doma a notebook). Prenos dat delam pres
> 40GB USB disk, ktery si pripojuji k pocitaci a pro synchronizaci pouzivam
> skript pro Directory Toolkit. Zatim jsem se dival na Tortoise SVN, tam mi
SVN pouzivam. Klidne muset mit repository na tom disku a vzdy tam commitovat
zmeny a mit toto repository na vsech masinach namapovane. Nekdy to tak tez
pouzivam.
> chybi vetsi integrace do IDE, a na JVCS, tam si zase nejsem jisty, jestli
> pujde jednoduse (pomoci kopirovani souboru) synchronizovat repository a
> nastaveni serveru a klienta.
Zkus se podivat na http://www.pushok.com/soft_scc_borland.php , ale neznam
to, jen jsem to nasel.
Myslim, ze by sel udelat nejaky jednoduchy expert, ktery by volal pres
commandlajnu prikazy pro SVN. Mozna i nejaky GExperts apod umi do menu
pridat volani programu, pak by to bylo uplne super.
Pokud na tom ale netrvas, muzes vyuzit skvelou integraci TortoiseSVN do
shellu, pak jen kliknes pravym, das commit ahotovo.
--
Jiri Cincura
http://blog.vyvojar(tec)cz/jirka/ | http://www.ID3renamer.com
Standalone VCS integrovany do Delphi
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 29.7.2006 00:46:15
Ahoj,
rad bych si poridil spravu verzi - pouze pro jednoho uzivatele, nejak
ztracim prehled :-). Vubec se v problematice neorientuji, muzete mi nekdo
neco doporucit nebo nasmerovat ?
Potrebuji to pro D5 na W2K, chtel bych to integrovane do IDE, a uplne
nejdulezitejsi je, ze to potrebuji casto (denne) prenaset z jedne masiny na
druhou nebo treti (pocitac v praci, doma a notebook). Prenos dat delam pres
40GB USB disk, ktery si pripojuji k pocitaci a pro synchronizaci pouzivam
skript pro Directory Toolkit. Zatim jsem se dival na Tortoise SVN, tam mi
chybi vetsi integrace do IDE, a na JVCS, tam si zase nejsem jisty, jestli
pujde jednoduse (pomoci kopirovani souboru) synchronizovat repository a
nastaveni serveru a klienta.
Diky za kazdy tip.
Zdravim
Jiri Foldyna
select s prazdnym retazcom
[*] Ivan Dulgerov <ivan.dulgerov(zv)sazp.sk> - 28.7.2006 13:59:31
Martin Burle wrote / napisal(a):
>> funguje to v pohode az do chvile ked je jedna polozka
>> prazdna (napr. chyba telefon), vtedy mi program
>> zaznam nezobrazi aj ked vsetky ostatne podmienky
>> vyhovuju.
>
> Osetri null hodnoty pomoci coalesce, tj. ...where Coalesce(MENO, '')
> like...
*Bingo, uz to facha ;-)
--
S pozdravom
Ivan Dulgerov CEI SAZP Delphi programator
select s prazdnym retazcom
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 28.7.2006 13:11:28
Quoting Ivan Dulgerov <ivan.dulgerov(zv)sazp.sk>:
> 'select * from PREDAJCOVIA where MENO like
> ''%'+Edit1.Text+'%'' and '+
> 'PRIEZVISKO like ''%'+Edit2.Text+'%'' and '+
> 'MESTO like ''%'+Edit3.Text+'%'' and '+
>
> funguje to v pohode az do chvile ked je jedna polozka
> prazdna (napr. chyba telefon), vtedy mi program
> zaznam nezobrazi aj ked vsetky ostatne podmienky
> vyhovuju.
Ahoj, potiz je, ze Telefon obsahuje NULL, ne?
Co do podminky dat neco jako:
COALESCE(PRIEZVISKO,'') like...
I kdyz ja to delam spis tak, ze podminku sestavuju za behu programu a
davam do ni jen ta policka, ktera uzivatel v dotazu pro hledani necim
vyplnil.
Dale, mnohdy jde pouzit "STARTING" nebo LIKE xxx% misto LIKE %xxx%
Karel Rys
select s prazdnym retazcom
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 28.7.2006 13:09:27
> funguje to v pohode az do chvile ked je jedna polozka
> prazdna (napr. chyba telefon), vtedy mi program
> zaznam nezobrazi aj ked vsetky ostatne podmienky
> vyhovuju.
Osetri null hodnoty pomoci coalesce, tj. ...where Coalesce(MENO, '')
like...
MB
select s prazdnym retazcom
[*] Ivan Dulgerov <ivan.dulgerov(zv)sazp.sk> - 28.7.2006 13:01:27
Zdravim.
Zadam select napr.
'select * from PREDAJCOVIA where MENO like
''%'+Edit1.Text+'%'' and '+
'PRIEZVISKO like ''%'+Edit2.Text+'%'' and '+
'MESTO like ''%'+Edit3.Text+'%'' and '+
..... atd
funguje to v pohode az do chvile ked je jedna polozka
prazdna (napr. chyba telefon), vtedy mi program
zaznam nezobrazi aj ked vsetky ostatne podmienky
vyhovuju.
Otazka : Co s tym? :-)
--
S pozdravom
Ivan Dulgerov CEI SAZP Delphi programator
FIB Plus - upgrade a update
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 28.7.2006 12:37:25
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Pavel Malinsky
a jeste dodam, kdyz tak na to koukam:
We offer our registered users large prolongation discounts for next years.
Buy a 1-year prolongation and get a 30% discount! Buy a 2-year prolongation
and get a 50% discount! To claim for the discount, please, contact us
Tak to neni zas tak blizeni se cene nove licence.
Je potreba proste zvazit zda koupit a pouzivat nebo napsat
si sam. Jsou veci ktere bych si sam nepsal za ty prachy ani omylem
(napr Developer express, FastReport, DBComaprer...)
Ale to je muj osobni nazor.
PM
> > Na strankach vyrobce to nemohu najit a od ceskeho prodejce
> > mam informaci
> > - a take to tak prodava - prodlouzeni licence na 1 nebo 2 roky
> > (ovsem cena se blizi nove licenci)
> > http://www.devshop(tec)cz/?r=1915825964&s=dfc1f2ec2757956ee157d971
> > 556b5ab6&t=108&katcislo=4305
> >
> > Nevim ale zda plati nejaky casovy update pri prvotnim nakupu.
>
> Nevim jak na devshopu, ja pokud to je jen trochu mozne kupuji
> primo u vyrobce. Stejne si to stahnes a nemusis mit zadnou krabici.
>
> Jinak: http://www.devrace.com/en/shop/fibplus.php
>
> >>>>>> Important: All registered FIBPlus users get all updates and new
> FIBPlus versions free of charge during a year after purchase! In
> consideration for payment by you to Devrace, Devrace grants to you a
> non-exclusive, perpetual license for the FIBPlus in the terms
> of License
> Agreement (read License.txt in FIBPlus archives). If you want to keep
> getting updates after a year you can purchase a license prolongation.
>
> PM
>
>
>
>
> FIB Plus - upgrade a update
[*] Alan Cermak <al.cerm(zv)iol(tec)cz> - 28.7.2006 12:35:25
info(zv)drnholec(tec)cz napsal(a):
> Na strankach vyrobce to nemohu najit a od ceskeho prodejce mam informaci
> - a take to tak prodava - prodlouzeni licence na 1 nebo 2 roky
> (ovsem cena se blizi nove licenci)
> http://www.devshop(tec)cz/?r=1915825964&s=dfc1f2ec2757956ee157d971556b5ab6&t=108&katcislo=4305
>
> Nevim ale zda plati nejaky casovy update pri prvotnim nakupu.
>
Prvni nakup ma upgrade po dobu 1 roku zdarma, pak se da koupit
prolongace na 1 rok (o 30% nizsi cena) nebo na 2 roky (50%). Je to na
www.devrace.com. Registrovany uzivatel ma pristup na web, odkud se
update da stahnout. Nekdy jim to trochu hapruje, ale na upozorneni
reaguji promptne.
FIB Plus - upgrade a update
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 28.7.2006 12:29:24
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of info(zv)drnholec(tec)cz
> Sent: Friday, July 28, 2006 11:57 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: FIB Plus - upgrade a update
> Na strankach vyrobce to nemohu najit a od ceskeho prodejce
> mam informaci
> - a take to tak prodava - prodlouzeni licence na 1 nebo 2 roky
> (ovsem cena se blizi nove licenci)
> http://www.devshop(tec)cz/?r=1915825964&s=dfc1f2ec2757956ee157d971
> 556b5ab6&t=108&katcislo=4305
>
> Nevim ale zda plati nejaky casovy update pri prvotnim nakupu.
Nevim jak na devshopu, ja pokud to je jen trochu mozne kupuji
primo u vyrobce. Stejne si to stahnes a nemusis mit zadnou krabici.
Jinak: http://www.devrace.com/en/shop/fibplus.php
>>>>>> Important: All registered FIBPlus users get all updates and new
FIBPlus versions free of charge during a year after purchase! In
consideration for payment by you to Devrace, Devrace grants to you a
non-exclusive, perpetual license for the FIBPlus in the terms of License
Agreement (read License.txt in FIBPlus archives). If you want to keep
getting updates after a year you can purchase a license prolongation.
PM
Poslani datoveho streamu pres Internet
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 28.7.2006 12:11:22
On Friday, July 28, 2006 11:45 AM ,
Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> wrote:
> Spis by me zajimalo jestli je nejaka korelace mezi velikosti packetu
> a
> pravdepodobnosti jeho ztraty. Tedy jestli je treba vetsi
> pravdepodobnost, ze nedojde vetsi paket nez ze nedojde mensi....
> A taky jestli kdyz se neco ztrati, je pravdepodobne ze se jich
> ztrati
> vic sousednich, ale to asi budu muset zjistit sam empiricky...
> Ptam se jen, jestli uz to treba nekdo prede mnou nemeril abych si
> usetril namahu. :-)
cim delsi tim je samozrejme vetsi sance, ze se ztrati. Ale moc bych se
toho (do velikosti MTU) nebal.
> Dalsi vec, kterou resim je, jak dlouho ma cenu cekat na paket (tj.
> kolik jich ho muze tak zhruba predbehnout) nez usoudim, ze se asi
> ztratil.
1) packety se predbihaji snad jen z duvodu redundantnich tras
(napriklad pokud bude spojeno vice tras z routeru A do routeru B za
ucelem nasobeni prenosove rychlosti (x eth linek, x synchronnich linek
atd) pak muzou packety, ktere na router A prisly v nejakem poradi byt
prijaty routerem B v opacnem poradi (protoze kazdy sel jinou fyzickou
linkou). Pak muze k michani dochazet pri prechodovych dejich pri
prepinani zaloznich tras atd. Obecne by rozdily v casech nemely byt
velke.
Absolutni hodnota maximalniho zpozdeni je predem nedefinovatelna -
pokud program ma bezet v sirokem nasazeni pak se najdou pripojeni,
ktera jsou pomala ci jsou rychla ale maji velike dopravni zpozdeni
(satelit). Zrejme je nutne vychazet z mereni parametru dane linky.
Zdravi
D. Toman
FIB Plus - upgrade a update
[*] info(zv)drnholec(tec)cz <info(zv)drnholec(tec)cz> - 28.7.2006 11:57:21
Pavel Malinsky napsal(a):
>
> Od toho sis kupujes komercni komponenty(a doufam, ze se zdrojakama :) ),
> pricemz je na solidnosti vyrobce bugy co nejrychleji zapracovat a zverejnit
Na strankach vyrobce to nemohu najit a od ceskeho prodejce mam informaci
- a take to tak prodava - prodlouzeni licence na 1 nebo 2 roky
(ovsem cena se blizi nove licenci)
http://www.devshop(tec)cz/?r=1915825964&s=dfc1f2ec2757956ee157d971556b5ab6&t=108&katcislo=4305
Nevim ale zda plati nejaky casovy update pri prvotnim nakupu.
J.H.
Poslani datoveho streamu pres Internet
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 28.7.2006 11:45:20
Spis by me zajimalo jestli je nejaka korelace mezi velikosti packetu a
pravdepodobnosti jeho ztraty. Tedy jestli je treba vetsi pravdepodobnost, ze
nedojde vetsi paket nez ze nedojde mensi....
A taky jestli kdyz se neco ztrati, je pravdepodobne ze se jich ztrati vic
sousednich, ale to asi budu muset zjistit sam empiricky...
Ptam se jen, jestli uz to treba nekdo prede mnou nemeril abych si usetril
namahu. :-)
Dalsi vec, kterou resim je, jak dlouho ma cenu cekat na paket (tj. kolik
jich ho muze tak zhruba predbehnout) nez usoudim, ze se asi ztratil.
Dik.
>
> rozumna maximalni velikost je MTU - tedy nejvetsi mozna velikost
> packetu, kterou je kazde zarizeni po trase schopno prenest aniz by
> doslo k fragmentaci (nutnosti poslat vetsi packet jako dva ci vice
> mensich). Cili v dnesni dobe je tato hranice prakticky rovne MTU na
> ethernetu (minus nejake drobne pro pripadne PPPoE tunely adslkaru atd)
> tedy neco kolem 1500 byte
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.394 / Virus Database: 268.10.4/401 - Release Date: 26.7.2006
spousteni excelu
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 28.7.2006 10:45:16
>> diky za napady ale nelze je pouzit ta ztrapena 2007 beta ma
>> stejne CLSID
>> jako 2000
>
> Fakt? Co fyzicke jmeno viz. rekace Milana Tomese Excel.Application.XX ?
to mi taky spusti tu betu - ale to se asi neni co divit protoze sem se dival
do zdrojaku a ten createoleobject si zjisti to CLSID a pak vytvari object no
a v registrech ma na 9 to same co na 12 (coz je prave ta beta) - halt
microsoft spousteni excelu
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 28.7.2006 10:37:15
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Ladislav Fitz
> Sent: Friday, July 28, 2006 10:25 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: spousteni excelu
>
> diky za napady ale nelze je pouzit ta ztrapena 2007 beta ma
> stejne CLSID
> jako 2000
Fakt? Co fyzicke jmeno viz. rekace Milana Tomese Excel.Application.XX ?
PM
spousteni excelu
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 28.7.2006 10:25:14
diky za napady ale nelze je pouzit ta ztrapena 2007 beta ma stejne CLSID
jako 2000
spousteni excelu
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 28.7.2006 09:33:10
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Milan Tomes
> Sent: Friday, July 28, 2006 9:25 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: spousteni excelu
>
> Co treba volat CreateOleObject('Excel.Application.9') ?
> Myslim, ze verze
> 2000 byla v COMu oznacena jako 9.
JO nebo tak, ale predpokladal sem, ze potrebuje ladit app.
pro koncoveho zakaznika a volat vychozi verzi. NIkoli trvdym
odkazem na verzi. Proto predchozi rekace s upravou registru.
PM
spousteni excelu
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 28.7.2006 09:39:11
Pokud je to pouze pro ladeni, tak by to vyresil podmineny preklad
Pavel Malinsky napsal(a):
>> -----Original Message-----
>> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Milan Tomes
>> Sent: Friday, July 28, 2006 9:25 AM
>>
>> Co treba volat CreateOleObject('Excel.Application.9') ?
>> Myslim, ze verze
>> 2000 byla v COMu oznacena jako 9.
>>
>
> JO nebo tak, ale predpokladal sem, ze potrebuje ladit app.
> pro koncoveho zakaznika a volat vychozi verzi. NIkoli trvdym
> odkazem na verzi. Proto predchozi rekace s upravou registru.
>
spousteni excelu
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 28.7.2006 09:31:10
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Ladislav Fitz
Ahoj,
> k programu excel 2000 sem nainstaloval jeste betu 2007 a ted
> mam problem: ze
> sveho programu vytvarim exel tabulky pomoci CreateOleObject
> ('Excel.Application'); a on mi vyvola tu betu - ja bych
> potreboval aby mi
> vyvolal 2000kovej nevite nekdo jak na to?
No, zkusim jen nadhodit. Existuje klic v registru
HKEY_CLASSES_ROOT\Excel.Application\CLSID
HKEY_CLASSES_ROOT\Excel.Application\CurVer
pricemz CLSID a CurVer jsou hodnoty co se ma zavolat
pri volani ExcelApp. V mem pripade se vola
HKEY_CLASSES_ROOT\Excel.Application.11 (Office 2003).
Pravdepodobne budes mit i dalsi HKEY_CLASSES_ROOT\Excel.Application.XX coz
bude
ta beta a je nastavena v HKEY_CLASSES_ROOT\Excel.Application jako volana.
Kdysi sem si s tim hral ale uz si to moc nepamatuju tak aspon nastrel...
Mozna existuje elegantnejsi cesta.
PM
spousteni excelu
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 28.7.2006 09:25:09
Co treba volat CreateOleObject('Excel.Application.9') ? Myslim, ze verze
2000 byla v COMu oznacena jako 9.
S pozdravem
Milan Tomes
Ladislav Fitz napsal(a):
> k programu excel 2000 sem nainstaloval jeste betu 2007 a ted mam problem: ze
> sveho programu vytvarim exel tabulky pomoci CreateOleObject
> ('Excel.Application'); a on mi vyvola tu betu - ja bych potreboval aby mi
>
spousteni excelu
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 28.7.2006 09:13:08
zdravim
k programu excel 2000 sem nainstaloval jeste betu 2007 a ted mam problem: ze
sveho programu vytvarim exel tabulky pomoci CreateOleObject
('Excel.Application'); a on mi vyvola tu betu - ja bych potreboval aby mi
vyvolal 2000kovej nevite nekdo jak na to?
predem diky FIB Plus - upgrade a update
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 28.7.2006 08:59:07
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of info(zv)drnholec(tec)cz
Ahoj,
> Uvazuji o prechodou z IBX na FIB Plus a nemam docela jasno
> jak probiha
> upgrade a update produktu - hlavne pokud si koupim nejakou
> verzi a budou
> v ni nejake bugy.
Od toho sis kupujes komercni komponenty(a doufam, ze se zdrojakama :) ),
pricemz je na solidnosti vyrobce bugy co nejrychleji zapracovat a zverejnit
update. U mnohych komponent funguje zdarma free update v ramci jedne
verze nebo napriklad po dobu 12ti ci 24 mesicu. To by ses tam mel nekde
docist. Mam zkusenosti napriklad s devexpress a clevercomponents...
a muzu rict naprosto ku spokojenosti.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
FIB Plus - upgrade a update
[*] info(zv)drnholec(tec)cz <info(zv)drnholec(tec)cz> - 28.7.2006 06:54:56
Ahoj
Uvazuji o prechodou z IBX na FIB Plus a nemam docela jasno jak probiha
upgrade a update produktu - hlavne pokud si koupim nejakou verzi a budou
v ni nejake bugy.
Jura
Poslani datoveho streamu pres Internet
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 27.7.2006 18:08:04
> Nevi nekdo z vas jaka je optimalni velikost uzitecnych dat v UDP
> paketu? Hlavicka je 28-32 bytu. Cetl jsem, ze nektery routery moc
> dlouhy pakety zahazuji. Doporuceno PRY je max do 512 bytu. Ale nic
> konkretniho jsem o tom nenasel.
rozumna maximalni velikost je MTU - tedy nejvetsi mozna velikost
packetu, kterou je kazde zarizeni po trase schopno prenest aniz by
doslo k fragmentaci (nutnosti poslat vetsi packet jako dva ci vice
mensich). Cili v dnesni dobe je tato hranice prakticky rovne MTU na
ethernetu (minus nejake drobne pro pripadne PPPoE tunely adslkaru atd)
tedy neco kolem 1500 byte
zalezi na okolnostech - napriklad mnohe sitovky na eth podporuji velke
(jumbo) ramce, takze UDP aplikace muze efektivne prenaset velka data
pomoci velkych (mnohem vetsich nez 1500 byte) ramcu cimz se zvysuje
rychlost prenosu atd.
Btw: pokud ma byt prenaseno UDP broadcastem neco vyssi rychlosti tak
bych od toho radsi dal ruce pryc. Cela sit muze dostat poradne zabrat
(switche ucpou vsechny draty, resp se ucpou switche)
> Cetl jsem zajimavy clanek o tom, ze kdyz bezi soucasne UDP i TCP
> komunikace, ze zmena velikosti "TCP sliding window" ma vliv na
> ztratovost UDP paketu. Da se nejak nastavit velikost "TCP sliding
> window" na pocitaci (pro vsechny ostatni aplikace) po celou dobu
> behu
> meho programu?
zrejme se jedna o situaci, kdy data proudi rychle (blizko max
rychlosti media) - jinak si nedovedu predstavit, ze by se UDP a TCP
nejak ovlivnovalo (ale zadny takovy clanek jsem necetl). Pokud je
velke sliding window tak TCP prenasi najednou vetsi mnozstvi dat
(packetu) aniz by cekal na potvrzeni o doruceni (potvrzuje ce vetsi
blok). Vetsi okno teoreticky muze zpusobit delsi dobu vyssiho
zatizeni linky a tim i moznost ztraty packetu - ale zase tak cerne
bych to nevidel. Router/switch proste zaradi packety do fronty (a je
mu jedno jestli jsou TCP UDP ICMP atd) a posle je. Pokud je linka moc
pomala - resp. fronta packetu roste pak se budou packety z fronty
zahazovat.
D. Toman
Poslani datoveho streamu pres Internet
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 27.7.2006 16:19:57
Aha, no to je fakt, to bych mohl. Dik! :-)
[Pakety si budu cislovat, takze mi predjizdeni nevadi.]
Nevi nekdo z vas jaka je optimalni velikost uzitecnych dat v UDP paketu?
Hlavicka je 28-32 bytu. Cetl jsem, ze nektery routery moc dlouhy pakety
zahazuji. Doporuceno PRY je max do 512 bytu. Ale nic konkretniho jsem o tom
nenasel.
Cetl jsem zajimavy clanek o tom, ze kdyz bezi soucasne UDP i TCP komunikace,
ze zmena velikosti "TCP sliding window" ma vliv na ztratovost UDP paketu.
Da se nejak nastavit velikost "TCP sliding window" na pocitaci (pro vsechny
ostatni aplikace) po celou dobu behu meho programu?
omlouvam se za amaterske dotazy.
Dik za popostrceni.
> -----Original Message-----
> From: Jaroslav Pivonka [mailto:jpivonka(zv)centrum(tec)cz]
> Neni problem si napsat "UDP relay" ...
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.394 / Virus Database: 268.10.4/401 - Release Date: 26.7.2006
import z CSV
[*] Ing. Zdenek Reznicek <reznicek(zv)pce(tec)cz> - 27.7.2006 12:47:42
Jeste jednou diky, ale nejde mi ta komponenta nainstalovat. Prekladac hlasi
viz dole. Kde delam chybu ?
diky
Zdenek
----- Original Message -----
From: "Ing. Zdenek Reznicek" <reznicek(zv)pce(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 17, 2006 10:40 PM
Subject: Re: import z CSV
> Diky,
> nejde mi to nainstalovat. Postupuju podle navodu v SDFdata.pas a kdyz v
> Install compunets vyberu v unit file name SDFdata.pas a dam compile,
> nahlasi
> mi to chybu:
>
> WARNING: Duplicate resources
> [Error] Type 2 (BITMAP), ID TFIXEDFORMATDATASET:
> [Error] File C:\Program Files\Borland\Delphi6\Lib\SdfData.dcr resource
> kept; file C:\Program Files\Borland\Delphi6\Lib\SdfData.res resource
> discarded.
> [Error] Type 2 (BITMAP), ID TSDFDATASET:
> [Error] File C:\Program Files\Borland\Delphi6\Lib\SdfData.dcr resource
> kept; file C:\Program Files\Borland\Delphi6\Lib\SdfData.res resource
> discarded.
>
> Soubor SDFData.res jsem nakopioval take do \lib .
>
> Dik Zdenek
>
> ----- Original Message -----
> From: "Pavel P" <pavel(zv)tvsp.net>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Monday, July 17, 2006 12:00 AM
> Subject: Re: import z CSV
>
>
>> Mne celkem funguje SDFdataset, ma stejne problemy jako excel tak se jim
>> da
>> predejit, jinak funguje jako kazdej jinej dataset, urcite v D6 a D7 a
>> kylix o jinych nemam potvrzenou funkcnost...
>>
>
>
Delphi 6 vs. Windows XP
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 27.7.2006 12:19:40
>
>
>^^^A ted jestli to neco shnileho mam hledat u sebe, nebo na tech par
>pocitacich, kde je ten problem... Dokonce na jednom program nehodla jet
>vubec i pres veskere nastavovani a elaborovani :'(...
>
Spis na PC. Problem muze byt take v kodu.
Sam jsem si kdysi davno takto udelal dost problemu, tim ze sem kdesi
na Formulari zapomnel nastaveni autokonexe na DB a myslel jsem,
ze je to problem na konkretnich PC.
Na knihovne VLC je obecny problem, ze tataz chyba se muze diky
komplikovanosti knihovny projevit na kazde sestave i instalaci
naprosto jinak.
Takze urcite skusit projit kod jestli tam nejsou nejake mrtvolky nebo
prasarny.
Vaclav Halik
ClientDataSet & ClonCursor
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 27.7.2006 11:19:36
> AbcClone := TClientDataset.Create(Nil);
> try
> AbcClone.CloneCursor(Abc, true, false);
> .
> .
> finally
> // FreeAndNil(AbcClone);
> end;
>
> Jak udelat to, aby pri Abc.Delete se tohle neprojevilo v tom
> AbcClone a zustaly tam data ???
CloneCursor prave len klonuje kurzor nad zdielanymi datami.
Ak si chces spravit kopiu, skus pouzit Data:
AbcCopy := TClientDataSet.Create(nil);
try
AbcCopy.Data := Abc.Data;
...
finally
FreeAndNil(AbcCopy);
end;
HTH
TOndrej
ClientDataSet & ClonCursor
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 27.7.2006 10:35:33
Ahoj,
prosim o radu.
vytvorim si clon cursor datasetu Abc:
AbcClone := TClientDataset.Create(Nil);
try
AbcClone.CloneCursor(Abc, true, false);
.
.
finally
// FreeAndNil(AbcClone);
end;
Jak udelat to, aby pri Abc.Delete se tohle neprojevilo v tom AbcClone a zustaly tam data ???
Diky
Vasek
Delphi 6 vs. Windows XP
[*] MaReK Penguin Olsavsky <orsm(zv)centrum(tec)cz> - 27.7.2006 10:19:31
Vaclav Halik napsal(a):
> provozujeme tu aplikace zkompilovane na Delphi 3 (naprosto
> bez problemu, jen se znamejma nedostatkama Delphi 3),
> Delphi 5 a zcela bez problemu aplikace z Delphi 6.
>
> Nikde jsme tento rezim nenastavovali, takze problem bude
> asi nekde jinde.
^^^A ted jestli to neco shnileho mam hledat u sebe, nebo na tech par
pocitacich, kde je ten problem... Dokonce na jednom program nehodla jet
vubec i pres veskere nastavovani a elaborovani :'(...
--
- --
MaReK "Penguin" Olsavsky
PHP Voodoo
private mail: orsm(zv)centrum(tec)cz
private web: http://orsm.wz(tec)cz
ICQ#: 160 178 925; MSN: orsm(zv)centrum(tec)cz; Skype: Penguin_007
tel.: +420-603-519-650; +420-775-154-689 (775-1-LINUX)
Delphi 6 vs. Windows XP
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 27.7.2006 10:01:30
Zdravim,
>program zkompilovany v Delphi 6 vyzaduje nastaveni ve svych
>vlastnostech, jako rezim kompatibility pro Win98?
>
provozujeme tu aplikace zkompilovane na Delphi 3 (naprosto
bez problemu, jen se znamejma nedostatkama Delphi 3),
Delphi 5 a zcela bez problemu aplikace z Delphi 6.
Nikde jsme tento rezim nenastavovali, takze problem bude
asi nekde jinde.
Vaclav Halik
Delphi 6 vs. Windows XP
[*] MaReK Penguin Olsavsky <orsm(zv)centrum(tec)cz> - 27.7.2006 09:43:29
Dobry den,
potrebuji se zeptat, jestli jste se nekdo setkali s problemem, ze
program zkompilovany v Delphi 6 vyzaduje nastaveni ve svych
vlastnostech, jako rezim kompatibility pro Win98? Mame s tim docela
problemy a navic na nekterych pocitacich je toto nastaveni nutne a na
nekterych ne. Je nejake obecne reseni, aby to opravdu fungovalo bez
problemu?
Dekuji
MaReK Olsavsky
--
- --
MaReK "Penguin" Olsavsky
PHP Voodoo
private mail: orsm(zv)centrum(tec)cz
private web: http://orsm.wz(tec)cz
ICQ#: 160 178 925; MSN: orsm(zv)centrum(tec)cz; Skype: Penguin_007
tel.: +420-603-519-650; +420-775-154-689 (775-1-LINUX)
Posilani datoveho streamu pres Internet
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 27.7.2006 09:31:28
Ahoj *,
Potrebuju posilat data co nejrychlejsim zpusobem s co nejnizsim overheadem
pres Internet. Trochu jsem to studoval a zatim jsem zjistil, ze pokud
netrvam na tom, aby vsechna data dorazila, je lepsi pouzit UDP nez TCP. Dale
jsem cetl neco o RTP ale moc chytry z toho nejsem, pochopil jsem to jako
protokol postaveny nad UDP. Neni mi jasne v cem by mi RTP pomohl, protoze by
prece jakykoliv dalsi protokol musel nutne zvysovat rezii.
Spis bych to chtel resit tak, ze budu data posilat pres jeden socket a pokud
bude mit klient dostatecnou prenosovou kapacitu bude pres druhy soket
dostavat redundantni data ze kterych si ztraceny paket muze obnovit.
No a otazka zni: Jak zjistim, ze mam v dany okamzik dostatecnou kapacitu
linky a ze si teda muzu otevrit dalsi soket s redundantnimi daty?
Je pomalejsi mit 2 sokety nez mit jeden a v tom posilat i ty redundantni
data - myslim jako kvuli rezii obsluhy udalosti atd...?
Dale bych rad toto ladil v ramci LAN. Neexistuje neco, co by mi na LAN
simulovalo pomaly Internet - tj. ze bych si nastavil propustnost z PC 1 na
PC 2 treba 64kb/s? Chybovost mi to simulovat nemusi, to si nasimuluju sam
tak, ze napr. nektere pakety vubec neposlu.
Diky moc za odpovedi, navrhy a nasmerovani.
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.394 / Virus Database: 268.10.4/401 - Release Date: 26.7.2006
Nazev hlavniho Formulare z exe?
[*] Kilchevskyy Anton <anton.kilchevskyy(zv)arbes(tec)com> - 27.7.2006 08:37:24
>Zdravim.
>
>Vytvarim prg ktery bude na pozadi sledovat zda bezi dana aplikace.
Pokud by nebezela, spusti ji.
>Je mozne? A jak? Z nespusteneho .exe zjistit nazev hlavniho formulare?
V prg si chci zvolit dohlizeny program (tedy treba main.exe) a potrebuji
ono jmeno formulare, ktere muze byt rozdilne od jmena prg...
>Pavel
Co treba takovadle funkcicka, nevrati ti jmeno hlavniho formu, ale zato
rovnou rekne, jesli exac bezi:
function Win32ProcessIsRunning(isFileName: string): boolean;
var
hSnapShot : THandle;
pe32 : TPROCESSENTRY32;
lsProcessName: string;
begin
Result := False;
hSnapShot := CreateToolHelp32SnapShot(TH32cs_snapprocess,0);
pe32.dwSize := SizeOf(TPROCESSENTRY32);
if Process32First(hSnapShot, pe32) then
begin
lsProcessName := AnsiUpperCase(ExtractFileName(isFileName));
repeat
if AnsiUpperCase(ExtractFileName(pe32.szExeFile)) = lsProcessName
then
begin
Result := True;
break;
end;
until not Process32Next(hSnapShot, pe32);
CloseHandle(hSnapShot);
end;
end;
isFileName je jmeno toho exace, klidne i s cestou. Mam sluzbu, ktera
dela presne to co potrebujes, a s touhle funkci to beha naprosto
spolehlive.
Nazev hlavniho Formulare z exe?
[*] Milan Kajnar <mkajnar(zv)mikesoft(tec)cz> - 27.7.2006 08:37:24
>> Vytvarim prg ktery bude na pozadi sledovat zda bezi dana aplikace. Pokud
>> by
>> nebezela, spusti ji.
>
> Ahoj, proc nepouzijes mutex? Nebo broadcast message a pak uz ty aplikace
> muzou libovolne komunikovat, treba pres WM_USER,WM_COPYDATA...
Mutex je dobry v pripade, ze chce takto kontrolovat svou aplikaci, kde ma
moznost Mutex vytvaret.
U aplikaci treti strany mu nezbyva nic jineho, nez sledovat, zda je dany
proces v pameti.
To je nejjistejsi. Muze pouzit nasledujici funkci (ktera projde v cyklu
systemovy proclist), kterou jsem si napsal pro zjisteni poctu instanci dane
aplikace v pameti. Vraci count, kde 0 znamena, ze aplikace neni nalezena a
muze ji tedy nastartovat sam.
Na vstupu vlozis stejny nazev aplikace, jak je uveden v seznamu procesu
(CTRL ALT DEL)...
uses tlHelp32;
function IsInProcList(ProcName: string): integer;
var
ContinueLoop: BOOL;
SnapshotHandle: THandle;
ProcessEntry32: TProcessEntry32;
begin
Result := 0;
SnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
ProcessEntry32.dwSize := Sizeof(ProcessEntry32);
ContinueLoop := Process32First(SnapshotHandle, ProcessEntry32);
while Integer(ContinueLoop) <> 0 do
begin
if LowerCase(ProcName) =
LowerCase(ExtractFileName(ProcessEntry32.szExeFile)) then Result := Result +
1;
ContinueLoop := Process32Next(SnapshotHandle, ProcessEntry32);
end;
CloseHandle(SnapshotHandle);
end;
Nazev hlavniho Formulare z exe?
[*] Cizek.Milan <cizek.milan(zv)seznam(tec)cz> - 27.7.2006 08:55:25
> Mutex je dobry v pripade, ze chce takto kontrolovat svou aplikaci, kde ma
> moznost Mutex vytvaret.
Jasne, nedoslo mi ze se jedna o cizi aplikaci.
Milan
Nazev hlavniho Formulare z exe?
[*] Cizek.Milan <cizek.milan(zv)seznam(tec)cz> - 27.7.2006 08:21:22
> Vytvarim prg ktery bude na pozadi sledovat zda bezi dana aplikace. Pokud by
> nebezela, spusti ji.
Ahoj, proc nepouzijes mutex? Nebo broadcast message a pak uz ty aplikace muzou libovolne komunikovat, treba pres WM_USER,WM_COPYDATA...
Milan
Nazev hlavniho Formulare z exe?
[*] Vlastik <bartos(zv)spsmvbr(tec)cz> - 27.7.2006 07:27:16
Na W2k a W-XP lze tez pouzit WMI, kde je na dotaz mozne primo testovat dane
exe. Navic to lze i na jinem PC LAN. Program lze pak ukoncit nebo spoustet.
OT: lze jednoduse i ve VBS.
Vlastik
----- Original Message -----
From: "Simek Pavel" <p.simek(zv)svscr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, July 27, 2006 7:01 AM
Subject: Nazev hlavniho Formulare z exe?> Zdravim.
>
> Vytvarim prg ktery bude na pozadi sledovat zda bezi dana aplikace. Pokud
by
> nebezela, spusti ji.
> Je mozne? A jak? Z nespusteneho .exe zjistit nazev hlavniho formulare? V
prg
> si chci zvolit dohlizeny program (tedy treba main.exe) a potrebuji ono
jmeno
> formulare, ktere muze byt rozdilne od jmena prg...
>
> Pavel
>
>
>Nazev hlavniho Formulare z exe?
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 27.7.2006 07:13:15
Tipnu si, ze tohle je uplne spatne (FindWindow neni imho spravna cesta
pro tento ukol)... Tezko rict co je hlavni formular nezname aplikace.
Nabizi se reseni prochazet vsechny spustene procesy a kontrolovat, zda
je Tebou pozadovany spusten. To uz by mohla byt ponekud realnejsi cesta...
viz. EnumProcesses, OpenProcess, EnumProcessModules, GetModuleBaseName
ve WinAPI
S pozdravem
Milan Tomes
Simek Pavel napsal(a):
> Vytvarim prg ktery bude na pozadi sledovat zda bezi dana aplikace. Pokud by
> nebezela, spusti ji.
> Je mozne? A jak? Z nespusteneho .exe zjistit nazev hlavniho formulare? V prg
> si chci zvolit dohlizeny program (tedy treba main.exe) a potrebuji ono jmeno
> formulare, ktere muze byt rozdilne od jmena prg...
>
Nazev hlavniho Formulare z exe?
[*] Simek Pavel <p.simek(zv)svscr(tec)cz> - 27.7.2006 07:01:14
Zdravim.
Vytvarim prg ktery bude na pozadi sledovat zda bezi dana aplikace. Pokud by
nebezela, spusti ji.
Je mozne? A jak? Z nespusteneho .exe zjistit nazev hlavniho formulare? V prg
si chci zvolit dohlizeny program (tedy treba main.exe) a potrebuji ono jmeno
formulare, ktere muze byt rozdilne od jmena prg...
Pavel
vytvoreni a docknuti potomka TControl kdyz znam ha
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 25.7.2006 15:54:29
Dobry den vespolek,
chtel bych v aplikaci vytvorit instanci naslednika TControl, kdyz mam handle okna
do ktereho se ma neve vytvoreny control zarovnat.
V podstate mi jde o to ze control bude v DLL a z jineho jazyka se bude pres
nejake jednoduche rozhrani vytvaret a uvolnovat, jen nevim jak rict
ze bych chtel aby se control vytvoril zarovnany treba v panelu (kde handle toho
panelu mu predam).
Abych byl konkretni: potrebuji v C# jednoduchy zobrazovac HTML (zadne ActiveX ani MSHTML
(s tim mam momentalne problemy))
a chtel bych pouzit THtmlLite (coz je prave ten naslednik TControl), ktery by mi bohate stacil.
Radek
Instalace Indy 10.1.5
[*] m.mrazik <m.mrazik(zv)stonline.sk> - 25.7.2006 14:12:22
Ahoj
nezostalo ti nieco v zlozke program files/borland/delphi/projects/Bpl?
Miro
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of delphi(zv)media3(tec)cz
Sent: Tuesday, July 25, 2006 1:14 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Instalace Indy 10.1.5
idCommandHandlers was compiled a different version of IdComponent
Instalace Indy 10.1.5
[*] delphin(zv)post(tec)cz - 25.7.2006 13:54:21
> neresil jste nekdo problem pri prechodu z INDY9 na INDY10. Devitku
> kompletne odinstaluju a smazu. Potom nainstaluju verzi 10. Vsechno se
> tvari v pohode az na to ze pri kompilaci projektu to nahlasi :
>
> idCommandHandlers was compiled a different version of IdComponent
Zrejme nekde zustaly .DCU z minule verze, mozna pomuze je promazat.
Instalace Indy 10.1.5
[*] delphi(zv)media3(tec)cz - 25.7.2006 13:14:18
Ahoj,
neresil jste nekdo problem pri prechodu z INDY9 na INDY10. Devitku kompletne odinstaluju a smazu. Potom nainstaluju verzi 10. Vsechno se tvari v pohode az na to ze pri kompilaci projektu to nahlasi :
idCommandHandlers was compiled a different version of IdComponent
Po Googleni jsem zjistil ze takovych s timto problemem je celkem dost, ale rada veskera zadna :-(
Kdyby nekdo vedel jak na to predem bych mu rad podekoval za odpoved...
M.Prenos suboru cez FTP & Synapse
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 25.7.2006 08:15:56
> Cesty ziadne nezadavam. Subor 123.txt je tam, kde ftp-EXE-odosielac a
> predpokladam, ze ak nie je zadana cesta na serveri, nakopiruje sa
> presne do rootu ftp. Ani v Total Commanderi ziadne cesty neudavam a
> robi to to, co chcem...
V takovem priapde se to nakopiruje do aktualniho adresare na FTP,coz
vubec nemusi byt root. Ostatne, podivej se co ti ten FTP server hlasi
za chybu.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://synapse.ararat(tec)cz/ - Ararat Synapse - TCP/IP Lib.
Prenos suboru cez FTP & Synapse
[*] Rastislav Lazan <lazan(zv)davidplus.sk> - 25.7.2006 07:59:55
Cesty ziadne nezadavam. Subor 123.txt je tam, kde ftp-EXE-odosielac a
predpokladam, ze ak nie je zadana cesta na serveri, nakopiruje sa presne
do rootu ftp. Ani v Total Commanderi ziadne cesty neudavam a robi to to,
co chcem...
Ing. Rastislav Lazan
e-mail: lazan(zv)davidplus.sk
icq: 35 70 30 80
tel.: (037) 693 00 80
fax: (037) 693 00 81
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Lukas Gebauer
Sent: Monday, July 24, 2006 3:56 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Prenos suboru cez FTP & Synapse
> Pouzivam cosi ako:
> Ret := FtpPutFile('195.28.68.172', '21', '123.txt', '123.txt', 'user',
> 'passw');
>
> V com moze byt problem? Dakujem...
A co cesty? (jak lokalni, ta i cesta na serveru, kam se ma soubor
ulozit)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://synapse.ararat(tec)cz/ - Ararat Synapse - TCP/IP Lib.
HTMLViewer a preview
[*] Ing. Igor Vodicka <vodicka(zv)sagit(tec)cz> - 25.7.2006 07:13:52
Ahoj!
>Behalf Of Viktor Marek
>
> Na radu jednoho z Vas jsem si stahl komponentu HTMLViewer (mimochodem uz
> neni placena a je volne ke stazeni)
> Natazeni html do teto komponenty jsem zvladl bez problemu. Marne
> se snazim
> rozlousknout kod pro zobrazeni html do preview a nasledny tisk vybranych
> stranek. Nema nekdo jednodusi a polopatictejsi kod ci unitu?
>
Pokud se jedna o komponentu od Davida Baldwina (http://www.pbear.com) tak
jeji pouziti je snadne. Staci komponentu vlozit na formular a zavolat metodu
HTMLViewer.LoadFromFile(Cesta_k_souboru). Nasledny tisk provede metoda
Print(FromPage, ToPage: integer). Jinak ve stazenem baliku je priklad se
zdrojakem a tam je vsechno. Viz tez help.
Ing. Igor Vodicka
informacni systemy
Nakladatelstvi Sagit
Tel.: 59 6786 001
HTTP://www.sagit(tec)cz/
Oznaceni bunky ve StringGrid
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 24.7.2006 23:02:43
> Co nefunguje ? Vic to popis. Pri trasovani se v pohode vybere text, ktery je v te bunce. Kdyz to ale
spustim, uz se neprovede nic. Vyresil jsem to tim, ze jsem po vybrani te
bunky, jinak pouzivam Selection, zavolal Reapint.
Takze uz to jede.
Petr
Export do Excelu
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 24.7.2006 23:00:43
Ahoj,
nasel jsem neco o ukladani do Excelu, vcetne vzorcu v Tipy a triky v Delphi,
dil 81. Je pritom vyuzito OLE.
Petr
On 7/24/06, delphi(zv)mjsoft(tec)cz <delphi(zv)mjsoft(tec)cz> wrote:
>
> Zdravim,
>
> pouzivam ve svem programu na Export do Excelu komponenty vtkExport. Nyni
> potrebuji vlozit do Excelu vzorec a nevim jak na to. Neresil jste to
> nekdo,
> nebo co pouzivate za komponenty.
>
> Diky predem
>
> Karel V.
>
>
>HTMLViewer a preview
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 24.7.2006 21:52:38
Na radu jednoho z Vas jsem si stahl komponentu HTMLViewer (mimochodem uz
neni placena a je volne ke stazeni)
Natazeni html do teto komponenty jsem zvladl bez problemu. Marne se snazim
rozlousknout kod pro zobrazeni html do preview a nasledny tisk vybranych
stranek. Nema nekdo jednodusi a polopatictejsi kod ci unitu?
Diky za radu
Delphi 5
Viktor Marek
ADO Query a update Datumu (D7)
[*] mstevlik(zv)gamo.sk - 24.7.2006 21:44:37
> fMain.ADOQuery_IN.Close;
>
> fMain.ADOQuery_IN.SQL.Text := 'update tblIO_IN set Datum = '+
Chr(39)+
> '20061125 12:56:10'+ Chr(39)+ ' where ID = '+IntToStr(rec_k_uprave);
>
> fMain.ADOQuery_IN.Open;
Len tak z hlavy:
ADOQuery na update pouzit nemozes, teda isto nie cez Close a Open
Skus pozriet ci nema ADOQuery nieco ako ExecSQL, ale pohladaj inu
komponentu (maybe ADODataset)
Marian Stevlik (Michal)
IS programmer / developer
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
web: www.gamo.sk
mail: mstevlik(zv)gamo.sk
tel: +421 48 4372098, 4137935, 4372111
gsm: +421 905 462010
icq: 38493645
skype: majklbb
ADO Query a update Datumu (D7)
[*] Pavel Simek <p.simek(zv)svscr(tec)cz> - 24.7.2006 19:40:17
Ahojky.
Mam tabulku tblIO_IN
Ma pole - datum - datetime
...
...
...
...
Potrrbuji udelat Update toho datumu v pripade, ze se mi jinak obsah zaznamu
nezmenil.
fMain.ADOQuery_IN.Close;
fMain.ADOQuery_IN.SQL.Text := 'update tblIO_IN set Datum = '+ Chr(39)+
'20061125 12:56:10'+ Chr(39)+ ' where ID = '+IntToStr(rec_k_uprave);
fMain.ADOQuery_IN.Open;
Stale mi to ale nejde.
Poradite nekdo jak na to?
Pavel
Prenos suboru cez FTP & Synapse
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 24.7.2006 15:56:02
> Pouzivam cosi ako:
> Ret := FtpPutFile('195.28.68.172', '21', '123.txt', '123.txt', 'user',
> 'passw');
>
> V com moze byt problem? Dakujem...
A co cesty? (jak lokalni, ta i cesta na serveru, kam se ma soubor
ulozit)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://synapse.ararat(tec)cz/ - Ararat Synapse - TCP/IP Lib.
Prenos suboru cez FTP & Synapse
[*] Rastislav Lazan <lazan(zv)davidplus.sk> - 24.7.2006 15:52:01
V Synapse sa pokusam posielat subor na server. Pouzivam na to funkciu
FtpPutFile(...), ale vracia mi false. Ked pouzijem TotalCommander s
rovnakymi
parametrami, subor sa bez problemov na server skopiruje. Velkostou
pismen v
nazve suboru to nie je, cez proxy to nejde.
Pouzivam cosi ako:
Ret := FtpPutFile('195.28.68.172', '21', '123.txt', '123.txt', 'user',
'passw');
V com moze byt problem? Dakujem...
Delphi 7, Synapse 36.
Ing. Rastislav Lazan
e-mail: lazan(zv)davidplus.sk <mailto:lazan(zv)davidplus.sk>
icq: 35 70 30 80
tel.: (037) 693 00 80
fax: (037) 693 00 81
Export do Excelu
[*] delphi(zv)mjsoft(tec)cz - 24.7.2006 14:07:54
Zdravim,
pouzivam ve svem programu na Export do Excelu komponenty vtkExport. Nyni
potrebuji vlozit do Excelu vzorec a nevim jak na to. Neresil jste to nekdo,
nebo co pouzivate za komponenty.
Diky predem
Karel V.
Oznaceni bunky ve StringGrid
[*] horky(zv)cominn(tec)cz - 24.7.2006 14:07:54
> From: Petr Berek [mailto:sojokl(zv)seznam(tec)cz]
> Sent: Monday, July 24, 2006 12:08 PM
> delam vyhledavani v tabulce StringGrid, jsou tam jmena, podle kterych
> vyhledavam a pak jsou vedle nich volne bunky, do kterych lze
> neco vypisovat.
> Mam algoritmus, ze kdyz stisknu Ctrl+ nejakou klavesu, tak se
> mi ta bunka
> vybere. Kdyz to trasuju, tak se to fakt vybere, zabarvi se do
> modra. Jenze
> kdyz to spustim, tak to nefunguje.
Co nefunguje ? Vic to popis.
> Funguje to az ve chvili, kdy nastavim,
> goRowSelect na true. Jenze tam se zase neda nic vpisovat,
> navic potrebuju jen tu jednu bunku.
Musis nastavit Stringgrid.row := hledanyradek and Stringgrid.col := povolenysloupec
a tak vyberes konkretni bunku.
--
S pozdravem Karel Horky, D7, FB 1.5.2, IBX 7.08, WXP SP2
[mailto:horky(zv)cominn(tec)cz] TWebBrowser-hodnoceni obsahu
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 24.7.2006 14:05:53
Zdravim vsechny,
vytvarim vlastni browser pomoci TWebBrowser a potreboval bych v pripade, ze
si uzivatel klikne na nejakou stranku se zablokovanym obsahem podle
integrovaneho hodnoceni obsahu, zobrazit misto toho dialogoveho okna nejakou
jinou www stranku (redirect URL), s oznamenim o nedostupnosti stranky.
Neresil jste to nekdo, nevite jak zhruba na to ?
diky
Tomas Bradle
t.bradle(zv)sanet(tec)cz
Oznaceni bunky ve StringGrid
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 24.7.2006 12:07:45
Zdravim,
delam vyhledavani v tabulce StringGrid, jsou tam jmena, podle kterych
vyhledavam a pak jsou vedle nich volne bunky, do kterych lze neco vypisovat.
Mam algoritmus, ze kdyz stisknu Ctrl+ nejakou klavesu, tak se mi ta bunka
vybere. Kdyz to trasuju, tak se to fakt vybere, zabarvi se do modra. Jenze
kdyz to spustim, tak to nefunguje. Funguje to az ve chvili, kdy nastavim,
goRowSelect na true. Jenze tam se zase neda nic vpisovat, navic potrebuju
jen tu jednu bunku.
Da se to nejak udelat?
Petr
Navratova hodnota funkce v podmince
[*] horky(zv)cominn(tec)cz - 24.7.2006 11:35:43
> From: Petr Berek [mailto:sojokl(zv)seznam(tec)cz]
> Sent: Monday, July 24, 2006 11:08 AM
> Muzu mit v podmince odkaz na
> funkce a sledovat
> stav jejiho vysledku?
>
> if (i=StringGrid1.RowCount) and not
> (odstranDiakritiku(StringGrid1.Cells[1,
> i][1])=znak) then Result:=false
Muzes, ale "not" musis mit uvnitr zavorky, pomoci "and" spojujes vyrazy uzavrene v zavorkach :
if (i=StringGrid1.RowCount) and (not odstranDiakritiku(StringGrid1.Cells[1,i][1])=znak) then Result:=false
nebo jinak bez "not" :
if (i=StringGrid1.RowCount) and (odstranDiakritiku(StringGrid1.Cells[1,i][1]) <> znak) then Result:=false
--
S pozdravem Karel Horky, D7, FB 1.5.2, IBX 7.08, WXP SP2
[mailto:horky(zv)cominn(tec)cz]
Navratova hodnota funkce v podmince
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 24.7.2006 11:31:42
Jo muzes, ale bud si vedom toho, ze pri zkracenem vyhodnocovani vyrazu se ti
v pripade, ze i<>StringGrid1.RowCount uz zbytek vyrazu nevyhodnoti, protoze
je podminka jasne false a tak se ti nezavola ta tvoje funkce. Toto byva
zdrojem "podivneho chovani".
Zkratka, funkce, ktera neco dela, krome toho ze vraci vysledek by nemela byt
z vyse uvedeneho duvodu soucasti logickeho vyrazu.
Navic kontrukci IF A then B:=false je lepe prepsat na B:=not A; //teda v
pripade ze mas v te tve funkci nazacatku nekde napsany Result:=true
V tvem prioade tedy Result:=not ((i=StringGrid1.RowCount) and not
(odstranDiakritiku(StringGrid1.Cells[1,> i][1])=znak))
//a po uprave ala de Morgan
Result:=((i<>StringGrid1.RowCount) OR
(odstranDiakritiku(StringGrid1.Cells[1,> i][1])=znak))
Snad jsem se v tom nezamotal ;-)
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Petr Berek
> Sent: Monday, July 24, 2006 11:08 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Navratova hodnota funkce v podmince
>
>
> Zdravim,
> mozna zacatecnicky dotaz :-) Muzu mit v podmince odkaz na funkce
> a sledovat
> stav jejiho vysledku?
>
> if (i=StringGrid1.RowCount) and not
> (odstranDiakritiku(StringGrid1.Cells[1,
> i][1])=znak) then Result:=false
>
> Funkce je odstranDiakritiku().
>
> Petr
>
> --
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.1.394 / Virus Database: 268.10.3/395 - Release Date: 21.7.2006
>
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.394 / Virus Database: 268.10.3/395 - Release Date: 21.7.2006
Navratova hodnota funkce v podmince
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 24.7.2006 11:07:40
Zdravim,
mozna zacatecnicky dotaz :-) Muzu mit v podmince odkaz na funkce a sledovat
stav jejiho vysledku?
if (i=StringGrid1.RowCount) and not (odstranDiakritiku(StringGrid1.Cells[1,
i][1])=znak) then Result:=false
Funkce je odstranDiakritiku().
Petr
TValueListEditor
[*] aldik(zv)quick(tec)cz - 24.7.2006 10:19:37
Ahoj resil jste nekdo v TValueListEditoru vyber nekterych polozek a naslednou
praci s nimi? Potreboval bych provest akci s vybranymi polozkami v
TValueListEditoru a jak koukam tak koukam nikde nic co bych mohl pouzit;-)
Diky
Ales
COM a .NET
[*] lelicek(zv)volny(tec)cz - 23.7.2006 19:10:31
Nakonec jsem na prisel, chtelo si to precist manual.
Na pretypovani je trba pouzivat vyhradne operator "as".
Pak to funguje.
Diky za rady, jedna se projekt ve skluzu, ktery uz
mel byt dle planu prepsan do .NET a na posledni chvili
bylo rozhodnuto, ze jeste "chvili vydri" a tak se
dodavateli nepozadovalo dodani interface WIN32.
Pavel
> z vlastni zkusenosti doporucuji pouzivat pokud mozno
> pouze "jednoduche"
> datove typy (ciselne typy, WideString, atp.) Asi to
> nakonec prorazis,
> ale stravis tim tolik casu, ze predelani, resp doplneni
> .NET casti o
> specializovane rozhrani pro pouziti pres COM z Delphi
> te vyjde casove
> lepe.
>
> O :-)
>
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
> > On
> Behalf Of lelicek(zv)volny(tec)cz
> Sent: Friday, July 21, 2006 7:04 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: COM a .NET
>
>
> No doslo mi ze jsem to popsal jako idiot.
>
> Poblem je, ze IDictionary je interface i v C#
> implementuje ho skupina trid pro praci se seznamy.
> Napr. HashTable, pro kterou byla z typelibrary
> vygenerovana CoClass, ale prekladac tvrdi,
> ze typ _HashTable neni IDictionary.
> A uplne stejne je to s IList a ArrayList.
> Ostatni objekty mi vraceji metody, ale jak
> presvedcit delphi _HasTable imlementuje IDictionary
> ?
>
> Pavel
> > http://www.google.com/search?hl=en&lr=&q=.NET+-COM+-Delphi+-PSafeArray
> > > > > &btnG=Search
> > >
> > ?? Nic z toho nepomuze ??
> >
> > pl
> >
> > lelicek(zv)volny(tec)cz wrote:
> > > Ahoj,
> > >
> > > musim z D5 zpristupnit COM napsany v .NET.
> > > Vygeneroval jsem typelibrary a narazil jsem
> > > na datove objekty .NET.
> > >
> > > Dale cim nahradit typ PSaveArray ? jedna se o pole
> > > > > retezcu.
> > > >
> > > Jak na to ?
> >
> >
> >
> >
>
>
> --
> Lifestylov+AP0- magaz+AO0-n pro mu+AX4-e +IBM- elektronick+AOk-
>
> Lifestylov+hra+AQ0-ky, auta a kr+AOE-sn+AOk- +AX4-eny.
> http://im.impact.as/sign/mp-4men/
>
>
>
>
>
>
--
Stihle nohy? Pekny zadek? S N-Dorfiny za par babek!
Inline brusle Nike se systemem Air jiz od 1999 Kc!
http://www.sportobchod(tec)cz/in-line/&redir=34
TComPort - problem s prijmem dat
[*] Venca ZARUBA <zaruba(zv)elastoform(tec)cz> - 22.7.2006 08:32:06
Dobry den,
chtel bych poprosit o radu, protoze se mi nedari a nedari.
Pouzivam TComPort pro cteni dat z ctecky Phaser. Program mam odladeny a u me
funguje vsechno OK.
Ovsem na jinem PC mi ctecka za kazdym 8-mym znakem vraci hexa 0A 0D.
Priklad: nactu 98NOVAKPETR, ale z TComPortu dostanu 98NOVAKP||ETR.
Po mnoha testech jsem si jisty, ze problem je v moji aplikaci a nikoliv ve
ctecce. Protoze pouzivam TComPort, smeroval jsem sve usili tam, ale moc jsem
toho nevykoumal.
Nesetkal jste se s tim uz nekdo.
1. Nacitam znak po znaku do retezce. Ctecku mam nastavenou, aby posilala
prvni znak ":" a posledni ";", vim tak kdy nulovat
a pak overovat celej text.
2. Vzdy pri startu app nastavuji ctecku, jinak si delala se mnou co chtela
Vasek
vypis vsetkych tried pouzitych z VCL
[*] Roland Turcan <konf(zv)rotursoft.sk> - 21.7.2006 14:54:54
Hello All!
Raz som mal na disku jednu malu utilitku od Borlandu na vypis vsetkych
tried ktore su v kode pouzite.
Ale netusim ako sa to vola.
Pamata sa na to este niekto?
Dakujem,
--
Best regards, TRoland
http://exekutor.rotursoft.sk
TComPort - problem s prijmem dat
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 21.7.2006 14:14:51
Tak uz to mam,
opravdu se musi cist znak po znaku, protoze pri delsich sekvencich se muze stat, ze je tato sekvence poslana navicekrat. Ja jsem cetl cely retezec v domeni, ze je opravdu cely.
Jirka
> Jste si jist, ze to neni nastavenim ctecky ?
> Odpojenim a pripojenim na jiny PC muze dojit k resetu
> nastaveni. A zrovna posilani offsetu je dost bezne.
> Kazdopadne, pokud si pamatuju, tak v TComPortu byla moznost
> cist po znacich a cely retezec. Ten mi nejak blbnul. Vzhledem
> k casu jsem to nestudoval a cetl znak po znaku. To chodilo
> OK. Po te jsem kvuli dalsim problemum presel na asyncfree. Jiri Vojtek
>
> > Dobry den,
> > chtel bych poprosit o radu, protoze se mi nedari a nedari. Pouzivam
> > TComPort pro cteni dat z ctecky Phaser. Program mam odladeny a u me
> > funguje vsechno OK. Ovsem na jinem PC mi ctecka za kazdym
> 8-mym znakem
> > vraci hexa 0A 0D.
> > Priklad: nactu 98NOVAKPETR, ale z TComPortu dostanu
> 98NOVAKP||ETR. Po
> > mnoha testech jsem si jisty, ze problem je v moji aplikaci
> a nikoliv
> > ve ctecce. Protoze pouzivam TComPort, smeroval jsem sve
> usili tam, ale
> > moc jsem toho nevykoumal. Nesetkal jste se s tim uz nekdo.
> >
> > Diky za kazde nakopnuti
> >
> > Jirka
TComPort - problem s prijmem dat
[*] Jiri Vojtek <jiri(zv)vojtek.biz> - 21.7.2006 14:04:50
Jste si jist, ze to neni nastavenim ctecky ?
Odpojenim a pripojenim na jiny PC muze dojit k resetu nastaveni. A zrovna
posilani offsetu je dost bezne. Kazdopadne, pokud si pamatuju, tak v TComPortu
byla moznost cist po znacich a cely retezec. Ten mi nejak blbnul. Vzhledem k
casu jsem to nestudoval a cetl znak po znaku. To chodilo OK. Po te jsem kvuli
dalsim problemum presel na asyncfree.
Jiri Vojtek
> Dobry den,
> chtel bych poprosit o radu, protoze se mi nedari a nedari.
> Pouzivam TComPort pro cteni dat z ctecky Phaser. Program mam odladeny
> a u me funguje vsechno OK.
> Ovsem na jinem PC mi ctecka za kazdym 8-mym znakem vraci hexa 0A 0D.
> Priklad: nactu 98NOVAKPETR, ale z TComPortu dostanu 98NOVAKP||ETR.
> Po mnoha testech jsem si jisty, ze problem je v moji aplikaci a
> nikoliv ve ctecce. Protoze pouzivam TComPort, smeroval jsem sve usili
> tam, ale moc jsem toho nevykoumal.
> Nesetkal jste se s tim uz nekdo.
>
> Diky za kazde nakopnuti
>
> Jirka
>
>
----------------------------------------------------------------
This message was sent using IMP, the Internet Messaging Program.
sekvencia v oracle
[*] Jakub Dusek <conference(zv)corexpert(tec)com> - 21.7.2006 13:48:49
SELECT SEQUENCE.nextval FROM dual
Jakub Dusek
----------------------------------------------------------------------
web : http://corexpert.com, mobile : +420 724 505 904, ICQ : 8606 3232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Friday, July 21, 2006, 1:40:48 PM, you wrote:
ID> Zdravim.
ID> Je mozne vydolovat zo sekvencie nasledujucu hodnotu.
ID> Napr. Label1.caption := 'tu potrebujem hodnotu'
sekvencia v oracle
[*] Ivan Dulgerov <ivan.dulgerov(zv)sazp.sk> - 21.7.2006 13:40:48
Zdravim.
Je mozne vydolovat zo sekvencie nasledujucu hodnotu.
Napr. Label1.caption := 'tu potrebujem hodnotu'
--
S pozdravom
Ivan Dulgerov OI SAZP Delphi programator
TComPort - problem s prijmem dat
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 21.7.2006 13:06:45
Dobry den,
chtel bych poprosit o radu, protoze se mi nedari a nedari.
Pouzivam TComPort pro cteni dat z ctecky Phaser. Program mam odladeny a u me funguje vsechno OK.
Ovsem na jinem PC mi ctecka za kazdym 8-mym znakem vraci hexa 0A 0D.
Priklad: nactu 98NOVAKPETR, ale z TComPortu dostanu 98NOVAKP||ETR.
Po mnoha testech jsem si jisty, ze problem je v moji aplikaci a nikoliv ve ctecce. Protoze pouzivam TComPort, smeroval jsem sve usili tam, ale moc jsem toho nevykoumal.
Nesetkal jste se s tim uz nekdo.
Diky za kazde nakopnuti
Jirka
COM a .NET
[*] Ondrej Malecek <ondrej.malecek(zv)radom-cz(tec)cz> - 21.7.2006 12:12:41
Ahoj,
z vlastni zkusenosti doporucuji pouzivat pokud mozno pouze "jednoduche"
datove typy (ciselne typy, WideString, atp.) Asi to nakonec prorazis,
ale stravis tim tolik casu, ze predelani, resp doplneni .NET casti o
specializovane rozhrani pro pouziti pres COM z Delphi te vyjde casove
lepe.
O :-)
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of lelicek(zv)volny(tec)cz
Sent: Friday, July 21, 2006 7:04 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: COM a .NET
No doslo mi ze jsem to popsal jako idiot.
Poblem je, ze IDictionary je interface i v C#
implementuje ho skupina trid pro praci se seznamy.
Napr. HashTable, pro kterou byla z typelibrary
vygenerovana CoClass, ale prekladac tvrdi,
ze typ _HashTable neni IDictionary.
A uplne stejne je to s IList a ArrayList.
Ostatni objekty mi vraceji metody, ale jak
presvedcit delphi _HasTable imlementuje IDictionary ?
Pavel
> http://www.google.com/search?hl=en&lr=&q=.NET+-COM+-Delphi+-PSafeArray
> &btnG=Search
> >
> ?? Nic z toho nepomuze ??
>
> pl
>
> lelicek(zv)volny(tec)cz wrote:
> > Ahoj,
> >
> > musim z D5 zpristupnit COM napsany v .NET.
> > Vygeneroval jsem typelibrary a narazil jsem
> > na datove objekty .NET.
> >
> > Dale cim nahradit typ PSaveArray ? jedna se o pole
> > retezcu.
> > >
> > Jak na to ?
>
>
>
>
--
Lifestylov+AP0- magaz+AO0-n pro mu+AX4-e +IBM- elektronick+AOk-
Lifestylov+hra+AQ0-ky, auta a kr+AOE-sn+AOk- +AX4-eny.
http://im.impact.as/sign/mp-4men/
vytvorenie trigeru
[*] Ivan Dulgerov <ivan.dulgerov(zv)sazp.sk> - 21.7.2006 12:00:40
> tmpVar := 0;
> :NEW.ID := tmpVar;
> SELECT ID_SQ.NEXTVAL INTO tmpVar FROM dual;
>Nejsou ty dva radky prohozene? Vzdyt takto do :NEW.ID davate vzdy 0,
>pokud se nepletu.
*presne tak ;-)
*dik
S pozdravom
Ivan Dulgerov OI SAZP Delphi programator
COM a .NET
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 21.7.2006 11:28:38
> jak presvedcit delphi _HasTable imlementuje IDictionary ?
Pomocou IUnknown.QueryInterface alebo funkcie Supports zo SysUtils:
var
HashTable: _HashTable;
Dict: IDictionary;
begin
HashTable := ...
if Supports(HashTable, IDictionary, Dict) then ...
end;
> Dale cim nahradit typ PSaveArray ? jedna se o pole retezcu.
Predpokladam, ze je to OLE-kompatibilne pole (jednoduche pole BSTR
retazcov), potom si ho mozes previest na variant array s prvkami typu
WideString a s tym sa uz da pracovat jednoducho:
uses
ActiveX, ComObj;
function SafeArrayToWideStringArray(P: PSafeArray; Copy: Boolean = False):
OleVariant;
begin
VarClear(Result);
if not Assigned(P) or (P^.cDims <> 1) or (P^.fFeatures and FADF_BSTR = 0)
then
Exit;
TVarData(Result).VType := varOleStr or varArray;
if Copy then
OleCheck(SafeArrayCopy(P, PSafeArray(TVarData(Result).VArray)))
else
TVarData(Result).VArray := PVarArray(P);
end;
var
P: PSafeArray;
V: OleVariant;
I: Integer;
S: string;
begin
P := ...
V := SafeArrayToWideStringArray(P);
S := '';
for I := VarArrayLowBound(V, 1) to VarArrayHighBound(V, 1) do
S := S + V[I]) + #13#10;
ShowMessage(S);
end;
HTH
TOndrej
vytvorenie trigeru
[*] Martin Stanek <all.stuff(zv)seznam(tec)cz> - 21.7.2006 10:06:32
IMHO trigger NEW.ID je hodnota kterou insertujes, pokud do ni neco priradis,
v Tvem pripade nulu, ztraci to vyznam. Teda pokud tim neco nezamyslis ;o)
mrkni na tenhle kod
create or replace trigger tg_pub_quotation_pk
before insert on pub_quotation
for each row
begin
-- automatick naplnn primrnho klce ze sekvence, nen-li naplnn
if :new.pub_quotation_id is null then
select sq_pub_quotations.nextval
into :new.pub_quotation_id
from DUAL;
end if;
end trigger_pub_quotation_pk;
|--
|CREATE TRIGGER DULGEROV_TEST.ID_TRIG
|BEFORE INSERT
|ON DULGEROV_TEST.TEST_A
|FOR EACH ROW
|DECLARE
|tmpVar NUMBER;
|BEGIN
| tmpVar := 0;
| :NEW.ID := tmpVar;
| SELECT ID_SQ.NEXTVAL INTO tmpVar FROM dual;
|
|
| EXCEPTION
| WHEN OTHERS THEN
| -- Consider logging the error and then re-raise
| RAISE;
|END ;
|--
vytvorenie trigeru
[*] Ludek Finstrle <ludek.finstrle(zv)pzkagis(tec)cz> - 21.7.2006 10:00:31
> vytvorenie trigeru :
>
> CREATE TRIGGER DULGEROV_TEST.ID_TRIG
> BEFORE INSERT
> ON DULGEROV_TEST.TEST_A
> FOR EACH ROW
> DECLARE
> tmpVar NUMBER;
> BEGIN
> tmpVar := 0;
> :NEW.ID := tmpVar;
> SELECT ID_SQ.NEXTVAL INTO tmpVar FROM dual;
Nejsou ty dva radky prohozene? Vzdyt takto do :NEW.ID davate vzdy 0,
pokud se nepletu.
Luf
vytvorenie trigeru
[*] Ivan Dulgerov <ivan.dulgerov(zv)sazp.sk> - 21.7.2006 09:32:29
Zdravim.
Pokusam sa vyrobit "autoincrement" v orakle.
Postupujem takto:
Vytvorenie tabulky:
CREATE TABLE TEST_A (
ID NUMBER NOT NULL,
MENO CHAR(20),
PRIEZVISKO CHAR(20)
)
vytvorenie sekvencie:
CREATE SEQUENCE ID_SQ
START WITH 2
INCREMENT BY 1
NOMAXVALUE
MINVALUE0
NOORDER
NOCACHE
NOCYCLE
vytvorenie trigeru :
CREATE TRIGGER DULGEROV_TEST.ID_TRIG
BEFORE INSERT
ON DULGEROV_TEST.TEST_A
FOR EACH ROW
DECLARE
tmpVar NUMBER;
BEGIN
tmpVar := 0;
:NEW.ID := tmpVar;
SELECT ID_SQ.NEXTVAL INTO tmpVar FROM dual; EXCEPTION
WHEN OTHERS THEN
-- Consider logging the error and then re-raise
RAISE;
END ;
Toto vytvori sekvenciu aj triger, problem je
v tom, ze pri vlozeni noveho zaznamu sa nic nedeje ;-(
Neviete niekto co robi zle?
--
S pozdravom
Ivan Dulgerov OI SAZP Delphi programator
COM a .NET
[*] lelicek(zv)volny(tec)cz - 21.7.2006 07:04:17
No doslo mi ze jsem to popsal jako idiot.
Poblem je, ze IDictionary je interface i v C#
implementuje ho skupina trid pro praci se seznamy.
Napr. HashTable, pro kterou byla z typelibrary
vygenerovana CoClass, ale prekladac tvrdi,
ze typ _HashTable neni IDictionary.
A uplne stejne je to s IList a ArrayList.
Ostatni objekty mi vraceji metody, ale jak
presvedcit delphi _HasTable imlementuje IDictionary ?
Pavel
> http://www.google.com/search?hl=en&lr=&q=.NET+-COM+-Delphi+-PSafeArray&btnG=Search
> >
> ?? Nic z toho nepomuze ??
>
> pl
>
> lelicek(zv)volny(tec)cz wrote:
> > Ahoj,
> >
> > musim z D5 zpristupnit COM napsany v .NET.
> > Vygeneroval jsem typelibrary a narazil jsem
> > na datove objekty .NET.
> >
> > Dale cim nahradit typ PSaveArray ? jedna se o pole
> > retezcu.
> > >
> > Jak na to ?
>
>
>
>
--
Lifestylov+AP0- magaz+AO0-n pro mu+AX4-e +IBM- elektronick+AOk- hra+AQ0-ky, auta a kr+AOE-sn+AOk- +AX4-eny.
http://im.impact.as/sign/mp-4men/COM a .NET
[*] Petr Langer <p.langer(zv)nexnet(tec)cz> - 20.7.2006 19:17:29
http://www.google.com/search?hl=en&lr=&q=.NET+COM+Delphi+PSafeArray&btnG=Search
?? Nic z toho nepomuze ??
pl
lelicek(zv)volny(tec)cz wrote:
> Ahoj,
>
> musim z D5 zpristupnit COM napsany v .NET.
> Vygeneroval jsem typelibrary a narazil jsem
> na datove objekty .NET.
>
> Dale cim nahradit typ PSaveArray ? jedna se o pole retezcu.
>
> Jak na to ?
COM a .NET
[*] lelicek(zv)volny(tec)cz - 20.7.2006 18:45:26
Ahoj,
musim z D5 zpristupnit COM napsany v .NET.
Vygeneroval jsem typelibrary a narazil jsem
na datove objekty .NET.
Krome typove knihovny COMu se vygenerovala
i knihovna mscorlib_TBL obsahujici nektere objekty .NET.
Problemem jsou dva typy IDictionary a IList. Pro oba typy
se nevygenerovala CoClass. V popisu pristupu ke COM mam
priklad v VB.
Moc VB neznam, ale promena je definovana jako IDictionary,
ale prirazen je do ni New HashTable dtto pro IList
je prirazen New ArrayList. V Delphi mi to tento postup,
prestoze pro tyto typy jsou CoClass k dispozi, pro
typovou kontrolu nefunguje.
Dale cim nahradit typ PSaveArray ? jedna se o pole retezcu.
Jak na to ?
V .NET mi to funguje celkem bez problemu, ale ja to
musim dostat do WIN aplikace !
Diky za kazdou radu Pavel
--
HIT PRO ZENY! S bruslemi Elite, kila navic shodite!
In-line brusle s Nike Air systemem za super cenu!
http://www.sportobchod(tec)cz/inline-brusle-nike-dorfin-elite-alu.htm&redir=34
Jak na prevod TColor v Delphi na format pro HTML?
[*] VA?clav HalA?k <spravasd(zv)suz.cvut(tec)cz> - 20.7.2006 17:29:21
Zdravim,
>Nevite prosim nekdo, jakym zpusobem prevezt Delphacky typ TColor na format pro HTML (tedy napr. #1563). Je na to nejaka funkce? Nebo algoritmus?
>
>
pokud ti to staci na Hexa barvu pak
>diky za inspiraci, zdravi Milos Pojsl
>
>
ja pouzivam toto:// P+AVk-evede barvu na jej+AO0- hexadecim+AOE-ln+AO0-
// reprezentaci ve webu bez po+AQ0A4Q-te+AQ0-n+AO0-ho '#'
function ColorToWeb(const Color: TColor): string;
var
Temp : TColorRec;
begin
Temp.Value := ColorToRGB(Color);
Result := Format('%.2x%.2x%.2x', [Temp.R, Temp.G, Temp.B]);
end;
Primcip je asi jasny, staci doupravit podle tve potreby.
Vaclav Halik
Jak na prevod TColor v Delphi na format pro HTML?
[*] Petr Berek <sojokl(zv)seznam(tec)cz> - 20.7.2006 17:23:21
Ahoj,
co nas ucili ve skole, tak standardne je uzivany model RGB. Ten uziva i
html. Jen delphi to ma naopak: BGR. Takze to nejak otocit?
Petr
On 7/20/06, Miloslav Pojsl <mpojsl(zv)seznam(tec)cz> wrote:
>
> Nevite prosim nekdo, jakym zpusobem prevezt Delphacky typ TColor na format
> pro HTML (tedy napr. #1563). Je na to nejaka funkce? Nebo algoritmus?
>
> diky za inspiraci, zdravi Milos Pojsl
>
>
>Jak na prevod TColor v Delphi na format pro HTML?
[*] Miloslav Pojsl <mpojsl(zv)seznam(tec)cz> - 20.7.2006 17:09:20
Nevite prosim nekdo, jakym zpusobem prevezt Delphacky typ TColor na format pro HTML (tedy napr. #1563). Je na to nejaka funkce? Nebo algoritmus?
diky za inspiraci, zdravi Milos Pojsl
program na tutorial (demo)
[*] Jonas Marian <jonas(zv)komercpoj(tec)cz> - 20.7.2006 10:18:51
To CamStudio umi pridavat bublinky, mrkni do menu Tools / Screen Annotations.
Marian
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Tomas Rosa
Sent: Thursday, July 20, 2006 9:39 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: OT: program na tutorial (demo)
Cau lidi,
potreboval bych poradit v cem udelat live tutorial me aplikace. Chci
udelat nejake "kurzy prace" s aplikaci. Mam CamStudio
(http://sourceforge.net/projects/camstudio/) pro zaznam obrazovky, ale
potreboval bych pak do vysledneho videa pridat "bublinky" s textem a
ulozit jako flash (to uz opet CamStudio (jakztakz) umi). Nicmene nevim
cim pridat ty bublinky. Koukal jsem po netu, ale priznam se ze se me
nechce davat 300$ za aplikace co maji navic jen pridani to bublinek.
Mozna me nezbyde nez neco koupit, ale existuje mnoho podobnych SW,
takze me zajima i nazor to co pouzivate vy.
Diky TR
OT: program na tutorial (demo)
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 20.7.2006 09:38:48
Cau lidi,
potreboval bych poradit v cem udelat live tutorial me aplikace. Chci
udelat nejake "kurzy prace" s aplikaci. Mam CamStudio
(http://sourceforge.net/projects/camstudio/) pro zaznam obrazovky, ale
potreboval bych pak do vysledneho videa pridat "bublinky" s textem a
ulozit jako flash (to uz opet CamStudio (jakztakz) umi). Nicmene nevim
cim pridat ty bublinky. Koukal jsem po netu, ale priznam se ze se me
nechce davat 300$ za aplikace co maji navic jen pridani to bublinek.
Mozna me nezbyde nez neco koupit, ale existuje mnoho podobnych SW,
takze me zajima i nazor to co pouzivate vy.
Diky TR
ADODataSet
[*] Radek Cervinka <radek.cervinka(zv)technodat(tec)cz> - 20.7.2006 07:08:36
tak se podivej do dfm, co tam vsechno je nastavene (kdyz rikas ze ti to v design funguje)
Jeste mne napada ze jsem mel kdysi podobny problem (volani SP, ktera vracela vysledek) a pak
jsem zjistil ze je tam vice recordsetu (mezi nima se prechazi NextRecordset nebo tak nejak).
jiri(zv)bartonek(tec)cz napsal(a):
> Zdravim,
>
> na radku
> ADODataSet.Recordset := ADOCommand.Execute;
> vyskoci vyjimka:
>
> .. raised exception .. with message 'RecordSet is not open'. Process stopp...
>
> nedari se mi najit proc to nastava. v pripade ze pouziji komponenty
> "polozene" na form a vse udelam v grafickem navrhu a na tlacitko dam jen:
> ADODataSet.Recordset := ADOCommand.Execute;
> tak to jede.
>
> Muzete nekdo naznacit smer?
>
> Diky
> Jirka
>
>
>
>
ADODataSet - doplneni
[*] jiri(zv)bartonek(tec)cz - 19.7.2006 16:53:34
Zapomel sem doplnit,
jedna se o D7 Ent, WinXP SP2, MSSQL 2000 Develop.
Jeste jsem se dival na tu StorProc v SQL.
ma jen jediny select ktery vraci.
alter procedure xxx((zv)Par1 char(10), (zv)Par2 int = null)
as
BEGIN
select Den=(zv)Par1,Cislo=(zv)Par2 return
END
Pri volani z SQL ANALYZERU se data zobrazi OK.
Nemuze byt problem ze tento vysledek neni ADODataSet schopen prevzit ??
Dik
Jirka
ADODataSet
[*] jiri(zv)bartonek(tec)cz - 19.7.2006 16:19:32
Zdravim,
marne se snazim najit reseni a prozatim stale nic.
Mam nasledujici kod:
procedure TForm1.Button2Click(Sender: TObject);
var
ADOConnection: TADOConnection;
ADOCommand: TADOCommand;
ADODataSet: TADODataSet;
begin
try
try
ADODataSet := TADODataSet.Create(nil);
ADOConnection := TADOConnection.Create(nil);
ADOConnection.LoginPrompt := FALSE;
ADOConnection.ConnectionString := 'FILE NAME=SQLSIDIA.udl';
ADOCommand := TADOCommand.Create(nil);
ADOCommand.Connection := ADOConnection;
ADOCommand.CommandType := cmdStoredProc;
ADOCommand.CommandText := 'spSuDopPolExport;1';
ADOCommand.Parameters.Refresh;
ADOCommand.Parameters.ParamByName('(zv)DenDop').Value := '17.07.2006';
ADOCommand.Parameters.ParamByName('(zv)InSmlTyp').Value := 's';
ShowMessage(ADOCommand.CommandText);
ADODataSet.Recordset := ADOCommand.Execute; //*****
ADODataSet.Last;
ShowMessage(IntToStr(ADODataSet.RecordCount));
except
on E: Exception do
begin
MessageDlg(E.Message,mtError,[MBOK],0);
end;
end;
finally
if Assigned(ADODataSet) then FreeAndnil(ADODataSet);
if Assigned(ADOCommand) then FreeAndnIl(ADOCommand);
if Assigned(AdoConnection) then FreeAndNil(AdoConnection);
end;
end;
na radku
ADODataSet.Recordset := ADOCommand.Execute;
vyskoci vyjimka:
.. raised exception .. with message 'RecordSet is not open'. Process stopp...
nedari se mi najit proc to nastava. v pripade ze pouziji komponenty
"polozene" na form a vse udelam v grafickem navrhu a na tlacitko dam jen:
ADODataSet.Recordset := ADOCommand.Execute;
tak to jede.
Muzete nekdo naznacit smer?
Diky
Jirka
kbmMemTable.LoadFromDataSet
[*] Robert Fujak <robof(zv)inmail.sk> - 19.7.2006 15:11:27
Co takto kuknut do zdrojov "kbmMemTable.pas"
S pozdravom
Robert Fujak
> Pouzivam komponentu kbmMemTable protoze je zadarmo :-) jenze k ni nemam
> help. Nevite nekdo kde se da help stahnout pripadne jake jsou mozne
> parametry kopirovani pro kbmMemTable.LoadFromDataSet ?
>
> RNDr Z.Kalhous
> ToWare s.r.o.
> kalhous(zv)eu(tec)cz
> tel.:466 614 024
kbmMemTable.LoadFromDataSet
[*] Kalhous <kalhous(zv)eu(tec)cz> - 19.7.2006 14:27:24
Pouzivam komponentu kbmMemTable protoze je zadarmo :-) jenze k ni nemam help. Nevite nekdo kde se da help stahnout pripadne jake jsou mozne parametry kopirovani pro kbmMemTable.LoadFromDataSet ?
RNDr Z.Kalhous
ToWare s.r.o.
kalhous(zv)eu(tec)cz
tel.:466 614 024
Archiv konference
[*] FM <fabtech(zv)fabtech.sk> - 19.7.2006 14:09:22
Google: delphi konfview
Vysledek: http://www.pspad.com/cz/konfview.htm
FM
----- Original Message -----
> Diky, ale spatne jsem formuloval svuj dotaz, ja myslel data teto
> konference
> do programu Konfview, v roce 2004 jsem se na neco ptal a nechci se prat
> znova :o) takhle to nemuzu najit :(
Archiv konference
[*] Radek Szurman <radek.szurman(zv)surad(tec)net> - 19.7.2006 14:01:21
Diky, ale spatne jsem formuloval svuj dotaz, ja myslel data teto konference
do programu Konfview, v roce 2004 jsem se na neco ptal a nechci se prat
znova :o) takhle to nemuzu najit :(
> http://www.delphi(tec)cz/konf.asp
>
>> Ahoj,
>> dlouho jsem tady nebyl, je nekde jeste umisten archiv teto konference?
>
>
TToolButon a DblClick
[*] Ing. Antonin Spurny <spurny(zv)kavlounky(tec)cz> - 19.7.2006 13:43:20
From: <lelicek(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, July 19, 2006 8:59 AM
Subject: TToolButon a DblClick
> Potreboval bych nejak reagovat, minimalne takovy
> DblClickignorovat, lepe nejak zanadavat.
Jeste jednou,
napadla me metoda jak na uzivatele i zanadavat :-)
//=============================================
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin;
type
ErrorDblClick =Exception;
TForm1 = class(TForm)
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
procedure ToolButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
var
DeltaTime: TLargeInteger; // Ochranna doba po kterou nesmi byt zadne
tlacitko stisknuto
FirtsClick, // Cas posledniho stisknuti nejakeho tlacitka
SecondClik: TLargeInteger; // Cas soucasneho stisknuti tlacitka
Freqvency: TLargeInteger; // frekvence interniho citace
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
QueryPerformanceFrequency( Freqvency); // zjisteni frekvence citace
QueryPerformanceCounter( FirtsClick); // inicializace
DeltaTime:=500* Freqvency div 1000; // vypocet ochranne doby - pocet
impulsu na 500 milisec
end;
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
FirtsClick:= SecondClik;
QueryPerformanceCounter( SecondClik);
if (SecondClik-FirtsClick)< DeltaTime then // pokud dojde ke kliku v
ochranne dobe vyvola se vyjimka
raise
ErrorDblClick.Create('Dvojklik !!!');
// vlastni kod
end;
procedure TForm1.ToolButton2Click(Sender: TObject);
begin
FirtsClick:= SecondClik;
QueryPerformanceCounter( SecondClik);
if (SecondClik-FirtsClick)< DeltaTime then // pokud dojde ke kliku v
ochranne dobe vyvola se vyjimka
raise
ErrorDblClick.Create('Dvojklik !!!');
// vlastni kod
end;
end.
//=============================================Archiv konference
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 19.7.2006 13:07:17
http://www.delphi(tec)cz/konf.asp
> Ahoj,
> dlouho jsem tady nebyl, je nekde jeste umisten archiv teto konference?
Jak zjistit, zda konkretni sluzba existuje
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 19.7.2006 12:51:16
http://sourceforge.net/projects/jcl
viz JclSvcCtrl.pas, trida TJclSCManager
Martin
> Zdravim,
> nevite nekdo o nejake funkce, kde bych zjistil, zda je nejaka sluzba
> nainstalovana? Jedna se mi o instalaci sluzby mysql a potreboval bych
> zjistit, zda ta sluzba vubec existuje.
> Petr
TToolButon a DblClick
[*] Ing. Antonin Spurny <spurny(zv)kavlounky(tec)cz> - 19.7.2006 12:37:15
Ahoj,
co zkusit neco takovehleho:
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
sleep(500);
//vlastni kod...
end;
From: <lelicek(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, July 19, 2006 8:59 AM
Subject: TToolButon a DblClick
> V pripde TToolButton vede DblClick na Click na
> tlacitku a ten druhy (nekde se to asi
> transformuje, snad WIN) uz je na formulari ktery je
> vnikne jako reakce a na ten prvni. Vzhledem k tomu,
> ze tlacitka jsou stale na stejnem miste, je spustena
> nejaka dalsi akce (proste z hlediska uzivatelu
> se "si to dela co chce").
>
> Potreboval bych nejak reagovat, minimalne takovy
> DblClickignorovat, lepe nejak zanadavat.
>
Synaser, nepovolene hodnoty
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 19.7.2006 12:29:14
Jsem nejak schopen zjistit ktere, aniz bych testoval metodou pokus, selhani?
Jak nastavit typ komunikace DTR/DSR?
Jaromir Cermak
Zkratka, ne vsechny kombinace hardware v PC zvladne.
--
Lukas Gebauer.
TToolButon a DblClick
[*] Rastislav Lazan <lazan(zv)davidplus.sk> - 19.7.2006 11:03:08
Aj my sme pred 1/2 rokom riesili podobnu zahadu. Prisli sme na to, ze na
nejakych Win2000 (na XP ci 98 to funguje ako ma) po odkliknuti tlacitka
sa da stlacit okamzite znova, pricom teda 2x bezala akcia.
Vyriesili sme to tak, ze po stlaceni sa vsetky tlacitka disabluju a po
skonceni akcie enabluju...
Ing. Rastislav Lazan
e-mail: lazan(zv)davidplus.sk
icq: 35 70 30 80
tel.: (037) 693 00 80
fax: (037) 693 00 81
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of lelicek(zv)volny(tec)cz
Sent: Wednesday, July 19, 2006 8:59 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: TToolButon a DblClick
Ahoj,
potrebuji poradit, jak na to:
Uzivatele z nejakeho duvodu na vsechna tlacitka klikaji dvakrat (proc to
nevim, ale aplikace je velice rychla a odezva je prakticky okamzita,
proste zahada).
V pripde TToolButton vede DblClick na Click na tlacitku a ten druhy
(nekde se to asi transformuje, snad WIN) uz je na formulari ktery je
vnikne jako reakce a na ten prvni. Vzhledem k tomu, ze tlacitka jsou
stale na stejnem miste, je spustena nejaka dalsi akce (proste z hlediska
uzivatelu se "si to dela co chce").
Potreboval bych nejak reagovat, minimalne takovy DblClickignorovat, lepe
nejak zanadavat.
Pavel
--
Kompletni vedeni ucetnictvi i danove evidence.
http://im.impact.as/sign/fa-ucto/
Prepis hlavicky funkce do Delphi
[*] horky(zv)cominn(tec)cz - 19.7.2006 09:51:03
Muze mi nekdo pomoci s prepisem deklarace funkce v DLL do Delphi, s C nemam zadne zkusenosti, pokusy s PChar nebo array of char vedou jen k Acces violation:
int mfejDumpStat (char *pSerialNo,char *pNipNo,char *pBgDate,
char *pBgTime,char *pEndDate,
char *pEndTime,char *pRecNo,char *pDumpFileName,char *pShaFileName,long *plDataSize)
Parameters:
.. pSerialNo (adjustable) - printer serial number (max. 40 characters)
.. pNipNo (adjustable) - printer NIP number (max. 40 characters)
.. pBgDate (adjustable) - date of starting the day which is ready to dump (yyyymmdd)
.. pBgTime (adjustable) - time of starting the day which is ready to dump (hhmmss)
.. pEndDate (adjustable) - date of closing the day which is ready to dump (yyyymmdd)
.. pEndTime (adjustable) - time of closing the day which is ready to dump (hhmmss)
.. pRecNo (adjustable) - day record number (max. 6 bytes)
.. pDumpFileName (adjustable) - name of file where the EJ data are to be dumped to (recommended 128 bytes)
.. pShaFileName (adjustable) - name of file where the SHA day signature is to be dumped to (recommended 128
bytes)
.. plDataSize (adjustable) - number of bytes which must be dumped from EJ (it is a number defining all types of lines included in EJ).
To jsou veskere udaje z dokumentace k DLL. Diky za jakoukoliv radu.
--
S pozdravem Karel Horky, D7, FB 1.5.2, IBX 7.08, WXP SP2
[mailto:horky(zv)cominn(tec)cz]
Archiv konference
[*] Radek Szurman <radek.szurman(zv)surad(tec)net> - 19.7.2006 09:37:02
Ahoj,
dlouho jsem tady nebyl, je nekde jeste umisten archiv teto konference?
TToolButon a DblClick
[*] lelicek(zv)volny(tec)cz - 19.7.2006 08:59:00
Ahoj,
potrebuji poradit, jak na to:
Uzivatele z nejakeho duvodu na vsechna tlacitka
klikaji dvakrat (proc to nevim, ale aplikace je
velice rychla a odezva je prakticky okamzita,
proste zahada).
V pripde TToolButton vede DblClick na Click na
tlacitku a ten druhy (nekde se to asi
transformuje, snad WIN) uz je na formulari ktery je
vnikne jako reakce a na ten prvni. Vzhledem k tomu,
ze tlacitka jsou stale na stejnem miste, je spustena
nejaka dalsi akce (proste z hlediska uzivatelu
se "si to dela co chce").
Potreboval bych nejak reagovat, minimalne takovy
DblClickignorovat, lepe nejak zanadavat.
Pavel
--
Kompletni vedeni ucetnictvi i danove evidence. http://im.impact.as/sign/fa-ucto/
Synaser, nepovolene hodnoty
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 19.7.2006 08:36:58
> Mam takovy drobny dotaz. V D7 zkousim vyuzit Synaser a pomoci metody
> SetCommState nejsem schopen nastavit nektere hodnoty napr. stopbit
> delky 1.5 mene jak 6 datovych bitu, rychlost vetsi jak 115200 Bd
Zkratka, ne vsechny kombinace hardware v PC zvladne.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://synapse.ararat(tec)cz/ - Ararat Synapse - TCP/IP Lib.
jak vyresit uvolneni pameti v cyklu
[*] Vlastik Bartos <bartos(zv)spsmvbr(tec)cz> - 30.7.2006 22:19:25
Musis si zapisovat ukazatel na ie, protoze ie.free uvolni pouze posledni
alokaci.
To lze napriklad deklaraci pole var ie: array of TTest;
a pak SetLength(ie,5);
a v cyklu pouzivat vsude ie[i]
Vlastik
----- Original Message -----
From: "David Kopecek" <david.kopecek(zv)hacktrack.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, July 30, 2006 8:25 PM
Subject: jak vyresit uvolneni pameti v cyklu
> Zravim konferenci ..
>
> chci se zeptat proc nemuzu udelat tohle?
>
> kdyz zavolam ie.free tak v tom listu zadna data nenajdu..
> jak to spravne udelat abych po sobe uklidil a zaroven to fungovalo?
>
> var
> ll:TList;
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> i:integer;
> ie:TTest;
> begin
>
> for I := 0 to 5 - 1 do
> begin
> ie:=TTest.Create;
> ie.data1:='text';
> ie.data2:='te'+inttostr(i);
> ie.id:=i*10;
>
> ll.add(ie);
> ie.Free;
>
> end;
> end;
>
>
>
>
jak vyresit uvolneni pameti v cyklu
[*] David Kopecek <david.kopecek(zv)hacktrack(tec)com> - 30.7.2006 20:25:17
Zravim konferenci ..
chci se zeptat proc nemuzu udelat tohle?
kdyz zavolam ie.free tak v tom listu zadna data nenajdu..
jak to spravne udelat abych po sobe uklidil a zaroven to fungovalo?
var
ll:TList;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
ie:TTest;
begin
for I := 0 to 5 - 1 do
begin
ie:=TTest.Create;
ie.data1:='text';
ie.data2:='te'+inttostr(i);
ie.id:=i*10;
ll.add(ie);
ie.Free;
end;
end;jak vyresit uvolneni pameti v cyklu
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 31.7.2006 07:24:02
To je jednoznacne spatne...
TList obsahuje pouze pointry, takze ty vlastne pridas novy pointer,
ktery vzapeti zrusis, takze odkazuje na neplatnou pamet. Misto TList
pouzij TObjectList a v konstruktoru zadej OwnsObjects = true a vynech
volani ie.Free. Pri uvolneni objektu ll tak automaticky dojde k uvolneni
vsech pridanych objektu.
S pozdravem
Milan Tomes
David Kopecek napsal(a):
> chci se zeptat proc nemuzu udelat tohle?
>
> kdyz zavolam ie.free tak v tom listu zadna data nenajdu..
> jak to spravne udelat abych po sobe uklidil a zaroven to fungovalo?
>
> var
> ll:TList;
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> i:integer;
> ie:TTest;
> begin
>
> for I := 0 to 5 - 1 do
> begin
> ie:=TTest.Create;
> ie.data1:='text';
> ie.data2:='te'+inttostr(i);
> ie.id:=i*10;
>
> ll.add(ie);
> ie.Free;
>
> end;
> end;
>
vyvolani udalosti v hlavnim MDI formulari
[*] info(zv)drnholec(tec)cz <info(zv)drnholec(tec)cz> - 31.7.2006 09:02:09
Ahoj
Jak zareagovat (automaticky vyvolat) udalost v rodicovskem formu MDI
na zmeny child formu (destroy, hide, atd.).
Nebo existuje jen moznost volat funkci v v rodicovskem formu pres MDI
Child.OnActivate (Deactivate) ?
Diky Jura
Standalone VCS integrovany do Delphi
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 31.7.2006 10:32:19
> Zatim jsem se dival na Tortoise SVN, tam mi chybi vetsi
> integrace do IDE
Ak je to pre Delphi 2005/2006 a mas chut experimentovat ;-), skus:
https://sourceforge.net/projects/delphisvn
Pouziva to Subversion API priamo, bez potreby TortoiseSVN. TortoiseSVN alebo
ineho klienta ale budes potrebovat tiez, pretoze zatial je implementovanych
len par zakladnych funkcii.
Binarne downloady (len pre Delphi 2006) su vecsinou trochu pozadu, cerstve
zdrojaky najdes vzdy v Subversion repository:
https://svn.sourceforge.net/svnroot/delphisvn/trunk
Zopar dalsich informacii a screenshoty: http://tondrej.blogspot.com
HTH
TOndrej
vyvolani udalosti v hlavnim MDI formulari
[*] info(zv)drnholec(tec)cz <info(zv)drnholec(tec)cz> - 31.7.2006 10:00:16
> No treba existuje elegantnejsi cesta, ale ja si z childu posilam zpravy
> do main formu. SendMessage(Main.Handle,ZPRAVA_XX,paramX,paramY)
> a v mainu ciham na ZPRAVA_XX.
Jasne , jenze to porad znamena "rucne" reagovat na nejakou udalost.
Me jde o to zda hlavni MDI form negeneruje nejakou udalost pripadne WM_
Message kdyz se neco deje s child formulari
vyvolani udalosti v hlavnim MDI formulari
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 31.7.2006 09:48:15
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of info(zv)drnholec(tec)cz
Ahoj,
> Jak zareagovat (automaticky vyvolat) udalost v rodicovskem formu MDI
> na zmeny child formu (destroy, hide, atd.).
> Nebo existuje jen moznost volat funkci v v rodicovskem formu pres MDI
> Child.OnActivate (Deactivate) ?
No treba existuje elegantnejsi cesta, ale ja si z childu posilam zpravy
do main formu. SendMessage(Main.Handle,ZPRAVA_XX,paramX,paramY)
a v mainu ciham na ZPRAVA_XX.
PM
Standalone VCS integrovany do Delphi
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 31.7.2006 11:12:25
> Myslim, ze by sel udelat nejaky jednoduchy expert, ktery by
> volal pres commandlajnu prikazy pro SVN.
Nejake projekty v tomto smere uz existuju:
http://delphiaddinfortortoisesvn.tigris.org/
http://sourceforge.net/projects/jcl/ - v adresari
$(JCL)\experts\versioncontrol
Spustanie externeho procesu a parsovanie vystupu je ale relativne pomale.
Zial, Subversion vo Windows buildoch doteraz standardne neobsahuje DLL,
ktoru by bolo mozne priamo pouzit. Takyto DLL build sa vsak da vytvorit
upravou zdrojakov Subversion.
Projekt delphisvn takuto DLL obsahuje (a tiez interface unitu pre Delphi
;-)):
http://sourceforge.net/projects/delphisvn
Projekt samotny ma za ciel integraciu Subversion s Delphi IDE, ale ta DLL sa
da pouzit aj na tvorbu alternativnych stand-alone klientov.
HTH
TOndrej
zdrojaky mod_rewrite
[*] David Kopecek <david.kopecek(zv)hacktrack(tec)com> - 31.7.2006 16:10:45
Zdravim
chci se zeptat jestli nekdo nemate zdrojaky k tomuhle projektu?.
Je to ISAPI filter psanej v delphi a maj pristup pres CVS ale nemuzu
se na nej napojit..
http://www.iismods.com/url-rewrite/documentation.htm
Thx. David
Standalone VCS integrovany do Delphi
[*] Ludek <delphi-konference(zv)bcpraha(tec)com> - 31.7.2006 18:42:56
Podivej se na JVCS (http://jedivcs.sourceforge.net/). Je to sice jenom pro Windows, ale ma
to opravdu hodne moznosti a umi to spoustu veci. Ma dobreho GUI klienta a ma i modul
primo do Delphi. Pro ukladani zdrojovych souboru si muzes vybrat z nekolika databazi. No
a je to zadarmo. Komercni softwary tohoto typu jsou hodne drahe.
Ludek
> Ahoj,
>
> rad bych si poridil spravu verzi - pouze pro jednoho uzivatele, nejak
> ztracim prehled :-). Vubec se v problematice neorientuji, muzete mi nekdo
> neco doporucit nebo nasmerovat ?
> Potrebuji to pro D5 na W2K, chtel bych to integrovane do IDE, a uplne
> nejdulezitejsi je, ze to potrebuji casto (denne) prenaset z jedne masiny na
> druhou nebo treti (pocitac v praci, doma a notebook). Prenos dat delam pres
> 40GB USB disk, ktery si pripojuji k pocitaci a pro synchronizaci pouzivam
> skript pro Directory Toolkit. Zatim jsem se dival na Tortoise SVN, tam mi
> chybi vetsi integrace do IDE, a na JVCS, tam si zase nejsem jisty, jestli
> pujde jednoduse (pomoci kopirovani souboru) synchronizovat repository a
> nastaveni serveru a klienta.vyvolani udalosti v hlavnim MDI formulari
[*] info(zv)drnholec(tec)cz <info(zv)drnholec(tec)cz> - 01.8.2006 07:27:54
Ahoj
Tak zatim "nejlepsi" reseni mam toto
Screen.OnActiveFormChange - pouziti je v helpu
Jura
info(zv)drnholec(tec)cz napsal(a):
>> No treba existuje elegantnejsi cesta, ale ja si z childu posilam zpravy
>> do main formu. SendMessage(Main.Handle,ZPRAVA_XX,paramX,paramY)
>> a v mainu ciham na ZPRAVA_XX.
>
> Jasne , jenze to porad znamena "rucne" reagovat na nejakou udalost.
>
> Me jde o to zda hlavni MDI form negeneruje nejakou udalost pripadne WM_
> Message kdyz se neco deje s child formulari
>
>
>
>
>
>
hook mapi
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 31.7.2006 21:21:07
ahoj da se nejak hookovat email jeste pred odeslanim? Jak to delaji
antiviraky? Potreboval bych pred odeslanim email projit. diky moc..
Pripadne nedelal jste nekdo extension pro thunderbird s nejakou
kontrolou emailu jeste pred odeslanim?
Diky moc
Ales
Generovany scrollbox
[*] Roman Borkovec <roman(zv)borkovec(tec)com> - 01.8.2006 09:46:05
Ahoj vsem,
mam jednu neprijemnost ... v cyklu generuji panel v nem scrollbox a do
nej polozky ... problem je v tom, ze lista u scrollboxu se nekdy objevi i
kdyz polozek neni tolik, aby ho vyvolaly. Je to kodove velice jednoduche,
navic pomerne rutinni zalezitost - netusite nekdo, cim by to mohlo byt? (ty
polozky jsou mema v sirce dle poctu radku)
Roman
WXPSP2, D5P SP1
create parented - jak dostat okno na panel
[*] mstevlik(zv)gamo.sk - 01.8.2006 14:56:26
> ...
>
> Takze muj dotaz je spis jestli toto je spravne reseni a jestli neni
> nejake lepsi? Chci timto docilit modulovatelnost aplikace (pokud budou
> formualre v DLL / balickach).
>
> Tomas Rosa
Nieje lepsie pouzit TFrame?
Marian Stevlik (Michal)
IS programmer / developer
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
web: www.gamo.sk
mail: mstevlik(zv)gamo.sk
tel: +421 48 4372098, 4137935, 4372111
gsm: +421 905 462010
icq: 38493645
skype: majklbb
create parented - jak dostat okno na panel
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 01.8.2006 14:52:26
Cau,
resim pomerne velkou aplikaci a obsahuje "zalozky" (konkretne
NavPanel z JVCL). Nicmene protoze obsahuje dost funkci a ne vsechny jsou
casto pouzivany. Napadlo me, ze udelam co zalozka to samostatny formular
a jeho chovani nadefinuju tam (ma to vyhody i vzhledem k moznostem ze to
muze tvorit vice lidi). Jde me ted o to, aby kdyz zvolim zalozku, tak
aby se mi formular vytvoril, umistil na panel (kde je misto pro "hlavni
cast aplikace" a jedna jeho cast se umistila jako levy panel.
Mam tedy hlavni formular kde mam pro ukazku Panel1 (hlavni okno) a
Panel2 (levy panel). Pak mam nove vytvareny kde mam LeftPanel obsahujici
to co ma jit do leveho panelu + zbytek. Postup vytvareni je asi takovyto :
procedure TMainForm.CreateChild;
begin
form2:=TForm2.CreateParented(panel1.handle);
form2.Parent:=Panel1;
form2.Align:=alClient;
form2.LeftPanel.Parent:=Panel2;
form2.LeftPanel.Align:=alClient;
form2.Show;
end;
procedure TMainForm.DestroyChild;
begin
FreeAndNil(form2);
end;
(jde jen o testovani fce, proto natvrdo Form2, Panel1,...)
Obecne toto funguje tak jak ma - chova se to korektne tak jak potrebuju
a nezaznamenal jsem zadny pametovy deficit (testovano pomoci FastMM4) :-)
Takze muj dotaz je spis jestli toto je spravne reseni a jestli neni
nejake lepsi? Chci timto docilit modulovatelnost aplikace (pokud budou
formualre v DLL / balickach).
Tomas Rosa
create parented - jak dostat okno na panel
[*] Martin Pisarik <martin.pisarik(zv)seznam(tec)cz> - 01.8.2006 16:32:33
Ne, pred TFrame bych rad uprimne varoval.
Dedicnost Framu funguje dost podivne. Kdybych nemel aplikaci postavenou na
Framech, pouzil bych misto toho Formy a ty bych si parentoval tam kam
potrebuju v runtime. Stejne to musim delat v runtime, protoze jinak ty
komponenty pri zavreni a otevreni projektu nekam odplavou. Je to peklo.
Pouzivam BCB6 a tim je to jeste horsi.
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of mstevlik(zv)gamo.sk
> Sent: Tuesday, August 01, 2006 2:56 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: create parented - jak dostat okno na panel
>
>
> > ...
> >
> > Takze muj dotaz je spis jestli toto je spravne reseni a jestli neni
> > nejake lepsi? Chci timto docilit modulovatelnost aplikace (pokud budou
> > formualre v DLL / balickach).
> >
> > Tomas Rosa
>
> Nieje lepsie pouzit TFrame?
>
> Marian Stevlik (Michal)
> IS programmer / developer
>
> GAMO a.s.
> Kyjevske nam. 6
> 974 04 Banska Bystrica
> web: www.gamo.sk
> mail: mstevlik(zv)gamo.sk
> tel: +421 48 4372098, 4137935, 4372111
> gsm: +421 905 462010
> icq: 38493645
> skype: majklbb
>
> --
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.1.394 / Virus Database: 268.10.5/404 - Release Date: 31.7.2006
>
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.394 / Virus Database: 268.10.5/404 - Release Date: 31.7.2006
EOutOfResources v Paint
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 01.8.2006 16:12:31
Cau,
obcas se mi stane (pri pouziti FastMM4 ve FullDebugMode vzdy) ze pri
vytvoreni komponenty a tedy jejim prvnim vykresleni vyskoci error %subj%.
Mam komponentu odvozenou od TCustomControl. V constructoru vytvrim
Bitmapu (fRoh) a nactu ji z resourcu. Nasledne mam v metode Paint toto:
Canvas.Draw(0,0,fRoh);
a vzdy pri spusteni programu a prvnim vykresleni to zarve
"EOutOfResources with message 'Parametr neni spravny.'"
Nevite nekdo cim to muze byt?
Tomas Rosa
Hook klavesnice
[*] mydelphi(zv)seznam(tec)cz - 02.8.2006 07:15:33
Potreboval bych odchytavat klavesy stisknute behem behu windows. V
jakekoliv aplikaci.
Nevite jak na to? Ve starych 98 nam to fungovalo, kolega na to napsal
knihovnu ale pod XP to ted nejede... Hlasi to neco o preruseni 13.
Diky
Michal Kos
NET aplikace v D7
[*] Petr Vones <konference(zv)petrvones(tec)net> - 01.8.2006 23:09:00
From: "Petr Podany" <podany(zv)students.zcu(tec)cz>
> Nekde jsem se docetl, ze je mozne v D7 vyvijet i .NET aplikace. Kdyz chci
> tuto aplikaci nechat vytvorit, tak nemuzu najit volbu pro .NET aplikace
> jako je tomu v D2005.
Tato "moznost" spocivala v tom, ze v krabici s D7 byla na CD beta verze
prekladace Delphi.NET z prikazove radky pro .NET 1.1, to je cele :-)
Petr Vones
NET aplikace v D7
[*] Petr Podany <podany(zv)students.zcu(tec)cz> - 01.8.2006 22:58:59
Nekde jsem se docetl, ze je mozne v D7 vyvijet i .NET aplikace. Kdyz chci
tuto aplikaci nechat vytvorit, tak nemuzu najit volbu pro .NET aplikace jako
je tomu v D2005.
Diky.
EOutOfResources v Paint
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 02.8.2006 08:03:36
> Mam komponentu odvozenou od TCustomControl. V constructoru vytvrim
> Bitmapu (fRoh) a nactu ji z resourcu. Nasledne mam v metode Paint toto:
>
> Canvas.Draw(0,0,fRoh);
>
> a vzdy pri spusteni programu a prvnim vykresleni to zarve
> "EOutOfResources with message 'Parametr neni spravny.'"
>
Ahoj,
nam se neco trochu podobneho stavalo taky - stejna chyba, ne vzdy, obvykle
pri vytvareni formulare - i na XP nebo W2K, kde by mel byt resourcu
dostatek. Po dlouhem laborovani se jako nejpravdepodobnejsi pricina
ukazalo to, ze form mel v dobe navrhu omylem prirazenou svou vlastni
ikonu. Po te, co jsme ikonu zrusili (bylo to opravdu jen omylem), problem
zcela vymizel. Nejde u Tebe treba o neco takoveho?
David Lebeda