Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Komponenta DD.MM
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.12.2002 15:35:17
From: "Jaroslav Nadhera" <nadhera(zv)csh(tec)cz>
> Nevite nekdo o komponente, kde by se dalo zadavat den.mesic (tzn. jako
> datum, ale bez roku)?
V TDateTimePicker si to pomoci property Format muzes nastavit, vice v helpu.
Petr Vones
Re[6]: Symbol xxx is specific to a platform
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 6.12.2002 15:35:29
To vypnuto mam, tak teda nevim :) Ta polozka v project options je asi
az od verze 7, nenasel jsem ji.
Jakub Dusek
Friday, December 6, 2002, 3:28:48 PM, you wrote:
>> > VCL jsem samozrejme nemodifikoval, hlasi to tam standartne. Do Lib
>> > jsem vubec nesahal, je tam verze zkompilovana od Borlandu. Jediny
>> > duvod proc to muze hlasit je to ze ma pristup do VCL source...
>>
>> To ze sa vobec kompiluju, je nestandardne. Zrejme mas nastavenu cestu k
>> zdrojakom VCL, pozri si search path v project options a library path v
>> environment options.
MD> To, jestli se knihovny VCL kompiluji je dano nastavenim Project/Options/Compiler, parametr Use debug DCUs. Standardne je vypnuto.
MD> Marek Dostal
TABULKA - INSERT HODNOTY DO SLOUPCE TYPU CLOB
[*] Pavla Hub�lkov� <posta(zv)agrokonzulta(tec)cz> - 6.12.2002 15:37:36
A jak mam teda vlastne napsat prikaz, tak aby byl funkcni.
Nasledujici sekvence prikazu me stale hlasi chybu.
Sekvence prikaz je:
qry.Close;
qry.SQL.Text := 'INSERT INTO MY_TBL( id, MY_LOB) VALUES ( 222, empty_cLob())
returning MY_LOB INTO :sParam ';
qry.ParamByName('sParam').DataType := ftOraCLob;
qry.ParamByName('sParam').AsMemo := Memo1.Text;
qry.ExecSQL;
Kde delam chybu?
PavlaH
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Roman
Sent: Friday, December 06, 2002 3:09 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: TABULKA - INSERT HODNOTY DO SLOUPCE TYPU CLOB
----- Original Message -----
> Moje tabulka vubec nepouziva LONG sloupec.
> Rada bych vedela, jak napsat INSERT do teto tabulky, tak aby
> byl vkladan tez sloupectypu CLOB.
to "L" v tom "CLOB" znamena long ;-)
a jinak:
http://community.borland.com/article/0,1410,19504,00.html
Roman
==============================
http://kouzelne.misto(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.426 / Virov� b�ze: 239 - datum vyd�n�: 2.12.2002
OT: MSSQL server a email alert operator
[*] Jan Grman <J.Grman(zv)kmer.elf.stuba.sk> - 6.12.2002 15:37:10
Zdravim,
prosim o prepacenie, ale neviem si uz dost dlho poradit a nemam sa kam inam
obratit.
Chcem nastavit v MS SQL 2000 aby mi posielal spravy o vysledkoch UDZBY
(Maintenance Plan).
Neviem ale co je potrebne nainstalovat aby mi islo vyplnit MAPI profil v SQL
Mail, resp. SQL Server Agent.
Exchange server ? Ak ano, pisu ze je sucastou W2k. Ja to nikde nevidim.
Pomozete ?
jg
fce ktera orizne posledni entery (#13#10) ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.12.2002 15:43:36
From: "Ales Pavel" <Aldik(zv)quick(tec)cz>
> Neznate nekdo fci ktera orizne posledni entery (#13#10) ?:-)))
> Neco jako trimRight?
Treba StrTrimCharsRight z JclStrings
Petr Vones
TABULKA - INSERT HODNOTY DO SLOUPCE TYPU CLOB
[*] ViragI(zv)logica(tec)com - 6.12.2002 15:46:04
Co je qry za komponentu?
Ivan Virag
Moje tabulka vubec nepouziva LONG sloupec.
Rada bych vedela, jak napsat INSERT do teto tabulky, tak aby
byl vkladan tez sloupectypu CLOB.
This e-mail and any attachment is for authorised use by the intended recipient(s) only. It may contain proprietary material, confidential information and/or be subject to legal privilege. It should not be copied, disclosed to, retained or used by, any other party. If you are not an intended recipient then please promptly delete this e-mail and any attachment and all copies and inform the sender. Thank you.fce ktera orizne posledni entery (#13#10) ?
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 06.12.2002 15:48:27
> s := Copy(s, 1, Length(s) - 2);
Alebo
SetLength ( s, Length(s) - 2 );
Vlkovic
Seznam pocitacu v domene
[*] petr polasek <dragonz(zv)post(tec)cz> - 06.12.2002 16:04:49
zdravim vsechny,
potreboval bych napsat funkci, ktera by me vracela nazvy vsech
pocitacu v domene. Server i stanice jsou pod windows 2000.
Pouzivam Delphi 5. predem dik za pomoc.
--
----
Vyhraj 2listky na Breakbeat Conference
7.12.2002 v Roxy. zacatek od 22:00
Soutez na http://web.volny(tec)cz
Vice informaci o akci na www.lighthouse(tec)cz
fce ktera orizne posledni entery (#13#10) ?
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 6.12.2002 16:17:08
hezky tohle umim...(tak blbej zas nejsem:-))))
ale zaprve nevim zda tam ten enter je,nebo neni a taky nevi kolik jich tam
je dal jsem to do cyklu a chodi mi to, ale chci vedet jestli se to neda
nejak extra rychle:-) jednim prikazem:-))) jen tak pro zajimavost,ze:-))> s := Copy(s, 1, Length(s) - 2);
>
> --
> ing. Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 6.12.2002 Ales Pavel:
>
> > Neznate nekdo fci ktera orizne posledni entery (#13#10) ?:-)))
> > Neco jako trimRight?
>
> > Diky moc (davat to do cyklu mi neprijde moc kosher:-)
> > Hezky den
>
>
Jak dostat radky do jednoho
[*] Delphin <delphin(zv)post(tec)cz> - 6.12.2002 16:55:01
Mam zacatecnicky dotaz na optimalizaci dotazu. Kdyz se jedna jenom o dva
joiny, tak to jeste jede, ale v realu jich tam bude cca 10 a to uz trva moc
dlouho.
select ID,X.Pocet as XPocet,Y.Pocet as YPocet
from A
left outer join (select ID,sum(Pocet) where Typ='X' from B group by ID) X on
X.ID=A.ID
left outer join (select ID,sum(Pocet) where Typ='Y' from B group by ID) Y on
Y.ID=A.ID
Kdyz pouziju nasledujici poddotaz, tak to je podstatne rychlejsi
select ID,Typ,sum(Pocet) from B group by ID,Typ
akorat nevim, jak dostanu tech nekolik radku do jednoho.
Chci se tedy zeptat, jestli se da dostat nekolik radku do z poddotazu do
jednoho, pripadne jak jinak se to da vyresit.
Jedna se o MSSQL.
Diky Delphin
TPrintDialog
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 6.12.2002 16:59:21
Ahoj,
On 6 Dec 2002 at 14:14, Zbyn k Burget wrote:
> Preju vsem dobry den.
> Mam jeden dotaz: Potreboval bych si vyrobit vlastni tiskovy dialog
> (coz by samo o sobe byl problem, ale potreboval bych na nej umistit
> button "Vlastnosti" nebo "Nastavit tiskarnu" nebo tak neco. Nevite
> nahodou nekdo, jak se tento dialog jmenuje a jake parametry je mu
> potreba predat, aby nastavil prislusnou tiskarnu? Predpokladam, ze ho
> najdu v commdlg32.dll, ale netusim, jak se jmenuje a jaky potrebuje
> parametr.
napr. do ComboBoxu to dostanes takto;
CB1.Items.Assign(Printer.Printers);
CB1.ItemIndex := Printer.PrinterIndex;
Jarek
OT Kylix undefined symbol: initPAnsiString
[*] petr-kucera(zv)volny(tec)cz - 06.12.2002 17:55:13
Dobry den,
prosim Vas, zkousel jsem v Kylix 3 Trial verzi napsat nejaky
programek. Ten jsem prelozil a byl vyprodukovan spustitelny
soubor. Z prostredi Kylixu sel tento program pustit naprosto bez
problemu. Kdyz jsem jej vsak zkusil pustit z prikazove radky, tak
mi to zahlasilo chybu "undefined symbol: initPAnsiStrings". Mohl
by mi nekdo rict, proc? Da se tato chyba nejak odstranit nebo je
to tak schvalne udelano u trial verze?
Dekuji.
S pozdravem Petr Kucera.OT Kylix undefined symbol: initPAnsiString
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.12.2002 17:58:58
> prosim Vas, zkousel jsem v Kylix 3 Trial verzi napsat nejaky
> programek. Ten jsem prelozil a byl vyprodukovan spustitelny
> soubor. Z prostredi Kylixu sel tento program pustit naprosto bez
> problemu. Kdyz jsem jej vsak zkusil pustit z prikazove radky, tak
> mi to zahlasilo chybu "undefined symbol: initPAnsiStrings". Mohl
> by mi nekdo rict, proc? Da se tato chyba nejak odstranit nebo je
> to tak schvalne udelano u trial verze?
>
Tusim, ze uz jsem to jednou tak videl. Bezne jsem Trial verzi
prekladal a spoustel vysledne programy na jinych strojich (kde Kylix
vubec nikdy nebyl) a chodilo to. Pak se mi jednou podarilo vyrobit
paskvil, ktery spustit nesel (mam ale pocit, ze nesel spustit ani z
Kylixu). Pokud se nepletu, rebuild nepomohl, musel jsem udelat nejakou
zmenu ve zdrojaku (dopsaat a smazat mezeru) a pak spustit rebuild,
mozna jsemi spoustel znovu IDE.
D. Toman
OT Kylix undefined symbol: initPAnsiString
[*] Robert Suska <delphi(zv)korak.sk> - 6.12.2002 18:13:24
ahoj
musis si zapisat do suboru v adresari /home/... bash.rc alebo si vytvoris
script a do neho napises toto
#!/bin/bash
export LD_LIBRARY_PATH = "/usr/local/kylix3/bin" # kde ho mas ten K3
./Project1 # meno spustitelneho suboru
Robo
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
----- Original Message -----
From: <petr-kucera(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, December 06, 2002 5:55 PM
Subject: OT Kylix undefined symbol: initPAnsiString
> Dobry den,
>
> prosim Vas, zkousel jsem v Kylix 3 Trial verzi napsat nejaky
> programek. Ten jsem prelozil a byl vyprodukovan spustitelny
> soubor. Z prostredi Kylixu sel tento program pustit naprosto bez
> problemu. Kdyz jsem jej vsak zkusil pustit z prikazove radky, tak
> mi to zahlasilo chybu "undefined symbol: initPAnsiStrings". Mohl
> by mi nekdo rict, proc? Da se tato chyba nejak odstranit nebo je
> to tak schvalne udelano u trial verze?
>
> Dekuji.
>
> S pozdravem Petr Kucera.
Jak zjistit adresu SMTP z emailove adresy (was:Jak
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 6.12.2002 18:52:43
6.12.2002 Vymazal Milan:
>> A jak si to predstavujes ?
>> E-mailova adresa muze byt uplne jina nez SMTP server, pres kterou jsem
>> e-mail odeslal.
>> To, ze adresa obsahuje (zv)iol(tec)cz neznamena, ze posta byla odeslana pres
>> smtp.iol(tec)cz
> Ale nekric na nej :) o to myslel jinak. Pokud chces zjistit smtp
> server musis si vzit tu koncovku a zjistit na koho je registrovanej MX
> zaznam
Omlouvam se, pokud to znelo jako kriceni. Skutecne jsem to pochopil
jinak.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Jak pribalit DLL do dalsi DLL
[*] <bukaj(zv)iol(tec)cz> - 6.12.2002 20:37:57
Dobry den,
Delam DLL a potrebuji do ni "pribalit" jeste jednu DLL,
ze ktere budu volat nejake funkce. Nemam zdrojove kody
k druhe DLL a ani nemuze byt externe. Poradite mi?
Kuba
Nacitanie textu
[*] wlado <delphiconf(zv)recover.sk> - 6.12.2002 21:16:33
1. na nacitanie textu so suboru pouzivam tuto proceduru:
procedure TfrmHlavni.btnNactiClick(Sender: TObject);
var
Soub: TTextSoub;
Radka: String;
begin
AssignFile(Soub, 'data.txt');
try
Reset(Soub);
try
while not Eof(Soub) do begin
ReadLn(Soub, Radka);
Memo.Lines.Add(Radka);
end;
finally
CloseFile(Soub);
end;
except
on E:EInOutError do
case E.ErrorCode of
2: ShowMessage('xyz');
103: ShowMessage('xyz');
else
ShowMessage('Chyba: ' + E.Message);
end;
end;
end;
problem je v tom, ze text sa umiestni do noveho riadku a kurzor do riadku
pod text. Ako spravit, aby sa text tam, kde je umiestneny kurzor a kurzor
potom ostal na konci vlozeneho textu?
2. ako spravit v RichEdite reakciu na scrollovanie?
dik
Nacitanie textu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 6.12.2002 22:56:45
A je to nutne delat takto ?
Nemuzes pozit Memo.Lines.LoadFromFile('Data.TXT') ?
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
6.12.2002 wlado:
> 1. na nacitanie textu so suboru pouzivam tuto proceduru:
> procedure TfrmHlavni.btnNactiClick(Sender: TObject);
> var
> Soub: TTextSoub;
> Radka: String;
> begin
> AssignFile(Soub, 'data.txt');
> try
> Reset(Soub);
> try
> while not Eof(Soub) do begin
> ReadLn(Soub, Radka);
> Memo.Lines.Add(Radka);
> end;
> finally
> CloseFile(Soub);
> end;
> except
> on E:EInOutError do
> case E.ErrorCode of
> 2: ShowMessage('xyz');
> 103: ShowMessage('xyz');
> else
> ShowMessage('Chyba: ' + E.Message);
> end;
> end;
> end;
> problem je v tom, ze text sa umiestni do noveho riadku a kurzor do riadku
> pod text. Ako spravit, aby sa text tam, kde je umiestneny kurzor a kurzor
> potom ostal na konci vlozeneho textu?
MSSQL server a email alert operator
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 7.12.2002 06:09:23
> prosim o prepacenie, ale neviem si uz dost dlho poradit a
> nemam sa kam inam
> obratit.
> Chcem nastavit v MS SQL 2000 aby mi posielal spravy o vysledkoch UDZBY
> (Maintenance Plan).
> Neviem ale co je potrebne nainstalovat aby mi islo vyplnit
> MAPI profil v SQL
> Mail, resp. SQL Server Agent.
> Exchange server ? Ak ano, pisu ze je sucastou W2k. Ja to
> nikde nevidim.
> Pomozete ?
Ahoj,
nevim, jak u MS SQL 2000, ale u MS SQL 7 jsem musel nainstalovat Outlook a
vytvorit profil do schranky na mail serveru. Google mi sice nabidl jakousi
jinou alternativu sepsanou nejakym guru pres MS SQL, avsak postup obsahoval
cca 10 bodu, z nichz jsem pochopil sotva tretinu :-))). Instalace Outlooku
mi trvala kratsi dobu, nez precteni onoho postupu.
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
OT: praca
[*] Ivan Turcan <iturcan(zv)drake.sk> - 7.12.2002 08:50:54
Caute,
Ak nahodou nemate do coho pichnut a poznate dokonale Delphi a Windows , a
uplnou nahodou (nie 100% podmienka) aj JAVU, JSP,C++ dajte mi vediet
pretoze by som potreboval celkom pomoc. Hodim sem asi dost blby filter, ale
len zo Slovenska a z Banskej Bystrice popr. okolia
(s okolim mozno trosku prizmurim jedno ocko;) ).
Vdaka
Ivan
ps. odpovede prosim na sukr. email popr. na telefon
tel. +421 905 500958
E-mail: iturcan(zv)drake.sk
Nacitanie textu
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 7.12.2002 09:45:09
Jan Fiala wrote:
> Nemuzes pozit Memo.Lines.LoadFromFile('Data.TXT') ?
Chyba je v tom, ze ludia nedokazu definovat problem. Nejde tu o
LoadFromFile, ale o TMemo.Lines.Add, ktore presuva kurzor na zaciatok
dalsieho riadku, cim cele Memo zaroluje a dolu je zbytocny prazdny
riadok.
Ja to potrebujem skoro v kazdej zakazke: v kusku Mema ukazujem
poslednych N (1 az 3) riadkov logu (s moznostou scrolovania na
poslednych M), a neprisiel som na nic lepsie, nez po 'Add' urobit toto:
if Memo1.Lines.Count >= N then
begin
Memo1.Lines[Memo1.Lines.Count-N] := Memo1.Lines[Memo1.Lines.Count-N];
Memo1.SelStart := Length(Memo1.Text) - 1;
end;
Teda najprv 'hrabnem' do prveho radoby viditelneho riadku, cim prinutim
memo, aby zarolovalo nazad a potom nastavim kurzor na koniec posledneho
riadku. Somarina, ale berieme to.
bye
vmlich http://www.rar(tec)cz
Seznam pocitacu v domene
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 7.12.2002 10:40:09
> potreboval bych napsat funkci, ktera by me vracela nazvy vsech
> pocitacu v domene. Server i stanice jsou pod windows 2000.
> Pouzivam Delphi 5. predem dik za pomoc.
Je na to funkcia NetServerEnum, tu je jednoduchy priklad:
const
NERR_SUCCESS = 0;
MAX_PREFERRED_LENGTH = -1;
SV_TYPE_WORKSTATION = 1;
SV_TYPE_SERVER = 2;
type
PServerInfo100 = ^TServerInfo100;
TServerInfo100 = packed record
sv100_platform_id: DWORD;
sv100_name: PWideChar;
end;
function NetServerEnum(servername: PWideChar; level: DWORD; var bufptr:
Pointer; prefmaxlen: DWORD;
var entriesread: DWORD; var totalentries: DWORD; servertype: DWORD;
domain: PWideChar;
var resume_handle: DWORD): Integer; stdcall; external 'netapi32.dll';
function NetApiBufferFree(Buffer: Pointer): Integer; stdcall; external
'netapi32.dll';
function GetDomainComputerNames(List: TStrings): Boolean;
var
NetResult: Integer;
Buf: Pointer;
EntriesRead, TotalEntries, ResumeHandle: Cardinal;
I: Integer;
P: PServerInfo100;
begin
Result := False;
EntriesRead := 0;
TotalEntries := 0;
ResumeHandle := 0;
NetResult := NetServerEnum(nil, 100, Buf, Cardinal(MAX_PREFERRED_LENGTH),
EntriesRead, TotalEntries,
SV_TYPE_SERVER or SV_TYPE_WORKSTATION, nil, ResumeHandle);
if NetResult = NERR_SUCCESS then
try
P := Buf;
for I := 0 to EntriesRead - 1 do
begin
List.Add(P^.sv100_name);
Inc(P);
end;
Result := True;
finally
NetApiBufferFree(Buf);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
List: TStringList;
begin
List := TStringList.Create;
try
if GetDomainComputerNames(List) then
ShowMessage(List.Text);
finally
List.Free;
end;
end;
HTH
TOndrej
Nacitanie textu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 7.12.2002 16:37:51
7.12.2002 Viliam Mlich:
>> Nemuzes pozit Memo.Lines.LoadFromFile('Data.TXT') ?
> Chyba je v tom, ze ludia nedokazu definovat problem. Nejde tu o
> LoadFromFile, ale o TMemo.Lines.Add, ktore presuva kurzor na zaciatok
> dalsieho riadku, cim cele Memo zaroluje a dolu je zbytocny prazdny
> riadok.
Tohle byla reakce na to nacitani.
> Ja to potrebujem skoro v kazdej zakazke: v kusku Mema ukazujem
> poslednych N (1 az 3) riadkov logu (s moznostou scrolovania na
> poslednych M), a neprisiel som na nic lepsie, nez po 'Add' urobit toto:
> if Memo1.Lines.Count >= N then
> begin
> Memo1.Lines[Memo1.Lines.Count-N] := Memo1.Lines[Memo1.Lines.Count-N];
> Memo1.SelStart := Length(Memo1.Text) - 1;
> end;
> Teda najprv 'hrabnem' do prveho radoby viditelneho riadku, cim prinutim
> memo, aby zarolovalo nazad a potom nastavim kurzor na koniec posledneho
> riadku. Somarina, ale berieme to.
V tomto pripade staci po pridani radku obycejne
Memo1.Lines.Add('Pridavany text');
Memo1.SelStart := Length(Memo1.Text) - 2;
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Je pocitac pripoje?
[*] Jan �imeck� - 7.12.2002 17:38:00
Zdravem vsechny ucastniky konference,
potreboval bych vytvorit aplikaci, ktera budu spustena, tak aby nebyla videt
na liste. V pripde ze detekuje pripojeni k internetu tak se objevi okno.
Jakmil bude PC OFF-LINE, tak se vrati do puvodniho skryteho tvaru. Problem
je ovsem vtom, ze nevim jak zjistit zda je PC ON-LINE.
Poradte mi prosim !!!
Predem dekuji za vasi odpoved. S pozdravem
(zv)(zv)(zv)(zv)(zv)(zv)(zv)
\ ~ ~ /
(\ (zv) (zv) /)
-------oOOO--(_)--OOOo-------
Jan �imeck�
simecky(zv)centrum(tec)cz
http://www.simecky.tk
http://www.reklalink.tk
ooO
----------( )--Ooo---------
\ ( ( )
\_) ) /
(_)
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.427 / Virov� b�ze: 240 - datum vyd�n�: 6.12.2002
Tajna aplikace
[*] Josef Straka <strakajosef(zv)seznam(tec)cz> - 7.12.2002 19:07:36
Prijemny den,
D5Prof W95OSR2+MSIE5.5
Delam takovy program, ktery bude sledovat, jake programy pouzivaji a jak
dlouho v nich pracuji uzivatele (treba hry v praci). Jde ale o to, aby ten
clovek nevedel, ze je meren. Proto ten program nesmi byt videt ve Start
liste. To delam pomoci teto procedury:
procedure TForm1.WndProc(var Msg : TMessage);
begin
if (Msg.Msg = WM_SYSCOMMAND) and (Msg.WParam = SC_MINIMIZE) then
begin
Form1.Hide;
Exit;
end;
inherited WndProc(Msg);
end;
Jde mi ale o to, abych se tam ja sam potom dostal. Nevim, jak pote ten
program zase vyvolat na obrazovku, treba po zadani nejakeho hesla. Myslel
jsem, ze by se dala osetrit jen jedna instance programu a pri pokusu o
spusteni druhe instance by vyskocilo okno s heslem a v pripade dobreho hesla
by se program zase objevil Form1.Visible:= True.
Nevim ale, jak na to, muzete mi pomoci.
Straka Josef
e-mail: strakajosef(zv)quick(tec)cz
www: http://strakaj.zde(tec)cz
Tajna aplikace
[*] David Kraina <DKx(zv)Seznam(tec)cz> - 7.12.2002 19:42:03
A co tak zkusit Form1.Show ???
> procedure TForm1.WndProc(var Msg : TMessage);
> begin
> if (Msg.Msg = WM_SYSCOMMAND) and (Msg.WParam = SC_MINIMIZE) then
> begin
> Form1.Hide;
> Exit;
> end;
> inherited WndProc(Msg);
> end;
>
> Jde mi ale o to, abych se tam ja sam potom dostal. Nevim, jak pote ten
> program zase vyvolat na obrazovku, treba po zadani nejakeho hesla. Myslel
Tajna aplikace
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 7.12.2002 20:27:40
7.12.2002 Josef Straka:
> Prijemny den,
> D5Prof W95OSR2+MSIE5.5
> Delam takovy program, ktery bude sledovat, jake programy pouzivaji a jak
> dlouho v nich pracuji uzivatele (treba hry v praci). Jde ale o to, aby ten
> clovek nevedel, ze je meren. Proto ten program nesmi byt videt ve Start
> liste. To delam pomoci teto procedury:
> procedure TForm1.WndProc(var Msg : TMessage);
> begin
> if (Msg.Msg = WM_SYSCOMMAND) and (Msg.WParam = SC_MINIMIZE) then
> begin
> Form1.Hide;
> Exit;
> end;
> inherited WndProc(Msg);
> end;
> Jde mi ale o to, abych se tam ja sam potom dostal. Nevim, jak pote ten
> program zase vyvolat na obrazovku, treba po zadani nejakeho hesla. Myslel
> jsem, ze by se dala osetrit jen jedna instance programu a pri pokusu o
> spusteni druhe instance by vyskocilo okno s heslem a v pripade dobreho hesla
> by se program zase objevil Form1.Visible:= True.
> Nevim ale, jak na to, muzete mi pomoci.
Muzes si napsat jiny program, ktery mu jen posle zpravu a na zaklade
teto zpravy se program zobrazi.
Dalsim resenim je klavesova zkratka na urovni systemu, po ktere se
program opet objevi.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Nacitanie textu
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 7.12.2002 23:59:16
>> Teda najprv 'hrabnem' do prveho radoby viditelneho riadku, cim
prinutim
>> memo, aby zarolovalo nazad
> V tomto pripade staci po pridani radku obycejne
>
> Memo1.Lines.Add('Pridavany text');
> Memo1.SelStart := Length(Memo1.Text) - 2;
Nestaci, vyskusaj si to. Nehrabnes - nezaroluje nazad.
bye
vmlich http://www.rar(tec)cz <--- dnes vysla dalsia beta
3.1
FB Trigger datum
[*] MUDr. Patrik VALENTA <valentapat(zv)volny(tec)cz> - 8.12.2002 21:12:03
Zdravim, Triggery neumim a zacinam, a ted potrebuju pomoct.
Potrebuju funkci ktera vrati ze dvou fieldu dat1 a dat2 rozdil ve dnech
prilklad select dat1,dat2,mojefunkce as dni from.....
a vysledek ocekavan
1.1.2001 31.12.2001 365
valik
ICQ 54152896
prvy viditelny riadok
[*] wlado <delphiconf(zv)recover.sk> - 8.12.2002 23:20:24
Ako nadstavim prvy viditelny riadok v RichEdite? Chcem, aby sa mi napr. po
stla�eni buttonu ukazal 5. riadok ako prvy viditelny.
Dik
Jak dostat radky do jednoho
[*] Ing. Pavel �ilinec����)b���zf���3 - 9.12.2002 06:58:03
Lze pouzit neco takovehoto (pokud znas presne sloupce, tak je to pak
optimalni). Podle potreby muzes menit tu agregacni fci. Mam to
vyzkousene a kupodivu je CASE docela rychly
select ID,
PocetX = max(case Typ when 'X' then b.Pocet else 0 end),
PocetY = max(case Typ when 'Y' then b.Pocet else 0 end),
from A
left outer join B on a.ID = b.ID
group by a.ID
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
D> Mam zacatecnicky dotaz na optimalizaci dotazu. Kdyz se jedna jenom o dva
D> joiny, tak to jeste jede, ale v realu jich tam bude cca 10 a to uz trva moc
D> dlouho.
D> select ID,X.Pocet as XPocet,Y.Pocet as YPocet
D> from A
D> left outer join (select ID,sum(Pocet) where Typ='X' from B group by ID) X on
D> X.ID=A.ID
D> left outer join (select ID,sum(Pocet) where Typ='Y' from B group by ID) Y on
D> Y.ID=A.ID
D> Kdyz pouziju nasledujici poddotaz, tak to je podstatne rychlejsi
D> select ID,Typ,sum(Pocet) from B group by ID,Typ
D> akorat nevim, jak dostanu tech nekolik radku do jednoho.
D> Chci se tedy zeptat, jestli se da dostat nekolik radku do z poddotazu do
D> jednoho, pripadne jak jinak se to da vyresit.
D> Jedna se o MSSQL.
D> Diky Delphin
FB Trigger datum
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 09.12.2002 06:59:11
On 8 Dec 2002 at 21:12, MUDr. Patrik VALENTA wrote:
> Potrebuju funkci ktera vrati ze dvou fieldu dat1 a dat2 rozdil ve
> dnech prilklad select dat1,dat2,mojefunkce as dni from..... a vysledek
> ocekavan 1.1.2001 31.12.2001 365
select dat2-dat1 from ...
FB Trigger datum
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 9.12.2002 07:00:46
> Potrebuju funkci ktera vrati ze dvou fieldu dat1 a dat2=20
> rozdil ve dnech
rozdil_ve_dnech =3D dat2 - dat1;
alespon na IB/FB
peca
porovnani s UPPER
[*] Ing. Jiri SOKOL <JS-delphi(zv)seznam(tec)cz> - 09.12.2002 07:34:34
Dne 5.=A0prosinec=A02002, <delphi-l(zv)clexpert(tec)cz> napsal:
> From: "Petr Smol=EDk" <psmolik(zv)fides(tec)cz>
> > SELECT UPPER(NAME)
> > FROM USER
> > WHERE UPPER(NAME) LIKE UPPER('Nov%k')
> > kdyz za "%" dam dlouhe "a".
> > S "%" to vybere dobre Nov=E1ky, dokonce to dobre prevede na velka p=
ismena,
> ale v LIKE to neprojde.
> > Proc? Jak to resite?
> > Nikde jsem k tomu nic nenasel :-(
>
> Zapis UPPER(FIELD COLLATE PXW_CSY) napriklad.
>
A pokud jde o moznost obmeny jen u jednoho pismene, tak bych pouzil spi=
se:
'Nov_k'
Ahoj
Ing. Jiri Sokol, js-delphi(zv)seznam(tec)cz, +420251431187
D6ProfSP2,WinNT
amatersky
programator
______________________________________________________________________
Reklama:
Pouze do 20.12.2002 z=EDsk=E1te pr=E9mii 400,- Kc pri uzavren=ED
smlouvy o stavebn=EDm sporen=ED na http://prodej.finance(tec)cz
TPrintDialog
[*] Zbynek Burget <zburget(zv)miastudio(tec)cz> - 9.12.2002 07:36:24
Asi jsem si nerozumeli :-(
Nemam problem se ziskanim seznamu tiskaren, ale se zobrazenim dialogu
nastaveni tiskarny. Pokud bych pouzil standardni tiskovy dialog, tak je tam
button "Vlastnosti..." - a prave ten bych potreboval dostat do sveho
dialogu.
Jeste by bylo reseni pouzit ten standardni dialog a z neho nektere polozky
umazat (ne jen zakazat) a nektere si tam zase pridat. Ale stejne nevim jak
na to, a navic mi to nepripada jako prilis ciste reseni - proto jsem od
hlubsiho zkoumani tehle cesty upustil.
Zbynek Burget
----- Original Message -----
From: "Jaroslav Uher" <moravia(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, December 06, 2002 4:59 PM
Subject: Re: TPrintDialog
> Ahoj,
>
> On 6 Dec 2002 at 14:14, Zbyn k Burget wrote:
>
> > Preju vsem dobry den.
> > Mam jeden dotaz: Potreboval bych si vyrobit vlastni tiskovy dialog
> > (coz by samo o sobe byl problem, ale potreboval bych na nej umistit
> > button "Vlastnosti" nebo "Nastavit tiskarnu" nebo tak neco. Nevite
> > nahodou nekdo, jak se tento dialog jmenuje a jake parametry je mu
> > potreba predat, aby nastavil prislusnou tiskarnu? Predpokladam, ze ho
> > najdu v commdlg32.dll, ale netusim, jak se jmenuje a jaky potrebuje
> > parametr.
>
> napr. do ComboBoxu to dostanes takto;
> CB1.Items.Assign(Printer.Printers);
> CB1.ItemIndex := Printer.PrinterIndex;
>
> Jarek
>
OT Kylix undefined symbol: initPAnsiString
[*] Petr Ku�era <pkucera(zv)mh.vri(tec)cz> - 9.12.2002 07:40:01
Dekuji, toto fungovalo, ale bude to fungovat i tam, kde nen=ED
nainstalovan Kylix? Da se ten program tam tak=E9 nejakym zpusobem pustit
nebo je to vylouceno?
PK
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Robert Suska
Sent: Friday, December 06, 2002 6:13 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: OT Kylix undefined symbol: initPAnsiString
ahoj
musis si zapisat do suboru v adresari /home/... bash.rc alebo si
vytvoris
script a do neho napises toto
#!/bin/bash
export LD_LIBRARY_PATH =3D "/usr/local/kylix3/bin" # kde ho mas ten K3
./Project1 # meno spustitelneho suboru
Robo
> Dobry den,
>
> prosim Vas, zkousel jsem v Kylix 3 Trial verzi napsat nejaky
> programek. Ten jsem prelozil a byl vyprodukovan spustitelny
> soubor. Z prostredi Kylixu sel tento program pustit naprosto bez
> problemu. Kdyz jsem jej vsak zkusil pustit z prikazove radky, tak
> mi to zahlasilo chybu "undefined symbol: initPAnsiStrings". Mohl
> by mi nekdo rict, proc? Da se tato chyba nejak odstranit nebo je
> to tak schvalne udelano u trial verze?=20
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.426 / Virov=E1 b=E1ze: 239 - datum vyd=E1n=ED: 2.12.2002
=20
OT: Interbase, Firebird
[*] Dalibor <dalibor(zv)torola(tec)cz> - 09.12.2002 08:20:35
Ahoj,
muzete mi nekdo rict, jaky je rozdil mezi Interbase 6 a Firebird.
Myslel jsem si, ze Firebird je pro Unixove platformy a Interbase pro
pro Win. Ale to asi neni pravda.
Kterou vlastne muzu bezplatne pouzivat, ktera je placena?
Priznam se, ze v tom mam hokej a rad bych v tom mel jasno.MSSQL server a email alert operator
[*] Z�le��k Tom� - 9.12.2002 08:45:47
> prosim o prepacenie, ale neviem si uz dost dlho poradit
> a nemam sa kam inam obratit. Chcem nastavit v MSSQL2000
> aby mi posielal spravy o vysledkoch UDZBY (Maintenance Plan).
> Neviem ale co je potrebne nainstalovat aby mi islo vyplnit=20
> MAPI profil v SQL Mail, resp. SQL Server Agent. Exchange
> server ? Ak ano, pisu ze je sucastou W2k. Ja to nikde nevidim.
Microsoft Knowledge Base:
INF: Common SQL Mail Problems
http://support.microsoft.com/default.aspx?scid=3Dkb;en-us;Q315886
HOW TO: Troubleshoot Your SQL Mail Issue
http://support.microsoft.com/default.aspx?scid=3Dkb;en-us;Q321183
INF: How to Configure SQL Mail
http://support.microsoft.com/default.aspx?scid=3Dkb;en-us;Q263556
INF: Frequently Asked Questions - SQL Server - SQL Mail
http://support.microsoft.com/default.aspx?scid=3Dkb;en-us;Q311231
FIX: SQL Mail 2000 Needs Microsoft Outlook 2000 Client
http://support.microsoft.com/default.aspx?scid=3Dkb;en-us;Q281293
Tomas Zalesak
OT: Interbase, Firebird
[*] Roland Turcan <rolo(zv)sedas.sk> - 09.12.2002 09:08:14
<<< 9. 12. 2002 9:05 - Dalibor "dalibor(zv)torola(tec)cz" >>>
D> Ahoj,
D> muzete mi nekdo rict, jaky je rozdil mezi Interbase 6 a Firebird.
Interbase 6 bol uvolneny ako OperSource Borlandom a potom uz vytvorili
IB 6.5 a teraz chystaju IB7 ale tie su uz platene.
FireBird vznikol zo zdrojakov IB6 a chytili sa ho OpenSource
programatori ktory ho vyvijaju pre rozne platformy a poskytuju
zadarmo.
D> Myslel jsem si, ze Firebird je pro Unixove platformy a Interbase pro
D> pro Win. Ale to asi neni pravda.
Oba sa robia pre viacere platformy
D> Kterou vlastne muzu bezplatne pouzivat, ktera je placena?
Intebase 6 a vsetky FireBirdy su zadarmo
D> Priznam se, ze v tom mam hokej a rad bych v tom mel jasno.
Uz dufam nie.
--
Best regards, TRoland
Radek v RXDbGridu
[*] Ales Pavel <Aldik(zv)quick(tec)cz> - 9.12.2002 09:48:53
Potreboval bych doplnit do RxDbGridu jeste jeden editovatelnej radek pod
Hlavicku, ale aby nebyl napojen na dataset a byl lehce oddelen od radku
datasetu, nemate nekdo zkusenost???
Prosim poradte mi.
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak(tec)cz
e-casopis: http://rozarkaweb.aktualne(tec)cz
premiestnovanie komponent v datamodule
[*] spot <spot(zv)zoznam.sk> - 9.12.2002 10:05:22
Mam vela komponent v DataModule. Pohybujem s nimi, robim si priestor, aby sa
mi tam zmestili dalsie.
Ja si ich poprekladam tam kde potrebujem a IDE mi pri save projectu poposuva
vsetko ako chce.
Robim nad D7. Robilo to aj v D5. Neviete ako tomu zabranit?
602 pro PC
[*] Macko Martin <martin.macko(zv)m-pro(tec)cz> - 9.12.2002 10:08:07
Zdravim konferenci,
software602 vydal novou verzi jejich suitu - vite nekdo neco o propojeni =
do Delphi - OLE nebo COM ?
Martin Macko
odd=EClen=ED slu=BEeb z=E1kazn=EDk=F9m
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Tel.: +420 476 107 231 - 233
Mobil.: +420 603 483 940
Email:martin.macko(zv)m-pro(tec)cz
Web:http://www.m-pro(tec)cz
premiestnovanie komponent v datamodule
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 9.12.2002 10:17:25
> Mam vela komponent v DataModule. Pohybujem s nimi, robim si
> priestor, aby sa mi tam zmestili dalsie.
> Ja si ich poprekladam tam kde potrebujem a IDE mi pri save
> projectu poposuva vsetko ako chce.
> Robim nad D7. Robilo to aj v D5. Neviete ako tomu zabranit?
Cital som o tom nedavno v borland.public.delphi.ide. Zda sa, ze ide o bug,
ktory sa prejavuje vtedy, ak su komponenty na datovom moduli umiestnene mimo
viditelnej oblasti v designeri (takze su na nom viditelne scrollboxy). Vtedy
sa pri uchovani pozicie komponent prehadzu tak, aby sa zmestili do
designera.
Obist to mozes tak, ze si roztiahnes ten designer tak, aby boli vsetky
komponenty viditelne, alebo ak ich je prilis vela, mozes tiez pouzit viacero
data modules.
HTH
TOndrej
OT: Interbase, Firebird
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 9.12.2002 10:24:51
Haj hou!
On 9 Dec 2002 at 8:20, Dalibor wrote:
> muzete mi nekdo rict, jaky je rozdil mezi Interbase 6 a Firebird.
> Myslel jsem si, ze Firebird je pro Unixove platformy a Interbase pro
> pro Win. Ale to asi neni pravda.
> Kterou vlastne muzu bezplatne pouzivat, ktera je placena?
> Priznam se, ze v tom mam hokej a rad bych v tom mel jasno.
Borland uvolnil zdroje IB6 beta v cervenci 2000. Firebird je samostatny
projekt ktery rozviji tyto zdrojove texty do noveho serveru pod nazvem
Firebird. Firebird je zdarma a volne siritelny a od IB 6 Open Edition se
lisi radou oprav, vylepseni a podporou novych platforem.
Borland sice uvolnil zdroje, ale rozstepil vyvoj IB na volne siritelno
verzi Open Edition (pouze zdroje, na sourceforge, neoficialni buildy na
mers.com) a komercni verzi za penize. Vyvoj Open Edition byl letos
Borlandem oficialne ukoncen a vylepsovat se tedy uz nebude. Komercni
verze mezitim mela dve nove verze (6.5 a 7.0), a Borland nadale bude
delat nej komercni (placenou) IB.
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
TPrintDialog
[*] Danik Frantik <frantik(zv)telpro(tec)cz> - 9.12.2002 10:24:07
Zalozka Dialogs, componenta TPrinterSetupDialog ti nevyhovuje?
Danik
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Zbynek Burget
Nemam problem se ziskanim seznamu tiskaren, ale se zobrazenim dialogu
nastaveni tiskarny. Pokud bych pouzil standardni tiskovy dialog, tak je tam
button "Vlastnosti..." - a prave ten bych potreboval dostat do sveho
dialogu.
Zbynek Burget
TPrintDialog
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 9.12.2002 10:26:06
podivej se na funkce
PrinterProperties
DocumentProperties
AdvancedDocumentProperties
pokud by byl zajem muzu poslat unitu pro tiskarny kde to vyuzivam
Seznam pocitacu v domene
[*] petr polasek <dragonz(zv)post(tec)cz> - 09.12.2002 11:14:41
Diky za pomoc, ale me to vraci prazdny list, pritom mam v domene
asi 50 pocitacu a 10 serveru. NetResult mi vraci NERR_SUCCESS,
takze nevim v cem je problem. Jo a jeste funkce NetSessionEnum
pres level 10 mi funguje uplne super na vsech serverech. =20
----- P=D9VODN=CD ZPR=C1VA -----
Od: "Ondrej Kelle" <O.Kelle(zv)digitalpublishing.de>
Komu: "'delphi-l(zv)clexpert(tec)cz'" <delphi-l(zv)clexpert(tec)cz>
P=F8edm=ECt: RE: Seznam pocitacu v domene
Datum: 7.12.2002 - 11:18:10
> > potreboval bych napsat funkci, ktera by me
> > vracela nazvy vsech
> > pocitacu v domene. Server i stanice jsou
> > pod windows 2000.
> > Pouzivam Delphi 5. predem dik za pomoc.
>=20
> Je na to funkcia NetServerEnum, tu je
> jednoduchy priklad:
>=20
> const
> NERR_SUCCESS =3D 0;
> MAX_PREFERRED_LENGTH =3D -1;
>=20
> SV_TYPE_WORKSTATION =3D 1;
> SV_TYPE_SERVER =3D 2;
>=20
> type
> PServerInfo100 =3D ^TServerInfo100;
> TServerInfo100 =3D packed record
> sv100_platform_id: DWORD;
> sv100_name: PWideChar;
> end;
>=20
> function NetServerEnum(servername: PWideChar;
> level: DWORD; var bufptr:
> Pointer; prefmaxlen: DWORD;
> var entriesread: DWORD; var totalentries:
> DWORD; servertype: DWORD;
> domain: PWideChar;
> var resume_handle: DWORD): Integer; stdcall;
> external 'netapi32.dll';
> function NetApiBufferFree(Buffer: Pointer):
> Integer; stdcall; external
> 'netapi32.dll';
>=20
> function GetDomainComputerNames(List:
> TStrings): Boolean;
> var
> NetResult: Integer;
> Buf: Pointer;
> EntriesRead, TotalEntries, ResumeHandle:
> Cardinal;
> I: Integer;
> P: PServerInfo100;
> begin
> Result :=3D False;
> EntriesRead :=3D 0;
> TotalEntries :=3D 0;
> ResumeHandle :=3D 0;
> NetResult :=3D NetServerEnum(nil, 100, Buf,
> Cardinal(MAX_PREFERRED_LENGTH),
> EntriesRead, TotalEntries,
> SV_TYPE_SERVER or SV_TYPE_WORKSTATION, nil,
> ResumeHandle);
> if NetResult =3D NERR_SUCCESS then
> try
> P :=3D Buf;
> for I :=3D 0 to EntriesRead - 1 do
> begin
> List.Add(P^.sv100_name);
> Inc(P);
> end;
> Result :=3D True;
> finally
> NetApiBufferFree(Buf);
> end;
> end;
>=20
> procedure TForm1.Button1Click(Sender:
> TObject);
> var
> List: TStringList;
> begin
> List :=3D TStringList.Create;
> try
> if GetDomainComputerNames(List) then
> ShowMessage(List.Text);
> finally
> List.Free;
> end;
> end;
>=20
> HTH
> TOndrej
>=20
--=20
---
V=FDhodn=E9 ceny letenek najdete v=BEdy na http://letenky.volny(tec)cz
Jak pribalit DLL do dalsi DLL
[*] Lubomir Fule <fule(zv)humansoft.sk> - 9.12.2002 11:23:19
Ak som to spravne pochopil, tak ma jednu DLL (bez zdrojakov) a chces ju
prilinkovat k inej DLL tak, aby vysledkom bola iba jedna DLL. Nuz take nieco
sa skratka neda...
L.
> -----Original Message-----
> From: bukaj(zv)iol(tec)cz [mailto:bukaj(zv)iol(tec)cz]
> Sent: Friday, December 06, 2002 8:38 PM
> To: Delphi Konference
> Subject: Jak pribalit DLL do dalsi DLL
>
>
> Dobry den,
> Delam DLL a potrebuji do ni "pribalit" jeste jednu DLL,
> ze ktere budu volat nejake funkce. Nemam zdrojove kody
> k druhe DLL a ani nemuze byt externe. Poradite mi?
>
> Kuba
>
> TPrintDialog
[*] Zbynek Burget <zburget(zv)miastudio(tec)cz> - 9.12.2002 11:28:29
Taky by to bylo reseni, nicmene se mi moc nelibi. Musel bych mit na
nastaveni tisku dialogy dva - jeden, kterym bych v pripade potreby nastavil
tiskarnu a druhym bych teprve tiskl. Ovsem ten pripad, ze se bude nastavovat
tiskarna je dost casty :-(
Opravdu se neda nijak vyvolat ten dialog "Vlastnosti..." nebo v nejhorsim
pripade umazat nejake komponenty (a jine pridat) do standardniho tiskoveho
dialogu?
Necekam, ze to bude jednoduche, ale ani nevim, kde hledat reseni...
Zbynek Burget
----- Original Message -----
From: "Danik Frantik" <frantik(zv)telpro(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, December 09, 2002 10:24 AM
Subject: RE: TPrintDialog
> Zalozka Dialogs, componenta TPrinterSetupDialog ti nevyhovuje?
>
> Danik
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Zbynek Burget
> Nemam problem se ziskanim seznamu tiskaren, ale se zobrazenim dialogu
> nastaveni tiskarny. Pokud bych pouzil standardni tiskovy dialog, tak je
tam
> button "Vlastnosti..." - a prave ten bych potreboval dostat do sveho
> dialogu.
> Zbynek Burget
>
Seznam pocitacu v domene
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 9.12.2002 11:31:18
> Diky za pomoc, ale me to vraci prazdny list, pritom mam v domene
> asi 50 pocitacu a 10 serveru. NetResult mi vraci NERR_SUCCESS,
> takze nevim v cem je problem.
Mozno su tie pocitace v inej ako primarnej domene. Ten priklad pouziva len
primarnu domenu (parameter domain = nil). Skus mu specifikovat konkretnu
domenu. V kazdom pripade si pozri dokumentaciu k tej funkcii a pohraj sa s
parametrami.
HTH
TOndrej
602 pro PC
[*] Rumcajs - konference <konrum(zv)seznam(tec)cz> - 9.12.2002 11:37:45
No, vim, ze Tab602 je delan jako OCX, ale zatim sem s tim moc nedelal
Rumcajs
Zdravim konferenci,
software602 vydal novou verzi jejich suitu - vite nekdo neco o propojeni do
Delphi - OLE nebo COM ?
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.422 / Virov� b�ze: 237 - datum vyd�n�: 20.11.2002
Interbase a cestina v triggerech a procedurach
[*] Petr Selinger <delphiforum(zv)centrum(tec)cz> - 09.12.2002 12:20:27
Zdravim,
nevi nekdo, jak se da pouzit cestina v triggerech a procedurach?
Pokud si napr. nactu do lok. promenne data z tabulky obsahujici
hacky a carky, pak s touto promennou nemuzu pracovat.
Priklad:
- mam tabulku STRINGS, sloupce ID, TEXT (WIN250)
- vybiram radek s id 1, (pole TEXT obsahuje hacky, carky)
a pak chci k tomuto stringu neco pridat.
select TEXT from STRINGS where ID=1 into :SText;
SText = :SText || ' neco pridam.'; <- nahlasi chybu
Diky za kazdou radu,
Petr Selinger
IB6.02, D5SP2
OT: Perl
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 9.12.2002 12:53:13
nazdar,
zaoberal sa tu niekto prepojenim Perl s Delphi?
neviete niekto o nejakej dobrej (offline) dokumentaci k Perlu ?
dik
joka
--------------------------------------------
Ing. Jozef Kalus=09
SOVA
=BC. =8At=FAra 17/28
018 61 BELU=8AA
Mob.: +421 905 459156
e-mail: equipment(zv)equipment.sk
jozef.kalus(zv)spordat.sk
web: http://www.equipment.sk
OT: Perl
[*] martin.falta(zv)obi.de - 9.12.2002 13:06:16
This is a multi-part message in MIME format.
Ahoj,
propojenim s Delphi ne, ale studoval jsem propojeni Perlu s C++. V knizce
Programovani v Perlu pro pokrocile je o tom docela slusna kapitola.
Vice o knize tady:
http://www.vltava(tec)cz/Store/GoodsDetail.asp?c=SriramSrinivasan&sCGoodsID=K0167&nDepartmentID=170
Martin Falta
OBI IT
tel.: +420 296 576 156
GSM: +420 603 151 147
Informace o odes�lateli:
jozef.kalus(zv)spor
dat.sk Komu: delphi-l(zv)clexpert(tec)cz
Odeslal: Kopie:
delphi-l-owner(zv)c P�edm�t: OT: Perl
lexpert(tec)cz
09.12.2002 12:53
Odpov�zte pros�m
u�ivateli
delphi-l
nazdar,
zaoberal sa tu niekto prepojenim Perl s Delphi?
neviete niekto o nejakej dobrej (offline) dokumentaci k Perlu ?
dik
joka
--------------------------------------------
Ing. Jozef Kalus
SOVA
�. ?t�ra 17/28
018 61 BELU?A
Mob.: +421 905 459156
e-mail: equipment(zv)equipment.sk
jozef.kalus(zv)spordat.sk
web: http://www.equipment.sk
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the
sender.Jak dostat radky do jednoho
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 9.12.2002 13:11:35
Neni mi jasne co presne chces, ale napr.:
select ID,
Sum(CASE WHEB TYP = 'Y' THEN Pocet ELSE 0 END) As Ypocet,
Sum(CASE WHEB TYP = 'X' THEN Pocet ELSE 0 END) As Xpocet
from B
group by ID
Pavel
-----Original Message-----
From: Delphin [mailto:delphin(zv)post(tec)cz]
Sent: Friday, December 06, 2002 4:55 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Jak dostat radky do jednoho
Mam zacatecnicky dotaz na optimalizaci dotazu. Kdyz se jedna jenom o dva
joiny, tak to jeste jede, ale v realu jich tam bude cca 10 a to uz trva moc
dlouho.
select ID,X.Pocet as XPocet,Y.Pocet as YPocet
from A
left outer join (select ID,sum(Pocet) where Typ='X' from B group by ID) X on
X.ID=A.ID
left outer join (select ID,sum(Pocet) where Typ='Y' from B group by ID) Y on
Y.ID=A.ID
Kdyz pouziju nasledujici poddotaz, tak to je podstatne rychlejsi
select ID,Typ,sum(Pocet) from B group by ID,Typ
akorat nevim, jak dostanu tech nekolik radku do jednoho.
Chci se tedy zeptat, jestli se da dostat nekolik radku do z poddotazu do
jednoho, pripadne jak jinak se to da vyresit.
Jedna se o MSSQL.
Diky Delphin
Prevod IP adresy na jmeno
[*] petr polasek <dragonz(zv)post(tec)cz> - 09.12.2002 13:18:03
potrebuji prevest vetsi mnozstvi IP adres na jmena. Nevi nekdo o
nejake komponente, kde bych jen zadal IP adresu DNS serveru a
potom IP adresu, kterou chci prevest na jmeno.
--=20
---
EXOTIKA * POT=C1P=CCN=CD * HORSK=C9 MASIVY * bu=EFte na sv=E9 dovolen=E9 VO=
LN=DD
* http://cestovani.volny(tec)cz
Prace s DLL
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 9.12.2002 13:30:46
Zdravim
nemate nekdo po ruce ukazku prace s DLL, ja se snazim napsat DLL ktery
obsahuje dve funkce. TO DLL volam ve sve aplikaci a
skousim pouzit ty funkce. U vsech funkci mi to spravne
vrati vysledek ale u druhe mi to zobrazi hlasku invalid pointer
operator. nevite v cem je chyba ?
Dik Milan
Prevod IP adresy na jmeno
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 09.12.2002 13:31:04
> potrebuji prevest vetsi mnozstvi IP adres na jmena. Nevi nekdo o
> nejake komponente, kde bych jen zadal IP adresu DNS serveru a
> potom IP adresu, kterou chci prevest na jmeno.
DnsSend.pas ze Synapse... ;-) V Indy je take neco takoveho, v ICS
take...
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Prace s DLL
[*] David Michal <david.michal(zv)www-bv(tec)com> - 9.12.2002 13:37:18
Zdravim,
Nepracujes tam s parametry string? Mam pocit, ze pri praci s DLL se stringy
musi predavat jako PCHAR.
David
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Vymazal Milan
Sent: 09 December 2002 13:31
To: delphi-l(zv)clexpert(tec)cz
Subject: Prace s DLL
Zdravim
nemate nekdo po ruce ukazku prace s DLL, ja se snazim napsat DLL ktery
obsahuje dve funkce. TO DLL volam ve sve aplikaci a
skousim pouzit ty funkce. U vsech funkci mi to spravne
vrati vysledek ale u druhe mi to zobrazi hlasku invalid pointer
operator. nevite v cem je chyba ?
Dik Milan
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.427 / Virus Database: 240 - Release Date: 06/12/2002
Re[2]: Prace s DLL
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 9.12.2002 13:38:58
Cau David,
Monday, December 9, 2002, 1:37:18 PM, you wrote:
> Zdravim,
> Nepracujes tam s parametry string? Mam pocit, ze pri praci s DLL se stringy
> musi predavat jako PCHAR.
> David
no to bude mozna ono. posilam mu dva stringi a zase to navraci stringi
i'm stupid
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Vymazal Milan
> Sent: 09 December 2002 13:31
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Prace s DLL
> Zdravim
> nemate nekdo po ruce ukazku prace s DLL, ja se snazim napsat DLL ktery
> obsahuje dve funkce. TO DLL volam ve sve aplikaci a
> skousim pouzit ty funkce. U vsech funkci mi to spravne
> vrati vysledek ale u druhe mi to zobrazi hlasku invalid pointer
> operator. nevite v cem je chyba ?
> Dik Milan
> ---
> Incoming mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.427 / Virus Database: 240 - Release Date: 06/12/2002
S pozdravem
Milan Vymazal
Re[2]: Prace s DLL
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 9.12.2002 13:55:52
Cau David,
Monday, December 9, 2002, 1:37:18 PM, you wrote:
> Zdravim,
> Nepracujes tam s parametry string? Mam pocit, ze pri praci s DLL se stringy
> musi predavat jako PCHAR.
> David
jo super je to tim...
mam jeste jeden dotaz volam to DLL takto. ale to znamena ze se nacte
pri spusteni programu. ja bych potreboval to DLL volat napriklad jenom
pri spusteni funkce. Chci totiz to DLL treba upravovat a pak ho nahrat
do adresare s programem a tim upgradovat funkce.
implementation
function secti; external 'knihovna.dll' index 1;
function odecti; external 'knihovna.dll' index 2;
function spoj; external 'knihovna.dll' index 3;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:=(INtToStr(secti(10,10)));
edit2.text:=(INtToStr(odecti(10,10)));
edit3.text:=spoj(pchar('sfsadf'),'aaaa');
end;
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Vymazal Milan
> Sent: 09 December 2002 13:31
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Prace s DLL
> Zdravim
> nemate nekdo po ruce ukazku prace s DLL, ja se snazim napsat DLL ktery
> obsahuje dve funkce. TO DLL volam ve sve aplikaci a
> skousim pouzit ty funkce. U vsech funkci mi to spravne
> vrati vysledek ale u druhe mi to zobrazi hlasku invalid pointer
> operator. nevite v cem je chyba ?
> Dik Milan
> ---
> Incoming mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.427 / Virus Database: 240 - Release Date: 06/12/2002
S pozdravem
Milan Vymazal
Seznam pocitacu v domene
[*] Zdenek Stepanek <webmaster(zv)rokaglass(tec)com> - 9.12.2002 13:58:57
Zdravim
Me tahle fce funguje naprosto bez jakychkoliv uprav a problemu.
Zdenek
-----Original Message-----
Diky za pomoc, ale me to vraci prazdny list, pritom mam v domene asi 50
pocitacu a 10 serveru. NetResult mi vraci NERR_SUCCESS, takze nevim v
cem je problem. Jo a jeste funkce NetSessionEnum pres level 10 mi
funguje uplne super na vsech serverech. =20
----- P=D9VODN=CD ZPR=C1VA -----
> > potreboval bych napsat funkci, ktera by me
> > vracela nazvy vsech
> > pocitacu v domene. Server i stanice jsou
> > pod windows 2000.
> > Pouzivam Delphi 5. predem dik za pomoc.
>=20
> Je na to funkcia NetServerEnum, tu je
> jednoduchy priklad:
>=20
> const
> NERR_SUCCESS =3D 0;
> MAX_PREFERRED_LENGTH =3D -1;
>=20
> SV_TYPE_WORKSTATION =3D 1;
> SV_TYPE_SERVER =3D 2;
>=20
> type
> PServerInfo100 =3D ^TServerInfo100;
> TServerInfo100 =3D packed record
> sv100_platform_id: DWORD;
> sv100_name: PWideChar;
> end;
>=20
> function NetServerEnum(servername: PWideChar;
> level: DWORD; var bufptr:
> Pointer; prefmaxlen: DWORD;
> var entriesread: DWORD; var totalentries:
> DWORD; servertype: DWORD;
> domain: PWideChar;
> var resume_handle: DWORD): Integer; stdcall;
> external 'netapi32.dll';
> function NetApiBufferFree(Buffer: Pointer):
> Integer; stdcall; external
> 'netapi32.dll';
>=20
> function GetDomainComputerNames(List:
> TStrings): Boolean;
> var
> NetResult: Integer;
> Buf: Pointer;
> EntriesRead, TotalEntries, ResumeHandle:
> Cardinal;
> I: Integer;
> P: PServerInfo100;
> begin
> Result :=3D False;
> EntriesRead :=3D 0;
> TotalEntries :=3D 0;
> ResumeHandle :=3D 0;
> NetResult :=3D NetServerEnum(nil, 100, Buf,=20
> Cardinal(MAX_PREFERRED_LENGTH), EntriesRead, TotalEntries,
> SV_TYPE_SERVER or SV_TYPE_WORKSTATION, nil,
> ResumeHandle);
> if NetResult =3D NERR_SUCCESS then
> try
> P :=3D Buf;
> for I :=3D 0 to EntriesRead - 1 do
> begin
> List.Add(P^.sv100_name);
> Inc(P);
> end;
> Result :=3D True;
> finally
> NetApiBufferFree(Buf);
> end;
> end;
>=20
> procedure TForm1.Button1Click(Sender:
> TObject);
> var
> List: TStringList;
> begin
> List :=3D TStringList.Create;
> try
> if GetDomainComputerNames(List) then
> ShowMessage(List.Text);
> finally
> List.Free;
> end;
> end;
Nemoznost ukonceni procesu(aplikace)
[*] Dalin <delphi-konference(zv)bcpraha(tec)com> - 9.12.2002 14:00:19
Ahoj,
nevite nekdo jak nastavit ve w2k procesu (aplikace) aby nesel ukoncit pres
task manager
napr. pokud skusim ukoncit proces schovst.exe napise to neco jako proces
nelze ukoncit, pristup byl zamitnut,nebo neco podobneho.
Mozna by to slo i pomoci flagu debug (tusim ze to davaji automaticky delphi
kdyz se ladi program) bohuzel nevim jak na to.
dekuji
Dalin.Seznam pocitacu v domene
[*] Robert Suska <delphi(zv)korak.sk> - 9.12.2002 14:07:02
Ahojte!
Aj mne to slape ako hodinky len este jedna vec by ma zaujimala ako zistit
napr. zoznam domen a nejako to napasovat na tento kod a pekne keby som si
vybral z comboboxu nazov domeny resp. workgroupy tak by sa mi ku nej
zobrazil zoznam pc v tej domene
Dakujem za nakopnutie
Robo
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
Zdravim
Me tahle fce funguje naprosto bez jakychkoliv uprav a problemu.
Zdenek
-----Original Message-----
Diky za pomoc, ale me to vraci prazdny list, pritom mam v domene asi 50
pocitacu a 10 serveru. NetResult mi vraci NERR_SUCCESS, takze nevim v
cem je problem. Jo a jeste funkce NetSessionEnum pres level 10 mi
funguje uplne super na vsech serverech.
----- P�VODN� ZPR�VA -----
> > potreboval bych napsat funkci, ktera by me
> > vracela nazvy vsech
> > pocitacu v domene. Server i stanice jsou
> > pod windows 2000.
> > Pouzivam Delphi 5. predem dik za pomoc.
>
> Je na to funkcia NetServerEnum, tu je
> jednoduchy priklad:
>
> const
> NERR_SUCCESS = 0;
> MAX_PREFERRED_LENGTH = -1;
>
> SV_TYPE_WORKSTATION = 1;
> SV_TYPE_SERVER = 2;
>
> type
> PServerInfo100 = ^TServerInfo100;
> TServerInfo100 = packed record
> sv100_platform_id: DWORD;
> sv100_name: PWideChar;
> end;
>
> function NetServerEnum(servername: PWideChar;
> level: DWORD; var bufptr:
> Pointer; prefmaxlen: DWORD;
> var entriesread: DWORD; var totalentries:
> DWORD; servertype: DWORD;
> domain: PWideChar;
> var resume_handle: DWORD): Integer; stdcall;
> external 'netapi32.dll';
> function NetApiBufferFree(Buffer: Pointer):
> Integer; stdcall; external
> 'netapi32.dll';
>
> function GetDomainComputerNames(List:
> TStrings): Boolean;
> var
> NetResult: Integer;
> Buf: Pointer;
> EntriesRead, TotalEntries, ResumeHandle:
> Cardinal;
> I: Integer;
> P: PServerInfo100;
> begin
> Result := False;
> EntriesRead := 0;
> TotalEntries := 0;
> ResumeHandle := 0;
> NetResult := NetServerEnum(nil, 100, Buf,
> Cardinal(MAX_PREFERRED_LENGTH), EntriesRead, TotalEntries,
> SV_TYPE_SERVER or SV_TYPE_WORKSTATION, nil,
> ResumeHandle);
> if NetResult = NERR_SUCCESS then
> try
> P := Buf;
> for I := 0 to EntriesRead - 1 do
> begin
> List.Add(P^.sv100_name);
> Inc(P);
> end;
> Result := True;
> finally
> NetApiBufferFree(Buf);
> end;
> end;
>
> procedure TForm1.Button1Click(Sender:
> TObject);
> var
> List: TStringList;
> begin
> List := TStringList.Create;
> try
> if GetDomainComputerNames(List) then
> ShowMessage(List.Text);
> finally
> List.Free;
> end;
> end;
Re[2]: Prace s DLL
[*] <raul(zv)raphael(tec)cz> - 09.12.2002 14:21:33
Podivej se na popis funkci LoadLibrary a freeLibrary, je
tam v helpu prehlednej example jak nacitat dll dynamicky az
kdyz je potrebujes apod... Sam toto pouzivam pro
rozsirujici moduly redakcniho systemu pro web. (muzu si pak
vybrat treba skinovy dll az podle uzivatele, nebo treba
pripisu dalsi modul pro db a potom si muzu vybrat kterej se
am pouzit atd)
Tomas Emresz
On Mon, 9 Dec 2002 13:55:52 +0100
Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> wrote:
> Cau David,
>
> Monday, December 9, 2002, 1:37:18 PM, you wrote:
>
> > Zdravim,
> > Nepracujes tam s parametry string? Mam pocit, ze pri
> praci s DLL se stringy
> > musi predavat jako PCHAR.
> > David
>
> jo super je to tim...
>
> mam jeste jeden dotaz volam to DLL takto. ale to znamena
> ze se nacte
> pri spusteni programu. ja bych potreboval to DLL volat
> napriklad jenom
> pri spusteni funkce. Chci totiz to DLL treba upravovat a
> pak ho nahrat
> do adresare s programem a tim upgradovat funkce.
>
>
> implementation
> function secti; external 'knihovna.dll' index 1;
> function odecti; external 'knihovna.dll' index 2;
> function spoj; external 'knihovna.dll' index 3;
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> edit1.text:=(INtToStr(secti(10,10)));
> edit2.text:=(INtToStr(odecti(10,10)));
> edit3.text:=spoj(pchar('sfsadf'),'aaaa');
> end;
>
>
>
>
> > -----Original Message-----
> > From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> > Behalf Of Vymazal Milan
> > Sent: 09 December 2002 13:31
> > To: delphi-l(zv)clexpert(tec)cz
> > Subject: Prace s DLL
>
>
> > Zdravim
>
> > nemate nekdo po ruce ukazku prace s DLL, ja se snazim
> napsat DLL ktery
> > obsahuje dve funkce. TO DLL volam ve sve aplikaci a
> > skousim pouzit ty funkce. U vsech funkci mi to spravne
> > vrati vysledek ale u druhe mi to zobrazi hlasku invalid
> pointer
> > operator. nevite v cem je chyba ?
>
> > Dik Milan
>
> > ---
> > Incoming mail is certified Virus Free.
> > Checked by AVG anti-virus system
> (http://www.grisoft.com).
> > Version: 6.0.427 / Virus Database: 240 - Release Date:
> 06/12/2002
>
>
>
>
>
> S pozdravem
>
> Milan Vymazal
>
PHP (was Perl)
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 9.12.2002 14:22:53
Bohuzel se nejedna o Perl, takze neodpovidam na dotaz ale
kdyz uz jsem na to ted narazil, mozna se to nekomu bude hodit=20
-- propojeni PHP a Delphi5-7
http://members.chello.be/ws36637/
Martin Schayna
----- Original Message -----=20
From: "KALUS Jozef" <jozef.kalus(zv)spordat.sk>
nazdar,
zaoberal sa tu niekto prepojenim Perl s Delphi?
neviete niekto o nejakej dobrej (offline) dokumentaci k Perlu ?
Tvorba komponenty
[*] Robert Poncak <delphi(zv)zvlauto.sk> - 9.12.2002 14:37:03
Zdravim vsetkych!
Chcel by som vytvorit pomponentu a mam niekolko problemov takze:
Moja komponenta by mala vyzerat ako TComboBox, ale nebude jeho potomkom.
Mala by byt potomkom TDBGrid, vykresli sa TEdit + TButton + TDBGrid.
A tu je problem.
Pri prepisovani constructoru Create mam nasledujuce problemy:
1. Ako zneviditelnit TDBGrid tak, aby v dobe navrhu hotovej komponenty nebol
DBGrid vobec viditelny?
skusal som toto, ale nefunguje to, a okrem toho mi to hadze Access violation
constructor TColumnComboBox.Create(AOwner : TComponent);
begin
inherited;
with AOwner do
begin
Visible := False;
Parent := nil;
end;
Ed := TEdit.Create(Self);
Ed.Parent := Self;
end;
2. Co mam dat v Ed := TEdit.Create(Self) - ako Self? Ma to byt formular
do ktoreho bude komponenta vkladana, ako ho definovat?
Dakujem za kazdu odpoved.
Robo
DAO a pristup do readonly mdb
[*] mato <mato.tino(zv)inmail.sk> - 9.12.2002 14:38:48
zdravim,
nedari sa mi rozchodit pristup k mdb databaze z DAO komponentov. mdb je na
suborovom serveri. Ak nastavim adresar kde je mdb na read, tak sa dao
nepripoji. Jedine ak nastavim exclusive a readonly. Ale potom sa k tej mdb
databaze nik iny nepripoji.
Re[4]: Prace s DLL
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 9.12.2002 14:46:48
Cau raul,
Monday, December 9, 2002, 2:21:33 PM, you wrote:
> Podivej se na popis funkci LoadLibrary a freeLibrary, je
> tam v helpu prehlednej example jak nacitat dll dynamicky az
> kdyz je potrebujes apod... Sam toto pouzivam pro
> rozsirujici moduly redakcniho systemu pro web. (muzu si pak
> vybrat treba skinovy dll az podle uzivatele, nebo treba
> pripisu dalsi modul pro db a potom si muzu vybrat kterej se
> am pouzit atd)
to je divny me Delphi nechcou nic na ty dve slova najit ?
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
> Tomas Emresz
> On Mon, 9 Dec 2002 13:55:52 +0100
> Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> wrote:
>> Cau David,
>>
>> Monday, December 9, 2002, 1:37:18 PM, you wrote:
>>
>> > Zdravim,
>> > Nepracujes tam s parametry string? Mam pocit, ze pri
>> praci s DLL se stringy
>> > musi predavat jako PCHAR.
>> > David
>>
>> jo super je to tim...
>>
>> mam jeste jeden dotaz volam to DLL takto. ale to znamena
>> ze se nacte
>> pri spusteni programu. ja bych potreboval to DLL volat
>> napriklad jenom
>> pri spusteni funkce. Chci totiz to DLL treba upravovat a
>> pak ho nahrat
>> do adresare s programem a tim upgradovat funkce.
>>
>>
>> implementation
>> function secti; external 'knihovna.dll' index 1;
>> function odecti; external 'knihovna.dll' index 2;
>> function spoj; external 'knihovna.dll' index 3;
>>
>> procedure TForm1.Button1Click(Sender: TObject);
>> begin
>> edit1.text:=(INtToStr(secti(10,10)));
>> edit2.text:=(INtToStr(odecti(10,10)));
>> edit3.text:=spoj(pchar('sfsadf'),'aaaa');
>> end;
>>
>>
>>
>>
>> > -----Original Message-----
>> > From: delphi-l-owner(zv)clexpert(tec)cz
>> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
>> > Behalf Of Vymazal Milan
>> > Sent: 09 December 2002 13:31
>> > To: delphi-l(zv)clexpert(tec)cz
>> > Subject: Prace s DLL
>>
>>
>> > Zdravim
>>
>> > nemate nekdo po ruce ukazku prace s DLL, ja se snazim
>> napsat DLL ktery
>> > obsahuje dve funkce. TO DLL volam ve sve aplikaci a
>> > skousim pouzit ty funkce. U vsech funkci mi to spravne
>> > vrati vysledek ale u druhe mi to zobrazi hlasku invalid
>> pointer
>> > operator. nevite v cem je chyba ?
>>
>> > Dik Milan
>>
>> > ---
>> > Incoming mail is certified Virus Free.
>> > Checked by AVG anti-virus system
>> (http://www.grisoft.com).
>> > Version: 6.0.427 / Virus Database: 240 - Release Date:
>> 06/12/2002
>>
>>
>>
>>
>>
>> S pozdravem
>>
>> Milan Vymazal
>>
S pozdravem
Milan Vymazal
Re[2]: Prace s DLL
[*] Peter Sulek <psulek(zv)centrum.sk> - 9.12.2002 14:57:17
Skus LoadLibrary:
procedure NacitajDLL;
type
TMojaProcedura = procedure;
var hDLL : THandle;
MojaProcedura : TMojaProcedura;
begin
hDLL := LoadLibrary('MojaKniznica.DLL');
if (hDLL<=HInstance_Error) then exit;
(zv)MojaProcedura := nil;
(zv)MojaProcedura := GetProcAddress (hDLL,'MojaProcedura');
if ((zv)MojaProcedura <> nil)
then MojaProcedura;
if hDLL>HInstance_error
then FreeLibrary(LibHandle);
end;
> mam jeste jeden dotaz volam to DLL takto. ale to znamena ze se nacte
> pri spusteni programu. ja bych potreboval to DLL volat napriklad jenom
> pri spusteni funkce. Chci totiz to DLL treba upravovat a pak ho nahrat
> do adresare s programem a tim upgradovat funkce.
Jak ulozit TList do TFileStream?
[*] David Michal <david.michal(zv)www-bv(tec)com> - 9.12.2002 15:09:24
Zdravim,
V TListu mam deklaravano nekolik promenych type String a jednu type TString.
Chtel bych cely TList (Mes^) ulozit do souboru. Blahove jsem zkousel:
F.WriteBuffer(Mes^, SizeOf(Mes^));
Ale toto mi evidentne uklada nejake nesmysly. Jakym zpusobem mohu ulozit
cely TList do souboru, aniz bych musel TList rozkladat na jednotlive recordy
a promenne, zjistovat velikost stringu a potom je samostatne ukladat?
Diky,
David
Jak ulozit TList do TFileStream?
[*] Petr Langer <langer(zv)xdom(tec)cz> - 9.12.2002 15:32:32
Obavam se, ze to budes muset rozlozit.
Do TList-u se ukladaji pointry, takze to co se ti ulozilo do souboru jsou
pointry prevedene po bajtech na znaky.
Navic sam o sobe nevi, jak velke struktury to tema pointrama ukazuje...
HTH
pl
----- Original Message -----
From: "David Michal" <david.michal(zv)www-bv.com>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, December 09, 2002 3:09 PM
Subject: Jak ulozit TList do TFileStream?> Zdravim,
> V TListu mam deklaravano nekolik promenych type String a jednu type
TString.
> Chtel bych cely TList (Mes^) ulozit do souboru. Blahove jsem zkousel:
> F.WriteBuffer(Mes^, SizeOf(Mes^));
> Ale toto mi evidentne uklada nejake nesmysly. Jakym zpusobem mohu ulozit
> cely TList do souboru, aniz bych musel TList rozkladat na jednotlive
recordy
> a promenne, zjistovat velikost stringu a potom je samostatne ukladat?
> Diky,
> David
>
>
>Interbase a cestina v triggerech a procedurach
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 09.12.2002 15:59:05
> nevi nekdo, jak se da pouzit cestina v triggerech a procedurach?
> Pokud si napr. nactu do lok. promenne data z tabulky obsahujici
> hacky a carky, pak s touto promennou nemuzu pracovat.
> - mam tabulku STRINGS, sloupce ID, TEXT (WIN250)
> - vybiram radek s id 1, (pole TEXT obsahuje hacky, carky)
> a pak chci k tomuto stringu neco pridat.
> select TEXT from STRINGS where ID=3D1 into :SText;
> SText =3D :SText || ' neco pridam.'; <- nahlasi chybu
Funguje treba toto: SText nacist do lokalni promenne ktera je
deklarovana s charsetem, to neco pridavane taky a pak to teprv
zretezit. Zhruba takto:
create procedure qpokus
returns
(qtext char(100) CHARACTER SET WIN1250)
as
declare variable pom char(50) CHARACTER SET
WIN1250;
declare variable pom1 char(50) CHARACTER SET
WIN1250;
begin
pom=3D'=EC=B9=E8=F8=BE';
for select TEXT from STRINGS into :pom1
do begin
qtext=3Dpom1||pom;
suspend;
end
ODBCe - memory management
[*] Zdenek Moravec <zmo(zv)volny(tec)cz> - 9.12.2002 16:05:32
Zdravim vsechny.
Pokud ve svem ponekud pametove narocnejsim programu pouziju komponenty
ODBCe, objevi se hlaska Out of memory - jako by jiz Windows 2000 prestaly
usilovat o zvetseni virtualni pameti (ktere bez techto komponent funguje v
poradku).
Chyba se projevi na prikazu
getmem (m_CrossBase, m_CrossCnt * sizeof (CrossLine));
Chyba nastava bez ohledu na zpusob pouziti ODBCe - staci uvest unity
ODBCClass, ODBCBase v seznamu deklaraci uses.
Nevite nahodou nekdo, jestli lze pomoci nejakeho nastaveni tuto
funkcionalitu ODBCe vylepsit ? Pripadne alespon cim je zpusobena ?
D5 SPvsechny W2000
S pozdravem (Regards)
Zdenek Moravec zmo(zv)volny(tec)cz
jak pripojit na jednotlive radky ikony v ListView
[*] petr polasek <dragonz(zv)post(tec)cz> - 09.12.2002 16:05:10
Potreboval bych na kazdy radek priradit jinou ikonu a nevim jak na
to. Presneji na kazdy jednotlivy ListView.item. pripadne jestli
by jich na jeden =F8=E1dek mohlo b=FDt i v=EDce vedle sebe.
--=20
---
EXOTIKA * POT=C1P=CCN=CD * HORSK=C9 MASIVY * bu=EFte na sv=E9 dovolen=E9 VO=
LN=DD
* http://cestovani.volny(tec)cz
Jak spravne posunout ScrollBox?
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 9.12.2002 16:08:21
Ahoj vsichni
Mam problem a hledam, kdo by mi pomohl. Mam ScrollBox, ktery obsahuje velke
mnozstvi nagenerovanych SpeedButtonu (vim ze to neni nejefektivnejsi, ale je
to tak). Tyto buttony ruznym zpusobem stehuju po plose. Kvuli lepsi navigaci
potrebuju moznost, ktera podle toho na jakou polozku v listboxu kliknu
horizont8lne posune scrollbox. Kdyz posouvam scrollbary, vse se chova
normalne, ale kdyz kliknu na listbox, a provedu sekvenci prikazu:
sboxKolejiste.HorzScrollBar.Position:=Pos;
sboxKolejiste.Update;
nekdy se program zacne chovat divne. Buttony se posouvaji na jinam nez maji.
Nedelam neco spatne? Diky za radu.
Jaromir Cermak
Re[4]: Prace s DLL
[*] <raul(zv)raphael(tec)cz> - 09.12.2002 16:09:33
Hledej pres Find, normalne to tam neni.
Tadyhle posilam priklad, ktery snad postaci.
uses Windows, ...; {On Linux, replace Windows with SysUtils
}
type
TTimeRec = record
Second: Integer;
Minute: Integer;
Hour: Integer;
end;
TGetTime = procedure(var Time: TTimeRec);
THandle = Integer;
var
Time: TTimeRec;
Handle: THandle;
GetTime: TGetTime;
begin
Handle := LoadLibrary('d:\xx.dll');
if Handle <> 0 then
begin
(zv)GetTime := GetProcAddress(Handle, 'GetTime');
if (zv)GetTime <> nil then
begin
GetTime(Time);
with Time do
WriteLn('The time is ', Hour, ':', Minute, ':',
Second);
end;
FreeLibrary(Handle);
end;
end;
> > Podivej se na popis funkci LoadLibrary a freeLibrary,
> je
> > tam v helpu prehlednej example jak nacitat dll
> to je divny me Delphi nechcou nic na ty dve slova najit ?Jak ulozit TList do TFileStream?
[*] David Michal <david.michal(zv)www-bv(tec)com> - 9.12.2002 16:09:11
A neexistuje preci jen nejaka hotova fce, neco jako TList.SaveToFile?
David
Obavam se, ze to budes muset rozlozit.
Do TList-u se ukladaji pointry, takze to co se ti ulozilo do souboru jsou
pointry prevedene po bajtech na znaky.
Navic sam o sobe nevi, jak velke struktury to tema pointrama ukazuje...
HTH
pl
jak pripojit na jednotlive radky ikony v ListView
[*] Ing. Pavel �ilinec����)b���zf���3 - 9.12.2002 16:28:45
Po pridani Item si zmen na pozadovane StateIndex/ImageIndex
Jestli jich de vic nevim, ale zkus si nadefinovat oba a uvidis.
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
pp> Potreboval bych na kazdy radek priradit jinou ikonu a nevim jak na
pp> to. Presneji na kazdy jednotlivy ListView.item. pripadne jestli
pp> by jich na jeden ��dek mohlo b�t i v�ce vedle sebe.
Kodovani Cipher
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 9.12.2002 16:33:48
From: "Petr Zahradnik" <clexpert(zv)clexpert(tec)cz>> Nastav si tam treba rezim CBC nebo CFB.
Nejspis jsi chtel napsat: "OFB nebo CFB",
protoze CBC pracuje taky blokove...
pf
modifikacia binarnych DFM
[*] Lubos Urban <Lubos.Urban(zv)visicom.sk> - 9.12.2002 16:51:17
Cafte
Mam taky problem s binarnimi delphi *.dfm subormi a sice:
moja aplikacia ma robit nieco take ze jej dam hociaky binarny *.dfm subor z
delphi 5 ktory ma otvorit zmeni hodnoty nejakych properties a zase ho ulozit
v binarnom formate (ma to byt nieco ako editor binarnych dfm suborov).
Pricom ide o modifikaciu foriem ktore nie su sucastou aplikacie.
Skusal som uz vsetko mozne TReader, TStream.ReadComponent ani s jednym sa mi
nepodarilo nacitat formu (chyby typu Invalid stream format, Invadid property
value atd.. )
Vsetky priklady ktore som nasiel nacitavali iba formy alebo objekty ktore
boli sucastou aplikacie, ale nie nejake formy ktore nie su sucastou
aplikacie a jedine co viem ze su potomkami TForm.
Ak by som vas mohol poprosit o nejaky kratucky example ako to spravit, velmi
by mi to pomohlo, lebo uz naozaj beviem ako dalej.
W2k, D5. Ent.
s pozdravom Lubor Urban
Jak ulozit TList do TFileStream?
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 9.12.2002 18:35:35
9.12.2002 David Michal:
> A neexistuje preci jen nejaka hotova fce, neco jako TList.SaveToFile?
> David
A jak by to tato funkce mela ukladat, kdyz TList nevi nic o strukture,
kterou maji jednotlive prvky ?
Proste si budes tuto funkci muset napsat sam.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Interbase a cestina v triggerech a procedurach
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 9.12.2002 19:13:05
Haj hou!
On 9 Dec 2002 at 12:20, Petr Selinger wrote:
> Zdravim,
> nevi nekdo, jak se da pouzit cestina v triggerech a procedurach?
> Pokud si napr. nactu do lok. promenne data z tabulky obsahujici
> hacky a carky, pak s touto promennou nemuzu pracovat.
>
> Priklad:
>
> - mam tabulku STRINGS, sloupce ID, TEXT (WIN250)
> - vybiram radek s id 1, (pole TEXT obsahuje hacky, carky)
> a pak chci k tomuto stringu neco pridat.
>
> select TEXT from STRINGS where ID=1 into :SText;
> SText = :SText || ' neco pridam.'; <- nahlasi chybu
Problem je v tom, ze literal neobsahuje informaci o znakove sade zatimco
promenna ano, a dojde k chybe konverze. Musis uvest znakovou sadu pro
znakovou konstantu, ktera ma standardne tvar _<jmeno sady v IB/FB>, napr.
_WIN1250. V tvem pripade by to tedy melo vypadat
select TEXT from STRINGS where ID=1 into :SText;
SText = :SText || _WIN1250 ' neco pridam.';
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Ziskanie datumu do premennej
[*] bugi <bugala_a(zv)centrum.sk> - 09.12.2002 19:57:06
Ahojte,
ako ziskam do premennej typu string datum v tomto tvare:
09-12-2002 19:52
Skusal som nieco podla helpu, ale stale mi to vyhadzuje kadejake chyby.
#######################################################
Daju sa zoradovat zaznamy v tabulke PARADOX podla stlpca, v ktorom
bude datum + cas ???
Aky typ by mal byt ten stlpec, aby to fungovalo spravne, teda ze prvy zaznam
bude najnovsi datum?
Dakujem,
alex
Bugala Alex - stredoskolak 2 roc.
-----------------------------------------------------
Win2000 Prof Cz - SP2
Delphi 3 Client / Server Suite
Vyplnen� DBEdit, ano ci nie ?!
[*] bugi <bugala_a(zv)centrum.sk> - 09.12.2002 20:08:07
Dobry den,
mam Delphi 3 Client/Server Suite a DBEdit v mojom IDE nema vlastnost text,
alebo ja ju aspon nevidim ... !!!
Na Form-e mam niekolko DBEditov, pri kliknuti na tlacitko potrebujem
zistit,
ci je v DBEditoch nieco napisane.
Ako zistim, ci je daco napisane v DBEdite?????
Dakujem,
Alex
Bugala Alex - stredoskolak 2 roc.
-----------------------------------------------------
Win2000 Prof Cz - SP2
Delphi 3 Client / Server Suite
> >Result:=true;
> >for i:=0 to ControlCount-1 do begin
> > C:=Controls[i];
> > if (C is TEdit) and TEdit(C).Text='' then begin
> > Result:=false;
> > break;
> > end;
> >end;
>
> Tohle ale projede jen vsechny edity, ktere lezi primo na formulari
(Parent).
> Pokud bys chtel i ty, ktere lezi v nejakem kontaineru (Panel, GroupBox,
...), musis budto pouzit ComponentCount a Components nebo to prohledavat
primo v tom Parent.
>
> Honza
> =========================================
> = HAES - RNDr. Jan Sebelik
> = http://www.haes(tec)cz
> = Skolici a konzultacni stredisko pro Delphi a Win32
> = Vojtiskova 206
> = 507 81 Lazne Belohrad
> = tel. 493 792 931 (mobil 776 347735)
> =========================================
>
>
Ziskanie datumu do premennej
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 9.12.2002 20:39:15
9.12.2002 bugi:
> Ahojte,
> ako ziskam do premennej typu string datum v tomto tvare:
> 09-12-2002 19:52
> Skusal som nieco podla helpu, ale stale mi to vyhadzuje kadejake chyby.
s := FormatDateTime('yyyy-mm-dd hh:nn', Now);> Daju sa zoradovat zaznamy v tabulke PARADOX podla stlpca, v ktorom
> bude datum + cas ???
> Aky typ by mal byt ten stlpec, aby to fungovalo spravne, teda ze prvy zaznam
> bude najnovsi datum?
Pole typu TDateTime a index descendind (setrideny sestupne)
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Ziskanie datumu do premennej
[*] J�n Harman <harman(zv)atlas(tec)cz> - 9.12.2002 21:15:46
> Ahojte,
>
> ako ziskam do premennej typu string datum v tomto tvare:
>
> 09-12-2002 19:52
FormatDateTime ('dd-mm-yyyy hh:nn', Now);
>
> Skusal som nieco podla helpu, ale stale mi to vyhadzuje kadejake chyby.
>
> #######################################################
>
> Daju sa zoradovat zaznamy v tabulke PARADOX podla stlpca, v ktorom
> bude datum + cas ???
Daju.
> Aky typ by mal byt ten stlpec, aby to fungovalo spravne, teda ze prvy
zaznam
> bude najnovsi datum?
Typ DATETIME, seradis to ORDER BY "DATUM" DESC
>
> Dakujem,
> alex
>
>
> Bugala Alex - stredoskolak 2 roc.
> -----------------------------------------------------
> Win2000 Prof Cz - SP2
> Delphi 3 Client / Server Suite
>
>
>
Vyplnen� DBEdit, ano ci nie ?!
[*] J�n Harman <harman(zv)atlas(tec)cz> - 9.12.2002 21:17:58
SPRAVNE! DBEdit nema vlastnost Text. DBEdit se odkazuje na databazovou
tabulku, a to co je v nem napsane je obsah pole na ktere ukazuje. Jestli
chces zjistit co je v nem tak si to precti z tabulky.
Honza.
> Dobry den,
>
> mam Delphi 3 Client/Server Suite a DBEdit v mojom IDE nema vlastnost text,
> alebo ja ju aspon nevidim ... !!!
>
> Na Form-e mam niekolko DBEditov, pri kliknuti na tlacitko potrebujem
> zistit,
> ci je v DBEditoch nieco napisane.
> Ako zistim, ci je daco napisane v DBEdite?????
>
> Dakujem,
> Alex
>
>
> Bugala Alex - stredoskolak 2 roc.
> -----------------------------------------------------
> Win2000 Prof Cz - SP2
> Delphi 3 Client / Server Suite
>
>
> > >Result:=true;
> > >for i:=0 to ControlCount-1 do begin
> > > C:=Controls[i];
> > > if (C is TEdit) and TEdit(C).Text='' then begin
> > > Result:=false;
> > > break;
> > > end;
> > >end;
> >
> > Tohle ale projede jen vsechny edity, ktere lezi primo na formulari
> (Parent).
> > Pokud bys chtel i ty, ktere lezi v nejakem kontaineru (Panel, GroupBox,
> ...), musis budto pouzit ComponentCount a Components nebo to prohledavat
> primo v tom Parent.
> >
> > Honza
> > =========================================
> > = HAES - RNDr. Jan Sebelik
> > = http://www.haes(tec)cz
> > = Skolici a konzultacni stredisko pro Delphi a Win32
> > = Vojtiskova 206
> > = 507 81 Lazne Belohrad
> > = tel. 493 792 931 (mobil 776 347735)
> > =========================================
> >
> >
>
>
Privileg instructions
[*] MUDr. Miloslav Neu�il <drneuzil(zv)razdva(tec)cz> - 9.12.2002 22:24:02
Mam novy pocitac s Windows XP, do ktereho jsem si prehral rozpracovane
programy v Delphi. Nekoli jich pracuje s databazemi Paradox. Vsechny funguji
jako drive, pouze jeden pri pokusu o vlozeni, ulozeni, nebo zruseni ukladani
zaznamu ukaze v nadpise uvedeny napis. Co to proboha je? Mate nekdo
zkusenost? Byla by katastrofa o praci prijit!!!
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.427 / Virov� b�ze: 240 - datum vyd�n�: 6.12.2002
--
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.427 / Virov� b�ze: 240 - datum vyd�n�: 6.12.2002
Interbase a cestina v triggerech a procedurach
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 10.12.2002 07:22:04
> Musis uvest znakovou
> sadu pro znakovou konstantu, ktera ma standardne tvar _<jmeno sady v
> IB/FB>, napr. _WIN1250. V tvem pripade by to tedy melo vypadat
>
> select TEXT from STRINGS where ID=1 into :SText;
> SText = :SText || _WIN1250 ' neco pridam.';
Ahoj,
je tohle nekde zdokumentovano? Nevzpominam si, ze bych o tom nekde ani slysel,
natoz cetl.
David Lebeda
Nemoznost ukonceni procesu(aplikace)
[*] Jan Kr�zek - 10.12.2002 07:36:39
> Ahoj,
> nevite nekdo jak nastavit ve w2k procesu (aplikace) aby=20
> nesel ukoncit pres
> task manager
> napr. pokud skusim ukoncit proces schovst.exe napise to neco=20
> jako proces
> nelze ukoncit, pristup byl zamitnut,nebo neco podobneho.
V pripade svchost.exe je to zpusobeno tim, ze bezi pod uzivatelem
SYSTEM.
Honza +OT: Delphi- pruvodce vyvojare I
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 10.12.2002 08:09:38
Jakou souvislost ma tahle kniha s predchozimi dily od Teixera-Pacheco ?
Autori jsou na rozdil od minulych dilu Prochazka-Strakos.
Obalka stejna vydavatel stejny.
Je uroven srovnatelna s predchozimi dily, nebo chce jen MobilMedia
tezit z toho, ze predchozi dily nevysly ?
--
Jan Fiala
MailTo:jan.fiala(zv)iol(tec)cz
ICQ: 23032692
Problem s float pri ACCESS -> PRADOX data
[*] Robert Suska <delphi(zv)korak.sk> - 10.12.2002 08:53:21
Ahojte
Mame problem pri konverzii dat z MS ACCESSU 97 do Paradoxu a to ked
prezerame paradox tabulku cez Database Desktop tak sa data zobrazuju
normalne ale ked prezerame tabulku cez SQL Explorer alebo dbExplorer tak uz
namiesto hodnoty 2,57 mame 2,56699999 a podobny humus. To iste sa deje aj
pri nacitavani tabuliek cez Delphi cez komponenty TTable.
Dakujeme za radu
S pozdravom,
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************TABULKA - INSERT HODNOTY DO SLOUPCE TYPU CLOB
[*] Pavla Hub�lkov� <posta(zv)agrokonzulta(tec)cz> - 10.12.2002 09:01:41
Ten Tvuj priklad funguje pouze s delkou retezce, ktera je vlozena v MEMO1
mensi nez 4kB.
Jakmile text presahne 4kB objevi se Oraclovska hlaska ORA-01461:hodnoty LONG
lze vazat pouze
pro vlozeni do sloupce LONG.
Pouzivam ORACLE ENTERPRISE 8.1.5.0.0
WITH PARTITIONING AND JAWA OPTION
a DELPHI 5.01
-----Original Message-----
From: ViragI(zv)logica.com [mailto:ViragI(zv)logica.com]
Sent: Monday, December 09, 2002 3:21 PM
To: pavlahubalkova(zv)agrokonzulta(tec)cz
Subject: RE: TABULKA - INSERT HODNOTY DO SLOUPCE TYPU CLOB
Zdravim.
Ten samotny insert mi pripada pomerne nefunkcni. Zaremoval jsem ho a pouzil
svuj. Vsechno mi krasne funguje. Mam Oracle 8.1.7. a v nem tabulku s poli
number a CLOB.
viz:
qry.SQL.clear;
(*
qry.SQL.Text := 'INSERT INTO testLOB(id, flob) VALUES ( 222, empty_cLob())
returning flob INTO :sParam ';
*)
qry.SQL.Text := 'INSERT INTO testLOB(id, flob) VALUES ( 222, :sParam)';
qry.ParamByName('sParam').DataType := ftOraCLob;
qry.ParamByName('sParam').AsMemo := Memo1.Text;
qry.ExecSQL;
Ivan Virag
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.426 / Virov� b�ze: 239 - datum vyd�n�: 2.12.2002
modifikacia binarnych DFM
[*] Danik Frantik <frantik(zv)telpro(tec)cz> - 10.12.2002 09:04:04
A neslo by pomoci convert.exe (Delphi\Bin\Convert.exe) prevest na textovy
tvar, pak to zmenit a potom zase vratit do binarniho formatu?
Jinak nevim jak vy, ale ja binarni format NIKDY nepouzivam. (Je uspornejsi,
ale spatne se verzuje ve FreeVCS :-)
Danik
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Lubos Urban
Cafte
moja aplikacia ma robit nieco take ze jej dam hociaky binarny *.dfm subor z
delphi 5 ktory ma otvorit zmeni hodnoty nejakych properties a zase ho ulozit
v binarnom formate (ma to byt nieco ako editor binarnych dfm suborov).
Pricom ide o modifikaciu foriem ktore nie su sucastou aplikacie.
s pozdravom Lubor Urban
Interbase a cestina v triggerech a procedurach
[*] Petr Selinger <delphiforum(zv)centrum(tec)cz> - 10.12.2002 09:33:13
> Problem je v tom, ze literal neobsahuje informaci o znakove sade
> zatimco promenna ano, a dojde k chybe konverze. Musis uvest
> znakovou sadu pro znakovou konstantu, ktera ma standardne tvar
> _<jmeno sady v IB/FB>, napr.
> _WIN1250. V tvem pripade by to tedy melo vypadat
>
> select TEXT from STRINGS where ID=1 into :SText;
> SText = :SText || _WIN1250 ' neco pridam.';
Ahoj,
problem byl nakonec v tom, ze databaze byla vytvorena s nastavenym
charsetem Default, takze se implicitne pouzil tento charset i pro
lokalni promenne procedur a triggeru.
Pomohlo vyextrahovat metadata, dropnout databazi, opravit charset
a znovu ji vytvorit a naplnit. Pak uz vse fungovalo.
Ovsem nekdy to tak nejde, pak se hodi tvuj tip, diky.
Petr
Re[2]: modifikacia binarnych DFM
[*] Petr Slaby <petr.slaby(zv)i(tec)cz> - 10.12.2002 09:51:28
Ahoj,
na strankach vyrobcu QuickReportu je ke stazeni utilitka (i se
zdrojaky), ktera prevadi sestavy z QR 1.0 do QR 3.x a automaticky
prevadi bianarni format DFM na textovy, provede konverzi a zase
prevede DFM na binarni format.
Petr
Tuesday, December 10, 2002, 9:04:04 AM, you wrote:
DF> A neslo by pomoci convert.exe (Delphi\Bin\Convert.exe) prevest na textovy
DF> tvar, pak to zmenit a potom zase vratit do binarniho formatu?
DF> Jinak nevim jak vy, ale ja binarni format NIKDY nepouzivam. (Je uspornejsi,
DF> ale spatne se verzuje ve FreeVCS :-)
DF> Danik
DF> -----Original Message-----
DF> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
DF> Behalf Of Lubos Urban
DF> Cafte
DF> moja aplikacia ma robit nieco take ze jej dam hociaky binarny *.dfm subor z
DF> delphi 5 ktory ma otvorit zmeni hodnoty nejakych properties a zase ho ulozit
DF> v binarnom formate (ma to byt nieco ako editor binarnych dfm suborov).
DF> Pricom ide o modifikaciu foriem ktore nie su sucastou aplikacie.
DF> s pozdravom Lubor Urban
Web service pod Appachom
[*] Burkovsky Ladislav <Ladislav.Burkovsky(zv)autinform.de> - 10.12.2002 09:51:08
Zdravim konferenciu
Mam jednu otazocku, urobil som si zopar SOAP servisov
a pichol som ich do IIS vsetko frci. Potom som pristupil
na appach CGI - exe mi ide ale ako tam dam dll-ko a
ak pouzit tie shared libraries. Mate niekto nejaky link?
Laco
Komponenta pro praci s ABO formatem
[*] Pavel Polak <pavelp(zv)bnsoft(tec)cz> - 10.12.2002 10:55:01
Zdravim,
chtel bych se zeptat zda nekdo nemate zkusenosti s nacitanim bankovnich
vypisu do vasich aplikaci? Konkretne me zajima format ABO.Existuje nejaka
komponenta na jeji zpracovani? Dik za kazdou informaci
S pozdravem
Pavel Polak
Interbase a cestina v triggerech a procedurach
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 10.12.2002 10:58:52
Haj hou!
On 10 Dec 2002 at 7:22, Lebeda David wrote:
> je tohle nekde zdokumentovano? Nevzpominam si, ze bych o tom nekde ani slysel,
> natoz cetl.
Mno, melo by to byt v manualech k IB :-) Kaztopadne to bude v nove knize
o IB a FB :-)
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Web service pod Appachom
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 10.12.2002 10:58:52
Haj hou!
On 10 Dec 2002 at 9:51, Burkovsky Ladislav wrote:
> Mam jednu otazocku, urobil som si zopar SOAP servisov
> a pichol som ich do IIS vsetko frci. Potom som pristupil
> na appach CGI - exe mi ide ale ako tam dam dll-ko a
> ak pouzit tie shared libraries. Mate niekto nejaky link?
V Delphi jsou priklady vcetne README jak nakonfigurovat Apache (doplnit
novy modul do konfiguraku apache).
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Nemoznost ukonceni procesu(aplikace)
[*] Dalin <delphi-konference(zv)bcpraha(tec)com> - 10.12.2002 11:11:24
Diky moc,
nevis jak se spousti programy ve w2k pod jinym uzivatel?
popripade jak je to udelano u jinych procesu nez schvost.exe.
nebo nejaky jiny mechanismus jak obejit nasilne ukonceni procesu
napadlo me mit jeste dalsi programek kteri hlida zda dana aplikace
bezi a pripadne ji spusti znova ale je to takove nepekne, protoze
pokud bude ta prodleva testu hodne kratka tak to asi bude hodne zatezovat
system
a pokud bude delsi pujdou ukoncit obe aplikace.
Dalsi vec co me napadla jestli by neslo popr jak zachytavat zpravy pomoci
hook?
Dalin
>> Ahoj,
>> nevite nekdo jak nastavit ve w2k procesu (aplikace) aby
>> nesel ukoncit pres
>> task manager
>> napr. pokud skusim ukoncit proces schovst.exe napise to neco
>> jako proces
>> nelze ukoncit, pristup byl zamitnut,nebo neco podobneho.
>V pripade svchost.exe je to zpusobeno tim, ze bezi pod uzivatelem
>SYSTEM.
>Honza +
.
modifikacia binarnych DFM
[*] Lauko Stefan <laukosw(zv)naex.sk> - 10.12.2002 11:15:28
Ahoj,
tvoj problem vyriesi tento kod... Prisposobit pre tvoje potreby si to musis
sam.
(je to skopirovane z helpu)
function ComponentToString(Component: TComponent): string;
var
BinStream:TMemoryStream;
StrStream: TStringStream;
s: string;
begin
BinStream := TMemoryStream.Create;
try
StrStream := TStringStream.Create(s);
try
BinStream.WriteComponent(Component);
BinStream.Seek(0, soFromBeginning);
ObjectBinaryToText(BinStream, StrStream);
StrStream.Seek(0, soFromBeginning);
Result:= StrStream.DataString;
finally
StrStream.Free;
end;
finally
BinStream.Free
end;
end;
function StringToComponent(Value: string): TComponent;
var
StrStream:TStringStream;
BinStream: TMemoryStream;
begin
StrStream := TStringStream.Create(Value);
try
BinStream := TMemoryStream.Create;
try
ObjectTextToBinary(StrStream, BinStream);
BinStream.Seek(0, soFromBeginning);
Result := BinStream.ReadComponent(nil);
finally
BinStream.Free;
end;
finally
StrStream.Free;
end;
end;
Lauko.
----- Original Message -----
From: "Lubos Urban" <Lubos.Urban(zv)visicom.sk>
Sent: Monday, December 09, 2002 4:51 PM
> Mam taky problem s binarnimi delphi *.dfm subormi a sice:
> moja aplikacia ma robit nieco take ze jej dam hociaky binarny *.dfm subor
z
> delphi 5 ktory ma otvorit zmeni hodnoty nejakych properties a zase ho
ulozit
> v binarnom formate (ma to byt nieco ako editor binarnych dfm suborov).
> Pricom ide o modifikaciu foriem ktore nie su sucastou aplikacie.
> Skusal som uz vsetko mozne TReader, TStream.ReadComponent ani s jednym sa
mi
> nepodarilo nacitat formu (chyby typu Invalid stream format, Invadid
property
> value atd.. )
> Vsetky priklady ktore som nasiel nacitavali iba formy alebo objekty ktore
> boli sucastou aplikacie, ale nie nejake formy ktore nie su sucastou
> aplikacie a jedine co viem ze su potomkami TForm.
>
> Ak by som vas mohol poprosit o nejaky kratucky example ako to spravit,
velmi
> by mi to pomohlo, lebo uz naozaj beviem ako dalej.Nemoznost ukonceni procesu(aplikace)
[*] Jan Kr�zek - 10.12.2002 11:18:41
Spusteni pod jinym uzivatelem najdes v JCL ve funkci
CreateProcAsUser(Ex), ale nevim zda tak lze spustit aplikaci pod
uzivatelem(presneji uctem) SYSTEM. Pokud se nemylim, tak svchost.exe je
NT service a u tech se nastavuje v Service Manageru pod jakym uctem ma
bezet.
Honza +
> From: Dalin [mailto:delphi-konference(zv)bcpraha.com]
> nevis jak se spousti programy ve w2k pod jinym uzivatel?
> popripade jak je to udelano u jinych procesu nez schvost.exe.OT Kylix undefined symbol: initPAnsiString
[*] Robert Suska <delphi(zv)korak.sk> - 10.12.2002 12:06:46
Ahoj!
Trochu som hladal a skus sa pozriet na subor ktory sa vola DEPLOY a v nom
hladaj Redistributable packages...
> Dekuji, toto fungovalo, ale bude to fungovat i tam, kde nen�
> nainstalovan Kylix? Da se ten program tam tak� nejakym zpusobem pustit
> nebo je to vylouceno?
S pozdravom,
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************
PK
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Robert Suska
Sent: Friday, December 06, 2002 6:13 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: OT Kylix undefined symbol: initPAnsiString
ahoj
musis si zapisat do suboru v adresari /home/... bash.rc alebo si
vytvoris
script a do neho napises toto
#!/bin/bash
export LD_LIBRARY_PATH = "/usr/local/kylix3/bin" # kde ho mas ten K3
./Project1 # meno spustitelneho suboru
Robo
> Dobry den,
>
> prosim Vas, zkousel jsem v Kylix 3 Trial verzi napsat nejaky
> programek. Ten jsem prelozil a byl vyprodukovan spustitelny
> soubor. Z prostredi Kylixu sel tento program pustit naprosto bez
> problemu. Kdyz jsem jej vsak zkusil pustit z prikazove radky, tak
> mi to zahlasilo chybu "undefined symbol: initPAnsiStrings". Mohl
> by mi nekdo rict, proc? Da se tato chyba nejak odstranit nebo je
> to tak schvalne udelano u trial verze?
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.426 / Virov� b�ze: 239 - datum vyd�n�: 2.12.2002
Ulozit font
[*] Rumcajs - konference <konrum(zv)seznam(tec)cz> - 10.12.2002 12:07:06
Servus vsem...
Nevite nekdo, jak nejjednoduseji ulozit nastaveni fontu, nejlepe do Ini
souboru?
Rumcajs
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.422 / Virov� b�ze: 237 - datum vyd�n�: 20.11.2002
modifikacia binarnych DFM
[*] Lubos Urban <Lubos.Urban(zv)visicom.sk> - 10.12.2002 12:11:46
O tomto sposobe prevodu binarnych DFM na textove DFM viem, ale myslim ze
existuje aj taky pristup ze nacitas tu formu z binarneho DFM priamo a ono ti
ju aj vytvoti a potom len cez vlastnost Controls prisatupujes k jednotlivym
komponentam, a tym jednoducho menis ich properties .
Nevyhodou textovej formy popisu *.dfm je to ze potrebujem parser ktory mi
spravne sparsuje toto textove DFM a vytvori stromovu strukturu komponent,
preto sa mi to zdalo spravit horeuvedenym sposobom jednoduchsie. :(
Inak jeden taky parser som nasiel v tej utilitke na stranke Quick Reportu
(Dakujem Petrovi:) a teraz ho prave upravujem pre svoje potreby.
----- Original Message -----
From: "Lauko Stefan" <laukosw(zv)naex.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, December 10, 2002 11:15 AM
Subject: Re: modifikacia binarnych DFM
> Ahoj,
> tvoj problem vyriesi tento kod... Prisposobit pre tvoje potreby si to
musis
> sam.
> (je to skopirovane z helpu)
>
> function ComponentToString(Component: TComponent): string;
>
> var
> BinStream:TMemoryStream;
> StrStream: TStringStream;
> s: string;
> begin
> BinStream := TMemoryStream.Create;
> try
> StrStream := TStringStream.Create(s);
> try
> BinStream.WriteComponent(Component);
> BinStream.Seek(0, soFromBeginning);
> ObjectBinaryToText(BinStream, StrStream);
> StrStream.Seek(0, soFromBeginning);
> Result:= StrStream.DataString;
> finally
> StrStream.Free;
>
> end;
> finally
> BinStream.Free
> end;
> end;
>
> function StringToComponent(Value: string): TComponent;
> var
> StrStream:TStringStream;
> BinStream: TMemoryStream;
> begin
> StrStream := TStringStream.Create(Value);
> try
> BinStream := TMemoryStream.Create;
> try
> ObjectTextToBinary(StrStream, BinStream);
> BinStream.Seek(0, soFromBeginning);
> Result := BinStream.ReadComponent(nil);
>
> finally
> BinStream.Free;
> end;
> finally
> StrStream.Free;
> end;
> end;
>
> Lauko.
>
> ----- Original Message -----
> From: "Lubos Urban" <Lubos.Urban(zv)visicom.sk>
> Sent: Monday, December 09, 2002 4:51 PM
>
> > Mam taky problem s binarnimi delphi *.dfm subormi a sice:
> > moja aplikacia ma robit nieco take ze jej dam hociaky binarny *.dfm
subor
> z
> > delphi 5 ktory ma otvorit zmeni hodnoty nejakych properties a zase ho
> ulozit
> > v binarnom formate (ma to byt nieco ako editor binarnych dfm suborov).
> > Pricom ide o modifikaciu foriem ktore nie su sucastou aplikacie.
> > Skusal som uz vsetko mozne TReader, TStream.ReadComponent ani s jednym
sa
> mi
> > nepodarilo nacitat formu (chyby typu Invalid stream format, Invadid
> property
> > value atd.. )
> > Vsetky priklady ktore som nasiel nacitavali iba formy alebo objekty
ktore
> > boli sucastou aplikacie, ale nie nejake formy ktore nie su sucastou
> > aplikacie a jedine co viem ze su potomkami TForm.
> >
> > Ak by som vas mohol poprosit o nejaky kratucky example ako to spravit,
> velmi
> > by mi to pomohlo, lebo uz naozaj beviem ako dalej.
>
>
>
>
Komponenta pro praci s ABO formatem
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 10.12.2002 12:31:39
O komponente nevim, ale neni slozite ten soubor rozparsovat. Tento format
sice vyhlasila Ceska narodni banka, ale ruzne banky maji sva specifika a
tudiz je nutne pro kazdou banku udelat vlastni klon.
S pozdravem
Milan Tomes
mailto:milan.tomes(zv)haida(tec)cz
> vypisu do vasich aplikaci? Konkretne me zajima format ABO.Existuje nejaka
> komponenta na jeji zpracovani? Dik za kazdou informaci
> Pavel Polak
AW: Web service pod Appachom
[*] Burkovsky Ladislav <Ladislav.Burkovsky(zv)autinform.de> - 10.12.2002 12:43:10
Ano ale len na CGI
> Ladislav Burkovsky
Diplom Informatiker und Diplom Manager
Tel./Fax +49 (611) 78 76 769
-----Urspr=FCngliche Nachricht-----
Von: Pavel Cisar [mailto:pcisar(zv)users.sourceforge.net]
Gesendet: Dienstag, 10. Dezember 2002 10:59
An: delphi-l(zv)clexpert(tec)cz
Betreff: Re: Web service pod Appachom
Haj hou!
On 10 Dec 2002 at 9:51, Burkovsky Ladislav wrote:
> Mam jednu otazocku, urobil som si zopar SOAP servisov
> a pichol som ich do IIS vsetko frci. Potom som pristupil
> na appach CGI - exe mi ide ale ako tam dam dll-ko a
> ak pouzit tie shared libraries. Mate niekto nejaky link?
V Delphi jsou priklady vcetne README jak nakonfigurovat Apache (doplnit =
novy modul do konfiguraku apache).
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Ulozit font
[*] campulka <campulka(zv)czas(tec)cz> - 10.12.2002 12:56:19
http://www.campulka.net/?dir=Delphi%20komponenty
Jsou tam na %subj% ke stazeni hotove procedury.
jirka.
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
>
>
> Servus vsem...
> Nevite nekdo, jak nejjednoduseji ulozit nastaveni fontu,
> nejlepe do Ini
> souboru?
> Rumcajs
>
RadioGroup OnClick
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 10.12.2002 13:08:34
Zdravim
V komponente RadioGroup pouzivam udalost OnClick. Pokud volim jednotlive
Items je vse Ok.
Jak ale odchytit stav, kdy kliknu (oznacim) uz zvolenou volbu znovu.
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.427 / Virov� b�ze: 240 - datum vyd�n�: 6.12.2002
Adonis do D7
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 10.12.2002 13:39:18
Ahoj,
mam komponenty adonis, ktere mi skvele behaly pod d5. Ted bych je
potreboval nainstalovat do d7, ale bohuzel pri prekladu balicku dostanu
desitky chyb ve zdrojaku. Nemam cas nad tim ted badat, a proto se chci
zeptat, jestli nekdo resil tento problem, popr. jestli lze stahnout
nejaky upgrade pro d7.=20
Diky Ales.Duplikovani BLOBu po vlozeni dat
[*] Karel Kimes <kkonf(zv)email(tec)cz> - 10.12.2002 14:06:46
ahoj,
narazil sem na velice zvlastni chovani MySQL ve spojeni s komp. Zeos a D6
update pack 2.
Definice tabulky:
mysql> describe blob_test;
+-------+----------+------+-----+---------+----------------+
| Field | Type | Null | Key | Default | Extra |
+-------+----------+------+-----+---------+----------------+
| ID | int(11) | | PRI | NULL | auto_increment |
| blob_ | longblob | | | NULL | |
+-------+----------+------+-----+---------+----------------+
2 rows in set (0.00 sec)
kod:
procedure WriteToDB(Query : TZMySqlQuery; Field : TField; Data : OleVariant);
var
blob_s : TBlobStream;
p : pointer;
begin
blob_s := TBlobStream(CreateBlobStream(Field, bmWrite));
try
p := VarArrayLock(Data)
try
blob_s.Write(p^, VarArrayHighBound(Data, 1));
finally
VarArrayUnlock(Data)
end;
finally
blob_s.free;
end;
end;...
...
...
Query.Sql.Clear;
Query.Sql.Add('SELECT blob_ FROM blob_test WHERE ID = ' + IntToStr(ID));
Query.RequestedLive := true;
Query.Open;
// ted mam Query.RecordCount = 1
// a provedu tedy:
Query.Edit;
WriteToDB(Query, Field, Data);
Query.Post;
...
...
...
Predpokladejme nyni prazdnou tabulku. Vlozim zaznam (s polem BLOB = NULL) a
provedu nacteni tohoto zaznamu SELECTem (viz. kod). Procedure WriteToDB
zapise obsah variantniho pole do streamu.
Svete div se zaznam je tam a rekneme, ze data mela delku 10B.
Nyni provedeme vlozeni dalsiho zaznamu (opet s polem BLOB = NULL) a
zapiseme procedurou WriteToDB dalsi data, nyni rekneme 20B.
A hle!!! Najednou maji BLOBy v OBOU! zaznamech delku 20B a obsahuji stejny
data!!! What's going on?
prosim otestujte to, zkuste to, ja si s tim proste nevim rady.
Zeos beta 5.3.0 build 6
Delphi 6 update pack 2
MySQL 3.23.51-nt
WinXP build 2600
OT Kylix undefined symbol: initPAnsiString
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.12.2002 14:32:44
>Dekuji, toto fungovalo, ale bude to fungovat i tam, kde nen�
>nainstalovan Kylix? Da se ten program tam tak� nejakym zpusobem
pustit
>nebo je to vylouceno?
prelozeny program musi jit (a skutecne jde) spustit i tam kde nikdy
kylix nebyl. Z toho plyne ze cachry s cestama ke knihovnam jsou k
nicemu.
D. Toman
Pointerova aritmetika
[*] Zdenek Moravec <zmo(zv)volny(tec)cz> - 10.12.2002 14:54:45
Zdravim vsechny,
pokud je napr. pWords: pointer a pomoci getmem (pWords, 1000 * sizeof
(someRecord)) vyalokuji buffer pro tisic recordu, jak se potom dostanu napr.
na 70. z nich ?
Ja pouzivam konstrukci pWord = Ptr (longint (Addr (pWords^)) + (70-1) *
sizeof (someRecord)). Ma nekdo lepsi napad ? Pripadne napad jak usporne
vyuzivat pamet k ulozeni dat bez zbytecne rezie, kterou prinasi ruzne TListy
a TCollectiony apod. a s moznosti najednou nacist nebo zapsat celou tuto
mnozinu recordu prikazem BlockRead resp. Blockwrite do souboru ?
S pozdravem (Regards)
Zdenek Moravec moravec(zv)digitech(tec)cz
Pointerova aritmetika
[*] Delphin <delphin(zv)post(tec)cz> - 10.12.2002 14:59:38
Zkus to takto, vysledek bude stejne rychly, ale pocitat bude za tebe
prekladac.
type TRec=record
x:integer;
end;
PRecords=^TRecords;
TRecords=array [0..100] of TRec;
var Records:PRecords;
begin
getmem(Records,1000*sizeof(TRec));
Records^[70].x:=1;
----- Original Message -----
From: "Zdenek Moravec" <zmo(zv)volny(tec)cz>
To: "Konference Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, December 10, 2002 2:54 PM
Subject: Pointerova aritmetika
> Zdravim vsechny,
>
> pokud je napr. pWords: pointer a pomoci getmem (pWords, 1000 * sizeof
> (someRecord)) vyalokuji buffer pro tisic recordu, jak se potom dostanu
napr.
> na 70. z nich ?
>
> Ja pouzivam konstrukci pWord = Ptr (longint (Addr (pWords^)) + (70-1) *
> sizeof (someRecord)). Ma nekdo lepsi napad ? Pripadne napad jak usporne
> vyuzivat pamet k ulozeni dat bez zbytecne rezie, kterou prinasi ruzne
TListy
> a TCollectiony apod. a s moznosti najednou nacist nebo zapsat celou tuto
> mnozinu recordu prikazem BlockRead resp. Blockwrite do souboru ?
>
> S pozdravem (Regards)
> Zdenek Moravec moravec(zv)digitech(tec)cz
>
>
>
Pointerova aritmetika
[*] Tom xXx<assas(zv)bonbon(tec)net> - 10.12.2002 15:13:17
Coz takhle pouzit stary dobry Pascal se vsim vsudy???
type
tWords = array [1 .. 1000] of Word;
pWords = ^tWords;
var
MyWords:pWords;
begin
.....
new(Mywords);
MyWords[70] := 1234;
//Uz nepotrebuji
dispose(MyWords);
end;
Pro pripad tech souboru, nebylo by dobre pouzit mapovani do pameti????
T.Pointerova aritmetika
[*] Tom xXx<assas(zv)bonbon(tec)net> - 10.12.2002 15:15:04
Sorry, zapomnel jsem na zobacek :))
MyWords^[70] := 1234;
T.DAO a pristup do readonly mdb
[*] Erik Salaj <winsoft(zv)stonline.sk> - 10.12.2002 15:24:29
> nedari sa mi rozchodit pristup k mdb databaze z DAO komponentov. mdb je na
> suborovom serveri. Ak nastavim adresar kde je mdb na read, tak sa dao
> nepripoji. Jedine ak nastavim exclusive a readonly. Ale potom sa k tej mdb
> databaze nik iny nepripoji.
skontroluj, ci mas pravo na vytvaranie a zapisovanie do suborov na suborovom
serveri (koli vytvoreniu ldb suboru).
Erik
Pointerova aritmetika
[*] Zdenek Moravec <zmo(zv)volny(tec)cz> - 10.12.2002 15:49:18
Dekuji za pomoc, je to opravdu velmi efektivni - funguje dokonce i array
[0..0] of TRec.
S pozdravem (Regards)
Zdenek Moravec zmo(zv)volny(tec)cz
> Zkus to takto, vysledek bude stejne rychly, ale pocitat bude za tebe
> prekladac.
>
> type TRec=record
> x:integer;
> end;
> PRecords=^TRecords;
> TRecords=array [0..100] of TRec;
>
> var Records:PRecords;
> begin
> getmem(Records,1000*sizeof(TRec));
>
> Records^[70].x:=1;
>
Pointerova aritmetika
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 10.12.2002 16:09:44
> pokud je napr. pWords: pointer a pomoci getmem (pWords,
> 1000 * sizeof(someRecord)) vyalokuji buffer pro tisic recordu,
> jak se potom dostanu napr. na 70. z nich ?
>
> Ja pouzivam konstrukci pWord = Ptr (longint (Addr (pWords^))
> + (70-1) * sizeof (someRecord)). Ma nekdo lepsi napad ?
Napadaju ma dva sposoby, mozes pouzit pointer aritmetics alebo array
typecast, napriklad:
type
PMyRecord = ^TMyRecord;
TMyRecord = record
MyInt: Integer;
MyStr: array[0..255] of Char;
end;
TMyRecords = array[0..0] of TMyRecord;
const
Count = 20;
var
Buf: Pointer;
P: PMyRecord;
I: Integer;
begin
Buf := AllocMem(Count * SizeOf(TMyRecord));
try
// fill in some data...
P := Buf;
for I := 0 to Count - 1 do
begin
with P^ do
begin
MyInt := I;
StrLCopy(MyStr, PChar(IntToStr(I)), SizeOf(MyStr) - 1);
end;
Inc(P);
end;
// iterate using pointer arithmetics
P := Buf;
for I := 0 to Count - 1 do
begin
with P^ do
OutputDebugString(PChar(Format('record %d: MyInt = %d, MyStr =
''%s''', [I, MyInt, MyStr])));
Inc(P);
end;
// iterate using array typecast
for I := 0 to Count - 1 do
with TMyRecords(Buf^)[I] do
OutputDebugString(PChar(Format('record %d: MyInt = %d, MyStr =
''%s''', [I, MyInt, MyStr])));
finally
FreeMem(Buf);
end;
end;
> Pripadne napad jak usporne vyuzivat pamet k ulozeni dat
> bez zbytecne rezie, kterou prinasi ruzne TListy a TCollectiony
> apod.
TList ma podla mna zanedbatelnu reziu, hlavne ak si vopred nastavis
Capacity, pritom kod s jeho pouzitim byva o nieco citatelnejsi.
> a s moznosti najednou nacist nebo zapsat celou tuto
> mnozinu recordu prikazem BlockRead resp. Blockwrite
> do souboru ?
Na to potrebujes mat suvisly blok dat, takze v tom pripade TList odpada.
Mozno by sa Ti hodil nejaky objekt, ktory bude vnutorne pouzivat
TMemoryStream. V nom mas vlastnost Memory, ku ktorej mozes pristupovat
horeuvedenym sposobom, ale ma tiez sikovnu metodu SaveToFile ;-)
HTH
TOndrej
Pointerova aritmetika
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.12.2002 18:21:42
From: "Zdenek Moravec" <zmo(zv)volny(tec)cz>
> Ja pouzivam konstrukci pWord = Ptr (longint (Addr (pWords^)) + (70-1) *
> sizeof (someRecord)). Ma nekdo lepsi napad ? Pripadne napad jak usporne
> vyuzivat pamet k ulozeni dat bez zbytecne rezie, kterou prinasi ruzne TListy
> a TCollectiony apod. a s moznosti najednou nacist nebo zapsat celou tuto
> mnozinu recordu prikazem BlockRead resp. Blockwrite do souboru ?
Dynamicka pole
Petr Vones
OT: Nelegalne Delphi + FreeSoftware
[*] bugi <bugala_a(zv)centrum.sk> - 10.12.2002 18:40:33
Vsetkych zdravim,
ide mi len o ukoncenie diskusie medzi mojimi kamaratmi, ktori tvrdia, ze
ak nemam legalne zakupene Delphi a urobim v nom nejaky program a
pustim ho do sveta ako free software, mozem byt trestne stihany!
Ako je to naozaj ? Mozem byt trestne stihany za freesoft ?
Za vsetky odpovede dakujem,
Alex
Bugala Alex - stredoskolak 2 roc.
-----------------------------------------------------
Win2000 Prof Cz - SP2
Delphi 3 Client / Server Suite
OT: delphi6 a tcx
[*] MUDr. Patrik VALENTA <valentapat(zv)volny(tec)cz> - 10.12.2002 18:45:33
Prosim o pomoc, nemuzu rozchodi projekt postavenej s komponentama Tcx v D5.
Po instalaci D6 hlasi ze nema proxies.dcu. Kdyz mu ho dam a nastavim cestu
tak rve ze nema proxies.pas....
Zn.specha dik
valik
ICQ 54152896
delphi6 a tcx
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.12.2002 18:52:43
From: "MUDr. Patrik VALENTA" <valentapat(zv)volny(tec)cz>
> Prosim o pomoc, nemuzu rozchodi projekt postavenej s komponentama Tcx v D5.
> Po instalaci D6 hlasi ze nema proxies.dcu. Kdyz mu ho dam a nastavim cestu
> tak rve ze nema proxies.pas....
> Zn.specha dik
Dalsi priklad chybne napsanych komponent. Bylo by vhodne aby se to jejich
autor nejdrive naucil a teprve pak to posilal do sveta. Vice na
http://community.borland.com/article/0,1410,27717,00.html
Petr Vones
delphi6 a tcx
[*] MUDr. Patrik VALENTA <valentapat(zv)volny(tec)cz> - 10.12.2002 22:19:28
----- Original Message ----- Vice na
> http://community.borland.com/article/0,1410,27717,00.html
> Petr Vones
No zkousel sem to prekompilovat, ale designide.dcp uz tam je.
Pri pokusu o kompilaci projektu se otevre v editoru designeditor.pas a v nem
je
v uses .... proxies. Tam to skonci.
valik
delphi6 a tcx
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.12.2002 22:23:39
From: "MUDr. Patrik VALENTA" <valentapat(zv)volny(tec)cz>
> No zkousel sem to prekompilovat, ale designide.dcp uz tam je.
> Pri pokusu o kompilaci projektu se otevre v editoru designeditor.pas a v nem
> je
> v uses .... proxies. Tam to skonci.
Ano, protoze v runtime kodu nema unit Proxies ani zadny jiny z OTA co delat.
Je treba napsat ty komponenty korektne, tedy rozdelit runtime a designtime
kod.
Petr Vones
AW: Web service pod Appachom
[*] Pavel Cisar <pcisar(zv)users.sourceforge(tec)net> - 10.12.2002 23:44:39
Haj hou!
On 10 Dec 2002 at 12:43, Burkovsky Ladislav wrote:
> Ano ale len na CGI
Koukas spatne :-) Borland\Delphi 7\Demos/Internet\ApacheDSO
Nejsou to sice web services, ale v konfiguraci neni rozdil.
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
OT: v cem kdo dela helpy
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 11.12.2002 08:12:55
ahoj,
mam dotaz na tvorbu helpu. jeste jsem yo nedelal
a tusim pouze, ze se je potreba vytvorit strukturovany
RTF a ten zkompilovat prislusnym nastrojem.
ted jsem od sefa dostal ukol, podivat e po nejakem
sikovnem nastroji na tvorbu helpu. zajimalo by me tedy:
1/ zda vubec nejaky nastroj pouzivate
pokud jo, tak:
2/ jaky
3/ proc zrovna ten a ne jiny
4/ co vam na nem vyhovuje
5/ co vam na nem vadi
prosim poslat na soukromy mejl, at nezatezujeme konferu.
pokud bude zajem, tak pak souhrn klidne postnu zase sem.
dekuji mnohokrat
peca
v cem kdo dela helpy
[*] Karel Dusek <Karel.Dusek(zv)oku-tu(tec)cz> - 11.12.2002 08:33:27
Drive jsem pouzival *.RTF a to z duvodu ze je nutne pro microsoft help
kompiler psat poznamky pod carou. Pouzival jsem Word protoze umel vkladat
ruzne identifikatory poznamek pod carou (K,#,$,...), nyni jsem nasel open
office ktery to umi take. V teto dobe budu prechazet na html help. Je
univerzalnejsi help lze jednoduse umistit na net. U microsoftu lze si
stahnout kompilator na html. Neni potreba jiny soft.
Karel Dusek
----- Original Message -----
From: "Petr Palicka" <palicka.petr(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 11, 2002 8:12 AM
Subject: OT: v cem kdo dela helpy
ahoj,
mam dotaz na tvorbu helpu. jeste jsem yo nedelal
a tusim pouze, ze se je potreba vytvorit strukturovany
RTF a ten zkompilovat prislusnym nastrojem.
ted jsem od sefa dostal ukol, podivat e po nejakem
sikovnem nastroji na tvorbu helpu. zajimalo by me tedy:
1/ zda vubec nejaky nastroj pouzivate
pokud jo, tak:
2/ jaky
3/ proc zrovna ten a ne jiny
4/ co vam na nem vyhovuje
5/ co vam na nem vadi
prosim poslat na soukromy mejl, at nezatezujeme konferu.
pokud bude zajem, tak pak souhrn klidne postnu zase sem.
dekuji mnohokrat
peca
DAO a pristup do readonly mdb
[*] mato <mato.tino(zv)inmail.sk> - 11.12.2002 08:40:24
ved prave, adresar je iba read. Totizto islo mi o to. Mam programcek s malou
databazov. Jedneho uzivatelovi chcem dovolit iba citat, ale druhemu aj
editovat. Tomu prvemu som chcel dat pristup k adresaru iba read, aby nieco
nezmazal napr. cez spravcu suborov. Ale nech nastavujem ako chcem nejdeto.
Ak pouzijem exclusive tak sa nik iny k databaze nepripoji a ak exclusive
vypnem tak nemoze byt adresar read. A pritom ak pouzijem acces tak ten s tym
nema problem.
----- Original Message -----
From: "Erik Salaj" <winsoft(zv)stonline.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, December 10, 2002 3:24 PM
Subject: Re: DAO a pristup do readonly mdb
> > nedari sa mi rozchodit pristup k mdb databaze z DAO komponentov. mdb je
na
> > suborovom serveri. Ak nastavim adresar kde je mdb na read, tak sa dao
> > nepripoji. Jedine ak nastavim exclusive a readonly. Ale potom sa k tej
mdb
> > databaze nik iny nepripoji.
>
> skontroluj, ci mas pravo na vytvaranie a zapisovanie do suborov na
suborovom
> serveri (koli vytvoreniu ldb suboru).
>
> Erik
>
>
>
Nelegalne Delphi + FreeSoftware
[*] Petr Langer <langer(zv)xdom(tec)cz> - 11.12.2002 08:42:18
Pokud te nekdo zazaluje, tak si myslim, ze jo.
Ale ne za tvuj freesoft, ale za pouzivani software (Delphi 3) bez radne
licence.
Stejne bys to mel nejspise i s woknama (pokud je nemas legalne ;-) ) - i
kdyz je pouzivas pro soukrome (nekomercni) ucely, musis si je koupit.
Vyjimku v Delphi tvori "specialni" verze D6 Personal kterou bylo drive mozne
stahnout a pouzivat pro nekomercni projekty zdarma. Z diskuze v teto
konferenci mi ale vyplynulo, ze ji Borland stahnul...
HTH
pl
----- Original Message -----
From: "bugi" <bugala_a(zv)centrum.sk>
To: "Konfa Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, December 10, 2002 6:40 PM
Subject: OT: Nelegalne Delphi + FreeSoftware
> Vsetkych zdravim,
>
> ide mi len o ukoncenie diskusie medzi mojimi kamaratmi, ktori tvrdia, ze
> ak nemam legalne zakupene Delphi a urobim v nom nejaky program a
> pustim ho do sveta ako free software, mozem byt trestne stihany!
>
> Ako je to naozaj ? Mozem byt trestne stihany za freesoft ?
>
> Za vsetky odpovede dakujem,
> Alex
>
>
> Bugala Alex - stredoskolak 2 roc.
> -----------------------------------------------------
> Win2000 Prof Cz - SP2
> Delphi 3 Client / Server Suite
>
>
>Nelegalne Delphi + FreeSoftware
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 11.12.2002 08:42:18
Nie som pravnik, ale podla mojho nazoru mozes free soft legalne sirit aj
ked nemas legalne delphi. V kazdom pripade este mozes vyuzit legalizacnu
fintu. Programuj vo svojom a nakoniec skompiluj program v legalnom
Delphi :-)
P.S.: Neber ma doslovne. Len ma to tak teraz napadlo. Ale myslim si, ze
tak ako to popisujem by to mohlo ist.
Peter Ondras
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
>: Behalf Of bugi
>: Sent: Tuesday, December 10, 2002 6:41 PM
>: To: Konfa Delphi
>: Subject: OT: Nelegalne Delphi + FreeSoftware
>:
>: Vsetkych zdravim,
>:
>: ide mi len o ukoncenie diskusie medzi mojimi kamaratmi, ktori tvrdia,
ze
>: ak nemam legalne zakupene Delphi a urobim v nom nejaky program a
>: pustim ho do sveta ako free software, mozem byt trestne stihany!
>:
>: Ako je to naozaj ? Mozem byt trestne stihany za freesoft ?
>:
>: Za vsetky odpovede dakujem,
>: Alex
>:
>:
>: Bugala Alex - stredoskolak 2 roc.
>: -----------------------------------------------------
>: Win2000 Prof Cz - SP2
>: Delphi 3 Client / Server Suite
ODBCe - memory management
[*] Lubomir Fule <fule(zv)humansoft.sk> - 11.12.2002 09:25:40
Skus si stiahnut najnovsiu verziu ODBCe (uz je aj pre D7) z
ftp://ftp.humansoft.sk/public/ODBCe.zip a ozvi sa ako to dopadlo.
L.
> -----Original Message-----
> From: Zdenek Moravec [mailto:zmo(zv)volny(tec)cz]
> Sent: Monday, December 09, 2002 4:06 PM
> To: Konference Delphi
> Subject: ODBCe - memory management
>
>
> Zdravim vsechny.
>
> Pokud ve svem ponekud pametove narocnejsim programu pouziju komponenty
> ODBCe, objevi se hlaska Out of memory - jako by jiz Windows
> 2000 prestaly
> usilovat o zvetseni virtualni pameti (ktere bez techto
> komponent funguje v
> poradku).
>
> Chyba se projevi na prikazu
> getmem (m_CrossBase, m_CrossCnt * sizeof (CrossLine));
>
> Chyba nastava bez ohledu na zpusob pouziti ODBCe - staci uvest unity
> ODBCClass, ODBCBase v seznamu deklaraci uses.
>
> Nevite nahodou nekdo, jestli lze pomoci nejakeho nastaveni tuto
> funkcionalitu ODBCe vylepsit ? Pripadne alespon cim je zpusobena ?
>
> D5 SPvsechny W2000
>
> S pozdravem (Regards)
> Zdenek Moravec zmo(zv)volny(tec)cz
>
>
> Nelegalne Delphi + FreeSoftware
[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 11.12.2002 09:34:11
Zcela urcite to je protipravni a porusovani autorskych prav, pokud nedodava
Borland verzi, ktera to vyslovne umoznuje (a to byla D6 Pers). Z tohoto
pohledu je totiz uplne jedno, zda se jedna o komercni ci nekomercni ucely.
Stejne by se dalo rict, ze je legalni natocit si na video film, upravit jej
(napriklad jinymi titulky) a zdarma jej sirit. Kazdy intuitivne tusime, ze
to neni legalni. A stejne je to u SW... Takze bohuzel/bohudik, opravdu by
mohlo dojit k trestnimu stihani. KER
P.S. Legalizacni finta nemusi byt vzdy spolehliva, napriklad pokud je free
nakonec siren pod jinym jmenem, nez na koho byla zakoupena licence apod...
----- Original Message -----
From: "Peter Ondras" <peter.ondras(zv)pse.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 11, 2002 8:42 AM
Subject: RE: Nelegalne Delphi + FreeSoftware
> Nie som pravnik, ale podla mojho nazoru mozes free soft legalne sirit aj
> ked nemas legalne delphi. V kazdom pripade este mozes vyuzit legalizacnu
> fintu. Programuj vo svojom a nakoniec skompiluj program v legalnom
> Delphi :-)
>
> P.S.: Neber ma doslovne. Len ma to tak teraz napadlo. Ale myslim si, ze
> tak ako to popisujem by to mohlo ist.
>
> Peter Ondras
Vizualizacia grafu
[*] p.sestak(zv)corag.sk - 11.12.2002 09:56:25
Zdravim,
Mam v pamati vytvorenu nejaku strukturu ( graf ) a potreboval by som ho
nejak vizualizovat,
najlepsie tak, aby sa dal vytlacit na tlaciarni, prip. plotri. Nevie
niekto z vas,
ci niekde neexistuje taka kniznica, alebo komponenta, ktora by zobrala
takuto strukturu v predpisanom formate
a vygenerovala by mi nejaky bmp, prip gif s hotovym grafom?
palo sestak.Vizualizacia grafu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 11.12.2002 09:58:56
> Mam v pamati vytvorenu nejaku strukturu ( graf ) a potreboval
> by som ho
> nejak vizualizovat,
> najlepsie tak, aby sa dal vytlacit na tlaciarni, prip. plotri. Nevie
> niekto z vas,
> ci niekde neexistuje taka kniznica, alebo komponenta, ktora
> by zobrala
> takuto strukturu v predpisanom formate
> a vygenerovala by mi nejaky bmp, prip gif s hotovym grafom?
TChart, je sucastou Delphi bez zdrojakov, tie sa daju kupit.
HTH
TOndrej
Nelegalne Delphi + FreeSoftware
[*] Roman Junga <tazzy(zv)seznam(tec)cz> - 11.12.2002 10:02:32
V z�dn�m pr�pade nemuzes s�rit free soft, pokud jsi ho vytvoril v neleg�lne
drzen�m Delphi. Odporuje to licencn�m ujedn�n�m a autorsk�m pr�vum. Jestlize
pouzijes placen� software na v�robu jin�ho softwaru a chces jej jakkoli
distribuovat (treba i zdarma), mus�s m�t tento n�stroj leg�lne zakoupen�.
Samozrejme, ze mus�s m�t koupen� i operacn� syst�m.
Je to �plne stejn�, jako by jsi vozil lidi autobusem zdarma a naftu bys
kradl.
Roman Junga
----- Original Message -----
From: "Peter Ondras" <peter.ondras(zv)pse.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 11, 2002 8:42 AM
Subject: RE: Nelegalne Delphi + FreeSoftware
> Nie som pravnik, ale podla mojho nazoru mozes free soft legalne sirit aj
> ked nemas legalne delphi. V kazdom pripade este mozes vyuzit legalizacnu
> fintu. Programuj vo svojom a nakoniec skompiluj program v legalnom
> Delphi :-)
>
> P.S.: Neber ma doslovne. Len ma to tak teraz napadlo. Ale myslim si, ze
> tak ako to popisujem by to mohlo ist.
>
> Peter Ondras
> peter.ondras(zv)pse.sk
> (+421) 0904 421 925
>
>
> >: -----Original Message-----
> >: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
> On
> >: Behalf Of bugi
> >: Sent: Tuesday, December 10, 2002 6:41 PM
> >: To: Konfa Delphi
> >: Subject: OT: Nelegalne Delphi + FreeSoftware
> >:
> >: Vsetkych zdravim,
> >:
> >: ide mi len o ukoncenie diskusie medzi mojimi kamaratmi, ktori tvrdia,
> ze
> >: ak nemam legalne zakupene Delphi a urobim v nom nejaky program a
> >: pustim ho do sveta ako free software, mozem byt trestne stihany!
> >:
> >: Ako je to naozaj ? Mozem byt trestne stihany za freesoft ?
> >:
> >: Za vsetky odpovede dakujem,
> >: Alex
> >:
> >:
> >: Bugala Alex - stredoskolak 2 roc.
> >: -----------------------------------------------------
> >: Win2000 Prof Cz - SP2
> >: Delphi 3 Client / Server Suite
>
>
>
Vizualizacia grafu
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 11.12.2002 10:16:16
Ahoj
Jestli myslis grav z Excelu (sloupcovy, carovy) pak TChart pomuze. =
Jestli
myslis graf ve smyslu teorie grafu, pak je treba hledat jinde.
=20
Jaromir Cermak
=20
-----Original Message-----
From: Ondrej Kelle [mailto:O.Kelle(zv)digitalpublishing.de]
Sent: Wednesday, December 11, 2002 9:59 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: RE: Vizualizacia grafu
> Mam v pamati vytvorenu nejaku strukturu ( graf ) a potreboval=20
> by som ho=20
> nejak vizualizovat,
> najlepsie tak, aby sa dal vytlacit na tlaciarni, prip. plotri. Nevie=20
> niekto z vas,
> ci niekde neexistuje taka kniznica, alebo komponenta, ktora=20
> by zobrala=20
> takuto strukturu v predpisanom formate
> a vygenerovala by mi nejaky bmp, prip gif s hotovym grafom?
TChart, je sucastou Delphi bez zdrojakov, tie sa daju kupit.
HTH
TOndrej
---
P=F8=EDchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.426 / Virov=E1 b=E1ze: 239 - datum vyd=E1n=ED: 2.12.2002
=20
DateSeparator v ADO a SQL prikazy s datumamy
[*] K�teles J�n <Koteles(zv)lumen.sk> - 11.12.2002 10:32:54
Zdravim vsetkych,
mam problem pri pouziti ADO na MSAcces databaze. Ked spustim SQL prikaz
obsahuj=FAci datum vytiahnuty pocitaca s formatovanim sposobom d.m.yyyy =
tak my
hlasi chybu. Chyba pominie ked datum je vo formate d/m/yyyy. Riesim to =
tym
ze docasne menim dateseparator, ale pripada mi to divne. Existuje
elegantnejsie riesenie, alebo len to na ktore som uz prisiel? -ze mam =
pre
istotu menit dateseparator? Kazdy uzivatel predsa ma vlastne =
nadstavenie
formatu datumu vo Windowsoch...DateSeparator v ADO a SQL prikazy s datumamy
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 11.12.2002 10:45:34
doufam ze se nepletu, ale podle me pouziva Acess nejak natvrdo "/" =
jako
date separator. Podle me je jednodussi pouzit funkci StringReplace.
pavel
=20
-----Original Message-----
From: K=F6teles J=E1n [mailto:Koteles(zv)lumen.sk]
Sent: Wednesday, December 11, 2002 10:33 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: DateSeparator v ADO a SQL prikazy s datumamy
Zdravim vsetkych,
mam problem pri pouziti ADO na MSAcces databaze. Ked spustim SQL prikaz
obsahuj=FAci datum vytiahnuty pocitaca s formatovanim sposobom d.m.yyyy =
tak my
hlasi chybu. Chyba pominie ked datum je vo formate d/m/yyyy. Riesim to =
tym
ze docasne menim dateseparator, ale pripada mi to divne. Existuje
elegantnejsie riesenie, alebo len to na ktore som uz prisiel? -ze mam =
pre
istotu menit dateseparator? Kazdy uzivatel predsa ma vlastne =
nadstavenie
formatu datumu vo Windowsoch...Nelegalne Delphi + FreeSoftware
[*] Lubomir Fule <fule(zv)humansoft.sk> - 11.12.2002 10:48:47
A ako to je v pripade, ze by som siril iba zdrojaky bez cohokolvek, co
generuje kompilator. Mozem byt aj vtedy tresne stihany? Ved teoreticky =
mozem
tvrdit, ze som to napisal v Notepad-e.
L.
> V z=E1dn=E9m pr=EDpade nemuzes s=EDrit free soft, pokud jsi ho=20
> vytvoril v neleg=E1lne
> drzen=E9m Delphi. Odporuje to licencn=EDm ujedn=E1n=EDm a autorsk=FDm =
> pr=E1vum. Jestlize
> pouzijes placen=FD software na v=FDrobu jin=E9ho softwaru a chces=20
> jej jakkoli
> distribuovat (treba i zdarma), mus=EDs m=EDt tento n=E1stroj=20
> leg=E1lne zakoupen=FD.
> Samozrejme, ze mus=EDs m=EDt koupen=FD i operacn=ED syst=E9m.
> Je to =FAplne stejn=E9, jako by jsi vozil lidi autobusem zdarma a=20
> naftu bys
> kradl.
>=20
> Roman Junga
DateSeparator v ADO a SQL prikazy s datumamy
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 11.12.2002 10:50:33
RXhpc3R1amUuIERhdHVtIHV2YWRlaiB2ZSBmb3JtYXR1IHl5eXltbWRkLg0KDQotLSANCmluZy4g
SmFuIEZpYWxhDQptYWlsdG86amFuLmZpYWxhQGlvbC5jeg0KDQoxMS4xMi4yMDAyIEv2dGVsZXMg
SuFuOg0KPiBaZHJhdmltIHZzZXRreWNoLA0KDQo+IG1hbSBwcm9ibGVtIHByaSBwb3V6aXRpIEFE
TyBuYSBNU0FjY2VzIGRhdGFiYXplLiBLZWQgc3B1c3RpbSBTUUwgcHJpa2F6DQo+IG9ic2FodWr6
Y2kgZGF0dW0gdnl0aWFobnV0eSBwb2NpdGFjYSBzIGZvcm1hdG92YW5pbSBzcG9zb2JvbSBkLm0u
eXl5eSB0YWsgbXkNCj4gaGxhc2kgY2h5YnUuIENoeWJhIHBvbWluaWUga2VkIGRhdHVtIGplIHZv
IGZvcm1hdGUgZC9tL3l5eXkuIFJpZXNpbSB0byB0eW0NCj4gemUgZG9jYXNuZSBtZW5pbSBkYXRl
c2VwYXJhdG9yLCBhbGUgcHJpcGFkYSBtaSB0byBkaXZuZS4gRXhpc3R1amUNCj4gZWxlZ2FudG5l
anNpZSByaWVzZW5pZSwgYWxlYm8gbGVuIHRvIG5hIGt0b3JlIHNvbSB1eiBwcmlzaWVsPyAgLXpl
IG1hbSBwcmUNCj4gaXN0b3R1IG1lbml0IGRhdGVzZXBhcmF0b3I/IEthemR5IHV6aXZhdGVsIHBy
ZWRzYSBtYSB2bGFzdG5lIG5hZHN0YXZlbmllDQo+IGZvcm1hdHUgZGF0dW11IHZvIFdpbmRvd3Nv
Y2guLi4NCiA=
Nelegalne Delphi + FreeSoftware
[*] Ing. Marek Kocan <kocan(zv)ebchod(tec)cz> - 11.12.2002 10:58:53
ano,t vrdit to muzes, ale myslis si, ze ti nekdo uveri? Ale ani ti to
nedokazou:) KER
----- Original Message -----
From: "Lubomir Fule" <fule(zv)humansoft.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 11, 2002 10:48 AM
Subject: RE: Nelegalne Delphi + FreeSoftware
> A ako to je v pripade, ze by som siril iba zdrojaky bez cohokolvek, co
> generuje kompilator. Mozem byt aj vtedy tresne stihany? Ved teoreticky
mozem
> tvrdit, ze som to napisal v Notepad-e.
>
DateSeparator v ADO a SQL prikazy s datumamy
[*] K�teles J�n <Koteles(zv)lumen.sk> - 11.12.2002 11:00:00
A este mam otazku... Ako zistim aky presne datumovy format potrebuje =
takato
databaza?
>Zdravim vsetkych,
>mam problem pri pouziti ADO na MSAcces databaze. Ked spustim SQL =
prikaz
obsahuj=FAci datum vytiahnuty pocitaca s
>formatovanim sposobom d.m.yyyy tak my hlasi chybu. Chyba pominie ked =
datum
je vo formate d/m/yyyy. Riesim to tym ze=20
>docasne menim dateseparator, ale pripada mi to divne. Existuje
elegantnejsie riesenie, alebo len to na ktore som uz prisiel? =20
>-ze mam pre istotu menit dateseparator? Kazdy uzivatel predsa ma =
vlastne
nadstavenie formatu datumu vo Windowsoch...Nelegalne Delphi + FreeSoftware
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 11.12.2002 11:03:44
Pokud budes sirit jen zdrojaky a zdarma, tak se
myslim v pohode vejdes do licence D7 personal.
Radim
----- Original Message -----
From: "Lubomir Fule" <fule(zv)humansoft.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, December 11, 2002 10:48 AM
Subject: RE: Nelegalne Delphi + FreeSoftware
A ako to je v pripade, ze by som siril iba zdrojaky bez cohokolvek, co
generuje kompilator. Mozem byt aj vtedy tresne stihany? Ved teoreticky mozem
tvrdit, ze som to napisal v Notepad-e.
L.
> V z�dn�m pr�pade nemuzes s�rit free soft, pokud jsi ho
> vytvoril v neleg�lne
> drzen�m Delphi. Odporuje to licencn�m ujedn�n�m a autorsk�m
> pr�vum. Jestlize
> pouzijes placen� software na v�robu jin�ho softwaru a chces
> jej jakkoli
> distribuovat (treba i zdarma), mus�s m�t tento n�stroj
> leg�lne zakoupen�.
> Samozrejme, ze mus�s m�t koupen� i operacn� syst�m.
> Je to �plne stejn�, jako by jsi vozil lidi autobusem zdarma a
> naftu bys
> kradl.
>
> Roman Junga
Vizualizacia grafu
[*] p.sestak(zv)corag.sk - 11.12.2002 11:06:43
>Ahoj
>Jestli myslis grav z Excelu (sloupcovy, carovy) pak TChart pomuze. Jestli
>myslis graf ve smyslu teorie grafu, pak je treba hledat jinde.
Jaromir Cermak
potrebujem prave ten druhy, cize nieco ako graf zavislosti medzi nejakymi
objektami.DateSeparator v ADO a SQL prikazy s datumamy
[*] Vagner Pavel <Vagner(zv)ceps(tec)cz> - 11.12.2002 11:07:03
napadaji me 2 veci
1) podivat se do helpu i kdyz ten v accessu stoji za prd, tak alespon =
na
msdn
2) zkusit udelat kratkej priklad v navrhovym zobrazeni a pak se podivat =
co
vygeneroval access za string=20
pavel
-----Original Message-----
From: K=F6teles J=E1n [mailto:Koteles(zv)lumen.sk]
Sent: Wednesday, December 11, 2002 11:00 AM
To: 'delphi-l(zv)clexpert(tec)cz'
Subject: FW: DateSeparator v ADO a SQL prikazy s datumamy
A este mam otazku... Ako zistim aky presne datumovy format potrebuje =
takato
databaza?
>Zdravim vsetkych,
>mam problem pri pouziti ADO na MSAcces databaze. Ked spustim SQL =
prikaz
obsahuj=FAci datum vytiahnuty pocitaca s
>formatovanim sposobom d.m.yyyy tak my hlasi chybu. Chyba pominie ked =
datum
je vo formate d/m/yyyy. Riesim to tym ze=20
>docasne menim dateseparator, ale pripada mi to divne. Existuje
elegantnejsie riesenie, alebo len to na ktore som uz prisiel? =20
>-ze mam pre istotu menit dateseparator? Kazdy uzivatel predsa ma =
vlastne
nadstavenie formatu datumu vo Windowsoch...Nelegalne Delphi + FreeSoftware
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.12.2002 11:07:48
Puvodni zprava, kterou napsal Peter Ondras dne 11 Dec 2002:
> Nie som pravnik, ale podla mojho nazoru mozes free soft legalne sirit aj
> ked nemas legalne delphi. V kazdom pripade este mozes vyuzit legalizacnu
> fintu. Programuj vo svojom a nakoniec skompiluj program v legalnom Delphi
> :-)
>
> P.S.: Neber ma doslovne. Len ma to tak teraz napadlo. Ale myslim si, ze
> tak ako to popisujem by to mohlo ist.
Jiste. A kdyz ukradnes traktor, tak s nim muzes zcela legalne ostatnim
orat pole a taky tahat hnuj klidne, kdyz to budes delat zadarmo a ne za
penize, tak ti ten traktor uz patri a nikdo ti ho nesmi vzit a ani se
nemusis bat, ze bys sel do basy...
S pozdravem
Petr Zahradnik, pocitacovy expert
=======================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 475 500 610, 475 501 627, 475 511 337
Mobilni telefon: 602 409 601, Fax: 475 511 338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
=======================================================Nelegalne Delphi + FreeSoftware
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.12.2002 11:15:59
Puvodni zprava, kterou napsal Lubomir Fule dne 11 Dec 2002:
> A ako to je v pripade, ze by som siril iba zdrojaky bez cohokolvek, co
> generuje kompilator. Mozem byt aj vtedy tresne stihany? Ved teoreticky
> mozem tvrdit, ze som to napisal v Notepad-e.
To je v naprostem poradku, to muzes opravdu napsat v Notepadu, sirit
muzes. Druha vec je ovsem moralni stranka veci, pokud pouzivas nelegalni
Delphi, pak jsi zlodej, at chces nebo ne. Jinymi slovy, nezalezi na tom,
jaky je vysledek, jestli neco produkujes nebo neprodukujes, jestli to
prodavas nebo davas zadarmo, dulezite je to, ze autorska prava porusujes
tak jako tak. Proste jsi zlodej, pouzivas nelegalne neco, na co nemas
pravo. Pokud s tim dokazes zit, jsi v pohode. Nekdo normalne krade v
obchode nebo na ulici, nekdo treba okrada podnikatele, ze jim neplati
faktury, nekdo pouziva cizi ochranne znamky, Spidla se svou bandou zase
vesele okradaji cely stat a to i nase deti a deti nasich deti... a dokazi
s tim zit... tak proc ty bys nemohl?
PS: To neni na tebe osobne, druhou osobu jednotneho cisla pouzivam proto,
ze se na to ptas.
S pozdravem
Petr Zahradnik, pocitacovy expert
=======================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 475 500 610, 475 501 627, 475 511 337
Mobilni telefon: 602 409 601, Fax: 475 511 338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
=======================================================