Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Jak zjistit hodnotu generatoru
[*] Rado Benc <bego(zv)pobox.sk> - 1.3.2002 16:19:36
Nazdar,
> potreboval bych zjistit aktualni hodnotu generatoru. V systemove tabulce
> RDB$GENERATORS jsem ulozenou aktualni hodnotu nenasel.
> Vi nekdo jak ji zjistit?
SELECT GEN_ID(GEN_ACCOUNT, 0) FROM RDB$DATABASE;
GEN_ACCOUNT je pochopitelne meno generatora. Ta 0 zaist, ze generator sa
neinkrementuje, ale vrati sa jeho akyualna hodnota.
HTH,
Rado
____________________________________
http://www.pobox.sk/ - urcujeme trendy
Priorita ?
[*] Rainbow Dark <rainbof(zv)seznam(tec)cz> - 1.3.2002 17:18:21
delam neco spatne ? proc je ten dialog u REALTIME_PRIORITY_CLASS zobrazen 3x
?
...
Case priorita.Position of
1:Begin
Label36.Caption:=LowPriorityText;
SetPriorityClass(X,NORMAL_PRIORITY_CLASS);
end;
2:Begin
Label36.Caption:=IdlePriorityText;
SetPriorityClass(X,IDLE_PRIORITY_CLASS);
end;
3:Begin
Label36.Caption:=HighPrioritytext;
SetPriorityClass(X,HIGH_PRIORITY_CLASS);
end;
4:Begin
Label36.Caption:=RealTimePriorityText;
if (MessageDLG('Opravdu pouzit REALTIME
?',mtWarning,[mbYes,mbNo],0)=mrYes) then
SetPriorityClass(X,REALTIME_PRIORITY_CLASS)
else Begin
Priorita.Position:=2;
SetPriorityClass(X,IDLE_PRIORITY_CLASS);
end;
end;
end;
end;
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2.2002
Zmena published vlastnosti na urovni TControl
[*] Tom� Kr�sl <tomkrysl(zv)post(tec)cz> - 1.3.2002 19:32:01
Resim nasledujici problem:
Pisu ted komponentu pro inteligentni zadavani souboru,
adresaru, cest apod. a chci uzivateli teto komponenty umoznit, aby pro vyvolani OpenDialogu nebo SHBrowseFolder dialogu mohl teto komponente,
priradit jakekoli tlacitko (TButton, TBitBtn, TSpeedButton, ale i jin�).
Bazovou tridu pro tuto vlastnost jsem zvolil TControl a pro vyvolani dialogu jsem chtel pouzit OnCLick prirazeneho tlacitka.
Jenze TControl nema OnClick "public" ani "published". Prosim poradte, jak nejlepe v tomto prip. priradit do OnClick hodnotu (zkousel jsem to pres GetPropInfo, a Get/SetMethodProp, ale bezuspesne)
Tomas Krysl (MADPascal)Rozbalovaci editor vlastnosti pro record
[*] Tom� Kr�sl <tomkrysl(zv)post(tec)cz> - 1.3.2002 19:41:15
Dneska mam jeste jeden dotaz:
Da se vytvorit rozbalovaci editor vlastnosti pro datovy typ record? - tj. mam record, ve kterem jsou 3 stringy a 1 integer. Chci, aby se ty 4 polozky objevily v object inspectoru s odsazenim
jako treba vlastnosti tridy Font.
Mozna je to docela primitivni, ale pri prohlizeni kodu DsgnIntf jsem na nic kloudneho neprisel (snad krome nasilneho predelani recordu na class, kdy uz asi zadny editor vytvaret nemusim).
Dik
Tomas Krysl (MADPascal)OT: Re: Integrace MSDN nebo Platform SDK do Delphi
[*] Miroslav Novosad <mirnov(zv)atlas(tec)cz> - 1.3.2002 21:18:19
Ahoj,
nejak mi neni jasne, jak se tam dostat:-((
Uz tady tech odkazu na "codecentral" bylo vic, takze jsem konecne
vyplnil IMHO dloooouuuhy formular za tla��tkem "New User", ale neni mi
to nic platne, protoze po vyplneni jmena a hesla se me prohlizec (IE)
nekolikrat pta na prechod mezi zabezpecenym a nezabezpecenym pripojenim
(proc s tim delaji takove obstrukce netusim) a nakonec po nekolika
odsouhlasenich skoncim - svete div se - na "Community Member Login"
jenom s tim rozdilem, ze login formular je prazdny:-((
Zkousel jsem to 3x a docela me to i prestalo bavit:-)
Rozumite tomu nekdo?
Miroslav Novosad
mirnov(zv)atlas(tec)cz
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: "Konference Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, February 23, 2002 5:57 PM
Subject: Integrace MSDN nebo Platform SDK do Delphi IDE
> Pekny IDE expert na toto najdete tady (Delphi 6):
> http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=16981
>
> Petr Vones
JPEG
[*] Fredy (nightmare) Crueger <Fredy.conf(zv)seznam(tec)cz> - 02.3.2002 08:37:41
Zdravim
Potreboval bych ze zadane cesty k nejakemu souboru zjistit jestli se
jedna o format JPEG a ma rozmery 400x400 a 256 barev. Jak to udelat ?
Fredy (nightmare) Crueger
Buried on Win98SE with Delphi
5
______________________________________________________________________
Seznam Prace - Hledate praci nebo menite zamestnani? http://prace.seznam(tec)cz
Vyska bunky v DBGridu v zavislosti na velikosti Fo
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 2.3.2002 11:24:53
Zdravim,
potrebuji v jednom slouci DBGridu jinou vysku fontu. Jakmile Font zmenim v
Comumns, tak se pismo zmeni, ale vyska bunky zustane puvodni.
Jakmile zmenim centralne vysku bunek v DBGrid.Font.Size := 12, zmeni se
vsechny vysky bunek, ale taky veskere pismo ve vsech bunkach.
Aby to bylo zajimave, polozky ktere jsou Calculed (vypocitana polozka) na
centralni pismo nereaguji a lze v techto sloupcich volit pismo dle potreby.
Jak lze mit ruzne pismo ve sloupcich a mit vysku bunek dle nejvetsiho pisma.
Diky Pavel
----- KOPR software -----
Pavel ZIDEK
http://www.kopr(tec)cz, kopr(zv)kopr(tec)cz, delphi(zv)kopr(tec)cz
teeChart editor
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 2.3.2002 11:33:49
Puvodni zprava, kterou napsal Roman Macura dne 1 Mar 2002:
> To chcete r�ct, ze nemuzu s�rit ani tee*.bpl?
> Mysl�m, ze muzu. Proc potom "licencne" nemuzu vyuz�t i runtime editor,
> kdyz budu zn�t syntaxi tech procedur a budu *.bpl nac�tat jako *.dll?
>
> P.S. Por�d vych�z�m z toho, ze tento editor je zkompilov�n v tee50.bpl a
> teeui50.bpl. Pokud to tak nen�, sdelte mi to, pros�m, at net�pu spatn�m
> smerem.
Muzes sirit tyto runtime balicky TeeChartu: TEE50.BPL, TEEDB50.BPL,
TEEQR50.bpl a TEEUI50.BPL. Ale ty by ti nemely umoznit editor v dobe
runtime, pouze v design time. Runtime editor je prave vymozenosti
Professional verze. Jestli to jde nejak ocurat, to ja nevim.
S pozdravem
Petr Zahradnik, pocitacovy expert
============================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 047-5500610, 047-5501627, 0602-409601
Fax: 047-5511338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
============================================================Nadtrzeni v RichEditu
[*] Fredy (nightmare) Crueger <Fredy.conf(zv)seznam(tec)cz> - 02.3.2002 15:03:19
Potreboval bych TRichEdit donutit, aby delal nadtrzeni urcite casti
textu. Bude to readonly, takze to nepotrebuju nastavovat programove,
ale bude se to normalne nacitat z *.rtf souboru a ten nadtrzeni
neumi. Nesly by do toho rtf vytvorit neco jako flag a pak nejak
donutit ten RichEdit prelozit do nadtrzeni?
(zv)----------------------------------(zv)
Fredy (nightmare) Crueger
Buried on Win98SE with Delphi 5 Ent.
(zv)----------------------------------(zv)
______________________________________________________________________
Seznam Prace - Hledate praci nebo menite zamestnani? http://prace.seznam(tec)cz
Nadtrzeni v RichEditu
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 2.3.2002 15:42:49
Hi,
tady je priklad jak vytvorit horni a dolni index v richEditu.
http://www.peprsoft(tec)cz/default.asp?stpm=delphi/tipy.asp?id=179
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
.. -----Original Message-----
.. Potreboval bych TRichEdit donutit, aby delal nadtrzeni urcite casti
.. textu. JPEG
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 2.3.2002 18:30:00
function GetFileSize(WFile : string) : LongInt;
var F : file;
begin
if not FileExits(WFile) then
raise EInOutError.Create('Soubor '+WFile+' neexistuje');
AssignFile(F, WFile);
try
Reset(F);
except on
Exception do
begin
GetFileSize:=-1;
Abort;
end;
end; { try }
GetFileSize:=FileSize(F);
CloseFile(F);
end;> Ja bych zase potreboval zjistit velikost souboru (je to nekde zapsano, lze
> to vypocitat?)...
>
JPEG
[*] Frankie Y <frankie.y(zv)seznam(tec)cz> - 2.3.2002 18:30:46
Ja bych zase potreboval zjistit velikost souboru (je to nekde zapsano, lze
to vypocitat?)...
FY
----- Original Message -----
From: "Fredy (nightmare) Crueger" <Fredy.conf(zv)seznam(tec)cz>
To: "delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, March 02, 2002 8:37 AM
Subject: JPEG
Zdravim
Potreboval bych ze zadane cesty k nejakemu souboru zjistit jestli se
jedna o format JPEG a ma rozmery 400x400 a 256 barev. Jak to udelat ?
Fredy (nightmare) Crueger
Buried on Win98SE with Delphi
5
______________________________________________________________________
Seznam Prace - Hledate praci nebo menite zamestnani? http://prace.seznam(tec)cz
JPEG
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 2.3.2002 18:47:20
Nebo jednoduseji:
procedure GetFileSize (FileName: string; var Size: Int64);
var Rec : TSearchRec;
begin
if FindFirst (FileName, faAnyFile, Rec) = 0 then Size := Rec.Size
else
Size := 0;
FindClose (Rec);
end;
Jakub Dusek
-------------------------------------------
Homepage : http://dusek.zde(tec)cz
Phone : +420604615795
Sms email : jakub.dusek(zv)click(tec)cz
Icq : 86063232
Apps : Add/Remove Manager, Charmaper,
Sms GateKeeper
-------------------------------------------
From: "Pavel ZIDEK" <delphi(zv)kopr(tec)cz>> function GetFileSize(WFile : string) : LongInt;
> var F : file;
> begin
> if not FileExits(WFile) then
> raise EInOutError.Create('Soubor '+WFile+' neexistuje');
> AssignFile(F, WFile);
> try
> Reset(F);
> except on
> Exception do
> begin
> GetFileSize:=-1;
> Abort;
> end;
> end; { try }
> GetFileSize:=FileSize(F);
> CloseFile(F);
> end;
>
> > Ja bych zase potreboval zjistit velikost souboru (je to nekde zapsano,
lze
> > to vypocitat?)...
> >
>
>
>Nadtrzeni v Richedit
[*] Fredy (nightmare) Crueger <Fredy.conf(zv)seznam(tec)cz> - 02.3.2002 20:27:12
Sice pekny horni a dolni index, ale ja chtel nadtrzeni (to je jako
podtrzeni, ale nahore). Neni to zadna moje marnivost pro zkrasleni,
ale nutnost.
(zv)----------------------------------(zv)
Fredy (nightmare) Crueger
Buried on Win98SE with Delphi 5 Ent.
(zv)----------------------------------(zv)
______________________________________________________________________
Jestli ve Va�ich �il�ch koluje krev a ne voda, nem��ete jet na dovolenou
s nik�m jin�m ne� s n�mi! http://ad2.seznam(tec)cz/redir.cgi?instance=22245%26url=http://www.adventura(tec)cz.Integrace MSDN nebo Platform SDK do Delphi IDE
[*] Ondrej Kr�ko <krsko(zv)gjh.sk> - 3.3.2002 00:09:39
Mozno mate zakazane cookies, ktore sa mi zda, borland.com pouziva...
----- Original Message -----
From: "Miroslav Novosad" <mirnov(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, March 01, 2002 9:18 PM
Subject: OT: Re: Integrace MSDN nebo Platform SDK do Delphi IDE
> Ahoj,
>
> nejak mi neni jasne, jak se tam dostat:-((
> Uz tady tech odkazu na "codecentral" bylo vic, takze jsem konecne
> vyplnil IMHO dloooouuuhy formular za tla��tkem "New User", ale neni mi
> to nic platne, protoze po vyplneni jmena a hesla se me prohlizec (IE)
> nekolikrat pta na prechod mezi zabezpecenym a nezabezpecenym pripojenim
> (proc s tim delaji takove obstrukce netusim) a nakonec po nekolika
> odsouhlasenich skoncim - svete div se - na "Community Member Login"
> jenom s tim rozdilem, ze login formular je prazdny:-((
> Zkousel jsem to 3x a docela me to i prestalo bavit:-)
>
> Rozumite tomu nekdo?
>
> Miroslav Novosad
> mirnov(zv)atlas(tec)cz
>
>
> ----- Original Message -----
> From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> To: "Konference Delphi" <delphi-l(zv)clexpert(tec)cz>
> Sent: Saturday, February 23, 2002 5:57 PM
> Subject: Integrace MSDN nebo Platform SDK do Delphi IDE
>
>
> > Pekny IDE expert na toto najdete tady (Delphi 6):
> > http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=16981
> >
> > Petr Vones
Re[2]: Nadtrzeni v Richedit
[*] jan cerny <jan.cerny(zv)webstation(tec)cz> - 3.3.2002 00:56:42
Odpoved ...
taknam me napada ze HTML tohle taky upne neumi ale da se to obejit
treba border-top .... tak jestli by to neslo i zde ... ?
FnC> Sice pekny horni a dolni index, ale ja chtel nadtrzeni (to je jako
FnC> podtrzeni, ale nahore). Neni to zadna moje marnivost pro zkrasleni,
FnC> ale nutnost.
FnC> (zv)----------------------------------(zv)
FnC> Fredy (nightmare) Crueger
FnC> Buried on Win98SE with Delphi 5 Ent.
FnC> (zv)----------------------------------(zv)
FnC> ______________________________________________________________________
FnC> Jestli ve Va�ich �il�ch koluje krev a ne voda, nem��ete jet na dovolenou
FnC> s nik�m jin�m ne� s n�mi! http://ad2.seznam(tec)cz/redir.cgi?instance=22245%26url=http://www.adventura(tec)cz.
_________________________________
:.: c : h : 3 : m : 1 : k : 5 :.:
���������������������������������JPEG
[*] Frankie Y <frankie.y(zv)seznam(tec)cz> - 3.3.2002 05:24:48
Pekne, ale ja to potrebuju zjistit primo ze souboru. Chci totiz zjistit,
jestli ma stahovany obrazek spravnou velikost.
----- Original Message -----
From: "Pavel ZIDEK" <delphi(zv)kopr(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, March 02, 2002 6:30 PM
Subject: Re: JPEG
> function GetFileSize(WFile : string) : LongInt;
> var F : file;
> begin
> if not FileExits(WFile) then
> raise EInOutError.Create('Soubor '+WFile+' neexistuje');
> AssignFile(F, WFile);
> try
> Reset(F);
> except on
> Exception do
> begin
> GetFileSize:=-1;
> Abort;
> end;
> end; { try }
> GetFileSize:=FileSize(F);
> CloseFile(F);
> end;
>
> > Ja bych zase potreboval zjistit velikost souboru (je to nekde zapsano,
lze
> > to vypocitat?)...
> >
>
>JPEG
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 3.3.2002 07:03:25
Co se tyce barevne hloubky (viz help Delphi): The native format of a jpeg
image is 24-bit.
A rozmery JPEG (viz \Delphi6\Demos\ImagView\):
uses Jpeg;
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('C:\......\blabla.JPG');
Caption := Format(' (%d x %d)', [Image1.Picture.Width,
Image1.Picture.Height]);
end;
S pozdravem
Ober
> -----P�vodn� zpr�va-----
> Od: Frankie Y [SMTP:frankie.y(zv)seznam(tec)cz]
>
> Pekne, ale ja to potrebuju zjistit primo ze souboru. Chci totiz zjistit,
> jestli ma stahovany obrazek spravnou velikost.Ikona souboru - Shellapi
[*] Delphi Chater <delphichat(zv)seznam(tec)cz> - 3.3.2002 13:04:54
Nevite nekdo jak se da dostat pres shellapi ze souboru spravna ikona pridruzene aplikace?
Napr.: Kdyz potrebuju ziskat ikonu k souboru c:\bootlog.txt
Predem dekuji za odpovedi.
Ondrej Holub
Nadtrzeni v Richedit
[*] Fredy (nightmare) Crueger <Fredy.conf(zv)seznam(tec)cz> - 03.3.2002 13:19:46
To: Michal PEPR Pesek
Nic se nedeje, je to dost neobvykla vec.
To: All
Nemate nekdo aspon napad jak to "nasimulovat" ? Podrtzeni v
predchozim radku nepujde, protoze pri nejakej mensi chybe se to
objevi uplne nekde jinde. Sem docela zoufalej, ma to jit do programu
k moji maturini praci, ktera se odevzdava za 14 dni. Prosim zkuste
pomoci.
(zv)----------------------------------(zv)
Fredy (nightmare) Crueger
Buried on Win98SE with Delphi 5 Ent.
(zv)----------------------------------(zv)
______________________________________________________________________
Kam do kina ci divadla? http://kultura.seznam(tec)cz
JPEG a info o nem (was: JPEG)
[*] Fredy Crueger <Fredy.Conf(zv)Seznam(tec)cz> - 3.3.2002 13:26:39
From: "Obermaier Petr Ing." <Obermaier(zv)mail.sdas(tec)cz>> uses Jpeg;
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> Image1.Picture.LoadFromFile('C:\......\blabla.JPG');
> Caption := Format(' (%d x %d)', [Image1.Picture.Width,
> Image1.Picture.Height]);
> end;
A nejde to nejak bez nahravani obrazku do Image ?? A jeste jak zjistit
jestli se opravdu jedna o JPEG
(zv)----------------------------------(zv)
Fredy (nightmare) Crueger
Buried on Win98SE with Delphi 5 Ent.
(zv)----------------------------------(zv)Community Login Was: Integrace MSDN nebo Platform
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 3.3.2002 14:12:27
From: "Miroslav Novosad" <mirnov(zv)atlas(tec)cz>
> nejak mi neni jasne, jak se tam dostat:-((
> Uz tady tech odkazu na "codecentral" bylo vic, takze jsem konecne
> vyplnil IMHO dloooouuuhy formular za tla��tkem "New User", ale neni mi
> to nic platne, protoze po vyplneni jmena a hesla se me prohlizec (IE)
Ziskas tak Login name a Password (coz se ti hodi i pro stahovani Delphi 6
updatu). Na strance Community Member Login pak muzes zadat na kolik dni se ma
login zapamatovat v poli Save my login information in this browser for X days.
Samozrejme je treba mit zaple cookies (nevidim duvod proc je vypinat ;-) jak
je to napsano hned v uvodu te stranky. Pak uz nemusis nic zadavat a mas plny
pristup ke vsemu.
Petr Vones
Ikona souboru - Shellapi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 3.3.2002 14:36:00
From: "Delphi Chater" <delphichat(zv)seznam(tec)cz>
> Nevite nekdo jak se da dostat pres shellapi ze souboru spravna ikona
> pridruzene aplikace?
> Napr.: Kdyz potrebuju ziskat ikonu k souboru c:\bootlog.txt
uses
CommCtrl, ShellAPI;
function GetFileNameIcon(const FileName: string; Flags: Cardinal = 0): HICON;
var
FileInfo: TSHFileInfo;
ImageList: HIMAGELIST;
begin
FillChar(FileInfo, SizeOf(FileInfo), #0);
if Flags = 0 then
Flags := SHGFI_SHELLICONSIZE;
ImageList := SHGetFileInfo(PChar(FileName), 0, FileInfo, SizeOf(FileInfo),
Flags or SHGFI_SYSICONINDEX);
if ImageList <> 0 then
Result := ImageList_ExtractIcon(0, ImageList, FileInfo.iIcon)
else
Result := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Icon.Handle := GetFileNameIcon('C:\bootlog.txt');
end;
Petr Vones
Ulozeni www stranky na disk
[*] 3dimenzion <3dimension(zv)seznam(tec)cz> - 3.3.2002 15:11:51
DObry den,
potrebuji ulozit libovolnou stranku z internetu do mnou zadaneho
direktorare.
Dekuji za rady.Ulozeni www stranky na disk
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 3.3.2002 15:33:37
From: "3dimenzion" <3dimension(zv)seznam(tec)cz>
> potrebuji ulozit libovolnou stranku z internetu do mnou zadaneho
> direktorare.
http://www.euromind.com/iedelphi/iedownload.htm
nebo
uses
ComObj, UrlMon;
procedure TForm1.Button1Click(Sender: TObject);
begin
OleCheck(URLDownloadToFile(nil, 'http://www.delphi(tec)cz', 'delphicz.htm', 0,
nil));
end;
Petr Vones
Nadtrzeni v Richedit
[*] Petr Palicka aka PeC(zv) <petr.palicka(zv)atlas(tec)cz> - 3.3.2002 21:13:24
ahoj,
> Nemate nekdo aspon napad jak to "nasimulovat" ?
neslo by pouzit oramovani textu jenom nahore?
zkus ve wordu oznacit kousek textu, oramovat ho nahore
a ulozit do rtf. pak to zkus zobrazit v TRichEditu, pokud
bude jakz takz, tak si zkus prolizt ten rtf soubor a nejak
to pochopit, jak to zrobit.
dekuji PeC(zv)
Sinea a IB
[*] Miroslav Kotasek <miro.delphi(zv)seznam(tec)cz> - 3.3.2002 22:44:20
Zdravim,
Kdyz dynamicky menim pri behu programu obsah query ze ktere si sinea nacita
data nedokaze pockat az se tam ty data obevi a zahlasi chybu, ze dany
dataset neobsahuje zadne data, pri krokovani je vse v poradku, proste jde o
par milisekund. Jak ji donutit aby pockala?
try
DatovyModul.QueryPrac.Sql.Clear;
DatovyModul.QueryPrac.Sql.Add('select neco from neco where podminka');
DatovyModul.QueryPrac.Open;
finally
//umela pauza - nestihne naplnit tabulku
sestHl.DataSource:=DatovyModul.DSPrac;
sestHl.Preview;
DatovyModul.QueryPrac.Close;
end;
dulezite je ze mi to dela pri pripojeni pres sit na IB server 6
Mirek Kotasek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2.2002
Ulozenie ikony
[*] Martin Kasman <martinkasman(zv)pobox.sk> - 3.3.2002 23:08:53
Vdaka funguje to skutocne skvele! Ale da sa este aj ulozit ikona v 256
farbach alebo to ide len v 16?
----- Original Message -----
> function CreateIcon(ABitmap:TBitmap):TIcon;
> var
> IconSizeX : integer;
> IconSizeY : integer;
> XOrMask : TBitmap;
> MonoMask:TBitmap;
> BlackMask:TBitmap;
> IconInfo : TIconInfo;
> R:trect;
> transcolor:Tcolor;
> begin
> {Get the icon size}
> {IconSizeX := GetSystemMetrics(SM_CXICON);
> IconSizeY := GetSystemMetrics(SM_CYICON);}
> IconSizeX := 16;
> IconSizeY := 16;
> R:=Rect(0, 0, IconSizeX, IconSizeY);
>
>
> {Create the "XOr" mask}
> XOrMask := TBitmap.Create;
> XOrMask.Width := IconSizeX;
> XOrMask.Height := IconSizeY;
>
> {stretchdraw mypaint}
> XorMask.canvas.draw(0,0,Abitmap);
> //transcolor:=XorMask.Canvas.Pixels [0,IconSizeY-1];
> transcolor:=clFuchsia;
>
> {Create the Monochrome mask}
> MonoMask := TBitmap.Create;
> MonoMask.Width := IconSizeX;
> MonoMask.Height := IconSizeY;
> MonoMask.Canvas.Brush.Color := Clwhite;
> MonoMask.Canvas.FillRect(R);
>
> {Create the Black mask}
> BlackMask := TBitmap.Create;
> BlackMask.Width := IconSizeX;
> BlackMask.Height := IconSizeY;
>
>
> {if black is not the transcolor we must replace black
> with a temporary color}
> if transcolor<>clblack then begin
> BlackMask.Canvas.Brush.Color := $F8F9FA;
> BlackMask.Canvas.FillRect(R);
> BlackMask.canvas.BrushCopy(R,XorMask,R,clblack);
> XorMask.Assign (BlackMask);
> end;
>
> {now make the black mask}
> BlackMask.Canvas.Brush.Color := Clblack;
> BlackMask.Canvas.FillRect(R);
>
> {draw the XorMask with brushcopy}
> BlackMask.canvas.BrushCopy(R,XorMask,R,transcolor);
> XorMask.Assign (BlackMask);
>
> {Assign and draw the mono mask}
> XorMask.Transparent:=true;
> // XorMask.TransparentColor :=transcolor;
> XorMask.TransparentColor :=clblack;
> MonoMask.Canvas.draw(0,0,XorMask);
> MonoMask.canvas.copymode:=cmsrcinvert;
> MonoMask.canvas.CopyRect (R,XorMask.canvas,R);
> MonoMask.monochrome:=true;
>
> // XorMask.transparent:=false;
>
> {restore the black color in the image}
> BlackMask.Canvas.Brush.Color := Clblack;
> BlackMask.Canvas.FillRect(R);
> BlackMask.canvas.BrushCopy(R,XorMask,R,$F8F9FA);
> XorMask.Assign (BlackMask);
>
>
> {Create a icon}
> result := TIcon.Create;
> IconInfo.fIcon := true;
> IconInfo.xHotspot := 0;
> IconInfo.yHotspot := 0;
> IconInfo.hbmMask := MonoMask.Handle;
> IconInfo.hbmColor := XOrMask.Handle;
> result.Handle := CreateIconIndirect(IconInfo);
>
> {Destroy the temporary bitmaps}
> XOrMask.Free;
> MonoMask.free;
> BlackMask.free;
> end;
seznam souboru a jejich vlastnosti
[*] Jakub Maurer <jakub.Maurer(zv)seznam(tec)cz> - 04.3.2002 00:59:42
Dobry den,
jak mam napsat program na na udelani seznamu souboru a jejich
velikosti a datumu jejich vzniku...jak na to?
Dekuji Jakub Maurer
______________________________________________________________________
Seznam Prace - Hledate praci nebo menite zamestnani? http://prace.seznam(tec)cz
seznam souboru a jejich vlastnosti
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.3.2002 06:07:56
Vse najdes pri pouziti funkci FindFirs, FindNext (priklad je v helpu)
pro kzdy soubor ve vyslednem zaznamu TSearchRec
Pokud to chces nejak vizualne prezentovat, bylo by mnohme jednodussi
pouzit nejake hotove komponenty (GXExplorer, LSFileList apod.)
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
4.3.2002 Jakub Maurer:
> Dobry den,
> jak mam napsat program na na udelani seznamu souboru a jejich
> velikosti a datumu jejich vzniku...jak na to?
> Dekuji Jakub Maurer
Otevreni *.jpg
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 04.3.2002 06:56:26
No samozrejmne ze to jde, ale v uses me unity musi byt unita JPEG. Pak
OpenPictureDialog reaguje i na priponu JPEG.
>Mas na mysli nahled v okne OpenPictureDialog ? To by slo po mensi uprave,
>
>ale normalni vyber Jpeg souboru samozrejme jde.
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Sinea a IB
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 4.3.2002 07:07:11
ahoj,
no, nevim, jestli to ma vyznam, ale
ja osobne bych volani sestavy vlozil
pred finally. no a co se tyce tech
dat, co donutit IB, aby se nacetli
hnedle vsecky data?
> try
> DatovyModul.QueryPrac.Sql.Clear;
> DatovyModul.QueryPrac.Sql.Add
> ('select neco from neco where podminka');
> DatovyModul.QueryPrac.Open;
** DatovyModul.QueryPrac.FetchAll;
** sestHl.DataSource:=DatovyModul.DSPrac;
** sestHl.Preview;
> finally
> DatovyModul.QueryPrac.Close;
> end;
dekuji PeC(zv)seznam souboru a jejich vlastnosti
[*] Blazek Jaroslav <Jaroslav.Blazek(zv)access-it(tec)cz> - 04.3.2002 07:20:04
Ahoj,
C:\Program Files\Borland\Delphi...\Demos\VirtualListView
S pozdravem
Bc. Jaroslav Blazek
Access-IT Ceska Lipa
jaroslav.blazek(zv)access-it(tec)cz
www.access-it(tec)cz
ICQ : 133673990
+420605/813644
>>> jan.fiala(zv)iol(tec)cz 4.3.02 6:07 >>>
Vse najdes pri pouziti funkci FindFirs, FindNext (priklad je v helpu)
pro kzdy soubor ve vyslednem zaznamu TSearchRec
Pokud to chces nejak vizualne prezentovat, bylo by mnohme jednodussi
pouzit nejake hotove komponenty (GXExplorer, LSFileList apod.)
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
4.3.2002 Jakub Maurer:
> Dobry den,
> jak mam napsat program na na udelani seznamu souboru a jejich
> velikosti a datumu jejich vzniku...jak na to?
> Dekuji Jakub Maurer
Jednozna�n� ur�en� po��ta�e
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 4.3.2002 07:39:08
> Proc zvracenost?
Takoveto ochrany znamenaji vzdy pro zakaznika vyssi naklady. Kdyz jsem
jeste byl nucen preinstalovavat zakaznikum software na upgradnute PC
vzdycky me vytacely programy, ktere (ackoliv proto nebyl zadny
technicky duvod) nebyly schopne behu na novem PC. Zjistovani kdo
vyrobil ten program, jak ho kontaktoval, sehnat u nich nekoho kdo
poradi atd zabralo hodne casu -> zakaznik platil vic.
>Pouziva to tak i Microsoft a spousta dalsich firem.
no tak to je teda bezva obhajoba. Az bude Bill skakat po hlave tak
taky budes?
>Nase
> firma ma pres 3 000 zakazniku a ani jeden si nestezoval.
:-)
D. Toman
Sinea a IB
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 4.3.2002 07:47:21
> From: Miroslav Kotasek
>
> Kdyz dynamicky menim pri behu programu obsah
> query ze ktere si sinea nacita
> data nedokaze pockat az se tam ty data
> obevi a zahlasi chybu, ze dany
> dataset neobsahuje zadne data,
Takove zadne chybove hlaseni v Sinee neni,
prazdny dataset neni chybovy stav.
Jak presne to chybove hlaseni vypada?
> pri krokovani je vse v poradku, proste jde
> o par milisekund. Jak ji donutit aby pockala?
Nikdy jsem s IB nepracoval, ale myslim,
ze s timto Sinea nema nic spolecneho.
Sinea dela pouze:
sestHl.DataSource.DataSet.First;
while not sestHl.DataSource.DataSet.Eof do
begin
... := sestHl.DataSource.DataSet.Fields[].As...;
sestHl.DataSource.DataSet.Next;
end;
Budto v datasetu data jsou nebo ne.
Vaclav Krmela
hint trayicon delka textu
[*] Ing. Pavel Spsiar <pajastudio(zv)wo(tec)cz> - 4.3.2002 08:05:35
Mam aplikaci zobrazenou jen v trayicon a k tomu pouzivam
komponentu TRxTrayIcon z RX Library 2.60 a je to v D3.02.
TRxTrayIcon.Hint se mi zobrazuje pouze o delce jen 63 znaku,
znaky na dalsi pozici se nezobrazi. Nevite prosim co s tim?
Nepomuze ani rozdeleni do vice radku pomoci Chr(13). Dale
neni mozne na zobrazeni hintu u TRxTrayIcon navazat jinou
funkci pomoci Application.OnHint:=....... .hint trayicon delka textu
[*] Jon� Mari�n <Jonas(zv)komercpoj(tec)cz> - 4.3.2002 08:15:19
> Mam aplikaci zobrazenou jen v trayicon a k tomu pouzivam
> komponentu TRxTrayIcon z RX Library 2.60 a je to v D3.02.
> TRxTrayIcon.Hint se mi zobrazuje pouze o delce jen 63 znaku,
> znaky na dalsi pozici se nezobrazi. Nevite prosim co s tim?
> Nepomuze ani rozdeleni do vice radku pomoci Chr(13).
V MSDN je v NOTIFYICONDATA szTip deklarovan jako char[64]
proto se ti povede zobrazit jen 63 znaku, 64. je #0.
> Dale
> neni mozne na zobrazeni hintu u TRxTrayIcon navazat jinou
> funkci pomoci Application.OnHint:=....... .
TRxTrayIcon nepouzivam, ale v Application.OnHint mam
nimData.szHint:=PChar('abc');
Shell_NotifyIcon(NIM_MODIFY, nimData);
Marian Jonas
Schovani vlastniho Hintu (odchyceni CM_DEACTIVATE)
[*] Jan Krizek <krizek(zv)vitasw(tec)cz> - 4.3.2002 08:38:13
Ahoj,
vytvoril jsem si komponentu, ktera mimo jine zobrazuje hint. Delam to
tak, ze si vytvarim vlastni THintWindow, ktery zobrazim.
Schovavam jej na zaklade pohybu mysi (tedy ne po case). Mam vsak problem
jak jej schovavat, pokud se uzivatel prepne bez pouziti mysi do jine
aplikace, protoze pak muze odjet uplne mimo komponentu a ja se to
nedovim (a navic THintWindow je videt i nad oknem cizi aplikace).
Potrebuji tedy dostat zpravu CM_DEACTIVATE, ale jaka je nejlepsi cesta
pro udelani tohoto v komponente? Application.OnMessage neprichazi v
uvahu, tak jsem udelal nahrazeni procedury okna TApplication pomoci
NewWndProc := MakeObjectInstance(NewWndMethod);
OldWndProc := pointer( SetWindowLong( Application.Handle,
gwl_WndProc, longint(NewWndProc) ) );
v konstruktoru a v destruktoru naopak puvodni proceduru vracim.
Ale to asi bude zlobit pokud poradi uvolnovani vice instanci teto
komponenty bude v jinem poradi nez obracenem proti jejich vytvareni -
jak to tedy delat?
Honza +Jednozna�n� ur�en� po��ta�e
[*] PeJaSoft <pejasoft(zv)volny(tec)cz> - 4.3.2002 08:54:41
> > Proc zvracenost?
> Takoveto ochrany znamenaji vzdy pro zakaznika vyssi naklady. Kdyz jsem
> jeste byl nucen preinstalovavat zakaznikum software na upgradnute PC
> vzdycky me vytacely programy, ktere (ackoliv proto nebyl zadny
> technicky duvod) nebyly schopne behu na novem PC. Zjistovani kdo
> vyrobil ten program, jak ho kontaktoval, sehnat u nich nekoho kdo
> poradi atd zabralo hodne casu -> zakaznik platil vic.
Pravda, zakaznik kvuli registraci zaplati za minutu telefonovani, nebo 2
minuty pripojeni na internet.
Mimochodem, kdyz si do toho PC koupis treba novou gr.kartu a novou pamet,
tak se nic nedeje. Musi se zmenit vic komponent, aby se program musel znovu
zaregistrovat.
Zakaznici jsou v 99,9% firmy, kterym nedela problem zvednout telefon a
zaregistrovat se. Pokud bychom delali program pro soukrome osoby, zvolili
bychom asi jinou cestu.> >Pouziva to tak i Microsoft a spousta dalsich firem.
> no tak to je teda bezva obhajoba. Az bude Bill skakat po hlave
> tak taky budes?
MS to zacal pouzivat nedavno (myslim, ze pred rokem). My to pouzivame uz 7
let. Takze to v MS opsali od nas. :-))> >Nase
> > firma ma pres 3 000 zakazniku a ani jeden si nestezoval.
> :-)
Upresnim: zadny si nestezoval nam. :-)
S pozdravem
Petr Jarkovsky
pejasoft(zv)post(tec)cz
Sinea a IB
[*] Miro Kotasek <miro.delphi(zv)seznam(tec)cz> - 04.3.2002 08:56:48
Ahoj
Ja zapomel dodat, ze pouzivam na propojeni D4std a zeos lib, jejich
query nema metodu FetchAll
Ale dekuji
MK
Dne 4.�b�ezen�2002, <delphi-l(zv)clexpert(tec)cz> napsal:
> ahoj,
>
> no, nevim, jestli to ma vyznam, ale
> ja osobne bych volani sestavy vlozil
> pred finally. no a co se tyce tech
> dat, co donutit IB, aby se nacetli
> hnedle vsecky data?
>
> > try
> > DatovyModul.QueryPrac.Sql.Clear;
> > DatovyModul.QueryPrac.Sql.Add
> > ('select neco from neco where podminka');
> > DatovyModul.QueryPrac.Open;
> ** DatovyModul.QueryPrac.FetchAll;
> ** sestHl.DataSource:=DatovyModul.DSPrac;
> ** sestHl.Preview;
> > finally
> > DatovyModul.QueryPrac.Close;
> > end;
>
>
> dekuji PeC(zv)
>
______________________________________________________________________
Seznam Prace - Hledate praci nebo menite zamestnani? http://prace.seznam(tec)cz
OT:Kniznica MP3
[*] dphi_forum(zv)proces.sk - 4.3.2002 08:57:51
Pekny den......
Prosim vas, neviete niekto, kde by sa dala najst kniznica(dll) s popisom,
na prehravanie MP3 a ekvalizer. Nasiel som iba kniznicu na prehravanie MP3,
ale potreboval by som aj ekvalizer.
Za kazdy tip dakujem.
Michal
JPEG a info o nem (was: JPEG)
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 4.3.2002 09:05:49
> A nejde to nejak bez nahravani obrazku do Image ?? A jeste jak zjistit
> jestli se opravdu jedna o JPEG
Na webu Intelu se da stahnout Intel JPEG Library, ta to umi - zvlada nacitat samostatne "zahlavi"
obrazku, samostatne data.
http://support.intel.com/support/performancetools/libraries/ijl/index.htm
Karel Rys
Sinea a IB
[*] Miro Kotasek <miro.delphi(zv)seznam(tec)cz> - 04.3.2002 09:06:43
Zdravim
Hlavni hlaska je Cannot perform this operaion on closed dataset, co
by odpovidalo.
Ale ja si o dva radky vyse ty data nacitam pres
YYY:=query.FieldByName('xxx').AsXXX;
Primo v kodu to skoci do Sinea4\sestavy.pas
function Tsestava.PreviewWhere(...)
Begin
If not (csDesign in ...)
if Assigned....
Result:=Prepare;
A tady prave v te funkci/procedure je ten zakopany pes.
MK
Dne 4.�b�ezen�2002, <delphi-l(zv)clexpert(tec)cz> napsal:
> > From: Miroslav Kotasek
> >
> > Kdyz dynamicky menim pri behu programu obsah
> > query ze ktere si sinea nacita
> > data nedokaze pockat az se tam ty data
> > obevi a zahlasi chybu, ze dany
> > dataset neobsahuje zadne data,
>
> Takove zadne chybove hlaseni v Sinee neni,
> prazdny dataset neni chybovy stav.
> Jak presne to chybove hlaseni vypada?
>
> > pri krokovani je vse v poradku, proste jde
> > o par milisekund. Jak ji donutit aby pockala?
>
> Nikdy jsem s IB nepracoval, ale myslim,
> ze s timto Sinea nema nic spolecneho.
> Sinea dela pouze:
>
> sestHl.DataSource.DataSet.First;
> while not sestHl.DataSource.DataSet.Eof do
> begin
> ... := sestHl.DataSource.DataSet.Fields[].As...;
> sestHl.DataSource.DataSet.Next;
> end;
>
> Budto v datasetu data jsou nebo ne.
>
> Vaclav Krmela
>
>
______________________________________________________________________
Hledani lidi a jejich e-mailu: http://www.lide(tec)cz
SN HDD
[*] Radek Tesa� <r.tesar(zv)atlas(tec)cz> - 4.3.2002 09:17:30
Ahojte vsichni Delphini.....
Nutne potrebuji pomoct..... !!!!
Mam dva problemy a dotazy....
1) Lze n�jak�m zp�sobem (jin�m ne� form�tov�n�m) zm�nit SN harddisku ??? (na
mnou po�adovan�)
2) V�te n�kdo jak�m zp�sobem si k SN vygenerovat aktiva�n� kl�� ???
(nap�. SN:12345678 a kl��: KLSAW-SFGGS-SGHTE-FSWRZ)
STRA�N� MOC D�KY ZA POMOC !!!!
Sinea a IB
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 4.3.2002 09:19:50
ahoj,
> jejich query nema metodu FetchAll
pak:
DatovyModul.QueryPrac.Last;
DatovyModul.QueryPrac.First;
protoze sinea si dela First sama,
staci jenom ten Last, tim donutis
natahnou vsecky data ze serveru.
dekuji PeC(zv)Znak EURO na W95..XP
[*] Lauko �tefan <laukosw(zv)naex.sk> - 4.3.2002 09:19:41
Dobry den,
nemam moznost otestovat tlac znaku eura na vsetkych OS Win32. Potrebujem univerzalne riesenie.
Tlacovy vystup najprv "nakreslim" (TextOut...) na TMetaFileCanvas. Na Win2000, WinME to funguje ako je to s W95/98 ?
D5.
Dakujem.
Lauko. Znak EURO na W95..XP
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 4.3.2002 09:31:55
Lauko �tefan dne 4 Mar 2002 v 9:19:
> Dobry den,
> nemam moznost otestovat tlac znaku eura na vsetkych OS Win32.
> Potrebujem univerzalne riesenie. Tlacovy vystup najprv "nakreslim"
> (TextOut...) na TMetaFileCanvas. Na Win2000, WinME to funguje ako je
> to s W95/98 ? D5. Dakujem. Lauko.
Do Windows 95 se da doinstalovat jeho podpora. Hledej ji na strankach Microsoftu (soubor tusim
w95euro.exe). Pokud nenajdes, mohu poslat - 2,3 MB.
Karel Rys
IB6/D5 - not null
[*] Sebesta Jan <delcomseb(zv)volny(tec)cz> - 4.3.2002 09:38:28
Zdravim vsechny, zacinam s IB6 pres D5E
v databazi (IB6) mam tabulku a v ni polozku 'id_cislo not null' a
na ni trigger + generator - doplneni pri insertu.
Pokud pridam zaznam pomoci kolsole pres SQL prikaz 'insert into'
probehne vse OK. Zaznam se prida a id_cislo se doplni jak ma.
Podud ale to same udelam napr. pomoci IBDatabase > IBTable.append
IBTable.post tak to na me samozrejme rve ze id_cislo 'must have a value'.
Paradte jak v toto udela spravne aby se zaznam ulozil a doplnilo se
'id_cislo'
vse v D5E a IB6. (jine komponenty, neco osetrit ..)
P.S: bodl by nejaky odkaz ci kratky priklad pro zakladni operace v D5 pro
IB6 datazazi
(append, find ...).
Dekuji Sebesta Jan
Preruseni creni z COM portu
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 4.3.2002 09:42:39
Ahoj,
potreboval jsem precist data ze zarizeni z COMu. Pouzil jsem komponent Marco
Cocca pro D4. Ale mam problem, pokud dojde k nacitani a ja to chci prerusit
tak se nic nedeje, cteni bezi dal. Nastaveno je pro com 1 rychost 9600, 8
bitu, bez parity, 1 stopbit, rizeni toku XON,XOFF. Pokud je rizeni toku
harwarove, tak preruseni je v poradku, ale kdyz je softwarove, tak cteni
bezi dal a dal. Asi se musi neco nastavit pri disconnect. Nesetkal jste se s
tim nekdo? Diky
Ka.Systemove barvy
[*] Ka.Kewasa <kewasa(zv)quick(tec)cz> - 4.3.2002 09:45:06
To by me docela zajimalo, jak to treba je nastaveno v menu...
Diky
Ka.
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Sent: Friday, March 01, 2002 2:17 PM
Subject: Re: Systemove barvy
> Tak, ze si nadefinujes vlastni barvy a ty pak priradis do vsech vlastnosti
> Color. U nekterych ovladacich prvku ovem nelze nastavit jinou nez
systemovou
> barvu.
> Petr Vones
IB6/D5 - not null
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 4.3.2002 09:49:08
1. Musis u Fieldu nastavit Required na False
2. Nepouzivej IBTable ale prinejhorsim IBDataSet
> Zdravim vsechny, zacinam s IB6 pres D5E
>
> v databazi (IB6) mam tabulku a v ni polozku 'id_cislo not null' a na
> ni trigger + generator - doplneni pri insertu. Pokud pridam zaznam
> pomoci kolsole pres SQL prikaz 'insert into' probehne vse OK. Zaznam
> se prida a id_cislo se doplni jak ma.
>
> Podud ale to same udelam napr. pomoci IBDatabase > IBTable.append
> IBTable.post tak to na me samozrejme rve ze id_cislo 'must have a
> value'.
>
> Paradte jak v toto udela spravne aby se zaznam ulozil a doplnilo se
> 'id_cislo' vse v D5E a IB6. (jine komponenty, neco osetrit ..)
>
> P.S: bodl by nejaky odkaz ci kratky priklad pro zakladni operace v D5
> pro IB6 datazazi
> (append, find ...).
>
> Dekuji Sebesta Jan
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Ikona souboru - Shellapi
[*] Martin �ajbik <cajbik(zv)sct.sk> - 4.3.2002 09:55:32
Napriklad takto:
procedure IkonaSuboru(Subor: String; bmp: TBitmap);
var
info: SHFILEINFO;
begin
SHGetFileInfo(PChar(Subor), 0, info, SizeOf(info), SHGFI_ICON);
DrawIconEx(bmp.Canvas.Handle, 0, 0, info.hIcon, 16, 16, 0, 0, DI_NORMAL);
end;
MarCaNT (marcant(zv)sct.sk)
Nevite nekdo jak se da dostat pres shellapi ze souboru spravna ikona
pridruzene aplikace?
Napr.: Kdyz potrebuju ziskat ikonu k souboru c:\bootlog.txt
Predem dekuji za odpovedi.
Ondrej Holub
Duplicate resource(s)
[*] Patrik Caslavsky <patrisfw(zv)centrum(tec)cz> - 04.3.2002 09:56:22
Mam problem s pridanim komponenty. Pri pridani komponenty mi to
hlasi "Duplicate resource(s)".
Chapu, ze asi nejaka komponenta s takovym nazvem je jiz pouzivana
v Delphi od nejakyho jinyho autora, ktery nahodou pouzil stejny
nazev. Zkousel jsem tu komponentu pridat do noveho balicku, ale
stale mi to nejde.
Existuje nejaky zpusob, jak pouzivat dve ruzne komponenty, u
kterych je pouzit stejny nazev?
--------------------
Nov� vyhled�va� pro �esk� internet www.WebFast(tec)cz - prost� najde ...Drag and drop jmena souboru z Pruzkumnika do TList
[*] Skokosek <skokosek(zv)seznam(tec)cz> - 4.3.2002 10:20:33
Ahoj,
poradi mi nekdo, jak pomoci Drag and Drop prenest nazev souboru z
Pruzkumnika
Windows do TListBox ? (Prosim o kousek kodu)
Dik moc za pomoc
Kokosek (D3 prof)
Sinea a IB
[*] Miro Kotasek <miro.delphi(zv)seznam(tec)cz> - 04.3.2002 10:40:41
Ani nahodou, mam vyselektovany jen ten jeden zaznam, ktery chci
tisknout, asi to tam skusim narvat pres parametry, ale uplne to same
mi to ddela u druhe sestavy, kde je tech zaznamu neurekom.
Nechapu cim to. Ona nerve ze nema dadta, ale ze query neni otereno.
pripominam ze pri krokovani je vse v poradku. dekuji MK
> ahoj,
>
> > jejich query nema metodu FetchAll
>
> pak:
> DatovyModul.QueryPrac.Last;
> DatovyModul.QueryPrac.First;
>
> protoze sinea si dela First sama,
> staci jenom ten Last, tim donutis
> natahnou vsecky data ze serveru.
>
> dekuji PeC(zv)
>
______________________________________________________________________
S Oskarem je nyni seznameni tak rychle a snadne jako odeslani jedne SMS-ky.
http://ad2.seznam(tec)cz/redir.cgi?instance=21010%26url=http://www.oskarmobil(tec)cz/cz/products/seznamka_index.html
seznam souboru a jejich vlastnosti
[*] Jakub Maurer <jakub.Maurer(zv)seznam(tec)cz> - 04.3.2002 10:42:18
Problem je ze ja nazev tech souboru neznam...Potrebuji napr. projit
cely disk a zapsat do souboru.txt nazev,velikost a datum kazdeho
souboru...Dekuji
Jakub
Maurer
______________________________________________________________________
Mapy Prahy, Brna a Cech najdete na http://www.mapy(tec)cz
Kalendar
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 04.3.2002 10:49:37
Ahoj,
chtel bych udelat takovy pripominac svatku, abych na ne vecene nezapom�nal.
Nechce se mi ovsem prepisovat vsechny datumy a k nim patricna jmena. Nemate
nekdo takovy seznam???
Diky
Jirka
______________________________________________________________________
"Znate indukcni plotynky? V poradne na Bilem Zbozi muzete diskutovat
zkusenosti s jinymi. http://poradna.bilezbozi(tec)cz"Drag and drop jmena souboru z Pruzkumnika do TList
[*] Marek Eichler <marek.eichler(zv)atlas(tec)cz> - 4.3.2002 10:53:28
Zdravim,
kousek kodu zrovna nemam po ruce, ale existuji komponenty, ktere to krazne
resi: http://www.melander.dk/delphi/dragdrop/
S pozdravem Marek Eichler
-----P�vodn� zpr�va-----
Od: Skokosek <skokosek(zv)seznam(tec)cz>
Komu: delphi-l(zv)clexpert(tec)cz <delphi-l(zv)clexpert(tec)cz>
Datum: 4. b�ezna 2002 10:23
P�edm�t: Drag and drop jmena souboru z Pruzkumnika do TListBox
>Ahoj,
>
>poradi mi nekdo, jak pomoci Drag and Drop prenest nazev souboru z
>Pruzkumnika
>Windows do TListBox ? (Prosim o kousek kodu)Drag and drop jmena souboru z Pruzkumnika do TList
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 4.3.2002 10:58:54
Hi,
tady je kod. Sice do TMema, ale upravit se to da....
http://www.peprsoft(tec)cz/default.asp?stpm=delphi/tipy.asp?id=110
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
.. -----Original Message-----
.. poradi mi nekdo, jak pomoci Drag and Drop prenest nazev souboru z
.. Pruzkumnika
.. Windows do TListBox ? (Prosim o kousek kodu)Export do excelu
[*] Vakonic Pavol <vakonic(zv)tyory.sk> - 4.3.2002 11:01:57
Ahoj,
je mozne nejakym sposobom exportovat data do ms excelu (z nejakej tabulky
IB) bez pouzitia F1 book z active X ?
Dik
Palo
W2k,D5Ent,IB5
OT: DOS ve Win2000 pomaly
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 4.3.2002 11:32:13
Prominte OT ale nevite proc jsou DOS programy
ve Win2000 tak strasne pomale? Kdyz ve Win98
chodi v pohode. Ve Win2000 se navic s kazdym dalsim (max 3)
spustenym DOS programem zpomali jejich beh jeste vyrazneji.
Da se s tim neco delat?
Robert Plz�k
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.330 / Virov� b�ze: 184 - datum vyd�n�: 28.2.2002
Unit Variants
[*] Jaroslav Bucek <bucek(zv)eskon(tec)cz> - 4.3.2002 11:38:23
Vazeni pratele,
mam D5prof a nektere zdrojaky, ktere potrebuji rozchodit pouzivaji unit
Variants, bohuzel ji ale nikde v pocitaci nemuzu najit. Take jsem zjistil,
ze v archivu konference ji nekdo pouzival. Predpokladam, ze bude mit neco
spolecneho s COM, ale bohuzel asi v D6. Poradite mi, k cemu je tato unit
dobra, popripade, kde bych ji mohl sehnat.
Diky Jarda
zobrazenie formulara do TPanel
[*] iturcan(zv)gamo.sk - 4.3.2002 11:39:46
Hi all,
napada niekoho rychle riesenie ako zobrazit moj formular Form2 na panel
TPanel ktory je umiestneny vo formulari Form1 ?
vdaka za inspiraciu.
Ivan
zjisteni lokalnich disku...
[*] Jakub Maurer <jakub.Maurer(zv)seznam(tec)cz> - 04.3.2002 11:55:18
nevite jak na to?
Dekuji
Jakub
Maurer
______________________________________________________________________
Jake bude pocasi? http://pocasi.seznam(tec)cz
seznam souboru a jejich vlastnosti
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.3.2002 11:56:42
A dival jsi se na priklad k FindFirst ?
Pokud do masky zadas *.*, projizdi vsechny soubory.
Pro prochazeni disku si budes muset napsat rekurzivni prohledavani.
Tzn. pokud narazis na adresar, spustis tu samou proceduru s cestou
vcetne nalezeneho adresare.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
4.3.2002 Jakub Maurer:
> Problem je ze ja nazev tech souboru neznam...Potrebuji napr. projit
> cely disk a zapsat do souboru.txt nazev,velikost a datum kazdeho
> souboru...Dekuji
mapovani disku
[*] Vakonic Pavol <vakonic(zv)tyory.sk> - 4.3.2002 11:59:18
...vo Windowse ?
Ak sa mapuje pod windows-om, treba zaskrtnut "Reconnect at logon" (Obnovit
po restarte)
Alebo urobit batch file s mapovanim a dat ho do Start Up-u.
Palo
----- Original Message -----
From: "Ladislav Fitz" <ladislav.fitz(zv)kodytek(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, March 04, 2002 11:59 AM
Subject: mapovani disku
> Nevite nekdo jak namapovat disk tak aby zustal i po restartu pocitace?
(tak
> aby se restartem ztratil umim)
>
>
mapovani disku
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 4.3.2002 11:59:07
Nevite nekdo jak namapovat disk tak aby zustal i po restartu pocitace? (tak
aby se restartem ztratil umim)OT: DOS ve Win2000 pomaly
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.3.2002 11:59:44
Ano, nastavenim Autoexec.NT a Config.NT v adresari \WinNT\System32
Autoexec.NT:
============
(zv)echo off
Path=c:\winNT\System32;...
Set ...
lh %SystemRoot%\system32\dosx
Config.NT:
==========
NTCmdPrompt
EMM=RAM
dos=high,umb
device=%systemroot%\system32\himem.sys
files=100
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
4.3.2002 Robert Plz�k:
> Prominte OT ale nevite proc jsou DOS programy
> ve Win2000 tak strasne pomale? Kdyz ve Win98
> chodi v pohode. Ve Win2000 se navic s kazdym dalsim (max 3)
> spustenym DOS programem zpomali jejich beh jeste vyrazneji.
> Da se s tim neco delat?Unit Variants
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.3.2002 12:01:49
Tato unita je az v D6 a obsahuje vlastni definici typu Variant.
Pokud ji odstranis z Uses, nemelo by se nic stat, pokud nejsou
vyuzivany nektere funkce, ktere jsou rozsireny diky teto unite.
--
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
4.3.2002 Jaroslav Bucek:
> mam D5prof a nektere zdrojaky, ktere potrebuji rozchodit pouzivaji unit
> Variants, bohuzel ji ale nikde v pocitaci nemuzu najit. Take jsem zjistil,
> ze v archivu konference ji nekdo pouzival. Predpokladam, ze bude mit neco
> spolecneho s COM, ale bohuzel asi v D6. Poradite mi, k cemu je tato unit
> dobra, popripade, kde bych ji mohl sehnat.zjisteni lokalnich disku...
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 4.3.2002 12:03:51
pres DiskSize, pokud disk neexistuje vraci se -1
mapovani disku
[*] Hol�k Martin <martin.holik(zv)vytahy(tec)com> - 4.3.2002 12:03:14
Pokud ja vim tak existuje prikaz subst (dosovsky). Jeho syntaxsi si uz
nepamatuji. Je potreba napsat do autoexecu.
Martin Hol�k
----- Original Message -----
From: Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, March 04, 2002 11:59 AM
Subject: mapovani disku
> Nevite nekdo jak namapovat disk tak aby zustal i po restartu pocitace?
(tak
> aby se restartem ztratil umim)
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.324 / Virov� b�ze: 181 - datum vyd�n�: 14.2.2002
mapovani disku
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 4.3.2002 12:12:59
> ...vo Windowse ?
>
> Ak sa mapuje pod windows-om, treba zaskrtnut "Reconnect at logon" (Obnovit
> po restarte)
> Alebo urobit batch file s mapovanim a dat ho do Start Up-u.
potrebuji to programove (v Delphi), jak se vytvori ten "batch file"?zobrazenie formulara do TPanel
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 4.3.2002 12:12:41
Ahoj
co tak Windows.SetParent
----- Original Message -----
From: <iturcan(zv)gamo.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, March 04, 2002 11:39 AM
Subject: zobrazenie formulara do TPanel
> Hi all,
>
>
> napada niekoho rychle riesenie ako zobrazit moj formular Form2 na panel
> TPanel ktory je umiestneny vo formulari Form1 ?
>
>
> vdaka za inspiraciu.
>
>
> Ivan
> Avi nebo Mpeg from BMP,Jpeg
[*] pavel.ales(zv)popron(tec)cz - 4.3.2002 12:19:50
Ober me:
----------
Nevim, jestli to potrebujes primo ve svem programu nebo pouze pro
jednorazovy prevod. Pokud 2. moznost, stahni si VirtualDub
(www.virtualdub.org), ten od v. 1.48 podporuje BMP jako vstup.
A ja jemu a ostatnim:
---------------------
Bohuzel ve svem programu!!!
Nevite nekdo jak prevedu BMP do AVI,Mpeg?
Moc by mi to pomohlo.
Ales Pavel
Technical Specialist
Popron Consulting - Your System Integrator
www.popronconsulting(tec)cz
Popron Building
Jeremiasova 947
Prague 5
155 00
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2. 2002
mapovani disku
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 4.3.2002 12:29:19
Ahoj, podivej se na fci WNetAddConnection2 a jeji parametr dwFlags -
CONNECT_UPDATE_PROFILE
Help k nemu rika:
If this bit flag is set, the operating system automatically attempts to
restore the connection when the user logs on.
Ales
> -----Original Message-----
> From: Ladislav Fitz [mailto:ladislav.fitz(zv)kodytek(tec)cz]
>
> Nevite nekdo jak namapovat disk tak aby zustal i po restartu
> pocitace? (tak
> aby se restartem ztratil umim)
>
> Unit Variants
[*] Jaroslav Sipek <jaroslav.sipek(zv)idea(tec)cz> - 4.3.2002 12:31:45
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Jaroslav Bucek
>
> mam D5prof a nektere zdrojaky, ktere potrebuji rozchodit
> pouzivaji unit
> Variants, bohuzel ji ale nikde v pocitaci nemuzu najit. Take
> jsem zjistil,
Ahoj,
tusim ze tato unita je az v D6.
S pozdravem
Ing. Jaroslav Sipek
IDEA spol. s r.o.
mailto:jaroslav.sipek(zv)idea(tec)cz
http://www.idea(tec)cz Unit Variants
[*] Martin �ajbik <cajbik(zv)sct.sk> - 4.3.2002 12:41:30
Pokial viem, unit Variants sluzi na pracu s typom Variant. To znamena, ze v
starsej verzii Delphi nie je nutny, na druhej strane, nie vsetko co sa za
jeho pouzitia napise v D6 pojde prelozit v starsej verzii, ale zakladna
praca s typom Variant by mala fungovat bez problemov.
MarCaNT (marcant(zv)sct.sk)> Vazeni pratele,
>
> mam D5prof a nektere zdrojaky, ktere potrebuji rozchodit pouzivaji unit
> Variants, bohuzel ji ale nikde v pocitaci nemuzu najit. Take jsem zjistil,
> ze v archivu konference ji nekdo pouzival. Predpokladam, ze bude mit neco
> spolecneho s COM, ale bohuzel asi v D6. Poradite mi, k cemu je tato unit
> dobra, popripade, kde bych ji mohl sehnat.
>
> Diky Jarda
>
>mapovani disku
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 4.3.2002 12:45:16
> Ahoj, podivej se na fci WNetAddConnection2 a jeji parametr dwFlags -
> CONNECT_UPDATE_PROFILE
diky to bylo ono
Unit Variants
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 4.3.2002 12:46:04
tato unita v D5 neni, je az v D6.
normalne ji vyhod a pokud to nekde spadne,
hledej v helpu kterou unit pridat :)
dekuji PeC(zv)zobrazenie formulara do TPanel
[*] iturcan(zv)gamo.sk - 4.3.2002 12:54:29
pouzil som manual docking.
dakujem
Ivan
"L. Filip"
<lfilip(zv)lekis(tec)cz To: <delphi-l(zv)clexpert(tec)cz>
> cc:
Sent by: Subject: Re: zobrazenie formulara do TPanel
delphi-l-owner(zv)c
lexpert(tec)cz
04.03.2002 12:12
Please respond
to delphi-l
Ahoj
co tak Windows.SetParent
----- Original Message -----
From: <iturcan(zv)gamo.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, March 04, 2002 11:39 AM
Subject: zobrazenie formulara do TPanel
> Hi all,
>
> napada niekoho rychle riesenie ako zobrazit moj formular Form2 na panel
> TPanel ktory je umiestneny vo formulari Form1 ?
>
> vdaka za inspiraciu.
>
> Ivan
>formulare a okna v DLL
[*] iturcan(zv)gamo.sk - 4.3.2002 13:00:13
Ahoj,
mam ideu ukladat si formulare do DLL kniznic. Zaujima ma:
1. ako urobit export objektu z DLL kniznice . napr TMyForm mam v DLL a
chcem ho vytvorit z EXE programu
- samozrejme hladam ine riesenie ako doplnenie funkcie na vytvorenie
okna a tu fn. exportovat
2. je mozne ziskat zoznam objektov ktore su v DLL a na zaklade tohoto
zoznamu okna vytvarat dynamicky ?
vdaka za napady
Ivan
DOS ve Win2000 pomaly
[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 4.3.2002 13:04:01
Jde o to, ze W2000 se netrapi se zjistovanim, zda tva DOS aplikace v dane
chvili skutecne neco dela nebo ne a prideluje ji porad plny cas procesoru.
Mohl by ti pomoci shareware Tame. U nekterych aplikaci je vsak treba si
pohrat s parametry.
http://www.mindspring.com/~dgthomas/tame.htm
Tomas
zjisteni lokalnich disku...
[*] Marek ��ek - 4.3.2002 13:12:14
nebo
GetLogicalDrives();
nebo
GetLogicalDriveStrings( sizeof(buf), buf );
Marek
----- Original Message -----
From: "Ladislav Fitz" <ladislav.fitz(zv)kodytek(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, March 04, 2002 12:03 PM
Subject: Re: zjisteni lokalnich disku...> pres DiskSize, pokud disk neexistuje vraci se -1
SN HDD
[*] Marek ��ek - 4.3.2002 13:16:59
SN maji harddisky v sobe natvrdo zasroubovany,
umim ho vycist v DOSu tak, ze se poslou nejaky
data na diskovy port a nasledne se z nej vycte
odpoved, jak to ale udelat ve woknech corty
znajut, asi by bylo potreba nastudovat primo
rozhrani driveru diskovych sluzeb.
cislo po formatovani se zjistit pomoci
GetVolumeInformation, nastavit pomoci
dosovyho preruseni
Int 21h Function 440Dh
dalsi moznost je modifikovat primo
boot-sector na pozici 03H az 0AH
jestli nekdo znate zpusob jak ve
woknech 95/98 zjistit SN, tak
to prozradte ;-)
Marek
----- Original Message -----
> Nutne potrebuji pomoct..... !!!!
> Mam dva problemy a dotazy....
> 1) Lze n�jak�m zp�sobem (jin�m ne� form�tov�n�m) zm�nit SN harddisku ???
(na
> mnou po�adovan�)
>
> 2) V�te n�kdo jak�m zp�sobem si k SN vygenerovat aktiva�n� kl�� ???
> (nap�. SN:12345678 a kl��: KLSAW-SFGGS-SGHTE-FSWRZ)
zobrazenie formulara do TPanel
[*] Alexandr Stefek <alex(zv)scova.vabo(tec)cz> - 4.3.2002 13:21:38
TForm2.CreateParented(Form1.Panel1.Handle);
Alexandr STEFEK
>
> napada niekoho rychle riesenie ako zobrazit moj formular Form2 na panel
> TPanel ktory je umiestneny vo formulari Form1 ?
>
>
> vdaka za inspiraciu.
>
>
> Ivan
> Sinea a IB
[*] Miroslav Kotasek <miro.delphi(zv)seznam(tec)cz> - 4.3.2002 13:27:20
Ahoj
Problem siney jsem vyresil, sice sverazne, ale prece
B�hem ofline p��pravy sestavy a lad�n� (krokov�n�) je v�e v po��dku, data do
sestavy se na�tou, ale p�i spu�t�n� potom nen� dataset schopen vr�tit
spr�vnou hodnotu bookmarku a tak se hl�s�, �e tuto operaci nen� mo�no
prov�d�t na closed dataset.
Jde vlastne ve vetsine pripadu o zbytecne radky, ktere si pamatuji umisteni
kurzoru v datasetu a po ukonceni sestavy zase vrac� kurzor zpet.
Odstra�uje to zakomentov�n� ��dk� 965,966 sestavy.pas
procedura Tsestava.Prepare
��dky s gotoBookmark
a freeBookmark
Snad to prospeje i jinym
Mirek Kotasek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2.2002
Konverze struktury tabulky do recordu
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 4.3.2002 13:50:38
Ahoj,
nevite nekdo o utilite, ktera by umela prevest SQL script pro vytvoreni
tabulky na record ?
Tedy neco jako toto:
CREATE TABLE [dbo].[tblSysParams] (
[id_pobocky] [int] NOT NULL ,
[param_name] [varchar] (50) NOT NULL ,
[param_value] [varchar] (255) NOT NULL )
na
tblSysParams = record
id_pobocky : integer;
param_name : string[50];
param_value : string[255];
end;
Jde to samozrejme rucne, ale pri vetsim poctu tabulek a sloupcu je to docela
opruz.
Diky
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Konverze struktury tabulky do recordu
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 4.3.2002 14:13:28
> nevite nekdo o utilite, ktera by umela prevest SQL script pro
> vytvoreni tabulky na record ? Tedy neco jako toto:
Ahoj,
sice Te zklamu, protoze o takove utilite nevim, ale pokud si ji budes psat sam (a pak se o ni
podelis s ucastniky konference :-)) ), bylo by mozna jednodussi neprochazet skript, ale misto toho
pouzit tIBTable.Fields nebo .FieldsDef - nemam tu ted Delphi. Pokud to samozrejme lze a ta
databaze existuje.
Karel Rys
Duplicate resource(s)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.3.2002 15:04:09
From: "Patrik Caslavsky" <patrisfw(zv)centrum(tec)cz>
> Existuje nejaky zpusob, jak pouzivat dve ruzne komponenty, u
> kterych je pouzit stejny nazev?
Ne, musis to opravit.
Petr Vones
Ikona souboru - Shellapi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.3.2002 15:07:36
From: "Martin �ajbik" <cajbik(zv)sct.sk>
> procedure IkonaSuboru(Subor: String; bmp: TBitmap);
> var
> info: SHFILEINFO;
> begin
> SHGetFileInfo(PChar(Subor), 0, info, SizeOf(info), SHGFI_ICON);
> DrawIconEx(bmp.Canvas.Handle, 0, 0, info.hIcon, 16, 16, 0, 0, DI_NORMAL);
> end;
Mala poznamka. Funkce maji obvykle navratovou hodnotu, ktera slouzi k tomu aby
se zjistilo ze nedoslo k nejake chybe. To plati i o SHGetFileInfo. Opomijenim
testovani chybovych stavu si lze zadelat na ruzne nepredvidatelne problemy.
Petr Vones
Konverze struktury tabulky do recordu
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 4.3.2002 15:11:25
Mam to hotove do CaseStudia, muzes si udelat reverse engeneering a pak vygenerovat
tyto structury.
V pripade zajmu dej vedet.
Slavek
> > nevite nekdo o utilite, ktera by umela prevest SQL script pro
> > vytvoreni tabulky na record ? Tedy neco jako toto:
>
> Ahoj,
>
> sice Te zklamu, protoze o takove utilite nevim, ale pokud si ji budes psat sam (a pak se o ni
> podelis s ucastniky konference :-)) ), bylo by mozna jednodussi neprochazet skript, ale misto toho
> pouzit tIBTable.Fields nebo .FieldsDef - nemam tu ted Delphi. Pokud to samozrejme lze a ta
> databaze existuje.
>
> Karel Rys
>
> Unit Variants
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.3.2002 15:11:56
From: "Jaroslav Bucek" <bucek(zv)eskon(tec)cz>
> mam D5prof a nektere zdrojaky, ktere potrebuji rozchodit pouzivaji unit
> Variants, bohuzel ji ale nikde v pocitaci nemuzu najit. Take jsem zjistil,
Unit Variants pochazi z Delphi 6 kde jsou takto nativne implementovany operace
s typem Variant, protoze RTL je spolecna s Kylixem a na Linuxu neni pro
Variant podpora ze strany OS.
Petr Vones
mapovani disku
[*] Robert Suska <delphi(zv)korak.sk> - 4.3.2002 15:14:14
Ahoj asi takto:
var NetRes: TNetResource;
dw: DWORD;
begin
ZeroMemory((zv)NetRes, sizeof(NetRes));
NetRes.dwType := RESOURCETYPE_DISK;
NetRes.lpLocalName := 'Z:';
NetRes.lpRemoteName:= '\\Administrator\DISK_C';
NetRes.lpProvider := nil;
dw:= WNetAddConnection2(NetRes, 'heslo', 'uzivatel', 0);
if (dw <> NO_ERROR) then
begin
RichEdit.Lines.Add('Chyba pri volani funkcie WNetAddConnetction2() c.' +
IntToStr(dw));
exit;
end
else
RichEdit.Lines.Add('Sietovy disk sa nepodarilo pripojit na danu poziciu.');
end;
S pozdravom Robo
P.S. Dufam ze je to dobre ... :)
----- Original Message -----
From: "Ales Vasicek" <vasicek(zv)ecommerce(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, March 04, 2002 12:29 PM
Subject: RE: mapovani disku
Ahoj, podivej se na fci WNetAddConnection2 a jeji parametr dwFlags -
CONNECT_UPDATE_PROFILE
Help k nemu rika:
If this bit flag is set, the operating system automatically attempts to
restore the connection when the user logs on.
Ales
> -----Original Message-----
> From: Ladislav Fitz [mailto:ladislav.fitz(zv)kodytek(tec)cz]
>
> Nevite nekdo jak namapovat disk tak aby zustal i po restartu
> pocitace? (tak
> aby se restartem ztratil umim)
>
>Rozsireni Outlooku Express
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.3.2002 15:15:02
From: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
> vzhledem k tomu, ze pres SimpleMAPI nelze realizovat to co nutne potrebuji,
> tak bych potreboval vedet jak udelat rozsireni Outlooku Express o odchyceni
> nejakych udalosti (konkretne - pred smazanim) a take pridat do toolbaru
> nejake tlacitko a odchytit jeho stisk. Nevite nekdo jak na to (urcite to
> jde, protoze napr. AVG toto rozsireni ma a musi i odchycovat nejake ty
Pokud se podivas na importovane funkce knihovny AVGOE5.DLL u AVG tak je tam i
SetWindowsHookEx coz nevesti nic pekneho ;-)
Petr Vones
Virtualni disk
[*] robiin <Roman.Kubin(zv)seznam(tec)cz> - 04.3.2002 15:19:40
Zdravim,
nevite nekdo jakym zpusobem mohu vytvorit virtualni disk (a v nem
soubory), jako to dela napr. PGP, ZipMagic, X-Drive.
Lze to vytvorit v D5, nebo je protreba napsat nejaky ovladac v
C++?
S pozdravem
Roman Kubin, programator
______________________________________________________________________
Mapy Prahy, Brna a Cech najdete na http://www.mapy(tec)cz
Jednozna�n� ur�en� po��ta�e
[*] Erik Salaj <winsoft(zv)stonline.sk> - 4.3.2002 16:11:32
> Takoveto ochrany znamenaji vzdy pro zakaznika vyssi naklady. Kdyz jsem
> jeste byl nucen preinstalovavat zakaznikum software na upgradnute PC
> vzdycky me vytacely programy, ktere (ackoliv proto nebyl zadny
> technicky duvod) nebyly schopne behu na novem PC. Zjistovani kdo
> vyrobil ten program, jak ho kontaktoval, sehnat u nich nekoho kdo
> poradi atd zabralo hodne casu -> zakaznik platil vic.
ano, je to tak. Kazda ochrana znamena nejake neprijemne obmedzenia
a naklady navyse. Je ale logicke z hladiska vyrobcov softwaru, ze maju
snahy obmedzovat nelegalne sirenie ich programov. Kedze idealny system,
ktory by tento problem vyriesil zrejme neexistuje, tak zostava na
zakaznikovi by podporoval (= kupoval) software s takym systemom
ochrany, ktory mu vyhovuje a nekupoval s takym, ktory mu nevyhovuje.
Erik
Virtualni disk
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 04.3.2002 16:17:48
Je treba ovladac v C++. Zdrojaky mam a zaslu na pozadani. Je to ovladac
disku pro WinNT a dela disk pomoci souboru. Lze tim primountit i image
diskety :)
>Zdravim,
>nevite nekdo jakym zpusobem mohu vytvorit virtualni disk (a v nem
>soubory), jako to dela napr. PGP, ZipMagic, X-Drive.
>Lze to vytvorit v D5, nebo je protreba napsat nejaky ovladac v
>C++?
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Zvyraznit aktivni zaznam tabulky ...
[*] Ing. Ji�� SOKOL <JS-delphi(zv)seznam(tec)cz> - 04.3.2002 16:51:26
Ahojki!
Chtel bych zvyraznit aktivni zaznam v DBGridu. Zkousel jsem to pres Colums,
ale to vedlo k tomu, ze to delalo cely sloupec.
Jde zmenit barvu jen urciteho pole? Nebo celeho zaznamu?
Pouzivam komponenty TTable a TQuery
Diky
Jirka
______________________________________________________________________
Nejenom anglicko-cesky slovnik: http://slovnik.seznam(tec)cz
Ikona souboru - Shellapi
[*] Martin �ajbik <cajbik(zv)sct.sk> - 4.3.2002 17:08:21
Sorry, ale to co som napisal nie je z realne beziaceho programu, ale iba
narychlo zbuchany priklad.
Inak tvoju pripomienku beriem.
MarCaNT (marcant(zv)sct.sk)> From: "Martin �ajbik" <cajbik(zv)sct.sk>
> > procedure IkonaSuboru(Subor: String; bmp: TBitmap);
> > var
> > info: SHFILEINFO;
> > begin
> > SHGetFileInfo(PChar(Subor), 0, info, SizeOf(info), SHGFI_ICON);
> > DrawIconEx(bmp.Canvas.Handle, 0, 0, info.hIcon, 16, 16, 0, 0,
DI_NORMAL);
> > end;
>
> Mala poznamka. Funkce maji obvykle navratovou hodnotu, ktera slouzi k tomu
aby
> se zjistilo ze nedoslo k nejake chybe. To plati i o SHGetFileInfo.
Opomijenim
> testovani chybovych stavu si lze zadelat na ruzne nepredvidatelne
problemy.
>
> Petr Vones
>
>Zvyraznit aktivni zaznam tabulky ...
[*] Ben, Martin (CAP, GCF) <Martin.Ben(zv)gecapital(tec)com> - 4.3.2002 17:36:01
V DBGrid1.Options polozka AlwaysShowSelection (pripadne RowSelect)
nebo neco podobneho
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if gdSelected in State then
begin
TDBGrid(Sender).Canvas.Brush.Color := clGreen;
TDBGrid(Sender).Canvas.Font.Color := clRed;
end;
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
Martin Ben
> -----Original Message-----
> From: Ing. Ji�� SOKOL [mailto:JS-delphi(zv)seznam(tec)cz]
>
> Ahojki!
>
> Chtel bych zvyraznit aktivni zaznam v DBGridu. Zkousel jsem
> to pres Colums,
> ale to vedlo k tomu, ze to delalo cely sloupec.
>
> Jde zmenit barvu jen urciteho pole? Nebo celeho zaznamu?
>
> Pouzivam komponenty TTable a TQuery
Chat pomocou WinSock - Chyba ???
[*] Robert Suska <delphi(zv)korak.sk> - 4.3.2002 18:20:06
Ahojte prosim o pomoc skuste mi najst v tomto chybu. Proste ked to spustim
tak vsetko prebehne az na to ze sa ta message neposle :). Nevypise to ziadnu
chybu len to proste nejde. Dakujem za ochotu. Je to chatovaci program. A
take odpovede ako pouzi komponentu teraz nechcem, potrebujem rozbehat toto,
prosim vdaka.
unit f_chat;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, WinSock, ComCtrls;
type
TForm1 = class(TForm)
Bevel3: TBevel;
ETEXT: TEdit;
Button5: TButton;
EIP: TEdit;
RichEdit1: TRichEdit;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
protected
procedure WndProc(var message: TMessage); override;
procedure ListenProc(var Message: TMessage);
procedure PrepareListen;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
WSAData: TWSAData;
//globalne data pre AsyncSelect
gListenSock: TSocket;
gReceiveSock: TSocket;
const
WMListenMessage = WM_USER + 1;
// Chat client server soft
procedure TForm1.FormCreate(Sender: TObject);
var iState: Integer;
begin
// LoadWinSock;
iState:= WSAStartup(MAKEWORD(1,1), WSAData);
if iState <> 0 then
begin
RichEdit1.Lines.Add('Chyba pri inicializacii WinSock');
Application.Terminate;
end;
PrepareListen;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
closesocket(gListenSock);
WSACleanup;
// UnLoadWinSock;
end;
procedure TForm1.WndProc(var Message: TMessage);
begin
inherited;
if Message.Msg = WMListenMessage + 1 then ListenProc(message);
end;
procedure TForm1.ListenProc(var message: TMessage);
var
ReceiveAddr : TSockAddr;
iSize : Integer;
buffer : array[0..255] of char;
begin
case WSAGetSelectEvent(Message.LParam) of
FD_ACCEPT : begin {ziskaj socket a adresu odkial prisiel}
iSize:= sizeof(ReceiveAddr);
gReceiveSock:= accept(gListenSock, (zv)ReceiveAddr, (zv)iSize);
{Vypis adresy alebo chybove hlasky}
if gReceiveSock = INVALID_SOCKET then
begin
RichEdit1.Lines.Add('Dojdeny socket sa nepodarilo
prijat.');
exit;
end
else
RichEdit1.Lines.Add('Prijem textu z adresy: ' +
inet_ntoa(ReceiveAddr.sin_addr) +
' datum a cas: ' +
DateTimeToStr(now));
end;
FD_READ : begin {Nacitaj zo socketu ziskaneho pomocou ACCEPT text}
if recv(gReceiveSock, buffer, 256, 0) = INVALID_SOCKET
then
RichEdit1.Lines.Add('Chyba pri prijmu dojdeneho textu -
'+
'recv()')
else
RichEdit1.Lines.Add(' ' + buffer);
end;
end;
end;
procedure TForm1.PrepareListen;
var SockAddrIn : TSockAddrIn;
buf : array[0..255] of char;
i : Integer;
begin
gListenSock:= socket(AF_INET, SOCK_STREAM, 0);
{nacuva na vsetkuch adresach na porte}
SockAddrIn.sin_family:= AF_INET;
SockAddrIn.sin_addr.S_addr:= INADDR_ANY;
SockAddrIn.sin_port:= htons(5123);
{spojenie socketu k rozsahu adries}
i:= bind(gListenSock, SockAddrIn, sizeof(SockAddrIn));
if i <> 0 then
begin
RichEdit1.Lines.Add('Chyba pri napojeni nacuvacieho '+
'socketu k rozsahu
adries');
Application.Terminate;
end;
{cakaj na prijmutie dat}
i:= WSAAsyncSelect(gListenSock, self.Handle, WMLISTENMESSAGE,
FD_ACCEPT or
FD_READ);
if i = SOCKET_ERROR then
begin
RichEdit1.Lines.Add('Nepodarilo sa pripravit asynchronne nacuvanie
socketu');
Application.Terminate;
end;
listen(gListenSock, 5);
end;
procedure TForm1.Button5Click(Sender: TObject);
var sock: TSocket;
SockAddrIn: TSockAddrIn;
buffer: array[0..255] of char;
i: Integer;
begin
if ((Trim(EIP.Text) = '') or (Trim(ETEXT.Text) = '')) then
begin
RichEdit1.Lines.Add('Potrebne informacie neboli vyplnene');
exit;
end;
try
sock:= socket(AF_INET, SOCK_STREAM, 0);
{priprav adresu pre odoslanie}
SockAddrIn.sin_family:= AF_INET;
SockAddrIn.sin_addr.S_addr:= inet_addr(PChar(EIP.Text));
SockAddrIn.sin_port:= htons(5123);
if connect(sock, SockAddrIn, sizeof(SockAddrIn)) = SOCKET_ERROR then
begin
RichEdit1.Lines.Add('Chyba pri pokuse o spojenie so vzdialenou stanicou:
' +
EIP.Text);
CloseSocket(sock);
exit;
end;
strcopy(buffer, PChar(EText.Text));
i:= send(sock, buffer, 255, 0);
if i <= 0 then
begin
RichEdit1.Lines.Add('Chyba pri odosielani');
CloseSocket(sock);
exit;
end;
finally
CloseSocket(sock);
end;
end;
end.mapovani disku
[*] Robert Suska <delphi(zv)korak.sk> - 4.3.2002 18:31:09
Ahojte je tam mala chyba :) tu je oprava: v retazci:
RichEdit.Lines.Add('Sietovy disk sa nepodarilo pripojit na danu poziciu.');
je chyba ma tam byt toto:
RichEdit.Lines.Add('Sietovy disk sa podarilo pripojit na danu poziciu.');
Par don :)
Robo
> Ahoj asi takto:
>
> var NetRes: TNetResource;
> dw: DWORD;
>
> begin
> ZeroMemory((zv)NetRes, sizeof(NetRes));
> NetRes.dwType := RESOURCETYPE_DISK;
> NetRes.lpLocalName := 'Z:';
> NetRes.lpRemoteName:= '\\Administrator\DISK_C';
> NetRes.lpProvider := nil;
>
> dw:= WNetAddConnection2(NetRes, 'heslo', 'uzivatel', 0);
>
> if (dw <> NO_ERROR) then
> begin
> RichEdit.Lines.Add('Chyba pri volani funkcie WNetAddConnetction2() c.' +
> IntToStr(dw));
> exit;
> end
> else
> RichEdit.Lines.Add('Sietovy disk sa nepodarilo pripojit na danu
poziciu.');
> end;
>
> S pozdravom Robo
>
> P.S. Dufam ze je to dobre ... :)
>
>
> ----- Original Message -----
> From: "Ales Vasicek" <vasicek(zv)ecommerce(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Monday, March 04, 2002 12:29 PM
> Subject: RE: mapovani disku
>
>
> Ahoj, podivej se na fci WNetAddConnection2 a jeji parametr dwFlags -
> CONNECT_UPDATE_PROFILE
> Help k nemu rika:
> If this bit flag is set, the operating system automatically attempts to
> restore the connection when the user logs on.
>
> Ales
>
> > -----Original Message-----
> > From: Ladislav Fitz [mailto:ladislav.fitz(zv)kodytek(tec)cz]
> >
> > Nevite nekdo jak namapovat disk tak aby zustal i po restartu
> > pocitace? (tak
> > aby se restartem ztratil umim)
> >
> >DBGrid - zmena vyska bunky
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 4.3.2002 18:44:23
> Zdravim,
> uz si nevim rady. Nevim jak po zvetseni pisma v nejakem slouci zvetsim
taky
> vysku bunky.
> Diky Pavel
Vysku jedne bunky? A co s tema ostatnima?
Vysku radku nastavuju takto:
type THackGrid=class(TCustomGrid);
THackGrid(GridJiz).DefaultRowHeight:=32;
THackGrid(GridJiz).RowHeights[0]:=17;
Popr. nastavit velikost pisma primo v TDBGrid.Font a pro jednotlive sloupce
nastavit ruzne pismo.
Roman
- - - - - - - - - - - - - - - - - - - - -
http://kouzelne.misto(tec)cz/
BDE - pocet spustenych BDEAdminov
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 4.3.2002 18:53:42
Ahoj,
D5, BDE 5.11
Narazili sme na tekyto problem. Bez rozdielu DB (MS SQL, ORACLE) sa nam na
roznych pocitacoch nedarilo prekrocit isty pocet konekcii pomocou BDE.
Program pise ze ma nedostatok pamati na uskutocnenie operacie.
Potom sme nahodou zistili ze len samotne spustenie viacerych instancii
BDEAdmin.EXE nie je nekonecne a presne zodpoveda poctu max. konekcii ktore
sme dosiahli.
Mam 2 pocitace - na jednom pustim BDEAdmin 7krat, na druhom 30 krat. Nikdy
som nic take nenastavoval a ani som nikde nastavenie max. poctu konekcii
nenasiel.
Inak BDEAdmin hlasi chybu ze nemoze najst konfiguracny subor
(DBIERR_NOCONFIGFILE). Takze 7krat moze a 8mikrat nie ?
Stretli ste sa s tym ? Viete to nastavit - co to ovplyvnuje ?
Srdecna vdaka.
JG
Algol 60 to PAS
[*] rony <rony(zv)psg.sk> - 4.3.2002 21:05:41
Ahojte.
Neviete nahodou o nejakom konvertore z Algolu 60 do pascalu?
Dik.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.325 / Virov� b�ze: 182 - datum vyd�n�: 19.2.2002
JCLmapi
[*] Mirek <dmiroslav(zv)seznam(tec)cz> - 4.3.2002 21:59:23
Ahoj,
Potreboval bych nacist zpravy v Outlooku a pokud se objevi zprava se
"spravnym" predmetem, potrebuji ulozit prilohu. Zkousel jsem to pomoci
JCLeamil, ale asi neco delam blbe. Muzete me nekdo nakopnout?
Predem dekuji za odpovedi a pripadne ukazky prosim na
dmiroslav(zv)seznam(tec)cz
Diky Mirek Drancak
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.325 / Virov� b�ze: 182 - datum vyd�n�: 19.2.2002
Dodatek k Delphi 6 UPD#2
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.3.2002 22:22:56
From: "Karel Rys" <delphi(zv)zas-me(tec)cz>
> problem s tim, ze uzivatel muze klavesovymi zkratkami ovladat MDI okna v
> dobe, kdy je zobrazen modalni dialog, mi pripada celkem zavazny... Poradite
> prosim nekdo, jak jej odstranit v aplikaci, ktera pouziva balicky? (D6 Pro,
> SP2; balicku se vzdat nechci).
Melo by to jit takto:
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=17605
Petr Vones
OT: Word7, Corel6, informace
[*] Bayer <jaroslav.bayer(zv)quick(tec)cz> - 4.3.2002 23:26:17
OT:
Ahoj!
Potreboval bych pomoct, budu maturovat z informatiky a mezi "normalnima"
otazkama je take Corel 6, MS Word 7, informace a jejich prenos. Sice s tema
programama pracovat "jakstaks" umim, ale co tam povidat, opravdu nevim a s
tou informaci si fakt nevim rady. Kdyby nekdo z vas mel nekde od syna,
dcery, nebo od sebe neco schovaneho, poslete mi to na moji soukromou adresu
"jaroslav.bayer(zv)quick(tec)cz"
(klidne i jen radu)
Dekuje
Jarda Bayer
najit a ulozit registry
[*] Jakub Maurer <jakub.Maurer(zv)seznam(tec)cz> - 05.3.2002 00:00:22
Mam dan nazev klice a mam vypsat vsechny nazvy a hodnoty registru v
nem...jak na to?
Dekuji Jakub
Maurer
______________________________________________________________________
Volny prodej zbyvajicich vstupenek na koncerty Prazskeho jara od 18. brezna
na obvyklych mistech, vice informaci na http://www.festival(tec)cz.Vykreslovani TGraphicControl komponent v klientske
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.3.2002 01:36:15
Ahpj,
pred casem tu tusim byl podobny dotaz. Jedno mozne reseni najdete tady. Urceno
pro Delphi 5.01 a 6.02:
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=17609
Petr Vones
Zmena published vlastnosti na urovni TControl
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.3.2002 03:24:34
From: "Tom� Kr�sl" <tomkrysl(zv)post(tec)cz>
> Bazovou tridu pro tuto vlastnost jsem zvolil TControl a pro vyvolani dialogu
> jsem chtel pouzit OnCLick prirazeneho tlacitka. Jenze TControl nema OnClick
> "public" ani "published". Prosim poradte, jak nejlepe v tomto prip. priradit
> do OnClick hodnotu (zkousel jsem to pres GetPropInfo, a Get/SetMethodProp,
> ale bezuspesne)
uses
TypInfo;
procedure TForm1.Button1Click(Sender: TObject);
begin
MessageBeep(0);
end;
procedure TForm1.Button3Click(Sender: TObject);
var
Control: TControl;
Event: TNotifyEvent;
begin
Control := Button2;
Event := Button1Click;
SetMethodProp(Control, 'OnClick', TMethod(Event));
end;
Petr Vones
najit a ulozit registry
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.3.2002 03:26:56
From: "Jakub Maurer" <jakub.Maurer(zv)seznam(tec)cz>
> Mam dan nazev klice a mam vypsat vsechny nazvy a hodnoty registru v
> nem...jak na to?
Podivej se na TRegistry.GetValueNames
Petr Vones
JCLmapi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.3.2002 03:47:40
From: "Mirek" <dmiroslav(zv)seznam(tec)cz>
> Potreboval bych nacist zpravy v Outlooku a pokud se objevi zprava se
> "spravnym" predmetem, potrebuji ulozit prilohu. Zkousel jsem to pomoci
> JCLeamil, ale asi neco delam blbe. Muzete me nekdo nakopnout?
Pokud to ma fungovat jen v Outlooku tak je asi lepsi vyuzit OLE Automation kde
mas daleko vice moznosti nez pres Simple MAPI.
Petr Vones
DBGrid - zmena vyska bunky
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 5.3.2002 06:13:52
V nejakem slouci potrebuji zvetsit pismo - DBGrid1.Columns[x].Font.Size
Radky ale zustanou puvodni, proto pismo v tom slouci leze pod radek a je
necitelne.
Jestlize zmenim pismo v DBGrid.Font.Size, zmeni se radky dle tohoto
nastaveni, ale tim padem se zmeni pismo v celem DBGridu.
I kdybych se s tim smiril, tak pismo ve sloucich typu Calculated ale zustava
puvodni, ktere je nastaveno v danem slouci - DBGrid1.Columns[x].Font.Size
Zkusim pouzit tvou myslenku
Diky Pavel ZIDEK
> > uz si nevim rady. Nevim jak po zvetseni pisma v nejakem slouci zvetsim
taky vysku bunky.
>
> Vysku jedne bunky? A co s tema ostatnima?
>
> Vysku radku nastavuju takto:
> type THackGrid=class(TCustomGrid);
>
> THackGrid(GridJiz).DefaultRowHeight:=32;
> THackGrid(GridJiz).RowHeights[0]:=17;
>
> Popr. nastavit velikost pisma primo v TDBGrid.Font a pro jednotlive
sloupce
> nastavit ruzne pismo.
>
> Roman
> - - - - - - - - - - - - - - - - - - - - -
> http://kouzelne.misto(tec)cz/
>Kalendar
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 5.3.2002 06:59:46
http://www.delphi(tec)cz/soubor.asp?rok=2000&mesic=oct&den=12&soubor=dlfaaabm.ht
m
S pozdravem
Ober
> -----P�vodn� zpr�va-----
> Od: Ing. Ji�� SOKOL [SMTP:JS-delphi(zv)seznam(tec)cz]
>
> chtel bych udelat takovy pripominac svatku, abych na ne vecene
> nezapom�nal.
> Nechce se mi ovsem prepisovat vsechny datumy a k nim patricna jmena.
> Nemate
> nekdo takovy seznam???BDE - pocet spustenych BDEAdminov
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 5.3.2002 07:20:21
Takze mam uz aj riesenie.
Neviem ci je to jediny parameter ktory pocet realizovatelnych konekcii
ovplyvnuje - ale funguje
Teda ide o: BDEAdmin - Configuration - System - INIT - SHAREDMEMSIZE
Zdvojnasobenim cisla zdvojnasobim max. pocet konekcii.
Ak niekto vie - poradi ako funguju tie ostatne parametre ? Hlavne tie
suvisiace s nastavenim pamete.
JG
> D5, BDE 5.11
>
> Narazili sme na tekyto problem. Bez rozdielu DB (MS SQL, ORACLE) sa nam na
> roznych pocitacoch nedarilo prekrocit isty pocet konekcii pomocou BDE.
> Program pise ze ma nedostatok pamati na uskutocnenie operacie.
>
> Potom sme nahodou zistili ze len samotne spustenie viacerych instancii
> BDEAdmin.EXE nie je nekonecne a presne zodpoveda poctu max. konekcii ktore
> sme dosiahli.
>
> Stretli ste sa s tym ? Viete to nastavit - co to ovplyvnuje ?
Chat pomocou WinSock - Chyba ???
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 5.3.2002 08:05:35
> Ahojte prosim o pomoc skuste mi najst v tomto chybu. Proste ked to spustim
> tak vsetko prebehne az na to ze sa ta message neposle :). Nevypise to ziadnu
> chybu len to proste nejde. Dakujem za ochotu. Je to chatovaci program. A
> take odpovede ako pouzi komponentu teraz nechcem, potrebujem rozbehat toto,
> prosim vdaka.
> gListenSock:= socket(AF_INET, SOCK_STREAM, 0);
Kontrolujes i chybovy stav tohodle radku? Pripada mi ponekud divne se
snazit na STREAM socketu oterivat IP protokol... Podle kodu soudim,
ze jsi spise chtel TCP protokol, tedy ten radek by mel vypadat:
gListenSock:= socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Zvyraznit aktivni zaznam tabulky ...
[*] L. Filip <lfilip(zv)lekis(tec)cz> - 5.3.2002 08:15:48
Ahoj
zkus pouzit udalost OnDrawColumnCell treba takto:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with Sender as TDBGrid do
begin
if gdFocused in State then Canvas.Color := clRed;
DefaultDrawColumnCell(...);
end;
end;
----- Original Message -----
From: "Ing. Ji�� SOKOL" <JS-delphi(zv)seznam(tec)cz>
To: "dotaz-delp" <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, March 04, 2002 4:51 PM
Subject: Zvyraznit aktivni zaznam tabulky ...
Ahojki!
Chtel bych zvyraznit aktivni zaznam v DBGridu. Zkousel jsem to pres Colums,
ale to vedlo k tomu, ze to delalo cely sloupec.
Jde zmenit barvu jen urciteho pole? Nebo celeho zaznamu?
Pouzivam komponenty TTable a TQuery
Diky
Jirka
______________________________________________________________________
Nejenom anglicko-cesky slovnik: http://slovnik.seznam(tec)cz
Rozsireni Outlooku Express
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 5.3.2002 08:21:50
No ja AVG nemam v lasce, ale tusim (doufam), ze SetWindowsHookEx tam je
kvuli necemu jinemu. Vzdyt preci do Outlooku Express resp. na jeho toolbar
pridavaji tlacitko a to tam musi nejak vzniknout. Preci to tam nepridavaji
pres handle toho toolbaru (tak me napada - ma vubec toolbar handle ?)...
S pozdravem
Milan Tome�
mailto:Milan.Tomes(zv)haida(tec)cz
> Petr Vones
>
> From: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
> > vzhledem k tomu, ze pres SimpleMAPI nelze realizovat to co
> nutne potrebuji,
> > tak bych potreboval vedet jak udelat rozsireni Outlooku Express
> o odchyceni
> > nejakych udalosti (konkretne - pred smazanim) a take pridat do toolbaru
> > nejake tlacitko a odchytit jeho stisk. Nevite nekdo jak na to (urcite to
> > jde, protoze napr. AVG toto rozsireni ma a musi i odchycovat nejake ty
>
> Pokud se podivas na importovane funkce knihovny AVGOE5.DLL u AVG
> tak je tam i
> SetWindowsHookEx coz nevesti nic pekneho ;-)
>
> Petr Vones
ManualDock, ManualFloat: zrejme chyba
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 5.3.2002 08:22:07
Dobre rano,
nejsem si uplne jisty, jestli se jedna o chybu moji nebo Delphi, ale spis podezrivam Delphi.
Pomoci ManualDock jsem formular dokoval do tPanel, posleze pomoci ManualFloat jsem ho zase
oddokoval. Bohuzel aplikace obcas padala s divnymi chybami (obvykle Access violation v rtl60.bpl),
nekdy samovolne mizel Caption u jednoho z tlacitek na tomto formulari, jindy se objevila chyba v
tom smyslu, ze Control '' nema rodice.
Posleze jsem zjistil, ze k chybam dochazi, kdyz se oddokovava v okamziku, kdy ma zadokovany
formular focus (v mem pripade to bylo vzdy, protoze na nem bylo tlacitko na oddokovani). Pokud
pred oddokovanim formular preda focus jinam, problemy nenastaly.
Treba vam tato informace nekomu pomuze; pokud se chcete podivat, pak na http://www.zas-
me(tec)cz/delphi/chyba-docking.zip jsem dal malou aplikaci, ktera staci k reprodukci chyb, v Pokus.pas
jsou presne postupy, jak dospet k chybam. Jestlize nekdo potvrdite, ze se skutecne jedna o chybu
Delphi, dejte prosim vedet, nahlasime to vys
:-)
Testovano na D6 Pro + SP 2, Win2000.
Diky, Karel Rys
Pouzivani Prepare
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 5.3.2002 08:35:18
Ahoj,
rad bych si ujasnil pouzivani Prepare, konkretne na IBDatasetu.
Mam SQL prikaz s parametry a tento prikaz se provadi nekolikrat v
cyklu s ruznymi hodnotami parametru.
Ma se tedy zavolat Prepare pred zapocetim cyklu a Unprepare
po skonceni cyklu, nebo kazda zmena hodnot parametru vyzaduje
nove preparovani (to by pak nemelo smysl delat explicitne).
Dik.
David Lebeda
DBLookupListBox a zvyrazneni
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 5.3.2002 08:57:25
Ahoj,
mam na formulari dva DBLookupListboxy s nevyplnenym
Datasource a DataField, nabizene hodnoty bere z RxMemoryData.
Daji se pretahovat polozky z jednoho do druheho. Tohle vsechno
pekne funguje.
Potreboval bych, aby v kazdem z tech listboxu byl trvale videt
modre vybrany radek. Jak poznam, ze ten modry radek
momentalne neni videt? I kdyz neni videt, je presto nejaky radek
interne vybrany, protoze po zavolani funkce Presun se neco
presune z jednoho do druheho.
Zatim mam v OnActivate formulare berlicku - kazdemu listboxu
poslu WM_KEYDOWN s kl�vesou �ipka dol�. To zp�sob� modr�
ozna�en� prvn�ho ��dku. Po realizaci drag&drop ov�em zase m��e
zmizet, ne ale v�dy. ��m se to ��d�?
D�k.
David Lebeda
Detekcia odpojeneho pocitaca v sieti
[*] Milos Veselovsky <milos(zv)seko.sk> - 5.3.2002 09:18:30
Zdravim,
mam takyto problem:
pouzivame klasicku siet pod MS W98, zapojenych je 18 pocitacov,
z toho je jeden server. Na kazdom klientovi je nainstalovany
programcek, ktory je ovladany zo servera aplikaciou cez mailslot.
Lenze, problem je v tom, ze na serveri sa da vytvorit max. 15
mailslotov. Pri vytvarani 16 a 17 - teho mailslotu hlasi chybu
"Can not create mailslot". Skusal som aj minimalizovat velkost
mailslotu pri vytvarani, no nepomaha to.
Mozno nie je nutne pouzivat mailslot, my vsak potrebujeme zistit
stav, ked niektory z pocitacov vypadne zo siete (bud ho niekto
vypne, alebo vytiahne sietovy kabel).
Tak prosim o radu, ako je najlepsie a najrychlejsie zistit tento
stav.
PS: skusal som testovat dostupnost cez FileExists. Ak je klient
pripojeny ide to OK, no ak sa vytiahne sietovy kable, tak to trva
strasne dlho (radovo cca 5 az 30 sekund...)
Dakujem za kazdu radu.
Milos Veselovsky
Pouzivani Prepare
[*] Slavomir Skopalik <skopalik(zv)hlubocky.del(tec)cz> - 5.3.2002 09:21:27
IBX komponenty maji prepare celkem slusne vyreseny,
Prepare se vola jen po zmene textu SQL z prikazu ExecSQ, nebo Open.
Smysl prepare je pouze pred cyklem, unprepare ma smysl pouze pokud
chces setrit resource serveru v pripade, ze prikaz je pripraven, ale nepouzivan,
coz neni tvuj pripad.
Prepare pripravy SQL dotaz (kompilace z SQL do BLR), ale bez znalosti hodnot
parametru -> ma smysl explicitne volat jen jednou a to pred cyklem.
Slavek
> Ahoj,
>
> rad bych si ujasnil pouzivani Prepare, konkretne na IBDatasetu.
>
> Mam SQL prikaz s parametry a tento prikaz se provadi nekolikrat v
> cyklu s ruznymi hodnotami parametru.
> Ma se tedy zavolat Prepare pred zapocetim cyklu a Unprepare
> po skonceni cyklu, nebo kazda zmena hodnot parametru vyzaduje
> nove preparovani (to by pak nemelo smysl delat explicitne).
>
> Dik.
>
> David Lebeda
Delphi & MS Word
[*] Petr <petr(zv)youu(tec)cz> - 5.3.2002 09:31:36
Dobry den,
Urcite uz jste to tady nejak resili, proto se omlouvam,ale ve fulltextu se mi nepodarilo vyhledat co potrebuji.
V Delphi 5 mam program ve kterem pracuji s databazi MS SQL. To je vsechno v pohode, ale ted k problemu ... mam predem napsany dokument ve Wordu 2000 (doc) ve kterem jsou ruzne texty a obrazky, pro ukazku si predstavme napriklad potvrzeni o studiu na nejake skole ozdobene obrazkem. Ja ted potrebuji nejak v tomto dokumentu zmenit jmeno a prijmeni ktere tam doplnim z databaze v Delphi a pak to cele necham tisknout?
Poradite mi prosim nekdo jak tohle udelam? Nikdy jsem neprogramoval v Delphi nic co by melo nejak takhle pracovat s dokumenty Wordu (zmena jmena a prijmeni v docu a tisk) a proto si nevim rady. Nejvice bych uvital ukazku formou programu se zdrojakem, pokud nekdo mate odkaz na takovou ukazku tak ji prosim poslete.
S pranim pekneho dne
Petr
Avi nebo Mpeg from BMP,Jpeg
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 5.3.2002 09:33:42
Mozna ti pomuze komponenta TAviWriter v.1.0, ktera dela to, co potrebujes.
Nezkousel jsem ji. Viz http://torry.net/video.htm
S pozdravem
Ober
> -----P�vodn� zpr�va-----
> Od: pavel.ales(zv)popron(tec)cz [SMTP:pavel.ales(zv)popron(tec)cz]
>
> Bohuzel ve svem programu!!!
> Nevite nekdo jak prevedu BMP do AVI,Mpeg?
> Moc by mi to pomohlo.Delphi & MS Word
[*] Petr Poto�ek <pp1(zv)volny(tec)cz> - 5.3.2002 10:17:17
Ahoj,
nevim jestli je to nejjednodussi a nejefektivnejsi zpusob, ale ja podobne
propojeni resim pres funkci Wordu - Hromadna korespondence.
Ve wordu si vytvorim dokument obsahujici pole s odkazy na polozky "tabulky".
Kvuli problemum s cestinou je touto "tabulkou" text s oddelovaci ulozeny ve
formatu DOC. V Delphi si pak dle prikladu vyplnim polozky "tabulky" a otevru
dokument Wordu:
procedure TFMZ.BBMtiskyPS1Click(Sender: TObject);
var SaveFile: TextFile; Value: String; D: TDate;
begin
AssignFile (SaveFile, 'Pom\PSpom.doc');
try
QData.DataSource:=DSData;
D:=QData.ParamByName('Datum').AsDate;
QData.ParamByName('Datum').AsDate:=Date;
Rewrite (SaveFile);
Value :='^'+'Firma'+'~'+'Ico'+'~'+'Fobec'+
//... Hlavicka
'^'+Table1Firma.AsString+'~'+Table1Ico.AsString+'~'+Table1Obec.AsString+'^';
//... Polozky
Write (SaveFile, Value);
finally
CloseFile (SaveFile);
end;
ShellExecute(Handle, nil, 'Pom\Pracovn� smlouva.doc', nil,
nil,SW_SHOWNORMAL);
end;
Je to asi trochu neprehledne, ale pro predstavu to snad staci.
Petr Potocek
Alrousse spol.s r.o.
http://www.alrousse(tec)cz
----- Original Message -----
From: Petr
To: delphi-l(zv)clexpert(tec)cz
Sent: Tuesday, March 05, 2002 9:31 AM
Subject: Delphi & MS Word
Dobry den,
Urcite uz jste to tady nejak resili, proto se omlouvam,ale ve fulltextu se
mi nepodarilo vyhledat co potrebuji.
V Delphi 5 mam program ve kterem pracuji s databazi MS SQL. To je vsechno v
pohode, ale ted k problemu ... mam predem napsany dokument ve Wordu 2000
(doc) ve kterem jsou ruzne texty a obrazky, pro ukazku si predstavme
napriklad potvrzeni o studiu na nejake skole ozdobene obrazkem. Ja ted
potrebuji nejak v tomto dokumentu zmenit jmeno a prijmeni ktere tam doplnim
z databaze v Delphi a pak to cele necham tisknout?
Poradite mi prosim nekdo jak tohle udelam? Nikdy jsem neprogramoval v Delphi
nic co by melo nejak takhle pracovat s dokumenty Wordu (zmena jmena a
prijmeni v docu a tisk) a proto si nevim rady. Nejvice bych uvital ukazku
formou programu se zdrojakem, pokud nekdo mate odkaz na takovou ukazku tak
ji prosim poslete.
S pranim pekneho dne
Petr
Delphi & MS Word
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 5.3.2002 10:25:32
Hi,
druha moznost:
ve wordu si vytvor novy soubor, ve kterem vytvor formular, kde si pojmenujes
jednotlive polozky a nasledne v delphi proved nasledujici:
uses
Word2000, ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
MSWord : Variant;
begin
try
MSWord := GetActiveOleObject('Word.Application');
except
try
MSWord := CreateOleObject('Word.Application');
except
ShowMessage('Nepodaoilo se otevo�t aplikaci Microsoft Word.');
Exit;
end;
end;
MSWord.documents.Open('cesta_k_word_dokumentu');
MSWord.visible := True;
MSWord.ActiveDocument.FormFields.Item('jmeno').result :=
'doplnovane_jmeno_treba_z_SQL'; // jmeno = nazev polozky v documentu
end;
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
-----Original Message-----
i o studiu na nejake skole ozdobene obrazkem. Ja ted potrebuji nejak v tomto
dokumentu zmenit jmeno a prijmeni ktere tam doplnim z databaze v Delphi a
pak to cele necham tisknout?OT: RE: Delphi & MS Word
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 5.3.2002 10:41:50
Hi,
na tohle jsem zatim nenarazil. Kupodivu (nebo nastesti) jmeno delsi jak 255
znaku neznam. Ale diky za upozorneni.
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
.. -----Original Message-----
.. Jenom upozornuji na to, ze se ti nepodari prenest vice jak
.. 255 znaku. A tudiz se ptam - podarilo se to nekomu vyresit ???Delphi & MS Word
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 5.3.2002 10:41:38
Jenom upozornuji na to, ze se ti nepodari prenest vice jak 255 znaku. A
tudiz se ptam - podarilo se to nekomu vyresit ???
S pozdravem
Milan Tome�
mailto:Milan.Tomes(zv)haida(tec)cz
> MSWord.ActiveDocument.FormFields.Item('jmeno').result :=
> 'doplnovane_jmeno_treba_z_SQL'; // jmeno = nazev polozky v documentu
Delphi & MS Word
[*] Petr <petr(zv)youu(tec)cz> - 5.3.2002 10:48:19
A nepujde to jednoduse takhle?
MSWord.ActiveDocument.FormFields.Item('jmeno').result := '255_znaku_textu' +
'dalsi_znaky_nad_255';
Ja jsem takhle obesel vetsinu omezeni na 255 znaku a slapalo to ...
Petr
----- Original Message -----
From: "Milan Tome�" <milan.tomes(zv)haida(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, March 05, 2002 10:41 AM
Subject: RE: Delphi & MS Word
> Jenom upozornuji na to, ze se ti nepodari prenest vice jak 255 znaku. A
> tudiz se ptam - podarilo se to nekomu vyresit ???
>
> S pozdravem
>
> Milan Tome�
> mailto:Milan.Tomes(zv)haida(tec)cz
>
> > MSWord.ActiveDocument.FormFields.Item('jmeno').result :=
> > 'doplnovane_jmeno_treba_z_SQL'; // jmeno = nazev polozky v documentu
>
>
>Delphi & MS Word
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 05.3.2002 10:53:07
Ahoj,
ja uz dlhsiu dobu uspesne pouzivam pre taketo
ucely format RTF v ktorom si prislusny wordovsky
dokument ulozim.
Po nacitani dat z databazy si nacitam tento
RTF subor do stringu a v nom vykonam nahrady
urcenych klucovych slov.
Priklady funkcii, ktore pritom pouzivam prikladam:
Vlkovic
Nacitanie suboru do retazca moze vyzerat napriklad takto:
function ReadStringFromFile ( const FileName: string; var Data: string
): Boolean;
// nacita obsah suboru do retazca "Data", ak sa nepodari vrati False
var
FS: TFileStream;
Size: integer;
begin
Result := False; // default
TRY
FS := TFileStream.Create ( FileName, fmOpenRead or fmShareDenyNone
);
TRY
Size := GetFileSize ( FS.Handle, nil );
if Size = -1 then
Exit;
SetLength ( Data, Size );
FS.Read ( Data[1], Size );
Result := True;
FINALLY
FS.Free();
END;
EXCEPT
ShowMessage
(
Format ( 'Chyba pri citani suboru %s'#13'(Chyba
c.%d)',[FileName,GetLastError()] )
);
END;
end;
Nahrada klucoveho slova v retazci moze vyzerat napriklad takto:
procedure ReplStr ( var Str: string; const OldStr,NewStr: string );
// zameni vsetky vyskyty pozadovaneho retazca
var
p: integer;
LenOld: integer;
LenNew: integer;
begin
LenOld := Length ( OldStr );
LenNew := Length ( NewStr );
p := 0;
REPEAT
p := PosFrom ( OldStr, Str, p + 1 );
if p = 0 then
Exit;
Delete ( Str, p, LenOld );
Insert ( NewStr, Str, p );
p := p + LenNew;
UNTIL False;
end;
Zapis retazca do suboru moze vyzerat napriklad takto:
function WriteStringToFile ( const FileName, Data: string ): Boolean;
// zapise obsah retazca "Data", do suboru
var
FS: TStream;
begin
Result := False; // default
TRY
FS := TFileStream.Create ( FileName, fmCreate );
TRY
FS.Write ( Data[1], Length ( Data ) );
Result := True;
FINALLY
FS.Free();
END;
EXCEPT
END;
end;
> V Delphi 5 mam program ve kterem pracuji s databazi MS SQL. To je
> vsechno v pohode, ale ted k problemu ... mam predem napsany dokument
> ve Wordu 2000 (doc) ve kterem jsou ruzne texty a obrazky...
> Ja ted potrebuji nejak v tomto dokumentu zmenit jmeno a prijmeni,
> ktere tam doplnim z databaze v Delphi a pak to cele necham
> tisknout?Delphi & MS Word
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 5.3.2002 10:55:16
Ne jmeno, ale obsah toho form fieldu.
S pozdravem
Milan Tome�
mailto:Milan.Tomes(zv)haida(tec)cz
> Hi,
>
> na tohle jsem zatim nenarazil. Kupodivu (nebo nastesti) jmeno
> delsi jak 255
> znaku neznam. Ale diky za upozorneni.
>
> S pozdravem
> Michal PEPR Pesek
> http://www.peprsoft(tec)cz
>
>
> .. -----Original Message-----
> .. Jenom upozornuji na to, ze se ti nepodari prenest vice jak
> .. 255 znaku. A tudiz se ptam - podarilo se to nekomu vyresit ???najit a ulozit registry
[*] Jakub Maurer <jakub.Maurer(zv)seznam(tec)cz> - 05.3.2002 10:58:37
Ja ale potrebuju vypsat vse co je v tom klici...tzn,ze nejen hodnoty
klice ale i cely strom klicu a jejich hodnoty...
Dekuji Jakub
Maurer
______________________________________________________________________
S Oskarem je nyni seznameni tak rychle a snadne jako odeslani jedne SMS-ky.
http://ad2.seznam(tec)cz/redir.cgi?instance=21010%26url=http://www.oskarmobil(tec)cz/cz/products/seznamka_index.html
pretypovanie variantu
[*] iturcan(zv)gamo.sk - 5.3.2002 11:00:29
Ahojte,
nejako mi vypina, nie je problem do varianu dosadit nieco ine , teda napr:
var
vars:variant;
dsp:IDispatch
.
.
.
vars := dsp;
potreboval by som vsak presne opacny postup. Ako pretypujem variant na
IDispatch aby fungovalo nieco ako :
dsp := vars; // samozrejme predpokladajme ze vo vars je IDispatch
ako na to ?
Ivan
ADOStoredProc: ExecProc nebo Open ?
[*] Martin Srp, DiS. <srp(zv)marbes(tec)cz> - 5.3.2002 11:10:06
Nazdarek lidicky,
mam Delphi 5 Enterprise a ADO componenty s update packem 2. Resim
nasledujici problem:
Na SQL Serveru 2000 mam stored proceduru v jejimz tele mam dva stejne
inserty do tabulky s jednim fieldem, ktery je zaroven primarnim klicem (pro
jednoduchou predstavu). Kdyz tuhle proceduru pustim v Query Analyzeru hodi
to samozrejme pri druhem insertu chybu. To je OK.
Kdyz pripojim tuhle proceduru pres komponentu ADOStoredProc a volam
ExecProc, zadnou chybu to nehodi! Proc? Kdyz ji zavolam podruhe uz chybu
vyhodi. Jak to? Zkousel jsem i metodu Open, ta vypada o neco lip, ale v
nekterych momentech hazi chybu "Command text does not return a result set.",
coz je pochopitelne.
Stejne chovani je i pri pouziti komponenty ADOQuery.
Mate s tim nekdo zkusenosti? A vite, jak to resit?
Diky
Martin Srp DiS.
MARBES CONSULTING s.r.o.
e-mail: srp(zv)marbes(tec)cz
ICQ: 120824558
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.330 / Virov� b�ze: 184 - datum vyd�n�: 28.2.2002
MIDAS + predavanie recordu
[*] iturcan(zv)gamo.sk - 5.3.2002 11:17:09
AHoj
potrebujem aby moj aplikacny server vracal record. V typovej kniznici si to
viem nadefinovat avsak na strane klienta mi to blbne. same access violation
a pod. hlasky.
nemate niekto skusenosti s MIDASOM a pouzivanim recordu v parametri. moj
record je ako vystupny parameter.
Ivan
Delphi & MS Word - neurcity pocet dat
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 5.3.2002 11:20:52
Jak by slo resit: dynamicky' pocet dat v tabulce (umistena v dokumentu MS
Wordu)?
Dekuji
Zdenek Janish
Detekcia odpojeneho pocitaca v sieti
[*] Milos Veselovsky <milos(zv)seko.sk> - 5.3.2002 11:24:53
Takze, asi som uz nasiel riesenie.
Najvhodnejsi sposob bude asi ping. Malo by to byt rychle
a urcite spolahlive. Ak nie, tak ma opravte.
Dik.
milos
MV> Zdravim,
MV> mam takyto problem:
MV> pouzivame klasicku siet pod MS W98, zapojenych je 18 pocitacov,
MV> z toho je jeden server. Na kazdom klientovi je nainstalovany
MV> programcek, ktory je ovladany zo servera aplikaciou cez mailslot.
MV> Lenze, problem je v tom, ze na serveri sa da vytvorit max. 15
MV> mailslotov. Pri vytvarani 16 a 17 - teho mailslotu hlasi chybu
MV> "Can not create mailslot". Skusal som aj minimalizovat velkost
MV> mailslotu pri vytvarani, no nepomaha to.
MV> Mozno nie je nutne pouzivat mailslot, my vsak potrebujeme zistit
MV> stav, ked niektory z pocitacov vypadne zo siete (bud ho niekto
MV> vypne, alebo vytiahne sietovy kabel).
MV> Tak prosim o radu, ako je najlepsie a najrychlejsie zistit tento
MV> stav.
MV> PS: skusal som testovat dostupnost cez FileExists. Ak je klient
MV> pripojeny ide to OK, no ak sa vytiahne sietovy kable, tak to trva
MV> strasne dlho (radovo cca 5 az 30 sekund...)
MV> Dakujem za kazdu radu.
MV> Milos Veselovsky
pretypovanie variantu
[*] iturcan(zv)gamo.sk - 5.3.2002 11:45:21
Ahojky,
prepacte za unahleny email. uz som to vyriesil.
Dakujem
Ivan
iturcan(zv)gamo.sk
Sent by: To: delphi-l(zv)clexpert(tec)cz
delphi-l-owner(zv)c cc:
lexpert(tec)cz Subject: pretypovanie variantu
05.03.2002 11:00
Please respond
to delphi-l
Ahojte,
nejako mi vypina, nie je problem do varianu dosadit nieco ine , teda napr:
var
vars:variant;
dsp:IDispatch
.
.
.
vars := dsp;
potreboval by som vsak presne opacny postup. Ako pretypujem variant na
IDispatch aby fungovalo nieco ako :
dsp := vars; // samozrejme predpokladajme ze vo vars je IDispatch
ako na to ?
Ivan
MIDAS + predavanie recordu
[*] iturcan(zv)gamo.sk - 5.3.2002 11:45:07
Ahojky,
prepacte za unahleny email. uz som to vyriesil.
Dakujem
Ivan
iturcan(zv)gamo.sk
Sent by: To: delphi-l(zv)clexpert(tec)cz
delphi-l-owner(zv)c cc:
lexpert(tec)cz Subject: MIDAS + predavanie recordu
05.03.2002 11:17
Please respond
to delphi-l
AHoj
potrebujem aby moj aplikacny server vracal record. V typovej kniznici si to
viem nadefinovat avsak na strane klienta mi to blbne. same access violation
a pod. hlasky.
nemate niekto skusenosti s MIDASOM a pouzivanim recordu v parametri. moj
record je ako vystupny parameter.
Ivan
Delphi & MS Word - neurcity pocet dat
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 5.3.2002 12:15:00
On 5 Mar 2002, at 11:20, Zdenek Janish wrote:
> Jak by slo resit: dynamicky' pocet dat v tabulce (umistena v dokumentu
> MS Wordu)?
Ahoj,
na http://www.djpate.freeserve.co.uk/
najdes priklady ukladani dat do tabulky Wordu
Jarek Uher
Consts cz
[*] Standa <Ooman(zv)centrum(tec)cz> - 5.3.2002 12:42:53
Ahoj nem�te n�kdo unitu Consts p�elo�enou do �e�tiny.Nefungujuci chat
[*] Robert Suska <delphi(zv)korak.sk> - 5.3.2002 12:51:45
Zdravim pani!
Ten chat mi aj tak nefunguje aj ked ste mi poradili zadat mu protokol akym
to ma komunikovat a to IPPROTO_TCP proste odolem spravu ale neprijmem ???
Skuste sa na to prosim este raz pozriet ja teraz robim na inej veci. Dakujem
krasne
Robo
Delphi & MS Word
[*] Pesek Michal <Michal.Pesek(zv)MNUL.CZ> - 5.3.2002 13:07:10
Hi, bohuzel nepujde. Word se dost brani.
A brani se i tomuhle:
MSWord.ActiveDocument.FormFields.Item('jmeno').result :=
MSWord.ActiveDocument.FormFields.Item('jmeno').result := +
'dalsi_text';
S pozdravem
Michal PEPR Pesek
http://www.peprsoft(tec)cz
.
.. MSWord.ActiveDocument.FormFields.Item('jmeno').result :=
.. '255_znaku_textu' +
.. 'dalsi_znaky_nad_255';
..
.. Ja jsem takhle obesel vetsinu omezeni na 255 znaku a slapalo to ...Nefungujuci chat
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 5.3.2002 13:14:02
> Ten chat mi aj tak nefunguje aj ked ste mi poradili zadat mu protokol akym
> to ma komunikovat a to IPPROTO_TCP proste odolem spravu ale neprijmem ???
>
> Skuste sa na to prosim este raz pozriet ja teraz robim na inej veci. Dakujem
> krasne
Je mozne ze je tam nekde dalsi chyba. Bohuzel nemam volny cas na to
abych od rana do vecera hledal chyby v cizich zdrojacich. ;-(
Snad nekdo jiny... ale obecne se mi moc nezamlouva zpusob: 'neco
naprogramuju, predhodim to konferenci aby to odladila a sam si zatim
delam na necem jinem...'
Kazdopadne neni stastne reseni se vrhnout rovnou na winsock API, aniz
bych presne vedel co delam. Od toho jsou hotove TCP/IP knihovny
(Synapse, Indy,...), ktere vsechny zaludnosti Winsock implementaci
delaji po leta overenymi zpusoby. Jejich pouzivanim se pak snadno
vyhnete takovymto chybam a vysledny vyvoj vasi aplikace bude
mnohonasobne rychlejsi.
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.Delphi & MS Word
[*] Milan Tome� <milan.tomes(zv)haida(tec)cz> - 5.3.2002 13:15:30
Tohle neprojde..... To bylo to prvni co jsem zkousel.....
S pozdravem
Milan Tome�
mailto:Milan.Tomes(zv)haida(tec)cz
> A nepujde to jednoduse takhle?
>
> MSWord.ActiveDocument.FormFields.Item('jmeno').result :=
> '255_znaku_textu' +
> 'dalsi_znaky_nad_255';
>
> Ja jsem takhle obesel vetsinu omezeni na 255 znaku a slapalo to ...
>
> Petr
Consts cz
[*] B�in�il Tom� - 5.3.2002 13:17:58
Mam, castecne (zakladni poznamky a vyjimky). Zitra ji mohu poslat. Napis
svuj soukromy mail, poslu ji.
Tomas
Ing. Tom� B�in�il
E-mail: brincil(zv)mu.kutnahora(tec)cz
>
> Ahoj nem�te n�kdo unitu Consts p�elo�enou do �e�tiny.
>
---
Avast/SMTP2000 Antivirus: Outbound message clean.
Virus Database (VPS): 1.3.2002
Tested on: 5.3.2002 13:18:07 +0200
Avast! is copyright (c) 2000-2001 ALWIL Software.
ADOStoredProc: ExecProc nebo Open ?
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 05.3.2002 13:29:10
Mozna tomu nerozumim (s ADO nedelam), ale nefunguje to nahodou spravne? Zkus si to po sobe precist, prvni a pak druhy odstavec! M&B
>>> srp(zv)marbes(tec)cz 5.3.2002 11:10 >>>
> Na SQL Serveru 2000 mam stored proceduru v jejimz tele mam dva stejne
>inserty do tabulky s jednim fieldem, ktery je zaroven primarnim klicem (pro
>jednoduchou predstavu). Kdyz tuhle proceduru pustim v Query Analyzeru hodi
>to samozrejme pri druhem insertu chybu. To je OK.
>
> Kdyz pripojim tuhle proceduru pres komponentu ADOStoredProc a volam
>ExecProc, zadnou chybu to nehodi! Proc? Kdyz ji zavolam podruhe uz chybu
>vyhodi. Jak to? Zkousel jsem i metodu Open, ta vypada o neco lip, ale v
>nekterych momentech hazi chybu "Command text does not return a result set.",
>coz je pochopitelne.
> Stejne chovani je i pri pouziti komponenty ADOQuery.
>Mate s tim nekdo zkusenosti? A vite, jak to resit?
Nefungujuci chat
[*] pavel.ales(zv)popron(tec)cz - 5.3.2002 13:47:53
Lukas:
------
Je mozne ze je tam nekde dalsi chyba. Bohuzel nemam volny cas na to
abych od rana do vecera hledal chyby v cizich zdrojacich. ;-(
Snad nekdo jiny... ale obecne se mi moc nezamlouva zpusob: 'neco
naprogramuju, predhodim to konferenci aby to odladila a sam si zatim
delam na necem jinem...'
Kazdopadne neni stastne reseni se vrhnout rovnou na winsock API, aniz
bych presne vedel co delam. Od toho jsou hotove TCP/IP knihovny
(Synapse, Indy,...), ktere vsechny zaludnosti Winsock implementaci
delaji po leta overenymi zpusoby. Jejich pouzivanim se pak snadno
vyhnete takovymto chybam a vysledny vyvoj vasi aplikace bude
mnohonasobne rychlejsi.
Ja:
---
Plne souhlasim,myslim ze uz tak tvoje HOTLINE je dost velky nadstandart,diky
tobe a Synapsi jsem mohl vytvorit docela slozitou sitovou aplikaci s
minimalni sitovou gramotnosti:-))
Myslim ze pri pouziti synapse je vyvoj opravdu rychly a bezchybny a pri
nahlednuti do zdroju jsem napriklad pochopil i takove veci jak funguje FTP
server atd. nejsou to asi hluboke znalosti ale zaklad tu je.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.323 / Virov� b�ze: 180 - datum vyd�n�: 8.2. 2002