Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Lokalni promenne <C> -> <P>
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 14.3.2002 11:13:46
January 23, 2002 Blazek Jaroslav wrote:
> To je presne to proc jsem se ptal, cim v <P> nahradit <C> "static",
> abych nemusel pouzit globalni promennou.
(Sorry, ze reagujem oneskorene, ale takyto mam sklz pri citani konferencie
:-( Na druhej strane to ma vyhodu, ze sa nezapajam do mlatenia prazdnej
slamy, ale iba ked mam skutocne nieco prinosne)
Takze 'static' je v C pozostatok z doby, ked este neboli objekty. V dobe
objektov sa jeho funkcnost dosahuje tak, ze instancia objektu ma privatnu
property.
Cize na otazku 'cim nahradit static' odpovedam: Static sa nenahradza. Static
sa nepouziva.
Bye
V.Mlich http://www.rar(tec)cz
Import z txt do db - spatna znakova sada
[*] Kinsky Filip <xkinf01(zv)vse(tec)cz> - 14.3.2002 11:24:47
s tim sem mel taky problemy... pokud nepomuze prekodovani do
dany kodovy stranky, tak mi stacilo vygenerovat si soubor s
SQL INSERT INTO TABX (a,b,c...) VALUES (...)
Filip Kinsky
On Thu, 14 Mar 2002 10:03:32 +0100
"Skokosek" <skokosek(zv)seznam(tec)cz> wrote:
> Ahoj,
> po importu dat z txt souboru do tabulky db (langdriver
> Paradox Czech 852)
> pomoci tbatchmove se mi ve vysledne tabulce spatne
> zobrazi ceske znaky.
> Zkousel jsem tabulku (zatim rucne) prevest do jinych
> langdriveru, ale
> problem zustava.
>
> Nevite nekdo, kde je chyba ?
>
> Lada (D3)
> LangDriver po 3.
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 14.3.2002 11:32:06
Ahoj.
Ja vim, ze uz asi otravuju, ale ja tomu proste nerozumim.
Muzete mi, prosim, pomoct a vysvetlit mi nasledujici problem??
Pouzivam Table, Query, Datasource, 2x DBGird (v jednom pomoci Table zobrazim tabulku
serazenou podle primarniho indexu a ve druhym CHCI /zatim marne/ zobrazit tu tab.
serazenou podle abecedy - pouziju sql prikaz /coz udela, ale hacky a carky to
vyhodi az nakonec/)
Jeste chci dodat, ze pri vytvareni ty tabulky jsem nastavil "Table Language" na
"dBASE CSY cp852".
Ptal jsem se tady, jak problem resit. Bylo mne razeno, abych zmenil LangDriver na
"Pdox ANSI Czech". Zkousel jsem to vsemi moznymi zpusoby a pomoci BDE Administratoru
jsem si overoval, ze zmeny opravdu probehly. JENZE na vysledku se nic nezmenilo.
Pak jsem dostal tip na zmenu registru:
'\Software\Borland\Database Engine\Settings\DRIVERS\PARADOX\INIT'
taky to probehne uspesne, ale vysledek se opet neprojevil. (na serazeni tab.)
Jediny, kdy se zmena projevila, bylo pouzit bud DB Desktop a Restruture-ovat tabulku, jeji
Table language na "Pdox ANSI Czech", nebo proceduru Petra Vonese, ktera udela tu
restrukturizaci misto DB Desktopu.
To by sice slo, ale ta procedura vyzaduje master password a uzivatele znaji jen odvozeny
password. Cili ... i toto je pro me nepouzitelne. Jedine reseni by bylo zadat heslo primo
v kodu, ale mam obavy, ze tak by se k nemu pomoci disassembleru mohl dostat kazdy.
Co vy na to??
Muzete mi nekdo tedy rict, jestli jedina cesta, jak seradit tabulku vcetne cestiny, je predelat
Table language na "Pdox ..." ??? Nebo existuje i jina cesta??
Diky za vas cas.
Jirka
______________________________________________________________________
Mobilni pripojeni k internetu s GPRS> Vzdy pripojen. Jeden klik a jste v tom: http://ad2.seznam(tec)cz/redir.cgi?instance=24389%26url=http://www.gprsforum(tec)cz
Kresleni na Canvas formulare z vlastni komponenty
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 14.3.2002 11:35:22
> From: Vagner Pavel
>
> Mam odvozeneho potomka od TGraphicConrol ktery
> predstavuje znacku a na jeho canvas se maluje.
> V momente kdyz ten motiv namaluju na platno
> formulare, tak se to tam nenamaluje
> a dela se to stale na canvas komponenty.
Podle mne se to normalne na Canvas Formu
nakresli, ale nasledujici Invalidate Formu
to prekresli.
Zkus si udelat toto:
- v procedure DrawToC zmenit Brush.Color:=clRed;
- do procedury TForm1.FormMouseUp
pridej na posledni radek Sleep(500);
a uvidis, co se bude dit.
Podobne jako na Canvas komponenty,
musis i na Canvas Formu kreslit
v procedure Paint, nebo OnPaint.
Vaclav Krmela
Import z txt do db - spatna znakova sada
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 14.3.2002 11:41:47
Ahoj!
Momentalne me trapi podobny problem a prisel jsem na to, ze nestaci "jen"
menit langdriver, ale primo se musi menit Table language na "Pdox ANSI Czech"
a pak jsem uz problemy s cestinou nemel. Podotykam, ze jsem zkousel vsechny mozne,
co mely v nazvu cestinu, ale jediny tenhle mi bezel korektne!!!
To udelas pomoci DB Desktopu a nebo pomoci procedury, kterou zverejnil Petr Vones
v Konferenci Delphi. Zapomnel jsem odkaz, tak posilam JEHO kod:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, BDE, DB, DBTables, Grids, DBGrids;
type
TForm1 = class(TForm)
Table1: TTable;
ListBox1: TListBox;
Button1: TButton;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
procedure BuildLangList;
procedure ChangeTableLanguage(Table: TTable; const LangDriverName: String);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
const
Delimiter = '|';
procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.Exclusive := True;
Table1.Open;
BuildLangList;
end;
procedure TForm1.BuildLangList;
var
hCur: hDBICur;
LD: LDDesc;
begin
Check(DbiOpenLdList(hCur));
try
with ListBox1 do
begin
Sorted := True;
Items.Clear;
while DbiGetNextRecord(hCur, dbiNOLOCK, (zv)LD, nil) = DBIERR_NONE do
Items.Add(Format('%s %s %s', [LD.szDesc, Delimiter, LD.szName]));
end;
finally
Check(DbiCloseCursor(hCur));
end;
end;
procedure TForm1.ChangeTableLanguage(Table: TTable; const LangDriverName: String);
var
hDb: hDBIDb;
TblDesc: CRTblDesc;
Props: CurProps;
pFDesc: FLDDesc;
begin
if not (Table.Active and Table.Exclusive) then
raise EDatabaseError.Create('Table must be opened Exclusive');
Check(DbiGetCursorProps(Table.Handle, Props));
if Props.szTableType <> szPARADOX then
raise EDatabaseError.Create('Table must be of type PARADOX');
Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
Table.Close;
FillChar(TblDesc, SizeOf(TblDesc), #0);
StrPCopy(TblDesc.szTblName, Table.Tablename);
StrCopy(TblDesc.szTblType, szParadox);
FillChar(pFDesc, Sizeof(pFDesc), 0);
StrPCopy(pFDesc.szName, 'LANGDRIVER');
pFDesc.iLen := Length(LangDriverName) + 1;
TblDesc.iOptParams := 1;
TblDesc.pFldOptParams := (zv)pFDesc;
TblDesc.pOptData := (zv)LangDriverName[1];
try
Check(DbiDoRestructure(hDb, 1, (zv)TblDesc, nil, nil, nil, False));
finally
Table.Open;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Lang: String;
begin
Lang := ListBox1.Items[ListBox1.ItemIndex];
Lang := Trim(Copy(Lang, Pos(Delimiter, Lang) + 1, 31));
ChangeTableLanguage(Table1, Lang);
end;
end.
Hodne zdaru, uz se s tim trapim nekolik dnu.
Jirka
> Ahoj,
> po importu dat z txt souboru do tabulky db (langdriver Paradox Czech 852)
> pomoci tbatchmove se mi ve vysledne tabulce spatne zobrazi ceske znaky.
> Zkousel jsem tabulku (zatim rucne) prevest do jinych langdriveru, ale
> problem zustava.
>
> Nevite nekdo, kde je chyba ?
>
> Lada (D3)
>
>
______________________________________________________________________
GEnialni pratele. Plna penezenka. Na http://www.genius(tec)cz.Jeste jednou LangDriver
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 14.3.2002 11:50:52
> Omlouvam se,
>
> ale asi jsem uplny trotl!! Uz jsem se vas tady ptal, jak programove
> zmenim LangDriver u Paradoxove tab. Reseni se mi sesli 3.
> Vsechny jsou f-cni, ale ja nechapu, ze se neprojevi vysledek!!!
>
> Dle meho skromneho nazoru,(nevidel jsem ty ukazky) pokud pouzijes session,
> to plati pro dannou session-pripojeni(jak nazev napovida),projevilo by se ti
> to kdybys dannou tabulku (allias) hned po spojeni nasledne creatoval.
> Nemylim se, chlapci? Treba to bude chybka v tom.
> Ales Pavel
> D5 Ent W2000
>
OK, to bude asi cesta, ale priznam se, ze bych to potreboval trochu nazorneji.
Jak mam po spojeni nasledne cretovat?
Mysli se tim Table.create?
Neprijdu nahodou o data ulozeny v ty tabulce?
Nebude to chtit master password?? (uzivatel ho nezna, zna jen odvozeny)
Diky Jirka
______________________________________________________________________
Jste casto v minusu? Nevadi, pokud jste GEnius. http://www.genius(tec)cz
Jak pomoci API killnout
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 14.3.2002 12:11:43
> Jak se pomoci API killne aplikace pod Win95 i WinNT
> ?
>
> ______________________________________________________________________
> Cim vice pratel, tim vice penez! http://www.genius(tec)cz
>
Ahoj,
problem musis resit pomoci posilani zprav. Zkus tyhle:
SendMessage(WHandle, WM_CLOSE, 0, 0);
nebo
SendMessage(WHandle,WM_SYSCOMMAND,SC_CLOSE,0);
WHandle=handle okna, ktere chces zavrit. Pokud ho nevis, da se zjistit
pomoci API f-ce FindWindow();.
Problemy Ti nastanou v pripade, ze budes chtit zavirat InternetExplorer,
protoze ten casto pri zavirani vyhodi hlasku "doslo k chybe, chcete ladit?"
a pak ho nezavres, dokud tomu oknu(dotazu) nedosles "NE". A to byl uz problem.
Ahoj,
Jirka
______________________________________________________________________
Mobilni pripojeni k internetu s GPRS> Vzdy pripojen. Jeden klik a jste v tom: http://ad2.seznam(tec)cz/redir.cgi?instance=24389%26url=http://www.gprsforum(tec)cz
Jak pouzit SC_NEXTWINDOW
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 14.3.2002 12:16:45
> Potreboval bych pomoci API prepnout na dalsi aplikaci pomoci
> SC_NEXTWINDOW a SC_PREVWINDOW, protoze klavesy ALT+TAB (simulace)
> pouzit nemohu. Ovsem ale pri pouziti techto API se dostanu nekam
> mimo, abych se dostal zpet, musim nekolikrat stisknout ALT+TAB
> (rucne). Zda se mi, ze se to prepina na neviditelne procesy. Nevite
> jak na to, aby to fungovalo jako normalni ALT+TAB ? Dik
> DKx.
>
> ______________________________________________________________________
> Mobilni pripojeni k internetu s GPRS> Vzdy pripojen. Jeden klik a jste v tom: http://ad2.seznam(tec)cz/redir.cgi?instance=24389%26url=http://www.gprsforum(tec)cz
>
Ahoj,
tohle jsou jen domenky, ale myslim si, ze vsechno co bezi, nebo je videt je
pro system "okno". Proto, kdyz das prepnout na dalsi okno, muzes se presunout
ne na aplikaci, ale treba na tlacitko, nebo treba jen na nejaky proces, ktery
neni videt.
Proto bych doporucoval, udelat si seznam Handlu bezicich aplikaci a mezi nimi bych
se prepinal zase pomoci posilani zprav.
Jirka
______________________________________________________________________
Ovladejte sve penize GEnialne a bez omezeni! http://www.genius(tec)cz
LangDriver po 3.
[*] Otisk Rene <otisk(zv)misel(tec)cz> - 14.3.2002 12:26:42
...to ami nemusi pouzit disassembleru. Paradox ma univerzalni hesloala Back
Door a o bezpecnosti se u paradoxu moc neda mluvit...
Sroub
To by sice slo, ale ta procedura vyzaduje master password a uzivatele znaji
jen odvozeny
password. Cili ... i toto je pro me nepouzitelne. Jedine reseni by bylo
zadat heslo primo
v kodu, ale mam obavy, ze tak by se k nemu pomoci disassembleru mohl dostat
kazdy.
Co vy na to??
Muzete mi nekdo tedy rict, jestli jedina cesta, jak seradit tabulku vcetne
cestiny, je predelat
Table language na "Pdox ..." ??? Nebo existuje i jina cesta??
Diky za vas cas.
Jirka
______________________________________________________________________
Mobilni pripojeni k internetu s GPRS> Vzdy pripojen. Jeden klik a jste v
tom:
http://ad2.seznam(tec)cz/redir.cgi?instance=24389%26url=http://www.gprsforum(tec)cz
Jak pomoci API killnout
[*] Prokopec M. <prokopec(zv)algo-hk(tec)cz> - 14.3.2002 12:34:47
> Jak se pomoci API killne aplikace pod Win95 i WinNT
> ?
>
Napriklad takto:
program StopSrv;
uses Windows, Messages, SysUtils;
var Wnd: HWND;
ProcId: DWORD;
hProcess: THandle;
begin
if LowerCase(ParamStr(1))<>'stop' then Exit;
Wnd := FindWindow(PChar('IB_Guard'), nil {PChar('InterBase Guardian')});
if Wnd<>0 then begin
GetWindowThreadProcessId(Wnd, (zv)ProcId);
hProcess := OpenProcess(PROCESS_TERMINATE,false,ProcId);
PostMessage(Wnd, WM_QUIT, 0, 0);
// if not TerminateProcess(hProcess,0) then Err -> is not clean
WaitForSingleObject(hProcess, INFINITE);
end;
Wnd := FindWindow(PChar('IB_Server'), nil {PChar('InterBase Server')});
if Wnd<>0 then begin
GetWindowThreadProcessId(Wnd, (zv)ProcId);
hProcess := OpenProcess(PROCESS_TERMINATE,false,ProcId);
PostMessage(Wnd, WM_QUIT, 0, 0);
// if not TerminateProcess(hProcess,0) then Err -> is not clean
WaitForSingleObject(hProcess, INFINITE);
end;
end.
Ahojki MiP
Jak precist/dekodovat SMS
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 14.3.2002 12:47:16
http://www.dreamfabric.com/sms/
dekuji PeC(zv)Jak pomoci API killnout
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 14.3.2002 13:00:24
PostMessage(Handle, WM_QUIT, 0, 0);
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
----- Original Message -----
From: "Ing. Jiri SOKOL" <JS-delphi(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, March 14, 2002 12:11 PM
Subject: Re: Jak pomoci API killnout
> Jak se pomoci API killne aplikace pod Win95 i WinNT
> ?
>
> ______________________________________________________________________
> Cim vice pratel, tim vice penez! http://www.genius(tec)cz
>
Ahoj,
problem musis resit pomoci posilani zprav. Zkus tyhle:
SendMessage(WHandle, WM_CLOSE, 0, 0);
nebo
SendMessage(WHandle,WM_SYSCOMMAND,SC_CLOSE,0);
WHandle=handle okna, ktere chces zavrit. Pokud ho nevis, da se zjistit
pomoci API f-ce FindWindow();.
Problemy Ti nastanou v pripade, ze budes chtit zavirat InternetExplorer,
protoze ten casto pri zavirani vyhodi hlasku "doslo k chybe, chcete ladit?"
a pak ho nezavres, dokud tomu oknu(dotazu) nedosles "NE". A to byl uz
problem.
Ahoj,
Jirka
______________________________________________________________________
Mobilni pripojeni k internetu s GPRS> Vzdy pripojen. Jeden klik a jste v
tom:
http://ad2.seznam(tec)cz/redir.cgi?instance=24389%26url=http://www.gprsforum(tec)cz
Outlook msg -> stream
[*] Milan Tomes <milan.tomes(zv)haida(tec)cz> - 14.3.2002 13:20:03
A proc to delas pres clipboard ?
Ja jsem minuly tyden psal rozsireni outlooku a v nem je jedna ze soucasti
prave ulozeni mailu do souboru ve formatu MSG.
Pokud potrebujes tak se ozvi na muj mail a ja Ti reknu jak na to.
S pozdravem
Milan Tome�
mailto:Milan.Tomes(zv)haida(tec)cz
> Znate prosim nekdo nejaky elegantni zpusob jak ulozit z
> clipboardu postovni
> zpravu z outlooku do nejakeho streamu ve formatu .msg?Outlook msg -> stream
[*] Stevl�k Mari�n <Marian.Stevlik(zv)merlin(tec)cz> - 14.3.2002 13:22:37
Znate prosim nekdo nejaky elegantni zpusob jak ulozit z clipboardu postovni
zpravu z outlooku do nejakeho streamu ve formatu .msg?
Stevlik Marian
Software Development Specialist
MERLIN
Stefanikova 32
150 00 Prague 5
Czech Republic
e-mail: marian.stevlik(zv)merlin(tec)cz
tel: +420241010111 (177)
mobil: +420724296616
icq: 38493645
Lokalni promenne <C> -> <P>
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 14.3.2002 13:23:46
Ahoj,
> Takze 'static' je v C pozostatok z doby, ked este neboli objekty.
toto nemyslis vazne....????
> V dobe objektov sa jeho funkcnost dosahuje tak, ze instancia objektu ma privatnu
>property.
ano necha se, ale pokud chces mit treba nejakou promennou pro vsechny instance stejneho typu objektu
pouzijes statickou vlastnost nebo metodu
nedavno jsme o tom mluvili i na www.builder(tec)cz
http://forum.builder(tec)cz/read.php?f=23&i=1819&t=1798
> Cize na otazku 'cim nahradit static' odpovedam: Static sa nenahradza. Static
> sa nepouziva.
Otazka nazoru, v Delphi se to opravdu asi nepouziva.....
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ : 133673990
+420605/813644
Undeclared identifier:'Canvas'
[*] Igor Svetl�k <igor.svetlik(zv)statistics.sk> - 14.3.2002 13:28:38
Zdravim Vas,
prepacte mi, som len beginner a pri spusteni nizsie uvedeneho programu mi
hlasi tieto chyby:
Warning] Unit1.pas(42): Variable 'MyJPG' might not have been initialized
[Warning] Unit1.pas(43): Variable 'ResStream' might not have been
initialized
[Error] Unit1.pas(40): Undeclared identifier: 'Canvas'
[Fatal Error] jpg.dpr(5): Could not compile used unit 'Unit1.pas'
Ako zadeklarujem identifier Canvas, kde ma byt zadefinovana procedura
LoadJPEGfromEXE ?Subor zdrojov MyPic.RES mam vytvoreny. D5Profi,Win98.
Dakujem za kazdu radu.
Igor.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Jpeg,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton; procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{$R MyPic.RES}
procedure LoadJPEGfromEXE;
var
MyJPG : TJPEGImage; //JPEG object
ResStream : TResourceStream; // Resource Stream object
begin
try
MyJpg :=TJPEGImage.Create;
ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
MyJPG.LoadFromStream(ResStream);
Canvas.Draw(12,12,MyJPG);
finally
MyJPG.Free;
ResStream.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadJPEGfromEXE;
end;
end.OT: OBEX
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 14.3.2002 13:47:15
Zdravim,
tvorim programek pro Ericsson a narazil jsem na OBEX. Zkouseli jste nekdo s
timto protokolem pracovat, eventuelne vite nekdo, ze by existovala uz nejaka
komponenta usnadnujici praci s OBEXem?
Diky
Petr
LangDriver po 3.
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 14.3.2002 13:54:19
Moje zkusenosti s Paradoxem:
1. Table Language - pouzival jsem vzdy paradoxovske drivery s 'CH' (pdx ANSI
Czech 'CH', pdx Czech 852 'CH', pdx Czech 867 'CH'). Jinak jsem mel problemy
s razenim (hlavne s razenim podle 'Ch').
2. Stejny driver jsem pouzil i nastaveni BDE Admin - zalozka Configuration
- Drivers - Native - Paradox - LangDriver
- System - Init - LangDriver
3. Programove jsem se k paradoxovskym tabulkam pripojoval s vlastnim heslem.
Uzivatel mel pro prihlaseni k programu jine heslo. Hesla k tabulkam jsem
daval do Session: Session.AddPassword(<heslo>). Pokud se uzivatel pripojil k
programu, nemusel se obtezovat zadavanim hesla pro otevreni tabulky a ja
mohl mit pro ruzne skupiny tabulek ruzna hesla.
Snad tyto zkusenosti pomuzou.
Martin Ben
PS: S Paradoxem jsem uz dlouho nedelal, takze jsou to jen vzpominky.SQL - existence tabulky
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 14.3.2002 14:04:55
Zalezi na databazi, kterou pouzivas. V Oracle je to takto:
select count(1) from user_tables where table_name = <my_table>
Jmeno tabulky velkymi pismeny.
Martin Ben
> -----Original Message-----
> From: Petr Jansky [mailto:delphi(zv)amzdy(tec)cz]
>
> nevite nekdo, jak zjistit zda existuje tabulka pomoci SQL
Undeclared identifier:'Canvas'
[*] Patrik legath <patrik.legath(zv)florix.de> - 14.3.2002 14:30:43
>>>Ako zadeklarujem identifier Canvas, kde ma byt zadefinovana procedura
>>>LoadJPEGfromEXE ?Subor zdrojov MyPic.RES mam vytvoreny. D5Profi,Win98.
Igor.
Problem [Error] Unit1.pas(40): Undeclared identifier: 'Canvas' je v tom, ze
procedure LoadJPEGfromEXE; nevidis Objekt TForm1 , cize ani Canvas.
Reiesenie 1.
procedure TForm1.LoadJPEGfromEXE;
+ Musis pridat procedure LoadJPEGfromEXE do sekcie private, alebo public TForm1
Riesenie 2 : Procedure predas forma ko parameter
procedure LoadJPEGfromEXE (AForm : TForm);
a potom volas AForm .Canvas...
Riesenie 3 .Form1 je premenna, a tak v funkcii sa dostanes k Cavasu cez
Form1.Canvas // Toto je podla mna najhorsie riesenie
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Jpeg,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{$R MyPic.RES}
procedure LoadJPEGfromEXE;
var
MyJPG : TJPEGImage; //JPEG object
ResStream : TResourceStream; // Resource Stream object
begin
// Timto sa zbavis tich 2 Warningow Variable 'xxx' might not have been initialized
MyJpg :=TJPEGImage.Create;
ResStream := TResourceStream.CreateFromID(HInstance, 1, RT RCDATA);
try
//MyJpg :=TJPEGImage.Create;
//ResStream := TResourceStream.CreateFromID(HInstance, 1, RT RCDATA);
MyJPG.LoadFromStream(ResStream);
Canvas.Draw(12,12,MyJPG);
finally
MyJPG.Free;
ResStream.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadJPEGfromEXE;
end;OT: "Odbornost" nekterych "odborniku"
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 14.3.2002 14:42:06
Dobry den vsichni,
chci se s Vami podelit o jednu skutecnost. Ze statniho rozpoctu jsme
zaplatili cca. 1 miliardu korun firme, ktera vytvorila program pro Cesky
urad zememericky a katastralni. A ted ta nejvetsi stupidita jakou jsem kdy
videl: Identifikatory zaznamu v tabulkach jsou reseny jako NUMBER(30) !!!!!!
Realne se ovsem vyuziva cca. 10 mist a cele toto ID je skladano z nekolika
slozek.
Muze mi prosim nekdo vysvetlit proc zakazku za jednu miliardu dostane bl...,
ktery pravdepodobne nikdy nedelal v tomto oboru ???
S pozdravem
Milan Tome�
mailto:Milan.Tomes(zv)haida(tec)cz
JclSimpleSendMail - asi pro P.Vonese
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 14.3.2002 14:47:47
pouzivam JclSimpleSendMail a ShowDialog mam nastavena na False => email se
odesle prostrednictvim vychoziho uctu.
Je mozne nejak nastavit prostrednictvim ktereho uctu seposta odesle
popripade nastavit vychozi ucet na jiny a po odeslani vratit srav zpet?
Diky
Undeclared identifier:'Canvas'
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 14.3.2002 14:50:02
1) canvas musi byt nejakeho objektu, podle tve procedury on nevi na canvas
ceho to ma namalovat takze napr:
Form1.Canvas.Draw.........
asi bych mozna tu proceduru udelal jako metodu formu
type
TForm1 = class(TForm)
Button1: TButton;
....
private
public
procedure LoadJPEGfromEXE;
end
2) upozorneni ,,might not have been inicialized" se objevuje pri priazovani
praci s objekt. promenymi v blocich try finally, svyho casu to myslim Petr
Vones vysvetloval. Presne nevim.
3) begin
MyJpg :=TJPEGImage.Create;
try
....
cau Pavel
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Jpeg,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton; procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{$R MyPic.RES}
procedure LoadJPEGfromEXE;
var
MyJPG : TJPEGImage; //JPEG object
ResStream : TResourceStream; // Resource Stream object
begin
try
MyJpg :=TJPEGImage.Create;
ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
MyJPG.LoadFromStream(ResStream);
Canvas.Draw(12,12,MyJPG);
finally
MyJPG.Free;
ResStream.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadJPEGfromEXE;
end;
end.
-----Original Message-----
From: Igor Svetl�k [mailto:igor.svetlik(zv)statistics.sk]
Sent: Thursday, March 14, 2002 1:29 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Undeclared identifier:'Canvas'
Zdravim Vas,
prepacte mi, som len beginner a pri spusteni nizsie uvedeneho programu mi
hlasi tieto chyby:
Warning] Unit1.pas(42): Variable 'MyJPG' might not have been initialized
[Warning] Unit1.pas(43): Variable 'ResStream' might not have been
initialized
[Error] Unit1.pas(40): Undeclared identifier: 'Canvas'
[Fatal Error] jpg.dpr(5): Could not compile used unit 'Unit1.pas'
Ako zadeklarujem identifier Canvas, kde ma byt zadefinovana procedura
LoadJPEGfromEXE ?Subor zdrojov MyPic.RES mam vytvoreny. D5Profi,Win98.
Dakujem za kazdu radu.
Igor.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Jpeg,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton; procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{$R MyPic.RES}
procedure LoadJPEGfromEXE;
var
MyJPG : TJPEGImage; //JPEG object
ResStream : TResourceStream; // Resource Stream object
begin
try
MyJpg :=TJPEGImage.Create;
ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
MyJPG.LoadFromStream(ResStream);
Canvas.Draw(12,12,MyJPG);
finally
MyJPG.Free;
ResStream.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadJPEGfromEXE;
end;
end.OT: Faxovy server
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 14.3.2002 14:56:56
Zdravim,
muzete mi nekdo doporucit Faxovy Server pro malou podnikovou sit (20
stanic).
Server pojede na Win2000 a stanice jsou mix Win98, WinME, WinXP.
Robert Plzak
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.336 / Virov� b�ze: 188 - datum vyd�n�: 11.3.2002
PageControl - nastaveni vic parametru nez je videt
[*] Vit Jurasek <delphi(zv)obecpohori(tec)cz> - 14.3.2002 15:00:33
Mam dotaz ke komponente PageControl.
a) jak se da zbavit 3d ramecku okolo karty
b) jak se da zabarvit barva ousek karet a plocha pod ousky. - na ouska jsem prisel, ze to jde pri vlastnim kresleni (custom draw), ale zase jsem tam nedovedl nasimulovat efekt hottrack, abych zjistil, na ktere zalozce je mys a pripadne ji barevne odlisil.
c) chodi umisteni zalozek vlevo (text na vysku) na vsech systemech nebo to je nejaka specialitka poslednich verzi WIN?
Predem diky
VJ
IB Firebird - padani serveru
[*] Rado Benc <bego(zv)pobox.sk> - 14.3.2002 15:08:39
Nazdar,
zatial pricinu netusim, ale skusim sa spytat:
> Pouzivame Firebird RC2 server pod W2K. Vzdy 1x za 1-3 dny server spadne
> (Terminated abnormally) a je restartovan IbGuardianem.
Spadne kedy - pri pripojenych klientoch? Spadne aj ked nie je nikto
pripojeny? Nejake pikosky? :-)
> Navic cas od casu se v logu vyskytne chyba 10 054.
Nemyslim, ze by tam bola spojitost - alebo sa mylim? 10054 je "klasicka"
chyba, ktora znamena, ze spadlo spojenie medzi serverom a klientom a
podla mojich skusenosti by nemala mat s padom servera spojitost.
Pricinou tejto chyby moze byt cokolvek.
---
10054 Connection reset by peer. [NT only]
This can happen if a sockets client (which includes SPX) is actively
sending or receiving data to or from SQL Server, and the network
connection is lost. This error is usually seen in conjunction with
error 17824 when on sockets-based connections. For example, an NT
client using the NWLink SPX transport could be selecting data from
SQL Server, and if the network cable is unplugged from the SQL
Server machine, you will see error 10054.
The client has established stream connection with the server. If
client crashes or a network error occurs (for example, intermediate
router goes down), the server has no way of knowing this, unless it
tries to use send(). In this case send fails with the WSAECONNRESET
error. If the server does not try to send data to a client, the
connection is kept open on the server side for infinite amount of time.
---
> Nema nekdo nejaky napad, co jeste zkusit ?
Pouzivate UDF? Ak ano, ake?
Zadavaju uzivatelia query "rucne"?
FWIW,
Rado
____________________________________
http://www.logofun.pobox.sk - urobte radost svojmu telefonu
Zakaz spustenia urciteho programu
[*] Roland Turcan <rolo(zv)sedas.sk> - 14.3.2002 15:09:49
Ako zakazem spustenie, napr. Internet exporera ?
Roland.PageControl - nastaveni vic parametru nez je videt
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 14.3.2002 15:10:05
Ahoj,
http://www.radekchalupa(tec)cz/tools/clanek_dev.asp?page=developer\cpp_builder\clanky\2001\page_control.htm
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
mailto:jaroslav.blazek(zv)access-it(tec)cz
http://www.access-it(tec)cz
ICQ : 133673990
+420605/813644
konverzia na znaky bez hacikov a ciarok
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 14.3.2002 15:19:52
http://dusek.webz(tec)cz/tips/stripdia.php
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
From: <iturcan(zv)gamo.sk>
Subject: konverzia na znaky bez hacikov a ciarok
> Potreboval by som vyriesit konverziu textu na standardne znaky bez hacikov
> a ciarok.
>
> Ako na to ?
>
> Ivan
konverzia na znaky bez hacikov a ciarok
[*] iturcan(zv)gamo.sk - 14.3.2002 15:19:20
Potreboval by som vyriesit konverziu textu na standardne znaky bez hacikov
a ciarok.
Ako na to ?
Ivan
OT: "Odbornost" nekterych "odborniku"
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 14.3.2002 15:20:32
Nemam s dadavatelem nic spolecneho, ale ze sve praxe vim, ze vypovidajici
indentifikatory (klice, ....) jsou u uzivatelu velmi "oblibeny" a casto
vyzadovany "silou moci" neboz na "prvni pohled kazdy pozna o co jde". Takze
dodavatele si mozna pouze nechteli pridelavat starosti s "lamanim" uzivatelu
a vysvetlovanim proc je toto reseni z technickych duvodu "stupidni".
Priznam se bez muceni ze take ja casto temto tlakum "podlehnu" a zaradim do
tabulky "vypovidajici" identifikator (,ktery se obvykle naprosto stupidne
konstruuje a cca po 1/2 roce prestane "vypovidat"), ale vnitrni vazby v DB
vytvorim z obycejnych, automaticky generovanych ID.
Mozna ze toto reseni je pouzito i zminovaneho projektu?
Ahoj Pavel
Dobry den vsichni,
chci se s Vami podelit o jednu skutecnost. Ze statniho rozpoctu jsme
zaplatili cca. 1 miliardu korun firme, ktera vytvorila program pro Cesky
urad zememericky a katastralni. A ted ta nejvetsi stupidita jakou jsem kdy
videl: Identifikatory zaznamu v tabulkach jsou reseny jako NUMBER(30) !!!!!!
Realne se ovsem vyuziva cca. 10 mist a cele toto ID je skladano z nekolika
slozek.
Muze mi prosim nekdo vysvetlit proc zakazku za jednu miliardu dostane bl...,
ktery pravdepodobne nikdy nedelal v tomto oboru ???
S pozdravem
Milan Tome�
mailto:Milan.Tomes(zv)haida(tec)cz
GetWindowInfo
[*] bardon <bardon(zv)akord-soft(tec)cz> - 14.3.2002 15:35:01
Diky moc, tohle vypada velmi dobre. Mohl bych to skusit nahradit uplne, ale
jsem opatrny a tak jsem udelal jen toto (doufam ze dobre):
1) nadeklaroval jsem si:
type
TMyGetWindowInfo = function (hwnd: HWND; var pwi: TWindowInfo): BOOL;
stdcall;
var
MyGetWindowInfo: TMyGetWindowInfo ;
2) napsal jsem si vlastni funkci
function MyGetWindowInfoPseudo (hwnd: HWND; var pwi: TWindowInfo): BOOL;
stdcall;
begin
FillChar(PWI, SizeOf(PWI), 0);
PWI.dwStyle := GetWindowLong(hwnd, GWL_STYLE);
PWI.dwExStyle := GetWindowLong(hwnd, GWL_EXSTYLE);
end ;
3) tam kde se puvodne pouzivala ta GetWindowInfo jsem to upravil takto:
LHandleDLL := 0 ;
LHandleDLL := LoadLibrary('user32.dll') ; // pripoj�m DLL
if LHandleDLL <> 0 then
begin // pokud jsem DLL pripojil, skusim najit GetWindowInfo
(zv)MyGetWindowInfo :=
GetProcAddress(LHandleDLL, 'GetWindowInfo') ;
end
else
begin // kdyz neni pripojena DLL (coz se asi nestane) pouziju vlastni
funkci
(zv)MyGetWindowInfo := (zv)MyGetWindowInfoPseudo ;
end ;
if (zv)MyGetWindowInfo = nil then // kdyz se nenasla GetWindowInfo, pouziju
vlastni
(zv)MyGetWindowInfo := (zv)MyGetWindowInfoPseudo ;
MyGetWindowInfo(self.Handle, FWindowInfo);
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Vones
Na prvni pohled by mozna stacilo naplnit jen dwStyle a dwExStyle:
var
WI: TWindowInfo;
Handle: HWND;
begin
FillChar(WI, SizeOf(WI), 0);
WI.dwStyle := GetWindowLong(Handle, GWL_STYLE);
WI.dwExStyle := GetWindowLong(Handle, GWL_EXSTYLE);
Petr Vones
"Odbornost" nekterych "odborniku"
[*] Prokopec M. <prokopec(zv)algo-hk(tec)cz> - 14.3.2002 15:52:04
64 bitovej uint umornuje zapis 19-mistneho cisla. 128 bitovej uint umoznuje
zapis 38-mistneho cisla. Nevim na jakym DB stroji to bezi, ale co teda vim
tak je maximum 64 bitovej uint a vyssi hodnoty se vetsinou implementuji jako
BCD - coz vetsinou nepatrne zpomaluje. Pouziti NUMBER(30) je zajimavy
pripad...
MiP
> Dobry den vsichni,
>
> chci se s Vami podelit o jednu skutecnost. Ze statniho rozpoctu jsme
> zaplatili cca. 1 miliardu korun firme, ktera vytvorila program pro Cesky
> urad zememericky a katastralni. A ted ta nejvetsi stupidita jakou jsem kdy
> videl: Identifikatory zaznamu v tabulkach jsou reseny jako NUMBER(30)
!!!!!!
> Realne se ovsem vyuziva cca. 10 mist a cele toto ID je skladano z nekolika
> slozek.
> Muze mi prosim nekdo vysvetlit proc zakazku za jednu miliardu dostane
bl...,
> ktery pravdepodobne nikdy nedelal v tomto oboru ???
>
> S pozdravem
>
> Milan Tome�
konverzia na znaky bez hacikov a ciarok
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 14.3.2002 16:13:39
Neco mam, ale nenapsal jsi pro jakou znakovou sadu.
Mam to Win1250, Kamaniky, Latin2, Rom8, Koi.
Nerucim, ze vsechno funguje, pokud budes mit zajem dej vedet.
Slavek
> Potreboval by som vyriesit konverziu textu na standardne znaky bez hacikov
> a ciarok.
>
>
> Ako na to ?
>
>
> Ivan
> Help & install shield
[*] Miro Kotasek <miro.delphi(zv)seznam(tec)cz> - 14.3.2002 16:21:36
Ahoj,
Hledam utilitu na psani helpu - kdysi byl s D4 vydavany nejaky help
compiler, ale byl dost nepohodlny a je dost stary, neco co dokaze
delat helpy v novem formatu.
A jeste neco co dokaze udelat instalaci. Ale treba i s registraci
databazi pod IB. At nemusim za kazdym uzivakem behat.
Diky. Miro
Kotasek
______________________________________________________________________
To co predtim jeden, mohou nyni dva. Poridte si 2 Oskarty a uzivejte si ve dvou za cenu jednoho.
http://ad2.seznam(tec)cz/redir.cgi?instance=21821%26url=http://www.oskarmobil(tec)cz/cz/products/i_index.htm
IP address
[*] Miro Kotasek <miro.delphi(zv)seznam(tec)cz> - 14.3.2002 16:24:25
Ahoj,
Neznate zpusob jak zjistit programove IP adresu pocitace na kterem
spoustim aplikaci, ale na urcitem zarizeni - predpokladam, ze na
modem mam pridelenou adresu z DHCP serveru, a na ovladaci jedne
sitovky jednu kyzenou a hledanou adresu.
MK.
______________________________________________________________________
Mobilni pripojeni k internetu s GPRS> Vzdy pripojen. Jeden klik a jste v tom: http://ad2.seznam(tec)cz/redir.cgi?instance=24389%26url=http://www.gprsforum(tec)cz
DBF,relace a db komponenty
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 14.3.2002 15:25:40
Zdravim,
mam tabulku zdroju. Ta ma sloupce ID, NAZEV a TYP. Pak mam hlavni tabulku. Do te se prave uklada ID ze zdroju.
Na formulari mam komponentu DBLookupComboBox. Je navazana aby ukazovala NAZEV pomoci ID. Vedle je komponenta DBText, ktera zobrazuje TYP zdroje. Takze kdyz je ZDROJ typu kniha, pak se tam vypise kniha (podle tabulky). Ale kdyz v hlavni tabulce Zdroj neni zadan, pak DBLookupComboBox se chova dobre. Neukaze nic. Ale v DBTextu zustane posledni hodnota. Co s tim?
Predem diky za jakoukoli radu.
S pozdravem
Mirek Drejcek
ftBoolean v IB6
[*] Sebesta Jan <delcomseb(zv)volny(tec)cz> - 14.3.2002 16:39:14
Zdravim,
jak nejlepe vyresit prechod z paradoxu na IB6 v polozce 'ftBoolean' v
paradoxu (True, False).
Jak toto resite v IB6.
Dekuji za pomoc Jan Sebesta
Zakaz spustenia urciteho programu
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 14.3.2002 16:58:48
Roland Turcan dne 14 Mar 2002 v 15:09:
> Ako zakazem spustenie, napr. Internet exporera ?
Pomoci ShellExecuteHook, muzu Ti poslat na soukromy mail zdrojak, ktery to resi. Pokud jen chces,
aby uzivatele nemohli na internet, muzes jim taky schovat ovladaci panely a podstrcit falesny
proxy-server. Vyhoda - intranet muze fungovat.
Karel Rys
OT: "Odbornost" nekterych "odborniku"
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 14.3.2002 17:00:36
On 14 Mar 2002 at 14:42, Milan Tome� wrote:
> Cesky urad zememericky a katastralni. A ted ta nejvetsi stupidita
> jakou jsem kdy videl: Identifikatory zaznamu v tabulkach jsou reseny
> proc zakazku za jednu miliardu dostane bl..., ktery pravdepodobne
> nikdy nedelal v tomto oboru ???
Je to OT takze strucne. Ja bych to tak nedelal, ale mozna k tomu autori meli nejaky
dobry duvod. Neprohlasoval bych je hned kvuli tomu za blbce jen proto, ze nevim
jaky ten duvod byl. Ale s tvurci projektu nemam fakt nic spolecnyho.Z.Kalhous
Re[2]: IB Firebird - padani serveru
[*] Frantisek Augusztin <afsoft(zv)host.sk> - 14.3.2002 17:07:53
> Pouzivame Firebird RC2 server pod W2K. Vzdy 1x za 1-3 dny server spadne
> (Terminated abnormally) a je restartovan IbGuardianem.
Inac vysiel Firebird 1.0 (finalna verzia), skuste sa pozriet, ci tam
takato chyba nebola nahodou opravena.
Frantisek Augusztin
afsoft(zv)host.sk
http://www.afsoft.sk
ADO - Jet - polozka typu Numeric(5.2)
[*] bardon <bardon(zv)akord-soft(tec)cz> - 14.3.2002 17:40:17
Potrebuji vyjimecne vyrobit a naplnit DBF soubor. Nedari se mi ale naplnit
daty polozku datoveho typu Numeric(5.2). Prosim poradte, kde delam chybu.
Takto zakladam tabulku a v pohode mi to prochazi.
lDOXCatalog := TADOXCatalog.Create(self);
lDOXTable := TADOXTable.Create(self);
lDOXColumn := TADOXColumn.Create(self);
LTable := TADODataSet.Create(self) ;
lDOXCatalog.ActiveConnection :=
'Provider=Microsoft.Jet.OLEDB.4.0;Data '+
'Source='+FAdresarExport+';Mode=ReadWrite;'+
'Extended Properties="dBase 5.0;";'+
'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";'+
'Jet OLEDB:Database Password="";'+
'Jet OLEDB:Engine Type=18;Jet OLEDB:Database Locking ';
lDOXTable.CreateNew(LCislo);
lDOXColumn.CreateNew('Pocet', adNumeric, 0);
lDOXColumn.Precision := 5;
lDOXColumn.NumericScale := 2;
lDOXColumn.AppendTo(lDOXTable);
lDOXTable.AppendTo(lDOXCatalog);
lDOXTable.Close ;
Kdyz tu polozku naplnim a pak dam POST, spadne mi to na "Nesoulad datovych
typu". Spadne to az u POST, ne u plneni polozky. Kdyz tam mam polozky jinych
typu, stringove, integerove a pod, tak je plnim v pohode. Dokonce na jinem
miste plnim polozku Numeric(13,4) a plnim ji v pohode.
Zkousel jsem ruzne varianty jak tu polozku plnit, nic neproslo:
with LTable do
begin
DatabaseConnect := lDOXCatalog.ActiveConnection ;
CommandType := ctTable ;
TableName := LCislo ;
try
Open ;
Insert ;
FieldByName('Pocet').AsFloat := 5.0 ;
// FieldByName('Pocet').AsInteger := 5 ;
// FieldByName('Pocet').AsFloat := 5 ;
// FieldByName('Pocet').AsString := '5' ;
Post ;
... atd ...
JclSimpleSendMail - asi pro P.Vonese
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 14.3.2002 17:51:26
From: "Mephisto" <mephisto(zv)akvila(tec)cz>
> pouzivam JclSimpleSendMail a ShowDialog mam nastavena na False => email se
> odesle prostrednictvim vychoziho uctu.
> Je mozne nejak nastavit prostrednictvim ktereho uctu seposta odesle
> popripade nastavit vychozi ucet na jiny a po odeslani vratit srav zpet?
Podivej se na MapiExample.dpr. Je treba nastavit Client connect na Direct a
pak vybrat prislusny klient v Listview vedle.
Petr Vones
IB Firebird - padani serveru
[*] Mirek Junek <mirek.junek(zv)worldonline(tec)cz> - 14.3.2002 18:21:01
> Pouzivame Firebird RC2 server pod W2K. Vzdy 1x za 1-3 dny server spadne
> (Terminated abnormally) a je restartovan IbGuardianem.
Spadne kedy - pri pripojenych klientoch? Spadne aj ked nie je nikto
pripojeny? Nejake pikosky? :-)
### Zatim to vypada, ze to spadne jen v pripade, ze je nekdo pripojeny, ale
i v okamziku, kdy nikdo nesaha na klavesnici (ale neni to 100%)
> Navic cas od casu se v logu vyskytne chyba 10 054.
Nemyslim, ze by tam bola spojitost - alebo sa mylim? 10054 je "klasicka"
chyba, ktora znamena, ze spadlo spojenie medzi serverom a klientom a
podla mojich skusenosti by nemala mat s padom servera spojitost.
Pricinou tejto chyby moze byt cokolvek.
---
10054 Connection reset by peer. [NT only]
This can happen if a sockets client (which includes SPX) is actively
sending or receiving data to or from SQL Server, and the network
connection is lost. This error is usually seen in conjunction with
error 17824 when on sockets-based connections. For example, an NT
client using the NWLink SPX transport could be selecting data from
SQL Server, and if the network cable is unplugged from the SQL
Server machine, you will see error 10054.
The client has established stream connection with the server. If
client crashes or a network error occurs (for example, intermediate
router goes down), the server has no way of knowing this, unless it
tries to use send(). In this case send fails with the WSAECONNRESET
error. If the server does not try to send data to a client, the
connection is kept open on the server side for infinite amount of time.
---
> Nema nekdo nejaky napad, co jeste zkusit ?
Pouzivate UDF? Ak ano, ake?
### Ze stand. udf pouzivame pouze LTRIM a RTRIM, pak tam mame jednu vlastni
UDF na sifrovani pomoci DES3.
Zadavaju uzivatelia query "rucne"?
### Nezadava, vse jede pouze pres aplikace v Delphi.
database - funkce Locate
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 14.3.2002 18:36:39
Zdravim,
potrebuji v Tabulce najit zaznam s ciselnou polozkou, pomoci funkce Locate.
Zjistil jsem, ze pomoci Locate nelze najit zaporne cislo. Podotykam, ze
tabulka je typu FlashFiler2.
Delam neco spatne, nebo to doopravdy nelze.
Diky za pomoc
Pavel
var
i: integer;
begin
with ffTable1 do
begin
i := 10;
if Locate('ID', IntToStr(i), []) then {zaznam najde}
...
i := -10;
if Locate('ID', IntToStr(i), []) then {v zadnem pripade nenajde}
...
end;
----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
Undeclared identifier:'Canvas'
[*] Igor Svetl�k <igor.svetlik(zv)statistics.sk> - 15.3.2002 06:16:56
Zdravim Vas,
prepacte mi, som len beginner a pri spusteni nizsie uvedeneho programu mi
hlasi tieto chyby:
Warning] Unit1.pas(42): Variable 'MyJPG' might not have been initialized
[Warning] Unit1.pas(43): Variable 'ResStream' might not have been
initialized
[Error] Unit1.pas(40): Undeclared identifier: 'Canvas'
[Fatal Error] jpg.dpr(5): Could not compile used unit 'Unit1.pas'
Ako zadeklarujem identifier Canvas, kde ma byt zadefinovana procedura
LoadJPEGfromEXE ?Subor zdrojov MyPic.RES mam vytvoreny. D5Profi,Win98.
Dakujem za kazdu radu.
Igor.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Jpeg,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton; procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{$R MyPic.RES}
procedure LoadJPEGfromEXE;
var
MyJPG : TJPEGImage; //JPEG object
ResStream : TResourceStream; // Resource Stream object
begin
try
MyJpg :=TJPEGImage.Create;
ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
MyJPG.LoadFromStream(ResStream);
Canvas.Draw(12,12,MyJPG);
finally
MyJPG.Free;
ResStream.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadJPEGfromEXE;
end;
end.
ftBoolean v IB6
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 15.3.2002 06:57:48
ahoj,
> Jak toto resite v IB6.
my to resime:
Create domain BoolA As Char(1) Default 'A' Check (upper(Value) in
('A', 'N'));
Create domain BoolN As Char(1) Default 'N' Check (upper(Value) in
('A', 'N'));
v tabulce pak nasledne:
Create table Narok (
Kod VarCh2 NOT NULL,
Nazev VarCh50,
NoDelete BoolN NOT NULL,
Constraint pk_Narok Primary Key (Kod));
nekdo pouziva shortint nebo single pro ulozeni hodnoty 0/1.
je to vec pristupu. v cecku se asi lip zpracuje 0/1.
v delphi to je asi jedno. u charu uzivatel muze zadavat primo A/N.
dekuji PeC(zv)Jak pracovat s obrazky JPG
[*] Roman Netu�il <netusil.roman(zv)vspardubice(tec)cz> - 15.3.2002 07:14:30
Panove,
znovu se na Vas obracim s otazkou jak pracovat s obrazky JPG - ukladat do BLOBu.
Pokud jsem pracoval s obrazky BMP, vse fungovalo perfektne. Data jsem ukladal do tabulky Paradox do pole typu Graphic. Jako databazovou komponentu jsem pouzil TDBImage, to jsem jeste mel Delphi 3.
Nyni mam Delphi 6, kde TImage umi jiz JPG a TDBImage je od neho odvozen.
V Delphi 3 jsem pro natazeni obrazku ve formatu BMP pouzival
TDBImage.Picture.Bitmap.LoadFromFile
Nyni ale obrazek JPG neni bitmapa, takze uvedeny postup nelze pouzit. Jak tedy?
Roman
OT: "Odbornost" nekterych "odborniku"
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 15.3.2002 07:46:41
> Nemam s dadavatelem nic spolecneho, ale ze sve praxe vim, ze vypovidajici
Tak to bud rad :)
> dodavatele si mozna pouze nechteli pridelavat starosti s
> "lamanim" uzivatelu
> a vysvetlovanim proc je toto reseni z technickych duvodu "stupidni".
Omyl - toto ID je pouzito pouze jako interni, protoze pro identifikaci
parcely se pouzivaji uplne jine identifikatory (parcelni cislo, poddeleni,
dil, katastralni uzemi a skupina parcel).
S pozdravem
Milan Tomes
mailto:Milan.Tomes(zv)haida(tec)cz
"Odbornost" nekterych "odborniku"
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 15.3.2002 07:46:41
> zapis 38-mistneho cisla. Nevim na jakym DB stroji to bezi, ale co teda vim
Oracle
S pozdravem
Milan Tomes
mailto:Milan.Tomes(zv)haida(tec)cz
ODBC a FB/IB
[*] Radek Kozubik <kozubik(zv)camo(tec)cz> - 15.3.2002 08:05:06
Zdravim,
nevite nekdo prosim kde bych mohl sehnat ODBC ovladace pro FB/IB ?
Dik Radek
Undeclared identifier:'Canvas'
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 15.3.2002 08:10:45
> Warning] Unit1.pas(42): Variable 'MyJPG' might not have been initialized
> interface
Tenhle radek musi byt PRED try. Dokud se objekt nevytvori, neni ve
finally co rusit.
> MyJpg :=TJPEGImage.Create;
--
______________________________________________________
Karel Kral, vyvojar IT / IT developer
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
ODBC a FB/IB
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 15.3.2002 08:16:55
ahoj,
zacni: http://www.ibphoenix(tec)cz
download, ostatni...
a dostanes se sem:
http://www.ibphoenix.com/ibp_contrib_download.html#INT
dekuji PeC(zv)ODBC a FB/IB
[*] dphi_forum(zv)proces.sk - 15.3.2002 08:19:50
Napriklad aj tu:
http://www.ibphoenix.com/ibp_60_odbc.html
http://www.ibphoenix.com/ibp_contrib_download.html
NORO.
> Zdravim,
> nevite nekdo prosim kde bych mohl sehnat ODBC ovladace pro FB/IB ?
> Dik Radek
ODBC a FB/IB
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 15.3.2002 08:25:25
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Radek Kozubik
>
> Zdravim,
Ahoj,
> nevite nekdo prosim kde bych mohl sehnat ODBC ovladace pro FB/IB ?
Treba tenhle http://www.xtg(tec)cz/ .
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
"Odbornost" nekterych "odborniku"
[*] Marek Eichler <marek.eichler(zv)atlas(tec)cz> - 15.3.2002 08:27:53
Zdravim,
pravdepodobne to bezi na Oracle (95%) a i vzhled cele aplikace je velice
zajimavy :))
S pozdravem Marek Eichler
----- P�vodn� zpr�va -----
Od: "Prokopec M." <prokopec(zv)algo-hk(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl�no: 14. b�ezna 2002 15:52
P�edm�t: Re: "Odbornost" nekterych "odborniku"> 64 bitovej uint umornuje zapis 19-mistneho cisla. 128 bitovej uint
umoznuje
> zapis 38-mistneho cisla. Nevim na jakym DB stroji to bezi, ale co teda vim
> tak je maximum 64 bitovej uint a vyssi hodnoty se vetsinou implementuji
jako
> BCD - coz vetsinou nepatrne zpomaluje. Pouziti NUMBER(30) je zajimavy
> pripad...
> MiP
>"Odbornost" nekterych "odborniku"
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 15.3.2002 08:38:06
No a ja jsem ted zjistil, ze napr i citatel a jmenovatel zlomku, ktery
urcuje vlastnicky podil ma format NUMBER(30).
To uz je do nebe volajici. Skoda, ze se nikde nezminuji o firme, ktera toto
navrhovala.
Asi to zkusim zjistit na prislusnem ministerstvu.
S pozdravem
Milan Tomes
mailto:Milan.Tomes(zv)haida(tec)cz
> Zdravim,
> pravdepodobne to bezi na Oracle (95%) a i vzhled cele aplikace je velice
> zajimavy :))
>
> S pozdravem Marek Eichler
DBF,relace a db komponenty
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 15.3.2002 07:46:47
Zdravim,
mam tabulku zdroju. Ta ma sloupce ID, NAZEV a TYP. Pak mam hlavni tabulku. Do te se prave uklada ID ze zdroju.
Na formulari mam komponentu DBLookupComboBox. Je navazana aby ukazovala NAZEV pomoci ID. Vedle je komponenta DBText, ktera zobrazuje TYP zdroje. Takze kdyz je ZDROJ typu kniha, pak se tam vypise kniha (podle tabulky). Ale kdyz v hlavni tabulce Zdroj neni zadan, pak DBLookupComboBox se chova dobre. Neukaze nic. Ale v DBTextu zustane posledni hodnota. Co s tim?
Predem diky za jakoukoli radu.
S pozdravem
Mirek Drejcek
Dynamicke nacitani DLL
[*] Emresz Tom� <Tomas.Emresz(zv)bsp(tec)cz> - 15.3.2002 08:49:42
Dobry den,
chtel bych se zeptat, potrebuji dynamicky nacitat DLL, viz. priklad:
Mam jednu ISAPI applikaci, ta umoznuje vybrat jednu z dejme tomu 10 dll knihoven,
ktere vzdy obsahuji jednu funkci dejme tomu GetHeader. Potrebuju dynamicke nacitani pomoci LoadLibrary tusim,
protoze nevim, kterou dll si uzivatel zvolil, avsak stale se mi neco nedari. Muzete mi nekdo poradit ? Kdyztak zaslu i kod toho co jsem napsal a nefunguje to.
Jo ukazatel na tu funkci existuje, tzn. dll se otevre, nacte najde funkce a pak to pri volani funkce zkolabuje.
Obe applikace jsou napsany v Delphi.
Tom� Emresz
BSP Group a.s.
Tel.: 02/61218070
email.: tomas.emresz(zv)bsp(tec)cz
Dynamicke nacitani DLL
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 15.3.2002 09:19:50
Zkus se podivat do zdrojaku k IBX, tam je tento mechanismus pouzit.
Jeste se zeptam, co to znamena zkolabuje ?
Bud mas bordel na zasobniku (pocet parametru a zpusob volani MUSI byt shodny), nebo nemas adresu funkce.
Kams ses dosatal trasovanim pres CPU ? Slavek
Mam jednu ISAPI applikaci, ta umoznuje vybrat jednu z dejme tomu 10 dll knihoven,
ktere vzdy obsahuji jednu funkci dejme tomu GetHeader. Potrebuju dynamicke nacitani pomoci LoadLibrary tusim,
protoze nevim, kterou dll si uzivatel zvolil, avsak stale se mi neco nedari.
Dynamicke nacitani DLL
[*] Emresz Tom� <Tomas.Emresz(zv)bsp(tec)cz> - 15.3.2002 09:32:02
Zkolabuje znamena ze browser vrati misto alespon kusu meho kodu hlasky typu applikace zkoncila na adrese ....
Pocet parametru je shodny = 0, jak definuji zpusob volani ?
Tady je zdroj dll.
library DLL1;
function GetHeader : String; safecall;
begin
result := 'Dynamic Library 1';
end;
exports GetHeader name 'GetHeader';
begin
end.
Tady jsou tri funkce ktere pouzivam pro dll
LoadLibrary nacte library a dosadi (zatim jednu) adresu.
GetHeader je volani primo jedne funkce z dll
Freelibrary uvolni handle
type
TGetHeader = function : String;
var GetHeaderDll : TGetHeader;
function GetHeader : String;
begin
result := '';
if (zv)GetHeaderDll <> nil then
begin
result := 'Rad bych zavolal';
try
result := result + GetHeaderDll; // tenhle radek zakomentuji a vse je ok, ale jinak KO
result := result + IntToStr(Integer((zv)GetHeaderDll)); // adresa je porad stejna
except
end;
end else
result := 'GetHeaderDll = nill';
end;
Function LoadDLL(DllName : String) : String;
begin
Handle := LoadLibrary(PChar(DllName));
if Handle <> 0 then
begin
(zv)GetHeaderDll := GetProcAddress(Handle, 'GetHeader');
result := 'Dll nahrana....';
result := result + #13#10;
result := result + IntToStr(Integer((zv)GetHeaderDll)); //zde se mi vrati nejaka adresa
end else
result := 'Dll nenahrana!!!!';
end;
function FreeDll : String;
begin
if FreeLibrary(Handle) then
result := 'Dll uvolnena....' else result := 'Dll neuvolnena!!!!';
end;
-----Original Message-----
From: Slavomir Skopalik [mailto:skopalik(zv)hlubocky.del(tec)cz]
Sent: Friday, March 15, 2002 9:20 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: RE: Dynamicke nacitani DLL
Zkus se podivat do zdrojaku k IBX, tam je tento mechanismus pouzit.
Jeste se zeptam, co to znamena zkolabuje ?
Bud mas bordel na zasobniku (pocet parametru a zpusob volani MUSI byt shodny), nebo nemas adresu funkce.
Kams ses dosatal trasovanim pres CPU ? Slavek
Mam jednu ISAPI applikaci, ta umoznuje vybrat jednu z dejme tomu 10 dll knihoven,
ktere vzdy obsahuji jednu funkci dejme tomu GetHeader. Potrebuju dynamicke nacitani pomoci LoadLibrary tusim,
protoze nevim, kterou dll si uzivatel zvolil, avsak stale se mi neco nedari.
JclSimpleSendMail - asi pro P.Vonese
[*] Mephisto <mephisto(zv)akvila(tec)cz> - 15.3.2002 09:35:03
1. v JCL ten soubor nemam kde to roste ?
2. "vybrat prislusny klient" nechci vybirat postovniho klienta ale ucet mam
v postovnim klientovi nekolik emailovych adres a jedna je nastavena jako
vychozi a pomoci te se odesle email ale ja ho chci odeslat pomoci jineho jak
na to ?> pouzivam JclSimpleSendMail a ShowDialog mam nastavena na False => email se
> odesle prostrednictvim vychoziho uctu.
Podivej se na MapiExample.dpr. Je treba nastavit Client connect na Direct a
pak vybrat prislusny klient v Listview vedle.
Petr Vones
Jak pracovat s obrazky JPG
[*] bardon <bardon(zv)akord-soft(tec)cz> - 15.3.2002 09:35:40
V D5 Pouzivam toto:
{***************************************************************************
**}
procedure TfrmObjDokObr.ZobrazJPEG ;
var LStream: TStream;
LJPEG: TJPEGImage;
LCursor: TCursor ;
begin
If Not adsZaznamy.FieldByName('DATA').IsNull then
begin
LCursor := Screen.Cursor ;
Screen.Cursor := crHourGlass ;
FHlidatZmeny := False ;
LStream:=adsZaznamy.CreateBlobStream(adsZaznamy.FieldByName('DATA'),BmRead);
try
LJpeg:=TJPEGImage.Create;
try
LStream.Position:=0;
LJpeg.LoadFromStream(LStream);
imgData.Picture.Assign(LJPEG);
imgData.Visible:=True;
xbCernoBile.Checked := LJPEG.Grayscale ;
finally
LJpeg.Free;
end ;
laVelikost.Caption := Format( sVelikostObrazu,
[Trunc(LStream.Size / 1024)] )
finally
LStream.Free;
FHlidatZmeny := True ;
end;
Screen.Cursor := LCursor ;
end
...
Pro nacitani ze souboru pak toto: procedure NactiJPG ;
var LJPEG: TJPEGImage;
begin
LJpeg:=TJPEGImage.Create;
try
LJpeg.LoadFromFile( AJmenoSouboru );
imgData.Picture.Assign(LJPEG);
imgData.Visible:=True;
finally
LJpeg.Free;
end ;
imgData.Width := imgData.Picture.Width ;
imgData.Height := imgData.Picture.Height ;
imgData.Visible := True ;
end ;
DataType pro NUMERIC
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 15.3.2002 09:36:44
Dobry den,
mam jeden takovy problem. Jaky datovy typ mam v Delphi pouzit pro ulozeni
hodnoty z DB, ktera je typu NUMERIC ?
V podstate je to treba Single, Double atp..., ale problem je v zapornych
cislech. Jak to mate kdo vyresene ?
Chtel bych to ukladat ve stejnem formatu jako je to v IB, ale mam problem s
matematickymi operacemi. Pravdepodobne bych si musel nadeklarovat vlastni
Variant typ...
Udelal jsem si maly test:
do DB jsem vlozil sloupec NUMERIC(10,6) a do nej jsem vlozil
hodnotu -123.123456 a v Delphi jsem po prirazeni do Variantu dostal typ bud
Double nebo Currency, ale desetinna cast je oriznuta na tri mista.
S pozdravem
Milan Tome�
mailto:Milan.Tomes(zv)haida(tec)cz
Dynamicke nacitani DLL
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 15.3.2002 09:46:24
Zapomen na stringy v DLL a delej to pres alokaci pameti, PChar... Koukni jak
se pracuje s retezcema pri volani funkci (Win) API.
Zdenek
----- Original Message -----
From: "Emresz Tom�" <Tomas.Emresz(zv)bsp(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, March 15, 2002 9:32 AM
Subject: RE: Dynamicke nacitani DLL
Zkolabuje znamena ze browser vrati misto alespon kusu meho kodu hlasky typu
applikace zkoncila na adrese ....
Pocet parametru je shodny = 0, jak definuji zpusob volani ?
Tady je zdroj dll.
library DLL1;
function GetHeader : String; safecall;
begin
result := 'Dynamic Library 1';
end;
exports GetHeader name 'GetHeader';
begin
end.
Tady jsou tri funkce ktere pouzivam pro dll
LoadLibrary nacte library a dosadi (zatim jednu) adresu.
GetHeader je volani primo jedne funkce z dll
Freelibrary uvolni handle
type
TGetHeader = function : String;
var GetHeaderDll : TGetHeader;
function GetHeader : String;
begin
result := '';
if (zv)GetHeaderDll <> nil then
begin
result := 'Rad bych zavolal';
try
result := result + GetHeaderDll; // tenhle radek zakomentuji a vse
je ok, ale jinak KO
result := result + IntToStr(Integer((zv)GetHeaderDll)); // adresa je
porad stejna
except
end;
end else
result := 'GetHeaderDll = nill';
end;
Function LoadDLL(DllName : String) : String;
begin
Handle := LoadLibrary(PChar(DllName));
if Handle <> 0 then
begin
(zv)GetHeaderDll := GetProcAddress(Handle, 'GetHeader');
result := 'Dll nahrana....';
result := result + #13#10;
result := result + IntToStr(Integer((zv)GetHeaderDll)); //zde se mi vrati
nejaka adresa
end else
result := 'Dll nenahrana!!!!';
end;
function FreeDll : String;
begin
if FreeLibrary(Handle) then
result := 'Dll uvolnena....' else result := 'Dll neuvolnena!!!!';
end;
-----Original Message-----
From: Slavomir Skopalik [mailto:skopalik(zv)hlubocky.del(tec)cz]
Sent: Friday, March 15, 2002 9:20 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: RE: Dynamicke nacitani DLL
Zkus se podivat do zdrojaku k IBX, tam je tento mechanismus pouzit.
Jeste se zeptam, co to znamena zkolabuje ?
Bud mas bordel na zasobniku (pocet parametru a zpusob volani MUSI byt
shodny), nebo nemas adresu funkce.
Kams ses dosatal trasovanim pres CPU ?
Slavek
Mam jednu ISAPI applikaci, ta umoznuje vybrat jednu z dejme tomu 10 dll
knihoven,
ktere vzdy obsahuji jednu funkci dejme tomu GetHeader. Potrebuju dynamicke
nacitani pomoci LoadLibrary tusim,
protoze nevim, kterou dll si uzivatel zvolil, avsak stale se mi neco nedari.
Undeclared identifier:'Canvas'
[*] <ZPetruj(zv)qgir(tec)cz> - 15.3.2002 09:49:24
> Tenhle radek musi byt PRED try. Dokud se objekt nevytvori, neni ve
> finally co rusit.
>
> > MyJpg :=TJPEGImage.Create;
To podle mne nestaci - pokud by to melo byt opravdu korektne,
tak by tam melo byt try - finally 2x :
MyJpg :=TJPEGImage.Create;
try
ResStream := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
try
MyJPG.LoadFromStream(ResStream);
Form1.Canvas.Draw(12,12,MyJPG);
finally
ResStream.Free;
end;
finally
MyJPG.Free;
end;Dynamicke nacitani DLL
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 15.3.2002 09:53:10
Takze:
1. browser je co (jestli myslis www broser, tak to neni cesta jak ladit
aplikace) ? Proc to nezkusis ladit ? Je to cgi, nebo modul do serveru ?
2. Pro volani dll slouzi stdcall, takze prvni chyba
3.
> type
> TGetHeader = function : String;
tohle zname volani typu register, takze to muselo s[padnou i kdyby
nechtelo.
4. Nove programovaci techniky NIKDY zeskousej ve finalni aplikaci, napis si
mali test, ktery lze dobre ladit a
ktery bude obsahovat pozu to co zkousis.
takze zhruba takto:
function GetHeader : String; stdcall;
begin
result := 'Dynamic Library 1';
end; type
TGetHeader = function : String;stdcall;
Zkus to a dej vedet (zkus to prosim mimo www projekt).
Slavek
Prosim o pocesteni vyrazu
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 15.3.2002 10:09:41
Ahoj!
Prosim o pocesteni vyrazu - jinak jim asi proste neporozumim.
Chapu spojnicovy seznam napr:
type
uk:^ukazatel;
ukazatel=record
hodnota:word;
dalsi:^ukazatel;
end;
...
procedure XY(vstup:uk);
var u:uk;
begin
u^:=vstup^;
u^.hodnota:=0;
...
end;
vim, ze znak ^ slouzi jako pointer, ale nevim, proc se jednou uvadi pred
datovym typem a jednou za nim. Muzete mi nekdo slovy popsat, jaky je mezi
tim rozdil?
Co predstavuje znak (zv)?? Slo by to, prosim, ukazat nazorne co se deje treba
v pameti? (neco jako ze na misto promene se neuklada hodnota, ale adresa,
na ktere se hodnota naleza, atd.)
Proc se to pouziva? Setri to cas? Misto v pameti? Vzdyt ulozit adresu pameti
musi byt stejne slozite jako ulozit rovnou promennou, ne?
Snad se najde nekdo, kdo mi toto dokaze vylozit.
Predem dekuji.
Jirka
______________________________________________________________________
Uz jste videli Ivanu Chylkovou na chmelu?
http://www.starci(tec)cz
Databaze a Memo
[*] Konference <prajz.rumcajs(zv)quick(tec)cz> - 15.3.2002 10:26:38
Zdravim,
zkusil sem nize napovezeno, ale ....
Kod
----------------
function TNKontakt.Kategorie: string;
var
i: Integer;
s: string;
begin
for i := 0 to CheckListBox1.Items.Count - 1 do begin
if CheckListBox1.Checked[i] = True then begin
s := s + CheckListBox1.Items.Strings[i] + #13 + #10;
end;
end;
Result := s;
end;
Table1Kategorie.Value := Kategorie;
Vysledek
----------------------
ErrorTabule s textem:
Cannont access field 'Kategorie' as type Text.
> Ahoj,
> zkusil jsem to v DML Accessu 97 a tento kod normalne pracuje:
> UPDATE Tabulka1
> SET adr = 'Ahoj' + chr$(13) + chr$(10) + Tabulka1.adr
> Tedy az na "$" v nazvu fce stejny jako pro DBF.
> (Sloupec adr je typu Memo)
>
> Pavel
>
>
> Bud to MS Access nebo DBASE IV. Pouzivam oboje ... a prave toto (nize)
nejak
> nejde
>
> > Jaka je to databaze ? S Memo v DBF lze pracovat jako s retezcem tj.
> scitat.
> > Na SQL serverech je to slozitejsi.
> >
> > Pavel
> >
> > Servus vesm.
> > Resim nasledujici problem: mam v databazi pole typu Memo a do toho mema
> > potrebuju pridat radek, neco jako :
> > Memo1.Lines.Add(string);
> > ale pro pole v databazi.
> >
> > Nevite nekdo jak na to?
> >
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.338 / Virov� b�ze: 189 - datum vyd�n�: 14.3.2002
Dynamicke nacitani DLL - vyreseno
[*] Emresz Tom� <Tomas.Emresz(zv)bsp(tec)cz> - 15.3.2002 10:50:38
Testovano v desktop app.
Pomoci stdcall se funkce spusti ale na jejim konci dojde k invalid pointer operation, takze zmena na pchar,
kde uz vse funguje jak ma.. I na webu.
Dekuji
-----Original Message-----
From: Slavomir Skopalik [mailto:skopalik(zv)hlubocky.del(tec)cz]
Sent: Friday, March 15, 2002 9:53 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: RE: Dynamicke nacitani DLL
Takze:
1. browser je co (jestli myslis www broser, tak to neni cesta jak ladit
aplikace) ? Proc to nezkusis ladit ? Je to cgi, nebo modul do serveru ?
2. Pro volani dll slouzi stdcall, takze prvni chyba
3.
> type
> TGetHeader = function : String;
tohle zname volani typu register, takze to muselo s[padnou i kdyby
nechtelo.
4. Nove programovaci techniky NIKDY zeskousej ve finalni aplikaci, napis si
mali test, ktery lze dobre ladit a
ktery bude obsahovat pozu to co zkousis.
takze zhruba takto:
function GetHeader : String; stdcall;
begin
result := 'Dynamic Library 1';
end; type
TGetHeader = function : String;stdcall;
Zkus to a dej vedet (zkus to prosim mimo www projekt).
Slavek
Pristup k databazi
[*] Emresz Tom� <Tomas.Emresz(zv)bsp(tec)cz> - 15.3.2002 10:54:05
Zdravim,
jeste jeden dotaz, jak nejlepe pristupovat do databaze mysql. Pres ADO me to prijde slozitejsi nez napr. v ASP, pres knihovny ktery jsou u mysql (mysql.pas tak nejak) mi prijdou priliz slozite, jde o to ziskavat vicemene textova data, ne blob apod.
Dik
Tom� Emresz
BSP Group a.s.
Tel.: 02/61218070
email.: tomas.emresz(zv)bsp(tec)cz
IBase
[*] Marek Spisak <spishark(zv)post(tec)cz> - 15.3.2002 11:00:26
Zdravim,
pri cteni nekterych clanku o vyvoji InterBase jsem narazil na nejake
nesrovnalosti, rad bych, jestli by mi nekdo z Vas mohl potvrdit/vyvratit
moje zavery.
V soucasne dobe existuje free InterBase, na ktere vsak Borland jiz nepracuje
a je tedy asi odsouzena k zaniku. Dale existuje upravena a vylepsena verze
InterBase, kterou Borland opet vzal pod sva kridla a dela na ni. Ta je vsak
placena. Dale existuje FB, dilo nadsencu Open Source. Predpokladam, ze
prevod mezi temito formaty za chvili jiz nebude mozny pouhym zabackupovanim
a restornutim dat (pokud to jeste jde? pred nedavnou dobou to tak slo).
Pro pripojeni k IBase pouzivam komponenty IBExpress, nevite nekdo o nejakych
problemech s FB?
Diky moc za Vase nazory
Marek Spisak.Prosim o pocesteni vyrazu
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 15.3.2002 11:27:35
> Ahoj!
> Prosim o pocesteni vyrazu - jinak jim asi proste neporozumim.
> Chapu spojnicovy seznam napr:
> type
> uk:^ukazatel;
> ukazatel=record
> hodnota:word;
> dalsi:^ukazatel;
> end;
> ...
>
> procedure XY(vstup:uk);
> var u:uk;
> begin
> u^:=vstup^;
> u^.hodnota:=0;
> ...
> end;
>
> vim, ze znak ^ slouzi jako pointer, ale nevim, proc se jednou uvadi pred
> datovym typem a jednou za nim. Muzete mi nekdo slovy popsat, jaky je mezi
> tim rozdil?
Presne je to reference a dereference.
Pokud mam napr. typ
type
PRec = ^TRec; //Toto deklaruje typ Ukazatel na strukturu TRec
TRec = record
Promenna: integer;
end;
a promennou
var
Rec: PRec;
tak se s tim pracuje takto:
begin
// Musime provest alokaci promenne Rec, protoze sama o sobe je pouze
ukazatelem (DWORD hodnota, ktera ukazuje na misto, kde je umistena vlastni
struktura)
New(Rec);
try
// ted chci priradit hodnotu do promenne "promenna" v alokovanem recordu a
tudiz musim dereferovat ten ukazatel
Rec^.Promenna := 1;
finally
dispose(Rec);
end;
end;
> Co predstavuje znak (zv)?? Slo by to, prosim, ukazat nazorne co se deje treba
> v pameti? (neco jako ze na misto promene se neuklada hodnota, ale adresa,
> na ktere se hodnota naleza, atd.)
IMHO to funguje asi takto:
Znak (zv) rika, ze vysledkem bude adresa promenne.
Pred prirazenim se vlastne zrusi automaticky alokovana promenna a promenne
se priradi adresa toho vyrazu napr.
(zv)MyProc := getProcAddress(......)
udela to, ze adresu promenne MyProc presmeruje na vysledek volani funkce
getProcAddress
> Proc se to pouziva? Setri to cas? Misto v pameti? Vzdyt ulozit
> adresu pameti
> musi byt stejne slozite jako ulozit rovnou promennou, ne?
No IMHO napr. u dynamicky loadovanych DLL nelze zjistit adresu, kam jsou
zavedeny vlastni procedury te DLL, takze se to musi delat takto.
> Jirka
S pozdravem
Milan Tomes
mailto:Milan.Tomes(zv)haida(tec)cz
Pristup k databazi
[*] Michal Jan� <janu(zv)stemmark(tec)cz> - 15.3.2002 11:35:06
pro MySQL:
- v Delphi ja pouzivam komponenty Zeos a jsem spokojen (vcetne zdrojaku,
zadarmo).
- v internetu PHP, ma nativni pristup, nejlepsi podpora tohoto databazoveho
serveru.
Michal Janu
STEM/MARK
>Zdravim,
>jeste jeden dotaz, jak nejlepe pristupovat do databaze mysql. Pres ADO me
to prijde slozitejsi >nez napr. v ASP, pres knihovny ktery jsou u mysql
(mysql.pas tak nejak) mi prijdou priliz slozite, >jde o to ziskavat vicemene
textova data, ne blob apod.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.336 / Virov� b�ze: 188 - datum vyd�n�: 11.3.2002
IBase
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 15.3.2002 11:42:11
> Pro pripojeni k IBase pouzivam komponenty IBExpress, nevite
> nekdo o nejakych problemech s FB?
zatim snad ne. to co tu mam mi funguje OK.
z IBX mam v projektech pouzito:
TIBDatabase, TIBTransaction, TIBDataSet, TIBQuery, TIBSQL,
TIBBackupService, TIBRestoreService, TIBConfigService,
TIBDatabaseInfo.
prave kvuli rezstepeni IB vs FB, jsem nedavno testoval
moznosti IBObjects a FIBPlus. nakonec jsme zustali u
IBX. IBO se jevilo najdeneji nez FIB, ale zase vice
uceni. ponevadz nas neunosne tlaci cas, zustali jsme
i IBX, s tim, ze jsme si odzkouseli, ze lze pouziti
kombinovat IBX s IBO ci FIB a pokud to bude nutne, lze
nouzove nasadit IBO/FIB jako doplnkove. celkovy prechod
od IBX nekam jinam jsme tedy prozatim odlozili.
dekuji PeC(zv)Prosim o pocesteni vyrazu
[*] Vit Tichy <vitek(zv)softok(tec)cz> - 15.3.2002 11:43:21
Joha,
IJS> vim, ze znak ^ slouzi jako pointer, ale nevim, proc se jednou uvadi pred
IJS> datovym typem a jednou za nim. Muzete mi nekdo slovy popsat, jaky je mezi
IJS> tim rozdil?
Za jmenem pointru je to dereference.
var ukazatel:^byte;
ukazatel^ := 55; // na adresu pointeru ulozi 55
IJS> Co predstavuje znak (zv)??
Vraci adresu promenne ci funkce.
--
vt
IBase
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 15.3.2002 11:50:12
Haj hou!
On 15 Mar 2002, at 11:00, Marek Spisak wrote:
> V soucasne dobe existuje free InterBase, na ktere vsak Borland jiz nepracuje
> a je tedy asi odsouzena k zaniku. Dale existuje upravena a vylepsena verze
> InterBase, kterou Borland opet vzal pod sva kridla a dela na ni. Ta je vsak
> placena. Dale existuje FB, dilo nadsencu Open Source. Predpokladam, ze
> prevod mezi temito formaty za chvili jiz nebude mozny pouhym zabackupovanim
> a restornutim dat (pokud to jeste jde? pred nedavnou dobou to tak slo).
Naprosta pravda. V podstate je nutne si vybrat produkt a toho se v
budoucnu drzet, protoze rozdily budou narustat a prechod mezi
nimi bude stale slozitejsi - i kdyz ne nemozny.
> Pro pripojeni k IBase pouzivam komponenty IBExpress, nevite nekdo o nejakych
> problemech s FB?
Zatim nic zavazneho (Admin komponenty), ale situace se zrejme
bude zhorsovat. Kdy a jak nikdo nevi.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Prosim o pocesteni vyrazu
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 15.3.2002 12:03:05
From: "Ing. Jiri SOKOL" <JS-delphi(zv)seznam(tec)cz>
> Prosim o pocesteni vyrazu - jinak jim asi proste neporozumim.
> Chapu spojnicovy seznam napr:
[...]
> Proc se to pouziva? Setri to cas? Misto v pameti?
Nejlepsi bude, kdyz si sezenes nejakou ucebnici zakladu programovani,
tam se to vysvetluje pod pojmem Dynamicke datove struktury. Vazbu na
jazyk Pascal maji napr.
* slovensky Algoritmy a struktury udajov (Wirht - Alfa)
* cesky Programovani v jazyku Pascal (Jinoch, Muler, Vogel - SNTL)
popr. lze vyhledat neco na internetu napr.
http://home.pf.jcu(tec)cz/~edpo/program/kap10.html
http://home.pf.jcu(tec)cz/~edpo/program/kap11.html
HTH, pf
DTB aplikace s pouzitim Query (SQL)
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 15.3.2002 12:35:14
Ahoj,
rad bych si udelal cvicne malou DTB aplikaci pomoci Query a UpdateSQL.
Chtel bych mit v okne napr. seznam prijmeni a jmen a pod nim detail, kde
bych mohl jednotlive zaznamy pridavat, opravovat a mazat.
Nemate prosim nekdo nejakoun vzorovou aplikaci, kde bych videl co a jak
?
Diky.
Vasek
JclSimpleSendMail - asi pro P.Vonese
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.3.2002 13:13:30
From: "Mephisto" <mephisto(zv)akvila(tec)cz>
> 1. v JCL ten soubor nemam kde to roste ?
V adresari examples
> 2. "vybrat prislusny klient" nechci vybirat postovniho klienta ale ucet mam
> v postovnim klientovi nekolik emailovych adres a jedna je nastavena jako
> vychozi a pomoci te se odesle email ale ja ho chci odeslat pomoci jineho jak
> na to ?
Aha, obavam se ze toto neni pomoci Simple MAPI mozne.
Petr Vones
OT: Sit pres seriovy kabel
[*] Frankie Y <frankie.y(zv)seznam(tec)cz> - 15.3.2002 13:23:13
Neznate nejaky software, ktery by umoznil realizovat sitove spojeni
pres seriovy kabel? Prime propojeni kabelem ve Windows mi nevyhovuje.
Mozna by i stacil program, ktery by prijimal TCP/IP spojeni (i
vicenasobna!, ne pouze jedno) a pres kabel posilal druhemu PC.
Frank
______________________________________________________________________
GEnialni pratele. Plna penezenka. Na http://www.genius(tec)cz.Sit pres seriovy kabel
[*] Roland Turcan <rolo(zv)sedas.sk> - 15.3.2002 13:35:14
From: "Frankie Y" <frankie.y(zv)seznam(tec)cz>
> Neznate nejaky software, ktery by umoznil realizovat sitove spojeni
> pres seriovy kabel? Prime propojeni kabelem ve Windows mi nevyhovuje.
> Mozna by i stacil program, ktery by prijimal TCP/IP spojeni (i
> vicenasobna!, ne pouze jedno) a pres kabel posilal druhemu PC.
V dnesnej dobe chces naco realizovat nieco do po investicii N x 300 Sk za
sietovku(y) a kuse kablu a nakonfigurovani Windows funguje ? Jedna sa o
nieco specialneho ?
R.IBase
[*] Roland Turcan <rolo(zv)sedas.sk> - 15.3.2002 13:38:04
----- Original Message -----
From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
> > Pro pripojeni k IBase pouzivam komponenty IBExpress, nevite nekdo o
nejakych
> > problemech s FB?
> Zatim nic zavazneho (Admin komponenty), ale situace se zrejme
> bude zhorsovat. Kdy a jak nikdo nevi.
Co konkretne blbne na IBX vs. Firebird ? Chcem vediet aby so sa vyvaroval
chybam. A co navrhujes prejst na IBO,FIB, ZEOS, alebo ... ?
R.
Detekce, zda je HDD ve sleep modu
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 15.3.2002 13:42:53
Ahoj,
nevite nekdo, jak se da zjistit/nastavit stav, kdy je HDD vypnut (sleep
mod)?
S pozdravem
Ober
Detekce, zda je HDD ve sleep modu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 15.3.2002 13:45:17
From: "Obermaier Petr Ing." <Obermaier(zv)mail.sdas(tec)cz>
> nevite nekdo, jak se da zjistit/nastavit stav, kdy je HDD vypnut (sleep
> mod)?
Podivej se na zpravu WM_POWERBROADCAST
Petr Vones
Sit pres seriovy kabel
[*] Frankie Y <frankie.y(zv)seznam(tec)cz> - 15.3.2002 13:51:24
Mas pravdu, jde o specialni pripad. Rad bych pripojil notebook z
prace do nasi domaci site. Problem je v tom, ze ten notebook neni
muj, takze do nej tezko mohu montovat sitovku. Taktez je tam zakazano
cokoli instalovat a v ovladacich panelech je konfigurace site
disablovana. Vim, ze to vse jde obejit, ale to neni prilis korektni,
ze? Jelikoz jde pouze o sdileni pristupu na internet, stacil by
program, ktery jsem jiz popisoval a ktery by se instalovat nemusel.
Frank
> From: "Frankie Y" <frankie.y(zv)seznam(tec)cz>
> > Neznate nejaky software, ktery by umoznil realizovat sitove spojeni
> > pres seriovy kabel? Prime propojeni kabelem ve Windows mi nevyhovuje.
> > Mozna by i stacil program, ktery by prijimal TCP/IP spojeni (i
> > vicenasobna!, ne pouze jedno) a pres kabel posilal druhemu PC.
>
> V dnesnej dobe chces naco realizovat nieco do po investicii N x 300 Sk za
> sietovku(y) a kuse kablu a nakonfigurovani Windows funguje ? Jedna sa o
> nieco specialneho ?
>
> R.
______________________________________________________________________
Cim vice pratel, tim vice penez! http://www.genius(tec)cz
xml a cestina
[*] <tks(zv)mail(tec)cz> - 15.3.2002 14:07:15
Zdravim.
Chci jednu tabulku ukladat a nacitat jako XML soubor. Pouzil jsem tedy ClientDataSet a XMLTransformProvider. Vytvoril jsem transformacni soubory v XmlMapperu a vsechno to funguje dobre, az na castinu - ta se pri ulozeni tabulky do souboru XML vzdy podela. U polozek String mam nastavene kodovani Windows-1250 (nic jineho ani nastavit nejde). Co s tim? A jeste by me zajimalo, jestli ty transformacni soubory *.xtr musim dodavat s palikaci nebo jdou nejak pridat primo do aplikace.
Dik, TK
---------------------------------------
Nav�tivte http://www.globalsearch(tec)cz/ !Active Directory
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 15.3.2002 14:37:34
Ahoj,
muzete me prosim nekdo nejakym zpusobem zasvetit do Active Directory
spolu s prikladem ?
Diky moc.
Vasek
IB Firebird - padani serveru
[*] Rado Benc <bego(zv)pobox.sk> - 15.3.2002 14:54:33
Nazdar,
> Spadne kedy - pri pripojenych klientoch? Spadne aj ked nie je nikto
> pripojeny? Nejake pikosky? :-)
>
> ### Zatim to vypada, ze to spadne jen v pripade, ze je nekdo
> pripojeny, ale
> i v okamziku, kdy nikdo nesaha na klavesnici (ale neni to 100%)
[snip]
> Pouzivate UDF? Ak ano, ake?
>
> ### Ze stand. udf pouzivame pouze LTRIM a RTRIM, pak tam mame
> jednu vlastni UDF na sifrovani pomoci DES3.
Tu by som zacal hladat - staci banalna chyba pri predavani parametrov
a UDF ide do horucich pekiel spolu zo servrom, vid.:
http://community.borland.com/article/0,1410,26885,00.html
Pokial je to mozne, skus:
- na cas vyhodit to kryptovanie (napr. na testovacom systeme).
- nahradit tu UDF niecim, co ma rovnake parametre zo standardnymi
udf a vyskusat, co to urobi.
Poznamky:
- osobne si myslim, ze je lepsie data kryptovat uz na klientovi,
nez posielat ich na server nezakryptovane a kryptovat ich tam.
- UDF by mali byt pisane thread - safe, prikladov na webe je
mnoho ale pozor - su v nich chyby (vid vyssie).
FWIW,
Rado
____________________________________
http://www.antikvariatshop.sk Virtualny antikvariat - proza, poezia,
historia, umenie, psychologia, naucna a odborna literatura, skripta ...
Vybrane knihy ZLAVA AZ 80 % !!!
Mereni casu straveneho programovanim aplikace
[*] Josef <sip(zv)atlas(tec)cz> - 15.3.2002 16:24:45
Existuje nejaky program ktery by automaticky pocital cas straveny na jednotlivych projektech ?
Predstavoval bych si to tak ze kdyz spustim Delphi a otevru nejaky projekt tak se mi zacne
pocitat cas.
Dik
Mereni casu straveneho programovanim aplikace
[*] Tom� Uldrich <tomas.uldrich(zv)centrum(tec)cz> - 15.3.2002 16:43:07
Zkus toto:
Delphi Project Time Logger
http://stonebirds.8m.com/ptimelog/index.html
> Existuje nejaky program ktery by automaticky pocital cas straveny
> na jednotlivych projektech ?
> Predstavoval bych si to tak ze kdyz spustim Delphi a otevru
> nejaky projekt tak se mi zacne
> pocitat cas.
>
> Dik
>
--------------------
Internet ZDARMA, mail, osobn� str�nky a d�rky pro ka�d�ho-Tiscali Freedom
http://user.centrum(tec)cz/redir.php?url=http://0g(tec)cz/sign/8065
Upload suboru cez CGI
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 15.3.2002 18:27:22
Ahoj,
moze mi prosim niekto poslat
priklad cgi-skriptu s ukazkou
nacitania suboru odoslaneho
na web pomocou metody POST?
Uz som v koncoch.
Vlkovic
ADO - Jet - polozka typu Numeric(5.2)
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 16.3.2002 12:07:37
> Potrebuji vyjimecne vyrobit a naplnit DBF soubor. Nedari se mi ale naplnit
> daty polozku datoveho typu Numeric(5.2). Prosim poradte, kde delam chybu.
> ...
Ja mel pomerne casto problemy s "." a "," pri uladani pres ODBC... tak zkus
misto tecky dat carku.
Roman
- - - - - - - - - - - - - - - - - - - - -
http://kouzelne.misto(tec)cz/Combo box - smer otevirani
[*] Vit Jurasek <delphi(zv)obecpohori(tec)cz> - 16.3.2002 15:10:54
Zdravim,
mel bych 2 otazky
a) jde urcit, aby se nabidkove okno ComboBoxu oteviralo pouze nahoru a ne
tak, kde je misto (implicitne tusim dolu)?
b) jde nejak potlacit, kdyz je combobox zavreny, aby se aktualni vybrana
polozka nepodsvitila modre, ale zustala stejne jako kdyz combobox nema
focus?
Diky
Combo box - smer otevirani
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 16.3.2002 15:46:01
> Od: Vit Jurasek [SMTP:delphi(zv)obecpohori(tec)cz]
>
> a) jde urcit, aby se nabidkove okno ComboBoxu oteviralo pouze nahoru a ne
> tak, kde je misto (implicitne tusim dolu)?
>
K cemu by to bylo dobry? Je preci uzitecne, ze se combobox otvira "tam, kde
je misto".
> b) jde nejak potlacit, kdyz je combobox zavreny, aby se aktualni vybrana
> polozka nepodsvitila modre, ale zustala stejne jako kdyz combobox nema
> focus?
>
Vyuzij udalost comboboxu - OnCloseUp - s navaznosti na nastaveni focusu na
neco jineho "focusovatelneho", napr.:
procedure TForm1.ComboBox1CloseUp(Sender: TObject);
begin
Button1.SetFocus;
end;
Ober
TOPMOST wokna a MessageDialog
[*] morph <morph(zv)centrum(tec)cz> - 16.3.2002 16:09:06
Ahoj,
v aplikaci nutne potrebuji mit otevrena TOP_MOST okna (aby se chovala
podobne jako ToolBary v Adobe Photoshopu). Jejich stav nastavuji takto:
if sb_windowstyle.Down then wstyle:=HWND_TOPMOST
else wstyle:=HWND_NOTOPMOST;
SetWindowPos(Self.Handle, wstyle, 0, 0, 0, 0, SWP_NOMOVE +
SWP_NOSIZE);
(kde sb_windowstyle je speedbutton kterym nastavuju stav okna - je-li
topmost nebo nen�).
Vsechno funguje v poradku tak jak ma, ale kdyz zobrazim hlasku pomoci
ShowMessage nebo MessageDlg, zustane viset pod top_most okny a nen�
videt. Okna jsou zaroven blokovana a nelze s nimi hybat, proto�e
ShowMessage zobrazuje modalni okno...
Nevedeli byste jak donutit aplikaci, aby dialog zobrazovala jeste pred
topmost okny ?
Diky
morph
Combo box - smer otevirani
[*] Vit Jurasek <delphi(zv)obecpohori(tec)cz> - 16.3.2002 16:48:47
> > a) jde urcit, aby se nabidkove okno ComboBoxu oteviralo pouze nahoru a
ne
> > tak, kde je misto (implicitne tusim dolu)?
> >
> K cemu by to bylo dobry? Je preci uzitecne, ze se combobox otvira "tam,
kde
> je misto".
Je to otazka spise kosmeticka. Nahore je misto vzdy (combo je na spodnim
okraji obrazovky 800x600), ale kdyz se to provozuje napriklad v 1024x768,
dole vznikne misto a leze to "mimo" okno.TOPMOST wokna a MessageDialog
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 16.3.2002 17:13:25
----- Original Message -----
From: "morph" <morph(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, March 16, 2002 4:09 PM
Subject: TOPMOST wokna a MessageDialog
> Nevedeli byste jak donutit aplikaci, aby dialog zobrazovala jeste
> pred topmost okny ?
Ahoj.
Zkus Application.MessageBox('Dialog Message', 'Dialog Title',
mb_systemmodal+mb_iconinformation+mb_ok+mb_defbutton1);
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.332 / Virov� b�ze: 186 - datum vyd�n�: 6.3.2002
Focus to next control
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 17.3.2002 10:08:55
> Fokusovy problem som uz popisoval 53412krat ale stale nemam to spravne
> riesenie.
> to vyriesil tak ze ak zatlaci uzivatel enter tak naprv zavolam Onexit
> programovo a potom spravim SelectNext(self,true,true).
Na OnExit sa vykasli.
Staci na forme jednemu z tlacitiek (Ulozit) nastavit vlastnost Defalult a
vsetko riesit na jeho OnClick: Skontrolujes postupne edity v tvojom poradi a
na prvy, ktory najdes prazdny (resp. s nespravnou hodnotou), postavis fokus
a ModalResult das 'None'. Pri nespravnej hodnote mozes pripadne selectovat
prvy zly znak.
Akakolvek ina technika 'enter ako tab' je len zdrojom problemov.
bye
vmlich http://www.rar(tec)cz
Jak pracovat s obrazky JPG
[*] Filip Kinsky <xkinf01(zv)vse(tec)cz> - 17.3.2002 12:36:58
Ahoj,
ja pouzivam na praci s JPEG v DB komponentu TDBJPEGImage, umi i
LoadFromFile/SaveToFile a navic se u ni da nastavovat uroven komprese
a dalsi veci...
mela by bejt na http://www.westend.de/~hoerstemeier
Filip
----------------------------------------------
RN> Panove,
RN> znovu se na Vas obracim s otazkou jak pracovat s obrazky JPG - ukladat do BLOBu.
RN> Pokud jsem pracoval s obrazky BMP, vse fungovalo perfektne. Data jsem ukladal do tabulky Paradox do pole typu Graphic. Jako databazovou komponentu jsem pouzil TDBImage, to jsem jeste mel Delphi 3.
RN> Nyni mam Delphi 6, kde TImage umi jiz JPG a TDBImage je od neho odvozen.
RN> V Delphi 3 jsem pro natazeni obrazku ve formatu BMP pouzival
RN> TDBImage.Picture.Bitmap.LoadFromFile
RN> Nyni ale obrazek JPG neni bitmapa, takze uvedeny postup nelze pouzit. Jak tedy?
RN> Roman
Nastaveni Kompletovat (COLLATE) tiskarne v QuickRe
[*] MJsoft <delphi(zv)mjsoft(tec)cz> - 17.3.2002 13:43:41
Ahoj,
mam takovy problem s QuickReportem 3.0.5 v Delphi5. Dam nahled tisku,
ktery je na vice stran. Zvolim tlacitko nastaveni tiskarny. Upravim pocet
kopii a zaskrtnu volbu Kompletovat. Stisknu OK a dam tisk, ale volba
Kompletovat se neprovede (tisknou se vzdy prvni strany, pak druhe
strany,...).
Nevite nekdo, jak tuto volbu zprovoznit. Nevadil by mi ani zasah do
zdrojaku QuickReportu ktery vlastnim. Pokud mozno v teto verzi, nerad bych
nahraval novou verzi Qreportu.
Dekuji predem
Jin
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.333 / Virov� b�ze: 187 - datum vyd�n�: 8.3.2002
Posunovani DBGridu doprava a doleva sipkami
[*] MJsoft <delphi(zv)mjsoft(tec)cz> - 17.3.2002 14:52:53
Ahoj,
nevite jak programove zaridit aby se DBGrig posouval doprava a doleva pomoci
sipek <- a -> (stejne jako kdyz tuknu na dolni posuvnik)?
Diky
Jin
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.333 / Virov� b�ze: 187 - datum vyd�n�: 8.3.2002
TFileStream.Write/ReadComponent
[*] Fredy (nightmare) Crueger <Fredy.conf(zv)seznam(tec)cz> - 17.3.2002 18:11:34
Zdravim
Mam program, ve kterem dynamicky vytvarim ruzne komponenty. Z kazde
sem si udelal potomka, ve kterem mam :
proceduru TKomponeta.Uloz(Save: TFileStream);
begin
Save.WriteComponent(self);
end;
Pri ukladani v programu zavolam tuto proceduru pro kazdou komponentu
se stejnym FileStreamem, takze se to zapisuje do stejneho souboru.
Ted k memu problemu. Pri nahravani pomoci ReadComponent je problem,
ze v souboru jsou zapsany ruzne typy komponent. Zkousel sem:
var Load: TFileStream;
Comp: TComponent;
begin
Comp := TComponent.Create(Form1);
Load := TFileStream.Create('test.sav',fmOpenRead);
repeat
Load.ReadComponent(Comp);
Comp.Parent := Form1;
until (Load.Position = Load.Size)
Load.Free;
end;
Samozrejme pri pokusu o nahravani zahlasi program napr. ze TComponent
nema vlastnost Width, ale ja tam mam ulozeny TImage a ten Width mam.
Takze bych potreboval nejak zjistit predem jaka komponenta se bude
nacitat. Mate s tim nekdo zkusenosti? Moc prosim o radu. Dekuji.
(zv)----------------------------------(zv)
Fredy (nightmare) Crueger
Buried on Win98SE with Delphi 5 Ent.
(zv)----------------------------------(zv)
______________________________________________________________________
Ziskejte pocitac! Je to GEnialne jednoduche!
http://www.genius(tec)cz
New Controlpanel Tool for Firebird Server
[*] Roland Turcan <rolo(zv)sedas.sk> - 17.3.2002 19:17:31
----- Original Message -----
From: "Gerhard Knapp" <prometheus(zv)aon.at>
To: <ib-support(zv)yahoogroups.com>
> hello,
> i made a new Controlpaneltool: FB Control
> for windows.
>
> It's free. Please try and give me a feedback.
> thanks.
> - gerhard
>
> download: http://www.clientel.at/public
Backup/Restore Services in IBObjects
[*] Roland Turcan <rolo(zv)sedas.sk> - 17.3.2002 21:54:02
Ahojte!
Mam zas problemy s ocami, ale IBObjects nema ziadne IBBackupService,
IBRestoreService ? Prezeram help a nic som nenasiel.
Dakujem.
Roland.Backup/Restore Services in IBObjects
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 17.3.2002 22:19:11
----- Original Message -----
From: "Roland Turcan" <rolo(zv)sedas.sk>
> Mam zas problemy s ocami, ale IBObjects nema ziadne IBBackupService,
> IBRestoreService ? Prezeram help a nic som nenasiel.
Ahoj.
IBO IMHO "servisni" funkce nema.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.332 / Virov� b�ze: 186 - datum vyd�n�: 6.3.2002
Jak pracovat s obrazky JPG
[*] Roman Netu�il <netusil.roman(zv)vspardubice(tec)cz> - 18.3.2002 06:32:33
Ahoj,
diky za odpoved. Uvedene stranky jsou presmerovany a komponenta TDBJPEGImage
tam bohuzel neni. Jestli ji mas nekde k dispozici, posli mi ji.
Diky, Roman
----- Original Message -----
From: "Filip Kinsky" <xkinf01(zv)vse(tec)cz>
To: "Roman Netu�il" <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, March 17, 2002 12:36 PM
Subject: Re: Jak pracovat s obrazky JPG
> Ahoj,
> ja pouzivam na praci s JPEG v DB komponentu TDBJPEGImage, umi i
> LoadFromFile/SaveToFile a navic se u ni da nastavovat uroven komprese
> a dalsi veci...
> mela by bejt na http://www.westend.de/~hoerstemeier
>
> Filip
>
> ----------------------------------------------
> RN> Panove,
> RN> znovu se na Vas obracim s otazkou jak pracovat s obrazky JPG - ukladat
do BLOBu.
> RN> Pokud jsem pracoval s obrazky BMP, vse fungovalo perfektne. Data jsem
ukladal do tabulky Paradox do pole typu Graphic. Jako databazovou komponentu
jsem pouzil TDBImage, to jsem jeste mel Delphi 3.
> RN> Nyni mam Delphi 6, kde TImage umi jiz JPG a TDBImage je od neho
odvozen.
>
> RN> V Delphi 3 jsem pro natazeni obrazku ve formatu BMP pouzival
> RN> TDBImage.Picture.Bitmap.LoadFromFile
>
> RN> Nyni ale obrazek JPG neni bitmapa, takze uvedeny postup nelze pouzit.
Jak tedy?
>
> RN> Roman
>
database - funkce Locate
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.3.2002 07:27:42
> potrebuji v Tabulce najit zaznam s ciselnou polozkou, pomoci funkce
> Locate. Zjistil jsem, ze pomoci Locate nelze najit zaporne cislo.
> Podotykam, ze tabulka je typu FlashFiler2. Delam neco spatne, nebo to
> doopravdy nelze. Diky za pomoc Pavel
>
> var
> i: integer;
> begin
> with ffTable1 do
> begin
> i := 10;
> if Locate('ID', IntToStr(i), []) then {zaznam najde}
> ...
>
> i := -10;
> if Locate('ID', IntToStr(i), []) then {v zadnem pripade nenajde}
> ...
> end;
>
Ahoj,
jen napad - nepomohlo by misto IntToStr(i) dat jen i?
Nezkouseno.
David Lebeda
Zkusenosti s Internet Professional od TurboPower
[*] Petr Dedecek <petrd(zv)atlas(tec)cz> - 18.3.2002 07:38:51
Ahoj,
potrebuji delat aplikaci komunikujici pres internet ( FTP, mail ), ktera
musi behat na ruznych verzich Windows ( od 95 az po XP ) . Protoze pouzivam
nekolik knihoven od TurboPower chtel bych pouzit od nich Internet
Professional. Mate s tim nekdo nejake zkusenosti ?
Dik
Petr Dedecek
petrd(zv)atlas(tec)cz
Zkusenosti s Internet Professional od TurboPower
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 18.3.2002 07:50:21
> potrebuji delat aplikaci komunikujici pres internet ( FTP, mail ), ktera
> musi behat na ruznych verzich Windows ( od 95 az po XP ) . Protoze pouzivam
> nekolik knihoven od TurboPower chtel bych pouzit od nich Internet
> Professional. Mate s tim nekdo nejake zkusenosti ?
Neni lepsi pouzit nejake knihovny, co jsou zadarmo, opensource a
poskytuji ti mnohem vice, treba navic i kompatibilitu s Kylixem? :-)
(Viz. treba Indy, Synapse...)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.TFileStream.Write/ReadComponent
[*] Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 18.3.2002 07:55:30
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Fredy (nightmare) Crueger
>
> Ted k memu problemu. Pri nahravani pomoci ReadComponent je problem,
> ze v souboru jsou zapsany ruzne typy komponent. Zkousel sem:
>
> var Load: TFileStream;
> Comp: TComponent;
> begin
> Comp := TComponent.Create(Form1);
> Load := TFileStream.Create('test.sav',fmOpenRead);
> repeat
> Load.ReadComponent(Comp);
> Comp.Parent := Form1;
> until (Load.Position = Load.Size)
> Load.Free;
> end;
>
Ahoj,
co kdyby jsi nevytvarel instanci Comp predem,
ale nechal sis ji vratit metodou ReadComponent.
begin
Load := TFileStream.Create('test.sav',fmOpenRead);
repeat
Comp := Load.ReadComponent(nil);
Comp.Parent := Form1;
until (Load.Position = Load.Size)
Load.Free;
end;
S pozdravem
Ing. Jaroslav Sipek
IDEA spol. s r.o.
mailto:jaroslav.sipek(zv)idea(tec)cz
http://www.idea(tec)cz Systemove prostredky na Win9x
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 18.3.2002 08:01:46
Ahoj vsem
Uz si s tim nevim rady tak jsem si rekl ze se zkusim zeptat vas. Protoze se s tim musel urcite uz nekdo trapit.
Nas program umoznuje mit pri behu spusteno zaroven nekolik uloh (Formularu). Ovsem pod Win9x dojde velmi brzy
k vycerpani systemovych prostredku a hlasi to chyby na uplne nesmyslnych mistech. Nebude to tim, ze by se zapominalo
neco uvolnovat, proste je tam tech objektu hodne :-(. Nemate nejake zkusenosti s tim jak tohle obchazet? Uz mne nenapada
nic jineho nez uzivateli proste zakazat otevirat vic formularu naraz cimz ale prijde o moznosti jake to umoznuje.
Pomozte prosim uz mne to docela vytaci protoze pokud klesnou systemove prostredky pod 20% tak se vetsinou cele
Win zhrouti. S tim, abych doporucoval uzivatelum prejit na Win2000 a novejsi, bych asi moc nevyhral.
Predem diky za jakoukoliv pomoc.
Jirka
Zkusenosti s Internet Professional od TurboPower
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 18.3.2002 08:25:04
Ja jsem se na to dival zbezne pred nekolika mesici a musim rict, ze ve
srovnani s Indy to bylo hodne pozadu. Muyslim, ze Indy ma docela dobry
budouci vyvoj a je zadarmo.
Gebauer Lukas wrote:
>
> > potrebuji delat aplikaci komunikujici pres internet ( FTP, mail ), ktera
> > musi behat na ruznych verzich Windows ( od 95 az po XP ) . Protoze pouzivam
> > nekolik knihoven od TurboPower chtel bych pouzit od nich Internet
> > Professional. Mate s tim nekdo nejake zkusenosti ?
>
>
> E-mail: gebauerl(zv)mlp(tec)cz
> http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
--
______________________________________________________
Karel Kral, vyvojar IT / IT developer
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Systemove prostredky na Win9x
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 18.3.2002 08:33:08
From: "Jiri Wendl, KSH-Data" <wendl(zv)ksh-data(tec)cz>
> Uz si s tim nevim rady tak jsem si rekl ze se zkusim zeptat vas. Protoze
se s tim musel urcite uz nekdo trapit.
> Nas program umoznuje mit pri behu spusteno zaroven nekolik uloh
(Formularu). Ovsem pod Win9x dojde velmi brzy
> k vycerpani systemovych prostredku a hlasi to chyby na uplne nesmyslnych
mistech. Nebude to tim, ze by se zapominalo
> neco uvolnovat, proste je tam tech objektu hodne :-(. Nemate nejake
zkusenosti s tim jak tohle obchazet? Uz mne nenapada
> nic jineho nez uzivateli proste zakazat otevirat vic formularu naraz cimz
ale prijde o moznosti jake to umoznuje.
>
> Pomozte prosim uz mne to docela vytaci protoze pokud klesnou systemove
prostredky pod 20% tak se vetsinou cele
> Win zhrouti. S tim, abych doporucoval uzivatelum prejit na Win2000 a
novejsi, bych asi moc nevyhral.
Ahoj,
casty problem. IMHO uz od zaciatku navrhu programu je treba brat do uvahy
omedzenie zdrojov na Win9x a tomu prisposobit design. No ale teraz to uz
neni mozne ze? ;). Mas niekolko moznosti: Vzdy upozornovat uzivatela pri
nizky zdrojoch, ze mu program moze spadnut. (Nizke zdroje su ak je iba 20%
volnych a menej). To je mozne detekovat pri vytvarani kazdeho formu a on sa
uz sam zariadi.
Alebo mozes dynamicky vytvarat/rusit jak formy tak komponenty na nich. Viac
moznosti bohuzial nemas.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
Nevykresleni Header u TListView
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 18.3.2002 09:03:46
Dobry den,
Nevite nekdo, co s tim, kdyz se u TListView pri prvnim zobrazeni
nevykresli zahlavi zloupcu?
Podrobneji:
Mam TTabSheet, v nem TPanel s Align = alTop a pod nim TListView s Align
= alClient. TListView ma ViewStyle = vsReport. Problem je, ze kdyz
poprve zobrazim zalozku na ktere je ListView, zahlavi s nadpisy sloupcu
se nevykresli. Teprve, az na ne kliknu nebo az tento ListView zobrazim
podruhe.
Vypada to asi takto:
------------------------------ <- TTabSheet
Nadpis <- TPanel s nadpisem
Polozka1 Polozka2 Polozka3 <- TListView, toho zahlavi se
nevykresli
1 Novak Milan 18
2 Kral Karel 23
------------------------------
D5/Pro, SP2, Win95 SR2
--
______________________________________________________
Karel Kral, vyvojar IT / IT developer
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Jak pracovat s obrazky JPG
[*] Kinsky Filip <xkinf01(zv)vse(tec)cz> - 18.3.2002 09:04:49
Ahoj,
komponenta tam je :)
http://www.hoerstemeier.com/files/jpgimg.zip
Filip Kinsky
On Mon, 18 Mar 2002 06:32:33 +0100
Roman Netu�il <netusil.roman(zv)vspardubice(tec)cz> wrote:
> Ahoj,
> diky za odpoved. Uvedene stranky jsou presmerovany a
> komponenta TDBJPEGImage
> tam bohuzel neni. Jestli ji mas nekde k dispozici, posli
> mi ji.
>
> Diky, Roman
>
>
> ----- Original Message -----
> From: "Filip Kinsky" <xkinf01(zv)vse(tec)cz>
> To: "Roman Netu�il" <delphi-l(zv)clexpert(tec)cz>
> Sent: Sunday, March 17, 2002 12:36 PM
> Subject: Re: Jak pracovat s obrazky JPG
>
>
> > Ahoj,
> > ja pouzivam na praci s JPEG v DB komponentu
> TDBJPEGImage, umi i
> > LoadFromFile/SaveToFile a navic se u ni da nastavovat
> uroven komprese
> > a dalsi veci...
> > mela by bejt na http://www.westend.de/~hoerstemeier
> >
> > Filip
> >
> > ----------------------------------------------
> > RN> Panove,
> > RN> znovu se na Vas obracim s otazkou jak pracovat s
> obrazky JPG - ukladat
> do BLOBu.
> > RN> Pokud jsem pracoval s obrazky BMP, vse fungovalo
> perfektne. Data jsem
> ukladal do tabulky Paradox do pole typu Graphic. Jako
> databazovou komponentu
> jsem pouzil TDBImage, to jsem jeste mel Delphi 3.
> > RN> Nyni mam Delphi 6, kde TImage umi jiz JPG a
> TDBImage je od neho
> odvozen.
> >
> > RN> V Delphi 3 jsem pro natazeni obrazku ve formatu BMP
> pouzival
> > RN> TDBImage.Picture.Bitmap.LoadFromFile
> >
> > RN> Nyni ale obrazek JPG neni bitmapa, takze uvedeny
> postup nelze pouzit.
> Jak tedy?
> >
> > RN> Roman
> >
>
> Systemove prostredky na Win9x
[*] Hr�a Daniel <Daniel.Hrna(zv)sme(tec)cz> - 18.3.2002 09:04:28
Podobne chyby jsem resil v programu tim, ze jsem krome hlavniho formu,
ktery vytvarela aplikace sama, vsechno oststni vytvarel sam.
Neco jako:
xxx.Create(nil);
xxx.ShowModal;
xxx.Free;
D.
-----Original Message-----
From: Kaka�ka Pavol [mailto:kakacka(zv)proca(tec)cz]
Sent: Monday, March 18, 2002 8:33 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Systemove prostredky na Win9x
From: "Jiri Wendl, KSH-Data" <wendl(zv)ksh-data(tec)cz>
> Uz si s tim nevim rady tak jsem si rekl ze se zkusim zeptat vas.
Protoze
se s tim musel urcite uz nekdo trapit.
> Nas program umoznuje mit pri behu spusteno zaroven nekolik uloh
(Formularu). Ovsem pod Win9x dojde velmi brzy
> k vycerpani systemovych prostredku a hlasi to chyby na uplne
nesmyslnych
mistech. Nebude to tim, ze by se zapominalo
> neco uvolnovat, proste je tam tech objektu hodne :-(. Nemate nejake
zkusenosti s tim jak tohle obchazet? Uz mne nenapada
> nic jineho nez uzivateli proste zakazat otevirat vic formularu naraz
cimz
ale prijde o moznosti jake to umoznuje.
>
> Pomozte prosim uz mne to docela vytaci protoze pokud klesnou systemove
prostredky pod 20% tak se vetsinou cele
> Win zhrouti. S tim, abych doporucoval uzivatelum prejit na Win2000 a
novejsi, bych asi moc nevyhral.
Ahoj,
casty problem. IMHO uz od zaciatku navrhu programu je treba brat do
uvahy
omedzenie zdrojov na Win9x a tomu prisposobit design. No ale teraz to uz
neni mozne ze? ;). Mas niekolko moznosti: Vzdy upozornovat uzivatela pri
nizky zdrojoch, ze mu program moze spadnut. (Nizke zdroje su ak je iba
20%
volnych a menej). To je mozne detekovat pri vytvarani kazdeho formu a on
sa
uz sam zariadi.
Alebo mozes dynamicky vytvarat/rusit jak formy tak komponenty na nich.
Viac
moznosti bohuzial nemas.
Kaka�ka Pavol
KasiX(zv)atlas(tec)cz
DDE vs.modernejsi prostredky
[*] Milos Hernych <milos.hernych(zv)vslib(tec)cz> - 18.3.2002 09:19:27
Zdravim,
puvodne jsem se chtel zeptat na prakticke zkusenosti s DDE, ale po procteni
archivu teto konference nekam do roku 97 (...) jsem zviklan.
Potrebuji vytvorit rozumnou otevrenou a jednoduchou platformu pro vymenu dat
mezi aplikacemi a ridicimi systemy.
DDE se mi jevilo jako idealni reseni, zejmena diky relativni jednoduchosti
pri implementaci, uz kolem roku 1998 se tu vsak diskutovalo o "zastaralosti"
tohoto formatu...
Ptam se tedy:
- prestane byt DDE v novych verzich OS Windows v dohledne dobe podporovano?
- existuje aplikacne dostatecne jednoducha alternativa k DDE?
Jedna se mi o vymenu dat mezi tvorenymi aplikacemi v rozsahu desitek Byte v
pomerne kratkych intervalech (nekolikrat za sec).
M.H.
IB a rychlost count
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 18.3.2002 09:20:09
Ahoj, mam problem,
U jedne hezke aplikace, chtel zakaznik videt ve formulari celovy
pocet zaznamu v tabulce. Tak jsem si ho zacal vytahovat prikazem
select count(*)
from tabulka
v plan je napsano natural a trva to 3.5 minuty.
zkousel jsem nahradi * primarnim klicem a nepomohlo to. To by
snad interbase mela umet zjistit rychleji kolik ma zaznamu nebo
ne.
Tabulka ma cca 25.000.000 zaznamu a bude hur.
Jeste bych potreboval nejak zrychlit dotaz
select first 1000 *
from tabulka
where rn starting with 'Z'
order by rn.
rn je v tabulce primarnim klicem. pokud tam neni to trideni trva to
cca 1 s. pokud to necham setridit trva asi 1.5 min.
Tanulka je nastesti readonly, da se nejak predtridit v databazi
abych mel zaruceno, ze pri selectu bez order by mi prijdou ty data
setrideny dobre ?
Diky moc.
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
IB a rychlost count
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 18.3.2002 09:28:30
ahoj,
> select count(*)
> from tabulka
zkus:
select sum(1)
from tabulka
> Tanulka je nastesti readonly, da se nejak predtridit v databazi
> abych mel zaruceno, ze pri selectu bez order by mi prijdou ty data
> setrideny dobre ?
mozna pridat sloupecek s poradovym cislem a udelat order by
podle nej. pripadne ho i indexovat.
dekuji PeC(zv)IB a rychlost count
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 18.3.2002 09:32:20
Radek KALA dne 18 Mar 2002 v 9:20:
> Jeste bych potreboval nejak zrychlit dotaz
>
> select first 1000 *
> from tabulka
> where rn starting with 'Z'
> order by rn.
>
> rn je v tabulce primarnim klicem. pokud tam neni to trideni trva to
> cca 1 s. pokud to necham setridit trva asi 1.5 min. Tanulka je
> nastesti readonly, da se nejak predtridit v databazi abych mel
> zaruceno, ze pri selectu bez order by mi prijdou ty data setrideny
> dobre ?
Ahoj,
zkus se podivat se do planu, jestli to pro "starting with" pouziva index. Pokud ne, mozna by
pomohlo prepsat to na neco jako (rn>='Z')and(rn<'['). Mam dojem, ze jsem takhle kdysi neco
zrychloval, ale ted to nemuzu hledat.
Karel Rys
IB a rychlost count
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 18.3.2002 09:39:24
Ahoj,
Radek KALA wrote:
>
> U jedne hezke aplikace, chtel zakaznik videt ve formulari celovy
> pocet zaznamu v tabulce. Tak jsem si ho zacal vytahovat prikazem
>
> select count(*)
> from tabulka
>
> v plan je napsano natural a trva to 3.5 minuty.
> zkousel jsem nahradi * primarnim klicem a nepomohlo to. To by
> snad interbase mela umet zjistit rychleji kolik ma zaznamu nebo
> ne.
> Tabulka ma cca 25.000.000 zaznamu a bude hur.
Nemyslim si, ze by informace o poctu zaznamu mela nejaky valny vyznam,
ale budiz. IB to diky multigeneracni architekture rychleji umet nebude.
>
> Jeste bych potreboval nejak zrychlit dotaz
>
> select first 1000 *
> from tabulka
> where rn starting with 'Z'
> order by rn.
>
> rn je v tabulce primarnim klicem. pokud tam neni to trideni trva to
> cca 1 s. pokud to necham setridit trva asi 1.5 min.
> Tanulka je nastesti readonly, da se nejak predtridit v databazi
> abych mel zaruceno, ze pri selectu bez order by mi prijdou ty data
> setrideny dobre ?
Bez ORDER BY klauzule nelze spolehat na urcite poradi zaznamu.
Tom
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
IB a rychlost count
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 18.3.2002 09:41:33
>
> > select count(*)
> > from tabulka
>
>
> select sum(1)
> from tabulka
>
To je to samy.
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
TComboBox.ReadOnly
[*] Roland Turcan <rolo(zv)sedas.sk> - 18.3.2002 09:48:56
Ahojte!
Ako mozem dorobit %subj%.
Roland.Help generator
[*] Miro Kotasek <miro.delphi(zv)seznam(tec)cz> - 18.3.2002 09:54:00
Dobry den,
Neznate nahodou nejakou utilitu na vytvareni helpu?
Dekuji Kotasek
www.sin-graphic(tec)cz
______________________________________________________________________
Budte GEnius. Mejte vsech pet pohromade. http://www.genius(tec)cz
Systemove prostredky na Win9x
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.3.2002 10:01:08
From: "Jiri Wendl, KSH-Data" <wendl(zv)ksh-data(tec)cz>
>> Nas program umoznuje mit pri behu
>> spusteno zaroven nekolik uloh (Formularu). Ovsem pod Win9x dojde
>> velmi brzy k vycerpani systemovych prostredku a hlasi to chyby na
>> uplne nesmyslnych mistech. Nebude to tim, ze by se zapominalo neco
>> uvolnovat, proste je tam tech objektu hodne :-(. Nemate nejake
>> zkusenosti s tim jak tohle obchazet? Uz mne nenapada nic jineho nez
>> uzivateli proste zakazat otevirat vic formularu naraz cimz ale
>> prijde o moznosti jake to umoznuje.
18.3.2002 Kaka�ka Pavol:
> casty problem. IMHO uz od zaciatku navrhu programu je treba brat do uvahy
> omedzenie zdrojov na Win9x a tomu prisposobit design. No ale teraz to uz
> neni mozne ze? ;). Mas niekolko moznosti: Vzdy upozornovat uzivatela pri
> nizky zdrojoch, ze mu program moze spadnut. (Nizke zdroje su ak je iba 20%
> volnych a menej). To je mozne detekovat pri vytvarani kazdeho formu a on sa
> uz sam zariadi.
> Alebo mozes dynamicky vytvarat/rusit jak formy tak komponenty na nich. Viac
> moznosti bohuzial nemas.
Pokud pou��v� D5:
Nepouzivat BitButtony, SpeedButtony a podobnou havet, ktera pouziva
Glyph. VCL obsahuje chybu, ktera zpusobuje problemy, ktere popisujes.
--
Jan Fiala
OT: Sit pres seriovy kabel
[*] Vladimir Michl <vladimir.michl(zv)hlubocky.del(tec)cz> - 18.3.2002 10:04:54
On Fri, 15 Mar 2002, Frankie Y wrote:
> Neznate nejaky software, ktery by umoznil realizovat sitove spojeni
> pres seriovy kabel? Prime propojeni kabelem ve Windows mi nevyhovuje.
> Mozna by i stacil program, ktery by prijimal TCP/IP spojeni (i
> vicenasobna!, ne pouze jedno) a pres kabel posilal druhemu PC.
Zalezi co na tech stranach bude. Ale klidne se to da udelat tak, ze jeden
bude jako PPP server a druhy jako PPP client. Jeste je pak treba si pohrat
s routovanim a funguje to. Mam to vyzkousene na NT 4.0 Workstation a W2K
Profesional (zde to funguje podstatne lepe).
---------------------------------------------------------------------------
Vladim�r Michl <Vladimir.Michl(zv)hlubocky.del(tec)cz>
Del a.s., Stroj�rensk� 38, ���r nad S�zavou
pobo�ka Olomouck� 355, Hlubo�ky-Mari�nsk� �dol�
tel: +420 68 5353548, fax: +420 68 5352364
http://hlubocky.del(tec)cz
TComboBox.ReadOnly
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.3.2002 10:08:04
Udelas si potomka, ktery bude pri ReadOnly nastavovat Enable a naopak.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
18.3.2002 Roland Turcan:
> Ako mozem dorobit %subj%.
IB a rychlost count
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 18.3.2002 10:29:50
Haj hou!
On 18 Mar 2002, at 9:20, Radek KALA wrote:
> U jedne hezke aplikace, chtel zakaznik videt ve formulari celovy
> pocet zaznamu v tabulce. Tak jsem si ho zacal vytahovat prikazem
>
> select count(*)
> from tabulka
>
> v plan je napsano natural a trva to 3.5 minuty.
> zkousel jsem nahradi * primarnim klicem a nepomohlo to. To by
> snad interbase mela umet zjistit rychleji kolik ma zaznamu nebo
> ne.
> Tabulka ma cca 25.000.000 zaznamu a bude hur.
Problem je v tom, ze diky multigeneracni architekture nemuze IB
pouzit pro zjisteni poctu radku v tabulce zadny index, ale musi je
vsechny projet a spocitat. Pri 25mil vet to nejakou chvili trva. Navic
se pri cteni radku provadi garbage collection, je-li treba, coz
zpusobi dalsi prodlevu (pri prvnim cteni). Pokud je nezbytne
zjistovat casto a rychle pocet vet v tabulce, je jedinym resenim
definovat triggery na insert a update ktere budou aktualizovat citac
v nejake jine tabulce. To ma ovsem tu nevyhodu, ze vytvari uzke
hrdlo s nizkou propustnosti, takze toto reseni se neda pouzit na
tabulky s masivni paralelni aktualizaci (coz jsou vetsinou prave
tabulky s velkym poctem vet).
> Jeste bych potreboval nejak zrychlit dotaz
>
> select first 1000 *
> from tabulka
> where rn starting with 'Z'
> order by rn.
>
> rn je v tabulce primarnim klicem. pokud tam neni to trideni trva to
> cca 1 s. pokud to necham setridit trva asi 1.5 min.
> Tanulka je nastesti readonly, da se nejak predtridit v databazi
> abych mel zaruceno, ze pri selectu bez order by mi prijdou ty data
> setrideny dobre ?
ORDER BY je vzdy realizovano jako sort (nikdy se nepouzije index
na polozku pres kterou je delano order by). Pri vetsim poctu
zaznamu to pak prirozene nejakou chvili trva. Navic musi server
hned precist vsechna data aby je mohl setridit a predat prvni uz v
pozadovanem poradi. Bez order by mu staci jen zjistit kde
pozadovane vety najde. Zrychlit order by lze jen jedinym zpusobem
- dat serveru k dispozici rychle zdroje pro trideni. Pomuze tedy bud
rychly disk, nebo nejlepe RAM disk a definovat ho jako primarni
oblast pro docasne (coz jsou predevsim sort) sobory. Vice
informaci vic konfiguracni parametry serveru.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
SynEdit a Kylix
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 18.3.2002 10:32:00
Dobry den,
chtel jsem se zeptat zda ma nekdo zkusenosti se SynEditem a Kylixem.
Ja jsem to doma zkousel, a po nekolika upravach se to rozbehlo, ale vypada
to spise jak parodie na win verzi (hlavne problemy s barvami a
prekreslovanim).
Ma nekdo lepsi vysledky?
Hezky den
Radek
DataType pro NUMERIC
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 18.3.2002 10:36:42
Nekde v helpu jsem nasel (D5), ze BSC aritmetika pracuje pouze na tri
desetina mista. Pokud to pozivas pri operacich nasobeni deleni, chyba se asi
ztrati. Problemem bude scitani tam bude videt.
Ja to resim tak, ze vsude kde to jde pocitam v ulozene procedure a zbytek
(napr. kurzove vypocty ) jsem upravil tak, aby i databazi byly ulozeny jako
float.
Pavel
-----Original Message-----
From: Milan Tome� [mailto:milan.tomes(zv)haida(tec)cz]
Sent: Friday, March 15, 2002 9:37 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: DataType pro NUMERIC
Dobry den,
mam jeden takovy problem. Jaky datovy typ mam v Delphi pouzit pro ulozeni
hodnoty z DB, ktera je typu NUMERIC ?
V podstate je to treba Single, Double atp..., ale problem je v zapornych
cislech. Jak to mate kdo vyresene ?
Chtel bych to ukladat ve stejnem formatu jako je to v IB, ale mam problem s
matematickymi operacemi. Pravdepodobne bych si musel nadeklarovat vlastni
Variant typ...
Udelal jsem si maly test:
do DB jsem vlozil sloupec NUMERIC(10,6) a do nej jsem vlozil
hodnotu -123.123456 a v Delphi jsem po prirazeni do Variantu dostal typ bud
Double nebo Currency, ale desetinna cast je oriznuta na tri mista.
S pozdravem
Milan Tome�
mailto:Milan.Tomes(zv)haida(tec)cz
IB a rychlost count
[*] Roland Turcan <rolo(zv)sedas.sk> - 18.3.2002 10:39:54
----- Original Message -----
From: "Radek KALA" <Kala(zv)Atlas(tec)cz>
> >
> > > select count(*)
> > > from tabulka
> >
> >
> > select sum(1)
> > from tabulka
> >
> To je to samy.
Ja ked potrebujem len zistit ze ci je tam aspon jeden tak pred tym som
pouzival count(*) a dnes dam iba "select first1..." a zistim si cez
"isEmpty". Na First je super to, ze ukonci prehladavanie ked sa vrati
pozadovane mnozstvo riadkov. Smola je ak tam nie je ani jeden, vtedy
prebehne celu tabulku a nic.
R.IB a rychlost count
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 18.3.2002 10:45:11
Pavel Cisar dne 18 Mar 2002 v 10:29:
> ORDER BY je vzdy realizovano jako sort (nikdy se nepouzije index na
> polozku pres kterou je delano order by). Pri vetsim poctu zaznamu to
> pak prirozene nejakou chvili trva.
Tohle je pravda?? (Vyzkousim...) Pokud ano, muzete prosim nekdo vysvetlit, proc se nepouzije
index? Prave kvuli rychlemu trideni podle ne-primarnich poli jsem obcas indexy vytvarel...
Karel Rys
RE2: Systemove prostredky na Win9x
[*] Ji�� Vosla�, Profireal, a.s. <jiri.voslar(zv)profireal(tec)cz> - 18.3.2002 10:49:03
[P��loha v souboru: winmail.dat]
A jak lze v programu detekovat volne zdroje ve Win9x?
Jiri Voslar
> casty problem. IMHO uz od zaciatku navrhu programu je treba brat do
> uvahy
> omedzenie zdrojov na Win9x a tomu prisposobit design. No ale teraz to uz
> neni mozne ze? ;). Mas niekolko moznosti: Vzdy upozornovat uzivatela pri
> nizky zdrojoch, ze mu program moze spadnut. (Nizke zdroje su ak je iba
> 20%
> volnych a menej). To je mozne detekovat pri vytvarani kazdeho formu a on
> sa
> uz sam zariadi.
>
> Kaka�ka Pavol
> KasiX(zv)atlas(tec)cz
Ako zrusit PopupMenu komponente WebBrowser ?
[*] Slavomir Cekel <cekel(zv)noves.sk> - 18.3.2002 11:01:39
Zdravim ...
ako spravit SUBJ ? Nemyslim tym to popummenu,ktore tam dam ja, ale
standardne explorerovske, ktore tam nabehne po nacitani nejakej stranky!
SURNE
vdaka Slavo
WinSocket a asynchron� packety
[*] Robert Van�k <delphi(zv)dingo(tec)cz> - 18.3.2002 11:01:17
Ahojte,
mozna je to blbost, ale docela me trapi a zatim jsem na to neprisel.
Dejme tomu, ze mam komponentu TClientSocket. Poslu pres ni data a o vice se
nestaram, liz pravda. Jak ale zjistim, ze jiz dana data prisla ma druhou
stranu? Potreboval bych vedet, ze uz je po vsem a data jsou na miste.
Jak na to? Jde to? Je treba jine komponenty.
Diky za pomoc.
BOB
Databaze a Memo
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 18.3.2002 11:03:57
Ahoj,
V kodu je drobna chybka, neinicializujes promenou s:= ''. Myslim si, ze
nikdo nevi co na pocatku obsahuje.
Jaky pouzivas pristup k Accessu ?
Ja jsem to zkousel pomoci ADO a neni tam neni problem.
ADOQuery1.Edit;
ADOQuery1.FieldByName( 'adr').Value :=
ADOQuery1.FieldByName( 'adr').Value +
'asdsadfsdafdsa'#13#10'ojSADKJESAFKJSREF';
ADOQuery1.Post;
dtto pracuje i s ADOTable.
Jinak dovol poznamku mimo:
--------------------------
takto ukladat properti typu M : N do memo pole neni nejlepsi napad. Bude se
ti s tim spatne a pomalu pracovat. Mnohem lepsi je samostatna tabulka, ktera
vyresi vazbu N:1 a 1 : M. Vysledky pak muzes zobrazovat v pomocnem napr.
gridu.
Zejmena, ale pri dotazu to bude cele radove rychlejsi. Ve svem prikladu musi
testovat existenci subretezce v retezec a to nebyva v databazich prilis
rychle.
Pavel
Zdravim,
zkusil sem nize napovezeno, ale ....
Kod
----------------
function TNKontakt.Kategorie: string;
var
i: Integer;
s: string;
begin
for i := 0 to CheckListBox1.Items.Count - 1 do begin
if CheckListBox1.Checked[i] = True then begin
s := s + CheckListBox1.Items.Strings[i] + #13 + #10;
end;
end;
Result := s;
end;
Table1Kategorie.Value := Kategorie;
Vysledek
----------------------
ErrorTabule s textem:
Cannont access field 'Kategorie' as type Text.
> Ahoj,
> zkusil jsem to v DML Accessu 97 a tento kod normalne pracuje:
> UPDATE Tabulka1
> SET adr = 'Ahoj' + chr$(13) + chr$(10) + Tabulka1.adr
> Tedy az na "$" v nazvu fce stejny jako pro DBF.
> (Sloupec adr je typu Memo)
>
> Pavel
>
>
> Bud to MS Access nebo DBASE IV. Pouzivam oboje ... a prave toto (nize)
nejak
> nejde
>
> > Jaka je to databaze ? S Memo v DBF lze pracovat jako s retezcem tj.
> scitat.
> > Na SQL serverech je to slozitejsi.
> >
> > Pavel
> >
> > Servus vesm.
> > Resim nasledujici problem: mam v databazi pole typu Memo a do toho mema
> > potrebuju pridat radek, neco jako :
> > Memo1.Lines.Add(string);
> > ale pro pole v databazi.
> >
> > Nevite nekdo jak na to?
> >
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.338 / Virov� b�ze: 189 - datum vyd�n�: 14.3.2002
Ako zrusit PopupMenu komponente WebBrowser ?
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.3.2002 11:04:10
Pridej tam sve prazdne
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
18.3.2002 Slavomir Cekel:
> Zdravim ...
> ako spravit SUBJ ? Nemyslim tym to popummenu,ktore tam dam ja, ale
> standardne explorerovske, ktore tam nabehne po nacitani nejakej stranky!
> SURNE
SQL AnyWhere a WinMe
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 18.3.2002 11:05:18
Jeden kamarat pouziva na Win98 nejaku aplikaciu, ktora si drzi data v SQL
Anywhere. Teraz kupil druhy pocitac s instalovanym WinMe a tato aplikacia sa
mu tam odmieta rozbehnut - nepripoji sa do databazy, namiesto toho zobrazi
connect dialog.
Je to mozne, aby Win32 aplikacia fungovala na W98 a nesla na WinMe ?
Bye
V.Mlich http://www.rar(tec)cz
telef. +420-67-7986163
mobil +420-603-454069
LargeInt - v IBX + Balicky
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 18.3.2002 11:26:31
Dik, za info.
O tom zakomentovani v IBQuery uz viem, uvazoval som rozsirit TParam tak aby
mal aj AsLargeInt.
Aky je na to Tvoj nazor? Vzdal som to, lebo sa mi nedarilo prekompilovat IBX
k mojej spokojnosti.
Uz som raz skusal rebuildovat IBX. Vsetko bolo OK, ale vsetky komponenty
mali default ikonu.
Kde som robil chybu?
Vseobecne sa v balickoch moc nevyznam, najma ked nemam .DPK.
Aky je presne postup (ak by som chcel nieco menit vo VCL) pre
znovuvytvorenie
vsetkych RunTime i DesignTime balickov vratane ikon ked nemam .DPK?
Existuje nejaky tool, ktory ulahcuje hladanie zavislosti medzi balickami?
Prip. co sa stane ak zmenim balicek VCL, ktory je v require ineho balicka,
ktory nerekompilujem?
Prip. co sa stane ak zmenim zdrojak unity, ktora je v balicku a ten znova
neprekompilujem?
Iba takuto unitu pridam do svojho projektu.
Chcem sa vyhnut vygenerovaniu tazko dohladatelnych chyb.
| Tak jsem se na to dival a je to tak Numeric(10,0) doopravdy vytvori
| TLargeInt, nicmene je to naprosto spravne. Podle Definiton Guide IB
| pracuje s typem INT64 a pokud se pouzije TIBTable, bude ti pracovat jak
| ma. V IBTable si Overcash udelal vlastni rutinu pro praci s daty. V
| TIBQuery pouzil TParam z unity DB a ta typ Int64 nezna. Tak to tam
| (IBX502 ) Overcash proste zasvorkoval a vykaslal se na to. Pokud si to
| prepises (r.388 unita IBQuery) na
|
| ftLargeInt: SQLParams[i].AsInt64 := StrToInt64(Params[i].asString);
|
| bude ti bezvadne fungovat i IBQuery ale asi bych to nedelal pro velke
| mnozstvi dat a neni to idealni.
| PS: Dival jsem se jak jsem to udelal loni. Jako Numeric(11,1) a omlouvam
| se za ten blud minule.
To je OK. Aj pocitace robia chyby nielen ludia. Dik za pomoc. Ten AsString
ma nenapadol.
---
Odch�dzaj�ca spr�va neobsahuje v�rusy.
Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.332 / V�rusov� datab�za: 186 - d�tum vydania: 7. 3. 2002
Konverze znak.sady na Oracle
[*] Michal <delphi-konference(zv)bcpraha(tec)com> - 18.3.2002 11:34:56
Ahoj vsem,
MSSQL7, Oracle8.1.7
Chtel bych se zeptat, jestli nekdo nemate zkusenosti se ctenim textovych
(v narodnich znakovych sadach) fieldu z Oracle.
Snazim se precist z MSSQL par textovyvh fieldu Oracle, ale stale se mi
nedari je mit ve spravne cilove kodove strance. Zjistil jsem, ze asi
zalezi na nasteni Oracle-klienta. Zkousel jsem si ty data zkonvertovat
primo na Oracle, ale nevim jestli mi je pak klient neprekonvertuje jeste
jednou.
Oracle-klient je najek nastaven (bohuzel nevim jak, asi na US8) a
nemuzu ho zmenit, nemam k nemu pristup. Takze bych potreboval nejakou
cestu, aby nezalezelo jak je ten Oracle-klient nastaven.
Dekuji
Michal
IB a rychlost count - pre P.Cisara
[*] Roland Turcan <rolo(zv)sedas.sk> - 18.3.2002 11:50:41
----- Original Message -----
From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
> Haj hou!
>
> On 18 Mar 2002, at 9:20, Radek KALA wrote:
>
> > U jedne hezke aplikace, chtel zakaznik videt ve formulari celovy
> > pocet zaznamu v tabulce. Tak jsem si ho zacal vytahovat prikazem
> >
> > select count(*)
> > from tabulka
> >
> > v plan je napsano natural a trva to 3.5 minuty.
> > zkousel jsem nahradi * primarnim klicem a nepomohlo to. To by
> > snad interbase mela umet zjistit rychleji kolik ma zaznamu nebo
> > ne.
> > Tabulka ma cca 25.000.000 zaznamu a bude hur.
>
> Problem je v tom, ze diky multigeneracni architekture nemuze IB
> pouzit pro zjisteni poctu radku v tabulce zadny index, ale musi je
> vsechny projet a spocitat. Pri 25mil vet to nejakou chvili trva. Navic
> se pri cteni radku provadi garbage collection, je-li treba, coz
> zpusobi dalsi prodlevu (pri prvnim cteni). Pokud je nezbytne
> zjistovat casto a rychle pocet vet v tabulce, je jedinym resenim
> definovat triggery na insert a update ktere budou aktualizovat citac
> v nejake jine tabulce. To ma ovsem tu nevyhodu, ze vytvari uzke
> hrdlo s nizkou propustnosti, takze toto reseni se neda pouzit na
> tabulky s masivni paralelni aktualizaci (coz jsou vetsinou prave
> tabulky s velkym poctem vet).
>
A co keby sa vytvorila dalsia tabulka ktora by mala a kopirovala len primary
key (a najdolezitejsie data) z hlavnej tabulky. A vykonaval by sa count iba
na nej, t.j. velkost zaznamu by sa zmensila, pocet stranok pouzitych na
tabulku tiez, takze si myslim ze by to mohlo zryhlit.
Alebo sa mylim ?
Roland.Preklad Z C do Pacsalu
[*] virt(zv)volny(tec)cz - 18.3.2002 11:52:23
Ahoj,
pomuzete mi nekdo toto prelozit z C do Pascalovske mluvy?
....
C Pascal
if (i % 8) then if (i mod 8)=??? then
....
x >>= 8 - (i % 8); x := x shr 8 - (i mod 8) ???
y <<= (i % 8); y := y shl (i mod 8) ???
....
nebo je to tak spravne?
Dekuji
Jirka Virt
email:virt(zv)volny(tec)cz
Nevykresleni Header u TListView
[*] Martin Cajbik <cajbik(zv)sct.sk> - 18.3.2002 11:53:30
Na toto mam jednu specialnu metodu, neviem vsak povedat preco to takto
funguje (lepsie povedane, preco to nefunguje aj bez toho).
ListView.Items.BeginUpdate;
// naplnenie ListView
// ...
ListView.Refresh; // refresh musi byt este pred EndUpdate, inak to nemusi
zobrazovat zahlavie ListView.Items.EndUpdate;
MarCaNT (marcant(zv)sct.sk)> Dobry den,
> Nevite nekdo, co s tim, kdyz se u TListView pri prvnim zobrazeni
> nevykresli zahlavi zloupcu?
>
> Podrobneji:
>
> Mam TTabSheet, v nem TPanel s Align = alTop a pod nim TListView s Align
> = alClient. TListView ma ViewStyle = vsReport. Problem je, ze kdyz
> poprve zobrazim zalozku na ktere je ListView, zahlavi s nadpisy sloupcu
> se nevykresli. Teprve, az na ne kliknu nebo az tento ListView zobrazim
> podruhe.
>
> Vypada to asi takto:
>
> ------------------------------ <- TTabSheet
> Nadpis <- TPanel s nadpisem
> Polozka1 Polozka2 Polozka3 <- TListView, toho zahlavi se
> nevykresli
> 1 Novak Milan 18
> 2 Kral Karel 23
> ------------------------------
>
>
> D5/Pro, SP2, Win95 SR2
> --
> ______________________________________________________
> Karel Kral, vyvojar IT / IT developer
> Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
> Tel: 05/47235000, 0602/552432, Fax: 05/47231203
> E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
> ______________________________________________________
>
>Help generator
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.3.2002 12:13:46
Na jaky druh helpu - WinHelp (.HLP) nebo HTML help (.CHM) ?
Placenou nebo free ?
Z placenych treba
Help&Manual www.helpandmanual.com (umi vsechny druhy helpu z jednoho
zdrojaku, vcetne noveho MM helpu, PDF, tisku manualu atd.)
PlanB Helpmaker vypadal taky velice schopne
Z free treba :
Cheetah Help
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
18.3.2002 Miro Kotasek:
> Neznate nahodou nejakou utilitu na vytvareni helpu?
IB a konfiguracni parametry
[*] Libor Filip <filip(zv)agrokonzulta(tec)cz> - 18.3.2002 12:20:36
A kde lze presne nalezt informace o konfiguracnich parametrech IB serveru?
S pozdravem
Libor Filip
- dat serveru k dispozici rychle zdroje pro trideni. Pomuze tedy bud
rychly disk, nebo nejlepe RAM disk a definovat ho jako primarni
oblast pro docasne (coz jsou predevsim sort) sobory. Vice
informaci vic konfiguracni parametry serveru.
S pozdravem
Pavel Cisar
Mobil: 0724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
---
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.320 / Virov� b�ze: 179 - datum vyd�n�: 30.1.2002
---
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.320 / Virov� b�ze: 179 - datum vyd�n�: 30.1.2002
OT: Ponuka prace
[*] Kaka�ka Pavol <kakacka(zv)proca(tec)cz> - 18.3.2002 12:32:06
Ahoj,
dotazy na sukr. mail :)
Hladame cloveka (neprogramatora), ktory bude taky clovek na vsetko:
Oficialny nazov funkcie je "Spravca Informacneho Systemu". Praca nie je
narocna, ale uzivatelia prudia.
Napln prace:
Po dobu par mesiacov bude treba obhospodarovat stary IS napisany vo FoxPro
(DBF tabulky), neskor novy IS pracujuci s SQL. Dalej pomoc uzivatelom
vymenit papier v tlaciarni a odpovedat na ich dotazy, riesit ich problemy,
....
Poziadavky:
Komunikativnost, znalost BDE a prace s DBF tabulkami. Trochu lepsia nez
zaciatocnicka znalost SQL (DBF neskor Firebird). Znalost OS Windows na viac
nez uzivatelskej urovni.
Ponukame:
- 20 tisic +/+ dohoda
- kolektiv je v pohode
- zavodna jedalen a dlasie
Pracovisko: Praha - Libus (viz: web)
Pavol Kaka�ka
vedouc� v�voje IS
ProCA spol. s r.o.
tel.: 02-672 83 443
kakacka(zv)proca(tec)cz
www.proca(tec)cz
www.brave(tec)cz
Znovu rozliseni
[*] Jan Simeck� - 18.3.2002 12:32:50
Dobry den,
Potreboval bych jeste poradit v Delphi, aby pri spusteni zjistil
soucasne rozliseni a pak pri ukonceni ho zase nastavil spatky.
Zakazdou radu budu vdecny.
S pozdravem Honza Simecky
IB a rychlost count
[*] Alex Cherednichenko <cherednichenko(zv)wo(tec)cz> - 18.3.2002 12:53:03
Ahoj, Pavle!
You wrote:
[Skipped]
PC> ORDER BY je vzdy realizovano jako sort (nikdy se nepouzije index
PC> na polozku pres kterou je delano order by).
Kecy.
CREATE TABLE DEMO (
ID INTEGER NOT NULL);
CREATE INDEX SI_DEMO_IDX ON DEMO (ID);
COMMIT WORK;
SELECT * FROM DEMO ORDER BY ID;
IB sformuje nasledujici plan:
PLAN (DEMO ORDER SI_DEMO_IDX)
With best regards, Alex Cherednichenko.
Systemove prostredky na Win9x
[*] Jiri Wendl, KSH-Data <wendl(zv)ksh-data(tec)cz> - 18.3.2002 13:04:14
>Pokud pou��v� D5:
>Nepouzivat BitButtony, SpeedButtony a podobnou havet, ktera pouziva
>Glyph. VCL obsahuje chybu, ktera zpusobuje problemy, ktere popisujes.
Mam D6.
Formulare vytvarim Dynamicky, jsou totiz v DLLkach.
Mohl by mi nekdo vysvetlit co to vubec ty systemove prostredky jsou?
A proc se nezvysi jejich pocet kdyz se zvysi pamet?
Predem diky Jirka