Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Prevod z VC++ do Delphi4
[*] Milan Blazek <mbsint(zv)telecom(tec)cz> - 4.6.2001 14:40:25
Dekuji za odpoved,
musim vsak upresnit, ze se nejedna o problem jak zpustit
program v C++ pomoci nejake volaci rutiny napsane v Delhpi atd., aby to
nejak
slapalo. Jedna se mi o problem, kde potrebuji pripmo prepsat (nejradeji
strojove
prelozit) kod v C++ do Pasaclu (Delphi) z duvodu, ze vlastneny kod v C++
dedal uplnene cizi programator, ktery jiz neni pritomen a ja se v C++ vubec
nevyznam.
Abych mohl tento program puvodne napsany v C++ dodelat doladit atd,
tak ho potrebuji preklopit do Pascalu a nebo se naucit C++ a prepsat rucne
nekolik desitek az stovek tisic radku kodu - coz vidim na neklolik let prace
:-).
Vim, ze prevest C++ do Pasacalu neni nikterak trivialni zalezitost, ale
presto se zkousim zeptat
zkusenejsich znalcu C++ a Pascalu, zda to nejak jednoduseji nelze.
S pozdravem
M.Blazek
----- Original Message -----
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, June 02, 2001 8:35 PM
Subject: Re: Prevod z VC++ do Delphi4
> Tez zdravim vsechny
>
> a pripojuji se k pozadavku nize uvedenemu, zda je mozne nejak prevest kod
v
> C++
> do Delphi, aniz se stanu odbornikem na C++.
>
Tusim, ze existuji nejake utlity, ktere to lepe ci hure svedou. Ale mam
pocit, ze je mozne uspesne prevest pouze hlavickou soubory (deklarace
exportovanych funkci DLLka napriklad).
Jinak vetsinu kodu z CCka lze do Pascalu prevest s minimem znalosti CCka -
ja sam jsem toho dukazem. Pokud si clovek alespon trochu zvykne na zakladni
veci nemel by s tim prevodem byt problem (pokud kod neni prilis obsahly nebo
priliz prasacky zapsany). Rozhodne bych daval vetsi sance "zivemu"
konvertoru nez automatu. Nektere CCkovske konstrukce nelze totiz otrocky
prepsat do Pascalu a je podle mne vetsi sance odladit Pascalsky preklad
pokud jej vyrobim z Ccka sam nez honit nejaky problem v prekladu porizenem
strojem.
V nekterych pripadech je mozne CCkovsky kod prelozit do OBJ a tyto
prilinkovat primo k Pascalskemu kodu - pak neni potreba (krome hlavicek
volanych funkci) nic prekladat.
D. Toman
Prevod z VC++ do Delphi4
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 4.6.2001 14:49:02
Jedine manualne a rozhodne ne jednoduseji. C++ ma velice specificke
konstrukce, ktere Delphi neumi.
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
ICQ# : 119119215
> Vim, ze prevest C++ do Pasacalu neni nikterak trivialni zalezitost, ale
> presto se zkousim zeptat
> zkusenejsich znalcu C++ a Pascalu, zda to nejak jednoduseji nelze.
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.256 / Virov� b�ze: 129 - datum vyd�n�: 31.05.01
TTreeView ---->tvorba vetvi a podvetvi za chodu
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 4.6.2001 14:53:28
Nazdar jak tvorite vetve a podvetve za chodu U treeViewu? Potrebuji si
vycreatovat tuto slozku na miste na kterem si zvolim.Tj. odchytavam klick
mysky a na jejim miste tvorim treeview a vni mam preddefinovane polozky jak
to udelam abych ty polozky vycreatoval spolu s treeviewem?
Diky hosi moc mi to pomuze.
Tez bych pak pokud budu mit 2 nebo 3 polozky treelist udelat cary od jedne k
druhe, znate preci datove diagramy tak neco takoveho nevite nekdo jak se ta
cara nakresli?
Diky Aldik
Amater (ale snazivej!!!)
D5Ent.W98 PIICeleron400
Prevod z VC++ do Delphi4
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 4.6.2001 15:08:26
> Abych mohl tento program puvodne napsany v C++ dodelat doladit atd,
> tak ho potrebuji preklopit do Pascalu a nebo se naucit C++ a prepsat rucne
> nekolik desitek az stovek tisic radku kodu - coz vidim na neklolik let
prace
> :-).
V tom pripade bych volil mezi 2 resenimi:
1) pokracovat v Ccku
2) napsat to znova v Pascalu
D> Toman
Linuxovsky disk ve Win
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 4.6.2001 15:11:50
> Ahoj,
> omlouvam se za OT
>
> nevi nekdo o nejakem (free) programku ci driveru, pomoci ktereho bych mohl
> pouzivat ve win disk, naformatovany na Ext2? Melo by to fungovat na W2K a
> staci mi pristup pro cteni...
>
zadal jsem na www.google.com nasledujici klicova slova:
ext2 driver windows
a nejake odkazy vypadly.
V krajnim pripade je mozne rozebehnout Win a Linux na jednom stroji najednou
(VMWarem napriklad) a data nasdilet
D. Toman
Zjisteni pocitacu v siti
[*] DarkLogic <engine(zv)ropacek(tec)cz> - 4.6.2001 16:16:14
Dobry den!
Delam zabezpecovaci program pro internetovou kavarnu a narazil jsem na =
jeden problem. Jakym zpusobem zjistim,ktere a kolik pocitacu je zrovna =
prihlaseno v siti?
Stejne tak by me zajimalo, jak zjistim sitove jmeno pocitace, na kterem =
je zrovna program spusten.
S pozdravem
Vasek Navrat
PS. Pocitace jsou normalne propojeny siti Windows 98
Prevod z VC++ do Delphi4
[*] David Mensik <mensikd(zv)seznam(tec)cz> - 4.6.2001 16:27:54
Mozna by stalo za pokus zkusit udelat z toho dll, nebo com componentu...
Zalezi kolik vstupu a vystupu je potreba.
Ozon
P.S. Pokud se ale v Cecku nevyznate, jak pisete, tak to bude docela obtizne.
Najdete si nekoho, kdo vam z toho udela neco rozumneho (dll apod.) a napise
.pas wrapper.
> musim vsak upresnit, ze se nejedna o problem jak zpustit
> program v C++ pomoci nejake volaci rutiny napsane v Delhpi atd., aby to
> nejak
> slapalo. Jedna se mi o problem, kde potrebuji pripmo prepsat (nejradeji
> strojove
> prelozit) kod v C++ do Pasaclu (Delphi) z duvodu, ze vlastneny kod v C++
> dedal uplnene cizi programator, ktery jiz neni pritomen a ja se v
> C++ vubec
> nevyznam.WMWARE kto ma???
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 4.6.2001 17:01:54
Ano, az na to, ze se to nejmenuje Wmware,
ale spravne je Vmware.
http://www.vmware.com
### cis napsal dne 31 May 01, v 12:23 :
> Trial si stahni z jejich serveru.
> alda
>
> ----- Original Message -----
> > Zdravim prosim Vas potrebujem nejaku FREE vezriu WMWARE for W32 aj pre
> > LINUX. Moze byt aj Trial. Prosim kto ma ozvite sa mi na moj sukromny
> > mail.
> >
> > Dakujem
> >
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
Prepsani disku
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 4.6.2001 17:26:48
Ahoj,
hmmm, ze by Windows?
:-)))
### Krayzel Libor napsal dne 4 Jun 01, v 14:26 :
> Nemate nekdo programek, ktery prepise prazdny disk nejakymi nesmyslnymi
> daty?
>
Ale ted vazne:
1) Kdysi byvalo v Norton utilitach neco jako WIPEDISK
2) staci maly VYMAZ.BAT, treba neco jako:
> echo Vymaz neobsazeneho mista na disku
> echo F�R�E�E�!�F�R�R�E�!�F�R�E�E�!�>a
> rem goto ven
> :loop
> if not exist a goto :ven
> copy /b a+a b /b
> if not exist b goto :ven
> copy /b b+b a /b
> goto loop
> :ven
ktery pise a pise, dokud muze...
(delka retezce u [ECHO ...>a] by mela byt
nejlepe (mocninou 2)-2!)
--
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
--
Informace o objektu
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 4.6.2001 19:07:27
On 4 Jun 2001, at 10:41, L. Filip wrote:
> Mam kod ktery mi zjistuje ruzne vlastnosti urciteho objektu. Zatim mi
> fungovalo vse v pohode, ale ted jsem chtel zjistovat jestli objekt
> obsahuje vlastnost "Modified". Prestoze tuto vlastnost evidentne ma
> tak mi funkce GetPropInfo vraci nil. Muzete mi nekdo poradit proc nebo
> kde delam chybu.
>
> tp := GetPropInfo(Edit1.ClassInfo ,'Modified');
Vlastnost musi byt published.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
QueryBox nebo tak nejak
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 4.6.2001 19:15:28
Ahoj kdysi jsem pouzival proceduru vyvolavajici formular, prikaz mel v nazvu
Query,fungoval podobne jako MessageDlg, zadalo se par parametru a objevil se
formular s jednim editem.Nenapovite mi nekdo jak se ta procedura
jmenovala,je to standartni vybava Delphi, docela by se mi to ted hodilo..
Vyhledavani podle Query je bez uspechu...query je totiz dost pouzivany
slovo.Nechce se mi pokazde tvorit formular obzvlaste pokud je to tu uz
hotove
Dekuji moc
Aldik Pavel
Amater (ale snazivej) D5 Ent W98 Celeron 400 64RAM
Ukonceni programu
[*] Ji�� H�sek - 4.6.2001 19:17:50
Zdravim,
omlouvam se, vim ze se tohle tema probiralo v konferenci uz mnohokrat, ale
hledal jsem v archivu a nenasel jsem to co jsem potreboval.
Mam program, ktery se nechce ukoncit pri ukonceni windows. V archivu jsem se
vesmes docetl, ze musim obslouzit wm_queryendsession, aby vracela hodnotu 1.
Program se pri ukoncovani win. sice ukoci, ale samotne windowsy zustanou.
Ukonci se az napodruhe. Ze zoufalosti jsem tam zkousel psat inherited a
self.close nebo obsluhovat wmendmessage a wm_syscommand, ale vsechny
varianty
selhaly. Jak je to tedy spr�vn�?...
// procedure wmsyscommand(var msg: twmsyscommand); message wm_syscommand;
procedure wmendsession(var msg: twmendsession); message wm_endsession;
procedure wmqueryendsession(var msg: twmendsession); message
wm_queryendsession;
...{procedure TForm1.wmsyscommand(var msg: twmsyscommand);
begin
if msg.cmdtype and $fff0 = sc_close then begin
self.close;
inherited;
end
else inherited;
end;}
procedure TForm1.wmendsession(var msg: twmendsession);
begin
msg.result:=1;
self.close;
inherited;
end;
procedure TForm1.wmqueryendsession(var msg: twmendsession);
begin
msg.result:=1;
self.close;
inherited;
end;
Predem dekuji.
Jiri Hysek
Sprava verzi v D5
[*] Phill <pedrophill(zv)seznam(tec)cz> - 4.6.2001 19:55:19
Ahoj konferencari,
nedavno se tu nekdo zminil a necem jako version control system. Chtel
bych vedet, jestli nemate nakej dobrej tip na takovej program. Nejlepsi by
bylo neco, co se drobet skloubi s delphi, ale pokud je i nakej externi
program, neco fakt peknyho, byl bych rad za odkaz. Btw nejlepe Freeware. Ja
pouzivam tzv. Adresarovou metodu-vytvarim adresare a do nich kopiruju celej
projekt. Nejni to ale to pravy orechovy.
Diky,
Phill
--------------------------
Email: Phill(zv)seznam(tec)cz
Web: http://phill.sf(tec)cz
ICQ:69193789
--------------------------
QR a QRImage
[*] JIM Design <jim.design(zv)iol(tec)cz> - 4.6.2001 20:01:25
ahoj,
co to plnit v OnNeedData
M.Jirman
-----Original Message-----
Behalf Of Vlastimil
Ahoj,
V Quick Report tiskneme sestavu vcetne loga firmy. Pokud toto logo je
natvrdo naloudovano do Image,
tiskne se vzdy.
Pokud tiskneme logo z databaze pres QRDBImage, na obrazovce pri Preview je
logo vzdy, po odeslani na
tiskarnu nekdy ano, nekdy ne.
Zkusili jsme plnit QRImage na BeforePrint Bandu pomoci
QRImage1.Picture.LoadFromFile dopada to
uplne stejne.
Jak donutit QR, aby obsah Image neztracel pri tisku.
autoupdate
[*] David Majda <david.majda(zv)seznam(tec)cz> - 04.6.2001 21:10:28
Na www.utilmind.com by mela byt komponenta AutoUpdate, ktera presne
tohle resi.
Pavel Kupka wrote:
> Ahoj,
> chtel bych pridat do svyho programu autoupdate novych verzi z inetu.
> Resil jste uz nekdo neco podobnyho?
> Je na to nejaka komponenta?
> Diky
> Pavel Kupka
>
>
>
>
--
--------------------------------------------------
E-mail: david.majda(zv)seznam(tec)cz
WWW: http://dmajda.hyperlink(tec)cz
Live long and prosper!
--------------------------------------------------
OT: Prevod z VC++ do Delphi4
[*] David Majda <david.majda(zv)seznam(tec)cz> - 04.6.2001 21:10:42
Soucasti FreePascalu (www.freepascal.org) je i utilita na prevod
havickovych souboru do .pas (jemnuje se h2pas - prekvapive :-)
Neni to sice zrejme presne to, co hledas, ale mozna to aspon trochu pomuze.
Ing. Vladim�r R��i�ka wrote:
> existuje nejaky soft, ktery dela to co je v %subj ?
> Potrebuju prekopat jednu aplikaci - pracuje i s DLL-kama. Nejsem dobry v
--
--------------------------------------------------
E-mail: david.majda(zv)seznam(tec)cz
WWW: http://dmajda.hyperlink(tec)cz
Live long and prosper!
--------------------------------------------------
Dock a undock toolbaru
[*] Hurricane <hurricane(zv)quick(tec)cz> - 4.6.2001 21:19:28
Zdravim
Umi to ToolBar 2K. Zatim je to sice jen beta, ale vysoce pouzitelna. Fianlni
verze bude co nevidet. Roste to na http://www.jrsoftware.org.
Je tam ToolBar 97, taky mooc dobry.
Hurricane
----- Original Message -----
From: "Milan Tome#" <Milan.Tomes(zv)haida(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, June 04, 2001 1:30 PM
Subject: Dock a undock toolbaru
> Zdravim vsechny,
>
> chtel bych do aplikace zabudovat toolbary. To bych jeste dokazal, ale
chtel bych
> aby se chovali tak jako v Delphi tj. aby se misto obdelniku zobrazoval
jejich
> obsah a zaroven to okamzite reagovalo na undock i dock aniz bych musel
poustet
> tlacitko mysi. Muze mi nekdo poradit ???
> A jeste jedna vec: Mate nekdo reseni jak na toolbar umistit menu ? Videl
jsem
> tady nekolik reseni napr. tlacitka, ktera oteviraji popupmenu atp...
Muzete mi
> pripadne poslat kousek zdrojaku.
>
> Diky
>
> S pozdravem
>
> Milan Tome#
> Vedouc� v�vojov�ho t�mu Windows
> Softwarehouse HAiDA s.r.o.
> Nov� Bor
> tel: 0424/722291, 0424/222284
> email: Milan.Tomes(zv)haida(tec)cz
>Linuxovsky disk ve Win
[*] Hurricane <hurricane(zv)quick(tec)cz> - 4.6.2001 21:20:32
Zdravim
Mam program, chces poslat?
Hurricane
----- Original Message -----
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, June 04, 2001 3:11 PM
Subject: Re: Linuxovsky disk ve Win
>
> > Ahoj,
> > omlouvam se za OT
> >
> > nevi nekdo o nejakem (free) programku ci driveru, pomoci ktereho bych
mohl
> > pouzivat ve win disk, naformatovany na Ext2? Melo by to fungovat na W2K
a
> > staci mi pristup pro cteni...
> >
> zadal jsem na www.google.com nasledujici klicova slova:
>
> ext2 driver windows
>
> a nejake odkazy vypadly.
>
> V krajnim pripade je mozne rozebehnout Win a Linux na jednom stroji
najednou
> (VMWarem napriklad) a data nasdilet
>
> D. Toman
>
>
>Upravy textu pri odesilani
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 4.6.2001 21:53:49
Ahoj, zdravim.
Nevite nekdo, jak mam udelat nasledujici.
Pouzivam komponentu NMSMTP pro odesilani posty. V RichEditu mam nejaky text
a pomoci velikosti, druhu pisma, tloustky a podtrzeni ho muzu menit. Kdyz ho
ale odeslu, prijde jako obycejny text a takove veci jako je druh pisma,
velikost, podtrzeni atd. tam uz nejsou. Nevite nekdo, jak to mam udelat aby
to tam bylo ?
Diky za pomoc.
Filip Hazuka TTreeView ---->tvorba vetvi a podvetvi za chodu
[*] Martin Mojzis <mojzis(zv)rpnet(tec)cz> - 4.6.2001 23:04:15
Zdravim,
nova vetev se vytvori pomoci funkce Add ve vlastnosti Items. Syntaxe je Add
( Predchozi_vetev, nazev_vetve ) a funkce vraci nove vytvoreny objekt.
Vetev, ktera je aktivni, je ulozena ve vlastnosti selected.
Napr:
....
NextNode: TTreeNode;
begin
NextNode := TreeView1.Items.Add(TreeView1.Selected,'Dalsi vetev');
.....
Podvetev se vytvori pomoci funkce AddChild, ktera ma stejnou syntaxi.
From: "Ales Pavel" <Bejcek(zv)centrum(tec)cz>
> Nazdar jak tvorite vetve a podvetve za chodu U treeViewu? Potrebuji si
> vycreatovat tuto slozku na miste na kterem si zvolim.Tj. odchytavam klick
> mysky a na jejim miste tvorim treeview a vni mam preddefinovane polozky
jak
> to udelam abych ty polozky vycreatoval spolu s treeviewem?
> Tez bych pak pokud budu mit 2 nebo 3 polozky treelist udelat cary od jedne
k
> druhe, znate preci datove diagramy tak neco takoveho nevite nekdo jak se
ta
> cara nakresli?
>
> Diky Aldik
> Amater (ale snazivej!!!)
> D5Ent.W98 PIICeleron400
>
>Sprava verzi v D5
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.6.2001 23:12:21
From: "Phill" <pedrophill(zv)seznam(tec)cz>
> nedavno se tu nekdo zminil a necem jako version control system. Chtel
> bych vedet, jestli nemate nakej dobrej tip na takovej program. Nejlepsi by
Ahoj,
http://www.freevcs.de
Petr Vones, amatersky programator
Upravy textu pri odesilani
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 4.6.2001 23:16:50
NMSMTP.SubType := mtEnriched
Nicmene to neni zrovna moc standardni....
end ohekzeh minarp a mevardzop S
arebmehcS naliM
ERAWTFOSSIM
444449/8060 .let
zc.erawtfossim.www\\:ptth
> -----Original Message-----
> From: Hazuka Filip
> Pouzivam komponentu NMSMTP pro odesilani posty. V RichEditu
> mam nejaky text
> a pomoci velikosti, druhu pisma, tloustky a podtrzeni ho muzu
> menit. Kdyz ho
> ale odeslu, prijde jako obycejny text a takove veci jako je
> druh pisma,
> velikost, podtrzeni atd. tam uz nejsou. Nevite nekdo, jak to
> mam udelat aby
> to tam bylo ?
znulovanie premennej
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.6.2001 23:25:12
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> 1) v Deklaraci chybi VAR
> 2) bude-li tam VAR nelze volat proceduru s konstatnim parametrem
Ahoj,
ponekud prekombinovane by to slo resit takhle:
procedure ClearIntegers(const Ints: array of PInteger);
var
I: Integer;
begin
for I := Low(Ints) to High(Ints) do
Ints[I]^ := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
A, B, C: Integer;
begin
ClearIntegers([(zv)A, (zv)B, (zv)C]);
ShowMessageFmt('%d %d %d', [A, B, C]);
end;
Nebo jeste lepe <g>
procedure ClearIntegers(var I1: Integer); overload;
begin
I1 := 0;
end;
procedure ClearIntegers(var I1, I2: Integer); overload;
begin
I1 := 0;
I2 := 0;
end;
procedure ClearIntegers(var I1, I2, I3: Integer); overload;
begin
I1 := 0;
I2 := 0;
I3 := 0;
end;
[... 100]
procedure TForm1.Button1Click(Sender: TObject);
var
A, B, C: Integer;
begin
ClearIntegers(A, B, C);
ShowMessageFmt('%d %d %d', [A, B, C]);
end;
Petr Vones, amatersky programator
QueryBox nebo tak nejak
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.6.2001 23:50:53
From: "Ales Pavel" <Bejcek(zv)centrum(tec)cz>
> Ahoj kdysi jsem pouzival proceduru vyvolavajici formular, prikaz mel v nazvu
> Query,fungoval podobne jako MessageDlg, zadalo se par parametru a objevil se
Ahoj,
InputQuery.
Petr Vones, amatersky programator
Dock a undock toolbaru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.6.2001 00:04:37
From: "Milan Tome#" <Milan.Tomes(zv)haida(tec)cz>
> chtel bych do aplikace zabudovat toolbary. To bych jeste dokazal, ale chtel
> bych aby se chovali tak jako v Delphi tj. aby se misto obdelniku zobrazoval
> jejich obsah a zaroven to okamzite reagovalo na undock i dock aniz bych
Ahoj,
v The Delphi Magazine, Issue63 vysel clanek o dockingu, priklady jsou zde:
http://www.thedelphimagazine.com/Disks.htm
DockedControls8.dpr a nasledujici priklady je asi to co hledas.
> A jeste jedna vec: Mate nekdo reseni jak na toolbar umistit menu ? Videl
Podivej se na funkci JvCreateToolBarMenu v unitu JvCtrlUtils. Staci na
formulari vytvorit klasicke menu pomoci TMainMenu, dale vlozit prazdny
TToolBar, zavolat danou funkci a predat ji formular s menu a toolbar:
http://www.egroups.com/files/JEDI-VCL/JediVCLpv.zip
Petr Vones, amatersky programator
jak zapsat do bunky u StringGrid text na vice radk
[*] Johnboy <bachor(zv)iol(tec)cz> - 5.6.2001 00:33:10
Zdrawim
chci se zeptat da se nejak do bunky ve StringGridu zapsat text na vice radku
? s pozdravem Johnboy
----------------------------------------------------------------------------
----
[ http://john.boy(tec)cz ]=[ john(zv)boy(tec)cz ]=[ icq uin: 31198330 ]
----------------------------------------------------------------------------
----
QueryBox nebo tak nejak
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 5.6.2001 01:10:19
----- Original Message -----
From: "Ales Pavel" <Bejcek(zv)centrum(tec)cz>
> Ahoj kdysi jsem pouzival proceduru vyvolavajici formular, prikaz mel v
nazvu
> Query,fungoval podobne jako MessageDlg, zadalo se par parametru a objevil
se
> formular s jednim editem.Nenapovite mi nekdo jak se ta procedura
....
Ahoj.
function InputQuery(const ACaption, APrompt: string; var Value: string):
Boolean;
function InputBox(const ACaption, APrompt, ADefault: string): string;
Ludek
D5 Stan. & DB ;)))))))
[*] Monika Krehlikova <obchod(zv)moniak(tec)cz> - 05.6.2001 01:18:09
Hello,
>existuji na iNetu nejake free komponenty podobne TTable a TQuery. Take by se
>mi hodil free produkt podobny Database Desktop.
VolgaDB Engine 2.0 consists with TVolgaTable, TVolgaQuery, TVolgaDatabase
and Volga Data Desktop utility for local access to flat files in own
("Volga") format without BDE.
TVolgaTable is Delphi and C++Builder component, inherited from TDataSet,
for fast access to "flat" files and in-memory tables.
TVolgaQuery is similar TQuery for querying data in Volga tables.
Volga engine is useful in local single-user applications with
simple database structure. Distribution of your applications will be
very simple - only copy exe and data files into any folder and
it works! All additional code (~130Kb) is included in your exe or
in external package. It is ideally satisfies the requirements for
read only databases placed at CD-ROM
http://volgatable.chat.ru
VolgaDB Engine is Copyright (C) 2000, Vlasova Olga
Nevim jak moc je to free, ale vzhledem k tomu ze to psala nejaka ruska
girl, by to mohlo bejt celkem levny :P
hx
jak zapsat do bunky u StringGrid text na vice radk
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.6.2001 01:44:47
From: "Johnboy" <bachor(zv)iol(tec)cz>
> chci se zeptat da se nejak do bunky ve StringGridu zapsat text na vice
> radku ?
Ahoj,
napriklad takhle:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
R: TRect;
begin
with TStringGrid(Sender) do
begin
Canvas.FillRect(Rect);
R := Rect;
InflateRect(R, -2, -2);
DrawText(Canvas.Handle, PChar(Cells[ACol, ARow]), -1, R, DT_LEFT or DT_TOP
or DT_WORDBREAK);
end;
end;
Petr Vones, amatersky programator
QueryBox nebo tak nejak
[*] "FAIT Ji��, ml." <fait(zv)jakl(tec)cz> - 5.6.2001 06:45:40
Zkus InputBox :))
> -----Original Message-----
> From: Ales Pavel [mailto:Bejcek(zv)centrum(tec)cz]
> Sent: Monday, June 04, 2001 7:15 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: QueryBox nebo tak nejak
>
>
> Ahoj kdysi jsem pouzival proceduru vyvolavajici formular,
> prikaz mel v nazvu
> Query,fungoval podobne jako MessageDlg, zadalo se par
> parametru a objevil se
> formular s jednim editem.Nenapovite mi nekdo jak se ta procedura
> jmenovala,je to standartni vybava Delphi, docela by se mi to
> ted hodilo..
> Vyhledavani podle Query je bez uspechu...query je totiz dost pouzivany
> slovo.Nechce se mi pokazde tvorit formular obzvlaste pokud je to tu uz
> hotove
>
> Dekuji moc
> Aldik Pavel
> Amater (ale snazivej) D5 Ent W98 Celeron 400 64RAM
>
> Image ze schranky
[*] Valenta Patrik <valentapat(zv)volny(tec)cz> - 5.6.2001 06:52:13
Muzete nekdo pomoct ?
snazim se dynamicky vatvaret Images asi takto :
Inc(celkem);
MyImage:=TImage.Create(Self);
MyImage.Name:='Mojpic'+IntToStr(celkem);
MyImage.Parent:= GroupBox1;
MyImage.Left:=250;
MyImage.Top:= (250);
a ted tam potrebuju dostat bitmapu ze schranky ?
e-mail : valentapat(zv)volny(tec)cz
ICQ: 54152896
ciarove kody
[*] kinekus <kinekus(zv)nextra.sk> - 5.6.2001 07:09:24
D4,W98
Zdravim delphi,
mam otazku, na ktoru mi dufam niekto odpovie.
Mam komponentu na tlac ciarovych kodov v QReport. Prvu hodnotu do komponenty
zapisem cez QuickRep1NeedData. Problem nastava v momente, ako zapisat druhu,
tretiu .... hodnotu, tak, aby som na liste A4 nemal iba jeden ciarovy kod.
Urcite musim pouzit cyklus, ale neviem aky.
Som samouk, dakujem za radu.
Milan F�bik
Parametr
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 5.6.2001 07:56:49
Jenze podminka byla ( pokud se nemylim), ze Libor nechtel vyuzivat
schranku)... Takze tam opravdu vidim jedinou moznost a to WM_COPYDATA
Martin
> -----Original Message-----
> From: ing. Jan Fiala [mailto:jan.fiala(zv)iol(tec)cz]
>
> Podle me by bylo mnohem jednodussi mit v tray programek, ktery si
> hlida schranku a jakmile neco zkopiruji do schranky, zareaguje.
> Delphi IDE and packages - Internal error U704, Bad
[*] likeapear <likeapear(zv)centrum(tec)cz> - 5.6.2001 08:22:29
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> zkus BPL vyradit z te grupy.
>
Prisel jsem na to, ze pri prepinani mezi projektama (v grupe) a jejich
buildovani se nekdy u balicku stane to, ze ulozi dcp-soubor jinam nez do
output path. Tahle vec pak zpusobuje hlasku Bad packaged unit format (dcp je
na dvou mistech kazda v jine verzi). Je potreba ten bpl opravdu z grupy
vyhodit, a po jeho zmene zavrit ostatni projekty, buildnout ho a pak
pracovat s ostatnimi projekty.
likeapear
ciarove kody
[*] V�t Kr�ka����+?#�$g�^#�3 - 5.6.2001 08:28:43
ahoj,
podivej se do prikladu k delfam (delphi\demos\quickrpt\qrx) tam je to pekne
videt. ale dela se to tak ze nadefinujes v unite pole hodnot (tvoje carove
kody) a pocitadlo (integer). pred tiskem nezapomen pocitadlo vynulovat. v
udalosti OnNeedData pak vlozis z pole prislusna data na report a
inkrementujes pocitadlo. jestlize pocitadlo prekrocilo velikost (pocet
zaznamu) pole, tak do promenne MoreData vlozis False, jikak kdyz chces dalsi
radek tam musis vlozit True, protoze defaultni hodnota je False. promenna
MoreData je definovana v udalosti OnNeedData.
vitek
>
> mam otazku, na ktoru mi dufam niekto odpovie.
> Mam komponentu na tlac ciarovych kodov v QReport. Prvu hodnotu do
> komponenty
> zapisem cez QuickRep1NeedData. Problem nastava v momente, ako
> zapisat druhu,
> tretiu .... hodnotu, tak, aby som na liste A4 nemal iba jeden ciarovy kod.
> Urcite musim pouzit cyklus, ale neviem aky.
>
> Som samouk, dakujem za radu.
>
> Milan F�bik
>
>QueryBox nebo tak nejak
[*] mstevlik(zv)gamo.sk - 5.6.2001 08:43:16
Ta fcia je InputQuery
Stevlik Marian
ISYS-KOM programator
GAMO a.s., Banska Bystrica
+421 88 413 7935, 413 2942
mstevlik(zv)gamo.sk
+421 905 462 010
ICQ: 38493645
Linuxovsky disk ve Win
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 5.6.2001 08:52:08
> bych mohl
> pouzivat ve win disk, naformatovany na Ext2? Melo by to fungovat na W2K a
viz. http://www.linuxdoc.org/HOWTO/Filesystems-HOWTO-6.html
6.10 Accessing Ext2 from Windows NT (ext2fsnt)
Homepage: http://www.chat.ru/~ashedel/ext2fsnt/
Download: http://www.chat.ru/~ashedel/ext2fsnt/ext2fsnt.rar
Author: Andrey Shedel < andreys(zv)cr.cyco.com >
Freshmeat: Console/Filesystems
License: Free
Access: Read-write, LFN, Security, PageFile, Hardlinks.
T.
Zjisteni pocitacu v siti
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 5.6.2001 08:59:00
> Delam zabezpecovaci program pro internetovou kavarnu a narazil jsem na =
> jeden problem. Jakym zpusobem zjistim,ktere a kolik pocitacu je zrovna =
> prihlaseno v siti?
jedine propingat. Existuji i dalsi zpusoby (enumerace serveru atd, ale ty
nejsou spolehlive a neobsahuji zdaleka vsechny pocitace; priposlech paketu
na sitovce a detekce cizich IPcek (zvlast vyhodne je poslouchat ARP
dotazy/odezvy); ...).
>
> Stejne tak by me zajimalo, jak zjistim sitove jmeno pocitace, na kterem =
GetHostName()
D. Toman
OT: Prevod z VC++ do Delphi4
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 5.6.2001 09:01:01
>Soucasti FreePascalu (www.freepascal.org) je i utilita na prevod
>havickovych souboru do .pas (jemnuje se h2pas - prekvapive :-)
>Neni to sice zrejme presne to, co hledas, ale mozna to aspon trochu pomuze.
uz podle nazvu to prevadi jen Cckove header fily (*.h) coz je ponekud jiny
kafe. Header file obsahuji jen definice konstant a hlavicky funkci, atd.
D. Toman
clientwidth
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 5.6.2001 09:05:02
Hi,
mam takovej problem, mam MDI form a na nem MDIChild okno,
Chtel bych aby toto okno se objevilo v pravem hornim rohu hlavniho
formulare ten je Main_F.
Do Create childu jsem napsal :
Top := 0;
Left := Main_F.ClientWidth - Width - 4;
Ta 4ka je vysledkem experimentu pokud tam neni tak je okno
mimo plochu a zobrazi se scrollbar. Ta konstanta to sice resi, ale
mam strach, ze aby to tak bylo na vsech pocitacich, nevite co tam
napsat misto toho????
Dekuji predem
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
DLL - stringy
[*] Radek Janu� FSG <janus(zv)foresta(tec)cz> - 5.6.2001 09:55:53
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Ahoj mam takovy mensi problem,
pouzivam DLL knihovny a potrebuju jako parametry a resulty funkci v DLL knihovne predavat stringy.
Jako prvni do USES projektu DLL jsem dal unitu ShareMem(dle popisu od Borlandu),v adresare aplikace mam i khihovnu borlndmm.dll ktera obsahuje unitu ShareMem pro obsluhu retezcu.
Pokud zavolam poprve nejakou funkci z meho Dll-ka tak poprve to probehne spravne, podruhe vsak vybehne chybova hlaska Acces violation........in borlndmm.dll . Nesetkal se nekdo s podobnym problemem ?
Diky moc Radek
Upravy textu v RichEdit pri odesilani
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 5.6.2001 09:55:19
Ahoj, zdravim.
Muj dotaz se nejspis ztratil, protoze nepredpokladam, ze by pro vas byl
nejak obtizny.
Nevite nekdo, jak mam udelat nasledujici.
Pouzivam komponentu NMSMTP pro odesilani posty. V RichEditu mam nejaky text
a pomoci velikosti, druhu pisma, tloustky a podtrzeni ho muzu menit. Kdyz ho
ale odeslu, prijde jako obycejny text a takove veci jako je druh pisma,
velikost, podtrzeni atd. tam uz nejsou. Nevite nekdo, jak to mam udelat aby
to tam bylo ?
Diky za pomoc.
Filip Hazuka RichEdit - tisk
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 5.6.2001 09:56:38
Ahoj, zdravim vsechny.
Poradte mi prosim nekdo. Potreboval bych upravit nasledujici kod tak, aby mi
to tisklo vice stranek, podel toho kolik jich je v tom RichEditu ? Ted to
tiskne pouze jednu. Nevite nekdo jak na to ?
procedure TForm1.Button2Click(Sender: TObject);
var
printarea: TRect;
x, y: Integer;
richedit_outputarea: TRect;
printresX, printresY: Integer;
fmtRange: TFormatRange;
begin
Printer.beginDoc;
try
with Printer.Canvas do begin
printresX := GetDeviceCaps( handle, LOGPIXELSX );
printresY := GetDeviceCaps( handle, LOGPIXELSY );
Font.Name := 'Arial';
Font.Size := 14;
Font.Style := [fsBold];
printarea :=
Rect( printresX, {1 inch left margin}
printresY * 3 div 2, {1.5 inch top margin}
Printer.PageWidth - printresX, {1 inch right margin}
Printer.PageHeight - printresY * 3 div 2 {1.5 inch bottom margin}
);
x := printarea.left;
y := printarea.top;
TextOut( x, y, 'A TRichEdit print example' );
y := y + TextHeight('Ag');
Moveto( x, y );
Pen.Width := printresY div 72; {1 point}
Pen.Style := psSolid;
Pen.Color := clBlack;
LineTo( printarea.Right, y );
Inc( y, printresY * 5 div 72 );
{Define a rectangle for the rich edit text. The height is set to the
maximum. But
we need to convert from device units to twips, 1 twip = 1/1440 inch or
1/20 point.}
richedit_outputarea := Rect( (printarea.left+2) * 1440 div printresX,
y * 1440 div printresY,
(printarea.right-4) * 1440 div printresX,
(printarea.bottom)* 1440
div printresY );
{Tell rich edit to format its text to the printer. First set up data
record for message:}
fmtRange.hDC := Handle; {printer handle}
fmtRange.hdcTarget := Handle; {ditto}
fmtRange.rc := richedit_outputarea;
fmtRange.rcPage := Rect( 0, 0, Printer.PageWidth * 1440 div printresX,
Printer.PageHeight * 1440 div
printresY );
fmtRange.chrg.cpMin := 0;
fmtRange.chrg.cpMax := richedit1.GetTextLen - 1;
{first measure the text, to find out how high the format rectangle
will be. The call sets
fmtrange.rc.bottom to the actual height required, if all characters in
the selected range
will fit into a smaller rectangle}
richedit1.Perform( EM_FORMATRANGE, 0, Longint((zv)fmtRange));
{Draw a rectangle around the format rectangle}
Pen.Width := printresY div 144; {0.5 points}
Brush.Style := bsClear;
Rectangle( printarea.Left, y - 2, printarea.right, fmtrange.rc.bottom
* printresY div 1440 + 2 );
{Now render the text}
richedit1.Perform( EM_FORMATRANGE, 1, Longint((zv)fmtRange));
y := fmtrange.rc.bottom * printresY div 1440 + printresY * 5 div 72;
{Free cached information}
richedit1.Perform( EM_FORMATRANGE, 0, 0);
TextOut( x, y, 'End of example.' );
end;
finally
Printer.EndDoc;
end;
end;
Diky za pomoc. Filip.DLL - stringy
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 5.6.2001 10:00:10
> pouzivam DLL knihovny a potrebuju jako parametry a resulty funkci v DLL
knihovne
> predavat stringy.
Pokud to jde, tak je jednodussi pouzit PChar ...
T.
DLL - stringy
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 05.6.2001 10:14:18
>pouzivam DLL knihovny a potrebuju jako parametry a resulty funkci v DLL
>knihovne predavat stringy.
>Jako prvni do USES projektu DLL jsem dal unitu ShareMem(dle popisu od
>Borlandu),v adresare aplikace mam i khihovnu
>borlndmm.dll ktera obsahuje unitu ShareMem pro obsluhu retezcu.
ShareMem musi byt v projektu jak u DLL tak i u PROGRAMU a to NA PRVNIM
MISTE V USES v kazdem z DPR!!!!!> 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/
---------------------------------------------------------------------------
Image ze schranky
[*] Robert Suska <robert(zv)korak.sk> - 5.6.2001 10:39:47
Mam taky tusak ze sa to da cez Image1.Picture.Bitmap.Assign(Clipboard.
neviem co ale viem ze to ide )
Dufam ze som Ta aspon trosku nakopol
S pozdravom, Robo
----- Original Message -----
From: "Valenta Patrik" <valentapat(zv)volny(tec)cz>
To: "Delphi konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, June 05, 2001 6:52 AM
Subject: Image ze schranky
> Muzete nekdo pomoct ?
> snazim se dynamicky vatvaret Images asi takto :
> Inc(celkem);
> MyImage:=TImage.Create(Self);
> MyImage.Name:='Mojpic'+IntToStr(celkem);
> MyImage.Parent:= GroupBox1;
> MyImage.Left:=250;
> MyImage.Top:= (250);
>
> a ted tam potrebuju dostat bitmapu ze schranky ?
>
> e-mail : valentapat(zv)volny(tec)cz
> ICQ: 54152896
>
>
>Zjisteni pocitacu v siti
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 5.6.2001 10:41:45
> Stejne tak by me zajimalo, jak zjistim sitove jmeno pocitace, na kterem =
> je zrovna program spusten.
>
JCL Lib - Unit: JclSysInfo - function GetLocalComputerName: string;
T.D5 Stan. & DB ;)))))))
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 5.6.2001 10:54:19
On 5 Jun 2001, at 1:18, Monika Krehlikova wrote:
> >existuji na iNetu nejake free komponenty podobne TTable a TQuery.
> >Take by se mi hodil free produkt podobny Database Desktop.
>
> VolgaDB Engine 2.0 consists with TVolgaTable, TVolgaQuery,
> TVolgaDatabase and Volga Data Desktop utility for local access to flat
> files in own ("Volga") format without BDE. TVolgaTable is Delphi and
> C++Builder component, inherited from TDataSet, for fast access to
Pokud vim, tak v D5Std neni ani TDataSet.
S pozdravem
Zbysek Hlinka
http://www.hlinka(tec)cz http://www.slhaters(tec)cz
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Zjisteni pocitacu v siti
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 5.6.2001 10:56:51
Bez zaruky:
Message 3 in thread
Z:Heri Bender (hbender(zv)ergonomics.ch)
P�edm�t:Re: List computers on the network
Newsgroups:alt.comp.lang.borland-delphi, borland.public.delphi.winapi
Datum:1999/12/20
Berend wrote:
>
> Hi,
>
> I'm stuck with a problem of getting a list of computers in my workgroup
in a
> listbox (for example) or a tstringlist.
>
> What I want is that computers on the network are listed in a tlistbox or
a
> tstringlist, so I can do something with the computernames.
>
> I hope someone can help me with this one, thanks
>
> Berend
Try the following code. I wrote it with D4. It works good in out NT4 LAN.
Heri Bender
unit Network;
interface
uses
// VCL:
classes,sysutils,windows;
procedure GetNetworkList(sl : TStrings);
procedure GetDomainList(const sNetwork : string; sl : TStrings);
procedure GetServerList(const sDomain,sNetwork : string; sl : TStrings);
procedure GetShareList(const sServer : string; sl : TStrings);
type
eNetEnum = class(exception)
private
FWinError : integer;
FNetError : integer;
public
constructor Create(const aMsg : string; aWinError : integer; aNetError
: integer);
property iWinError : integer
read FWinError write FWinError;
property iNetError : integer
read FNetError write FNetError;
end;
implementation
type
TenEnumKind = (ekNetwork,ekDomain,ekServer,ekShare);
const
kasEnumKind : array[TenEnumKind] of string[20] =
(
'Network',
'Domain',
'Server',
'Share'
);
function GetExtendedError(iWinErr : integer) : eNetEnum;
const
kiDesc = 255;
kiProvider = 255;
var
iNetErr : integer;
zDesc : array[0..pred(kiDesc)] of char;
zProvider : array[0..pred(kiProvider)] of char;
sDesc : String;
sProvider : string;
begin
setLength(sDesc,kiDesc);
SetLength(sProvider,kiProvider);
WNetGetLastError(iNetErr,zDesc,kiDesc,zProvider,kiProvider);
sDesc := StrPas(zDesc);
sProvider := StrPas(zProvider);
result := eNetEnum.Create(format('Net error %d occured. Message: "%s";
Provider:
"%s"',[iNetErr,sDesc,sProvider]),iWinErr,iNetErr);
end;
procedure EnumNetRes(aScope,aType,aUsage : integer; prNetRes :
PNetResource; sl : TStrings; ek :
TenEnumKind);
const
kiNetResCount = 1024;
type
TarNetRes = array[0..pred(kiNetResCount)] of TNetResource;
procedure FillEntries(arNetRes : TarNetRes; iCount : integer);
var
i : integer;
begin
for i := 0 to pred(iCount) do begin
sl.Add(arNetRes[i].lpRemoteName);
end; // for i
end;
procedure DoEnum(hEnum : THandle);
var
iWinErr : integer;
arNetRes : TarNetRes;
iCount : integer;
dwBufSize : DWord;
begin
iCount := -1;
fillchar(arNetRes,sizeof(arNetRes),0);
dwBufSize := SizeOf(arNetRes);
iWinErr := WNetEnumResource( hEnum,
iCount,
(zv)arNetRes[0],
dwBufSize);
case iWinErr of
No_Error : FillEntries(arNetRes,iCount);
ERROR_NO_MORE_ITEMS,
ERROR_INVALID_PARAMETER : ;
ERROR_ACCESS_DENIED : sl.Add('Access denied');
ERROR_EXTENDED_ERROR : raise GetExtendedError(iWinErr);
else
raise eNetEnum.Create(format('Error in Get%sList. WinError: %d,
NetError:
%d',[kasEnumKind[ek],iWinErr,0]),iWinErr,0);
end; // case
end;
var
iWinErr : Integer;
hEnum : THandle;
begin
iWinErr := WNetOpenEnum(aScope,aType,aUsage,prNetRes,hEnum);
try
case iWinErr of
NO_ERROR : DoEnum(hEnum);
ERROR_NO_MORE_ITEMS,
ERROR_INVALID_PARAMETER : ;
ERROR_ACCESS_DENIED : sl.Add('Access denied');
ERROR_EXTENDED_ERROR : raise GetExtendedError(iWinErr);
else
raise eNetEnum.Create(format('Error in Get%sList. WinError: %d,
NetError:
%d',[kasEnumKind[ek],iWinErr,0]),iWinErr,0);
end; // case
finally
WNetCloseEnum(hEnum);
end;
end;
procedure GetNetworkList(sl : TStrings);
begin
if sl = nil then exit;
sl.BeginUpdate;
try
sl.Clear;
EnumNetRes(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,RESOURCEUSAGE_CONTAINER,nil,
sl,ekNetwork);
finally
sl.EndUpdate;
end;
end;
procedure GetDomainList(const sNetwork : string; sl : TStrings);
var
rNetRes : TNetResource;
begin
if sl = nil then exit;
sl.BeginUpdate;
try
sl.Clear;
{ Start here }
with rNetRes do begin
dwScope := RESOURCE_GLOBALNET;
dwType := RESOURCETYPE_ANY ;
dwDisplayType := RESOURCEDISPLAYTYPE_NETWORK;
dwUsage := -2147483646;
lpLocalName := nil;
lpRemoteName := pChar(sNetwork);
lpComment := nil;
lpProvider := pChar(sNetwork);
end;
EnumNetRes(RESOURCE_GLOBALNET,RESOURCETYPE_Disk,3,(zv)rNetRes,sl,ekDomain);
finally
sl.EndUpdate;
end;
end;
procedure GetServerList(const sDomain,sNetwork : string; sl : TStrings);
var
rNetRes : TNetResource;
begin
if sl = nil then exit;
sl.BeginUpdate;
try
sl.Clear;
with rNetRes do begin
dwScope := RESOURCE_GLOBALNET;
dwType := RESOURCETYPE_ANY;
dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;
dwUsage := RESOURCEUSAGE_CONTAINER;
lpLocalName := nil;
lpRemoteName := pChar(sDomain);
lpComment := nil;
lpProvider := pChar(sNetwork);
end;
EnumNetRes(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,RESOURCEUSAGE_CONTAINER,(zv)rNe
tRes,sl,ekServer);
finally
sl.EndUpdate;
end;
end;
procedure GetShareList(const sServer : string; sl : TStrings);
var
rNetRes : TNetResource;
begin
if sl = nil then exit;
sl.BeginUpdate;
try
sl.Clear;
with rNetRes do begin
dwScope := RESOURCE_GLOBALNET;
dwType := RESOURCETYPE_DISK;
dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;
dwUsage := RESOURCEUSAGE_CONTAINER ;
lpLocalName := nil;
lpRemoteName := pChar(sServer);
lpComment := nil;
lpProvider := 'Microsoft Windows Network'; // ???
end;
EnumNetRes(RESOURCE_GLOBALNET,RESOURCETYPE_DISK,RESOURCEUSAGE_CONNECTABLE,(zv)
rNetRes,sl,ekShare);
finally
sl.EndUpdate;
end;
end;
(**************************************************************************
****)
(******************************* eNetEnum
*************************************)
(**************************************************************************
****)
constructor eNetEnum.create(const aMsg : string; aWinError : integer;
aNetError : integer);
begin
inherited create(aMsg);
FWinError := aWinError;
FNetError := aNetError;
end;DLL - stringy
[*] brant(zv)dcomm(tec)cz - 5.6.2001 10:58:07
Pokud jde o predavani stringu, je spolehlivejsi pouzit PCHar, je ovsem nutne
davat pozor na alokaci pameti, dodrzovat velikosti retezcu apod. Mene
pohodlne, ale spolehlive.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Tel. 0724/007234
pouzivam DLL knihovny a potrebuju jako parametry a resulty funkci v DLL
knihovne predavat stringy.
Jako prvni do USES projektu DLL jsem dal unitu ShareMem(dle popisu od
Borlandu),v adresare aplikace mam i khihovnu borlndmm.dll ktera obsahuje
unitu ShareMem pro obsluhu retezcu.
Pokud zavolam poprve nejakou funkci z meho Dll-ka tak poprve to probehne
spravne, podruhe vsak vybehne chybova hlaska Acces violation........in
borlndmm.dll . OT: Editor pro vyvojare
[*] Da�a Petr <Petr.Dana(zv)pvt(tec)cz> - 5.6.2001 11:04:25
Zdravim,
omlouvam se za OT, ale treba nekdo o necem vite.
Potreboval bych nejaky editor pro vyvojare (programatory) - pro vlastni
nekomercni pouziti, takze kdyby byl free nebo free za podminky nekomercniho
pouziti, bylo by to super.
Chtel bych, aby umel obarvovat syntaxi (jaky i se sakra pise ? :-) ), aby
byl lehce rozsiritelnej pomoci vlastnich pluginu.
Pokud by nebyla rozsiritelnost, tak by mel jeste umet workspace, cist a
ukladat soubory primo z FTP, "inteligentni" prepinani otevrenych oken (tak
jako se prepinaji aplikace v systemu), moznost nastavit kodovani
jednotlivych souboru (hlavne win1250 a iso-8859-2, kdy byl i utf-8, taky
bych se nezlobil ;-) ) a spoustu dalsich veci ... :-)
No, naroky to jsou sahodlouhe ...
Ja jsem si takovy editor psal sam, ale uz na to nemam absolutne cas, mozna
nekdy pozdeji, takze hledam, jestli neexistuje neco hotoveho.
Kdysi jsem videl nejaky NoteTab, mel nekolik verzi (Lite, Pro ?). Pouzival
ho nekdy nekdo z vas a pokud ano, da se s nim delat (mam dojem, ze tam byly
i ty pluginy ...)?
Diky za odpovedi, kdyztak muzete psat primo na moji adresu, abyste zbytecne
nezaplacavali kongeru ;-)
Petr
DLL -jeste jednou PChar
[*] Radek Janu� FSG <janus(zv)foresta(tec)cz> - 5.6.2001 11:11:43
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
DLL -jeste jednou PChar
Ahoj!
> pouzivam DLL knihovny a potrebuju jako parametry a resulty funkci v DLL knihovne predavat stringy.
> Jako prvni do USES projektu DLL jsem dal unitu ShareMem(dle
> popisu od Borlandu),v adresare aplikace mam i khihovnu borlndmm.dll .................
Ja jsem kdysi podobny problem resil tak, ze ty retezce jsem
predaval jako PChar a slapalo to.Jirka.
>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Delam to teda pomoci PCharu,kde mam funkci , ktera mi vraci pres VAR parametr promennou typu PCHAR.
Funkce opravdu dosadi do toho varu to co ma napr. retezec "Server".
V samotne aplikaci vsak po yavolani teto funkce se objevi ve vuru jen "Servo", proc mi to tak oreze, uz nad tim badam pul dne a nevim si s tim rady.
Diky za pomoc Radek
clientwidth
[*] Marek Muller <delphi-konference(zv)bcpraha(tec)com> - 5.6.2001 11:45:33
To by ti fungovalo napr. s TButtonem v normalnim formu. MDIParent form se chova trochu jinak, je treba pouzit ClientHandle:
procedure TChild_F.FormCreate(Sender: TObject);
var
R: TRect;
begin
Top := 0;
Windows.GetClientRect(Main_F.ClientHandle,R);
Left := R.Right - Width;
end;
Marek Muller
-----Original Message-----
Left := Main_F.ClientWidth - Width - 4;
Ta 4ka je vysledkem experimentu pokud tam neni tak je okno
mimo plochu a zobrazi se scrollbar. Ta konstanta to sice resi, ale
mam strach, ze aby to tak bylo na vsech pocitacich, nevite co tam
napsat misto toho????
Adonis a default hodnoty u MS-SQL
[*] Erik Salaj <winsoft(zv)stonline.sk> - 5.6.2001 12:03:09
> zkousim pracovat s trial verzi komponent Adonis, celkem vsechno pracuje
dle
> ocekavani, ale narazil jsem na problem u default hodnot. Pokud je default
> hodnota funkci napr. GETDATE(), ohlasi komponenta TADOQuery pri Insert
chybu
> "Chyba pri vice krokove operaci" a nedotahne z databaze hodnoty default
> poli. V DB je ale vsechno v poradku radek je vlozen a default hodnoty jsou
> doplneny.
Na ADO 2.6/SQL2000 mi to chodi korektne. Posielam demo priklad na sukromny
mail.
Erik
DLL - stringy
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 5.6.2001 10:08:21 met-1
Ahoj!
> pouzivam DLL knihovny a potrebuju jako parametry a resulty funkci v DLL knihovne predavat stringy.
> Jako prvni do USES projektu DLL jsem dal unitu ShareMem(dle
> popisu od Borlandu),v adresare aplikace mam i khihovnu borlndmm.dll
Ja jsem kdysi podobny problem resil tak, ze ty retezce jsem
predaval jako PChar a slapalo to.
Jirka.Jaky pouzit grid?
[*] Listuj <listuj(zv)centrum(tec)cz> - 05.6.2001 12:25:23
Zdravim vsechny,
mel bych dotaz. Potrebuji data zobrazit v datove mrizce a
jelikoz techto dat muze byt docela dost, tak se mi prilis nelibi
pouziti StringGridu pro zobrazeni. Muzete mi poradit, kterou
komponentu bych mohl pouzit, tak aby nezabirala prostredky?
Dotazy do DB pojedou pres ADO.
Pouzil bych treba DrawGrid, ale nevim jak u nej vypisovat data.
Dekuji za vase namety.*****************
Jarda Jirava
(zv)
LiStuj
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
*****************
Hrajte on-line hry na http://herna.centrum(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
TDirectoryListBox
[*] Koci Michal <Michal_Koci(zv)koba.sk> - 5.6.2001 12:27:09
Dobry den,
mam problem s horeuvedenym komponentom, ktory mi nezobrazuje adresare s
atributom "hidden", da sa to nejak zmenit?
Vopred d.
--
Michal Koci
Komercni Banka Bratislava
Sprava a vyvoj IS
07/592 77 356
Editor pro vyvojare
[*] Petr <DelphiForum(zv)seznam(tec)cz> - 5.6.2001 12:37:20
Zkus Programmers Wizard na http://pwiz.hyperlink(tec)cz/index.htm
Petr Jurik, Spravce site, programator
COMET System s.r.o.
1.Maje 1220
756 61 Roznov pod Radhostem
tel. 0651/653990
fax. 0651/653993
www.cometsystem(tec)cz
ICQ# : 119119215
> Zdravim,
> omlouvam se za OT, ale treba nekdo o necem vite.
> Potreboval bych nejaky editor pro vyvojare (programatory) - pro vlastni
> nekomercni pouziti, takze kdyby byl free nebo free za podminky
nekomercniho
> pouziti, bylo by to super.
> Chtel bych, aby umel obarvovat syntaxi (jaky i se sakra pise ? :-) ), aby
> byl lehce rozsiritelnej pomoci vlastnich pluginu.
> Pokud by nebyla rozsiritelnost, tak by mel jeste umet workspace, cist a
> ukladat soubory primo z FTP, "inteligentni" prepinani otevrenych oken (tak
> jako se prepinaji aplikace v systemu), moznost nastavit kodovani
> jednotlivych souboru (hlavne win1250 a iso-8859-2, kdy byl i utf-8, taky
> bych se nezlobil ;-) ) a spoustu dalsich veci ... :-)
> No, naroky to jsou sahodlouhe ...
> Ja jsem si takovy editor psal sam, ale uz na to nemam absolutne cas, mozna
> nekdy pozdeji, takze hledam, jestli neexistuje neco hotoveho.
> Kdysi jsem videl nejaky NoteTab, mel nekolik verzi (Lite, Pro ?). Pouzival
> ho nekdy nekdo z vas a pokud ano, da se s nim delat (mam dojem, ze tam
byly
> i ty pluginy ...)?
---
Odchoz� zpr�va neobsahuje viry.
COMET System Network Administrator.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.256 / Virov� b�ze: 129 - datum vyd�n�: 31.05.01
USB, WinME
[*] Tomas Folprecht <tomas(zv)apkfolprecht(tec)cz> - 5.6.2001 13:07:47
Dobry den vsem a prosim o radu.
Napsal jsem program v Delphi 5, ktery vyuziva seriovy port standardnim
zpusobem. Program je odladen a funguje u mnoha zakazniku na Win95/98.
Az najednou ... prisel zakaznik s novym nootebookem bez seriovych portu, jen
s USB, s Windows ME a s konvertorem USB -> COM. Pocitac ma tedy "nejaky"
COM3.
Program ale nefunguje. Asi nejsem prvni s timto problemem. Nemate nekdo
nejaky tip?
Diky
Tomas Folprecht
*************************************************
Ing. Tomas Folprecht
APK - Software
Spanielova 1298
Praha 6 -Repy
CZECH REPUBLIC
tel.: +420 - 2 - 3022091
tomas(zv)apkfolprecht(tec)cz
www.apkfolprecht(tec)cz
*************************************************Statisticky vystup cez SQL
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 05.6.2001 13:13:32
Ahoj,
neporadi nejaky SQL-guru, ako urobit
statisticky vystup napr. v tvare:
MENO POCET
novak.....5
kovac.....12
zeman.....7
bednar....2
Samozrejme, ak take nieco je
vobec cez SQL mozne (neviem,
ci som to znazornil zrozumitelne).
Vlkovic
Ukonceni programu
[*] Skokosek <skokosek(zv)seznam(tec)cz> - 5.6.2001 13:16:27
Ahoj
restart win98
ExitWindowsEx(EWX_Force,0); // potla�� hl�#ky syst�mu
exitwindowsex(EWX_REBOOT,0);
ukonceni win98
ExitWindowsEx(EWX_Force,0); // potla�� hl�#ky syst�mu
exitwindowsex(EWX_SHUTDOWN,0);
Nevim, jak je to u NT a W2000
Lada
----- Original Message -----
From: Ji�� H�sek <jiri.hysek(zv)worldonline(tec)cz>
To: Delphi-L(zv)Clexpert. Cz <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, June 04, 2001 7:17 PM
Subject: Ukonceni programu
> Zdravim,
> omlouvam se, vim ze se tohle tema probiralo v konferenci uz mnohokrat, ale
> hledal jsem v archivu a nenasel jsem to co jsem potreboval.
> Mam program, ktery se nechce ukoncit pri ukonceni windows. V archivu jsem
se
> vesmes docetl, ze musim obslouzit wm_queryendsession, aby vracela hodnotu
1.
> Program se pri ukoncovani win. sice ukoci, ale samotne windowsy zustanou.
> Ukonci se az napodruhe. Ze zoufalosti jsem tam zkousel psat inherited a
> self.close nebo obsluhovat wmendmessage a wm_syscommand, ale vsechny
> varianty
> selhaly. Jak je to tedy spr�vn�?
>
> ...
> // procedure wmsyscommand(var msg: twmsyscommand); message wm_syscommand;
> procedure wmendsession(var msg: twmendsession); message wm_endsession;
> procedure wmqueryendsession(var msg: twmendsession); message
> wm_queryendsession;
> ...
>
> {procedure TForm1.wmsyscommand(var msg: twmsyscommand);
> begin
> if msg.cmdtype and $fff0 = sc_close then begin
> self.close;
> inherited;
> end
> else inherited;
> end;}
>
> procedure TForm1.wmendsession(var msg: twmendsession);
> begin
> msg.result:=1;
> self.close;
> inherited;
> end;
>
> procedure TForm1.wmqueryendsession(var msg: twmendsession);
> begin
> msg.result:=1;
> self.close;
> inherited;
> end;
>
> Predem dekuji.
> Jiri Hysek
>
>
Upravy textu v RichEdit pri odesilani
[*] Ivan <tsx(zv)kgb(tec)cz> - 5.6.2001 13:27:09
S primym textem v mailu to s formatem textu muze byl problem.
Pokud je mi znamo (mozna se pletu), ale primy text mailu muze
byt pouze prosty text ("Content-Type: text/plain"), nebo
format HTML ("Content-Type: text/html").
But tedy muzes text prevest do html, nebo ten obsah RichEditu
(RTF) poslat jako attachment (prilohu)
I. Sivak, pocitacovy laik.
dalsi mozne "content typy" v e-mailu:
text/plain .txt 7bit
multipart/mixed 7bit
application/x-tar .tar base64
application/postscript .ps base64
application/msword .doc base64
application/octet-stream base64
application/zip .zip base64
application/pdf .pdf base64
image/jpeg .jpe,.jpg, .jpeg base64
image/ms-bmp .bmp base64
image/gif .gif base64
image/tiff .tif, .tiff base64
image/x-bmp .xbm base64
video/mpeg .mpe,.mpeg,.mpg base64
video/x-msvideo .avi base64
video/quicktime .mov,.qt base64
audio/basic .au,.snd base64
audio/x-wav .wav base64
text/html .html, .htm,.sht, .shtml 7bit
x-world/x-vrml .wrl 7bit
> Ahoj, zdravim.
> Muj dotaz se nejspis ztratil, protoze nepredpokladam, ze by pro vas byl
> nejak obtizny.
>
> Nevite nekdo, jak mam udelat nasledujici.
> Pouzivam komponentu NMSMTP pro odesilani posty. V RichEditu mam nejaky
text
> a pomoci velikosti, druhu pisma, tloustky a podtrzeni ho muzu menit. Kdyz
ho
> ale odeslu, prijde jako obycejny text a takove veci jako je druh pisma,
> velikost, podtrzeni atd. tam uz nejsou. Nevite nekdo, jak to mam udelat
aby
> to tam bylo ?
>
> Diky za pomoc.
>
> Filip Hazuka
TDirectoryListBox
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 05.6.2001 13:28:32
Ahoj,
je to sposobene implementaciou metody
ReadDirectoryNames v TDirectoryListBox.
Kedze uvedena metoda nie je virtualna,
neda sa priamo prepisat. Obist sa to
da cez metodu BuildList (tato virtualna
je), lenze trochu "necistym" sposobom,
kedze prislusne premenne su privatne.
Nemam to z vlastnej hlavy, svojho casu
mi v rovnakej veci poradil Peter Vones
nizsie uvedenym prikladom.
Vlkovic
> Dobry den,
> mam problem s horeuvedenym komponentom, ktory mi nezobrazuje adresare s
> atributom "hidden", da sa to nejak zmenit?
>
> Vopred d.
type
TDirtyDirectoryListbox = class(TCustomListBox)
private
FFileList: TFileListBox;
FDriveCombo: TDriveComboBox;
FDirLabel: TLabel;
FInSetDir: Boolean;
FPreserveCase: Boolean;
FCaseSensitive: Boolean;
end; // necisty zposob pristupu k private polozkam TDirectoryListBox
TXYDirectoryListBox = class(TDirectoryListBox)
protected
function ReadDirectoryNames(const ParentDirectory: string;
DirectoryList: TStringList): Integer;
procedure BuildList; override;
end;
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
DirListBox: TXYDirectoryListBox;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
DirListBox := TXYDirectoryListBox.Create(Self);
DirListBox.Parent := Self;
end;
{ TXYDirectoryListBox }
function SlashSep(const Path, S: String): String;
begin
if AnsiLastChar(Path)^ <> '\' then
Result := Path + '\' + S
else
Result := Path + S;
end;
function TXYDirectoryListbox.ReadDirectoryNames(const ParentDirectory:
string;
DirectoryList: TStringList): Integer;
var
Status: Integer;
SearchRec: TSearchRec;
begin
Result := 0;
Status := FindFirst(SlashSep(ParentDirectory, '*.*'), faDirectory or
faHidden, SearchRec);
try
while Status = 0 do
begin
if (SearchRec.Attr and faDirectory = faDirectory) then
begin
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
begin
DirectoryList.Add(SearchRec.Name);
Inc(Result);
end;
end;
Status := FindNext(SearchRec);
end;
finally
FindClose(SearchRec);
end;
end;
procedure TXYDirectoryListBox.BuildList;
var
TempPath: string;
DirName: string;
IndentLevel, BackSlashPos: Integer;
VolFlags: DWORD;
I: Integer;
Siblings: TStringList;
NewSelect: Integer;
Root: string;
begin
try
Items.BeginUpdate;
Items.Clear;
IndentLevel := 0;
Root := ExtractFileDrive(Directory)+'\';
GetVolumeInformation(PChar(Root), nil, 0, nil, DWORD(i), VolFlags,
nil, 0);
TDirtyDirectoryListbox(Self).FPreserveCase := VolFlags and
(FS_CASE_IS_PRESERVED or FS_CASE_SENSITIVE) <> 0;
TDirtyDirectoryListbox(Self).FCaseSensitive := (VolFlags and
FS_CASE_SENSITIVE) <> 0;
if (Length(Root) >= 2) and (Root[2] = '\') then
begin
Items.AddObject(Root, OpenedBMP);
Inc(IndentLevel);
TempPath := Copy(Directory, Length(Root)+1, Length(Directory));
end
else
TempPath := Directory;
if (Length(TempPath) > 0) then
begin
if AnsiLastChar(TempPath)^ <> '\' then
begin
BackSlashPos := AnsiPos('\', TempPath);
while BackSlashPos <> 0 do
begin
DirName := Copy(TempPath, 1, BackSlashPos - 1);
if IndentLevel = 0 then DirName := DirName + '\';
Delete(TempPath, 1, BackSlashPos);
Items.AddObject(DirName, OpenedBMP);
Inc(IndentLevel);
BackSlashPos := AnsiPos('\', TempPath);
end;
end;
Items.AddObject(TempPath, CurrentBMP);
end;
NewSelect := Items.Count - 1;
Siblings := TStringList.Create;
try
Siblings.Sorted := True;
ReadDirectoryNames(Directory, Siblings);
for i := 0 to Siblings.Count - 1 do
Items.AddObject(Siblings[i], ClosedBMP);
finally
Siblings.Free;
end;
finally
Items.EndUpdate;
end;
if HandleAllocated then
ItemIndex := NewSelect;
end;DLL -jeste jednou PChar
[*] Ing. Jarom�r Sola� <solar(zv)magion(tec)cz> - 5.6.2001 13:48:32
>Delam to teda pomoci PCharu,kde mam funkci , ktera mi
vraci pres VAR parametr promennou typu PCHAR.
>Funkce opravdu dosadi do toho varu to co ma napr. retezec
"Server".
>V samotne aplikaci vsak po yavolani teto funkce se objevi
ve vuru jen "Servo", proc mi to tak oreze, uz >nad tim badam
pul dne a nevim si s tim rady.
Var vubec neni treba. Nesmis ten retezec prirazovat pres :=,
ale napriklad pomoci strcopy. Napriklad
procedure A(Par : PChar);
begin
StrCopy(Par, 'Server');
end;
Pak v programu
var
P : PChar;
begin
P := StrAlloc(100);
A(P);
ShowMessage(P);
StrDispose(A);
end;
S pozdravem
Ing. Jaromir Solar (jaromir.solar(zv)magion(tec)cz)
Magion system a.s. (http://www.magion(tec)cz)
tel./fax :0657/614 289
DLL -jeste jednou PChar
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 5.6.2001 14:02:06
Delam to teda pomoci PCharu,kde mam funkci , ktera mi vraci pres VAR parametr promennou typu PCHAR.Funkce opravdu dosadi do toho varu to co ma napr. retezec "Server".V samotne aplikaci vsak po yavolani teto funkce se objevi ve vuru jen "Servo", proc mi to tak oreze, uz nad tim badam pul dne a nevim si s tim rady.
Zadefinuj si dostatek mista pro PCHAR a nedavej ji jako var
Statisticky vystup cez SQL
[*] Ivan Virag <ivirag(zv)hopi(tec)cz> - 5.6.2001 14:33:29
pro Oracle:
select prijmeni, count(*) from table_name
group by prijmeni
ivan virag
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Peter Vlkovic
Sent: 5. eervna 2001 13:14
To: delphi-l(zv)clexpert(tec)cz
Subject: Statisticky vystup cez SQL
Ahoj,
neporadi nejaky SQL-guru, ako urobit
statisticky vystup napr. v tvare:
MENO POCET
novak.....5
kovac.....12
zeman.....7
bednar....2
Samozrejme, ak take nieco je
vobec cez SQL mozne (neviem,
ci som to znazornil zrozumitelne).
Vlkovic
Jaky pouzit grid?
[*] V�t Kr�ka����+?#�$g�^#�3 - 5.6.2001 14:44:30
a proc nepouzijes DataSource a DBGrid?> Zdravim vsechny,
>
> mel bych dotaz. Potrebuji data zobrazit v datove mrizce a
> jelikoz techto dat muze byt docela dost, tak se mi prilis nelibi
> pouziti StringGridu pro zobrazeni. Muzete mi poradit, kterou
> komponentu bych mohl pouzit, tak aby nezabirala prostredky?
>
> Dotazy do DB pojedou pres ADO.
>
> Pouzil bych treba DrawGrid, ale nevim jak u nej vypisovat data.Statisticky vystup cez SQL
[*] Pavel Skalicky <P.Skalicky(zv)sh.cvut(tec)cz> - 5.6.2001 14:53:15
> pro Oracle:
>
> select prijmeni, count(*) from table_name
> group by prijmeni
Nejen pro Oracle - rekl bych, ze tohle plati obecne v SQL
Pavel Skalicky
e-mail - P.Skalicky(zv)seznam(tec)cz
www - http://pts.kvalitne(tec)cz
mobil - 0604 844 698
ICQ - 38169741
ODBCe - MasterQuery
[*] J. Hasek <jiri.has(zv)worldonline(tec)cz> - 5.6.2001 14:58:49
Prosim o radu, zkousim komponenty ODBCe a narazil jsem na problem.
Mam ODBCquery - nastaveno MasterQuery (obdoba DataSource) :
Select #�slo, Firma From Adresy Where #�slo = :#�slo
Pokud by v parametru nebyla diakritika, vsechno by fungovalo spravne, ale
prave ta diakritika v nazvu polozky zpusobi chybu : Can not bind undefined
parametr. Podotykam, ze standartni BDE komponenty funguji i s ni.
Muzu to nejak obejit ?
dekuje a zdravi JH
D4P, W98SE, ODBCe 3.00
Statisticky vystup cez SQL
[*] Vit Krska����+?#�$g�^#�3 - 5.6.2001 14:59:41
select MENO, Count(*) as Pocet
from "tabulka"
group by MENO
vitek
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Peter Vlkovic
> Sent: Tuesday, June 05, 2001 1:14 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Statisticky vystup cez SQL
>
>
> Ahoj,
>
> neporadi nejaky SQL-guru, ako urobit
> statisticky vystup napr. v tvare:
>
> MENO POCET
> novak.....5
> kovac.....12
> zeman.....7
> bednar....2
>
> Samozrejme, ak take nieco je
> vobec cez SQL mozne (neviem,
> ci som to znazornil zrozumitelne).
>
> Vlkovic
Zjisteni pocitacu v siti
[*] JIM Design <jim.design(zv)iol(tec)cz> - 5.6.2001 15:01:32
ahoj,
jestli te zajimaji jen ty stroje co maji pusten tvuj soft, muzes vyuzit
nekterou ze sitovych komponent (muzu ti poslat jednu skvelou, ktera
komunikuje pomoci UDP paketu) a udelat vzdy v pripade potreby broadcast na
vsechny kompy a ty co maji tvuj soft pusten ti vrati napr. IP (nebo, jak
chces, pomoci nejake API fce klidne i jmeno pocitace)
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of DarkLogic
Sent: Monday, June 04, 2001 4:16 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Zjisteni pocitacu v siti
>jak zjistim sitove jmeno pocitace, na kterem =
>je zrovna program spusten.Statisticky vystup cez SQL
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 5.6.2001 15:22:24
> neporadi nejaky SQL-guru, ako urobit
> statisticky vystup napr. v tvare:
>
> MENO POCET
> novak.....5
> kovac.....12
> zeman.....7
> bednar....2
>
> Samozrejme, ak take nieco je
> vobec cez SQL mozne (neviem,
> ci som to znazornil zrozumitelne).
> Vlkovic
No SQL-guru urcite nejsem, takze jsem mozna spatne pochopil, co
potrebujes; zkusil bych neco takoveho:
SELECT Meno, count(Meno) as Pocet
FROM Tabulka
GROUP BY Meno
Ty vodici tecky, pokud je tam chces opravdu mit, bych si uz doplnoval
v Delphi.
Karel Rys
Editovatelny grid
[*] Ivan Virag <ivirag(zv)hopi(tec)cz> - 5.6.2001 15:23:13
Dobry den
V DBGridu mam vysledek selectu. Potrebuju tam mit jeste jeden sloupec, ktery
bude editovatelny. Zkousel jsem StringGrid, ale ten se mi nelibi uz proto,
ze se nedaji nezavisle menit sirky sloupcu (aspon jsem nezjistil, jak).
Nevite nekdo neco? Dekuji
Ivan Virag
Textovy vystup z MS SQL
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 5.6.2001 15:47:25
Zdravim,
zatim jsem to nezkousel, ale ptam se: Pokud bych chtel vysledek nejakeho
dotazu zobrazit v textovem poli (napr. TMemo) stejne jako to dela SQL Server
Analyzer, a nikoliv do DBGridu, jde to ? Pokud to jde, ma s tim nekdo
zkusenosti ?
MS SQL 7, D5.
Diky.
end ohekzeh minarp a mevardzop S
arebmehcS naliM
ERAWTFOSSIM
444449/8060 .let
zc.erawtfossim.www\\:ptth
Zjisteni pocitacu v siti
[*] cis <cis(zv)atlas(tec)cz> - 5.6.2001 15:52:09
Zkus tenhle unit, zatim mi to bezelo na vsech sitich:
uses Windows, SysUtils, Classes;
procedure EnumNetResources(List: TStrings);
implementation
procedure EnumNetResources(List: TStrings);
procedure EnumFunc(NetResource: PNetResource);
var
Enum: THandle;
Count, BufferSize: DWORD;
Buffer: array[0..16384 div SizeOf(TNetResource)] of TNetResource;
i: Integer;
begin
if WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, NetResource,
Enum) = NO_ERROR then
try
Count := $FFFFFFFF;
BufferSize := SizeOf(Buffer);
while WNetEnumResource(Enum, Count, (zv)Buffer, BufferSize) = NO_ERROR do
for i := 0 to Count - 1 do
begin
if Buffer[i].dwDisplayType = RESOURCEDISPLAYTYPE_SERVER then
List.Add(Copy(Buffer[i].lpRemoteName, 3,
length(Buffer[i].lpRemoteName)));
if (Buffer[i].dwUsage and RESOURCEUSAGE_CONTAINER) > 0 then
EnumFunc((zv)Buffer[i])
end;
finally
WNetCloseEnum(Enum);
end;
end;
begin
EnumFunc(nil);
end;
end.
----- Original Message -----
From: Dalibor Toman <dtoman(zv)fortech(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, June 05, 2001 8:59 AM
Subject: Re: Zjisteni pocitacu v siti
> > Delam zabezpecovaci program pro internetovou kavarnu a narazil jsem na =
>
> jedine propingat. Existuji i dalsi zpusoby (enumerace serveru atd, ale ty
> nejsou spolehlive a neobsahuji zdaleka vsechny pocitace; priposlech paketu
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.252 / Virov� b�ze: 125 - datum vyd�n�: 9.5.2001
Statisticky vystup cez SQL
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 5.6.2001 15:53:19
> neporadi nejaky SQL-guru, ako urobit
> statisticky vystup napr. v tvare:
>
> MENO POCET
> novak.....5
> kovac.....12
> zeman.....7
> bednar....2
Dotaz neni zcela presne urceny, ale asi myslis bud pocet vyskytu jmena v
databazi nebo soucet hodnot v poli POCET vzdy pro kazde jmeno.
Pocet vyskytu jmena:
select MENO, count(MENO) as POCET from TABULKA
group by MENO
Soucet hodnot v poli POCET vzdy pro kazde jmeno
select MENO, sum(POCET) as POCET from TABULKA
group by MENO
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
TGroup
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 05.6.2001 15:59:48
Zdravim!
Jak udelat dynamicky za behu na formulari TGroup a na nem dynamicky radia? Diky
M&B
Statisticky vystup cez SQL
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 05.6.2001 16:37:39
Vdaka, to je presne to, co potrebujem.
Teraz by som vsak chcel, aby bol
vysledok usporiadany od najvacsieho
poctu po najmensi.
Skusam rozne kombinacie ORDER BY,
ale nejako sa mi nedari.
Da sa to?
Vlkovic
> > neporadi nejaky SQL-guru, ako urobit
> > statisticky vystup napr. v tvare:
> >
> > MENO POCET
> > novak.....5
> > kovac.....12
> > zeman.....7
> > bednar....2
>
> Soucet hodnot v poli POCET vzdy pro kazde jmeno
>
> select MENO, sum(POCET) as POCET from TABULKA
> group by MENO
>
> J. N�dhera
OT: Editor pro vyvojare
[*] <ondra.vosta(zv)centrum(tec)cz> - 05.6.2001 17:49:16
Zkus Golden HTML editor. Stahnes to na adrese
http://www.oknet(tec)cz/lide/pavelp/ghe (snad).
______________________________________________________________
> Od: Da�a Petr <Petr.Dana(zv)pvt(tec)cz>
> Komu: delphi-l(zv)clexpert(tec)cz
> CC:
> Datum: Tue, 5 Jun 2001 11:04:25 +0200
> P�edm�t: OT: Editor pro vyvojare
>
> Zdravim,
> omlouvam se za OT, ale treba nekdo o necem vite.
> Potreboval bych nejaky editor pro vyvojare (programatory) - pro
vlastni
> nekomercni pouziti, takze kdyby byl free nebo free za podminky
nekomercniho
> pouziti, bylo by to super.
> Chtel bych, aby umel obarvovat syntaxi (jaky i se sakra
pise ? :-) ), aby
> byl lehce rozsiritelnej pomoci vlastnich pluginu.
> Pokud by nebyla rozsiritelnost, tak by mel jeste umet
workspace, cist a
> ukladat soubory primo z FTP, "inteligentni" prepinani
otevrenych oken (tak
> jako se prepinaji aplikace v systemu), moznost nastavit kodovani
> jednotlivych souboru (hlavne win1250 a iso-8859-2, kdy byl i
utf-8, taky
> bych se nezlobil ;-) ) a spoustu dalsich veci ... :-)
> No, naroky to jsou sahodlouhe ...
> Ja jsem si takovy editor psal sam, ale uz na to nemam absolutne
cas, mozna
> nekdy pozdeji, takze hledam, jestli neexistuje neco hotoveho.
> Kdysi jsem videl nejaky NoteTab, mel nekolik verzi (Lite,
Pro ?). Pouzival
> ho nekdy nekdo z vas a pokud ano, da se s nim delat (mam dojem,
ze tam byly
> i ty pluginy ...)?
>
> Diky za odpovedi, kdyztak muzete psat primo na moji adresu,
abyste zbytecne
> nezaplacavali kongeru ;-)
>
> Petr
>
Hrajte on-line hry na http://herna.centrum(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
Upraveny ComboBox
[*] Zden�k Sv�en - 5.6.2001 17:55:43
Ahoj,
pokousim se udelat nasledujici:
V ComboBoxu mam jako Items cislo od 1 do 30. A ja potrebuju, aby nektera
cisla byla normalne cerna, ale nektera aby byla cervena. Jak toho docilit?
Zkousel jsem si pohrat s udalosti onDrawItem, ale nejak se mi nedari. Jestli
mi chcete poradit prave tohle, tak bych byl velice vdecny za kousicek
ukazkoveho kodu.
Dekuju.
Zdenek
Upravy textu v RichEdit pri odesilani
[*] Hurricane <hurricane(zv)quick(tec)cz> - 5.6.2001 19:35:09
Zdravim
No to bude asi tim, ze maily muzes posilat bud jako cisty text nebo HTML. S
RTF IMHO probihaly jakesi pokusy jako neco mezi, ale neujalo se to. Takze
reseni bych videl v prekonvertovanim do HTML a pak to poslat jako HTML
zpravu. Prevod umi napr SynEdit.
Hurricane
----- Original Message -----
Subject: Upravy textu v RichEdit pri odesilani
Nevite nekdo, jak mam udelat nasledujici. Pouzivam komponentu NMSMTP pro
odesilani posty. V RichEditu mam nejaky text a pomoci velikosti, druhu
pisma, tloustky a podtrzeni ho muzu menit. Kdyz ho ale odeslu, prijde jako
obycejny text a takove veci jako je druh pisma, velikost, podtrzeni atd. tam
uz nejsou. Nevite nekdo, jak to mam udelat aby to tam bylo ?
TGroup
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.6.2001 19:53:21
From: "Martin Bab�k" <M.Babik(zv)mus(tec)cz>
> Jak udelat dynamicky za behu na formulari TGroup a na nem dynamicky radia?
Ahoj,
treba takhle:
procedure TForm1.Button1Click(Sender: TObject);
begin
with TRadioGroup.Create(Self) do
begin
Parent := Self;
SetBounds(10, 10, 100, 50);
Caption := 'Group';
Items.Add('Radio 1');
Items.Add('Radio 2');
end;
end;
Petr Vones, amatersky programator
Upraveny ComboBox
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.6.2001 19:58:29
From: "Zden�k Sv��en" <delphiforum(zv)atlas(tec)cz>
> V ComboBoxu mam jako Items cislo od 1 do 30. A ja potrebuju, aby nektera
> cisla byla normalne cerna, ale nektera aby byla cervena. Jak toho docilit?
Ahoj,
nastave Style na csOwnerDrawFixed a pouzij udalost OnDrawItem:
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with TComboBox(Control) do
begin
Canvas.FillRect(Rect);
if Index mod 2 = 0 then // Kazdy druha polozka bude cervene
Canvas.Font.Color := clRed;
Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, Items[Index]);
end;
end;
Petr Vones, amatersky programator
Edit IP Address
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.6.2001 20:02:40
From: "Pavol Stolc" <pstolc(zv)sc.sknet.sk>
> Moja otazka: ako mozem dosiahnut aby sa ovladaci prvok triedy IPADDRESS
> vytvoril aj bez predchadzajuceho otvorenia dialogu Siet? Chcem mat na
Ahoj,
pouzij komponentu TJvIpAddress. IPADDRESS je ovem ponekud nestastny control.
http://www.egroups.com/files/JEDI-VCL/JediVCLpv.zip
Petr Vones, amatersky programator
MAPI Send
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.6.2001 20:04:00
From: "Matula M." <mirek.delphi(zv)centrum(tec)cz>
> Pouzivam unit JclMAPI, funkci MapiSendMail(ShowDialog). Prijemce neni
> vyplnen, to udela uzivatel sam v dialogovem okne, ktere se otevre.
>
> Po uzavreni okna se potrebuji se dovedet jestli uzivatel zpravu odeslal a
> adresu prijemce.
Ahoj,
obavam se ze tohle neni pomoci Simple MAPI mozne.
Petr Vones, amatersky programator
AV pri ukladani formu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.6.2001 20:06:06
From: "Jiri Binder" <j.binder(zv)albacon(tec)cz>
> Cas od casu se mi stane, ze se mi v Delhi (D5Pro+UP1) nepodari
> ulozit jakokoliv zmena ve formu a hazi to AV. Nejcastejsi pricina je
> chyba v mych komponentach, ale obcas se to stava i v pripadech,
> kdy jsem presvedcen, ze jsem provedl pouze zcela neskodne
> zmeny. Proto se ptam, zda s tim nekdo nemate podobnou
Ahoj,
je treba pamatovat na to, ze kod tvych komponent bezi v IDE, takze pokud tam
mas nejake vazne chyby tak to samozrejme vezme sebou cele IDE. Jedine reseni
je dany chyby opravit, samozrejme po oprave je idealni IDE restartovat a ne
jen prelozit dany design time balicek.
Petr Vones, amatersky programator
USB, WinME
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.6.2001 20:07:36
From: "Tomas Folprecht" <tomas(zv)apkfolprecht(tec)cz>
> Az najednou ... prisel zakaznik s novym nootebookem bez seriovych portu, jen
> s USB, s Windows ME a s konvertorem USB -> COM. Pocitac ma tedy "nejaky"
> COM3.
> Program ale nefunguje. Asi nejsem prvni s timto problemem. Nemate nekdo
Ahoj,
uznej ze popis problemu 'Program ale nefunguje' neni prilis detailni ;-) Tezko
lze neco poradit.
Petr Vones, amatersky programator
Delphi IDE and packages - Internal error U704, Bad
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.6.2001 20:08:16
From: "likeapear" <likeapear(zv)centrum(tec)cz>
> Prisel jsem na to, ze pri prepinani mezi projektama (v grupe) a jejich
> buildovani se nekdy u balicku stane to, ze ulozi dcp-soubor jinam nez do
> output path. Tahle vec pak zpusobuje hlasku Bad packaged unit format (dcp je
Ahoj,
to bude ono. Lze nejak vysledovat kdy se tak stane nebo je to zcela nahodne ?
Petr Vones, amatersky programator
chyba pri instalaci komponent
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.6.2001 20:13:34
From: "Ales Pavel" <Bejcek(zv)centrum(tec)cz>
> ahoj kluci, muzu se vzteknout, nainstaloval jsem si komponenty, pak jsem
> zjistil,ze blbe a chtel je preinstalovat, zkoncilo to tak,ze je naistaluji a
> tvari se to ze tam jsou, ale kdyz pustim delphi znovu zmizej,nebo to alespon
> hodi hlasku ze chybi nejake soubor bpl ci co.Nevite nekdo co mam delat.Ta
Ahoj,
patrne maji design time a runtime balicek. Runtime balicek by mel byt umisten
nekde v Library Search Path, v pripade pocitace na kterem aplikaci vyvijis to
muze byt treba Windows System adresar.
Petr Vones, amatersky programator
D5 + Paradox
[*] NecTSpider <NecTSpider.DelphiKonference(zv)seznam(tec)cz> - 5.6.2001 20:19:46
Zdravim,
mam tabulku paradoxu (.db) a pouzivam SQL dotazy.
Potrebuju setrast data, ktere v tabulce po vymazani sice nejsou vydet, ale
neuvolni misto na disku.
Delete jenom smaze, ja ji potrebuju setrast :(.
-------------------------------------------------------------
NecTSpider
E-Mail: NecTSpider(zv)seznam(tec)cz
ICQ: 104256123
-------------------------------------------------------------
Thready a WaitForSingleObject, WaitForMultipleObje
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.6.2001 20:20:50
From: "EFG developer" <developer(zv)efg(tec)cz>
> Potrebuji synchronizovat nekolik threadu (resp. spousteni jejich metod
> execute) a zpusob napsani do nekonecne smycky, ktera stale testuje nejakou
> globalni promennou se mi zda ponekud podivny a navic znacne zatezujici
> procesor.
Ahoj,
testovat globalni promennou je v tomto pripade zcela zasadni chyba. Neco by
mohlo byt zde: http://www.pergolesi.demon.co.uk/prog/threads/ToC.html
Petr Vones, amatersky programator
MAPI a LOTUS NOTES
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 5.6.2001 20:27:52
From: "Pavel Gazda" <Pavel.Gazda(zv)seznam(tec)cz>
> Prosim, nevite nekdo proc mi pri pokusu o odeslani posty nelze vyplnit
> adresu prijemce?
> ( Telo zpravy, predmet zpravy i prilohu mi to vezme)
Ahoj,
zkus nekde ziskat presny popis implementace Simple MAPI pro ten Lotus. Ackoli
je specifikace Simple MAPI vcelku jednoducha tak je plno vyrobcu, kterym dela
problem spravne implementovat 12 jednoduchych funkci (a neni to Microsoft).
Petr Vones, amatersky programator
Pouziti seriove linky z Delphi
[*] Petr Vasicek <pvasicek(zv)operamail(tec)com> - 5.6.2001 16:31:51 -0400
Zdravim,
mohl by mi prosim nekdo poradit, jak mohu z Delphi pouzivat seriovou linku?
Konkretne potrebuji treba poslat z jednoho pocitace aktualni cas z nejake
aplikace, aby ho druhy pocitac mohl prijmout, zase pomoci nejake aplikace a
treba ten cas nekam vypsat.
Dekuju moc
Petr
-------------------------------------------
The Fastest Browser on Earth now for FREE!!
Download Opera 5 for Windows now! Get it at
http://www.opera.com/download/
-------------------------------------------
Upraveny ComboBox
[*] krejciv(zv)ssakhk(tec)cz - 5.6.2001 20:37:59 gmt
Zdar, treba ti to pomuze...
http://www.builder(tec)cz/art/homepage/column_combobox.html
http://www.builder(tec)cz/art/homepage/delphi_fontcombo.html
http://www.builder(tec)cz/art/homepage/color_combobox.html
S podzdravem
Vaclav Krejci
Ahoj,
pokousim se udelat nasledujici:
V ComboBoxu mam jako Items cislo od 1 do 30. A ja potrebuju, aby nektera
cisla byla normalne cerna, ale nektera aby byla cervena. Jak toho docilit?
Zkousel jsem si pohrat s udalosti onDrawItem, ale nejak se mi nedari. Jestli
mi chcete poradit prave tohle, tak bych byl velice vdecny za kousicek
ukazkoveho kodu.
Dekuju.
Zdenek
--------------------------------------------------------------
You can check your mailbox at any place in the whole world now.
Just download short, simple and easy-to-use POP3 client: REMOTE MAILBOX!
More informations at http://www.volny(tec)cz/xnovako1/rmailbox
Thready a WaitForSingleObject, WaitForMultipleObje
[*] David Mensik <mensikd(zv)seznam(tec)cz> - 5.6.2001 23:11:22
Coze?
Pri pouziti WaitForSingleObject se nezatezuje procesor - thread se uspi a
probudi az je treba (zalezi na synchronizacni primitive, ktera se pouzije).
Pro synchronizaci threadu se skutecne pouzivaji fce %subj% spolu s eventama,
semaforama, mutexama apod.
Ozon
> > Potrebuji synchronizovat nekolik threadu (resp. spousteni jejich metod
> > execute) a zpusob napsani do nekonecne smycky, ktera stale
> testuje nejakou
> > globalni promennou se mi zda ponekud podivny a navic znacne zatezujici
> > procesor.USB, WinME
[*] Erik Salaj <winsoft(zv)stonline.sk> - 6.6.2001 00:15:21
> Napsal jsem program v Delphi 5, ktery vyuziva seriovy port standardnim
> zpusobem. Program je odladen a funguje u mnoha zakazniku na Win95/98.
> Az najednou ... prisel zakaznik s novym nootebookem bez seriovych portu,
jen
> s USB, s Windows ME a s konvertorem USB -> COM. Pocitac ma tedy "nejaky"
> COM3.
> Program ale nefunguje. Asi nejsem prvni s timto problemem. Nemate nekdo
> nejaky tip?
Skontroluj (napr. pomocou HyperTerminal-u), ci COM port funguje.
Mam tiez modem pripojeny na USB a komunikujem s nim cez COM
port bez problemov. Pripadne mozes vyskusat nas ComPort komponent,
je na http://www.cybermagic.co.nz/winsoft a je tam ako demo priklad
velmi jednoduchy terminal.
Erik
Image ze schranky
[*] JIM Design <jim.design(zv)iol(tec)cz> - 6.6.2001 07:28:48
ahoj,
MyImage.Picture.LoadFromClipboardFormat(AFormat: Word; AData: THandle;
APalette:HPALETTE);
nebo
MyImage.Picture.Graphic.LoadFromClipboardFormat(AFormat: Word; AData:
THandle; APalette: HPALETTE);
Delphi help:
Use LoadFromClipboardFormat to read in a graphic from the Clipboard. If the
format is not supported, an EInvalidGraphic exception is raised.
M.Jirman
-----Original Message-----
Behalf Of Valenta Patrik
Muzete nekdo pomoct ?
snazim se dynamicky vatvaret Images asi takto :
Inc(celkem);
MyImage:=TImage.Create(Self);
MyImage.Name:='Mojpic'+IntToStr(celkem);
MyImage.Parent:= GroupBox1;
MyImage.Left:=250;
MyImage.Top:= (250);
a ted tam potrebuju dostat bitmapu ze schranky ?
Delphi IDE and packages - Internal error U704, Bad
[*] likeapear <likeapear(zv)centrum(tec)cz> - 6.6.2001 07:30:16
----- Original Message -----
> to bude ono. Lze nejak vysledovat kdy se tak stane nebo je to zcela
nahodne ?
>
> Petr Vones, amatersky programator
>
Zda se mi to byt naprosto nahodne a navic si prestavam byt jisty zda problem
zpusobuje prave toto. Uz se mi asi 2x stalo, ze vybehla tahle hlaska a
pritom kdyz vyhledam dcp soubor meho balicku je jeden a na spravnem miste.
:(( Zacina me to lezt krkem.
LikeAPear
TGroup
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 06.6.2001 07:48:06
No ale jak potom urcovat vlastnosti radii a pracovat s nimi pozdeji, jak je volat? Kdyz napisi "with radio 1 do" , tak ho nezna. :-(
M&B
>>> "Petr Vones" <pvones(zv)mbox.vol(tec)cz> 06/05 7:53 >>>
>>From: "Martin Bab�k" <M.Babik(zv)mus(tec)cz>
>> Jak udelat dynamicky za behu na formulari TGroup a na nem dynamicky radia?
>treba takhle:
>procedure TForm1.Button1Click(Sender: TObject);
>begin
> with TRadioGroup.Create(Self) do
> begin
> Parent := Self;
> SetBounds(10, 10, 100, 50);
> Caption := 'Group';
> Items.Add('Radio 1');
> Items.Add('Radio 2');
> end;
>end;D5 + Paradox
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 6.6.2001 07:50:20
> mam tabulku paradoxu (.db) a pouzivam SQL dotazy.
> Potrebuju setrast data, ktere v tabulce po vymazani sice nejsou vydet,
> ale neuvolni misto na disku.
>
V BDE, pokud si pamatuji, je neco jako funkce PackTable (za
nazev nerucim) a u ni jsou examply. Blize viz bde32.hlp.
David
Pouziti seriove linky z Delphi
[*] Ales Martinik <amartinik(zv)artbrno(tec)cz> - 6.6.2001 07:52:59
Vezmete komponentu ComPort (napr. D.Crnila ComPort Library version 2.51-
freeware with source
na DelphiSuperPage / Torry /Delphipages: CPort251.zip ), nastavite rychlost,
stop bity..., na vysilaci strane
si pripravite retezec nebu buffer s daty o odeslete pomoci fce Write nebo
WriteBuf, na prijimaci strane
totez, ale prijem v obsluze OnRxChar nebo OnRxBuf nebo periodicky testovat
(v obsluze timeru)
InputCount (pocet prijatych znaku).
Je tam i priklad..
Ales M
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Vasicek
> Sent: Tuesday, June 05, 2001 9:32 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Pouziti seriove linky z Delphi
>
>
> Zdravim,
> mohl by mi prosim nekdo poradit, jak mohu z Delphi pouzivat
> seriovou linku?
> Konkretne potrebuji treba poslat z jednoho pocitace aktualni
> cas z nejake
> aplikace, aby ho druhy pocitac mohl prijmout, zase pomoci
> nejake aplikace a
> treba ten cas nekam vypsat.
> Dekuju moc
> Petr
>
> -------------------------------------------
> The Fastest Browser on Earth now for FREE!!
> Download Opera 5 for Windows now! Get it at
> http://www.opera.com/download/
> -------------------------------------------
>
>
ODBCe komponenty - daji se nekde stahnout?
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 6.6.2001 07:55:59
Ahoj lidi,
nejak se mi nedari otevrit stranku http://www.sct.sk/~fule/ODBCe/ - HTTP
404 not found.
Nevite, kde se ty komponenty daji stahnout, pripadne co se deje, jaka je
posledni verze komponent?
Tom
_______________________________
Tomas Vladik
tom.vladik(zv)swadvice(tec)cz
ICQ# 101763081
D5 + Paradox
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 6.6.2001 08:04:54
> mam tabulku paradoxu (.db) a pouzivam SQL dotazy.
> Potrebuju setrast data, ktere v tabulce po vymazani sice nejsou
http://www.bdesupport.com/faq.htm
Code sample to Pack a Paradox Table
Uses DbiTypes, DBTables;
// Function returns TRUE if successful; otherwise FALSE.
// Table should be opened exclusively prior to calling.
// Table will be closed upon exit.
function PackTable(Table : TTable) : Boolean;
var
Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
Res : dbiResult;
begin
With Table Do
begin
Check(DbiGetCursorProps(Handle, Props));
FillChar(TableDesc, sizeof(TableDesc), 0);
Check(DbiGetObjFromObj(hDBIObj(Handle), objDATABASE, hDBIObj(hDb)));
StrPCopy(TableDesc.szTblName, TableName);
StrPCopy(TableDesc.szTblType, Props.szTableType);
TableDesc.bPack := True;
Close;
Res := DbiDoRestructure(hDb, 1, (zv)TableDesc, nil, nil, nil, False);
Result := (Res = DBIERR_NONE);
// You could optionally reopen the table here if desired.
end;
end;
Editor pro vyvojare
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 6.6.2001 08:07:59
Nebyl by alespon castecne vhodny JediEdit z projektu Jedi?
http://jedit.heha.net (alespon podle "About boxu")
Mira
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Da�a Petr
>
> Zdravim,
> omlouvam se za OT, ale treba nekdo o necem vite.
> Potreboval bych nejaky editor pro vyvojare (programatory) - pro vlastni
> nekomercni pouziti, takze kdyby byl free nebo free za podminky
Editovatelny grid
[*] V�t Kr�ka����+?#�$g�^#�3 - 6.6.2001 08:21:32
ve stringgridu se daji menit sirky jednotlivych sloupcu a to nasledovne:
StringGrid.ColWidths[x] := y; x - cislo sloupce, y - sirka sloupce
a jestli pouzivas SQL, jako ze asi jo, tak dalsi sloupec jednoduse pridas
tak, ze do selectu pridas jeste jednu dodnotu pro vyber. treba takhle
"select x, y, 100 from ...", kde x a y jsou hodnoty z tabulky a 100 je
konstanta. ta se zobrazi na kazdem radku (treti sloupec). tysi tam muzes dat
co chces.
nebo dalsi zpusob je pouzit udalost DataSetu OnCalcFields a sloupec si
pridat v ni.
kdyz budes chtit editovat jen jednotlive sloupce tak podle toho na jakym
jses sloupci povolis nebo zakazes vlastnost gridu Options:
Grid.Options := Grid.Options +(-) [dbEditing]
vitek
> Dobry den
>
> V DBGridu mam vysledek selectu. Potrebuju tam mit jeste jeden
> sloupec, ktery
> bude editovatelny. Zkousel jsem StringGrid, ale ten se mi nelibi uz proto,
> ze se nedaji nezavisle menit sirky sloupcu (aspon jsem nezjistil, jak).
> Nevite nekdo neco? Dekuji
>
>
> Ivan Virag
>USB, WinME
[*] Tomas Folprecht <tomas(zv)apkfolprecht(tec)cz> - 6.6.2001 08:29:20
Dobra, program je pouze prijimac, otevre COM (tedy pri otvirani nenahlasi
chybu) pomoci CraeteFile, ale neprijme ani byte.
Nemam moznost si ten jejich pocitac pujcit a ladit na nem.
Dekuji za kazdou myslenku.
Tomas Folprecht
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Petr Vones
> Sent: Tuesday, June 05, 2001 8:08 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: USB, WinME
>
>
> From: "Tomas Folprecht" <tomas(zv)apkfolprecht(tec)cz>
> > Az najednou ... prisel zakaznik s novym nootebookem bez
> seriovych portu, jen
> > s USB, s Windows ME a s konvertorem USB -> COM. Pocitac ma tedy "nejaky"
> > COM3.
> > Program ale nefunguje. Asi nejsem prvni s timto problemem. Nemate nekdo
>
> Ahoj,
>
> uznej ze popis problemu 'Program ale nefunguje' neni prilis
> detailni ;-) Tezko
> lze neco poradit.
>
> Petr Vones, amatersky programator
>
>D5 + Paradox
[*] V�t Kr�ka����+?#�$g�^#�3 - 6.6.2001 08:33:53
podivej se na API funkci - DbiDoRestructure
vitek
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of NecTSpider
> Sent: Tuesday, June 05, 2001 8:20 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: D5 + Paradox
>
>
> Zdravim,
> mam tabulku paradoxu (.db) a pouzivam SQL dotazy.
> Potrebuju setrast data, ktere v tabulce po vymazani sice nejsou vydet, ale
> neuvolni misto na disku.
>
> Delete jenom smaze, ja ji potrebuju setrast :(.
> -------------------------------------------------------------
> NecTSpider
> E-Mail: NecTSpider(zv)seznam(tec)cz
> ICQ: 104256123
> -------------------------------------------------------------
>Dlouha connection v IB6
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 6.6.2001 08:44:05
Ahoj,
narazili jsme na zajimavy problem. U zakaznika je na SuSE linuxu
na instalovan IB6 server (Firebird SS). Na klientskem pocitaci bezi
jakysi aktualizacni program, ktery se serverem temer nepretrzite
pracuje. Z hlediska transakci tam snad neni problem (nejdelsi
transakce trva par sekund). Nepravidelne, cca jednou denne, vzdy
zatuhne. Zkouseli jsme klienta stehovat na ruzne pocitace, ale
nenastala zadna zmena. Zjistilo, se, ze pokud klient bezi na W95,
spadnou tyto do modre obrazovky. Pocitace s W98 totalne
zatuhnou a chce to tvrdy reset. Server samotny bezi v poradku,
toho se to netyka.
Prestoze nemusi jit o problem programu, chci se zeptat, zda
jste se nekdo s necim podobnym nesetkal. Nemuze treba vadit, ze
klient je jako user prihlaseny k serveru prilis dlouho? To je jen
zoufaly napad - ma nekdo neco lepsiho?
Diky moc predem
******************************************************
David Lebeda, program�tor
ComArr s. r. o.
Tolarova 291, 533 51 Pardubice
Telefon: 040/6889 225, 040/6889 111
Fax: 040/6415 481
E-mail: lebeda(zv)comarr(tec)cz
http://www.comarr(tec)cz
******************************************************Editor pro vyvojare
[*] Radek Janka <radek.janka(zv)ipsystem(tec)cz> - 6.6.2001 08:58:25
SynEdit od Matthew Inmana (www.mkidesign.com/synedit). Krome zvyrazneni
syntaxe pro naprostou vetsinu formatu (PAS, HTML, CPP atd s moznosti
nadefinovat si vlastni format) umoznuje take primo kompilovat pomoci
externiho kompilatoru a jine veci.
R.
> omlouvam se za OT, ale treba nekdo o necem vite.
> Potreboval bych nejaky editor pro vyvojare (programatory) - pro vlastni
> nekomercni pouziti, takze kdyby byl free nebo free za podminky
Pouziti seriove linky z Delphi
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 6.6.2001 09:18:15
nebo jest lepe vezmete moji knihovnicku SynaSer (z nize uvedene
adresy u podpisu...). Je to parkilova PAS knihovna, free a pochopitelne
taky se zdrojakem. ;-)))
Ta totiz NENI komponenta, takze ji netreba jakkoliv instalovat. Staci si ji
nakopirovat kprojektu a uvest ji v USES. ;-)
Pracuje se s ni podobne jako v nize uvedenem prikladu, ale s tim
rozdilem, ze nemusite jak trouba hlidat nejaky eventy a prat se s timery,
diky kterym je nutno mit nejake okno na posilani zprav. U mne neco
takoveho netreba, takze pokud to chcete pouzivat v nejake konzolovce ci
v servisu, nemusite delat hromady opicaren kvuli windowsim zpravam.
Mate u mne pak jednoduche metody na zjisteni, jestli cekaji na
vyzvednuti nejake data a pak take metody na cteni dat, kdy tyto metody
pripadne samy pockaji, az vsechny pozadovane data prijdou.
Tedy chcete-li precist trebas ctyri bajty dat, date pozadavek na cteni ctyr
bajtu dat a provadeci tok se vam na tom prikazu zastavi a program
pobezi dal az kdyz vsechny ctyri bajty dat prijdou ci pokud doslo k
nejake chybe.
Programovani je pak mnohem primocarejsi. ;-)))
> Vezmete komponentu ComPort (napr. D.Crnila ComPort Library version
> 2.51- freeware with source na DelphiSuperPage / Torry /Delphipages:
> CPort251.zip ), nastavite rychlost, stop bity..., na vysilaci strane
> si pripravite retezec nebu buffer s daty o odeslete pomoci fce Write
> nebo WriteBuf, na prijimaci strane totez, ale prijem v obsluze
> OnRxChar nebo OnRxBuf nebo periodicky testovat (v obsluze timeru)
> InputCount (pocet prijatych znaku). Je tam i priklad..
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
D5 + Paradox
[*] Dalibor Falt�nek <dalibor.faltynek(zv)orgrez(tec)cz> - 6.6.2001 10:00:16
Pokud to nepotrebujete delat programove, tak v dbdesktopu otevrete
prislusnou tabulku, z menu dejte restructure, v otevrenem okne zatrhnete box
Pack table a stisknete save. Ale to asi vite.
----- Original Message -----
Subject: D5 + Paradox
> Zdravim,
> mam tabulku paradoxu (.db) a pouzivam SQL dotazy.
> Potrebuju setrast data, ktere v tabulce po vymazani sice nejsou vydet, ale
> neuvolni misto na disku.
>
> Delete jenom smaze, ja ji potrebuju setrast :(.
> -------------------------------------------------------------
AV pri ukladani formu
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 6.6.2001 10:08:28
Ahoj,
je mi trapne, ale musim s barvou ven. Ten pripad, ktery
vyprovokoval muj dotaz a ktery me pripravil o puldne prace bylo
nakonec malo mista na disku. K me blbosti netreba komentare.
Kdyby to alespone nehazelo AV, takhle jsem to hledal opravdu ve
svych komponentach, navic se to shodou okolnosti pri prechodu k
predchazejeci zaloze prestalo projevovat.
Jiri Binder
> From: "Jiri Binder" <j.binder(zv)albacon(tec)cz>
> > Cas od casu se mi stane, ze se mi v Delhi (D5Pro+UP1) nepodari
> > ulozit jakokoliv zmena ve formu a hazi to AV. Nejcastejsi pricina je
> > chyba v mych komponentach, ale obcas se to stava i v pripadech, kdy
> > jsem presvedcen, ze jsem provedl pouze zcela neskodne zmeny. Proto
> > se ptam, zda s tim nekdo nemate podobnou
>
> je treba pamatovat na to, ze kod tvych komponent bezi v IDE, takze
> pokud tam mas nejake vazne chyby tak to samozrejme vezme sebou cele
> IDE. Jedine reseni je dany chyby opravit, samozrejme po oprave je
> idealni IDE restartovat a ne jen prelozit dany design time balicek.
> Petr Vones, amatersky programator
Editor pro vyvojare
[*] Petr E�ner <petr.esner(zv)atlas(tec)cz> - 6.6.2001 11:07:27
Ahoj,
> SynEdit od Matthew Inmana (www.mkidesign.com/synedit). Krome zvyrazneni
> syntaxe pro naprostou vetsinu formatu (PAS, HTML, CPP atd s moznosti
> nadefinovat si vlastni format) umoznuje take primo kompilovat pomoci
> externiho kompilatoru a jine veci.
A kdyz budes chtit navic podporu strukturovanych projektu a ploch,
skriptovani v programu, makra, hexeditor, ftp klienta, podporu pluginu,
praci s ne-win soubory, konzoli jako ve VisualC++ na kterou se muzou navesit
kompilatory prikazove radky, dale utility jako porovnavani souboru a budes
to chcit stale vsechno zdarma, muzes se podivat na muj Programmer's Wizard,
http://pwiz.hyperlink(tec)cz/ :-))
S pozdravem
Petr E#ner
petr.esner(zv)atlas(tec)cz
ICQ# 105826792
PS.: doufam, ze timto mailem nehresim proti pravidlum konference, neni to
prece komercni nabidka...?OT: Prevod z VC++ do Delphi4
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 06.6.2001 11:13:27
Mozna by bylo dobre prihlasit se do konferenci delphi-jedi
(delphi-jedi(zv)yahoogroups.com). Protoze projekt JEDI
se mj. zabyva konverzemi API z C/C++ do Pascalu,
casto tam pride na pretres jak prelozit nektere specificke
konstrukce z C++ do Pascalu. Mozna ti neco z toho
pomuze.
Ondrej Krajicek
> Souhlasim a urcite to neresi muj problem.
>
> Presto diky vsem za poskytnute rady a nezbyva zrejme nic jineho nez se ucit
> C++ a prevod
> udelat manualne - hruza :-((
--
---------------------------------------------------------------------
Ondrej Krajicek OK-) xkrajic(zv)ics.muni(tec)cz, xkrajic(zv)fi.muni(tec)cz
Omnia ad maiorem Informaticae gloriam
---------------------------------------------------------------------
Statisticky vystup cez SQL
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 6.6.2001 11:13:36
A zkousel jsi
select MENO, sum(POCET) as POCET from TABULKA
group by MENO
order by 2 desc
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
5.6.2001 Peter Vlkovic:
> Vdaka, to je presne to, co potrebujem.
> Teraz by som vsak chcel, aby bol
> vysledok usporiadany od najvacsieho
> poctu po najmensi.
> Skusam rozne kombinacie ORDER BY,
> ale nejako sa mi nedari.
> Da sa to?Dlouha connection v IB6
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 6.6.2001 11:29:04
Haj hou!
On 6 Jun 2001,, David Lebeda wrote:
> narazili jsme na zajimavy problem. U zakaznika je na SuSE linuxu
> na instalovan IB6 server (Firebird SS). Na klientskem pocitaci bezi
> jakysi aktualizacni program, ktery se serverem temer nepretrzite
> pracuje. Z hlediska transakci tam snad neni problem (nejdelsi
> transakce trva par sekund). Nepravidelne, cca jednou denne, vzdy
> zatuhne. Zkouseli jsme klienta stehovat na ruzne pocitace, ale
> nenastala zadna zmena. Zjistilo, se, ze pokud klient bezi na W95,
> spadnou tyto do modre obrazovky. Pocitace s W98 totalne
> zatuhnou a chce to tvrdy reset. Server samotny bezi v poradku,
> toho se to netyka.
> Prestoze nemusi jit o problem programu, chci se zeptat, zda
> jste se nekdo s necim podobnym nesetkal. Nemuze treba vadit, ze
> klient je jako user prihlaseny k serveru prilis dlouho? To je jen
> zoufaly napad - ma nekdo neco lepsiho?
Vypada to jako problem ktery byl identifikovan u dlouhych spojeni
na FB/Linux (neni znamo, zda timto trpi i IB/Linux, ale ostatni
platformy FB nejsou zda se postizene). Zhruba po 32 minutach
dojde k velmi podivnym ukazum v TCP/IP komunikaci (s keep alive
pakety). Pokud vim, tak zatim nebyl zdroj problemu zcela
identifikovan (linux kernel a/nebo FB) ani odstranen. Navic se
neprojevuje na vsech verzich jadra Linuxu. Pokud vim, tak
postizene jsou RH 7.0, SuSE 7.1 a MDK 7.1. MDK (Mandrake) 8.0
pry postizen neni. Rovnez doporucuji zkusit posledni FB 0.9.5
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.D5 Stan. & DB ;)))))))
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 6.6.2001 11:35:22
Pokud chces delat s IB, tak IbObjects ( www.ibobjects.com ) podporuji D5STD
(lepe receno jejich nativni cast - je tam jeste TDataset kompatibilni cast,
ta Ti nepujde). Je to trustware, tj. pokud tim neziskavas penize (mas to pro
sebe, na nauceni, delas free aplikace) tak to nemusis kupovat - bez Delphi
to pak pise takove upozorneni. Ja to nezkousel neb vlastnim D5Pro, ale na
http://www.interbase2000.com/WhitePaper/Connectivity.htm to pisou :-)
Leos
> koupil jsem si D5 Stan., ale k memu prekvapeni jsem zjistil, ze neobsahuje
> Database Desktop, InstallShield, dale jsem nenasel TTable, TQuery ...etc.
Statisticky vystup cez SQL
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 6.6.2001 12:04:34
> Teraz by som vsak chcel, aby bol
> vysledok usporiadany od najvacsieho
> poctu po najmensi.
> Skusam rozne kombinacie ORDER BY,
> ale nejako sa mi nedari.
No melo to jit takhle
select MENO, sum(POCET) as POCET from TABULKA
group by MENO
order by POCET
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
Statisticky vystup cez SQL
[*] ing. Pavel Zilinec <zilinec(zv)email(tec)cz> - 6.6.2001 12:18:26
select MENO, sum(POCET) as POCET
from TABULKA
group by MENO
order by POCET desc
------
ing. Pavel Zilinec
mailto:zilinec(zv)email(tec)cz
>> Teraz by som vsak chcel, aby bol
>> vysledok usporiadany od najvacsieho
>> poctu po najmensi.
Synapse - SendTo
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 6.6.2001 12:35:37
Ahoj,
zkousim pouzit Synapsi pro posilani obycejneho mailu, konkretne
funkci SendTo z unity SMTPSend. Mail se skutecne posle, to je v
poradku, ale problem je s cestinou v subjectu zpravy. Vypada to,
ze subj neni zakodovan do ISO 8859-2. Co se s tim da delat?
David Lebeda
Synapse - SendTo
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.6.2001 13:00:45
> Ahoj,
>
> zkousim pouzit Synapsi pro posilani obycejneho mailu, konkretne
> funkci SendTo z unity SMTPSend. Mail se skutecne posle, to je v
> poradku, ale problem je s cestinou v subjectu zpravy. Vypada to,
> ze subj neni zakodovan do ISO 8859-2. Co se s tim da delat?
Napsat si to sam. Pri pohledu do zdrojaku Synapse vidim, ze se nekona
konverze hlavicek, ktere obsahuji non-ASCII znaky. Cili pokud do Subjectu
napises neco s diakritikou odesle Synapse 8mi bitove znakyu v hlavicce(!) na
nadrizeny SMTP server a ten to samozrejme zkonvertuje - ale pouzije vetsinou
jine kodovani nez v jakem je Subject napsan.
Napoveda pro L.G.: RFC1342
D. Toman
Synapse - SendTo
[*] Ivan <tsx(zv)kgb(tec)cz> - 6.6.2001 13:08:21
> Ahoj,
>
> zkousim pouzit Synapsi pro posilani obycejneho mailu, konkretne
> funkci SendTo z unity SMTPSend. Mail se skutecne posle, to je v
> poradku, ale problem je s cestinou v subjectu zpravy. Vypada to,
> ze subj neni zakodovan do ISO 8859-2. Co se s tim da delat?
>
> David Lebeda
Subject by mel mit asi tento format: (priklad)
=?iso-8859-2?Q?__je=B9t=EC_jednou
1.Otazniky slouzi jako oddelovace
2.Kodova stranka (=?iso-8859-2?)
2.Q (?Q?) znamena kodovani QuotedPrintable (prevod je jednodussi nez do
BASE64)
Vsechny znaky nad 7F ascii se musi zadat jako (rovnitko + ASCII)
Napr. =B9 je S(s hackem).
Takto se daji zadavat vlastne vsechny znaky. Napr. =61 je A
Hlavicka mailu by mela obsahovat neco jako:
Content-Type: text/plain;
charset="iso-8859-2"
Ivan Sivak, pocitacovy laik
Synapse - SendTo
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 6.6.2001 13:21:12
> > zkousim pouzit Synapsi pro posilani obycejneho mailu, konkretne
> > funkci SendTo z unity SMTPSend. Mail se skutecne posle, to je v
> > poradku, ale problem je s cestinou v subjectu zpravy. Vypada to, ze
> > subj neni zakodovan do ISO 8859-2. Co se s tim da delat?
>
Zatim jsem trochu pokrocil: pouzil jsem MIMEMess ze Synapse.
Cestina v hlavicce je po doruceni v poradku, tj. v Pegasu je jak
jmeno odesilatele, tak i subject spravne cesky (a v poradku ve
smyslu mailu Ivana Sivaka).
Jedine, co jsem zatim neodstranil, je pomrsene hlaseni Novela
o tom, ze mi prisel novy mail. U jinych zprav neni s cestinou pri
tomto hlaseni problem, pouze zpravy generovane mnou maji v
tomto hlaseni problem s cestinou. Pri prohlednuti prislusneho cnm
souboru nevidim zadny problem.
David Lebeda
************************************************************
David Lebeda, program�tor
ComArr s. r. o.
Tolarova 291, 533 51 Pardubice
Telefon: 040/6889 111 (�st�edna), 040/6889 225 (p��m� linka)
Fax: 040/6415 481
E-mail: lebeda(zv)comarr(tec)cz
http://www.comarr(tec)cz
************************************************************OT TO Lukas Gebauer : Synapse - Raw socket
[*] tomsir1.edu(zv)mail.cez(tec)cz - 6.6.2001 13:27:19
bylo li by mozno ziskat vice informaci o %SUBJ% , nez jen ono demo ??
V dobe, kdy jsem se na dane www dival, bylo tam pouze demo, vic nic ...
pokud se tam toho jiz nachazi vice, beru dotaz zpet a omlouvam se ..... ted
jsem se dostal do situace, kdy bych potreboval pouzit raw socket .. bohuzel
nemam pristup pres http :O( a taxe tam nemohu kouknout ....
Diky Radegast
Verze Delphi a Exe
[*] Str�n�k Franti�ek - 6.6.2001 13:31:38
Mel bych jeden dotaz, tykajici se velikosti prelozeneho programu a
pouzite verze Delphi.
Predpokladejme, ze je napsan program v Delphi, jehoz funkce staci pokryt
verze Professional.
Tenty zdojovy kod je prelozen verzi Client-server. Bude vysledny kod
vetsi ? A co zdrojove prostredky ? atd ....
(Je zbytecne pouzit verzi Client-Server pro "male" veci ?)
Diky za nazory !!!!!
Franti#ek STR#N#K
mailto:FSTRANIK(zv)CPOJ.CZ
Synapse - SendTo
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 6.6.2001 13:59:46
No, se vsi uctou, Dalibore, ale priste nerejpej a nerad, dokud si to cele
skutecne neprostudujes, protoze NEMAS pravdu! :-)
Ano, SMTPsend.pas NEDELA zadne konverze. To je totiz ciste a jen
implementace SMTP protokolu. NIC VIC! Nedelaji se tam zadne
konverze zcela zamerne!
V SMTPsend.pas je implemetovan SMTP protokol jako trida
TSMPTsend. To je ucel teto unity. Protoze vsak casto clovek potrebuje
odeslat co nejjednoduseji nejaky mail, tak aby se pritom nemusel
obtezovat vytvarenim a rusenim objektu a rizeni SMTP spojeni, je tam
pridana funkce SentToEx, ktera co nejjednoduseji odesle COKOLIV jako
mail. Je ciste na programatorovi, jak to COKOLIV bude vypadat. Takze
kdyz si vymyslis svoje kodovani do hatmatilky, v klidu ti ten text e-mailu
nejak vytvor a timhle to odesles.
(tedy vytvoris-li si text e-mail s temi zakodovanymi hlavickami tak jak
maji byt, touto funkci jej odesles!)
Protoze vsak spousta lidi potrebuje odeslat JEDNODUCHY mail (treba
hlaseni nejakeho programu o chybe...), tak aby se nemusel obtezovat
vytvarenim zakladnich hlavicek, je tam jeste funkce SendTo, ktera ty
zaladni hlavicky vytvori. Ovsem v zajmu co nejvetsi jednoduchosti se
hlavicky neprekodovavaji. (Aby se zbytecne nenabaloval kod rutinami,
ktere v 90% pripadu vubec nepotrebujes...)
Nikde jsem ale netvrdil, ze toto je ta spravna funkce na odesilani
ceskych hlavicek!!! Naopak, toto pomocne funkce slouzi hlavne jako
priklad, jak zachazet s tridou TSMTPsend! A priklady je nejlepe delat na
necem uzitecnem, ne?
Tedy neni problem vyuzit kodovacich rutin z me unity SynaCode.pas ve
spojeni s moji univerzalni unitou na prekodovavani znakovych sad
MimeChar.pas a ono prekodovavani snadno udelat.
Ale proc se s tim pachtit, kdyz specielne na kodovani a dekodovani
hlavicek je v Synapsi unita MimeInLn.pas, ktera je cela specielne urcena
prave na kodovani hlavicek???
Navic je tam unita MimeMess, ktera vse vyse uvedene zapouzdruje do
objektu, pomoci ktereho lze nejen snadno rozebirat slozite MIME dopisy,
ale take je pomoci teto unity snadno tvorit. A to vcetne tech hlavicek.
Tedy potrebujete-li delat zbesile ceske dopisy, vyuzijte MimeMess.pas
unitu, ta to vsecno sama zakoduje (ani nemusite premyslet nad
kodovanim, urci si jej samo!) a vysledny stringlist pak pomoci SentToEx
funkce snadno odesles pryc.
Tedy, Dalibore, az budes chtit nekomu radit, ze cosi neco neumi a ze si
to musi doprogramovat, podivej se, jestli si jen neco neprehledl. :-)
Zaver: vse kritizovane Synapse samozrejmne podporuje.
BTW: To Daiborovo RFC je uz zastarale a existuje uz novejsi. ;-))))
Lukas.
> > poradku, ale problem je s cestinou v subjectu zpravy. Vypada to, ze
> > subj neni zakodovan do ISO 8859-2. Co se s tim da delat?
> Napsat si to sam. Pri pohledu do zdrojaku Synapse vidim, ze se nekona
> konverze hlavicek, ktere obsahuji non-ASCII znaky. Cili pokud do
> Subjectu napises neco s diakritikou odesle Synapse 8mi bitove znakyu v
> hlavicce(!) na nadrizeny SMTP server a ten to samozrejme zkonvertuje -
> ale pouzije vetsinou jine kodovani nez v jakem je Subject napsan.
>
> Napoveda pro L.G.: RFC1342
>
> D. Toman
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
Statisticky vystup cez SQL
[*] Ivan Virag <ivirag(zv)hopi(tec)cz> - 6.6.2001 14:00:56
-- s aliasem
select name, sum(neco) as soucet from table_name
group by name
order by soucet
-- bez aliasu
select name, sum(neco) from table_name
group by name
order by sum(neco)
-- bex aliasu
select name, count(*) from table_name
group by name
order by count(*)
-- s aliasem
select name, count(*) as pocet from table_name
group by name
order by pocet
Ivan Virag
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Peter Vlkovic
Sent: 5. �ervna 2001 16:38
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Statisticky vystup cez SQL
Vdaka, to je presne to, co potrebujem.
Teraz by som vsak chcel, aby bol
vysledok usporiadany od najvacsieho
poctu po najmensi.
Skusam rozne kombinacie ORDER BY,
ale nejako sa mi nedari.
Da sa to?
Vlkovic
> > neporadi nejaky SQL-guru, ako urobit
> > statisticky vystup napr. v tvare:
> >
> > MENO POCET
> > novak.....5
> > kovac.....12
> > zeman.....7
> > bednar....2
>
> Soucet hodnot v poli POCET vzdy pro kazde jmeno
>
> select MENO, sum(POCET) as POCET from TABULKA
> group by MENO
>
> J. N�dhera
Synapse - SendTo
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 6.6.2001 14:04:35
> > funkci SendTo z unity SMTPSend. Mail se skutecne posle, to je v
> > poradku, ale problem je s cestinou v subjectu zpravy. Vypada to, ze
> > subj neni zakodovan do ISO 8859-2. Co se s tim da delat?
> Subject by mel mit asi tento format: (priklad)
> =?iso-8859-2?Q?__je=B9t=EC_jednou
Na jednoduche prevedeni stringu do teto podoby slouzi funkce z unity
MimeInLn.pas v Synapsi.
function InlineCode(value:string):string;
Jako value dej string, ktery chces dat do te hlavicky, a funkce si sama
pozna, je-li treba provest zakodovani. A jestlize se ma provest
zakodovani, sama si vybere nejvhodnejsi kod. To ci ti funkce vrati, muzes
s klidnym svedomim do tech hlavicek mail dat. ;-)
V teze unite take naleznes funkce, pomoci kterych obdobne zakodovane
hlavicky muzes zase dekodovat.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
problemy po upgarde z D3 na D4
[*] Skokosek <skokosek(zv)seznam(tec)cz> - 6.6.2001 14:08:00
Ahoj, mam takovy problem. Predelavam dodatecne program, ktery byl
vytvoren v D3 prof. v D4 C/S.
Problem nastal mimo jin� u tisku. V puvodnim programu zjistuji pocet
stran sestavy pomoci
QuickRep.Prepare;
a potom
tiskdialog.ToPage:=QuickRep.QRPrinter.PageCount;
V D4 se ale sestava jakoby nestihne pripravit (prepare),
QuickRep.QRPrinter.PageCount dava 0 (nulu) a program hlasi vyjimku.
Kdyz jsem dal za QuickRep.Prepare sleep(5000), program si stacil
pripravit par stran, ale jen cast.
Poradi mi nekdo, jak situaci resit bez sleep ?
Dik moc, Lada
Synapse - SendTo
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 6.6.2001 14:11:42
Z dob, kdy jsem tu take valcil s Novellem bych rekl, ze byl problem prave
v tom Novellu a ne v te zprave..
Alespon u toho stareho NW4 byl problem v tom, ze Mercury (postovni
server, ktery ty hlasky o nove prichozi poste generuje) totiz podporuje
pouze a jedine JEDNO jedine kodovani znaku. Jenze e-maily mohou
obsahovat mnohem vice ruznych kodu. Takze pokud se netrefis primo do
toho, co ma v sobe nastavene Mercury, prijde to zmrsene.
Lukas.
> Jedine, co jsem zatim neodstranil, je pomrsene hlaseni Novela
> o tom, ze mi prisel novy mail. U jinych zprav neni s cestinou pri
> tomto hlaseni problem, pouze zpravy generovane mnou maji v tomto
> hlaseni problem s cestinou. Pri prohlednuti prislusneho cnm souboru
> nevidim zadny problem.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
program ktery prezije odlogovani uzivatele
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 06.6.2001 14:16:50
Ahoj,
poradil by mi nekdo, jak to udelat?
Patral jsem v konferenci a delam to takhle :
Zapis do registru .....runservices, volani registerserviceprocess po
startu programu
Program se spusti, v taskmanageru videt neni (takze
registerserviceprocess by melo byt OK),
na liste videt je (nechci neviditelny program, nakonec ma skoncit v
tryicon).
Ale po logoff se ukonci. Co delam spatne?
Vaclav Sazima
synchronizace casu
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 06.6.2001 14:16:34
Ahoj
potrebuji sychronizovat pocitace v lokalni siti podle jednoho.
Zatim to mam udelano pres net.exe, s tim, ze to volani schovam. Ale
pripada mi to trochu dreveny.
Nevite nekdo o nejakem hezcim reseni?
Vaclav Sazima
OT TO Lukas Gebauer : Synapse - Raw socket
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 6.6.2001 14:16:58
Trosku si mne vydesil, protoze ja o zadnem demu nevim. ;-)
V Synapsi mas podpurny kod. Nic vic. Pak je moznost jeste si stahnout
apliakci (bez zdrojaku!), pomoci ktere si overis, ze ti RAW sockety na
pocitaci vubec funguji.
Nic vic tam podle mne nikdy ani nebylo.
Velka napoveda jak pouzivat RAW sockety v Synapsi je unita
PingSend.pas, ktera implemnetuje ICMP PING. Je to dobra ukazka toho,
jak se chovat pri obsluze RAW socketu, byt je primo nevyuziva. (pouziva
ICMP socket, ale prace s nim je velmi podobna praci s RAW sockety.)
Lukas.
> bylo li by mozno ziskat vice informaci o %SUBJ% , nez jen ono demo ??
>
> V dobe, kdy jsem se na dane www dival, bylo tam pouze demo, vic nic
> ... pokud se tam toho jiz nachazi vice, beru dotaz zpet a omlouvam se
> ..... ted jsem se dostal do situace, kdy bych potreboval pouzit raw
> socket .. bohuzel nemam pristup pres http :O( a taxe tam nemohu
> kouknout ....
>
> Diky Radegast
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
Caption v ToolBaru
[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 6.6.2001 14:19:02
Ahoj a volam help!
Potreboval bych pichnout s jednim problemem. Pouzivam v MDI aplikaci
zadokovatelne ToolBary v ControlBaru. Ve dvou ToolBarech pracuji s
vlastnosti Caption daneho ToolBaru a to tak, ze menim jeho obsah podle
obsahu Childokna otviraneho v aplikaci. Problem je v tom, ze kdyz mam
ToolBar vytazeny ven z ControlBaru, tak nevim jakym zpusobem mam
"promitnout" zmenu vlastnosti Caption daneho ToolBaru, tak aby se projevila
vizualne na obrazovce. Pokud dany ToolBar zadokuji a zpet vytahnu ven, tak
se zmena Caption projevi. Jinak ne.
Prosim nevi nekdo jak na to. Mam D5 prof, WinNT4.0
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 353 062, Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.252 / Virov� b�ze: 125 - datum vyd�n�: 9.5.2001
OT TO Lukas Gebauer : Synapse - Raw socket
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.6.2001 14:31:20
>
> bylo li by mozno ziskat vice informaci o %SUBJ% , nez jen ono demo ??
>
> V dobe, kdy jsem se na dane www dival, bylo tam pouze demo, vic nic ...
> pokud se tam toho jiz nachazi vice, beru dotaz zpet a omlouvam se .....
ted
> jsem se dostal do situace, kdy bych potreboval pouzit raw socket ..
bohuzel
> nemam pristup pres http :O( a taxe tam nemohu kouknout ....
>
Jen poznamka - nevim k cemu chces RAW socket pouzit ale ve Windows zdaleka
RAW neznamena to co na jinych systemech (tedy tvorba obsahu paketu neni plne
pod kontrolou). Mam pocit, ze na Win2000 se to trosku zlepsilo ale nejsem si
jist.
pokud chces psat neco typu Ping/Tracert je lepsi nez Raw sockety pouzit
ICMP.DLL - melo by to chodit na vsechn verzich windowsu (narozdil od RAW
socketu)
D. Toman
Verze Delphi a Exe
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.6.2001 14:33:04
>Mel bych jeden dotaz, tykajici se velikosti prelozeneho programu a
>pouzite verze Delphi.
>Predpokladejme, ze je napsan program v Delphi, jehoz funkce staci pokryt
>verze Professional.
>Tenty zdojovy kod je prelozen verzi Client-server. Bude vysledny kod
>vetsi ? A co zdrojove prostredky ? atd ....
>(Je zbytecne pouzit verzi Client-Server pro "male" veci ?)
IMHO nebude - nema duvod. Kompilator je stejny pouzite knihovny taky.
(samozrejme je nutne vyloucit ruzna nastaveni kompilatoru/linkeru)
D. Toman
barva komponent
[*] Daniel Dedek <Dedek(zv)ds(tec)cz> - 6.6.2001 14:38:43
Ahoj,
nevite nekdo, jak obarvit komponenty, ktere nemaji vlastnost
Color? Napr. TButton? A pak jak docilit jinych barev u stinovani?
Podarilo se mi to jedine zmenou ve Vlastnostech zobrazeni pracovni
plochy pocitace, ale to ma efekt na vsechny okna.
Diky, Dan
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.243 / Virov� b�ze: 118 - datum vyd�n�: 30.3.2001
Pouziti seriove linky z Delphi
[*] Erik Salaj <winsoft(zv)stonline.sk> - 6.6.2001 14:53:01
>Ta totiz NENI komponenta, takze ji netreba jakkoliv instalovat. Staci si ji
>nakopirovat kprojektu a uvest ji v USES. ;-)
To, ze komponenty treba instalovat je samozrejme nevyhoda. Hlavne preto,
ze Delphi instalacia komponentov je dost nesikovna. Na druhej strane
sa ale komponenty pouzivaju daleko jednoduchsie.
> Pracuje se s ni podobne jako v nize uvedenem prikladu, ale s tim
> rozdilem, ze nemusite jak trouba hlidat nejaky eventy a prat se s timery,
> diky kterym je nutno mit nejake okno na posilani zprav. U mne neco
> takoveho netreba, takze pokud to chcete pouzivat v nejake konzolovce ci
> v servisu, nemusite delat hromady opicaren kvuli windowsim zpravam.
Komponenty takisto nemusia posielat nijake spravy oknam, alebo pouzivat
timer. Nas komponent nic take nerobi.
> Mate u mne pak jednoduche metody na zjisteni, jestli cekaji na
> vyzvednuti nejake data a pak take metody na cteni dat, kdy tyto metody
> pripadne samy pockaji, az vsechny pozadovane data prijdou.
>
> Tedy chcete-li precist trebas ctyri bajty dat, date pozadavek na cteni
ctyr
> bajtu dat a provadeci tok se vam na tom prikazu zastavi a program
> pobezi dal az kdyz vsechny ctyri bajty dat prijdou ci pokud doslo k
> nejake chybe.
>
>Programovani je pak mnohem primocarejsi. ;-)))
Samozrejme, to je idealny pripad. Niekedy ale potrebujes prijimat
znaky asynchronne (t.j. nevies dopredu, kedy ich dostanes
a kolko ich bude). Vtedy je vyhodne pouzit eventy, pretoze inak
si to musi aplikacia sama testovat a tym zbytocne zatazovat
procesor. Tieto eventy pre seriovu komunikaciu su aj priamo
podporovane Windowsom. Ak Eventy (alebo callback, etc.)
nepodporujes, tak ponechavas na uzivatelovi ako sa s tym
vysporiada. Je dost mozne, ze potom menej skuseny uzivatel
pouzije tie techniky, ktore kritizujes, napr. Timer.
Erik
Vytvareni COM a DCOM objektu
[*] Listuj <listuj(zv)centrum(tec)cz> - 06.6.2001 14:56:48
Mila konference,
rad bych vas poprosil o par rad tykajicich se COM a DCOM
objektu. Rad bych se do teto oblasti hloubeji ponoril, ale nevim
kde s tim v Delphi zacit. Existuji nekde nejake stranky
zabyvajici se timto tematem?
Muzete mi poslat par linku. Vim ze existuji o tom knihy a jednu
uz mam nastudovanou, ale nevim jak na to v Delphi.
Diky a pekny den
D5Prof.*****************
Jarda Jirava
(zv)
LiStuj
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
*****************
Hrajte on-line hry na http://herna.centrum(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
OT TO Lukas Gebauer : Synapse - Raw socket
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 6.6.2001 14:57:38
> Jen poznamka - nevim k cemu chces RAW socket pouzit ale ve Windows
> zdaleka RAW neznamena to co na jinych systemech (tedy tvorba obsahu
> paketu neni plne pod kontrolou). Mam pocit, ze na Win2000 se to trosku
> zlepsilo ale nejsem si jist.
Jedine co u RAW socketu pod windows nefunguje, je dosazovani Ip
adres odesilatele do hlavicky Ip packetu. se vsim ostatnim si lze hrat.
(krom toho i toto lze obejit. ;-))
> pokud chces psat neco typu Ping/Tracert je lepsi nez Raw sockety
> pouzit ICMP.DLL - melo by to chodit na vsechn verzich windowsu
> (narozdil od RAW socketu)
Z 32-bitovych systemu to nechodi pouze na nekterych W95, a i na to
existuje update.(je na nej odkaz u mne na synapsi.. takze to neni
problem.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
Knihovna ZLib
[*] <martin.falta(zv)atlas(tec)cz> - 6.6.2001 15:11:21
Ahoj,
potreboval bych ve svym programu zazipovat nekolik souboru. Rozhodl jsem se pouzit ZLib, ale jsem z toho trochu mimo. Nemohl by mi nekdo poslat priklad, jak zazipovat a rozzipovat nekolik souboru? Predem vsem dekuji.
Martin
COM a property
[*] Zika Petr <pzika(zv)ciglersw(tec)cz> - 6.6.2001 15:14:13
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj
nevite nekdo jak v novem COM objectu vytvorit property,
tak aby se po importu COMu do projektu chovala jako bezna property ?
D5
Diky Petr
setrvani progr. v pameti po odhlaseni win
[*] Kamil Muzika <muzikak(zv)hotmail(tec)com> - 06.6.2001 13:21:57
Ahoj lidi,
pouzivam na radu tohle:
//message WM_QUERYENDSESSION;
procedure TForm1.WMWndSession(var Msg:TMessage);
begin
if (IntToStr(Msg.LParamHi) = '32768') then
begin {odhlaseni}
AbortSystemShutdown(nil);
Application.ProcessMessages;
Timer1.Enabled := true;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ExitWindowsEx(EWX_LOGOFF, 0) <> false then
begin
Timer1.Enabled := false;
end;
end;
Problemy:
Program setrva v pameti pri logoff(prima, to chci), ale pokud nejde od
logoff, ale treba o restart ci vypnuti win, udela se zase jen logoff.
Jak to ze podminka pokud je LParam = 32786 (je to priznak ze jde o logoff v
message wm_queryendsession?) nefunguje, stale to pousti AbortSystemShutdown
a v timeru vola ExitWindowsEx(EWX_LOGOFF, 0)?
Diky Kamil
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.barva komponent
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 6.6.2001 15:29:18
Napriklad TButton vim, podivej se na www.kopr(tec)cz,
jinak obecna metoda neexistuje, je to obvykle spjate
se zpusobem, jak je to naprogramovano.
Slavek
> Ahoj,
>
> nevite nekdo, jak obarvit komponenty, ktere nemaji vlastnost
> Color? Napr. TButton? A pak jak docilit jinych barev u stinovani?
> Podarilo se mi to jedine zmenou ve Vlastnostech zobrazeni pracovni
> plochy pocitace, ale to ma efekt na vsechny okna.
>
> Diky, Dan
Vytvareni COM a DCOM objektu
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 6.6.2001 15:57:07
Haj hou!
On 6 Jun 2001,, Listuj wrote:
> rad bych vas poprosil o par rad tykajicich se COM a DCOM
> objektu. Rad bych se do teto oblasti hloubeji ponoril, ale nevim
> kde s tim v Delphi zacit. Existuji nekde nejake stranky
> zabyvajici se timto tematem?
>
> Muzete mi poslat par linku. Vim ze existuji o tom knihy a jednu
> uz mam nastudovanou, ale nevim jak na to v Delphi.
Pokud tou knihou neni Delphi Developer's Guide, pak ji vrele
doporucuji. Je tam vse podstatne.
Rozsirujici cteni a priklady jsou pak na nasledujicich adresach:
O OLE Automation:
http://www.djpate.freeserve.co.uk/Automation.htm
Pokrocilejsi techniky:
http://www.techvanguards.com/
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.Synapse - SendTo
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.6.2001 15:58:47
> No, se vsi uctou, Dalibore, ale priste nerejpej a nerad, dokud si to cele
> skutecne neprostudujes, protoze NEMAS pravdu! :-)
Ok, InlineEncode jsem nakonec nasel
>Ano, SMTPsend.pas NEDELA zadne konverze. To je totiz ciste a jen
>implementace SMTP protokolu.
To ale prave neni - SMTP protocol klade nejake pozadavky na prenasena data a
vyzaduje, aby se 8bit znaky neprenasely. Je to pravda vetsinou uz zalezitost
k nicemu (psalo se to v dobach, kdy muselo byt zaruceno (nebo lidi co to
psali meli koreny v UUCP), ze veskera komunikace projde 7bitovym kanalem)
>NIC VIC! Nedelaji se tam zadne
>konverze zcela zamerne!
svou logiku to ma, ale viz vyse.
D. Toman
Delphi IDE and packages - Internal error U704, Bad
[*] likeapear <likeapear(zv)centrum(tec)cz> - 6.6.2001 16:07:11
----- Original Message -----
From: "likeapear" <likeapear(zv)centrum(tec)cz>
> Zda se mi to byt naprosto nahodne a navic si prestavam byt jisty zda
problem
> zpusobuje prave toto. Uz se mi asi 2x stalo, ze vybehla tahle hlaska a
> pritom kdyz vyhledam dcp soubor meho balicku je jeden a na spravnem miste.
> :(( Zacina me to lezt krkem.
>
> LikeAPear
>
Tak ted uz me to zacina fakt s..t ~ Ted jsem objevil stav, kdy se velikost
dcp-souboru balicku meni v zavislosti na tom, ktery projekt jsem prednim
prelozil. Nevim co se to deje. :((((
LikeAPear
OT TO Lukas Gebauer : Synapse - Raw socket
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.6.2001 17:30:29
> > pokud chces psat neco typu Ping/Tracert je lepsi nez Raw sockety
> > pouzit ICMP.DLL - melo by to chodit na vsechn verzich windowsu
> > (narozdil od RAW socketu)
>
> Z 32-bitovych systemu to nechodi pouze na nekterych W95, a i na to
> existuje update.(je na nej odkaz u mne na synapsi.. takze to neni
> problem.
To je vec nazoru a typu aplikace. Pro vetsinu obyc useru to problem je
(instalovat WinSock2 atd)
D. Toman
program ktery prezije odlogovani uzivatele
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.6.2001 17:46:04
> Ahoj,
> poradil by mi nekdo, jak to udelat?
> Patral jsem v konferenci a delam to takhle :
>
> Zapis do registru .....runservices, volani registerserviceprocess po
> startu programu
>
> Program se spusti, v taskmanageru videt neni (takze
> registerserviceprocess by melo byt OK),
jaky vraci return kod ? melo by vracet 1 pokud se nepletu
Jak ho volas?
> na liste videt je (nechci neviditelny program, nakonec ma skoncit v
> tryicon).
> Ale po logoff se ukonci. Co delam spatne?
Ja RegisterServiceProcess pouzivam a chodi mi. Sice jej pouzivam ponekud
nestandardne - nechci aby program zmizel z tasklistu, tak
registerServiceProcess volam jen v okamziku, kdy se uzivatel odhlasuje.
Jakmile se prihlasi zase aplikaci deregistruju.
Mozna bude problem v obsluze udalosti pri odhlasovani usera. Nedivil bych se
kdyby Delphi VCL nerozlisovala mezi odhlasenim a shutdownem. Je treba
odchytit WM_ENDSESSION a pokud je LParam roven nule jde o shutdown pro
odhlasovani usera je v LParam hodnota EWX_REALLYLOGOFF (koukam, ze ji ve
zdrojaku testuju jako Flag (andem) a nevim proc :-) )
viz: http://support.microsoft.com/support/kb/articles/Q125/7/14.asp
D. Toman
Zjisteni pocitacu v siti
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.6.2001 17:47:08
> Snazim se do databazove aplikace dodelat seznam aktivnich uzivatelu.
Pouzil
> jsem komponentu pro UDP pakety od M.Jirmana (diik). Na prvnim pocitaci
> rozeslu Broadcast na vsechny IP adresy na siti. V klietskem programu
odeslu
> pri prichodu zpravy zpet jmeno pocitace, uzivatele atd. Vse funguje jak si
> predstavuji.
>
> Problem je v tom, ze pokud na nekterem klientovi prave bezi SQL dotaz
> (Interbase 6.1, IBExpress), tak vrati odezvu az po dokonceni SQL operace.
> Slo by nejak udelat, aby klient reagoval okamzite ?
napis odpovidac do separatniho threadu
D. Toman