Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
TJclEmail - Outlook 2k - modalni okno
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.2.2003 17:07:40
From: "Blazek Jaroslav" <Jaroslav.Blazek(zv)access-it(tec)cz>
> je to v subjectu
Dobre, ale pedpokladam ze i ten ma vice verzi. Navic v nejakych opravach byla
tusim funkce, ktera pridavala nejaky bezpecnostni dialog pro potvrzeni
odeslani mailu pres Simple MAPI v pripade Outlooku. MS Office nemam, takze to
nemuzu vyzkouset.
Aby se dalo bavit o necem konkretnim, pouzijme jednoduchy priklad:
uses
JclMapi; // JCL 1.22
procedure TForm1.Button1Click(Sender: TObject);
var
E: TJclEmail;
begin
E := TJclEmail.Create;
try
E.ParentWnd := Application.Handle;
E.Send(True);
finally
E.Free;
end;
end;
Muzes vyzkouset priradit do E.ParentWnd nulu, ale to by pak nemelo fungovat
vubec.
Petr Vones
MSSQL 200, SQL-DMO, Backup Object a PercentComplet
[*] Tom xXx <assas(zv)bonbon(tec)net> - 14.2.2003 17:25:32
Ahoj lidi,
podarilo se nekomu z vas uspesne zachytavat udalost PercentComplete pri
vyvolani backupu pres DMO objekt Backup? Pokud pouziji mechanismus,
kterym zachytavam eventy u jinych COM objektu (napr. u ADO Recordsetu),
dojde po vyvolani backupu k vyjimce:
EOleException with message '[SQL-DMO]Code execution exception:
EXCEPTION_ACCESS_VIOLATION' Bez nastaveni zachytavani eventu mi backup funguje krasne :o(
Dik za kazdicke nakopnuti.
Tom
MS-SQL 2K SP2, D6 SP 2, Win 2K CZ SP3
hPrevInst
[*] Ale� Kresta <kresta.ales(zv)seznam(tec)cz> - 14.2.2003 19:48:25
Dobry den,
chtel bych se zeptat, zda mam spravne informace, ze v promenne
hPrevInst je handle na predchazejici instanci programu. Tuto promennou
testuju a pokud je nula, tak muj program pokracuje ve spousteni, jinak se
ukonci, problem je v tom, ze se spousti, i kdyz uz je jednou spusten, coz by
nemel.
hPrevInst
[*] Robert Suska <SuskaR(zv)seznam(tec)cz> - 14.2.2003 20:15:21
Ahoj!
ja to mam takto a bezi to
var _handle: HWND;
begin
Application.Initialize;
_handle:= FindWindow('TVISMainForm', nil);
if _handle <> 0 then begin
SetForegroundWindow(_handle);
Application.Terminate;
end;
Application.CreateForm();
Application.Run;
end.************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************> Dobry den,
> chtel bych se zeptat, zda mam spravne informace, ze v promenne
> hPrevInst je handle na predchazejici instanci programu. Tuto promennou
> testuju a pokud je nula, tak muj program pokracuje ve spousteni, jinak se
> ukonci, problem je v tom, ze se spousti, i kdyz uz je jednou spusten, coz
by
> nemel.
>
>
hPrevInst
[*] Martin Falta <martin(zv)aprog(tec)cz> - 14.2.2003 21:38:31
Hello Ale�,
tohle platilo v 16bit Windows.
Friday, February 14, 2003, 7:48:25 PM, you wrote:
AK> Dobry den,
AK> chtel bych se zeptat, zda mam spravne informace, ze v promenne
AK> hPrevInst je handle na predchazejici instanci programu. Tuto promennou
AK> testuju a pokud je nula, tak muj program pokracuje ve spousteni, jinak se
AK> ukonci, problem je v tom, ze se spousti, i kdyz uz je jednou spusten, coz by
AK> nemel.
--
Best regards,
Martin mailto:martin(zv)aprog(tec)cz
DateTimePicker
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 15.2.2003 09:46:40
Zdravim
Lze docilit stavu aby se DateTimePicker pri zavolani rozbalil aniz bych =
na
n=ECj musel kliknout ?
Diky za odpoved
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 13.2.2003
DateTimePicker
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 15.2.2003 16:35:01
Ahoj,
zkus dat do OnEnter neco jako:
if Sender is TDateTimePicker then
begin
with (Sender as TDateTimePicker) do
begin
PostKeyEx(Handle, VK_DOWN, [ssAlt], false);
end;
end;
a melo by byt vymalovano :-)
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> Lze docilit stavu aby se DateTimePicker pri zavolani
> rozbalil aniz bych na
> n=ECj musel kliknout ?
Pristup k mdb tabulce bez protivneho login dialogu
[*] Miroslav Novosad <mirnov2(zv)seznam(tec)cz> - 15.2.2003 19:12:20
Ahoj,
potrebuju otevrit mdb tabulku bez toho, aby to chtelo jmeno a heslo.
Pohledal jsem archiv a ziskal dojem, ze jde o banalitu, ale
TDatabase.LoginPrompt := False zrejme nestaci.
Zkousel jsem dat do parametru Password='', ale v login dialogu se
objevilo v poli pro heslo '', takze to asi nebude spravny zpusob.
Nemam tuseni, co by bylo jeste treba nastavit.
Nemate nekdo navod (pro UB)?
Miroslav Novosad
mirnov2(zv)seznam(tec)cz
DateTimePicker
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 15.2.2003 20:26:33
Zdravim
Porad mi neco unika. Pri kompilaci mi prekladac laje "PostKeyEx" Undeclar=
ed
identifier
Diky za odpoved
Viktor Marek
viktor(zv)mbox.vol(tec)cz
>zkus dat do OnEnter neco jako:
> if Sender is TDateTimePicker then
> begin
> with (Sender as TDateTimePicker) do
> begin
> PostKeyEx(Handle, VK_DOWN, [ssAlt], false);
> end;
> end;
> Lze docilit stavu aby se DateTimePicker pri zavolani
> rozbalil aniz bych na
> n=ECj musel kliknout ?
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 13.2.2003
DateTimePicker
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 16.2.2003 16:24:58
> Porad mi neco unika. Pri kompilaci mi prekladac laje
> "PostKeyEx" Undeclared
> identifier
Ahoj,
omlouvam se, unika spravne :-)), zapomnel jsem pridat PostKeyEx :-)
Zde je :
uses Windows;
(**********************************************************************)
(* PostKeyEx
(**********************************************************************)
procedure PostKeyEx(hWindow : Hwnd; Key : word; const Shift : TShiftState=
;
specialkey : boolean);
type
TBuffers =3D array[0..1] of TKeyboardState;
var
pKeyBuffers : ^TBuffers;
lparam : LongWord;
begin
if IsWindow(hWindow) then
begin
lparam :=3D MakeLong(0, VKKeyScan(Chr(Key)));
if specialkey then lparam :=3D lparam or $1000000;
New(pKeyBuffers);
try
GetKeyboardState(pKeyBuffers^[1]);
FillChar(pKeyBuffers^[0], SizeOf(TKeyboardState), 0);
if ssSHIFT in Shift then pKeyBuffers^[0][VK_SHIFT] :=3D $80;
if ssAlt in Shift then
begin
pKeyBuffers^[0][VK_MENU] :=3D $80;
lparam :=3D lparam or $20000000;
end;
if ssCTRL in Shift then pKeyBuffers^[0][VK_CONTROL] :=3D $80;
if ssLeft in Shift then pKeyBuffers^[0][VK_LBUTTON] :=3D $80;
if ssRight in Shift then pKeyBuffers^[0][VK_RBUTTON] :=3D $80;
if ssMiddle in Shift then pKeyBuffers^[0][VK_MBUTTON] :=3D $80;
SetKeyboardState(pKeyBuffers^[0]);
if ssAlt in Shift then
begin
PostMessage(hWindow, WM_SYSKEYDOWN, Key, lparam);
PostMessage(hWindow, WM_SYSKEYUP, Key, lparam or $C0000000);
end
else
begin
PostMessage(hWindow, WM_KEYDOWN, Key, lparam);
PostMessage(hWindow, WM_KEYUP, Key, lparam or $C0000000);
end;
Application.ProcessMessages;
SetKeyboardState(pKeyBuffers^[1]);
finally
if pKeyBuffers <> nil then Dispose(pKeyBuffers);
end;
end;
end;
> >zkus dat do OnEnter neco jako:
> > if Sender is TDateTimePicker then
> > begin
> > with (Sender as TDateTimePicker) do
> > begin
> > PostKeyEx(Handle, VK_DOWN, [ssAlt], false);
> > end;
> > end;
>
> > Lze docilit stavu aby se DateTimePicker pri zavolani
> > rozbalil aniz bych na
> > n=ECj musel kliknout ?
>
>
>
> ---
> Odchoz=ED zpr=E1va neobsahuje viry.
> Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 13.2.2003
>
>
Popis COM Outlooku
[*] Jan Naiser <tua(zv)wo(tec)cz> - 16.2.2003 17:06:23
Preji pekny den,
1) existuje nekde trosku srozumitelny popis COM Outlooku s priklady? Nemam
na mysli "Microsoft Outlook Visual Basic Reference" :-)
2) Nevite nekdo o utilite, ktera dokaze synchronizovat 2 outlooky (bez
Exchange) napr. notebook<>stolni PC podobne jako to umi MS Active Sync pro
Handheldy? (At to nemusim psat. :-))
Diky, Honza.
Popis COM Outlooku
[*] Jan Naiser <tua(zv)wo(tec)cz> - 16.2.2003 17:42:47
Preji pekny den,
1) existuje nekde trosku srozumitelny popis COM Outlooku s priklady? Nemam
na mysli "Microsoft Outlook Visual Basic Reference" :-)
2) Nevite nekdo o utilite, ktera dokaze synchronizovat 2 outlooky (bez
Exchange) napr. notebook<>stolni PC podobne jako to umi MS Active Sync pro
Handheldy? (At to nemusim psat. :-))
Diky, Honza.
Instalace Delphi encryption compedium
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 16.2.2003 19:11:44
Zdravim konferu
mohl by mi nekdo prosim napsat presny popis jak nainstalovat Delphi
Encryption Compedium na Delphi 7 ?
Mam problem s DsgnIntf.pas (kterej v D7 neni) skousel jsem pridat
balice do requires ale to nepomohlo pri instalaci komponent to hlasi
errory.
--
Best regards,
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
Terminal services
[*] Roland Turcan <rotursoft(zv)post.sk> - 16.2.2003 19:53:08
Hello Delphi CZ konferencia!
1. Ako mozem zistit, ci bezim na terminal serveri?
2. Je mozne zistit na TS, ze bezi aj ina instancia mojho programu?
3. Pouzivam HASP kluce na ochranu, ale je to len ako lokal, t.j. +
kluc vs. 1 soft. Ako zaistim nieco podobne?
--
Best regards, TRoland
Instalace Delphi encryption compedium
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 16.2.2003 21:03:28
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> mohl by mi nekdo prosim napsat presny popis jak nainstalovat Delphi
> Encryption Compedium na Delphi 7 ?
Uz jsem to psal nekolikrat, tak jeste jednou:
unit RECReg.pas
exchange in uses clausel "DsgnIntf" with "DesignIntf, DesignEditors"
unit DECUtil.pas in the initialization section
InitTestIsOk := CRC32($29524828, GetTestVector, 32) = $9B497502;
unit Checksum.pas if installed
procedure TChecksum_CRC.Calc(const Data; DataSize: Integer); assembler;
asm
JMP DWord Ptr [EAX].FProc.TMethod.Code
end;
HTH, pf
Terminal services - doplnenie
[*] Roland Turcan <rotursoft(zv)post.sk> - 16.2.2003 21:33:41
<<< 16. 2. 2003 21:32 - Roland Turcan "rotursoft(zv)post.sk" >>>
RT> Hello Delphi CZ konferencia!
RT> 1. Ako mozem zistit, ci bezim na terminal serveri?
RT> 2. Je mozne zistit na TS, ze bezi aj ina instancia mojho programu?
RT> 3. Pouzivam HASP kluce na ochranu, ale je to len ako lokal, t.j. +
RT> kluc vs. 1 soft. Ako zaistim nieco podobne?
Ako server ma byt Windows 2000 Advanced server + Terminal services
--
Best regards, TRoland
SQL dotaz
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 16.2.2003 22:11:30
Zdravim
Z tabulky vyselectim do DBGridu jeden rok
select * from "Test.dat" datum where cast(datum as varchar(10)) like
"2002-%-%"
a potreboval bych jeste ziskat sumu Kc za vyselectene zaznamy.
Pokud dam
Query2.SQL.Clear;
Query2.SQL.Add('SELECT SUM(Kc) AS KcCelkem FROM "Test.dat"');
Query2.Open;
Label1.caption:=3DFormatFloat('# ###
###',Query2.FieldByName('KcCelkem').AsInteger) ;
Dostanu sumu Kc za celou tabulku.
Jedna moznost by byla projit DBGrid a sumu Kc si vyscitat (to se mi moc
nezamlouva)
Chci se tedy zeptat jak ziskat sumu Kc selectem (neco na zpusob RecordCou=
nt)
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 13.2.2003
SQL dotaz
[*] Martin Radvansky <delphicz(zv)stereo(tec)cz> - 16.2.2003 22:24:15
Dobr� den,
Netusim, zda jsem to pochopil spravne (zjistit sume za jeden rok), ale
pak staci doplnit klausuli where do query,ktere vraci tu sumu. :).
VM> Zdravim
VM> Z tabulky vyselectim do DBGridu jeden rok
VM> select * from "Test.dat" datum where cast(datum as varchar(10)) like
VM> "2002-%-%"
VM> a potreboval bych jeste ziskat sumu Kc za vyselectene zaznamy.
VM> Pokud dam
VM> Query2.SQL.Clear;
VM> Query2.SQL.Add('SELECT SUM(Kc) AS KcCelkem FROM "Test.dat"');
VM> Query2.Open;
VM> Label1.caption:=FormatFloat('# ###
VM> ###',Query2.FieldByName('KcCelkem').AsInteger) ;
VM> Dostanu sumu Kc za celou tabulku.
VM> Jedna moznost by byla projit DBGrid a sumu Kc si vyscitat (to se mi moc
VM> nezamlouva)
VM> Chci se tedy zeptat jak ziskat sumu Kc selectem (neco na zpusob RecordCount)
VM> Diky za radu
VM> Viktor Marek
VM> viktor(zv)mbox.vol(tec)cz
--
S pozdravem,
Martin Radvansky
SQL dotaz
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 16.2.2003 23:06:38
Zdravim
Query2.SQL.Add('SELECT SUM(Kc) AS KcCelkem FROM "Test.dat"' where XXXXX);
Nechapu ale co tam dat?
Diky za odpoved
Viktor Marek
viktor(zv)mbox.vol(tec)cz
----- Original Message -----
From: "Martin Radvansky" <delphicz(zv)stereo(tec)cz>
To: "Viktor Marek" <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, February 16, 2003 10:24 PM
Subject: Re: SQL dotaz
> Dobr=FD den,
>
> Netusim, zda jsem to pochopil spravne (zjistit sume za jeden rok), ale
> pak staci doplnit klausuli where do query,ktere vraci tu sumu. :).
>
> VM> Zdravim
>
> VM> Z tabulky vyselectim do DBGridu jeden rok
> VM> select * from "Test.dat" datum where cast(datum as varchar(10)) lik=
e
> VM> "2002-%-%"
> VM> a potreboval bych jeste ziskat sumu Kc za vyselectene zaznamy.
>
> VM> Pokud dam
> VM> Query2.SQL.Clear;
> VM> Query2.SQL.Add('SELECT SUM(Kc) AS KcCelkem FROM "Test.dat"');
> VM> Query2.Open;
> VM> Label1.caption:=3DFormatFloat('# ###
> VM> ###',Query2.FieldByName('KcCelkem').AsInteger) ;
>
> VM> Dostanu sumu Kc za celou tabulku.
>
> VM> Jedna moznost by byla projit DBGrid a sumu Kc si vyscitat (to se mi
moc
> VM> nezamlouva)
>
> VM> Chci se tedy zeptat jak ziskat sumu Kc selectem (neco na zpusob
RecordCount)
>
> VM> Diky za radu
>
> VM> Viktor Marek
> VM> viktor(zv)mbox.vol(tec)cz
>
> --
> S pozdravem,
> Martin Radvansky
>
>
>
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 13.2.2003
Image a zabavny Visible
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 17.2.2003 00:25:35
Ahoj.
Potrebuju nacist nejaky obrazek (JPG,BMP,WMF,GIF,...) pomoci LoadFromFile
nejlepe do neceho, co nebude videt. Pak z toho co jsem nacetl chci vytvorit
JPG, zkomprimovat ho a ukazat v TImage, jak to bude s takovou kompresi
vypadat.
Mam nasledujici kod:
jpg:=TJpegImage.Create;
m:=TMemoryStream.Create;
if Obrazek.Picture.Graphic=nil then
Obrazek.Picture.Graphic:=TJPEGImage.Create;
try
jpg.CompressionQuality:=Kval.Value;
jpg.Assign(FOriginal.Picture.Graphic);
jpg.Compress;
jpg.savetostream(m);
m.Position:=0;
Obrazek.Picture.Graphic.LoadFromStream(m);
finally
m.Free;
jpg.Free;
end;
Obrazek a FOriginal jsou TImage umistene na formu. Pokud FOriginal nastavim
Visible:=false nebo ho jen umistim pod nejakou komponentu tak, ze neni
videt, skonci vyse uvedeny kod z chybou "JPEG error #41"!
Pokud jako FOriginal pouziju TPicture, skoncim se stejnou chybou.
Po dlouhem laborovani mam jedine funkci reseni s TImage, ale ten musi byt
Visible a nesmi byt za nicim schovany. Je nejake reseni, jak nacist
nejaky obrazek nekam, kde nebude videt a vytvorit z nej JPEG?
Dik,
Roman
fatalna chyba pri pouziti TSocketConnection !
[*] Ivan Turcan <iturcan(zv)drake.sk> - 17.2.2003 07:55:11
Zdravim kolegov,
Pred istym casom som v Delphi 6 detekoval pri jednej MIDAS aplikacii chybu
ktora sa mi zdala maximalne divna a priradoval som ju
k blbo nainstalovanemu Delphi. Teraz po cca. 5 mesiacoch som sa k tejto
chybe dostal znova a kedze sa mi objavila aj na novej instalacii Delphi,
skusal som zistit v com je problem.
Priklad ktory tu uvadzam sa da detekovat na lubovolnej aplikacii ktora
pouziva TSocketConnection.
V skratke, za jednej konkretnej situacie sa stane ze SocketServer vypise
chybu "AccessViolation ...." tato situacia je natolko divna ze ak neverite
tak si tento priklad nasimulujte a uvidite.
Pouzit sa da lubovolny server na ktory sa da pripojit cez TSocketConnection.
Klient, uplne normalny klient akeho ste schopny vytvorit. Na prezentaciu
staci 1 komponenta TSocketConnection s vlastnostami nastavenymi na nas
server,
dve tlacitka. Jedno tlacitko sa pripoji na na server a bude volat hocijaku
metodu servra, napr. login. a druhe tlacitko ktore sa odpoji od servra ,
tzn. SocketConnection.close
Vo vyssie uvedenom priklade je vsetko ok. ziadny problem nie je.
Predpokladajme ze potrebujete v nejakej inej unite pristupovat na server
....
Teraz si doplnte dalsiu unitu do projektu a v nej si nadeklarujte premennu
typu variant, napr: obj : variant (ak tam date typ olevariant tak
vysledok je totozny)
teraz doplnte do butonu jedna obsadenie premennej obj na
socketconnection.appserver. Cize kod bude vyzerat takto:
procedure TForm1.Button1Click(Sender: TObject);
begin
SocketConnection1.Open;
obj := SocketConnection1.AppServer;
SocketConnection1.AppServer.Login('',''); // pri druhom pripojeni
je tu chyba
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SocketConnection1.Close;
end;
Nuz a teraz si spustite klienta a stlacte tlacitko jedna na pripojenie k
servru , nasledne sa odpojte pomocou tlacitka btn2. A hned zasa pripojte
tlacitkom btn1.
Pri druhom stlaceni tlacitka btn1 nastane chyba "Access Violation at address
0048dd2e in module scktsrvr.exe read of address FFFFFFFFF"
Zaver:
Ako je mozne ze jeden riadok v ktorom je pouzite len priradenie sposobuje
takuto chybu ? pokial riadok "obj := SocketConnection1.AppServer"
zaremujete tak chyba nenastane. Pri ostatnych druhoch pripojenia
(DCOMConnection) chyba nenastane vobec.
Ak sa niekto stretol s takymto niecim prosim dajte mi vediet ako to
vyriesit. Pre upresnenie pouzity je standardny socketServer ktory je v
Delphi.
Vdaka za kazdy napad
Ivan
WinCGI a IIS4.0
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 17.2.2003 08:04:44
Ahoj,
nevi nekdo, jak IIS server pozna, jestli EXE je aplikace CGI nebo
WinCGI a
tudiz jak se maji predavat parametry,pozadavek a odpoved?
Dotaz vychazi ze zkusenosti, ze mnou vytvorena CGI aplikace beha, ale
(z
duvodu vykonu) radeji bych pouzival WinCGI, ktera mi pod IIS
vygeneruje
nesrozumitelny exception. Prosim jen konkretni navody k reseni meho
problemu, rady typu "prejdi na ISAPI" jsou pro mne nepouzitelne.
Dekuji
David Lebeda
Re[2]: SQL dotaz
[*] Martin Radvansky <delphicz(zv)stereo(tec)cz> - 17.2.2003 08:10:52
Dobr� den,
Prece tu podminku, kterou se vybere patricna cast dat
tedy v tomto pripade
SELECT SUM(Kc) FROM "Test.dat"
WHERE datum>="01.01.2002" AND datum<="31.12.2002"
(pripadne do where ten tvuj cast)
Jo jeste jsi zapomnel uvest databazi nad kterou to delas, ale nanapada
me u takove jednoduche a zakladni veci rozdil mezi napr. paradoxem,
FB, ci MSSQL
VM> Zdravim
VM> Query2.SQL.Add('SELECT SUM(Kc) AS KcCelkem FROM "Test.dat"' where XXXXX);
VM> Nechapu ale co tam dat?
VM> Diky za odpoved
VM> Viktor Marek
VM> viktor(zv)mbox.vol(tec)cz
S pozdravem
Martin Radvansky
Delphi 7 - bez BDE
[*] Ty�lic Ji�� - 17.2.2003 08:25:13
Preji krasne pondeli,
Mame pomerne rozsahlou aplikace v Delphi5 + MS SQL. Chteli bychom si =
koupit Delphi7 a tim vyradit BDE, ale nevim jestli je to bezbolestna =
procedura. Provadel jste nekdo prechod na D7? Co vsechno obnasi vyrazeni =
BDE? Co rychlost pristupu do databaze? Opravdu se vyplati koupit D7 =
(Prof.)?
Jirka
Delphi 7 - bez BDE
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 17.2.2003 08:34:24
QSBwcm9jIG5lcG91eml0IEQ1IGEgQURPID8gUGFrIHRha3kgbmVuaSBudXRuZSBCREUNCg0KVGlt
IHZ5cmF6ZW5pbSBqc2kgdXJjaXRlIG15c2xlbCBkYkV4cHJlc3MuIFBhayBtdXNpcyBwb2NpdGF0
IHMgdGltLCB6ZQ0KbmVidWRlIHphZG5hIHByaW1hIGVkaXRhY2UgdiBHUklEdSBhcG9kLg0KDQot
LSANCkphbiBGaWFsYQ0KbWFpbHRvOmphbi5maWFsYUBpb2wuY3oNCg0KMTcuMi4yMDAzIFR5uWxp
YyBKafjtOg0KPiBQcmVqaSBrcmFzbmUgcG9uZGVsaSwNCj4gTWFtZSBwb21lcm5lIHJvenNhaGxv
dSBhcGxpa2FjZSB2IERlbHBoaTUgKyBNUyBTUUwuIENodGVsaSBieWNob20gc2kNCj4ga291cGl0
IERlbHBoaTcgYSB0aW0gdnlyYWRpdCBCREUsIGFsZSBuZXZpbSBqZXN0bGkgamUgdG8gYmV6Ym9s
ZXN0bmENCj4gcHJvY2VkdXJhLiBQcm92YWRlbCBqc3RlIG5la2RvIHByZWNob2QgbmEgRDc/IENv
IHZzZWNobm8gb2JuYXNpDQo+IHZ5cmF6ZW5pIEJERT8gQ28gcnljaGxvc3QgcHJpc3R1cHUgZG8g
ZGF0YWJhemU/IE9wcmF2ZHUgc2UgdnlwbGF0aQ0KPiBrb3VwaXQgRDcgKFByb2YuKT8=
Terminal services
[*] Z�le��k Tom� - 17.2.2003 09:12:15
> 1. Ako mozem zistit, ci bezim na terminal serveri ?
function IsRemoteSession : Boolean;
begin
Result :=3D GetSystemMetrics($1000{SM_REMOTESESSION})<>0;
end;
Tomas Zalesak
Download cez ShellAPI
[*] <vito(zv)centrum(tec)cz> - 17.2.2003 09:17:47
Ahoj,
prosim o radu, ako stiahnem binarny subor z webu, ked viem jeho=20
presnu adresu cez ShellAPI do konkretneho adresara, ktory si vyberiem=20
sam?
Zatial pouzim tuto metodu:
s:=3D'http://www.xyz(tec)cz/z/subor.exe';
ShellExecute(Handle, 'open', PChar(s), '', '', 0);
toto mi zabezpeci dialogove okno pre stiahnutie suboru, kde uzivatel=20
vybera adresar. Ja vsak potrebujem, aby som si adresar vybral=20
programom a po spusteni ShellExecute sa subor zacal hned stahovat do=20
mnou zvoleneho adresara.
Resp. nemusi to byt ani ShellExecute, ale nechcem pouzit ani FTP a=20
ani (ak by to bolo mozne) TNMHTTP.
pozuzivam D5 Ent.
s pozdravom a prianim uspesneho prac. tyzdna
Vito
am.prog.
--------------------
Poslouchejte Radio Impuls a vyhrajte v=EDkendy pro dva v evropsk=FDch
metropol=EDch. V=EDce na Radiu Impuls a http://www.netimpuls(tec)cz!Delphi 7 - bez BDE
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 17.2.2003 09:29:16
Pouzivame D5E+MSSQL a komponenty ADOExpress uz cca 3 roky (temer) bez
problemu. Prechod do D7 jsem nezkoucel, ale prechod do D6P ano (ADO-ADO) =
a
byl bezproblemovy. Co se tyka ADO tak rozdil D5-D6-(a co jsem cetl tak i)=
D7
je minimalni a asi se nevyplati.
Pavel
> -----Original Message-----
> From: Ty=B9lic Ji=F8=ED [mailto:jiri.tyslic(zv)opp.tbggroup.com]
> Sent: Monday, February 17, 2003 8:25 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Delphi 7 - bez BDE
>=20
>=20
> Preji krasne pondeli,
> Mame pomerne rozsahlou aplikace v Delphi5 + MS SQL. Chteli=20
> bychom si koupit Delphi7 a tim vyradit BDE, ale nevim jestli=20
> je to bezbolestna procedura. Provadel jste nekdo prechod na=20
> D7? Co vsechno obnasi vyrazeni BDE? Co rychlost pristupu do=20
> databaze? Opravdu se vyplati koupit D7 (Prof.)?
>=20
> Jirka
>=20
>=20
Delphi 7 - bez BDE
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 17.2.2003 09:34:04
17.2.2003 Ty=B9lic Ji=F8=ED:
> Mame pomerne rozsahlou aplikace v Delphi5 + MS SQL.=20
> Odes=EDlatel: ing. Jan Fiala <jan.fiala(zv)iol(tec)cz>
> A proc nepouzit D5 a ADO ? Pak taky neni nutne BDE
Jasne.
> Tim vyrazenim jsi urcite myslel dbExpress. Pak musis pocitat s tim, ze
> nebude zadna prima editace v GRIDu apod.
No, DBGrid a ostatni DBAware komponenty mohu pouzit v kombinaci
dbExpress + TDataSetProvider + TClientDataSet
Jenze, pokud vim, tak dbExpress do MS SQL nepujde.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Po pripojeni zarizeni na USB Windows poslou nejako
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 17.2.2003 09:54:01
pokud jde o zjisteni zda windowsi pripojoli ci odpojili disk tak o tom
existuje zprava WM_DEVICECHANGE (= $0219) ale ta je pouzita asi pro vsechny
ruzne zarizeni takze je potreba to rozlisit, pokud by byl zajem tak mam
unitu ktera to resi
Po pripojeni zarizeni na USB Windows poslou nejako
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 17.2.2003 10:05:50
kvuli vetsimu zajmu to posilam sem snad to pomuze vice lidem (neni to moc
testovane (asi 2-3 pocitace) takze pripadne problemy mi poslete a ja se
pokusim to vyresit, snad)
unit DeviceEvent;
interface
uses
Windows;
type
tDeviceEvent = procedure (insert : boolean; drives : string);
tDeviceEventObj = procedure (insert : boolean; drives : string) of object;
tDeviceChangeEvent = procedure (wparam, lparam : longint);
tDeviceChangeEventObj = procedure (wparam, lparam : longint) of object;
//vlozeni/vysunuti media
function SetMediumEvent (event : tDeviceEvent) : boolean; overload;
function SetMediumEvent (event : tDeviceEventObj) : boolean; overload;
//pripojeni/odpojeni disku
function SetVolumeEvent (event : tDeviceEvent) : boolean; overload;
function SetVolumeEvent (event : tDeviceEventObj) : boolean; overload;
procedure FreeEvent (event : tDeviceEvent); overload;
procedure FreeEvent (event : tDeviceEventObj); overload;
function SetDeviceEvent (event : tDeviceChangeEvent) : boolean; overload;
function SetDeviceEvent (event : tDeviceChangeEventObj) : boolean;
overload;
procedure FreeEvent (event : tDeviceChangeEvent); overload;
procedure FreeEvent (event : tDeviceChangeEventObj); overload;
implementation
const
WM_DEVICECHANGE = $0219;
DBT_DEVICEARRIVAL = $8000; // system detected a new device
DBT_DEVICEREMOVECOMPLETE = $8004; // device is gone
DBT_DEVTYP_VOLUME = $00000002;
DBTF_MEDIA = $0001; // media comings and goings
DBTF_NET = $0002; // network volume
type
PDEV_BROADCAST_HDR = ^TDEV_BROADCAST_HDR;
TDEV_BROADCAST_HDR = packed record
size : DWORD;
devicetype : DWORD;
reserved : DWORD;
end;
PDEV_BROADCAST_VOLUME = ^TDEV_BROADCAST_VOLUME;
TDEV_BROADCAST_VOLUME = packed record
size : DWORD;
devicetype : DWORD;
reserved : DWORD;
unitmask : DWORD;
flags : WORD;
end;
var
uwc : tWndClass = (
style : 0;
lpfnWndProc : (zv)DefWindowProc;
cbClsExtra : 0;
cbWndExtra : 0;
hInstance : 0;
hIcon : 0;
hCursor : 0;
hbrBackground : 0;
lpszMenuName : nil;
lpszClassName : 'TPUtilWindowEvent');
function _AllocateHWnd (method : longint) : HWND;
var tc : tWndClass;
begin
uwc.hInstance:=HInstance;
if (GetClassInfo (HInstance,uwc.lpszClassName,tc)) then
windows.UnregisterClass (uwc.lpszClassName,HInstance);
if (windows.RegisterClass (uwc)<>0)
then begin
result:=CreateWindowEx (WS_EX_TOOLWINDOW,uwc.lpszClassName,'',
WS_POPUP,0,0,0,0,0,0,HInstance,nil);
if (result<>0)and(method<>0) then
SetWindowLong (result,GWL_WNDPROC,method);
end
else result:=0;
end;
procedure _DeallocateHWnd (wnd : HWND);
begin
DestroyWindow (wnd);
windows.UnregisterClass (uwc.lpszClassName,HInstance);
end;
function GetDriveLetter (um : longint) : string;
var i, dl : shortint;
begin
result:='';
dl:=Ord('A');
for i:=0 to 25 do
begin
if ((um and 1)=1) then
result:=result+char(dl);
um:=um shr 1;
inc (dl);
end;
end;
type
tRealyCDEventRec = record
medium : boolean;
case evettype : byte of
0 : (event : tDeviceEvent);
1 : (eventobj : tDeviceEventObj);
2 : (devevent : tDeviceChangeEvent);
3 : (deveventobj : tDeviceChangeEventObj);
255 : (eventint : longint);
end;
var
RealyEvent : array of tRealyCDEventRec;
function EventStdWndProc (window : HWND; msg, wparam, lparam : longint) :
longint; stdcall;
var
lpdb : PDEV_BROADCAST_HDR; lpdbv : PDEV_BROADCAST_VOLUME;
procedure CallEvent (b : boolean);
procedure ListEvent (bb : boolean);
var i : longint; dr : string;
begin
dr:=GetDriveLetter (lpdbv^.unitmask);
for i:=low(RealyEvent) to high(RealyEvent) do
with RealyEvent[i] do
if (medium=bb) then
case evettype of
0 : if (Assigned (event)) then
event (b,dr);
1 : if (Assigned (eventobj)) then
eventobj (b,dr);
end;
end;
begin
lpdb:=PDEV_BROADCAST_HDR(lparam);
if (lpdb^.devicetype=DBT_DEVTYP_VOLUME) then
begin
lpdbv:=PDEV_BROADCAST_VOLUME(lparam);
if (lpdbv^.flags=0) then ListEvent (false)
else if ((lpdbv^.flags and DBTF_MEDIA)<>0) then ListEvent (true)
else if ((lpdbv^.flags and DBTF_NET)<>0) then ListEvent (false);
end;
end;
procedure ListDevEvent;
var i : longint;
begin
for i:=low(RealyEvent) to high(RealyEvent) do
with RealyEvent[i] do
case evettype of
2 : if (Assigned (devevent)) then
devevent (wparam,lparam);
3 : if (Assigned (deveventobj)) then
deveventobj (wparam,lparam);
end;
end;
begin
if (msg=WM_DEVICECHANGE) then
case wparam of
DBT_DEVICEARRIVAL : begin
CallEvent (true);
ListDevEvent;
end;
DBT_DEVICEREMOVECOMPLETE : begin
CallEvent (false);
ListDevEvent;
end;
else ListDevEvent;
end;
result:=0;
end;
var
DeviceChangeWindowHandle : HWND;
function InitWnd : boolean;
begin
if (DeviceChangeWindowHandle=0) then
DeviceChangeWindowHandle:=_AllocateHWnd (longint((zv)EventStdWndProc));
result:=(DeviceChangeWindowHandle<>0);
end;
procedure DoneWnd;
begin
if (DeviceChangeWindowHandle<>0) then
_DeallocateHWnd (DeviceChangeWindowHandle);
DeviceChangeWindowHandle:=0;
end;
function FindEvent (event : tRealyCDEventRec) : longint;
begin
for result:=low(RealyEvent) to high(RealyEvent) do
if (RealyEvent[result].eventint=event.eventint) then
exit;
result:=-1;
end;
function AddEventRec (event : tRealyCDEventRec) : boolean;
begin
result:=false;
if (FindEvent (event)>=0) then
exit;
if (not InitWnd) then
exit;
setlength (RealyEvent,length(RealyEvent)+1);
RealyEvent[high(RealyEvent)]:=event;
result:=true;
end;
procedure DelEventRec (event : tRealyCDEventRec);
var i, o : longint;
begin
o:=FindEvent (event);
if (o<0) then
exit;
i:=high(RealyEvent);
if (o<i) then
move (RealyEvent[o+1],RealyEvent[o],sizeof(tRealyCDEventRec)*i-(o+1));
setlength (RealyEvent,length(RealyEvent)-1);
if (length(RealyEvent)=0) then
DoneWnd;
end;
function SetMediumEvent (event : tDeviceEvent) : boolean;
var p : tRealyCDEventRec;
begin
p.eventint:=0;
p.medium:=true;
p.event:=event;
p.evettype:=0;
result:=AddEventRec (p);
end;
function SetMediumEvent (event : tDeviceEventObj) : boolean;
var p : tRealyCDEventRec;
begin
p.eventint:=0;
p.medium:=true;
p.eventobj:=event;
p.evettype:=1;
result:=AddEventRec (p);
end;
function SetVolumeEvent (event : tDeviceEvent) : boolean;
var p : tRealyCDEventRec;
begin
p.eventint:=0;
p.medium:=false;
p.event:=event;
p.evettype:=0;
result:=AddEventRec (p);
end;
function SetVolumeEvent (event : tDeviceEventObj) : boolean;
var p : tRealyCDEventRec;
begin
p.eventint:=0;
p.medium:=false;
p.eventobj:=event;
p.evettype:=1;
result:=AddEventRec (p);
end;
procedure FreeEvent (event : tDeviceEvent);
var p : tRealyCDEventRec;
begin
p.eventint:=0;
p.event:=event;
DelEventRec (p);
end;
procedure FreeEvent (event : tDeviceEventObj);
var p : tRealyCDEventRec;
begin
p.eventint:=0;
p.eventobj:=event;
DelEventRec (p);
end;
function SetDeviceEvent (event : tDeviceChangeEvent) : boolean;
var p : tRealyCDEventRec;
begin
p.eventint:=0;
p.devevent:=event;
p.evettype:=2;
result:=AddEventRec (p);
end;
function SetDeviceEvent (event : tDeviceChangeEventObj) : boolean;
var p : tRealyCDEventRec;
begin
p.eventint:=0;
p.deveventobj:=event;
p.evettype:=3;
result:=AddEventRec (p);
end;
procedure FreeEvent (event : tDeviceChangeEvent);
var p : tRealyCDEventRec;
begin
p.eventint:=0;
p.devevent:=event;
DelEventRec (p);
end;
procedure FreeEvent (event : tDeviceChangeEventObj);
var p : tRealyCDEventRec;
begin
p.eventint:=0;
p.deveventobj:=event;
DelEventRec (p);
end;
initialization
DeviceChangeWindowHandle:=0;
setlength (RealyEvent,0);
finalization
setlength (RealyEvent,0);
end.
SQL dotaz
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 17.2.2003 10:08:16
Napr.:
select SUM(Kc) AS KcCelkem from "Test.dat" datum where where cast(datum a=
s
varchar(10)) like > "2002-%-%"
Pavel
> -----Original Message-----
> From: Viktor Marek [mailto:viktor(zv)mbox.vol(tec)cz]
> Sent: Sunday, February 16, 2003 10:12 PM
> To: Konference Delphi 2000
> Subject: SQL dotaz
>=20
>=20
> Zdravim
>=20
> Z tabulky vyselectim do DBGridu jeden rok
> select * from "Test.dat" datum where cast(datum as varchar(10)) like
> "2002-%-%"
> a potreboval bych jeste ziskat sumu Kc za vyselectene zaznamy.
>=20
> Pokud dam
> Query2.SQL.Clear;
> Query2.SQL.Add('SELECT SUM(Kc) AS KcCelkem FROM "Test.dat"');
> Query2.Open;
> Label1.caption:=3DFormatFloat('# ###
> ###',Query2.FieldByName('KcCelkem').AsInteger) ;
>=20
> Dostanu sumu Kc za celou tabulku.
>=20
> Jedna moznost by byla projit DBGrid a sumu Kc si vyscitat (to=20
> se mi moc
> nezamlouva)
>=20
> Chci se tedy zeptat jak ziskat sumu Kc selectem (neco na=20
> zpusob RecordCount)
>=20
> Diky za radu
>=20
> Viktor Marek
> viktor(zv)mbox.vol(tec)cz
>=20
>=20
>=20
>=20
> ---
> Odchoz=ED zpr=E1va neobsahuje viry.
> Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 13.2.2003
>=20
>=20
Po pripojeni zarizeni na USB Windows poslou nejako
[*] Josef Koke� <kokes(zv)fsid.cvut(tec)cz> - 17.2.2003 10:08:34
Maly doplnujici dotaz:
a nevite prosim o necem, jak Windowsum z programu vnutit, aby si znovu
pripojily USB zarizeni???
(stava se mi, ze USB zarizeni "zamrzne" a zatim ho neumim ozivit jinak, nez
vypnutim/zapnutim pocitace...)
Diky, Kokes
----- Original Message -----
From: "Ladislav Fitz" <ladislav.fitz(zv)kodytek(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, February 17, 2003 9:54 AM
Subject: Re: Po pripojeni zarizeni na USB Windows poslou nejakou Message?> pokud jde o zjisteni zda windowsi pripojoli ci odpojili disk tak o tom
> existuje zprava WM_DEVICECHANGE (= $0219) ale ta je pouzita asi pro
vsechny
> ruzne zarizeni takze je potreba to rozlisit, pokud by byl zajem tak mam
> unitu ktera to resi
>
>
Problem s tstringlist ve NT service
[*] EFG Developer <developer(zv)efg(tec)cz> - 17.2.2003 10:18:51
Zdravim, muze mi nekdo fundovane vysvetlit proc v NT service po pouziti
stringlist.loadfromfile('c:\soubor.txt') dojde k vyjimce? Ostatni metody
tridy se zdaji byt OK (teda jeste krome savetofile)
Dekuji Petr Sikola
Problem s tstringlist ve NT service
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 17.2.2003 10:38:42
> Subject: Problem s tstringlist ve NT service
> Zdravim, muze mi nekdo fundovane vysvetlit proc v NT service
> po pouziti
> stringlist.loadfromfile('c:\soubor.txt') dojde k vyjimce?
> Ostatni metody
> tridy se zdaji byt OK (teda jeste krome savetofile)
Ahoj,
mi se to objevilo ve dvou pripadech.
1. Pri pokusu o pristup na sitovy adresar, kdyz service bezela pod
systemovym uctem.
2. Pokud byl soubor, ze ktereho se melo cist, otevren v jine aplikaci (pri
nacitani se stream otevira s parametry fmOpenRead or fmShareDenyWrite).
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Delphi 7 - bez BDE
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 17.2.2003 10:53:23
Mozna by se dbExpress pro MS SQL nasel na netu. Nase firma ma dat. stroj =
Informix, a protoze dochazelo k problemum s dbExpressem od Borlandu, =
nasla se na netu firma z Ruska, ktera tento dbExpress prodava a je to v =
poradku...
V.
-----Original Message-----
From: Jan Sebel=EDk [mailto:honza(zv)haes(tec)cz]
Sent: Monday, February 17, 2003 9:34 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Delphi 7 - bez BDE
17.2.2003 Ty=B9lic Ji=F8=ED:
> Mame pomerne rozsahlou aplikace v Delphi5 + MS SQL.=20
> Odes=EDlatel: ing. Jan Fiala <jan.fiala(zv)iol(tec)cz>
> A proc nepouzit D5 a ADO ? Pak taky neni nutne BDE
Jasne.
> Tim vyrazenim jsi urcite myslel dbExpress. Pak musis pocitat s tim, ze
> nebude zadna prima editace v GRIDu apod.
No, DBGrid a ostatni DBAware komponenty mohu pouzit v kombinaci
dbExpress + TDataSetProvider + TClientDataSet
Jenze, pokud vim, tak dbExpress do MS SQL nepujde.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Delphi 7 - bez BDE
[*] Ty�lic Ji�� - 17.2.2003 11:12:36
Chtel jsem se zeptat hlavne kvuli tomu, ze kdysi se tu hodne diskutovalo =
o tom, ze BDE je jiz davno mrtve a je treba prejit na neco jineho. Me =
osobne BDE nijak nevadi, vse funguje na 100%, rychlost je uchazejici...
V cele aplikaci pouzivam pouze TDatabase-TQuery-TDataSet...=20
Takze jestli to dobre chapu tak dbExpress je pro MS SQL nepouzitelny a =
zbyva pouze pristup pres ADO.
ADO komponenty jsou tedy soucasti D7? Staci potom pouze nahradit TQuery =
za TADOQuery nebo si to bude vyzadovat kompletni preprogramovani?=20
-----Original Message-----
From: LUKES V=E1clav [mailto:lukes(zv)ans(tec)cz]=20
Sent: Monday, February 17, 2003 10:53 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Delphi 7 - bez BDE
Mozna by se dbExpress pro MS SQL nasel na netu. Nase firma ma dat. stroj =
Informix, a protoze dochazelo k problemum s dbExpressem od Borlandu, =
nasla se na netu firma z Ruska, ktera tento dbExpress prodava a je to v =
poradku... V.
-----Original Message-----
From: Jan Sebel=EDk [mailto:honza(zv)haes(tec)cz]
Sent: Monday, February 17, 2003 9:34 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Delphi 7 - bez BDE
17.2.2003 Ty=B9lic Ji=F8=ED:
> Mame pomerne rozsahlou aplikace v Delphi5 + MS SQL.
> Odes=EDlatel: ing. Jan Fiala <jan.fiala(zv)iol(tec)cz>
> A proc nepouzit D5 a ADO ? Pak taky neni nutne BDE
Jasne.
> Tim vyrazenim jsi urcite myslel dbExpress. Pak musis pocitat s tim, ze =
> nebude zadna prima editace v GRIDu apod.
No, DBGrid a ostatni DBAware komponenty mohu pouzit v kombinaci =
dbExpress + TDataSetProvider + TClientDataSet Jenze, pokud vim, tak =
dbExpress do MS SQL nepujde.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735) =
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Interbase: Pridavani, prohlizeni zaznamu
[*] Dalibor <dalibor(zv)torola(tec)cz> - 17.2.2003 11:12:51
Ahoj,
Muzete mi poradit, jak spravne postupovat pri tomhle zadani?
Mam jednu tabulku na Interbasi. V programu bych chtel data z teto
tabulky prohlizet (vyber dat podle datumu, casu, apod.) a zaroven
doplnovat. Doplnovani by melo byt na zaklade externiho souboru, tak
od 500 do 2000 zaznamu najednou.
A to tak, at me to doplnovani zaznamu nebrzdi program, at muzu
prohlizet v libovolnem okamziku
Chtel bych na to pouzit komponenty primo v Delphi.(Delphi 5 Prof)
Jde mi o to, jake komponenty pouzit, kolik transakci, jak je nastavit,
jakou metodu pouzit pro doplnovani zaznamu at je to nejrychlejsi a
nejpolehlivejsi, pripadne mi to tak trochu vysvetli apod.
V tomhle tom jsem zacatecnik.Jedna se spise o vyukovy priklad
Dekuji
Delphi 7 - bez BDE
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 17.2.2003 11:31:21
> Odes=EDlatel: LUKES V=E1clav <lukes(zv)ans(tec)cz>
> Mozna by se dbExpress pro MS SQL nasel na netu. Nase firma ma dat. =
stroj Informix, a protoze dochazelo k problemum s dbExpressem od =
Borlandu, nasla se na netu firma z Ruska, ktera tento dbExpress prodava =
a je to v poradku...
A mluvime o tomtez?
Nevim o dbExpressu od Borlandu na Informix.
Nehlede na to, ze dbExpress vzniknul jako zatim jedina (krome IBX) =
alternativa databazoveho pripojeni pro CLX klienty bezici pod Linuxem. =
Umim si jen tezko predstavit klienta, ktery bezi na Linuxu a pripojuje =
se na MS SQL. Ale kdo vi...
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
Aplikace+Win95
[*] Jaroslav KUBA <jarda(zv)tresoft(tec)cz> - 17.2.2003 11:39:14
Dobry den
Mame aplikaci ktera je napsana jako jeden exe ma asi 700 tisic radku kodu
a velikost exace je asi 15MBa, z niceho nic nam nejde aplikace zavest
do pameti na Win95, chyba nastala v ramci jedne verze s minimem zmen,
Aplikace se neda spustit pro nedostatek pameti. Ukoncete a blabla
Staci odebrat nejaky moloch, a aplikace bezi, pridam moloch a chyba je na
svete.
Chci se zeptat jake jsou omezeni pro aplikace pro Win95 a Win obecne,
a jakym zpusobem se da tato situace resit, zatim nevime jak rozdelit
aplikaci
do vice balicku nez mame ted.
Testovano na Stanici Win95Sr2 512MB Pentium III 730MHz
Vyvoj Win2K Delphi 6 Pro Up 2
Diky za radu
Jaroslav KUBA
Tresoft s.r.o
+42072409152
Delphi 7 - bez BDE
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 17.2.2003 11:52:32
MTcuMi4yMDAzIEphbiBTZWJlbO1rOg0KPiBObywgREJHcmlkIGEgb3N0YXRuaSBEQkF3YXJlIGtv
bXBvbmVudHkgbW9odSBwb3V6aXQgdiBrb21iaW5hY2kNCj4gZGJFeHByZXNzICsgVERhdGFTZXRQ
cm92aWRlciArIFRDbGllbnREYXRhU2V0DQoNClRvIHNpY2UgcmVzZW5pIGplLCBhbGUuLi4NCg0K
PiBKZW56ZSwgcG9rdWQgdmltLCB0YWsgZGJFeHByZXNzIGRvIE1TIFNRTCBuZXB1amRlLg0KDQpQ
b2t1ZCB2aSwgdGFrIEQ3IG9ic2FodWplIGRyaXZlciBwcm8gZGJFeHByZXNzIGEgTVNTUUwgMjAw
MC4NCg0KLS0gDQpKYW4gRmlhbGENCm1haWx0bzpqYW4uZmlhbGFAaW9sLmN6
Aplikace+Win95
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 17.2.2003 11:56:53
Mozna by pro zacatek stacilo zkompilovat aplikaci s balicky.
A az pak bych se venoval rozdeleni aplikace na balicky. Pokud s tim
nebylo pocitano od zacatku, bude to horsi. je treba aplikaci rozdelit
na nejake funkcni celky a ty udelat v jednotlivych baliccich.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
17.2.2003 Jaroslav KUBA:
> Dobry den
> Mame aplikaci ktera je napsana jako jeden exe ma asi 700 tisic radku kodu
> a velikost exace je asi 15MBa, z niceho nic nam nejde aplikace zavest
> do pameti na Win95, chyba nastala v ramci jedne verze s minimem zmen,
> Aplikace se neda spustit pro nedostatek pameti. Ukoncete a blabla
> Staci odebrat nejaky moloch, a aplikace bezi, pridam moloch a chyba je na
> svete.
> Chci se zeptat jake jsou omezeni pro aplikace pro Win95 a Win obecne,
> a jakym zpusobem se da tato situace resit, zatim nevime jak rozdelit
> aplikaci
> do vice balicku nez mame ted.
Re[2]: Instalace Delphi encryption compedium
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 17.2.2003 12:06:12
Cau Petr,
Sunday, February 16, 2003, 9:03:28 PM, you wrote:
> From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
>> mohl by mi nekdo prosim napsat presny popis jak nainstalovat Delphi
>> Encryption Compedium na Delphi 7 ?
> Uz jsem to psal nekolikrat, tak jeste jednou:> unit RECReg.pas
> exchange in uses clausel "DsgnIntf" with "DesignIntf, DesignEditors"
> unit DECUtil.pas in the initialization section
> InitTestIsOk := CRC32($29524828, GetTestVector, 32) = $9B497502;
> unit Checksum.pas if installed
> procedure TChecksum_CRC.Calc(const Data; DataSize: Integer); assembler;
> asm
> JMP DWord Ptr [EAX].FProc.TMethod.Code
> end;
> HTH, pf
Diky moc to je ono.. Nevis prosimte kde by se dala najit nejaka nova
verze ?... probiha vyvoj. je negde stranka toho projektu ?
S pozdravem
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
Aplikace+Win95
[*] Tomas Cieslar <cieslar(zv)efisyst(tec)com> - 17.2.2003 12:28:46
Dobry den,
mozna to s tim vubec nesouvisi, ale me se podobna vec stavala, kdyz bylo
plny disk a windows nemel misto pro swapovaci soubor. Pokud to ovsem dela na
vice pocitacich, tak je to asi hloupost...
Cieslar
Delphi encryption compedium !!!! problem
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 17.2.2003 12:41:10
Zdravim
omlouvam se ze otravuju. ale narazil jsem na docela dosti divny
problem. Na radu Petra Fejfara jsem nainstaloval Delphi Encryption
Compedium.
pomoci metody THASH_MD5.CalcFile(soubor) jsem dal spocitat MD5 hash
pro soubor. Ale najednou program spadl s hlaskou
Project StreamSaver.exe raised exception classs EFOpenError with
message 'Cannot open file "c:\Mysecure\SS\StreamSaver.dof". Proces
nema pristup k souboru, nebot jej prave vyuziva jiny proces'. Process
stopped. Use Step or Run to continue.
Coz je velice divny
Vypnul jsem antivirak
nemam NTFS
soubor je mozno cist
ale nepomaha to. furt to stejne... Negde bude asi chyba. U me to
doufam nebude. protoze jeste na Delphi 5 mi to fungovalo a to na
stejnym systemu.... Rikal jsem si ze mam chyby v tom mem programu ale
skusil jsem skompilovat znovu tu ukazkovou aplikaci co k DEC davaji a
tam to taky nefungovalo. Nevite negdo cim by to mohlo byt ?
--
Best regards,
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
Vlastnosti jednotlivych telefonickych pripojeni
[*] Jaroslav Br��ek <konference-delphi(zv)dcsystems(tec)cz> - 17.2.2003 13:30:20
Ahoj,
porad nevim jak zjistit %SUB%. Podarilo se mi pomoci Synapse (SynaMisc.pas -
GetIEProxy) zjistit nastaveni "Mistni site", ale s telefonickym pripojenim
nemuzu pohnout. Jedna se mi predevsim o zjisteni nastaveni Proxy. Nevite
nahodou jak to zjistit, popr. pozmenit?
Predem dik.
Bouse
Lze nejak nastavit MainForm
[*] <js-delphi(zv)quick(tec)cz> - 17.2.2003 13:52:45
Ahoj.
Mam dotaz ohledne viz %subject%. Pri inicializaci
programu se vytvari jednotlive formy.
Dam priklad, ze mam hlavni formular Form1, druhy
from napr. Nastaveni, a treti je datovy modul
FB_DM.
Mam promennou (typu record) "nastav", ktera je
deklarovana v casti Public tridy TNastaveni -
tudiz se za behu aplikace na ni odkazuji pomoci
Nastaveni.nastav.xxxx
Problem. K tomu, aby vse bezelo jak ma, potrebuju
pred inicializaci (mnou chteneho) hlavniho formu,
potrebuju nacist nastaveni aplikace. K tomu
potrebuju, aby se nejdriv vytvoril formular
Nastaveni. Jenze kdyz to takhle udelam, stane se
automaticky MainForm. property
Application.MainForm je read only.
Co s tim? Lze nejak "sachovat" s mainform?
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
Lze nejak nastavit MainForm
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 17.2.2003 13:59:52
Udelej si nacteni nastaveni a jeho uchovani do zvlastni unity.
Pokud si dasd nacteni nastaveni v Inicialization te unity, provede se
automaticky pri jejimvytvoreni.
Na tu unitu se muzes odkazovat odkudkoliv a nejsi vazan existenci
nejakeho formulare.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
17.2.2003 js-delphi(zv)quick(tec)cz:
> Ahoj.
> Mam dotaz ohledne viz %subject%. Pri inicializaci
> programu se vytvari jednotlive formy.
> Dam priklad, ze mam hlavni formular Form1, druhy
> from napr. Nastaveni, a treti je datovy modul
> FB_DM.
> Mam promennou (typu record) "nastav", ktera je
> deklarovana v casti Public tridy TNastaveni -
> tudiz se za behu aplikace na ni odkazuji pomoci
> Nastaveni.nastav.xxxx
> Problem. K tomu, aby vse bezelo jak ma, potrebuju
> pred inicializaci (mnou chteneho) hlavniho formu,
> potrebuju nacist nastaveni aplikace. K tomu
> potrebuju, aby se nejdriv vytvoril formular
> Nastaveni. Jenze kdyz to takhle udelam, stane se
> automaticky MainForm. property
> Application.MainForm je read only.
Aplikace+Win95
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.2.2003 14:58:54
From: "Jaroslav KUBA" <jarda(zv)tresoft(tec)cz>
> Mame aplikaci ktera je napsana jako jeden exe ma asi 700 tisic radku kodu
> a velikost exace je asi 15MBa, z niceho nic nam nejde aplikace zavest
> do pameti na Win95, chyba nastala v ramci jedne verze s minimem zmen,
Mozne priciny:
- nedostatek systemovych prostredku (nejcasteji GDI). Nutno zmerit "Mericem
prostredku" ve Windows 95
- http://support.microsoft.com/default.aspx?scid=KB;en-us;q182819
> Chci se zeptat jake jsou omezeni pro aplikace pro Win95 a Win obecne,
Windows Playstation (95 / 98 / Me) maji mnoho ruznych omezeni.
Petr Vones
Download cez ShellAPI
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.2.2003 15:04:09
From: <vito(zv)centrum(tec)cz>
> prosim o radu, ako stiahnem binarny subor z webu, ked viem jeho
> presnu adresu cez ShellAPI do konkretneho adresara, ktory si vyberiem
Pres ShellAPI asi tezko. Spis treba funkci URLDownloadToFile (Urlmon). Mozna
bude ale lepsi pouzit Indy nebo Synapsi.
Petr Vones
Lze nejak nastavit MainForm
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 17.2.2003 15:06:57
> Mam dotaz ohledne viz %subject%. Pri inicializaci
> programu se vytvari jednotlive formy.
> Dam priklad, ze mam hlavni formular Form1, druhy
> from napr. Nastaveni, a treti je datovy modul
> FB_DM.
> Mam promennou (typu record) "nastav", ktera je
> deklarovana v casti Public tridy TNastaveni -
> tudiz se za behu aplikace na ni odkazuji pomoci
> Nastaveni.nastav.xxxx
> potrebuju nacist nastaveni aplikace. K tomu
> potrebuju, aby se nejdriv vytvoril formular
> Nastaveni.
Ahoj,
Jedna z moznosti je, nastaveni aplikace nenacitat jiz v OnCreate main formu, ale az
pozdeji - napr. v OnShow main formu.
Dale bych zvazil, zda promennou "nastav" je nutne svazovat s formularem
TNastaveni, kdyz s nim asi primo nesouvisi - nemela by byt spise na main formu
nebo na datamodulu? Vyhnul by ses tak nutnosti zakladat form Nastaveni v
pripadech, kdy ho nepotrebujes - teady jako OnCreate. Nemusel by byt autocreate,
ale vytvaret se az pri pozadavku na jeho pouziti.
Jinak souhlasim s tim, ze nacteni konfigurace by mela byt zalezitost bud samostatne
unity (viz dalsi maily na toto tema), nebo by melo jit o metody main formu. V unite s
formularem TNastaveni by mely byt pouze veci, ktere slouzi ke zmene nastaveni
pomoci formulare TNastaveni, tady pokud jsem spravne pochopil stavbu Tve
aplikace.
David Lebeda
TreeView - dynamicka tvorba uzlu
[*] Marek Hradil <marekhr(zv)benefitcz(tec)cz> - 17.2.2003 15:22:04
Zdravim,
Chci zobrazovat data z DB ve stromove strukture. Nechci natahovat
vsechna do TreeView, ale jen prvni level a dynamicky dotahovat pri
expanzi uzlu dalsi potrebna data. Jak donutit TreeView aby zobrazoval
ikonku pro rozbaleni(+), idyz zatim nema zadne child uzly (teprve budou
dotazeny)? Reseni pouze pres standardni komponenty.
Dekuji Marek Hradil
TreeView - dynamicka tvorba uzlu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 17.2.2003 15:27:36
> Chci zobrazovat data z DB ve stromove strukture.
> Nechci natahovat vsechna do TreeView, ale jen
> prvni level a dynamicky dotahovat pri expanzi
> uzlu dalsi potrebna data. Jak donutit TreeView
> aby zobrazoval ikonku pro rozbaleni(+), idyz
> zatim nema zadne child uzly (teprve budou
> dotazeny)? Reseni pouze pres standardni
> komponenty.
>
> Dekuji Marek Hradil
TTreeNode.HasChildren
pripadne skus TVirtualTreeView na www.delphi-gems.com, co sa v niektorych
kruhoch uz tiez povazuje za standardny komponent <g>.
HTH
TOndrej
Reset WinXP
[*] Ladislav Ulrich <ulrichl(zv)spsfm(tec)cz> - 17.2.2003 15:37:57
Chtel jsem si vyzkouset v DELPHI 7 funkci pro vypnuti/reset PC. Z Win98 mi
to funguje, ale ve WinXP nikoliv. Zde jsem schopen provest pouze odhlaseni.
Prosim, muzete mi poradit?
Diky
Ulrich
Lze nejak nastavit MainForm
[*] <js-delphi(zv)quick(tec)cz> - 17.2.2003 16:18:12
Ahoj.
Dekuji za napady s resenim problemu.
1)musim sam sebe pochvalit, protoze jsem
postupoval presne, jak mi tady doporucujete
2)musim se omluvit, protoze jsem dotaz asi tak
zamotal, ze jsem dostal odpovedi na neco jineho -
je to mam chyba
Popsal jsem - mne - z posledni doby znamy
problem, kdy jsem uvazoval o tom, zda jde nejakym
zpusobem menit Applikation.MainForm.
Tot vse. Jde to nebo ne?
Jeste jednou se omlouvam, priste se nad formulaci
dotazu vice zamyslim.
Ahoj, Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
Lze nejak nastavit MainForm
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.2.2003 16:23:19
From: <js-delphi(zv)quick(tec)cz>
> Popsal jsem - mne - z posledni doby znamy
> problem, kdy jsem uvazoval o tom, zda jde nejakym
> zpusobem menit Applikation.MainForm.
> Tot vse. Jde to nebo ne?
Appli*c*ation.MainForm je prvni vytvoreny formular v projektu. Nevim co a proc
na tom menit.
Petr Vones
Lze nejak nastavit MainForm
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 17.2.2003 16:33:33
MainForm je prvni formular, ktery si aplikace vytvori=20
Application.CreateForm...
viz soubor .dpr
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
----------
> Odes=EDlatel: js-delphi(zv)quick(tec)cz
> Komu: konference delphi <delphi-l(zv)clexpert(tec)cz>
> P=F8edm=ECt: Lze nejak nastavit MainForm
> Datum: 17. =FAnora 2003 13:52
>=20
> Ahoj.
> Mam dotaz ohledne viz %subject%. Pri inicializaci=20
> programu se vytvari jednotlive formy.=20
> Dam priklad, ze mam hlavni formular Form1, druhy=20
> from napr. Nastaveni, a treti je datovy modul=20
> FB_DM.
> Mam promennou (typu record) "nastav", ktera je=20
> deklarovana v casti Public tridy TNastaveni -=20
> tudiz se za behu aplikace na ni odkazuji pomoci=20
> Nastaveni.nastav.xxxx
> Problem. K tomu, aby vse bezelo jak ma, potrebuju=20
> pred inicializaci (mnou chteneho) hlavniho formu,=20
> potrebuju nacist nastaveni aplikace. K tomu=20
> potrebuju, aby se nejdriv vytvoril formular=20
> Nastaveni. Jenze kdyz to takhle udelam, stane se=20
> automaticky MainForm. property=20
> Application.MainForm je read only.
>=20
> Co s tim? Lze nejak "sachovat" s mainform?
>=20
> --------------------------------------------------
> Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
> D6Prof+SP2; WinNT
> programator amater
dblclick ve stringgridu
[*] Ivomir <ivomir(zv)seznam(tec)cz> - 17.2.2003 18:33:04
(D5)
mam klasickej string grid. je mozny na nej nanest event na dblclick
tak abych v te fci mel radek a sloupec dblclicknutyho cellu? ....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 777/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
Reset WinXP
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 17.2.2003 19:52:35
Asi pred mesiacom som tu ukazoval priklad. Pozri do archovu. Ak by si to
nenasiel. Ozvi sa sukromne.
Peter Ondras
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
>: Behalf Of Ladislav Ulrich
>: Sent: Monday, February 17, 2003 3:38 PM
>: To: delphi-l(zv)clexpert(tec)cz
>: Subject: Reset WinXP
>:
>: Chtel jsem si vyzkouset v DELPHI 7 funkci pro vypnuti/reset PC. Z
Win98
>: mi
>: to funguje, ale ve WinXP nikoliv. Zde jsem schopen provest pouze
>: odhlaseni.
>: Prosim, muzete mi poradit?
>:
>: Diky
>:
>: Ulrich
>:
dblclick ve stringgridu
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 17.2.2003 20:25:15
From: "Ivomir" <ivomir(zv)seznam(tec)cz>
> mam klasickej string grid. je mozny na nej nanest
> event na dblclick
> tak abych v te fci mel radek a sloupec
> dblclicknutyho cellu?
Mozny to je, jen tomu budes muset trochu pomoci napr. tak, ze si odchytis
OnMouseDown, zapamatujes kursor
mysi a v handleru OnDblClick() si souradnice kursoru prepoctes pomoci
MouseToCell() na grid.
HTH, pf
Lze nejak nastavit MainForm
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 17.2.2003 20:25:00
17.2.2003 Petr Vones:
> From: <js-delphi(zv)quick(tec)cz>
>> Popsal jsem - mne - z posledni doby znamy
>> problem, kdy jsem uvazoval o tom, zda jde nejakym
>> zpusobem menit Applikation.MainForm.
>> Tot vse. Jde to nebo ne?
> Appli*c*ation.MainForm je prvni vytvoreny formular v projektu. Nevim co a proc
> na tom menit.
Urcite jde udelat treba rozhodovani primo v DPR a vytvorit bud jeden
nebo druh form jako hlavni. Ale skutecne je otazka, jestli by to bylo
k necemu dobre.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
dblclick ve stringgridu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 17.2.2003 20:28:00
A nestaci ti si to v OnDBLClick zjisit ?
Radek := TStringGrid(Sender).Row;
Sloupec := TStringGrid(Sender).Col;
Jinak si samozrejme muzes napsat potomka TStringGrid s vlastni
obsluhou udalosti OnDblClick, ktera ti to vrati...
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
17.2.2003 Ivomir:
> (D5)
> mam klasickej string grid. je mozny na nej nanest event na dblclick
> tak abych v te fci mel radek a sloupec dblclicknutyho cellu?
Delphi encryption compedium !!!! problem
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 17.2.2003 20:50:27
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> pomoci metody THASH_MD5.CalcFile(soubor) jsem dal spocitat MD5 hash
> pro soubor. Ale najednou program spadl s hlaskou
[...]
> skusil jsem skompilovat znovu tu ukazkovou aplikaci co k DEC davaji a
> tam to taky nefungovalo. Nevite negdo cim by to mohlo byt ?
No, ja bych to v DEC nehledal, protoze me to ten hash normalne pocita
a to jak pod D6, kde se poprve musely udelat ty 3 zmeny, tak i pod D7.
HTH, pf
Re[2]: Instalace Delphi encryption compedium
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 17.2.2003 20:56:27
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> Nevis prosimte kde by se dala najit nejaka nova
> verze ?... probiha vyvoj. je negde stranka toho projektu ?
Co vim primo od autora, tak uz pred lety psal, ze mu tri drobne upravy
nestoji za to, aby vydaval oficialni release pro D6.
Myslim, ze se na to muzes zeptat autora primo
mailto:HaReddmann(zv)T-Online.de
HTH, pf
OT: Instalace Delphi 7 Studio
[*] Tomas Danek <conehead(zv)centrum(tec)cz> - 17.2.2003 21:15:17
Dobry den,
Mam problem s instalaci Delphi 7 Professional. Behem instalace zadam seriove
cislo a klic z obalu CD, vse probehne v poradku a instalace se ukonci. Po
dokonceni instalace spustim Delphi a objevi se prazdny dialog s titulkem
'Register' a jednim tlacitkem 'Exit'. Pokud spustim registraci (D7Reg), po
zadani ser. cisla a klice mi napise, ze toto cislo neni platne pro tuto
verzi software. Nesetkal jste se nekdo s obdobnym problemem? Vubec nevim, co
s tim mam delat.
Podminky:
W2000 prof.
predchozi instalace+odinstalace Delphi 6 Professional
predchozi instalace+odinstalace Delphi 7 Trial
Diky,
Tomas Danek
Mesic z now
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 17.2.2003 21:30:49
Zdravim
Neexistuje nejaka funkce(unita) ktera by mi vratila z "now" zvlast mesic =
a
rok tak jako nize uvedena procedura vraci den v tydnu?
procedure TForm1.Button1Click(Sender: TObject);
var
days: array[1..7] of string;
begin
days[1] :=3D 'Ned=ECle';
days[2] :=3D 'Pond=ECl=ED';
days[3] :=3D '=DAter=FD';
days[4] :=3D 'St=F8eda';
days[5] :=3D '=C8tvrtek';
days[6] :=3D 'P=E1tek';
days[7] :=3D 'Sobota';
label1.caption:=3Ddays[DayOfWeek(now)] + ' ' +DateToStr(now);
end;
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 13.1.2003
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 2.1.2003
Memo a prazdne znaky
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 17.2.2003 21:30:45
Zdravim
Pokud uzivatel zapisuje poznamku do Mema a "ne=B9et=F8=ED Entrem" je pozn=
amka
delsi o x dalsich radku mezer.
Existuje moznost, jak pred ulozenim obsahu Mema odriznout prazdne znaky z=
a
poslednim smysluplnym znakem?
(je mozna varianta i pro DBRichEdit)
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 13.2.2003
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 2.1.2003
Instalace Delphi 7 Studio
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.2.2003 21:44:20
From: "Tomas Danek" <conehead(zv)centrum(tec)cz>
> 'Register' a jednim tlacitkem 'Exit'. Pokud spustim registraci (D7Reg), po
> zadani ser. cisla a klice mi napise, ze toto cislo neni platne pro tuto
> verzi software. Nesetkal jste se nekdo s obdobnym problemem? Vubec nevim, co
Pokud vim, tak se snad staly pripady, ze si nekdo zaregistroval nelegalni
kopii pomoci vygenerovaneho klice nejakym generatorem. Doslo tak k tomu, ze se
povedlo vygenerovat klic nekoho, kdo si pak chtel zaregistrovat svoje koupene
Delphi a mel uz smulu. Ale muze to byt i v necem jinem. Ta registracni hruza
mozna nerozpoznala nastaveni proxy serveru, takze se to nemuze ani pripojit.
> predchozi instalace+odinstalace Delphi 7 Trial
To by mohlo byt mozna ono. Podivej se jestli mas adresar
"Documents and Settings\<user>\.borland" a v nem nejake dva sobubory. Jestlize
ano tak jej smaz a spust znovu registraci. Pokud ani to nepomuze tak se obrat
na Borland.
Petr Vones
Mesic z now
[*] Peter Laurinc <Peter.Laurinc(zv)ibaware.sk> - 17.2.2003 21:46:02
Myslim ze to je YearOf() a MonthOf() z unitu DateUtils
-----Original Message-----
From: Viktor Marek [mailto:viktor(zv)mbox.vol(tec)cz]
Sent: Monday, February 17, 2003 9:31 PM
To: Konference Delphi 2000
Subject: Mesic z now
Zdravim
Neexistuje nejaka funkce(unita) ktera by mi vratila z "now" zvlast mesic =
a
rok tak jako nize uvedena procedura vraci den v tydnu?
procedure TForm1.Button1Click(Sender: TObject);
var
days: array[1..7] of string;
begin
days[1] :=3D 'Ned=ECle';
days[2] :=3D 'Pond=ECl=ED';
days[3] :=3D '=DAter=FD';
days[4] :=3D 'St=F8eda';
days[5] :=3D '=C8tvrtek';
days[6] :=3D 'P=E1tek';
days[7] :=3D 'Sobota';
label1.caption:=3Ddays[DayOfWeek(now)] + ' ' +DateToStr(now);
end;
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 13.1.2003
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 2.1.2003
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.449 / Virus Database: 251 - Release Date: 27. 1. 2003
=20
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.449 / Virus Database: 251 - Release Date: 27. 1. 2003
=20
Mesic z now
[*] Ing. Keder Vladimir <vkeder(zv)iol.sk> - 17.2.2003 22:03:11
> Neexistuje nejaka funkce(unita) ktera by mi vratila z "now" zvlast mesic a
> rok
Napr. takto :
function MonthOf(const AValue: TDateTime): Word; // vracia mesiac
function YearOf(const AValue: TDateTime): Word; //vracia rok
Vlado
Instalace Delphi 7 Studio
[*] Tomas Danek <conehead(zv)centrum(tec)cz> - 17.2.2003 22:19:40
Diky, bylo to tim, smaznul jsem ty dva soubory a jde to
> > predchozi instalace+odinstalace Delphi 7 Trial
>
> To by mohlo byt mozna ono. Podivej se jestli mas adresar
> "Documents and Settings\<user>\.borland" a v nem nejake dva sobubory.
Jestlize
> ano tak jej smaz a spust znovu registraci. Pokud ani to nepomuze tak se
obrat
> na Borland.
>
> Petr Vones
>
>
Interbase a TIBTransaction. Jak na refresh
[*] Petr Varga <djvar(zv)post(tec)cz> - 17.2.2003 23:02:25
Ahoj
Pou=BE=EDv=E1m komponenty z palety interbase.. Jsem napojeny na
lokaln=ED datab=E1z=ED...Ale pozd=ECji se ur=E8it=EC bude pracovat s datab=
=E1z=ED
na s=EDti.. No pot=F8eboval bych poradit jak provest refresh? Mysl=EDm
ten podobn=FD jako u BDE. Prost=EC kdy=BE d=E1m refresh tak st=E1hnu ze
serveru aktu=E1ln=ED data.. N=ECjak mi to nefunguje..=20
Kdy=BE ve stejn=E9 aplikaci akor=E1d v jin=E9m formu p=F8id=E1m polo=BEku n=
ebo
ji pozm=ECn=EDm a d=E1m commitretaining, tak se polo=BEka sice p=F8id=E1 do
souboru datab=E1ze, ale v druh=E9m okn=EC kde jsem napojen=FD na tu
stejnou DB se mi nov=E1 nebo pozm=ECn=ECn=E1 polo=BEka neuk=E1=BEe.. Nev=ED=
te jak
to spr=E1vn=EC refreshnout?=20
D=EDky p=F8edem za ka=BEd=E9 nakopnut=ED =20
Petr
Memo a prazdne znaky
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 17.2.2003 23:15:54
U2Ftb3pyZWptZSBqZS4NCjEuIG5haml0IHBvc2xlZG5pIHJhZGVrIHNlICJzbXlzbHVwbG55bSB6
bmFrZW0iDQoyLiBzbWF6YXQgdnNlY2hueSByYWRreSB6YSB0aW0gcG9zbGVkbmltIG5hbGV6ZW55
bSByYWRrZW0NCg0KSyByYWRrdW0gc2UgcHJpdHVwdWplIHBvbW9jaSBNZW1vLkxpbmVzDQpNYXph
dCAib2Qga29uY2UiDQpQb2t1ZCByYWRlayBvYnNhaHVqZSBwb3V6ZSBDcitMZiwgamUgcHJhemRu
eSwgVGFremUNCk1lbW8uTGluZXMuU3RyaW5nc1tpXSA9ICcnOw0KDQotLSANCkphbiBGaWFsYQ0K
bWFpbHRvOmphbi5maWFsYUBpb2wuY3oNCg0KMTcuMi4yMDAzIFZpa3RvciBNYXJlazoNCj4gUG9r
dWQgdXppdmF0ZWwgemFwaXN1amUgcG96bmFta3UgZG8gTWVtYSBhICJuZblldPjtIEVudHJlbSIg
amUgcG96bmFta2ENCj4gZGVsc2kgbyB4IGRhbHNpY2ggcmFka3UgbWV6ZXIuDQo+IEV4aXN0dWpl
IG1vem5vc3QsIGphayBwcmVkIHVsb3plbmltIG9ic2FodSBNZW1hIG9kcml6bm91dCBwcmF6ZG5l
IHpuYWt5IHphDQo+IHBvc2xlZG5pbSBzbXlzbHVwbG55bSB6bmFrZW0/DQo+IChqZSBtb3puYSB2
YXJpYW50YSBpIHBybyBEQlJpY2hFZGl0KQ==
Interbase a TIBTransaction. Jak na refresh
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 18.2.2003 05:43:58
Zalezi na tom, jake komponenty pouzivas.
TIBTable (neni to nejvhodnejsi komponenta), myslim, ten Refresh provede.
TIBDataSet (to je vhodna komponenta) provede Refresh jenom na aktualnim =
radku.
Jeslize chci "opravdicky" refresh, musim udelat Close/Open =
(DisableControls, Locate, EnableControls, ...).
TIBQuery z hlavy nevim.
Samozrejme transakce musi byt read-commited.=20
Transakce snapshot nevidi zadne zmeny, dokud neni ukoncena.
Vubec to nesouvisi s tim, jestli je databaze lokalni nebo vzdalena.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
----------
> Odes=EDlatel: Petr Varga <djvar(zv)post(tec)cz>
> Komu: delphi-l(zv)clexpert(tec)cz
> P=F8edm=ECt: Interbase a TIBTransaction. Jak na refresh
> Datum: 17. =FAnora 2003 23:02
>=20
> Ahoj
> Pou=BE=EDv=E1m komponenty z palety interbase.. Jsem napojeny na
> lokaln=ED datab=E1z=ED...Ale pozd=ECji se ur=E8it=EC bude pracovat s =
datab=E1z=ED
> na s=EDti.. No pot=F8eboval bych poradit jak provest refresh? Mysl=EDm
> ten podobn=FD jako u BDE. Prost=EC kdy=BE d=E1m refresh tak st=E1hnu =
ze
> serveru aktu=E1ln=ED data.. N=ECjak mi to nefunguje..=20
> Kdy=BE ve stejn=E9 aplikaci akor=E1d v jin=E9m formu p=F8id=E1m =
polo=BEku nebo
> ji pozm=ECn=EDm a d=E1m commitretaining, tak se polo=BEka sice =
p=F8id=E1 do
> souboru datab=E1ze, ale v druh=E9m okn=EC kde jsem napojen=FD na tu
> stejnou DB se mi nov=E1 nebo pozm=ECn=ECn=E1 polo=BEka neuk=E1=BEe.. =
Nev=EDte jak
> to spr=E1vn=EC refreshnout?=20
>=20
> D=EDky p=F8edem za ka=BEd=E9 nakopnut=ED =20
> Petr
Instalace Delphi 7 Studio
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 18.2.2003 06:30:40
Po kliknuti na register potom odklikni (asi NEXT) dalsie (myslim ze 2)
okna. V poslednom okne mas moznost sa bud zaregistrovat (on-line
registracia na i-nete) alebo vybrat moznost registrovat neskor.
Peter Ondras
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
>: Behalf Of Tomas Danek
>: Sent: Monday, February 17, 2003 9:15 PM
>: To: delphi-l(zv)clexpert(tec)cz
>: Subject: OT: Instalace Delphi 7 Studio
>:
>: Dobry den,
>:
>: Mam problem s instalaci Delphi 7 Professional. Behem instalace zadam
>: seriove
>: cislo a klic z obalu CD, vse probehne v poradku a instalace se
ukonci. Po
>: dokonceni instalace spustim Delphi a objevi se prazdny dialog s
titulkem
>: 'Register' a jednim tlacitkem 'Exit'. Pokud spustim registraci
(D7Reg),
>: po
>: zadani ser. cisla a klice mi napise, ze toto cislo neni platne pro
tuto
>: verzi software. Nesetkal jste se nekdo s obdobnym problemem? Vubec
nevim,
>: co
>: s tim mam delat.
>:
>: Podminky:
>: W2000 prof.
>: predchozi instalace+odinstalace Delphi 6 Professional
>: predchozi instalace+odinstalace Delphi 7 Trial
>:
>: Diky,
>: Tomas Danek
Mesic z now
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.2.2003 07:29:30
> Neexistuje nejaka funkce(unita) ktera by mi vratila z "now" zvlast
> mesic a rok
Ahoj,
krome fci uvedenych v ostatnich mailech se muzes zkusit podivat
i na DecodeDate.
David Lebeda
WinCGI a IIS4.0 - podruhe
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.2.2003 07:32:56
Ahoj,
opravdu by nekdo nevedel aspon nejake nakopnuti k nasledujicimu?
Nevi nekdo, jak IIS server pozna, jestli EXE je aplikace CGI nebo
WinCGI a
tudiz jak se maji predavat parametry,pozadavek a odpoved?
Dotaz vychazi ze zkusenosti, ze mnou vytvorena CGI aplikace beha, ale
(z
duvodu vykonu) radeji bych pouzival WinCGI, ktera mi pod IIS
vygeneruje
nesrozumitelny exception. Rady typu "prejdi na ISAPI" apod. jsou pro mne
nepouzitelne.
Dik za jakykoli namet.
David Lebeda
TTable a sortovani
[*] Rumcajs-konfera <konfera(zv)rumcajs(tec)com> - 18.2.2003 07:41:21
Servus po ranu,
mam dotaz ohledne komponenty TTable. Pomoci tehle komponenty oteviram DBF
tabulku a zobrazuju ji na TDBGridu. Da se najak donutit TTable nebo TDBGr=
id,
aby serazovaly podle daneho sloupce?
Lukas "Rumcajs" Weiss
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 13.2.2003
WinCGI a IIS4.0 - podruhe
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 18.2.2003 07:51:38
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
> Nevi nekdo, jak IIS server pozna, jestli EXE je aplikace CGI nebo
> WinCGI a tudiz jak se maji predavat parametry,pozadavek a odpoved?
Podivej se sem, treba ti to pomuze:
http://www.futuredesigners.com/level3/wpvb/appc.htm
HTH, pf
TTable a sortovani
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 18.2.2003 08:18:46
TTable ma property IndexName. Kdyz si nastavis prislusny index, tabulka =
se
seradi a projevi se to i opticky v tom gridu.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
mam dotaz ohledne komponenty TTable. Pomoci tehle komponenty
oteviram DBF
tabulku a zobrazuju ji na TDBGridu. Da se najak donutit TTable nebo
TDBGrid,
aby serazovaly podle daneho sloupce?Image a zabavny Visible
[*] Jaroslav Koh�k <jaroslav.kohak(zv)dites(tec)cz> - 18.2.2003 08:20:43
A nemuzes si ten TImage vytvorit az za behu - vubec ho na form v design =
rezimu necpat?
V Builderu:
TImage *MyImg;
MyImg =3D new TImage;
Tymi
-----Original Message-----
From: Roman [mailto:sw.maurice(zv)seznam(tec)cz]
Sent: Monday, February 17, 2003 12:26 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Image a zabavny Visible
Ahoj.
Potrebuju nacist nejaky obrazek (JPG,BMP,WMF,GIF,...) pomoci =
LoadFromFile
nejlepe do neceho, co nebude videt. Pak z toho co jsem nacetl chci =
vytvorit
JPG, zkomprimovat ho a ukazat v TImage, jak to bude s takovou kompresi
vypadat.
Mam nasledujici kod:
jpg:=3DTJpegImage.Create;
m:=3DTMemoryStream.Create;
if Obrazek.Picture.Graphic=3Dnil then
Obrazek.Picture.Graphic:=3DTJPEGImage.Create;
try
jpg.CompressionQuality:=3DKval.Value;
jpg.Assign(FOriginal.Picture.Graphic);
jpg.Compress;
jpg.savetostream(m);
m.Position:=3D0;
Obrazek.Picture.Graphic.LoadFromStream(m);
finally
m.Free;
jpg.Free;
end;
Obrazek a FOriginal jsou TImage umistene na formu. Pokud FOriginal =
nastavim
Visible:=3Dfalse nebo ho jen umistim pod nejakou komponentu tak, ze =
neni
videt, skonci vyse uvedeny kod z chybou "JPEG error #41"!
Pokud jako FOriginal pouziju TPicture, skoncim se stejnou chybou.
Po dlouhem laborovani mam jedine funkci reseni s TImage, ale ten musi =
byt
Visible a nesmi byt za nicim schovany. Je nejake reseni, jak nacist
nejaky obrazek nekam, kde nebude videt a vytvorit z nej JPEG?
Dik,
Roman
TTable a sortovani
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.2.2003 08:24:45
Da. Tim, ze si do tabulky pridas index a aktivujes jej v TTable
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
18.2.2003 Rumcajs-konfera:
> Servus po ranu,
> mam dotaz ohledne komponenty TTable. Pomoci tehle komponenty oteviram DBF
> tabulku a zobrazuju ji na TDBGridu. Da se najak donutit TTable nebo TDBGrid,
> aby serazovaly podle daneho sloupce?
> Lukas "Rumcajs" Weiss
TTable a sortovani
[*] Rumcajs-konfera <konfera(zv)rumcajs(tec)com> - 18.2.2003 08:46:54
A bude to fungovat, i kdyz ten index nebyl definovan pri vytvoreni toho
souboru?
Lukas "Rumcajs" Weiss
-------------
TTable ma property IndexName. Kdyz si nastavis prislusny index, tabulka s=
e
seradi a projevi se to i opticky v tom gridu.
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 13.2.2003
IB/FB - pocet pripojenych uzivatelu
[*] <js-delphi(zv)quick(tec)cz> - 18.2.2003 08:46:50
Ahoj.
Da se nejakym zpusobem zjistit pocet prihlasenych
uzivatelu popr. pocet transakci? (radsi bych ty
uzivatele) myslim neco jako secist pocet
transakci pro konkretniho uzivatele if dalsi
transakce then opakuj else mam pocet aktivnich
uzivatelu pracujicich s databazi.
Jde to nejak?
Diky, Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
Interbase a TIBTransaction. Jak na refresh
[*] Marek Spisak <spishark(zv)post(tec)cz> - 18.2.2003 08:48:32
TIBQuery je na tom stejne - Close/Open (pripadne ta dalsi nezbytna rezie=20
s disablovanim, locate, enabling controls zpatky). Pokud pouzijes=20
Commit misto ComitRetaining, tak musis jeste StartTransaction (metoda=20
TIBTransaction). Pokud provadis vetsi pocet UPDATE nebo INSERT operaci,=20
doporucuji Commit po nekolika stech takovychto operaci, stava se obcas,=20
ze pokud pouzivas pouze CommitRetaining tak to ta transakce nejak=20
nerozchodi a stvori Exception.
Marek
Jan Sebel=EDk wrote:
> Zalezi na tom, jake komponenty pouzivas.
> TIBTable (neni to nejvhodnejsi komponenta), myslim, ten Refresh provede.
> TIBDataSet (to je vhodna komponenta) provede Refresh jenom na aktualnim=
radku.
> Jeslize chci "opravdicky" refresh, musim udelat Close/Open (DisableCont=
rols, Locate, EnableControls, ...).
> TIBQuery z hlavy nevim.
>=20
> Samozrejme transakce musi byt read-commited.=20
> Transakce snapshot nevidi zadne zmeny, dokud neni ukoncena.
>=20
> Vubec to nesouvisi s tim, jestli je databaze lokalni nebo vzdalena.
>=20
> Honza
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> =3D HAES - RNDr. Jan Sebelik
> =3D http://www.haes(tec)cz
> =3D Skolici a konzultacni stredisko pro Delphi a Win32
> =3D Vojtiskova 206
> =3D 507 81 Lazne Belohrad
> =3D tel. 493 792 931 (mobil 776 347735)
> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
> ----------
>=20
>>Odes=EDlatel: Petr Varga <djvar(zv)post(tec)cz>
>>Komu: delphi-l(zv)clexpert(tec)cz
>>P=F8edm=ECt: Interbase a TIBTransaction. Jak na refresh
>>Datum: 17. =FAnora 2003 23:02
>>
>>Ahoj
>>Pou=BE=EDv=E1m komponenty z palety interbase.. Jsem napojeny na
>>lokaln=ED datab=E1z=ED...Ale pozd=ECji se ur=E8it=EC bude pracovat s da=
tab=E1z=ED
>>na s=EDti.. No pot=F8eboval bych poradit jak provest refresh? Mysl=EDm
>>ten podobn=FD jako u BDE. Prost=EC kdy=BE d=E1m refresh tak st=E1hnu ze
>>serveru aktu=E1ln=ED data.. N=ECjak mi to nefunguje..=20
>>Kdy=BE ve stejn=E9 aplikaci akor=E1d v jin=E9m formu p=F8id=E1m polo=BE=
ku nebo
>>ji pozm=ECn=EDm a d=E1m commitretaining, tak se polo=BEka sice p=F8id=E1=
do
>>souboru datab=E1ze, ale v druh=E9m okn=EC kde jsem napojen=FD na tu
>>stejnou DB se mi nov=E1 nebo pozm=ECn=ECn=E1 polo=BEka neuk=E1=BEe.. Ne=
v=EDte jak
>>to spr=E1vn=EC refreshnout?=20
>>
>> D=EDky p=F8edem za ka=BEd=E9 nakopnut=ED =20
>> Petr
>=20
>=20
>=20
TTable a sortovani
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 18.2.2003 08:54:16
> Odes=EDlatel: Petr Brant <brant(zv)dcomm(tec)cz>
> TTable ma property IndexName. Kdyz si nastavis prislusny index, =
tabulka se
> seradi a projevi se to i opticky v tom gridu.
Urcite, ale ja radsi pouzivam IndexFieldNames, protoze si nemusim =
pamatovat jmeno indexu a setrideni vyjadrim explicitne jako posloupnost =
polozek, podle kterych chci tridit.
Nejaky odpovidajici index samozrejme musi existovat.
DBGrid.OnTitleClick
try
Table.IndexFieldNames:=3DColumn.FieldName; //nebo tak neco
except
... nelze
end;
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
TTable a sortovani
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.2.2003 08:57:32
18.2.2003 Rumcajs-konfera:
>> TTable ma property IndexName. Kdyz si nastavis prislusny index, tabulka se
>> seradi a projevi se to i opticky v tom gridu.
> A bude to fungovat, i kdyz ten index nebyl definovan pri vytvoreni toho
> souboru?
Nebude. Ten index musis treba vytvorit, to znamena (vetsinou) mit
tabulku otevrenou excluzivne a vznika fyzicky indexovy soubor
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
TTable a sortovani
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 18.2.2003 09:00:22
To samozrejme nebude. Nevim, jestli to DBF podporuje, ale index se da
vytvorit i za behu. Zde je kod (tabulka Paradox):
program Upgstick;
{$APPTYPE CONSOLE}
uses
SysUtils, dbTables, ITRKernel, controls, forms,db;
const CStickName =3D 'Stick.DB';
var StickTab: TTable;
Err: string;
begin
// Insert user code here
writeln ('**** Upgrade STICK.DB table structure ****');
writeln;
if FileExists(CStickName) then
begin
StickTab:=3D TTable.Create(nil);
StickTab.DatabaseName:=3D ExtractFilePath(Application.ExeName);
StickTab.TableName:=3D CStickName;
//
StickTab.Exclusive:=3D true;
if OpenTable(ErrMsgNoMsg, StickTab) =3D mrOK then
begin
writeln(CStickName + '...opened');
write('Adding index...');
try
StickTab.AddIndex('IdxMsgPieceText',
'MsgPieceText',[ixCaseInsensitive]);
writeln('succeeded');
except
on E: Exception do
begin
Err:=3D E.Message;
writeln('failed (' + Err + ')');
end;
end;
end else writeln('Table ' + CStickName + ' could not be opened.');
StickTab.Free;
end else Writeln('File ' + CStickName + ' could not be found.');
writeln;
writeln('Press <Enter> to quit...');
readln;
end.=20
Zdravim
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
A bude to fungovat, i kdyz ten index nebyl definovan pri vytvoreni
toho
souboru?
=09
TTable ma property IndexName. Kdyz si nastavis prislusny index,
tabulka se
seradi a projevi se to i opticky v tom gridu.
Komunikace TCP/IP
[*] Svehla Jaroslav <svehla(zv)spelza(tec)cz> - 18.2.2003 09:18:33
Ahoj,
potrebuji pripojit zarizeni se seriovym portem na sit a nekde jinde na si=
ti
moji aplikaci tento seriovy port ovladat. Na pripojeni zarizeni mam
prevodnik RS232/ETHERNET a pocitac s aplikaci bude pripojen svoji sitovou
kartou. Protoze jsem doposud pracoval se seriovymi porty primo (balik
AsynPro) a data jsem prijimal pod prerusenim, chci se v souvislosti s
prechodem na obsluhu po siti zeptat na par veci.
Predbezne jsem se dival na komponenty Indy (jsou soucasti D6Prof) ale
protoze nemam zkusenosti s komunikaci po siti zajimalo by mne, zda lze da=
ta
prijimat take pod prerusenim anebo je potreba prijem resit pravidelnym
ctenim napr. pres casovac. A jak resite problematiku time-outu?.
Jeste jeden dotaz OT. Vytvoril jsem novy font pomoci FontCreatoru ale mam
jeden problem. Nemate s timto SW nekdo zkusenosti?
Jara
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.443 / Virov=E1 b=E1ze: 248 - datum vyd=E1n=ED: 10.1.2003
TTable a sortovani
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.2.2003 10:14:37
> A bude to fungovat, i kdyz ten index nebyl definovan pri vytvoreni
> toho souboru?
Nerozumim presne, na co se ptas. Pri navrhu tabulky se melo s
indexem pocitat, tj. vytvorit ho, ale by nemel byt problem index
vyrobit i kdykoli dodatecne. At uz rucne (napr. v Database
Desktopu) nebo si na to napsat program - viz paralelni mail nebo
BDE32.hlp, kde je na to priklad. Predpokladam ale, ze Tobe pujde o
rucni vytvoreni.
David Lebeda
TTable a sortovani
[*] Rumcajs-konfera <konfera(zv)rumcajs(tec)com> - 18.2.2003 10:30:11
Jedna se o to, ze tyto tabulky uz byly vytvoreny, proto se ptam jestli pr=
i
zadani indexu pro jiz existujici soubor to bude fungovat...
Rumcajs
> > A bude to fungovat, i kdyz ten index nebyl definovan pri vytvoreni
> > toho souboru?
>
> Nerozumim presne, na co se ptas. Pri navrhu tabulky se melo s
> indexem pocitat, tj. vytvorit ho, ale by nemel byt problem index
> vyrobit i kdykoli dodatecne. At uz rucne (napr. v Database
> Desktopu) nebo si na to napsat program - viz paralelni mail nebo
> BDE32.hlp, kde je na to priklad. Predpokladam ale, ze Tobe pujde o
> rucni vytvoreni.
>
> David Lebeda
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 13.2.2003
TurboPower FlashFiler ODBC driver
[*] likeapear <likeapear(zv)centrum(tec)cz> - 18.2.2003 10:43:00
Ahoj,
shanim %subj%. TurboPower prevedl vetsinu svych projektu do OpenSource.
Tento jsem ale na sourceforge.net nenasel. Na turbopower.com je pouze nejaky
update. Problem je i v tom, ze kdybych se rozhodl driver zakoupit, nevim od
koho. Nasel jsem to v par i-shopech (za puvodni cenu), ale je pravdepodobne,
ze to nemaji skladem a mozna ani nevedi, ze turbopower uz skoncil. Na emaily
odeslane do turbopoweru mi chodi pouze automaticka odpoved, ze adresa jiz
neexistuje. Poradi mi nekdo?
likeapear
TTable a sortovani
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.2.2003 10:47:44
> Jedna se o to, ze tyto tabulky uz byly vytvoreny, proto se ptam jestli
> pri zadani indexu pro jiz existujici soubor to bude fungovat...
Do komponenty TTable se da zadat index. Da se zadat jen existujici
index, je tam tusim v objectinspektoru combobox (property
IndexName). Indexu muze existovat vice - pro ruzne sloupce nebo i
kombinace sloupcu. Pokud tam vidis index, ktery potrebujes, tak
bude nepochybne fungovat. Pokud ho nevidis, muzes ho zalozit -
viz muj minuly mail. Pote se tam musi objevit a pak bude rovnez
nepochybne fungovat.
Jestlize potrebny index nevidis a ani ho nemuzes zalozit, tak
setrideni neni mozne v dbgridu provest - ale nevidim duvod, proc si
index v pripade potreby nezalozit (pokud tomu nebrani charakter
aplikace - napr. spousteni z CD apod.).
Nebo si stale nerozumime?
David Lebeda
FB pomaly login
[*] Richard Kejval <kejval.delphi(zv)centrum(tec)cz> - 18.2.2003 10:57:37
> Zdravim,
> mam nainstalovany FB 1.0 (WI-V6.2.794) na XP Profi (cerstva instalace),
> malou databazi cca 2MB, pridava se maximalne 500 zaznamu za den, v
aplikaci
> pouzivam IBExpress (update 5.04). Problem je, ze prihlaseni k DB trva
> nekolik minut. Pokud provedu backup/restore databaze tak to jeden den jede
v
> pohode (prihlaseni je hned). Neresil jste nekdo podobny problem?
> Diky
> Pavel
Ahoj,
s backup/restore to nesouvisi. Jde o to, ze WinXP pri prvnim pripojeni do
databaze to nejak nacte do pameti a pak uz to jde rychle az do doby,
nez prihlasis jinou databazi.
Nam se osvedcilo nastavit ve virtualni pameti volbu na "velikost urci
system", od te doby se nam to pripojuje v pohode.
S pozdravem
ing. Richard Kejval
IC Software s.r.o
Mobil: +420602477679
TurboPower FlashFiler ODBC driver
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.2.2003 10:59:02
Puvodni zprava, kterou napsal likeapear dne 18 Feb 2003:
> shanim %subj%. TurboPower prevedl vetsinu svych projektu do OpenSource.
> Tento jsem ale na sourceforge.net nenasel. Na turbopower.com je pouze
> nejaky update. Problem je i v tom, ze kdybych se rozhodl driver zakoupit,
> nevim od koho. Nasel jsem to v par i-shopech (za puvodni cenu), ale je
> pravdepodobne, ze to nemaji skladem a mozna ani nevedi, ze turbopower uz
> skoncil. Na emaily odeslane do turbopoweru mi chodi pouze automaticka
> odpoved, ze adresa jiz neexistuje. Poradi mi nekdo?
Nezkousel jsem, jestli by TurboPower jeste neco prodal, ale uz asi nic
moc. Do OpenSource sly jen nektere VCL/CLX knihovny, pro kompilovane veci
by mel najit nejakeho jineho noveho majitele.
On ten ODBC driver bohuzel mel nejake chyby a bez jejich reseni je to na
nic, kdyz neni dalsi podpora - zatim. Doporucuji v prvni rade pockat na
dalsi vyvoj, jestli to vubec bude mit budoucnost...
S pozdravem
Petr Zahradnik, pocitacovy expert
=======================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 475 500 610, 475 501 627, 475 511 337
Mobilni telefon: 602 409 601, Fax: 475 511 338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
=======================================================mutexy
[*] kevin33(zv)post(tec)cz - 18.2.2003 11:25:15
zdravim,
mam problem s funkci CreateMutex. jde o to ze se snazim zjistit
jestli bezi moje aplikace1 z aplikace2. tento kod mam v aplikaci2
:=20
repeat
hm :=3D CreateMutex( nil, false,
'D1250573-985D-48D5-A6D3-C70FEF4021F5' ); ** if GetLastError =3D
ERROR_ALREADY_EXISTS then
vypis( 'Program stale bezi' )
else
prgUkoncen :=3D true;
sleep( 1000 );
until prgUkoncen;
v aplikaci1(hlavni) mam podobny kod
CreateMutex( nil, true, 'D1250573-985D-48D5-A6D3-C70FEF4021F5'
); if GetLastError =3D ERROR_ALREADY_EXISTS then begin
MessageDlg( 'Tento program nelze spustit v=EDcekr=E1t.' +#13#10+
'Program bude ukoneen.' , mtWarning, [mbOk], 0 ); Exit;
end;
problem je v tom ze pokud udelam nasledujici postup :=20
- pustim aplikaci1, pak aplikaci2 kerou hned pri prvnim pruchodu
breakpointnu na radku oznacenem **, pak ukoncim aplikaci1, a
znovu spustim aplikaci1 tak ta mi zahlasi ze ji nelze pustit
vicekrat. coz nechapu protoze puvodni mutex vytvoreny v aplikaci1
uz neexistuje (nebot sem ji ukoncil) - sice sem volal jeste
jednou to same create mutex v aplikaci2, ale tam bych mel dostat
error ERROR_ALREADY_EXISTS - coz se taky stalo, jenze promenna hm
obsahuje zrejme handle mutexu - neni nulova - ale mela by protoze
v helpu se pise ze : If the function fails, the return value is
NULL. problem je zrejme v tom ze se mutex po ukonceni aplikace1
nezrusi - proc?
dekuji
Kev
TTable a sortovani
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 18.2.2003 11:25:20
> Odes=EDlatel: Rumcajs-konfera <konfera(zv)rumcajs.com>
> A bude to fungovat, i kdyz ten index nebyl definovan pri vytvoreni =
toho
> souboru?
Nebude, to uz tu vsichni napsali, musel by sis ho vytvorit, to uz taky =
vsichni napsali jak.
Protoze ale asi neni vhodne indexovat podle vsech sloupcu, pripada v =
uvahu pouzit TQuery a dat si do SQL=20
"select...from...order by...".
Pak index mit nemusis.
Ale v databazich typu .db, .dbf zadna slava...
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
mutexy
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 18.2.2003 11:37:48
From: <kevin33(zv)post(tec)cz>
> problem je zrejme v tom ze se mutex po ukonceni
> aplikace1 nezrusi - proc?
To plyne z logiky veci: Mutext je globalni synchronizacni prostredek
tj. implementuji se jim kriticke sekce
mezi procesy z ruznych aplikaci.
To, ze jedna aplikace skonci, je irelevantni.
Musis testovat, jestli je vlastnen nejakym procesem
tj. zda se nachazi nachazi ve stavu signaled nebo
non-singaled pomoci WaitForSingleObject().
HTH, pf
HTML
[*] Vojtech Albrecht <vojtech.albrecht(zv)quick(tec)cz> - 18.2.2003 11:59:30
Stale zdravi.
Lze a popripade kde sehnat komponentu na export do HTML ?
Potrebuji resit nasleduji problem.
1. Otevrit TXT nebo HTML format
2. Provest ne nem upravy. V tomto bode bych chtel menit font a velikost
urcitych casti.
3. Ulozit jako HTML
Delphi 5Prof. Win2000
Dekuji
Mesic z now
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 18.2.2003 12:01:13
Zdravim
Problem jsem vyresil pomoci "DecodeDate(Datum, Year, Month, Day);"
> function MonthOf(const AValue: TDateTime): Word; // vracia mesiac
> function YearOf(const AValue: TDateTime): Word; //vracia rok
Tyto funkce jsem v napovede Delphi 5 nenasel.
Diky za odpoved
Viktor Marek
viktor(zv)mbox.vol(tec)cz
----- Original Message -----
From: "Ing. Keder Vladimir" <vkeder(zv)iol.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, February 17, 2003 10:03 PM
Subject: Re: Mesic z now
> > Neexistuje nejaka funkce(unita) ktera by mi vratila z "now" zvlast me=
sic
a
> > rok
>
> Napr. takto :
> function MonthOf(const AValue: TDateTime): Word; // vracia mesiac
>
> function YearOf(const AValue: TDateTime): Word; //vracia rok
>
> Vlado
>
>
>
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 13.2.2003
mutexy
[*] Delphin <delphin(zv)post(tec)cz> - 18.2.2003 12:02:50
> problem je v tom ze pokud udelam nasledujici postup :
> - pustim aplikaci1, pak aplikaci2 kerou hned pri prvnim pruchodu
> breakpointnu na radku oznacenem **, pak ukoncim aplikaci1, a
> znovu spustim aplikaci1 tak ta mi zahlasi ze ji nelze pustit
> vicekrat. coz nechapu protoze puvodni mutex vytvoreny v aplikaci1
> uz neexistuje (nebot sem ji ukoncil) - sice sem volal jeste
> jednou to same create mutex v aplikaci2, ale tam bych mel dostat
> error ERROR_ALREADY_EXISTS - coz se taky stalo, jenze promenna hm
> obsahuje zrejme handle mutexu - neni nulova - ale mela by protoze
> v helpu se pise ze : If the function fails, the return value is
> NULL. problem je zrejme v tom ze se mutex po ukonceni aplikace1
> nezrusi - proc?
Return Values
If the function succeeds, the return value is a handle to the mutex object.
If the named mutex object existed before the function call, the function
returns a handle to the existing object and GetLastError returns
ERROR_ALREADY_EXISTS. Otherwise, the caller created the mutex.
If the function fails, the return value is NULL. To get extended error
information, call GetLastError.
Cesky: 1) pokud mutex neexistuje, tak se vytvori a vrati to handle na novy
mutex a ERROR_SUCCESS
2) kdyz mutex existuje, tak to vrati handle na existujici mutex
a ERROR_ALREADY_EXISTS
3) pokud nejde vytvorit, vrati to NULL a chybu
Problem zpusobuje to, ze handle vracene s ERROR_ALREADY_EXISTS je platne a
musi se zavrit CloseHandle. Respektive, mutex bude existovat do te doby,
dokud bude existovat 1 a vice otevrenych handle.
Je-li tedy v aplikaci2 otevrene handle na mutex, tak ukonceni aplikace1 nema
na existenci mutexu vliv.
----- Original Message -----
From: <kevin33(zv)post(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, February 18, 2003 11:25 AM
Subject: mutexy
zdravim,
mam problem s funkci CreateMutex. jde o to ze se snazim zjistit
jestli bezi moje aplikace1 z aplikace2. tento kod mam v aplikaci2
:
repeat
hm := CreateMutex( nil, false,
'D1250573-985D-48D5-A6D3-C70FEF4021F5' ); ** if GetLastError =
ERROR_ALREADY_EXISTS then
vypis( 'Program stale bezi' )
else
prgUkoncen := true;
sleep( 1000 );
until prgUkoncen;
v aplikaci1(hlavni) mam podobny kod
CreateMutex( nil, true, 'D1250573-985D-48D5-A6D3-C70FEF4021F5'
); if GetLastError = ERROR_ALREADY_EXISTS then begin
MessageDlg( 'Tento program nelze spustit v�cekr�t.' +#13#10+
'Program bude ukoneen.' , mtWarning, [mbOk], 0 ); Exit;
end;
problem je v tom ze pokud udelam nasledujici postup :
- pustim aplikaci1, pak aplikaci2 kerou hned pri prvnim pruchodu
breakpointnu na radku oznacenem **, pak ukoncim aplikaci1, a
znovu spustim aplikaci1 tak ta mi zahlasi ze ji nelze pustit
vicekrat. coz nechapu protoze puvodni mutex vytvoreny v aplikaci1
uz neexistuje (nebot sem ji ukoncil) - sice sem volal jeste
jednou to same create mutex v aplikaci2, ale tam bych mel dostat
error ERROR_ALREADY_EXISTS - coz se taky stalo, jenze promenna hm
obsahuje zrejme handle mutexu - neni nulova - ale mela by protoze
v helpu se pise ze : If the function fails, the return value is
NULL. problem je zrejme v tom ze se mutex po ukonceni aplikace1
nezrusi - proc?
dekuji
Kev
HTML
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.2.2003 12:28:05
Wmt1cyBzZSBvYnLhdGl0IG5hIERhdmlkYSBNYWpkdSBodHRwOi8vZG1hamRhLmh5cGVybGluay5j
eg0Ka3RlcnkgZGVsYWwgZG9jZWxhIHBvdmVkZW55IGV4cG9ydCB6IFJURiBkbyBIVE1MDQoNCkFs
ZSB1dXJjaXRlIHRpIG5lcHVqZGUgbmF0YWhub3V0IEhUTUwsIHZpenVhbG5lIGplaiBlZGl0b3Zh
dCBhIHphc2UNCmpha28gSFRNTCB1bG96aXQuIFYgdG9tdG8gcHJpcGFkZSBieSB0byBtb3puYSBz
bG8gcHJlcyBvYmpla3QgV29yZHUNCm5lYm8gRm9ybnRQYWdlLCBpbnRlZ3JvdmFueSBkbyB0dmUg
YXBsaWthY2UuDQoNCi0tIA0KSmFuIEZpYWxhDQptYWlsdG86amFuLmZpYWxhQGlvbC5jeg0KDQox
OC4yLjIwMDMgVm9qdGVjaCBBbGJyZWNodDoNCj4gU3RhbGUgemRyYXZpLg0KPiBMemUgYSBwb3By
aXBhZGUga2RlIHNlaG5hdCBrb21wb25lbnR1IG5hIGV4cG9ydCBkbyBIVE1MID8NCj4gUG90cmVi
dWppIHJlc2l0IG5hc2xlZHVqaSBwcm9ibGVtLg0KPiAxLiBPdGV2cml0IFRYVCBuZWJvIEhUTUwg
Zm9ybWF0DQo+IDIuIFByb3Zlc3QgbmUgbmVtIHVwcmF2eS4gICBWIHRvbXRvIGJvZGUgYnljaCBj
aHRlbCBtZW5pdCBmb250IGEgdmVsaWtvc3QNCj4gdXJjaXR5Y2ggY2FzdGkuDQo+IDMuIFVsb3pp
dCBqYWtvIEhUTUwNCg0KIA==
Komunikace TCP/IP
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 18.2.2003 12:39:27
Tim 'pod prerusenim' si predstavujes neco jako eventy? Pak muzes
sahnout po baliku ICS.
Nebo zustat u synchronni komunikace, a resit to threadem, ve kterem
budes periodicky zjistovat pritomnost dat na cteni, a kdyz budou,
zavolas si event hlavniho threadu.
Cele to jde ale delat uplne jinak. To zalezi na konkretni situaci.
Napriklad znas-li formalni strukturu pribihajicich dat, lze to resit
treba v me Synapsi nejak takto:
- vim, ze mi maji prichazet bloky dat o velikosti 8 bytu, pak staci
udelat smycku:
While not Ukonci_cteni do
begin
buffer := sock.RecvBufferStr(8, timeout);
if sock.lasterror = 0 then
zpracujdata(Buffer);
end;
Moznosti cteni dat je pochopitelne mnoho, napriklad ze blok dat je
ohranicen nejakou sekvenci bytu a ne konkretnim poctem, atd.
Vtip tohoto reseni je v tom, ze se vubec nemusis starat o to, kdy a
jak fyzicky data prichazeji, nemusis se starat o slepovani postupne
dochazejichc dat v logicky celek, protoze o to se postara Synapse
sama. Ty jen urcis jaka data chces, a do kdy je chces (timeout), a
Synapse ti je naserviruje.
Pochopitelne ze kdyz prectes treba jen ctyri byty dat a dalsi uz
nestihnes v tmtimeoutu precist, o tyto data neprijdes, ale budou
zpracovana pristim pozadavkem na cteni.
Jeste mala poznaka.. kdybys mel seriovou komunikaci resenou mym
SynaSer, pak by byl takovy prechod hrackou, protoze Synapse i Synaser
pouziva uplne stejne metody cteni dat. takze bys e jen prohodil jeden
objekt, a nahradilo by se otevirani COM portu oteviranim TCP spoje...
a to by bylo se. ;-)
> potrebuji pripojit zarizeni se seriovym portem na sit a nekde jinde na
> siti moji aplikaci tento seriovy port ovladat. Na pripojeni zarizeni
> mam prevodnik RS232/ETHERNET a pocitac s aplikaci bude pripojen svoji
> sitovou kartou. Protoze jsem doposud pracoval se seriovymi porty primo
> (balik AsynPro) a data jsem prijimal pod prerusenim, chci se v
> souvislosti s prechodem na obsluhu po siti zeptat na par veci.
> Predbezne jsem se dival na komponenty Indy (jsou soucasti D6Prof) ale
> protoze nemam zkusenosti s komunikaci po siti zajimalo by mne, zda lze
> data prijimat take pod prerusenim anebo je potreba prijem resit
> pravidelnym ctenim napr. pres casovac. A jak resite problematiku
> time-outu?.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
BDE a jeho vykonnost
[*] Dusan Fojtik <fojtikd(zv)aix.upol(tec)cz> - 18.2.2003 14:24:46
Nazdar.
Potreboval bych poradit s nasledujicim problemem:
Na formulari je DBGrid, ktery taha data z databaze pres TQuery (vetsinou
select a join z vice tabulek). No jenomze pokud otevru Tquery, tak
nacitani dat z databaze trva strasne dlouho, protoze BDE nafetchuje
vsechny zaznamy, ktere vraci server (nekdy 10 000 a vice
zaznamu).=20
Server je Interbase Open Source 6.0.1.6 a BDE verze 5.11
No ja bych ale potreboval, aby me to vratilo treba jenom prvnich 50
zaznamu, a pokud by uzivatel potreboval dalsi zaznam, aby se dalsich 50
z=E1znamu automaticky natahlo, proste neco podobneho co zarucuje atribut
CacheSize ve tride TCustomADODataSet.
Existuje nejaka modifikace BDE(nastaveni, uprava zdrojovych souboru),
ktera by to umoznovala ?
Podotykam, ze bych to potreboval vyresit univezalne na jakoukoliv
databazi, takze reseni typu pouzij FIRST(FireBird) nebo rownum(oracle)
neni zrovna to co potrebuji.
Nejlepsim resenim by podle me bylo prejit z BDE na ADO, ale je zde nejake
uskali ?
Existuje nejaky free OLE DB Driver pro Interbase/Firebird ?
S pozdravem
D. Fojtik
Poslani prilohy v Emailu pres ShellExecute
[*] Du�ek Karel <dusek(zv)mudk(tec)cz> - 18.2.2003 14:42:09
Prosim o radu s posilanim emailem.
Pouzivam toto
Mail:=3D'mailto:'+'?subject=3DSeznam chyb'+'&body=3D'+'Seznam se =
nach=E1z=ED v priloze';
ShellExecute(Self.Handle,'Open',PChar(Mail),nil,nil,SW_ShowNormal);
Ale nedari se mi k tomuto emailu vlozit soubor jako prilohu. Jiz jsem =
skousel mnoho zp=F9sobu ale neprisel jsem na to. Presto bych chtel =
vyu=BE=EDvat p=F8ednastaven=E9ho Outlooku a jeho adresar. Jde urcite o =
trivialitu (jako vetsinou). Prosim tak=E9 jak se da v body form=E1tovat =
text napr. tabulator apod.
Predem dekuji Vsem za nakopnuti.
Karel Dusek
BDE a jeho vykonnost
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.2.2003 14:58:04
> Na formulari je DBGrid, ktery taha data z databaze pres TQuery
> (vetsinou select a join z vice tabulek). No jenomze pokud otevru
> Tquery, tak nacitani dat z databaze trva strasne dlouho, protoze BDE
> nafetchuje vsechny zaznamy, ktere vraci server (nekdy 10 000 a vice
> zaznamu).
Opravdu? Ja se nechci hadat, ale nejak se mi nezda, ze by Query
pri otevreni fetchovala vsechny zaznamy, pokud to neni nutne.
Nemas tam treba v selectu order by, ktery by trval dlouho?
Pouzivam IBExpress a ten nacte opravdu jen tech prvnich par vet,
co potrebuje do gridu k zobrazeni, dalsi stahuje prubezne podle
toho, jak se v gridu hybes.
S BDE uz jsem dlouho nedelal, tak nevim, mozne je vsechno :)
David Lebeda
HTML
[*] Jan �imeck� - 18.2.2003 15:10:01
Nazdarek,
Ja vim ze komponenta BuPACK umi exportovat data do HTML.... Adresu
naspamet teto komponenty nezanam...(zminuji se o ni na URL
http://simecky.webzdarma(tec)cz/index.php?str=delphi - bohuzel me nefunguje
prohlizec tak to nemuzu opsat).
S pozdravem J.S.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Vojtech Albrecht
Sent: Tuesday, February 18, 2003 12:00 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: HTML
Stale zdravi.
Lze a popripade kde sehnat komponentu na export do HTML ?
Potrebuji resit nasleduji problem.
1. Otevrit TXT nebo HTML format
2. Provest ne nem upravy. V tomto bode bych chtel menit font a
velikost
urcitych casti.
3. Ulozit jako HTML
Delphi 5Prof. Win2000
Dekuji
David Majda (was: Re: HTML)
[*] Adam Hauner <hauner(zv)iinfo(tec)cz> - 18.2.2003 15:14:19
ing. Jan Fiala wrote:
> Zkus se obr=E1tit na Davida Majdu http://dmajda.hyperlink(tec)cz
> ktery delal docela povedeny export z RTF do HTML
URL na Hyperlink neni funkcni, Davida Majdu naleznete napr.
http://www.slunecnice(tec)cz/author/DavidMajda/
a jeho zminovany export:
http://www.slunecnice(tec)cz/product/rtf2html/
--=20
Adam Hauner
Internet Info, s.r.o.
Na Strzi 5, 140 00 Praha tel: +420 241 441 695
http://www.iinfo(tec)cz/ * http://www.root(tec)cz/cd/
TurboPower FlashFiler ODBC driver
[*] likeapear <likeapear(zv)centrum(tec)cz> - 18.2.2003 15:40:41
Radi bychom si ODBC driver pro FlashFiler vyzkouseli abychom vedeli jestli
to pro nas bude vhodny produkt. Samotny FF bez ODBC driveru pro nas asi
nebude dostacujici. Je mozne nekde ziskat nejakou omezenou verzi ODBC
driveru (nevim, zda bylo drive neco podobneho dostupne na turbopower.com)?
likeapear
> Nezkousel jsem, jestli by TurboPower jeste neco prodal, ale uz asi nic
> moc. Do OpenSource sly jen nektere VCL/CLX knihovny, pro kompilovane veci
> by mel najit nejakeho jineho noveho majitele.
>
> On ten ODBC driver bohuzel mel nejake chyby a bez jejich reseni je to na
> nic, kdyz neni dalsi podpora - zatim. Doporucuji v prvni rade pockat na
> dalsi vyvoj, jestli to vubec bude mit budoucnost...
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
> =======================================================
> Petr Zahradnik, Computer Laboratory
> Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
> Telefony: 475 500 610, 475 501 627, 475 511 337
> Mobilni telefon: 602 409 601, Fax: 475 511 338
> WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
> E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
>
> =======================================================
>
>
>
Poslani prilohy v Emailu pres ShellExecute
[*] <js-delphi(zv)quick(tec)cz> - 18.2.2003 15:45:28
Ahoj=2E
Moc Te nepotesim=2E Zpusobem=2C jakym uvadis toto =
neni mozne=2E Podrobne navody najdes v historii =
konference=2E =
Z osobni zkusenosti Ti doporucuji komponentu =
JCLSendMail (doufam=2C ze jsem se nespletl - jestli =
jo=2C tak to bude hodne podobne) P=2E Vonese=2C ktera =
toto resi=2E Je soucasti celeho freewaroveho =
baliku=2C ktery se Ti bude urcite hodit jmenuje se =
JEDI Component Library=2E
S formatovanim textu jsem nehnul=2E Nebyl jsem =
schopen donutit zmenu typu body na rtf nebo html=2E =
Vzdycky mi z toho vysel jen prosty text=2E Takze =
jsem vse psal do prilohy a do textu jsem napsal =
pouze=3A
viz priloha=2E S pozdravem Jan Novak
Ahoj=2C Jirka
--------------------------------------------------
Ing=2E Jiri Sokol=3B jiri=2Esokol=40seznam=2Ecz=3B 972 231 187
D6Prof+SP2=3B WinNT
programator amater
=3E Prosim o radu s posilanim emailem=2E
=3E =
=3E Ale nedari se mi k tomuto emailu vlozit =
=3E soubor jako prilohu=2E Jiz jsem skousel mnoho =
=3E zp=F9sobu ale neprisel jsem na to=2E Presto bych =
=3E chtel vyu=BE=EDvat p=F8ednastaven=E9ho Outlooku a =
=3E jeho adresar=2E Jde urcite o trivialitu (jako =
=3E vetsinou)=2E Prosim tak=E9 jak se da v body =
=3E form=E1tovat text napr=2E tabulator apod=2E
=3E =
=3E Karel Dusek
IB/FB - pocet pripojenych uzivatelu II.
[*] <js-delphi(zv)quick(tec)cz> - 18.2.2003 15:59:55
Ahoj
Zadna idea ohledne meho dotazu? Takze by to
neslo?
Pouzivam FireBird 1.0.2.xxx pripojuji se pres
TCP/IP.
> Da se nejakym zpusobem zjistit pocet
> prihlasenych
> uzivatelu popr. pocet transakci?
k databazi pripojenych v jeden okamzik?
pokud nejde seznam (nebo alespon pocet)
uziavtelu, tak "aspon" zda a jak lze ziskat pocet
transakci vcetne zjisteni jmena uzivatele (popr.
jeho IP) dane transakce
...
proste potrebuju
>pocet aktivnich uzivatelu pracujicich s databazi.
Jde mi o to, ze bych z me aplikace chtel udelat
jakesi demo - zkusebni verzi - a to omezit na
pocet v jeden okamzik pripojenych uzivatelu a
max. poctu vkladanych radku.
mozna poradite jiny zpusob ...?
Diky za jakoukoliv radu, ktera me poposune
dopredu.
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
TurboPower FlashFiler ODBC driver
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.2.2003 16:10:06
Puvodni zprava, kterou napsal likeapear dne 18 Feb 2003:
> Radi bychom si ODBC driver pro FlashFiler vyzkouseli abychom vedeli jestli
> to pro nas bude vhodny produkt. Samotny FF bez ODBC driveru pro nas asi
> nebude dostacujici. Je mozne nekde ziskat nejakou omezenou verzi ODBC
> driveru (nevim, zda bylo drive neco podobneho dostupne na turbopower.com)?
Neni zadne demo ani trial, proste to neudelali, byla jen full verze.
S pozdravem
Petr Zahradnik, pocitacovy expert
=======================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 475 500 610, 475 501 627, 475 511 337
Mobilni telefon: 602 409 601, Fax: 475 511 338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
=======================================================BDE - jeden Alias a vicenasobne fyzicke ulozeni ta
[*] Milan Ruksak <ruksak(zv)volny(tec)cz> - 18.2.2003 16:18:11
Zdravim,
jde nejak udelat, abych mel jeden Alias na databazi, ale mel jsem tech
databazi nekolik fyzicky ulozenych v ruznych adresarich a mohl si je
prepinat v programu. (Jednoduse: jeden program, jeden datovy modul a X
datovych adresaru). Nebude potom problem s indexy (Paradox) ? Idealni by
bylo zmenit PAT v BDE, ale to asi tak jednoduche nebude... Nebo jo ?
Diky, Rooksy
IB/FB - pocet pripojenych uzivatelu II.
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 18.2.2003 18:20:14
On 18 Feb 2003 at 15:59, js-delphi(zv)quick(tec)cz wrote:
> Zadna idea ohledne meho dotazu? Takze by to
> neslo?
> Pouzivam FireBird 1.0.2.xxx pripojuji se pres
> TCP/IP.
podivej se na komponentu IBDatabaseInfo.
IBDatabaseInfo.UserNames.Count
vraci pocet pripojenych uzivatelu k databazi
Jarek U.
IB/FB - pocet pripojenych uzivatelu II.
[*] Marek Spisak <spishark(zv)post(tec)cz> - 18.2.2003 18:34:11
Na pocet uzivatelu bych nesazel, kdyz chces omezovat funkcnost programu.
Zalezi na:
a) zpusobu komunikace s db (muze byt jen malo uzivatelu s nekolika
rolemi a vlastni, naprogramovany user management) - zvazuje se pripad od
pripadu
b) na komponentach, pouzivam IBExpress -> nejsou tread safe a pro kazdy
tread tvorim vlastni connection
c) i kvuli delce transakce a logice programu muze dochazet k nekolika
soubeznym connections na databazi z jedne masiny
Nejen pro omezeni kvuli licencim (ale taky) to delam tak, ze pri startu
programu zapisu MAC adresu sitove karty do databaze a pri odhlaseni
tento zaznam bud zrusim nebo v nekterych aplikacich mam neco jako log
(kdy se zaznamy nemazou, pouze se pridava). Pokud dojde ke spadnuti
klienta, muze byt nejaka casovana kontrola, jestli jeste jede (kdyz ne
tak ho sestrelim) a nebo u jednoduche aplikace pocat az se znova
prihlasi a pri prihlaseni tam spustim kontrolu, jesti to nahodou neslitlo.
Jaroslav Uher wrote:
> On 18 Feb 2003 at 15:59, js-delphi(zv)quick(tec)cz wrote:
>
>
>>Zadna idea ohledne meho dotazu? Takze by to
>>neslo?
>>Pouzivam FireBird 1.0.2.xxx pripojuji se pres
>>TCP/IP.
>
>
> podivej se na komponentu IBDatabaseInfo.
> IBDatabaseInfo.UserNames.Count
> vraci pocet pripojenych uzivatelu k databazi
>
> Jarek U.
>
>
>
>
js-delphi(zv)quick(tec)cz wrote:
> Ahoj
> Zadna idea ohledne meho dotazu? Takze by to
> neslo?
> Pouzivam FireBird 1.0.2.xxx pripojuji se pres
> TCP/IP.
>
>
>>Da se nejakym zpusobem zjistit pocet
>>prihlasenych
>>uzivatelu popr. pocet transakci?
>
> k databazi pripojenych v jeden okamzik?
> pokud nejde seznam (nebo alespon pocet)
> uziavtelu, tak "aspon" zda a jak lze ziskat pocet
> transakci vcetne zjisteni jmena uzivatele (popr.
> jeho IP) dane transakce
>
> ...
>
> proste potrebuju
>
>
>>pocet aktivnich uzivatelu pracujicich s databazi.
>
>
> Jde mi o to, ze bych z me aplikace chtel udelat
> jakesi demo - zkusebni verzi - a to omezit na
> pocet v jeden okamzik pripojenych uzivatelu a
> max. poctu vkladanych radku.
>
> mozna poradite jiny zpusob ...?
>
> Diky za jakoukoliv radu, ktera me poposune
> dopredu.
>
> Jirka
> --------------------------------------------------
> Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
> D6Prof+SP2; WinNT
> programator amater
BDE - jeden Alias a vicenasobne fyzicke ulozeni ta
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.2.2003 18:41:49
V tom pripade doporucuji ALIAS uplne vypustit, pouzit komponentu
TDatabase a misto ALIAS pouzit cestu k adresari.
pak to bude fungovat a nebude nutne nic nastavovat v BDE a vytvaret
aliasy.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
18.2.2003 Milan Ruksak:
> Zdravim,
> jde nejak udelat, abych mel jeden Alias na databazi, ale mel jsem tech
> databazi nekolik fyzicky ulozenych v ruznych adresarich a mohl si je
> prepinat v programu. (Jednoduse: jeden program, jeden datovy modul a X
> datovych adresaru). Nebude potom problem s indexy (Paradox) ? Idealni by
> bylo zmenit PAT v BDE, ale to asi tak jednoduche nebude... Nebo jo ?
> Diky, Rooksy
Zmena pozice (indexu) Buttonu na TToolBaru
[*] Jan Naiser <tua(zv)wo(tec)cz> - 18.2.2003 18:43:17
Preji pekny den,
(D6, W2k)
da se nejak programove menit pozice buttonu na TToolBaru?
Diky, Honza.
Ctecka caroveho kodu, XP skin.
[*] <b.klucka(zv)gentlemail(tec)com> - 18.2.2003 19:38:10
Ahoj, mam 2 dotazy:
1/ jak na ctecku caroveho kodu, jak se prijmaji data, jak se zpracovavaji=
, pokud nekdo mate nejaky freeware zdrojak...
2/ jak nastavit XP sjin pro Win9x, Win2k, je sice ToolBar2000, ale ten ob=
cas nefunguje tak, jak ma, manifest blbne na nekterych komponentach (TLIs=
tView apod.)....
Brona
_________________________________________________________________________=
_____
V=B9echny =BEeny jsou kr=E1sn=E9. http://eva.email(tec)cz=20
Ctecka caroveho kodu, XP skin.
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 18.2.2003 20:36:09
> 1/ jak na ctecku caroveho kodu, jak se prijmaji data, jak se
> zpracovavaji, pokud nekdo mate nejaky freeware zdrojak...
A co rict jak ta ctecka bude pripojena? pres seriovy port, pres
klavesnici....
predpokladam seriovy port... pak staci pouzit jakykoliv kod na
seriovou komunikaci. ja napriklad na seriovou ctecku pouzivam svuj
SynaSer.
Vyrobim si thread, v nemsi vytvorim objekt Ser:=TBlockSerial.Create;,
tento objekt pripojim k ceriovemu portu pomoci
ser.Connect(Comport, 9600, 8, 'N', 0, false, false);
.. a pak v execute toho threadu volam nasledujici kod...
...ten kod slozi pro seriovou bezdratovou ctecku, ciha,a jakmile
prijde nejaky kod, preda jej subrutine na zpracovani, a pocka si na
navratovy kod, ktery odesle zpet do ctecky jako potvrzeni. (to
potvrzovani asi ne vsechny ctecky vyzaduji.)
procedure TIdentReader.Execute;
begin
while not terminated do
begin
barCode := ser.RecvTerminated(1000,#$0d);
if barCode <> '' then
begin
Synchronize(Processbar);
ser.SendString(#$1b+Reply+#$0d);
end;
end;
end;
me to prijde dostatecne simple. ;-)))
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Image a zabavny Visible
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 18.2.2003 20:59:07
>A nemuzes si ten TImage vytvorit az za behu - vubec ho na form v design
rezimu necpat?
>V Builderu:
>TImage *MyImg;
>MyImg = new TImage;
Muzu, ale v tom pripade to skonci s tou samou chybou jakou jsem psal. To, ze
jsem ho nacpal na form je az nasledek toho, ze nejsem schopny nikam jinam
ten obrazek ulozit a pak prevest do JPG a zobrazit (vzdy to skonci s tou
samou JPG chybou).
Roman
- - - - - - - - - - - - - - - - - - - - -
http://kouzelne.misto(tec)cz/TMemo a WinXP
[*] MUDr. Patrik VALENTA <valentapat(zv)volny(tec)cz> - 18.2.2003 21:19:29
Zdravim s nasledujicim problemem:
Memo se mi chova korektne ve win9x, ale na pPC kde je WinXP neakceptuje
Enter, misto nej zobrazuej svisle cary. Ja potrebuju normalne odradkovat. Da
se to nejak osetrit ?
diky valik
Lze nejak nastavit MainForm
[*] Vlko II. <vlko(zv)zilina(tec)net> - 18.2.2003 23:07:35
trocha neskoro, ale co tak skusit Project->Options->Forms a tam nastavit
MainForm? A z toho uz potom spustit, ktory chces?
On Mon, 17 Feb 2003 16:18:12 +0100, <js-delphi(zv)quick(tec)cz> wrote:
> Ahoj.
> Dekuji za napady s resenim problemu.
> 1)musim sam sebe pochvalit, protoze jsem postupoval presne, jak mi tady
> doporucujete
> 2)musim se omluvit, protoze jsem dotaz asi tak zamotal, ze jsem dostal
> odpovedi na neco jineho - je to mam chyba
>
> Popsal jsem - mne - z posledni doby znamy problem, kdy jsem uvazoval o
> tom, zda jde nejakym zpusobem menit Applikation.MainForm.
> Tot vse. Jde to nebo ne?
>
> Jeste jednou se omlouvam, priste se nad formulaci dotazu vice zamyslim.
>
> Ahoj, Jirka
>
> --------------------------------------------------
> Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
> D6Prof+SP2; WinNT
> programator amater
>
>
>
--
--------------
vlko_(zv)pobox.sk
Ctecka caroveho kodu, XP skin.
[*] Rumcajs-konfera <konfera(zv)rumcajs(tec)com> - 19.2.2003 08:01:29
Pokud ji pripojis pres klavesnici, je to stejne, jako bys to tou klavesni=
ci
napsal, v pripade RS232 jak jiz bylo psano, hlidej seriovy port. Ja pouzi=
vam
TComPort, zda se mi propracovanejsi ...
Rumcajs
Ahoj, mam 2 dotazy:
1/ jak na ctecku caroveho kodu, jak se prijmaji data, jak se zpracovavaji=
,
pokud nekdo mate nejaky freeware zdrojak...
2/ jak nastavit XP sjin pro Win9x, Win2k, je sice ToolBar2000, ale ten ob=
cas
nefunguje tak, jak ma, manifest blbne na nekterych komponentach (TLIstVie=
w
apod.)....
Brona
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 13.2.2003
Ctecka caroveho kodu, XP skin.
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 19.2.2003 09:20:45
1/ jak na ctecku caroveho kodu, jak se prijmaji data, jak se zpracovavaji,
pokud nekdo mate nejaky freeware zdrojak...
Ctecky se pripojuji bud pres seriovy port nebo paralelne pres klavesnici.
Pokud je pres klavesnici, je to jako vstup znaku z klavesnice, pokud je to
pres seriovy port normalne se cte tento port.
Jaroslav Nadhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel.: 224 312 344-5
fax: 235 522 892
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
pobocka Ostrava:
Nedbalova 14, 701 00 Ostrava
tel: 596 635 687
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.445 / Virov� b�ze: 250 - datum vyd�n�: 21.1.2003
Ctecka caroveho kodu, XP skin.
[*] Marek Spisak <spishark(zv)post(tec)cz> - 19.2.2003 09:26:27
b.klucka(zv)gentlemail.com wrote:
> jak na ctecku caroveho kodu, jak se prijmaji data, jak se zpracovavaji, pokud nekdo mate nejaky freeware zdrojak...
ctecka caroveho kodu se pripojuje na klavesnicovy vstup. Takze nic
nepotrebujes. Proste to pripojis na rozdvojku s klavesnici, postavis se
do eg. Editu kde chces mit vysledek kodu a prejedes carovy kod. Chova se
to stejne, jakobys to nabusil z klavesnice. Zpracovani uz je tvoje
parketa vramci SW :-)
Marek
popis grafickeho formatu ICO
[*] <b.klucka(zv)gentlemail(tec)com> - 19.2.2003 09:31:13
Zdar,
Schanim popis grafickeho formatu ICO (jak je co ulozeno, popis binarky).
Brona
_________________________________________________________________________=
_____
V=B9echny =BEeny jsou kr=E1sn=E9. http://eva.email(tec)cz=20
registracia
[*] Ivan Simko <ivan.simko(zv)pozfond.sk> - 19.2.2003 09:40:27
Zakupil som si Delphi 6 a prepasol som registraciu produktu. Ako to mozem
napravit?
registracia
[*] Rumcajs-konfera <konfera(zv)rumcajs(tec)com> - 19.2.2003 09:41:06
V adresari s Delphinou je adresar lib a tam je ten registracni formular
(tusim ze register.exe).
Otevri, vyplni, odesli ...
Rumcajs
> Zakupil som si Delphi 6 a prepasol som registraciu produktu. Ako to moz=
em
> napravit?
>
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.455 / Virov=E1 b=E1ze: 255 - datum vyd=E1n=ED: 13.2.2003
popis grafickeho formatu ICO
[*] vachix <vachix(zv)centrum.sk> - 19.2.2003 09:57:31
http://www.wotsit.org/
mato
> Zdar,
>
> Schanim popis grafickeho formatu ICO (jak je co ulozeno, popis binarky).
>
>
> Brona
Tisk bitmapy
[*] Macecek Marcel <marcel.macecek(zv)siemens(tec)com> - 19.2.2003 12:48:28
Muzete mi nekdo poradit ?
Mam neco takoveho:
with printer do
begin
Orientation := poLandscape;
BeginDoc;
with Canvas do
begin
Bitmap := TBitMap.Create;
Bitmap.LoadFromFile('xxx.bmp');
MyRect := Rect(5288,206,6568,450);
StretchDraw(MyRect,Bitmap);
Bitmap.Free;
end;
EndDoc;
end;
problem je v tom, ze nekdy mi to ten obrazek vytiskne a nekdy ne. Vypada to jako by ho nekdy nemel jsete nacteny a uz ho tisknul.
Existuje nejaky check, kterym bych zjistil, jestli uz ho muzu tisknout ???
Marcel
S pozdravem / Kind regards
Marcel Macecek
DB administrator
Siemens Automobilove systemy s.r.o.
Kopanska 1713
744 01 Frenstat p. R.
Czech Republic
Tel.:+420 (556) 881 468
Fax:+420 (556) 881 390
mailto:marcel.macecek(zv)siemens.com
ComboBox - jak hodnoty jednoho comba pouzit bez na
[*] Danik Frantik <frantik(zv)telpro(tec)cz> - 19.2.2003 14:19:42
DestCombo.Items.BeginUpdate;
try
DestCombo.Items.Assign(SourceCombo.Items); //Popr.
DestCombo.Items.Text:=SourceCombo.Items.Text
finally
DestCombo.Items.EndUpdate;
end;
Je taky pomale? Me to na 533Mhz trva cca 1.2s pro 30000 zaznamu. (Pripada mi
to nejjednodussi)
Sorted = false;
Danik
>
> > naplnim Combo - udelam si
> > ciselnik - nazvy obci. Vzhledem k tomu, ze je v
> > CR cca 15.500 obci, tak to trva -> plnit dve
> > comba uz by bylo nemozny.
>
TurboPower FlashFiler
[*] Ing. Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 19.2.2003 14:51:58
> -----Original Message-----
> Behalf Of Petr Zahradnik
> Sent: Tuesday, February 18, 2003 10:59 AM
> Subject: Re: TurboPower FlashFiler ODBC driver
>
> Nezkousel jsem, jestli by TurboPower jeste neco prodal, ale uz asi nic
> moc. Do OpenSource sly jen nektere VCL/CLX knihovny, pro kompilovane veci
> by mel najit nejakeho jineho noveho majitele.
>
Zdravim,
nevite nekdo jak je to se samotnym FlashFilerem, s jeho vyvojem atd. Presel
tez po OpenSource?
Ing. Igor Vodicka
informacni systemy
Nakladatelstvi Sagit
Tel.: 59 6786 001
HTTP://www.sagit(tec)cz/
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.449 / Virov� b�ze: 251 - datum vyd�n�: 27.1.2003
Kopirovani souboru
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 19.2.2003 15:32:13
Zdravim
Pro kopirovani souboru pouzivam tip z konference. Pokud ale bezi proces
kopirovani, nelze pohnout Formem do doby nez kopirovani skonci. Ma to nec=
o
spolecneho s vlakny a jestlize ano jak proceduru upravit.
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
procedure TForm1.AktualizaceDat(Source, Target: String; Gauge: TGauge);
var
S, T: TFileStream;
Rect, Part, Size, Sumar : Integer;
begin
S :=3D TFileStream.Create(Source, fmOpenRead);
T :=3D TFileStream.Create(Target, fmCreate);
Part :=3D 50000;
Size :=3D S.Size;
Gauge.MaxValue :=3D Size;
Gauge.Progress :=3D 0;
Sumar :=3D 0;
repeat
Application.ProcessMessages;
Rect :=3D 0;
try
if Sumar + Part <=3D Size then
Rect :=3D T.CopyFrom(S, Part)
else
Rect :=3D T.CopyFrom(S, Size - Sumar);
except end;
Sumar :=3D Sumar + Rect;
Gauge.Progress :=3D Sumar;
Gauge.Refresh;
until Rect <> Part;
S.Free;
T.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
AktualizaceDat('c:\test.zip','d:\test.zip',Gauge1);
end;
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.456 / Virov=E1 b=E1ze: 256 - datum vyd=E1n=ED: 18.2.2003
jak rozkodovat verzi DLL?
[*] Miroslav Dolecek <dolecek(zv)informatics.muni(tec)cz> - 19.2.2003 15:56:55
Ahoj,
pomoci API GetFileVersionInfo a nasledne VerQueryValue dostanu pointer
na strukturu _VS_FIXEDFILEINFO, odkud chci vycucnout verzi DLL
knihovny. Kdyz si prectu polozky dwFileVersionMS a dwFileVersionLS
dostanu nejake 64-bitove cislo. Prosim jak z toho dostanu neco jako
1.2.3.4?? Z nouze jsem to zkousel rozdelit i na byte = znaky, ale nic :-)
Dik
--
Miroslav Dolecek <dolecek(zv)fi.muni(tec)cz>
jak rozkodovat verzi DLL?
[*] Miroslav Dolecek <dolecek(zv)informatics.muni(tec)cz> - 19.2.2003 16:03:32
> pomoci API GetFileVersionInfo a nasledne VerQueryValue dostanu pointer
> na strukturu _VS_FIXEDFILEINFO, odkud chci vycucnout verzi DLL
> knihovny. Kdyz si prectu polozky dwFileVersionMS a dwFileVersionLS
> dostanu nejake 64-bitove cislo. Prosim jak z toho dostanu neco jako
> 1.2.3.4?? Z nouze jsem to zkousel rozdelit i na byte = znaky, ale nic :-)
Jeste abych upresnil ani tak nepotrebuji primo tu verzi, ale chci
zjistit jestli moje dll je novejsi a podle toho prepsat/neprepsat.
Takze jestli existuje moznost nejakeho porovnani tech dvou 64-bit.
cisel ziskanych od dvou ruznych dll, tak to staci. dik
--
Miroslav Dolecek <dolecek(zv)fi.muni(tec)cz>
jak rozkodovat verzi DLL?
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 19.2.2003 16:05:23
From: "Miroslav Dolecek" <dolecek(zv)informatics.muni(tec)cz>
> 1.2.3.4?? Z nouze jsem to zkousel rozdelit i na byte = znaky, ale nic :-)
4 x byte je jen 32 bitu a ne 64 - jeste se snaz ;-)
HTH, pf
jak rozkodovat verzi DLL?
[*] Richard Siegl <rsiegl(zv)elas.sk> - 19.2.2003 16:47:43
ja pouzivam nieco taketo (funguje aj na EXE) :
function Verzia(const Filename: string):string;
var dwHandle: THandle;
dwSize: DWORD;
lpData, lpData2: Pointer;
uiSize: UINT;
begin
Result := '';
dwSize := GetFileVersionInfoSize(PChar(FileName), dwSize);
if dwSize <> 0 then
begin
GetMem(lpData, dwSize);
dwhandle := 0;
if GetFileVersionInfo(PChar(FileName), dwHandle, dwSize,
lpData) then
begin
uiSize := Sizeof(TVSFixedFileInfo);
VerQueryValue(lpData, '\', lpData2, uiSize);
with PVSFixedFileInfo(lpData2)^ do
if dwFileFlags = VS_FF_PRIVATEBUILD then
Result := Format('%d.%02d',
[HiWord(dwProductVersionMS), LoWord(dwProductVersionMS)]) + 'Alfa version'
else
Result := Format('%d.%02d',
[HiWord(dwProductVersionMS), LoWord(dwProductVersionMS)]);
end;
FreeMem(lpData, dwSize);
end;
end;
----- Original Message -----
From: "Miroslav Dolecek" <dolecek(zv)informatics.muni(tec)cz>
To: "Konference Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, February 19, 2003 4:03 PM
Subject: Re: jak rozkodovat verzi DLL?> > pomoci API GetFileVersionInfo a nasledne VerQueryValue dostanu pointer
> > na strukturu _VS_FIXEDFILEINFO, odkud chci vycucnout verzi DLL
> > knihovny. Kdyz si prectu polozky dwFileVersionMS a dwFileVersionLS
> > dostanu nejake 64-bitove cislo. Prosim jak z toho dostanu neco jako
> > 1.2.3.4?? Z nouze jsem to zkousel rozdelit i na byte = znaky, ale nic
:-)
>
TurboPower FlashFiler
[*] likeapear <likeapear(zv)centrum(tec)cz> - 19.2.2003 17:11:18
ano presel, je volne ke stazeni na sourceforge.net
||| likeapear
> nevite nekdo jak je to se samotnym FlashFilerem, s jeho vyvojem atd.
Presel
> tez po OpenSource?
Jak na vlastnosti?
[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 19.2.2003 18:13:27
Ahoj Konference,
potreboval bych opet poradit jak udelat knihovnu (dll)
tak aby se mi zobrazila ve vlastnostech kdy=9E si ji vyvolam treba k
nejakemu souboru mp3
vim jak se jmenuji ty funkce ktere je zapotrebi volat ale nevim jak je
volat(nebo spis co se pod nima skryva)
(dllCanUnloadNow;DllGetClassObject)
Prosim poradte.
--=20
Jiri Betunak
mailto:kindrik(zv)centrum(tec)cz
jak rozkodovat verzi DLL?
[*] Miroslav Dolecek <dolecek(zv)informatics.muni(tec)cz> - 19.2.2003 18:31:26
Petr Fejfar wrote:
> 4 x byte je jen 32 bitu a ne 64 - jeste se snaz ;-)
moc nechapu na co narazis. To cislo 1.2.3.4 bylo demonstracni, nepsal
jsem, ze verze dll obsahuje prave 4 znaky.
--
Miroslav Dolecek <dolecek(zv)fi.muni(tec)cz>
jak rozkodovat verzi DLL?
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 19.2.2003 18:45:22
From: "Miroslav Dolecek" <dolecek(zv)informatics.muni(tec)cz>
> moc nechapu na co narazis. To cislo 1.2.3.4 bylo demonstracni, nepsal
> jsem, ze verze dll obsahuje prave 4 znaky.
:-OOO
Psal jsi, zes zkousel ze zoufalosti rozdelit tech 64 bitu na byty
a to Ti neslo.
Ja jsem se Ti snazil napovedet, ze rozdelit na byty je malo, kdyz se verze
sklada ze 4 cisel Major.Minor.Release.Build, protoze 4 cisla po 8 bitech
je jen 32 bitu.
Takze to budes muset rozdelit na neco vetsiho nez je byte, nejsis na slovo,
protoze 4x16=64. Jeste Ti napovim, ze Major je MSW.
HTH, pf
jak rozkodovat verzi DLL?
[*] Miroslav Dolecek <dolecek(zv)informatics.muni(tec)cz> - 19.2.2003 19:07:24
Petr Fejfar wrote:
> Psal jsi, zes zkousel ze zoufalosti rozdelit tech 64 bitu na byty
> a to Ti neslo.
> Ja jsem se Ti snazil napovedet, ze rozdelit na byty je malo, kdyz se verze
> sklada ze 4 cisel Major.Minor.Release.Build, protoze 4 cisla po 8 bitech
> je jen 32 bitu.
> Takze to budes muset rozdelit na neco vetsiho nez je byte, nejsis na slovo,
> protoze 4x16=64. Jeste Ti napovim, ze Major je MSW.
OK, fajn, ja myslel, ze ta verze muze obsahovat i pismena. Proto jsem
to zkousel rozdelit na 8 byte(po znacich), jestli z toho vyleze neco
smysluplneho. A Tvoji rekci jsem pochopil tak, ze si ze mne delas
legraci, ze nevim kolik ma byte bitu :-). Kadpopadne dik.
--
Miroslav Dolecek <dolecek(zv)fi.muni(tec)cz>
jak rozkodovat verzi DLL?
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 19.2.2003 20:31:39
From: "Miroslav Dolecek" <dolecek(zv)informatics.muni(tec)cz>
> Takze jestli existuje moznost nejakeho porovnani tech dvou 64-bit.
> cisel ziskanych od dvou ruznych dll, tak to staci. dik
Muzes to normalne porovnat jako dve cisla typu int64, protoze ten format je
Major*65536^3 + Minor*65536^2 + Release*65536^1 + Build
HTH, pf
WebBrowser a ziskanie www source
[*] MUDr. Patrik VALENTA <valentapat(zv)volny(tec)cz> - 19.2.2003 23:55:09
----- Original Message -----
> .... nacitat zdrojovy kod
> zobrazenej www stranky napr. do txt suboru. Ide to nejako urobit ?
docela dobre funguje komponenta NMHTTP
NMHTTP1.Get('http://www.stranka.php?id=1');
memo1.Text:=NMHTTP1.Body;
Vyhledavani textu v MS Word a XP
[*] Pavel Gazda <pavel_gazda(zv)dataint(tec)cz> - 20.2.2003 07:55:13
Zdravim
pro vyhledani textu v dokumentu MS WORD pouzivam funkce
Application.Selection.Find.Execute( ...)
Application.Selection.Find.ExecuteOld( ...)
( pripojen k MS Wordu jsem pomoci TWordApplication a TWordDocument ).
Ted se objevil problem, kdy vyhledani textu nefunguje pri konfiguraci:
WinXP, MS OFFICE XP - SP2
Nesetkal se nekdo s timto problemem ?
Pritom ostatni funkce, ktere pouzivam (napr vyhledani zalozky) funguji bez
problemu.
Pokousel jsem se problem odladit, nainstaloval jsem WinXP, MS Office XP (pak
jsem
pridal i SP1 a SP2 a nic - problem se neprojevil, tak nemam moznost problem
odladit.
Diky za kazdou dobrou radu.
Pavel
placeny amater
IB/FB + vlakna - pouziti pri IBQuery.Open
[*] <js-delphi(zv)quick(tec)cz> - 20.2.2003 08:14:20
Ahoj.
Chci si jen overit zda metoda, ktera me napada,
je vhodna.
V FB databazi mam tabulky: Osoba, Adresa, Okres,
Kraj...
Alikaci mam zalozenou na zalozkach. Jedna ze
zalozek je Bydliste.
Mam na ni nejake Edity a DBGrid (readonly). V
tab. Osoba mam ulozeno Adresa.id.
Pres toto id jsem schopen dohledat konkretni
obec, cast obce, psc atd. V tab Adresa me mecuje
na tab. Okres a Kraj.
V obcich je cca 15.500 obci.
Problem:
kdyz se presouvam na zalozku Bydliste, pri cekani
na vysledek aplikace zatuha (cca 2-3 s). V tab.
Adresa mam indexy nad id.
Problem jsem nevyresil a tak jsem uvazoval o
vytvoreni vlakna, aby to cekani nebylo
tak "okate".
Chci se zeptat zda mi to bude chodit, kdyz si
vytvorim vlakno, ve kterem provedu jen
ciste "IBQuery.Open". Staci do Execute toho
vlakna dat tohle a docilit toho, ze mi aplikace
pri cekani na vysledek nezatuhne?
Diky za odpovedi.
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater
IB/FB + vlakna - pouziti pri IBQuery.Open
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 20.2.2003 09:09:48
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of js-delphi(zv)quick(tec)cz
> Sent: Thursday, February 20, 2003 8:14 AM
> To: konference delphi
> Subject: IB/FB + vlakna - pouziti pri IBQuery.Open
>
>
> Ahoj.
> Chci si jen overit zda metoda, ktera me napada,
> je vhodna.
Neni, protoze kazde vlakno musi mit sve pripojeni...
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
=====================================
GSM: 602 652 203
IB/FB + vlakna - pouziti pri IBQuery.Open
[*] <js-delphi(zv)quick(tec)cz> - 20.2.2003 09:44:35
hmm=2C duvodu nerozumim=2C nemohl bys mi to=2C prosim=2C =
vysvetlit trochu vic (=22trotl und idioten sicher=22)=3F
Ja myslel=2C ze vlakno necham bezet jen po dobu =
provadeni vyhodnoceni SQL=2E Pak ho ukoncim =
(vlakno) a ve IBQuery budu mit hotovy vysledek=2E
V cem je chyba=3F
Ve vlaknu se nemuzu odkazat na =
DataModul=2EIBQuery =3F=3F
Promin=2C ze jsem natvrdly=2E=2E=2E =3Bo)
Jirka
--------------------------------------------------
Ing=2E Jiri Sokol=3B jiri=2Esokol=40seznam=2Ecz=3B 972 231 187
D6Prof+SP2=3B WinNT
programator amater
----- P=F9vodn=ED zpr=E1va -----
Od=3A Pavel Malinsky =3Cspiderland=40iol=2Ecz=3E
Datum=3A =E8tvrtek=2C 20=2E =FAnora 2003 v 9=3A09 dop=2E
P=F8edm=ECt=3A RE=3A IB/FB + vlakna - pouziti pri =
IBQuery=2EOpen
=3E =3E Chci si jen overit zda metoda=2C ktera me =
=3E =3E napada=2C je vhodna=2E
=3E =
=3E Neni=2C protoze kazde vlakno musi mit sve =
=3E pripojeni=2E=2E=2E
=3E S pozdravem a dikem
=3E =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3E =3E Pavel Malinsky=3B spiderland=40iol=2Ecz =3C
=3E =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3E GSM=3A 602 652 203
Neznama struktura souboru
[*] Ing. Jiri Kubicek <kubicek(zv)etatherm(tec)cz> - 20.2.2003 10:21:48
Mam pascalsky typovy soubor *.DAT - record s neznamou strukturou. Mam
sanci rozlousknout v rozumnem case polozky recordu? Jiste tuseni o obsahu
polozek mam.
Dik
Jirka
Word - zakaz dotazu na ulozeni
[*] <js-delphi(zv)quick(tec)cz> - 20.2.2003 10:39:25
Ahoj.
Poradite mi nekdo, jak udelat viz %subjekt%?
Ja uz to zkousel takhle:
WordApplication.DisplayAlerts:=wdAlertsNone;
ale stejne, kdyz aplikace vytvori novy dokument a
pak ho chce uzivatel zavrit, vzdycky se ho to
zepta, jestli se ma Dokument1 ulozit.
GRRRrrrr!
Da se to nejak zrusit?
Diky
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP2; WinNT
programator amater