Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Zamykani zaznamu na IB s pouzitim FreeIB
[*] Jaroslav KULHEIM <kulheim(zv)fitness(tec)cz> - 9.8.1999 16:07:35
Skoro v kazde databazi (tez pouzivam IB) muzes zaznam zamknout provedenim
tzv.
"dummy update" na zacatku editace zaznamu.
napr.
UPDATE tabulka SET klic=klic WHERE klic=10;
Jaroslav KULHEIM
kulheim(zv)fitness(tec)cz
QuickReport a Delphi 1
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 9.8.1999 16:17:20
Ahoj,
stojic na pokraji zoufalstvi, obracim se s dotazem do konference. Potrebuji
opravit (pocestit) starsi program, napsany v Delphi 1 a pouzivajici QRP
V095B. Bohuzel, nam to pouze jako DCU (jinak - mam jenom TO dcu) a dost
dobre nevim, jak zmenit hlasky a hinty na ceske, ktere jsou primo ulozeny v
DCU. Nechci to predelavat (ani to neni pozadovano), protoze jsou tam dalsi
DCU o kterych v podstate nevim ani co delaji (pry uzivatelske, math_ff.dcu,
math_hy.dcu, res_co.dcu, reard_x.dcu, rev_ro.dcu, chain_w.dcu aj. celkem asi
30 s takhle zajimavymi nazvy) a k cemu tam jsou dobre; zadalo by to zrejme
rozsahlejsi analyzu a navic, chtel jsem to udelat jen tak, ze me to
zajimalo. Mel byste nekdo, prosim, nejakou radu, jak tohle vyresit? Existuje
nekde moznost ziskat cesky QRP nebo kde sehnat zdroje od tehle stare verze
(prebouchnout to nejde, uz jsem zkousel, tez pouzit i nejakou jinou napr.
1.0D, ta zase nejde bez IDE Delphi - standalone - zrejme chce nejakou
registraci za penize)?
Dekuji za kazdou radu
Jaro B.
POP3 a jeho command APOP
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 9.8.1999 17:25:37
Ahojte, nemate, prosim, nekdo zkusenost se %subj%? Respektive, videli jste
nekdo nejakej server, na kterem to funguje?
(On to pise i Piette:
Oct 11, 1997 V1.11 Implemented the APOP command, but not tested because no
server available to test it.)
thx
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
POP3 a jeho command APOP
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 9.8.1999 17:44:15
> Ahojte, nemate, prosim, nekdo zkusenost se %subj%? Respektive, videli jste
> nekdo nejakej server, na kterem to funguje?
> (On to pise i Piette:
> Oct 11, 1997 V1.11 Implemented the APOP command, but not tested because
> no server available to test it.)
Zcela urcite APOP podporuje server Mercury od autora Pegasus
mailu... bezi mi to sice na serveru, ale nikdy jsem to prakticky
nezkousel... nejak nemam potrebu. ;-)
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
init directory
[*] Petr Matejovsky <pema(zv)seznam(tec)cz> - 9.8.1999 18:14:57
Ja k zjisteni adresare odkud se spousti program pouzivam tohle:
Cesta:=ExtractFilePath(Application.ExeName);
Petr Matejovsky
PeMa(zv)seznam(tec)cz
>lide dobri muzete prosim nekdo poradit jak zjistit cestu k
>adresari z ktereho se spousti exac ? Me totiz napadlo jen strasne
>krkolomne reseni najit ten soubor a z toho to zjistit :-)
Vyvojove prostredi Delphi 4 prof. - toolbuttons
[*] Tom� Br�dle������i�^����? - 9.8.1999 20:39:03
Zdravim,
update pack #3 mam, dela to i s nim, ale ne pri kazdem spadnuti (asi tak 1x
tydne).
S tim registrem je to dobrej napad, diky Petre i Jirko.
Tomas
t.bradle(zv)pvtnet(tec)cz
-----P�vodn� zpr�va-----
Od: Jiri Binder <j.binder(zv)albacon(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. srpna 1999 10:39
P�edm�t: Re: Vyvojove prostredi Delphi 4 prof. - toolbuttons
> > chci se zeptat jestli nekdo nema zkusenosti s nasledujici neprijemnou
veci.
> > V Delphi 4 prof. jsem si mirne upravil prostredi panelu nastroju (par
> > tlacitek pryc, nejake pridat, nektere panely presunout). Toto nastaveni
se
> > pamatuje dokud nedojde k exception v prostredi Delphi (ale ne pri kazdem
> > exception, jen nekdy). Pak se obnovi puvodni toolbary s tlacitky, jak
bylo
> > po instalaci. Setkal se s tim nekdo, popr. jak se tomu da predejit, ev.
jak
> > si nekam to svoje nastaveni ulo it (zazalohovat).
>
> A mas instalovany update pack #3 ? Me to sice taky obcas spadne, ale
nastaveni
> panelu nastroju zustane. Jinak to nastaveni je ulozeno v registru.
>
> Internet proti monopolu. Petr Vones, amatersky
programator
Me to dela i se SP3. Odpovidajici vetev v registrech jsen si ulozil do
*.reg souboru. Pokud se stane nejaka "prihoda" staci poklepat na
soubor a regedit ho tam opet vpravi.
Jiri Binder
Zamykani zaznamu na IB s pouzitim FreeIB
[*] Ing. Jaroslav �ke��k - 9.8.1999 21:04:36
Dobre, ale na jak dlouho se to zamkne a jak se to uvolni?
Podle mne se to zamkne jen na dobu transakce.
Pak mi ale unika smysl. Nebo je to jinak?
Jaro
> Skoro v kazde databazi (tez pouzivam IB) muzes zaznam zamknout provedenim
> tzv.
> "dummy update" na zacatku editace zaznamu.
>
> napr.
> UPDATE tabulka SET klic=klic WHERE klic=10;
>
> Jaroslav KULHEIM
> kulheim(zv)fitness(tec)cz
>
>
> RxDBGrid
[*] Michal �viga <proton(zv)iol(tec)cz> - 9.8.1999 21:59:15
U RxDBGrid staci odchytit udalost OnGetCellParams a tam lze zmenit Font,
barvu i pozadi.
procedure TForm1.RxDBGrid1GetCellParams(Sender: TObject; Field: TField;
AFont: TFont; var Background: TColor; Highlight: Boolean);
S pozdravem
Michal �viga (Sviga)
PROTON - CD KATALOG AMPER
Tel., fax:02/65 15 052
Mobil:0602/207 557
mailto:proton(zv)iol(tec)cz
http://www.cd-amper(tec)cz
http://www.dama(tec)cz
----- P�vodn� zpr�va -----
Od: Pavel Serbajlo
Komu: delphi
Odesl�no: 9. srpna 1999 10:51
P�edm�t: RxDBGrid
hi,
potrebuju mirne zmenit vzhled Gridu, aby ladil z celou aplikaci. Konkretne
mi jde o to, aby se prave vybrany zaznam nepodbarvoval tmave modre, ale aby
se zmenila barva pisma ve vsech bunkach tohoto zaznamu. Nevim, jak toho mam
docilit pres OwnerDraw , zkousel jsem to uz ruzne, ale nic nezabralo.
Muzete me nakopnout spravnym smerem?
bye
Pavel Serbajlo
Dynamicke volani funkce
[*] kInKy aL!GaT(zv)r <aligator(zv)club(tec)cz> - 09.8.1999 22:01:54
Dekuji za zminene pripominky, asi jsem se spatne vyjadril. Chtel
jsem tedy rict ze jsem chtel dynamicky volat funkci, ktera je
zaroven metodou a proto nefungovala klasicka vec jako byl
zavinac nebo TYPE bez OF OBJECT.
Dekuji Pavel
mailto: bansky(zv)club(tec)cz
> Tohle reseni je samozrejme take mozne. Pokud bys vsak
> deklaroval funkci mimo tridu (tedy neobsahovala by dodatek "of
> object"), musel bys ji volat se zavinacem, tak jak se objevilo v
> prikladu od nekoho jineho. Zde je totiz treba rozlisovat
> samostatnou funkci od metody tridy.Prace s komponentou pomoci fce jine DLL II
[*] Pavel Malinsk� <spiderland(zv)seznam(tec)cz> - 9.8.1999 22:05:46
S tim VAR sem se seknul, nicmene diky za namety.
S pozdravem
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203
----- P�vodn� zpr�va -----
Od: Petr Fejfar <callnet(zv)telecom(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 9. srpna 1999 8:16
P�edm�t: Re: Prace s komponentou pomoci fce jine DLL II
> Pavel Malinsk� <spiderland(zv)seznam(tec)cz> wrote:
>
> > ze z druhe dll predam jako parametr
> > VAR nejaky StringGrid do te fce v prvni dll takze jsem mel zato,
> > ze bude pracovat s predavanou komponentou a ne
> > s lokalni kopii.
>
> Tomu nerozumim. Jaka lokalni kopie? Bez ohledu na VAR, objekt v Delphi
predavas vzdycky jako pointer na instanci, ktera je alokovana na heapu
aplikace. To VAR se vztahuje jen a jen na ten pointer. Atributy takto
predane tridy bys mohl menit ad lib, pokud ovsem nejsou dynamicky alokovany,
protoze data pri pripadne zmene se alokuji na heapu DLL.
>
> Takze prvni problematicka zalezitost jsou ta dynamicky alokovana data.
Jestli pomuze pouziti sharemem nemam praktivky odzkouseno, protoze jsem
tento problem resil kdysi v D1 a tam sharemem nebyla, takze jsem to resil
jinak a od te doby me to nepali (viz predchozi mail). Nezapominej na to, ze
ta dynamicka manipulace s daty muze byt dost hluboko ve VCL.
>
> Dalsi vec, ktera byla v D1 problematicka, byly segmenty. Ve flat modelu by
tento problem mel vymizet, ale priznam se, ze neumim odpovedet, jak se chova
32-bitovy Delphi v nasledujici situaci:
>
> 1. Zpravidla jak DLL tak i aplikace pouzivaji units jako system, sysutils
apod.
> 2. Ty ovsem obsahuji staticke globalni promenne.
> 3. Optimalizujici linker vypousti promenne, na ktere se nikdo neodkazuje
> 4. D1 jsem nachytal, ze offsety stejne promenne uvnitr VCL se u DLL a EXE
lisily, coz je logicke, protoze procesy linkovani DLL a EXE jsou na sobe
nezavisle.
>
> Jak to resi 32bitova verze, nevim. Jestli neexistuje zadna staticka
promenna, na kterou by se nikdo neodkazoval v nejcasteji pouzivanych units,
nebo jestli linker unit jadra neoptimalizuje ci zda k takovemu jevu stale
dochazi a pak by to mohla byt pricina tvych potizi?
>
> Docela by me to zajimalo, bohuzel nemam cas, abych si s tim hral.
>
> Bye, pf
>
>
>
ff a memo
[*] Heinisch Jiri <HeiJu(zv)sol(tec)cz> - 9.8.1999 22:24:05
ahoj
muzu ti poslat komponetu, ktera resi podobny problem.
tj. kopiruje kompletne cely record vcetne memo a blobs,
pripadne pouze vybrany udaj do pameti pro opetovne vlozeni do tabulky.
Funguje mi to u FF i Paradoxu
S pozdravem Heinisch Jiri
----- Original Message -----
From: Pavel Cech
To: delphi-l(zv)fwd(tec)cz
Sent: Saturday, September 04, 1999 4:05 PM
Subject: ff a memo
Hi,
Mam takovy blby problem: ;)
Mam FlashFilerServer a natahuji polozky do svoji aplikace tak, ze polozky davam do
MemoryTable a nasledne je podle nejake politiky tridim do databaze Paradox.
Na FFServer mam polozky Stringove a nekolik Integeru.
Ted ale potrebuji do databaze dostat jeste Memo.
Na FFServeru jsem udelal polozku typu BlobMemo.
V memoryTable jsem si vytvoril polozku , ktera je BlobType=ftMemo.
Ted to potrebuji nejak z FFTable dostat do toho MemoryTable.
Kdyz jde o nejaky string tak, stacilo:
MTable1.Fields[5].AsString:=FFT.Fields[1].AsString;
Jak ale presosnout to Memo? Tohle fakci jen kdyz jde o Paradox-->Paradox.
MTable1.Fields[8].asVariant:=FFT.Fields[14].asVariant;
Diky za pomoc!
Zdravi Pavel C.Monitorovani dosle posty u MS Exchange
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 9.8.1999 22:30:08
Hi all,
potreboval bych se nejak napojit na MS Exchange a monitorovat obsah doslych emajlu. Nema s tim nekdo nejake zkusenosti?
Thanx, pf
Ceny Delphi 5
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.8.1999 23:24:14
Mrknete na:
http://www.borland(tec)cz/koncceny.htm#in04005
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Ovladani vice CD-ROM jednotek
[*] Jan =?iso-8859-2?Q?Skopov=FD?= <jan.skopovy(zv)creatix(tec)cz> - 10.8.1999 04:43:00
Pomoci prikazu mciSendString (mmSystem) umim kompletne ovladat CD
jednotku a zjistovat informace. Nepochopil jsem ale, jak definovat,
kterou jednotku chci pouzivat v pripade vice CD jednotek (nejlepe pres
pismeno jednotky).
Diky za kazdou radu.
Jan Skopovy
Cenik Delphi 5
[*] Ing. Jaroslav �ke��k - 10.8.1999 07:14:18
DELPHI 5 STANDARD 4990
DELPHI 5 PROFESSIONALCD21650
DELPHI 5 PROFESSIONAL UPGRADE 12890
DELPHI 5 ENTERPRISE 99990
DELPHI 5 ENTERPRISE C/UPGRADE 78160
DELPHI 5 ENTERPRISE UPGRADE z Delphi C/S 65250
DELPHI 5 TEAMSOURCE 8690
DELPHI 5 ADO EXPRESS 8690
DELPHI 5 PROFESSIONAL CONNECTIONS 25940
DELPHI 5 ENTERPRISE CONNECTIONS 75880
viz http://www.borland(tec)cz/koncceny.htm#in04005
To de
Jaro
bdgrid
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 10.8.1999 08:12:35
ja vzdycky myslel, ze na to je TDBCtrlGrid, nebo ne?
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+
-----Original Message-----
From: Ivan Kodaj [mailto:Ivan.Kodaj(zv)ibaware.sk]
Sent: Monday, August 09, 1999 3:47 PM
To: delphi-l(zv)fwd(tec)cz
Subject: bdgrid
Zdravim vsetkych
Neviete niekto, kde by sa mohla nachadzat komponenta dbgrid, ktora
by
mala vlastnost, ze stlpce mozu byt
rozneho typu. T.j. fieldy v stlpci budu typu TDBComboBox alebo TSpinEdit
atd.
Vdaka vopred.
i.k.version Windows
[*] Martin =?iso-8859-2?Q?Bedn=E1=F8?= <bednar(zv)mujweb(tec)cz> - 10.8.1999 08:49:17
DD,
prosim o radu. Potreboval bych pouzit v programu
verzi Windows. ( tj. v podstate to co se dostane po
zadani VER v prikazove radce ).
Zacinam a nevim jak na to.
za rady predem diky.
Martin
version Windows
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 10.8.1999 10:17:53
Cauec,>prosim o radu. Potreboval bych pouzit v programu
>verzi Windows. ( tj. v podstate to co se dostane po
>zadani VER v prikazove radce ).
napr takhle:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
OS : TOSVersionInfo;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var S: string;
begin
OS.dwOSVersionInfoSize := SizeOf(OS);
GetVersionEx(OS);
case OS.dwPlatformId of
VER_PLATFORM_WIN32s: // WIN32 on Win3.1
S := 'Win 32s na Windows 3.1x';
VER_PLATFORM_WIN32_WINDOWS: // Windows 95-98
if OS.dwMinorVersion = 0 then
S := 'Windows 95' + #13 + 'Version: ' +
IntToStr(OS.dwMajorVersion) + '.' +
IntToStr(OS.dwMinorVersion) + #13 +
'Build: ' + IntToStr(OS.dwBuildNumber) + #13 +
OS.szCSDVersion
else
S := 'Windows 98' + #13 + 'Version: ' +
IntToStr(OS.dwMajorVersion) + '.' +
IntToStr(OS.dwMinorVersion) + #13 +
'Build: ' + IntToStr(OS.dwBuildNumber) + #13 +
OS.szCSDVersion;
VER_PLATFORM_WIN32_NT: // Windows NT
S := 'Windows NT' + #13 + 'Version: ' +
IntToStr(OS.dwMajorVersion) + '.' +
IntToStr(OS.dwMinorVersion) + #13 +
'Build: ' + IntToStr(OS.dwBuildNumber) + #13 +
OS.szCSDVersion;
end;
ShowMessage(S);
end;
end.
Bye Ludan
SelectedRows v DBGrid
[*] Robert Kindl <rob(zv)optimal(tec)cz> - 10.8.1999 10:22:07
> A jak muzu pristupovat napr. k FDataLink nebo FSelecting, kdyz jsou v
> rodicovske tride
> zadefinovane jako Private?
K FDataLink je nejlepe pristupovat pomoci property DataLink,
ktera je sice protected, ale vsechny protected veci jsou pristupne v
dedicich
bez problemu, coz je take nas pripad.
Jinak je to mozno deklaraci
type
THackCustomDBGrid=class(TCustomDBGrid);
a pote pretypovanim THackCustomDBGrid(Grid1).DataLink
Nevyhodou je, ze tuto deklaraci je nutno uvest v kazde unit znovu.
K private metodam se pristupovat prakticky neda
(jestli to nekdo umi tak at mi to okamzite prozradi).
K private promennym se da pristupovat deklaraci
{ ========================================================= }
{ TCrackCustomDBGrid }
{ ========================================================= }
{ for direct access to private variables of TCustomDBGrid }
{ declaration should match \Program Files\Borland\Delphi
3\Source\VCL\dbgrids.pas}
{$HINTS OFF}
type
TCrackCustomDBGrid = class(TCustomGrid)
private
FIndicators: TImageList;
FTitleFont: TFont;
FReadOnly: Boolean;
FOriginalImeName: TImeName;
FOriginalImeMode: TImeMode;
FUserChange: Boolean;
FLayoutFromDataset: Boolean;
FOptions: TDBGridOptions;
FTitleOffset, FIndicatorOffset: Byte;
FUpdateLock: Byte;
FLayoutLock: Byte;
FInColExit: Boolean;
FDefaultDrawing: Boolean;
FSelfChangingTitleFont: Boolean;
FSelecting: Boolean;
FSelRow: Integer;
FDataLink: TGridDataLink;
FOnColEnter: TNotifyEvent;
FOnColExit: TNotifyEvent;
FOnDrawDataCell: TDrawDataCellEvent;
FOnDrawColumnCell: TDrawColumnCellEvent;
FEditText: string;
FColumns: TDBGridColumns;
FOnEditButtonClick: TNotifyEvent;
FOnColumnMoved: TMovedEvent;
FBookmarks: TBookmarkList;
FSelectionAnchor: TBookmarkStr;
FOnCellClick: TDBGridClickEvent;
FOnTitleClick:TDBGridClickEvent;
end;
{$HINTS ON}
a pretypovanim TCrackCustomDBGrid(Grid1).FSelecting.
Vypada to desne, ale tohle staci udelat jednou, dat to napr do interface
nejako unity (cracks.pas)
a pak uz to jen pouzivat. Pri prechodu na jine Delphi staci vymenit
cracks.pas nebo
do ni dodelat IFDEFy (a pak jiz jen preprogramovat cely zbytek aplikace).
Rob
PS. Posilam kopii do konference at se i ostatni dozvedi jak na to
(i kdyz ono to stejne neni nic platne,
stejne se na to nekdo za tyden zepta znovu, ze).
Rezidentni aplikace
[*] Menfy <menfy(zv)iol(tec)cz> - 10.8.1999 11:13:54
Poradite nekdo s vyvojem rezidentni aplikace - jak zacit ? Dik
________
Filip Rejlek <frejlek(zv)atlas(tec)cz>
tel.: 0602/816 151
Knihovny DLL - zacatecnik
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 10.8.1999 12:25:42
Zdravim,
mam tady jeden zacatecnicky dotaz - jak psat knihovny v Delphi? ==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== Rezidentni aplikace
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 10.8.1999 12:59:48
Co je to rezidentni aplikace? Viktor
----- Original Message -----
From: Menfy <menfy(zv)iol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, August 10, 1999 11:13 AM
Subject: Rezidentni aplikace
Poradite nekdo s vyvojem rezidentni aplikace - jak zacit ? Dik
________
Filip Rejlek <frejlek(zv)atlas(tec)cz>
tel.: 0602/816 151
Narocnost na win.resources u aplikaci v D2 a D4
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 10.8.1999 13:10:29
Ja dost casto pouzivam TBitBtn. Nevite jak by se dalo
zabranit ztrate zdroju i pres jejich pouziti?
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+
-----Original Message-----
From: Jiri Binder [mailto:j.binder(zv)albacon(tec)cz]
Sent: Monday, August 09, 1999 9:53 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Narocnost na win.resources u aplikaci v D2 a D4
>
> Kdepak, to neni tak jednoduchy :-) Uprava je vicemene nemozna, protoze
> je to ukryto pomerne hluboko ve VCL. Resit se to da ale jinak.
Nepouzivat
> TSpeedButton (neni ani proc, daleko lepsi je TToolBar), zrici se
TBitBtn
> a misto TDBNavigatoru pouzit TToolBar s vyuzitim prislusnych standart
> Action.
>
> Internet proti monopolu. Petr Vones, amatersky
programator
Tato rada Petra Vonese mi nedavno pomohla. Program, ktery
sezral cca 30% GDI jich po nahrazeni vsech TBitbtn a zejmena
odvozenin od SpeedButtonu sezral jiz jen 20%. Ovsem i to je moc,
neco malo pomohlo vytvareni nekterych formu za chodu, ale podle
meho nazoru jeste nekde musi nejaky neprimereny zrout byt.
Zatim jsem to odlozil do nove verze Delphi.
Jiri Binder
TToolbar
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 10.8.1999 13:18:40
Zdravim,
mejme TToolbar a na nem napr. 5 TToolButtonu.
Butony maji ruzna jmena a ruznou hodnotu tag.
Potreboval bych v zavislosti na [nastavene hodnote] zobrazit jen ty butony,
ktere maji tag=[nastavena hodnota].
Jak mohu projet pouze TToolbar pri hledani komponent?
==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== Knihovny DLL - zacatecnik
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 10.8.1999 13:19:34
Ahoj,
knihovny lze psat jako normalni projek, jenom s tim
rozdilem, ze misto klicoveho slova program (na zacatku)
uvedes library. Potom je potreba jednotlive funkce
te knihovny "vyexportovat", ale pozor, pri predavani
parametru je nutne, aby jsi misto klasickych stringu
pouzil null-terminated (tedy, ono to jde, ale musi
se pouzit jeste nejaka dalsi knihovna nebo co...
(alespon u D1 tomu tak bylo (myslim)))
U D1 je taky priklad v %Delphi1%\Demos\CallDll
Dobra.
> ----------
> mam tady jeden zacatecnicky dotaz - jak psat knihovny v Delphi?
> Monitorovani dosle posty u MS Exchange
[*] Burger, Tomas <tomas.burger(zv)sap-ag.de> - 10.8.1999 13:22:40
> -----Original Message-----
> From: Petr Fejfar [mailto:callnet(zv)telecom(tec)cz]
>
> potreboval bych se nejak napojit na MS Exchange a monitorovat
> obsah doslych emajlu. Nema s tim nekdo nejake zkusenosti?
Cich mailu...? Svych...? Nebo vsech...? To doufam mozne neni... :-))
Tomas
Monitorovani dosle posty u MS Exchange
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 10.8.1999 13:50:47
Burger, Tomas <tomas.burger(zv)sap-ag.de> wrote:
>> potreboval bych se nejak napojit na MS Exchange a monitorovat
>> obsah doslych emajlu. Nema s tim nekdo nejake zkusenosti?
>
>Cich mailu...? Svych...? Nebo vsech...? To doufam mozne neni... :-))
Samozrejme ze vsech :-) nebo alespon vybranych. Na UNIXu by to nemel byt problem. Ale u Gatese?
Bye, pf
Rezidentni aplikace
[*] Ing. �ubom�r G�L - 10.8.1999 13:50:04
Je tym myslena aplikacia, ktora niekde v kute sedi (lezi ...), ticho si
mrmle, chrusta bajty, nieco sleduje a sem-tam s kymsi komunikuje ? Teda - vo
Win, nie Dos...
LuGa
******************************
Lubomir "Levec" GAL, -LuGa
IS, NUPSESO, a.s. Nitra, SK
mailto:lgal(zv)nupseso.sk
******************************
----- Original Message -----
From: Viktor Lostak <Viktor.Lostak(zv)chmi(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 10. august 1999 12:59
Subject: Re: Rezidentni aplikace
> Co je to rezidentni aplikace? Viktor
>
> ----- Original Message -----
> From: Menfy <menfy(zv)iol(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Tuesday, August 10, 1999 11:13 AM
> Subject: Rezidentni aplikace
>
>
> Poradite nekdo s vyvojem rezidentni aplikace - jak zacit ? Dik
> ________
>
> Filip Rejlek <frejlek(zv)atlas(tec)cz>
> tel.: 0602/816 151
Komponenty mODBC
[*] Petr Sadovsky <petr(zv)slunce(tec)cz> - 10.8.1999 13:59:53
Ahojte.
nemate nekdo, prosim zkusenosti se %Subj%?
At zkousim, jak zkoousim, nejsu schopny zapsat do tabulky FOXPRO.Bud krici,
ze tabulka je ReadOnly (napr. prip pokusu o Insert) nebo ze neni otevrena
(pri TabPripad.FieldByName(�EvC�).AsString:=Edit1.Text; ) . Tabulka ma
Active na True a pouzil jsem i TabPripad.Open; , ale marne. V property
editoru je vlastnost Params, to by mohlo byt ono, ale nevim, co tam mam
zadat.Zadny popis ke komponentam nemam.
Predem diky.
Petr Sadovsk�
p.sadovsky(zv)atlas(tec)cz
ICQ 37042001
Rezidentni aplikace
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 10.8.1999 14:05:36
Hmm, a co si predstavujes pod pojmen rezidentni aplikace ve WIN32?
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Menfy [SMTP:menfy(zv)iol(tec)cz]
> Odesl�no: 10. srpna 1999 11:14
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Rezidentni aplikace
>
> Poradite nekdo s vyvojem rezidentni aplikace - jak zacit ? Dik
> ________
>
> Filip Rejlek <frejlek(zv)atlas(tec)cz>
> tel.: 0602/816 151
Ve Win98 OK, ve Win95 nefunkcni
[*] Ji�� Ho�ek <j.hosek(zv)mmo(tec)cz> - 10.8.1999 14:21:29
Zdravim jeste jednou a s doplnujicimi informacemi:
Vse je napsano v D2 na Win98 BDE hlasi verzi 3.0
na Win95 BDE 4.0 (zeby zpetna kompatibilita), IB server
je verze 4.1.
Pri pokusu o filtrovani (pravdepodobne stejny problem
i pri DBLookupComboBox, protoze pokud tam je hodnota NULL,
tak to vytvrdne az pri pokusu o rozbaleni) program vytuhne bez
jakekoliv hlasky ci vyjimky.
> Program odladeny a funkcni na Win98 se na Win95 zasekava.
> Konkretne v konstrukci na prikazu FindFirst
>
> Query1.Close;
> Query1.Prepare;
> Query1.Open;
> Query1.Filter := 'ID = ' + IntToStr(ID);
> Query1.FindFirst;
>
> a take pri otevreni okna ve kterem je pouzit DBLookupComboBox.
> Databaze jede na lokalnim InterBase servru.
> Setkali jste se nekdo s necim podobnym ?
Jeste jednou diky, Jiri.Blikani v TLabel
[*] Roman �ev��k����ǯr(�j�k�o� - 10.8.1999 15:19:09
prostredi: D3
subj.: TLABELu nastavim obrovske pismo(skoro pres celou obrazovku).
Hodnota TLabel.Caption se kazdych 1s zmeni.
quest.: Jakym zpusobem mam zamezit blikani. Zkousel jsem to pres Canvas.TexOut - je to jeste horsi.
Diky.
Roman �ev��k
ARTRON s.r.o.
R��ov� n�m�st� 3
Boskovice 680 01
Tel.: 0501-454101
Inter Base
[*] Dan Rejchrt <rejchrt(zv)ssakhk(tec)cz> - 10.8.1999 15:34:00
No je to mozna hloupy dotaz, ale nemohl by mi nekdo vysvetlit k cemu slouzi
Inter Base ? I jako server, nebo klient.
Dan
SQL
[*] Robert Jendrisak <delphi(zv)minv.sk> - 10.8.1999 15:36:17
Nastavuje sa to v database komponente, ked clicknes pravym tlacitkom,
vyberies defaults a napr. DBDATE=MDY4 (mesiac den rok 4)
Keep well
Werki
PS: mne to funguje len v "
> Mozna je lepsi pouzivat format s jednoznacne urcenym
> dnem a mesicem: #yyyy-mm-dd#
> Napr.:
> select * from tabulka where datum < #1999-01-01#
>
> u formatu v uvozovkach nebo apostrofech
> nebylo jasne, co je mesic a co den, nasel jsem
> tento format a spolehlive mi funguje (ale nezkousel
> jsem to z Delphi).
>
> Jura
>
> > -----Original Message-----
> > From: Martin O�en� [mailto:ocenas(zv)proces.sk]
> > Sent: Tuesday, July 27, 1999 3:09 PM
> > To: Delphi konf.
> > Subject: Re: SQL
> >
> >
> > select * from tabulka where datum < '1.1.1999'
> >Stack overflow v cmplib32.dcl
[*] Petr Slov�k <petr(zv)trilog(tec)cz> - 10.8.1999 15:37:35
Zacala mi z niceho nic zlobit kompilace cmplib32.dcl a to nasledujicim zpusobem. Mam nainstalovano plno nekolik komponent (mimo jine RX Library, Async Prof. a dalsi). Byly doby, kdy jsem tam mel vsechno co ted a jeste neco navic.
V soucasnosti ma cmplib32.dcl 2,8MB. Pokud nic nepridam a spustim jen kompilaci, tak pri linkovani vyhodi chybu "stack overflow" a zustane viset ve stavu, kdy ma zatim vysledek v pracovnim souboru cmplib32.dll, ktery ma ted 4,8 MB !!!!! Nechapu, kde se tam vzaly ty dva megabajty navic.
Zkusil jsem i zacit nacisto znovu s jinym poradim pridavani komponent. Zkousel jsem dokonce i kompletne preinstalovat Delphi, ale nemuzu se toho zbavit. Velice brzy narazim na strop a nemuzu pridavat dalsi komponenty.
Jde o Delphi 2
Nenarazil jste nekdo na podobny problem a nevite, jak to resit?==============================
Ing. Petr Slovak
e-mail: petr(zv)trilog(tec)cz
url: http://www.trilog(tec)cz
tel: 0603 / 501 642
SMS: +420603501642(zv)sms.paegas(tec)cz
==============================
Monitorovani dosle posty u MS Exchange
[*] Burger, Tomas <tomas.burger(zv)sap-ag.de> - 10.8.1999 15:45:13
> -----Original Message-----
> From: Petr Fejfar [mailto:callnet(zv)telecom(tec)cz]
> Samozrejme ze vsech :-) nebo alespon vybranych. Na UNIXu by
> to nemel byt problem. Ale u Gatese?
Co si pamatuju, tak admin mohl muj exchange mailbox smazat, ale nemohl se do
nej podivat, pokud jsem mu k tomu nedal prava...
Mozna by bylo mozny napsat nejaky spider script, ktery pres CDO bude sahat
do mailboxu a neco s tou postou provadet... Jak je to tam s pravama,
nevim...
Tomas
ps. Snazil jsem se odpovedet mimo konferenci, neb uz je to trosku off-topic,
ale email callnet(zv)telecom(tec)cz vraci chybu... T.MediaPlayer D4
[*] Hynek Svato� <svatos(zv)af(tec)czu(tec)cz> - 10.8.1999 15:57:38
:-O
uf, uf
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, August 08, 1999 11:50 PM
Subject: Re: MediaPlayer D4
> Eduard Navr�til wrote:
>
> Zdravim
>
> Prosim o radu, kde by mohla bejt chyba. Na formular v D4 umistim
komponentu MediaPlayer,
> do property DeviceType := dtCDAudio a pri pokusu o MediaPlayer.Open
vyhodi:
> " Exception EMCIDeviceError in module PROJECT1.EXE at 0003D4F5.
> MMSYSTEM296 Na uvedenem zarizeni MCI nelze soubor prehrat.
> Soubor je poskozen nebo nema spravny format. "
> nevim jestli nemam nekde neco spatne nastavene nebo jestli neni problem v
D4, protoze
> ostatni DeviceType mi jedou bez problemu a v D3 na stejnem pocitaci mi
> DeviceType := dtCDAudio jelo bez chyby. Po instalaci D4Upgd#3 zadna zmena.
Ahoj,
Mas pravdu, nefunguje to. Vypada to, ze chyba je v metode Open v radce:
FFlags := FFlags or mci_Open_Element;
Pokud se tam ta konstanta do Flags neprida tak to funguje. Problem ale
bude to odstranit, protoze je to cele v jedne metode VCL. Napadlo me
ale jedno naprosto silene reseni, je to spis takova legracka, nikdy bych
to v nicem asi radsi nepouzil :-) Taky to nemusi fungovat pod NT. Jde o
to, ze ten radek je pak v kodu prelozen jako:
OR [ESI + $2C8], $00000200
Za urcitych okolnosti je tedy mozne za behu programu zjistit adresu metody
TMediaPlayer.Open a odpocitat offset k te instrukci a nahradit tu konstantu
hodnotou 0. K tomu je jeste navic treba pocitat s tim, ze kod muze byt i v
balicku. Cele to pak pro D4.03 vypada takhle:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
MPlayer, StdCtrls;
type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
class function FixMediaPlayerOpenBug: Boolean;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
class function TForm1.FixMediaPlayerOpenBug: Boolean;
const
ReplacedInstruction: packed array[1..8] of Byte =
($81, $8E, $C8, $02, $00, $00, $00, $02); // OR [ESI + $2C8], $00000200
TMediaPlayer_Open_MethodName = '(zv)Mplayer(zv)TMediaPlayer(zv)Open$qqrv';
// Jmeno metody TMediaPlayer.Open v balicku
var
MethodAdress: PChar;
VCLX40PackageHandle: HMODULE;
function SafeReplace: Boolean;
var
SaveProtect, OldProtect: DWORD;
begin
Result := VirtualProtect(MethodAdress, 4096, PAGE_READWRITE,
(zv)SaveProtect);
if not Result then Exit;
Result := CompareMem(MethodAdress + $AE, (zv)ReplacedInstruction,
Sizeof(ReplacedInstruction));
if Result then PByte(MethodAdress + $B5)^ := 0; // Zmena na: OR [ESI +
$2C8], $000000000
Result := VirtualProtect(MethodAdress, 4096, SaveProtect, (zv)OldProtect);
end;
begin
Result := False;
VCLX40PackageHandle := GetModuleHandle('VCLX40.BPL');
if VCLX40PackageHandle = 0 then
begin // neni pouzit balicek
MethodAdress := (zv)TMediaPlayer.Open;
Result := SafeReplace;
end else
begin // je pouzit VCLX40.BPL
MethodAdress := GetProcAddress(VCLX40PackageHandle,
TMediaPlayer_Open_MethodName);
if MethodAdress <> nil then Result := SafeReplace;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
if not FixMediaPlayerOpenBug then
raise EInvalidOperation.Create('Instruction not found');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Open;
end;
end.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
TToolbar
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 10.8.1999 15:57:02
Ahoj,
mozna by to slo takhle, neco podobneho pouzivam.
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Krayzel Libor [SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
> Odesl�no: 10. srpna 1999 13:19
> Komu: '*** Delphi'
> P�edm�t: TToolbar
>
> Zdravim,
>
> mejme TToolbar a na nem napr. 5 TToolButtonu.
> Butony maji ruzna jmena a ruznou hodnotu tag.
>
> Potreboval bych v zavislosti na [nastavene hodnote] zobrazit jen ty
> butony,
> ktere maji tag=[nastavena hodnota].
>
> Jak mohu projet pouze TToolbar pri hledani komponent?
>
[Bene� Jaroslav]
Var I:Integer;
...
For I:=0 To ComponentCount-1 Do
If Components[I] is TButton Then
If TButton(Components[I]).Parent=ToolBar1 Then
TButton(Components[I]).Visible:=LongBool(TButton(Components[I]).Tag);//zalez
i jak je tag definovany, predpokladal jsem boolean
> ==[ Libor Krayzel ]================================
> http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
> http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
> office: +420-69-620 1375
> GSM: +420-603-937 947
> ============================================== Monitorovani dosle posty u MS Exchange
[*] Santik <santik(zv)pronetix.sk> - 10.8.1999 16:24:15
> Burger, Tomas <tomas.burger(zv)sap-ag.de> wrote:
>
> >> potreboval bych se nejak napojit na MS Exchange a monitorovat
> >> obsah doslych emajlu. Nema s tim nekdo nejake zkusenosti?
> >
> >Cich mailu...? Svych...? Nebo vsech...? To doufam mozne neni... :-))
>
> Samozrejme ze vsech :-) nebo alespon vybranych. Na UNIXu by to nemel byt
problem. Ale u Gatese?
Samozrejme ze ide monitorovat vsetky maily na MS Exchange - ako inak by
pracovali napr. antivirusove programy ?
Robi sa to cez MAPI rozhrania.
Bye
Santik
Santik(zv)pronetix.sk
Cenik Delphi 5
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 10.8.1999 16:40:07
> DELPHI 5 PROFESSIONAL UPGRADE 12890
> ...
> viz http://www.borland(tec)cz/koncceny.htm#in04005
>
> To de
No jo, vzdyt to neni ani dvojnasobek cen z Borland.com:
>>>> Delphi 5 Professional - Borland Customer Upgrade $ 249.95
;-)
Tom
ADMIN: Pravidla konference...
[*] Burger, Tomas <tomas.burger(zv)sap-ag.de> - 10.8.1999 21:07:04
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.
Vazeni pratele, mili delphini...
Cas her a radosti mladistvych skoncil, v priloze tohoto mailu je prvni navrh
pravidel teto konference.
Pokud mate nejake dalsi pripominky a navrhy, obracejte se s nimi do MEHO
mailboxu...!
Pokud nekdo nedoda do 48 hodin nejakou zasadni namitku, pravidla rozeslu
jeste jednou a vejdou tim v platnost...
Mejte se. Tomas
Tomas Burger, Projekt Magdalena
------------------------------------------------------
http://web.magdalena(tec)cz/
mailto:Tomas.Burger(zv)magdalena(tec)cz
<<rules.txt>>
Konference delphi-l
- zavazna pravidla pouzivani v. 0.1 (10. srpna 1999)
delphi-l(zv)fwd(tec)cz
-------------------------------------------------------------
1. Status konference
2. Admin
3. Co do konference patri?
4. Co do konference nepatri?
5. Co bych mel jeste vedet?
6. Who is who?
-------------------------------------------------------------
1. Status konference
====================
Konference delphi-l je venovana problematice programovani
v nastroji Delphi firmy Inprise a souvisejicim problemum
(programovani ve Win32 obecne, databazove technologie apod).
Konference se ridi vlastnimi pravidly s prihlednutim k nepsanym
pravidlum vsech podobne fungujicich konferenci a samozrejme
etickymi pravidly Internetu.
Tento dokument obsahuje posledni, a tudiz platnou verzi pravidel.
Vsechny predchozi dokumenty s podobnym obsahem jsou tudiz neplatne.
2. Admin
========
Administrator konference (nebo-li tez zkracene "admin") je osobou,
ktera se stara o chod konference jak po technicke strance, tak
po strance obsahove, kterou v nutnych situacich usmernuje.
Pokud admin potrebuje oslovit vetsi skupinu ucastniku konference,
udela tak pomoci mailu oznaceneho slovem ADMIN: v subjektu zpravy,
zpravu je mozno automaticky povazovat za dulezitou.
Admin ma pravo vyradit ucastnika konference, ktery i po upozorneni
opakovane porusuje pravidla konference.
Admin ma v administratorskych vecech vzdy pravdu.
Pokud mate k rozhodnuti ci opatreni admina pripominku, v zadnem
pripade se k veci nebudete vyjadrovat v konferenci, ale pouze
a jen na adresu admina.
Adminu je nekolik a jednaji ve shode. Pravomoc jednoho nelze
zlehcit odvolavanim na druheho.
3. Co do konference patri?
==========================
* prispevky psane ceskym ci slovenskym jazykem a to
spisovnou ci obecnou cestinou/slovenstinou
* prispevky psane vyhradne v ASCII bez hacku a bez carek
* prispevky tykajici se tematu a zaroven prinosne
pro ucastniky konference
4. Co do konference nepatri?
============================
* zadosti o odhlaseni z konference
* libovolna komercni nabidka ci poptavka
* prispevky psane v libovolnem jinem kodovani nez ASCII
* neobjektivni prosazovani libovolneho produktu na ukor
ucastniku konference
* varovani pred virem, krachem banky a vasi tchyni
(samozrejme, ze pokud nejaky blbecek posle do konference
neco ala HAPPY99.EXE, tak je to neco jineho)
* osobni korespondence
* libovolne hadky, flamewars, famy a pomluvy
* vykriky typu "jo, to se mi libi", "dobry", "to chci taky!"
* prispevky, ktere jsou v rozporu s platnou legislativou
statu odesilatele ci CR a SR (zejmena citace autorsky chraneneho
kodu, seriova cisla ci cracky komercnich produktu apod.)
* prispevky, ktere obsahuji binarni prilohy (velikost, resp.
malost neni omluvou)
5. Co bych mel jeste vedet?
===========================
* Kazdy prispevek do konference ma mit vystizny predmet.
Predmety typu "Help!", "Velky problem" nebo "Delphi nefunguje"
mezi takove nepatri.
* Pokud se na neco ptam, je stejne dulezite jako dotaz sam,
uvest nektere dalsi informace. K nim patri napriklad verze
Delphi, verze operacniho systemu, verze databazi, vycet
vsech aplikovanych servise packu apod.
* Pokud reaguji do konference na nektery z prispevku vcetne
jeho citace, ponecham jen nezbytne nutnou cast pro zachovani
navaznosti a pochopeni. V kazdem pripade odmazavam mailove
hlavicky a zbytecne casti signatur.
* Pokud preci jen mam pocit, ze bych zemrel ci porodil,
kdybych do konference nezaslal prispevek mimo jeji tema,
oznacim jej v subjectu "OT:" ci "OFF-TOPIC:". Takoveto oznaceni
prispevku neznamena, ze se na mne nebude admin zlobit.
* Pokud se nekdo prohresi proti pravidlum, dostane nejdriv soukromy
mail primo od admina. Pokud bude hresit dal, oznami admin do
konference jeho vylouceni. Pokud se ho v nasledujicich 48 hodinach
zastane na emailu admina dostatecne mnozstvi verohodnych osob,
muze admin svuj verdikt prehodnotit.
* Konferenci odebiraji stovky lidi. Pokud zaslu do konference
prispevek, odesle se kazdemu z nich. Z tohoto duvodu
prispivam do konference s uvazenim a rozvahou a nezli
nastavim do sve posty nejakou automatickou odpoved presvedcim
se nejsem-li prihlasen do nejake konference.
* Konference je provazana s web serverem http://www.delphi(tec)cz/.
Zkuste, nez se zeptate, prohledat archiv teto konference nebo
FAQ sekci. Pokud potrebujete predat ostatnim nejaky soubor,
obratte se na email webmaster(zv)delphi(tec)cz a pouzijte sekci "Soubory".
* Admini NEMAJI radi off-topicove diskuze.
6. Who is who?
==============
Administratori
--------------
Tomas Burger (Tomas.Burger(zv)delphi(tec)cz)
(zatim jenom...)
Provozovatele
-------------
Flamingo Web Design (http://www.fwd(tec)cz/)
- provozovatel list serveru
Projekt Magdalena (http://web.magdalena(tec)cz/)
- provozovatel serveru http://www.delphi(tec)cz/
MIUS a.s. (http://www.mius(tec)cz/)
- hostitel serveru http://www.delphi(tec)cz/
Inprise CZ
- vyrobce Delphi, vlastnik domeny delphi(tec)cz
Howgh!Stack overflow v cmplib32.dcl
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.8.1999 23:00:55
Petr Slov�k wrote:
>
> Zacala mi z niceho nic zlobit kompilace cmplib32.dcl a to nasledujicim zpusobem. Mam nainstalovano plno nekolik komponent (mimo jine RX Library, Async Prof. a dalsi). Byly doby, kdy jsem tam mel vsechno co ted a jeste neco navic.
> V soucasnosti ma cmplib32.dcl 2,8MB. Pokud nic nepridam a spustim jen kompilaci, tak pri linkovani vyhodi chybu "stack overflow" a zustane viset ve stavu, kdy ma zatim vysledek v pracovnim souboru cmplib32.dll, ktery ma ted 4,8 MB !!!!! Nechapu, kde se tam vzaly ty dva megabajty navic.
> Zkusil jsem i zacit nacisto znovu s jinym poradim pridavani komponent. Zkousel jsem dokonce i kompletne preinstalovat Delphi, ale nemuzu se toho zbavit. Velice brzy narazim na strop a nemuzu pridavat dalsi komponenty.
> Jde o Delphi 2
Ahoj,
Pokud si vzpominam, tak v Delphi 2.00 byly obecne nejake problemy s linkerem
pri vytvareni souboru. V te dobe pak vysel update na 2.01, k dostani to bylo
na CD asi za 800 Kc a bylo tam prave opraveno docela dost chyb.
--
Petr Vones, amatersky programator
Blikani v TLabel
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.8.1999 23:00:14
> Roman �ev��k wrote:
>
> prostredi: D3
>
> subj.: TLABELu nastavim obrovske pismo(skoro pres celou obrazovku).
> Hodnota TLabel.Caption se kazdych 1s zmeni.
>
> quest.: Jakym zpusobem mam zamezit blikani. Zkousel jsem to pres Canvas.TexOut - je to
> jeste horsi.
Ahoj,
Obecne plati, ze pokud chces neco vykreslovat "ciste", je nutne to
vykreslit do bitmapy a teprve tu pak celou najednou prekopirovat
pri pozadavku o vykresleni. Jde to udelat bud extra programove,
ale v D4 (a mam pocit ze v i D3) ma TWinControl (tedy i TForm a
TPanel) vlastnost DoubleBuffered (neni published, musis ji nastavit
v kodu), ktera toto dela. Nastav ji na True u parenta toho labelu.
--
Petr Vones, amatersky programator
Rezidentni aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.8.1999 23:00:37
Tomas Matousek wrote:
>
> Poradite nekdo s vyvojem rezidentni aplikace - jak zacit ? Dik
Ahoj,
Jak uz ti psali ostatni, pojem "rezidentni aplikace" nema ve Windows
vicemene smysl. Zacni ji proste psat jako kazdou jinou aplikaci.
Trochu jine by to bylo snad jen v tom pripade, ze by jsi to chtel pak
pod NT spoustet jako service.
--
Petr Vones, amatersky programator
Narocnost na win.resources u aplikaci v D2 a D4
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.8.1999 23:00:26
"Jezek Petr, Ing. (DELVINA)" wrote:
>
> Ja dost casto pouzivam TBitBtn. Nevite jak by se dalo
> zabranit ztrate zdroju i pres jejich pouziti?
Ahoj,
Patrne tak, ze by se napsal jiny TBitBtn, ktery by misto obrazku
v podobe vlastnosti Glyph pouzival treba ImageList. Casem se na
to zkusim podivat, osobne me totiz bez ohledu na ten problem se
zdroji prijde pouziti ImageListu lepsi.
--
Petr Vones, amatersky programator
TToolbar
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.8.1999 23:03:20
Krayzel Libor wrote:
>
> Zdravim,
>
> mejme TToolbar a na nem napr. 5 TToolButtonu.
> Butony maji ruzna jmena a ruznou hodnotu tag.
>
> Potreboval bych v zavislosti na [nastavene hodnote] zobrazit jen ty butony,
> ktere maji tag=[nastavena hodnota].
>
> Jak mohu projet pouze TToolbar pri hledani komponent?
Ahoj,
Pokud chces prochazet jednotlive TToolButtony TToolBaru, tak pouzij jeho
metody Buttons a ButtonCount.
--
Petr Vones, amatersky programator
Stack overflow v cmplib32.dcl
[*] Petr Slovak <petr(zv)trilog(tec)cz> - 10.8.1999 23:30:54
Tak uz jsem po dlouhe dobe na to prisel sam. Vysledek je zajimavy - muze se to hodit kdykoliv i komukoliv jinemu. Problem totiz vubec nebyl v nejake spatne komponente nebo nabouranem Delphi nebo dokonce Windows. Za vsechno mohl antivir a to konkretne Norton Antivirus. Asi se snazi system hlidat tak poradne, az to nekterym vecem vadi. Sice vubec nechapu to, jak to muze souviset se stack overflow a s podivne velikym kynutim dcl, ale uz si dovedu predstavit, ze muze delat nejake problemy ve chvili, kdyz se Delphi snazi dll, ktere vytvori prejmenovat na dcl. V kazdem pripade po odinstalovani Norton Antiviru vse zacalo chodit a uz jsem do cmplibu prikompilovat zase vsechny komponenty, ktere kde ve svych projektech potrebuji.
==============================
Ing. Petr Slovak
e-mail: petr(zv)trilog(tec)cz
url: http://www.trilog(tec)cz
tel: 0603 / 501 642
SMS: +420603501642(zv)sms.paegas(tec)cz
==============================
----- Original Message -----
From: Petr Slov�k <petr(zv)trilog(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, August 10, 1999 3:37 PM
Subject: Stack overflow v cmplib32.dcl
> Zacala mi z niceho nic zlobit kompilace cmplib32.dcl a to nasledujicim zpusobem. Mam nainstalovano plno nekolik komponent (mimo jine RX Library, Async Prof. a dalsi). Byly doby, kdy jsem tam mel vsechno co ted a jeste neco navic.
> V soucasnosti ma cmplib32.dcl 2,8MB. Pokud nic nepridam a spustim jen kompilaci, tak pri linkovani vyhodi chybu "stack overflow" a zustane viset ve stavu, kdy ma zatim vysledek v pracovnim souboru cmplib32.dll, ktery ma ted 4,8 MB !!!!! Nechapu, kde se tam vzaly ty dva megabajty navic.
> Zkusil jsem i zacit nacisto znovu s jinym poradim pridavani komponent. Zkousel jsem dokonce i kompletne preinstalovat Delphi, ale nemuzu se toho zbavit. Velice brzy narazim na strop a nemuzu pridavat dalsi komponenty.
> Jde o Delphi 2
>
> Nenarazil jste nekdo na podobny problem a nevite, jak to resit?
>
>
> ==============================
> Ing. Petr Slovak
> e-mail: petr(zv)trilog(tec)cz
> url: http://www.trilog(tec)cz
> tel: 0603 / 501 642
> SMS: +420603501642(zv)sms.paegas(tec)cz
> ==============================
>
>
> Prace s komponentou pomoci fce jine DLL II
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 10.8.1999 23:49:33
Pavel Malinsk� <spiderland(zv)seznam(tec)cz> wrote:
> S tim VAR sem se seknul, nicmene diky za namety.
Jeste me napadlo, ze bys mel zkontrolovat poradi unit u prikazu uses v aplikaci a DLL, protoze pokud obsahuji staticke promenne, tak bude zalezet na poradi linkovani.
bye pf, callnet(zv)telecom(tec)cz
Monitorovani dosle posty u MS Exchange
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 10.8.1999 23:51:02
Santik <santik(zv)pronetix.sk> wrote:
>Samozrejme ze ide monitorovat vsetky maily na MS Exchange - ako inak by
>pracovali napr. antivirusove programy ?
>Robi sa to cez MAPI rozhrania.
Nevis o nejakem prikladu ci komponente? Nemusi byt nutne free.
bye pf, callnet(zv)telecom(tec)cz
ff a jpeg
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 11.8.1999 00:11:48
DD,
cely den se morim se jpegem ve flashfiler. Snazim se na to jit stejnou cestou jako v paradoxu, ale odmita to poslouchat...nemohl by mi nekdo poslat kus zdroje jak dostat blob z ff do TJpegImage a obracene? Nebo staci jenom postrcit ;-)
diky
Pavel
Narocnost na win.resources u aplikaci v D2 a D4
[*] Ing. Jaroslav �ke��k - 11.8.1999 00:58:18
S tim souhlasim
Pouziti ImageList-u je podstatne lepsi i z ciste praktickych duvodu.
Da se totiz dobre sdilet. Tim se jednak setri pamet, zdroje a velikost Exe.
Ja jeden hlavni ImageList umistuji do DataModule.
Dalsi nezanedbatelny efekt tohoto sdileni spociva v tom, ze zamena obrazku
zpusobi jeho automaticke nahrazeni na vsech formularich, ktere se na tento
ImageList odkazuji. Tim se setri prace pri zmenach projektu.
O napojeni TBitBtn na ImageList jsem tez uvazoval. Neni to nic tezkeho,
ale zatim nebyl cas.
Jaro
---------------
> "Jezek Petr, Ing. (DELVINA)" wrote:
> >
> > Ja dost casto pouzivam TBitBtn. Nevite jak by se dalo
> > zabranit ztrate zdroju i pres jejich pouziti?
>
> Ahoj,
>
> Patrne tak, ze by se napsal jiny TBitBtn, ktery by misto obrazku
> v podobe vlastnosti Glyph pouzival treba ImageList. Casem se na
> to zkusim podivat, osobne me totiz bez ohledu na ten problem se
> zdroji prijde pouziti ImageListu lepsi.
>
> --
>
> Petr Vones, amatersky programator
>
>Service pro WinNT
[*] Ren� Otisk - 11.8.1999 08:07:12
Hi,
mel bych takovy jenom dotaz, ktery me zajima spis ze zvedavosti. Jak by se dala naprogramovat aplikace, ktera by se dala spustit jako service na WinNT?
Sroub
Text602 & OLE
[*] Honza Fiala <kvasar(zv)mbox.mrp(tec)cz> - 11.8.1999 08:27:52
mel bych dotaz, jestli se nekdo nepokousel pres OLE pracovat s Text602.
Nikde jsem nenasel moznost naimportovani knihoven do delphi prave z tohoto
produktu. Dejte mi prosim vedet, jestli existuji zdokumentovane prikazy pro
text602.
Dik
Honza Fiala
Pripojeni k DB na inetu
[*] Honza Fiala <kvasar(zv)mbox.mrp(tec)cz> - 11.8.1999 08:28:34
Vim, ze problem ohledne ASP tu uz nekolikrat byl, ale mam neco troch
jineho. Na inetu mi bezi databaze v accessu a ja se potrebuji na ni dostat
pres delphi. Mohl bych sice posilat pres ASP dotazy, ale to se zda trochu
nesikovne. Neda se nejak pripojit na takovou vzdalenou databazi?
Dik
Honza Fiala
Service pro WinNT
[*] Ing. �ubom�r G�L - 11.8.1999 09:01:42
Teoreticky kazdy program, ktory bezi pod NT spravne, moze byt spusteny ako sluzba prostrednictvom pomocneho programu (napr. SRVANY).
Sluzba NT by mala (podla mna) vyhovovat nasledovnym podmienkam:
- non GUI
- non interactive with desktop (i ked toto je mozne zvolit)
- musi vediet prevziat nastavenia z control panelu a spravne sa podla nich chovat
- vediet posielat ZROZUMITELNE spravy do event logu
- spravne reagovat na prikazy START / PAUSE /STOP v rozumnom case
- vediet komunikovat s nastavovacim programom v realnom case (ONLINE)
- NEPOZADOVAT RESTART SERVERA !!!!!
- mat dostatocne hutny a optimalizovany kod
- zpapat co najmenej z kolaca prostriedkov servera
- mat vysoky stupen stability
- mat presne definovane podmienky svojej spravnej prevadzky
- mat nastavitelne prava a pristupy
- nesahat tam, kam sa nema
- pouzivat IBA dobre dokumentovane a stabilne funkcie
Sluzba NT v podstate zodpoveda definicii TSR.
LuGa
******************************
Lubomir "Levec" GAL, -LuGa
IS, NUPSESO, a.s. Nitra, SK
mailto:lgal(zv)nupseso.sk
******************************TDateTime
[*] Milan Kotaska <mkotaska(zv)post(tec)cz> - 11.8.1999 09:05:58
Hi.
Prosim o pomoc.
Pomoci TDateTime pracuji s datumem. Po pricitani cisla 1 k datu dojedu az na
konec mesice, ale pak po pricteni 1 se datum vrati zpet na 1. v mesici.
Potrebuji vsak pokracovat v pricitani i v nasledujicim mesici. Prosim, kdo
ma s timto nejake zkusenosti napiste.
Dekuji.
Milan KOTASKA
mkotaska(zv)post(tec)cz
Nastaveni palety barev
[*] Jaroslav ��pek <jaroslav.sipek(zv)idea(tec)cz> - 11.8.1999 09:31:56
Ahoj,
nemohl by mi nekdo poradit s nasledujicim problemem. V programu (viz. nize)
si vytvorim paletu s 256 barvama (same modre od svetle po tmavou) a tu
potrebuju nejakym zpusobem nastavit jako implicitni (systemovou), aby kdyz
zadam prikaz Form1.Canvas.Pen.Color:=RGB(0,0,10) se mi pouzila barva z teto
palety. Na zaver je nutne obnovit puvodni paletu.
Diky predem.
Jaroslav Sipek
e-mail: jaroslav.sipek(zv)idea(tec)cz
procedure TForm1.FormPaint(Sender: TObject);
var
pal: PLogPalette;
hpal: HPALETTE;
i: Integer;
begin
pal := nil;
try
GetMem(pal, sizeof(TLogPalette) + sizeof(TPaletteEntry) * 255);
pal.palVersion := $300;
pal.palNumEntries := 256;
for i := 0 to 255 do
begin
pal.palPalEntry[i].peRed := 0;
pal.palPalEntry[i].peGreen := 0;
pal.palPalEntry[i].peBlue := i;
end;
hpal := CreatePalette(pal^);
if hpal <> 0 then
begin
?? Nastaveni moji palety ??
Form1.Canvas.Pen.Color:=RGB(0,0,10);
Form1.Canvas.MoveTo(0,0);
Form1.Canvas.LineTo(100,100);
?? Nastaveni puvodni palety ??
end;
finally
FreeMem(pal);
end;
end;Monitorovani dosle posty u MS Exchange
[*] Santik <santik(zv)pronetix.sk> - 11.8.1999 09:33:13
> Nevis o nejakem prikladu ci komponente? Nemusi byt nutne free.
Nejake priklady su na
ftp://ftp.microsoft.com/developr/MAPI/Samples/mfcapps.zip, ale su to
vsetko priklady v MSVC++, delfacke priklady neviem ziadne.
Nejake sample by tusim mali byt aj v MSDN.
Bye
Santik
santik(zv)pronetix.sk
Ikony v menu
[*] Martin Lasevic, ing. <vyvoj(zv)atlascon(tec)cz> - 11.8.1999 10:06:30
Ahoj,
komponenta to sice nejni a na tento problem jsem se jiz kdysi tady psal.
Byla mi poslada rada, kterou Ti nyni predavam. Funguje mi to tak, ze
porovnava vsechny speedbuttony a menuitems a pokud maji stejnou akci, tak
prenese ikonu ze speedbuttonu do menu k odpovidajici polozce.
Tady to je :
//**********************************************************************
********
procedure TFMain.BtnMI_BMP;
{ Metoda zajisti, ?e se bitmapy z tlaeitek dostanou i do menuitem ,ktera
odpovidaji stejnou akci.
Provede to tak, ?e se prochazi v?echny speedbuttony na formulaoi a ke
ka?demu
speedbuttonu se najde podle udalosti OnClick poislu?ne menuitem.
Z MenuItem se zjisti menu, ktere je vlastnikem a index menu.
}
var
h:HBitmap;
CmpntsCount, MICount : word;
const
lBitMap:TBitMap = nil;
LSbtn : TSpeedButton = nil; //Ukazatel na prohledavany speed buton
LMI : TMenuItem = nil; //Ukazatel na odpovidajici menu item
begin
//obrazky do menu
try
lBitMap:=TBitMap.Create;
try
for CmpntsCount := 1 to ComponentCount do
if Components[ CmpntsCount - 1] is TSpeedButton then
try
//Na?li jsme prvni speed button
Lsbtn := Components[ CmpntsCount - 1] as TSpeedButton;
//A jde se hledat odpovidajici menuitem
for MiCount := 1 to ComponentCount do
if Components[ MiCount-1] is TMenuItem then begin
LMI := Components[ MiCount-1] as TMenuItem;
if (zv)LMI.OnClick = (zv)Lsbtn.OnClick then
Break else LMI := nil;
end;
//naplneni bitmapy glyphem z tlacitka
lBitMap.Assign(Lsbtn.Glyph);
//pokud je glyph z vice casti, beru prvni
If Lsbtn.NumGlyphs>1 then
lBitMap.Width:=(lBitMap.Width-1) div Lsbtn.NumGlyphs;
//vytvori kopii obrazku a preda handle a oreze
H:=CopyImage(lBitMap.Handle, image_bitmap, 12, 12, 0);
//nastaveni bitmapy do menu miNapoveda k submenu,
//ktere je na pozici 1, podle pozice
SetMenuItemBitmaps( LMI.Parent.Handle,
LMI.MenuIndex,
MF_Byposition,
H, H);
finally
LSbtn := nil; LMI := nil;
end;
finally
lBitMap.free; LBitMap := nil;
end;
except
on E:Exception do ErrDlg( E, UNIT_NAME, 'BtnMi_BMP');
end;
end;
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http://cement.fmi(tec)cz/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: Viktor Lostak [SMTP:Viktor.Lostak(zv)chmi(tec)cz]
Odeslano: 6. srpna 1999 8:16
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Ikony v menu
Jak mam nejak bezbolestne dostat ikony do menu? Takove ty malicke obrazky,
ktere se kresli nalevo od textu menu. Existuje nejaky snadny postup nebo
musim jit pres WM_OWNERDRAW atd.? Neni nekde najaky free objekt, ktery by
to
udelal za mne, nejlip se zdrojaky?
Dik. Viktor
Pripojeni k DB na inetu
[*] Burger, Tomas <tomas.burger(zv)sap-ag.de> - 11.8.1999 10:07:31
> -----Original Message-----
> From: Honza Fiala [mailto:kvasar(zv)mbox.mrp(tec)cz]
> pres delphi. Mohl bych sice posilat pres ASP dotazy, ale to
> se zda trochu nesikovne. Neda se nejak pripojit na takovou vzdalenou
databazi?
Ja jsem to presne resil tak...
Mel jsem na serveru ASPecka, ktera vyrabela CSV data a posilala je pres
HTTP.
V Delphi jsem mel Pietteho, ktery to nacital a zpracovala... Dostal jsem se
tak bez problemu
pres firewally i proxyny, aniz bych musel neco zvlastniho programovat...
Tomas
Nastaveni palety barev
[*] kelleon(zv)nnsk.sk - 11.8.1999 10:18:00
> -----Original Message-----
> Ahoj,
> nemohl by mi nekdo poradit s nasledujicim problemem. V
> programu (viz. nize)
> si vytvorim paletu s 256 barvama (same modre od svetle po
> tmavou) a tu
> potrebuju nejakym zpusobem nastavit jako implicitni
> (systemovou), aby kdyz
> zadam prikaz Form1.Canvas.Pen.Color:=RGB(0,0,10) se mi
> pouzila barva z teto
> palety. Na zaver je nutne obnovit puvodni paletu.
> Diky predem.
> Jaroslav Sipek
> e-mail: jaroslav.sipek(zv)idea(tec)cz
Ahoj,
tento (alebo podobny) kod som nasiel v Tomes of Delphi 3:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
FormPalette: HPALETTE; // a handle to the new
palette
public
end;
{ Whoops! Delphi incorrectly imports the GetSystemPaletteEntries function.
Here's the correct declaration that gives all of the functionality
available
with this API function }
function GetSystemPaletteEntries(DC: HDC; StartIndex, NumEntries: UINT;
PaletteEntries: Pointer): UINT; stdcall;
var
Form1: TForm1;
implementation
{$R *.DFM}
{link in the GetSystemPaletteEntries function}
function GetSystemPaletteEntries; external gdi32 name
'GetSystemPaletteEntries';
procedure TForm1.FormCreate(Sender: TObject);
var
ThePalette: PLogPalette; // a pointer to a logical palette description
i: Integer;
TheDC: HDC; // a handle to a device context
begin
{get enough memory to define a 256-color logical palette}
GetMem(ThePalette, SizeOf(TLogPalette) + 256 * SizeOf(TPaletteEntry));
{retrieve a handle to the form's device context}
TheDC := GetDC(Handle);
{retrieve the current system palette entries}
GetSystemPaletteEntries(TheDC, 0, 256, (zv)(ThePalette^.palPalEntry));
{set the system palette to only use 2 static colors}
SetSystemPaletteUse(TheDC, SYSPAL_NOSTATIC);
{initialize the appropriate logical palette information}
ThePalette^.palVersion := $300;
ThePalette^.palNumEntries := 256;
{create a 256-color blue gradient palette}
for i := 0 to 255 do
begin
ThePalette^.palPalEntry[i + 1].peRed := 0;
ThePalette^.palPalEntry[i + 1].peGreen := 0;
ThePalette^.palPalEntry[i + 1].peBlue := i;
ThePalette^.palPalEntry[i + 1].peFlags := 0;
end;
{create the blue gradient palette}
FormPalette := CreatePalette(ThePalette^);
{select and realize the palette}
SelectPalette(TheDC, FormPalette, FALSE);
RealizePalette(TheDC);
{free the logical palette description structure and the device context}
FreeMem(ThePalette, SizeOf(TLogPalette) + 256 * SizeOf(TPaletteEntry));
ReleaseDC(Handle, TheDC);
end;
procedure TForm1.FormDestroy(Sender: TObject);
var
TheDC: HDC; // a handle to a device context
begin
{reset the static color usage state to the default of 20 static colors}
TheDC := GetDC(Handle);
SetSystemPaletteUse(TheDC, SYSPAL_STATIC);
ReleaseDC(Handle, TheDC);
{delete the logical palette}
DeleteObject(FormPalette);
end;
procedure TForm1.FormPaint(Sender: TObject);
var
i, j: Integer;
TheDC: HDC; // a handle to a device context
OldBrush, NewBrush: HBRUSH; // handles to brushes
begin
{get a handle to the form's device context}
TheDC := GetDC(Handle);
{select and realize the new logical palette}
SelectPalette(TheDC, FormPalette, FALSE);
RealizePalette(TheDC);
j := ClientHeight div 256 + 1;
for i := 0 to 255 do
begin
NewBrush := CreateSolidBrush($01000000 or i);
OldBrush := SelectObject(TheDC, NewBrush);
FillRect(TheDC, Rect(0, i * j, Width, (i + 1) * j), NewBrush);
SelectObject(TheDC, OldBrush);
DeleteObject(NewBrush);
end;
{delete the device context handle}
ReleaseDC(Handle, TheDC);
end;
end.
Zdar
Ondrej Kelle
MSSQL7 a image
[*] Ing. Leopold Grepl <Grepl(zv)melzer(tec)cz> - 11.8.1999 10:19:02
Dobry den,
na uvod mam stejnou verzi MSSQL a Delphi 4 SP3. Podrobnym skousenim jsem nakonec prisel na to, jak se to vlastne chova. Muj puvodni problem mel jednoznacnou souvislost s ridicimi znaky v prenasenem textu. Po provedeni konverze pouze na znaky ASCII od 35 do 127 jsem ale narazil na dalsi problem, ktery si nedovedu vysvetlit.
Pri textu delsim nez 16kB mi pise hlasku typu "Type operand clash : cannot convert Text to Image" priblizne. Pritom ja do fieldu typu Text nic neukladam a Image ma omezeni 2GB. Asi to souvisi s mym zpusobem zadavani :
insert into tablename (imagefield) values ("imagedata");
Proto jsem to zkusil jinak a data jsem prekonvertoval do Hexa podoby a predradil pred ne "0x". Tuto hodnotu jsem ukladal stylem :
insert into tablename (imagefield) values (hodnota);
a vse zacalo chodit bez problemu. Cili si myslim ze Delphi to pri ukladani dela podobne.
Vase priklady z prilohy jsou skutecne funkcni. Zapomnel jsem v puvodnim dotazu dotat, ze v datech mam necitatelne znaky a Query Analyzator to asi nezvladne nacist.
S pozdravem
Leopold Grepl
-----P�vodn� zpr�va-----
Od: Robert Kindl [SMTP:rob(zv)optimal(tec)cz]
Odesl�no: 9. srpna 1999 11:36
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: MSSQL7 a image
No ja nevim, mne skript v priloze projde v Query Analyzeru uplne bez
problemu.
Tj. nactu ho prikazem open a execnu prikazem Execute.
Byl by nejaky konkretni priklad? Nebo upresneni otazky?
SQL server mam 7.00.699 (tj. myslim SP1) a Query Analyzer 7.00.694
Rob
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.71 / Virov� b�ze: 38 - datum vyd�n�: 26.7.1999
SQL
[*] Ren� Otisk - 11.8.1999 10:23:26
Hi,
Sakva, co delam blbe?
INSERT INTO Pohyb (Karta, Nazev, Typ, OP95)
SELECT Karta, Nazev, Typ, SUM(Mnozstvi) AS OP95 FROM Pohyb100.DBF
WHERE (Vydano <= '31.12.1995' AND Vydano >= '1.1.1995') AND
(Prikaz Like '8%' OR Prikaz Like '9%' OR Prikaz Is Null)
GROUP BY Karta, Nazev, Typ
Dekuji
Sroub
TDateTime
[*] Martin Lasevic, ing. <vyvoj(zv)atlascon(tec)cz> - 11.8.1999 10:51:15
Jak to nacitas? Kdyz mam TDateTime jako real, tak pokud budu pricitat stale 1, tak se nemuzu vratit na 1. den v mesici.
var
D : TDateTime;
begin
D := Now;
D := D + 1;
....
atp.
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
mailto:+420603338765(zv)sms.paegas(tec)cz
http://cement.fmi(tec)cz/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: Milan Kotaska [SMTP:mkotaska(zv)post(tec)cz]
Odeslano: 11. srpna 1999 9:06
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: TDateTime
Hi.
Prosim o pomoc.
Pomoci TDateTime pracuji s datumem. Po pricitani cisla 1 k datu dojedu az na
konec mesice, ale pak po pricteni 1 se datum vrati zpet na 1. v mesici.
Potrebuji vsak pokracovat v pricitani i v nasledujicim mesici. Prosim, kdo
ma s timto nejake zkusenosti napiste.
Dekuji.
Milan KOTASKA
mkotaska(zv)post(tec)cz
Konec procesu
[*] Libor Klicnik <libor_klicnik(zv)aisoft(tec)cz> - 11.8.1999 11:03:17
Pomuze mi nekdo ????
Ze sveho programu spoustim setup.exe (klasickej installShield)
a poteboval bych chytit konec instalace.
Problem je v tom, ze ja otevru nejprve 1 process (setup.exe) ten skonci
a
z neho vznikne dalsi proces a konec tohodle procesu (_ins0432._mp)
potrebuju chytit.
Pomozte mi prosim !!!!!!!
Libor Fuka
Rezidentni aplikace
[*] Ing. Petr �vejda <lingvista(zv)lingvista(tec)cz> - 11.8.1999 11:23:51
> > Poradite nekdo s vyvojem rezidentni aplikace - jak zacit ? Dik
>
> Jak uz ti psali ostatni, pojem "rezidentni aplikace" nema ve Windows
> vicemene smysl. Zacni ji proste psat jako kazdou jinou aplikaci.
Asi mas na mysli aplikaci, ktera "NENI VIDET" a v tichosti si (nebo ti) neco
chrousta. Pak je tady reseni. Aplikaci muzes napsat jako naprosto normalni
aplikaci. Na OnActivate hlavniho formulare dej rutinu, ktera necha zmizet
tlacitko aplikace z TaskBaru:
ShowWindow(Application.Handle, sw_hide);
Pozor NE na OnCreate - to by ti nefungovalo. Pokud aplikaci nechces zaroven
videt, nezapomen na OnCreate dat:
Application.Minimize;
Aplikace zmizi a bude "viditelna" pouze v seznamu uloha. Pak to bude
fungovat tak jak si to predstavujes. Aplikace nezabira misto na liste neni
videt a uzivatel bude (vlastne spis nebude - protoze nic neuvidi) mit pocit,
ze aplikace je "rezidentni".
Vyzkousej a uvidis.
S pozdravem
Ing. Petr Svejda, software specialist
____________________________________________
|
| Neolit syst�m, software developer
| Sta�kova 215, Tel�, tel: (066) 724 39 34
| mobil: 0603 214 901, fax: 0603 214 902
| lingvista(zv)lingvista(tec)cz, http://www.lingvista(tec)cz/
|____________________________________________
TDateTime
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 11.8.1999 11:31:19
> Pomoci TDateTime pracuji s datumem. Po pricitani cisla 1 k datu dojedu az na
> konec mesice, ale pak po pricteni 1 se datum vrati zpet na 1. v mesici.
> Potrebuji vsak pokracovat v pricitani i v nasledujicim mesici. Prosim, kdo
> ma s timto nejake zkusenosti napiste.
???
Po pricteni se vrati k 1., ale pristiho mesice, ne?
Nemel jsem s tim nikdy zadne problemy, kdyz tak napis podrobneji.
Tom
Algoritmus na zmenu textu
[*] MIKE� P�emysl <premysl.mikes(zv)otr.br.ds.mfcr(tec)cz> - 11.8.1999 11:33:11
Ahoj, uz s tim laboruju tyden, ale pokazde se to zasekne na tomhle
radku:
ProperStr(S);
a hlasi to: Undeclared Indentifier: 'ProperStr'
jak ho mam ale deklarovat?
zkousel jsem dat do sekce type radek procedure ProperStr(var S: String);
ale to nefunguje.
Diky, Premek
> MIKE� P�emysl wrote:
> >
> > Potreboval bych zmenit v textu velka pismena na mala. Protoze jde o
> > stovky textovych souboru, vyplatil by se na to programek v Delphi.
> Vim
> > ze to jde pomoci CharCase := ecLowerCase, ja bych ale potreboval
> > zaridit, aby prvni znak kazdeho noveho slova (za mezerou) zustal
> velky.
> >
> > Konverze textu by mela fungovat takto (priklad):
> >
> > pred zmenou:
> > 1. THE 59TH STREET BRIDGE SONG
> > po zmene:
> > 1. The 59Th Street Bridge Song
>
> Ahoj,
>
> Muzes to udelat treba takhle:
>
> procedure ProperStr(var S: String);
> const
> SpaceChars = [#9, #32, #13, #10];
> var
> P: PChar;
> FirstChar: Boolean;
> begin
> P := PChar(S);
> FirstChar := True;
> while P^ <> #0 do
> begin
> if P^ in SpaceChars then
> FirstChar := True
> else
> if FirstChar then
> begin
> CharUpperBuff(P, 1);
> FirstChar := False;
> end else
> CharLowerBuff(P, 1);
> Inc(P);
> end;
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> S: String;
> FS: TFileStream;
> begin
> FS := TFileStream.Create('unit1.pas', fmOpenRead or
> fmShareDenyWrite);
> try
> SetLength(S, FS.Size);
> FS.ReadBuffer(Pointer(S)^, FS.Size);
>
> ProperStr(S);
>
> Memo1.Lines.Text := S;
>
> finally
> FS.Free;
> end;
> end;
>
> --
>
> Internet proti monopolu. Petr Vones, amatersky
> programator
> * http://www.bojkot(tec)cz *
> ************************
> Pripojeni k DB na inetu
[*] Tom� Br�dle������i�^����? - 11.8.1999 11:58:40
> Vim, ze problem ohledne ASP tu uz nekolikrat byl, ale mam neco troch
>jineho. Na inetu mi bezi databaze v accessu a ja se potrebuji na ni dostat
>pres delphi. Mohl bych sice posilat pres ASP dotazy, ale to se zda trochu
>nesikovne. Neda se nejak pripojit na takovou vzdalenou databazi?
Zdravim,
asi pred rokem jsem neco podobneho zkousel. Jde o to, ze v ASP pristupujes
napr. pres ODBC, vytvaris nejake objekty, ktere zprostredkovavaji pristupy
na data. V Delphi tyto objekty muzes taky pouzivat (import typove knihovny).
Rozdil je pouze v tom, ze ASP pracuje na serveru, program v Delphi na
clientu. To znamena, ze musis mit pres TCP/IP nastaveno ODBC napojeni -
muzes pouzit jmeno (napr.: www.xyz(tec)cz) nebo IP adresu jako nazev serveru.
Nedoporucuji pouzivat konponenty z Delphi jako TTable, mozna by slo TQuery.
Ja jsem to zkousel na MS SQL 6.5. Na souborove DB - nevim, to bys musel
vyzkouset (tam bys asi musel mit pristup do adresare s temi daty, coz lze -
mam vyzkouseno - je to jen organizacni otazka spravce serveru a
zabezpeceni).
Tomas
t.bradle(zv)pvtnet(tec)cz
Rezidentni aplikace
[*] Ren� Otisk - 11.8.1999 13:07:44
Hi,
Zvedava otazecka. ...a kdybych ho nechtel videt ani v seznamu uloh?
Sroub
----- Original Message -----
From: Ing. Petr �vejda <lingvista(zv)lingvista(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, August 11, 1999 11:23 AM
Subject: Re: Rezidentni aplikace
> > Poradite nekdo s vyvojem rezidentni aplikace - jak zacit ? Dik
>
> Jak uz ti psali ostatni, pojem "rezidentni aplikace" nema ve Windows
> vicemene smysl. Zacni ji proste psat jako kazdou jinou aplikaci.
Asi mas na mysli aplikaci, ktera "NENI VIDET" a v tichosti si (nebo ti) neco
chrousta. Pak je tady reseni. Aplikaci muzes napsat jako naprosto normalni
aplikaci. Na OnActivate hlavniho formulare dej rutinu, ktera necha zmizet
tlacitko aplikace z TaskBaru:
ShowWindow(Application.Handle, sw_hide);
Pozor NE na OnCreate - to by ti nefungovalo. Pokud aplikaci nechces zaroven
videt, nezapomen na OnCreate dat:
Application.Minimize;
Aplikace zmizi a bude "viditelna" pouze v seznamu uloha. Pak to bude
fungovat tak jak si to predstavujes. Aplikace nezabira misto na liste neni
videt a uzivatel bude (vlastne spis nebude - protoze nic neuvidi) mit pocit,
ze aplikace je "rezidentni".
Vyzkousej a uvidis.
S pozdravem
Ing. Petr Svejda, software specialist
____________________________________________
|
| Neolit syst�m, software developer
| Sta�kova 215, Tel�, tel: (066) 724 39 34
| mobil: 0603 214 901, fax: 0603 214 902
| lingvista(zv)lingvista(tec)cz, http://www.lingvista(tec)cz/
|____________________________________________
Monitorovani dosle posty u MS Exchange
[*] Burger, Tomas <tomas.burger(zv)sap-ag.de> - 11.8.1999 13:17:43
> -----Original Message-----
> From: Santik [mailto:santik(zv)pronetix.sk]
> > Nevis o nejakem prikladu ci komponente? Nemusi byt nutne free.
Zkus se podivat semhle...:
http://msdn.microsoft.com/isapi/msdnlib.idc?theURL=/library/sdkdoc/cdo/kluao
ver_34a7.htm
Tomas
Rezidentni aplikace
[*] Robert Jendrisak <delphi(zv)minv.sk> - 11.8.1999 13:23:28
Pod DOS ci pod Windoze?
Pod win, ie vlastne kazda aplikacia rezidentna, a pokial ju nezavries stale
pracuje.
Windows je multi ulohovy system.
Enjoy
Werki
Prace s komponentou pomoci fce jine DLL II
[*] Pavel Malinsk� <spiderland(zv)seznam(tec)cz> - 11.8.1999 13:33:10
Jo to me nenapadlo diky.
S pozdravem
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203
----- P�vodn� zpr�va -----
Od: Petr Fejfar <callnet(zv)telecom(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 10. srpna 1999 23:49
P�edm�t: Re: Prace s komponentou pomoci fce jine DLL II
> Pavel Malinsk� <spiderland(zv)seznam(tec)cz> wrote:
>
> > S tim VAR sem se seknul, nicmene diky za namety.
>
> Jeste me napadlo, ze bys mel zkontrolovat poradi unit u prikazu uses v
aplikaci a DLL, protoze pokud obsahuji staticke promenne, tak bude zalezet
na poradi linkovani.
>
> bye pf, callnet(zv)telecom(tec)cz
>
>Rezidentni aplikace
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 11.8.1999 13:36:32
> Zvedava otazecka. ...a kdybych ho nechtel videt ani v seznamu
uloh?
Tak z kernel.dll zavolas
RegisterServiceProcess(GetCurrentProcessID, 1);
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;
stdcall;
external 'KERNEL32.DLL';
Dobra.
> ----- Original Message -----
> From: Ing. Petr �vejda <lingvista(zv)lingvista(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Wednesday, August 11, 1999 11:23 AM
> Subject: Re: Rezidentni aplikace
>
>
> > > Poradite nekdo s vyvojem rezidentni aplikace - jak zacit ? Dik
> >
> > Jak uz ti psali ostatni, pojem "rezidentni aplikace" nema ve Windows
> > vicemene smysl. Zacni ji proste psat jako kazdou jinou aplikaci.
>
> Asi mas na mysli aplikaci, ktera "NENI VIDET" a v tichosti si (nebo
> ti) neco
> chrousta. Pak je tady reseni. Aplikaci muzes napsat jako naprosto
> normalni
> aplikaci. Na OnActivate hlavniho formulare dej rutinu, ktera necha
> zmizet
> tlacitko aplikace z TaskBaru:
>
> ShowWindow(Application.Handle, sw_hide);
>
> Pozor NE na OnCreate - to by ti nefungovalo. Pokud aplikaci nechces
> zaroven
> videt, nezapomen na OnCreate dat:
>
> Application.Minimize;
>
> Aplikace zmizi a bude "viditelna" pouze v seznamu uloha. Pak to bude
> fungovat tak jak si to predstavujes. Aplikace nezabira misto na liste
> neni
> videt a uzivatel bude (vlastne spis nebude - protoze nic neuvidi) mit
> pocit,
> ze aplikace je "rezidentni".
>
> Vyzkousej a uvidis.
>
> S pozdravem
> Ing. Petr Svejda, software specialist
> ____________________________________________
> |
> | Neolit syst�m, software developer
> | Sta�kova 215, Tel�, tel: (066) 724 39 34
> | mobil: 0603 214 901, fax: 0603 214 902
> | lingvista(zv)lingvista(tec)cz, http://www.lingvista(tec)cz/
> |____________________________________________
>
>
> ukladanie zmien v dbgrid
[*] Ivan Kodaj <kodaj(zv)datalock.sk> - 11.8.1999 13:44:00
Zdravim vsetkych!
Potreboval by som poradit, ako naprogramovat to, aby sa mi zmeny, ktore
urobim v dbgride nezapisovali do databazy hned, ale az po stlaceni nejakeho
tlacidla. Jednoducho chcem editovat a zapisat zmeny az potom, ako sa
rozhodnem ich zapisat.
Pouzivam Delphi 4 Professional, Win NT
Vdaka vsetkym
i.k.
ukladanie zmien v dbgrid
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 11.8.1999 13:54:50
Melo by to jit pomoci CachedUpdates
(viz %Delphi%\Demos\DB\CachedUp).
Dobra.
> ----------
> Potreboval by som poradit, ako naprogramovat to, aby sa mi zmeny,
> ktore
> urobim v dbgride nezapisovali do databazy hned, ale az po stlaceni
> nejakeho
> tlacidla. Jednoducho chcem editovat a zapisat zmeny az potom, ako sa
> rozhodnem ich zapisat.
>
> Pouzivam Delphi 4 Professional, Win NT
>
> Pos�l�n� mailu pomoc� MAPISendMail
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 11.8.1999 14:02:15
prost�ed� : D4, W95
Ahoj, nem�l by n�kdo kousek p��kladu na pou�it� funkce MAPISendMail ?
N�jak se mi to neda�� a funkce vr�t� n�jak� v n�pov�d� nepopsan� error.
=======================================
Adam Maixner, mailto:adam.maixner(zv)pvt(tec)cz
Pernerova 444, 530 02 Pardubice
tel : 040/6048267
Nastaveni palety barev
[*] Jaroslav ��pek <jaroslav.sipek(zv)idea(tec)cz> - 11.8.1999 14:23:53
Ahoj,
tento (alebo podobny) kod som nasiel v Tomes of Delphi 3:
...
Zdar
Ondrej Kelle
Diky za tu unitu. Je skvela, ale podle mych predstav funguje, jenom kdyz
mam ve Windows nastaveno 256 nebo 16M barev. Kdyz mam 32K nebo 64K barev,
tak to dela nepekne pruhy.
Copak je potreba, kdyz mam ve Windows 32K barev, abych si definoval paletu
misto s 256 barvama s 32K barvama. Pokud ano, jak zjistim, kolik barev je
ve windows nastaveno?
Jaroslav Sipek
e-mail: jaroslav.sipek(zv)idea(tec)cz
MSSQL7 a image
[*] Robert Kindl <rob(zv)optimal(tec)cz> - 11.8.1999 14:24:49
>Pri textu delsim nez 16kB mi pise hlasku typu "Type operand clash : cannot
convert Text to Image" priblizne.
>Pritom ja do fieldu typu Text nic neukladam a Image ma omezeni 2GB. Asi to
souvisi s mym zpusobem
>zadavani :
> insert into tablename (imagefield) values ("imagedata");
Ano jednoznacne, ale to omezeni je presne 8000 znaku a
je to dano limitem 8000 znaku pro varchar.
>Proto jsem to zkusil jinak a data jsem prekonvertoval do Hexa podoby a
predradil pred ne "0x".
>Tuto hodnotu jsem ukladal stylem :
> insert into tablename (imagefield) values (hodnota);
>a vse zacalo chodit bez problemu. Cili si myslim ze Delphi to pri ukladani
dela podobne.
Ano, ale ma to nevyhodu, ze kvuli 100kB dat prenesu 200kB hexa znaku.
Delphi (BDE) to podobne nedela. Oni pouzivaji tzv. bindovani k programovym
promenym. To je zhruba tak, ze do scriptu se da misto dat otaznik
tj. insert into tablename (imagefield) values (?)
pak se zavolaji nejake sluzby DBLibrary (obdobne jsou i v OLEDB resp. ADO)
pro bindovani parametru
a data se posilaji nebo ctou pomoci dalsich sluzeb po blocich.
To je samozdrejme efektivnejsi a hlavne vhodnejsi pro skutecne
velke objemy dat (MB a vice).
> Vase priklady z prilohy jsou skutecne funkcni. Zapomnel jsem v puvodnim
dotazu dotat, ze v datech mam
> necitatelne znaky a Query Analyzator to asi nezvladne nacist.
No a jen pro uplnost:
V puvodnim dotazu bylo doslova
"Neni to zadnym znakem protoze to oreze vzdy, pokud jsou data vetsi nez 990
bytu."
Z toho mi jednoznacne vyplyvalo, ze problem neni v tom, ze retezec v
uvozovkach
obsahuje ASCII <32 znaky ba primo takove znaky tam nejsou,
nebot ze QA nesezere znaky <32 se mi zda temer samozrejme.
Rob
TOLEContainer
[*] Ren� Otisk - 11.8.1999 14:56:02
Hi,
Prosim poradte,
Mam Delphi 3, Paradox databaze a Office97. Nejake to Blob pole pouzivam pro ukladani souboru (napr z Ofisu). Nactu si streamem z databaze, spustim si OLE server (AllowInPlace = False), poedituju si soubor, uzavru a vlastnost Modified mam na True (to jeste chapu). Lec i kdyz ten soubor nepoedituju, tak Modified je na True (a ja nechci aby byl true). Jak to udelat, abych poznal ze jsem ten soubor jenom otevrel a editoval resp. needitoval?
Sroub
SQL
[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 11.8.1999 15:20:44
A co to rika za chybu ?
-----Original Message-----
From: Ren� Otisk [mailto:otisk(zv)misel(tec)cz]
Sent: Wednesday, August 11, 1999 10:23 AM
To: delphi-l(zv)fwd(tec)cz
Subject: SQL
Hi,
�
Sakva, co delam blbe?
�
INSERT INTO Pohyb (Karta, Nazev, Typ, OP95)
SELECT Karta, Nazev, Typ, SUM(Mnozstvi) AS OP95 FROM Pohyb100.DBF
�WHERE (Vydano <= '31.12.1995' AND Vydano >= '1.1.1995')� AND
�(Prikaz Like '8%' OR Prikaz Like '9%' OR Prikaz Is Null)
� GROUP BY Karta, Nazev, Typ
�
Dekuji
�
Sroub
Absolutni a relativni cesta v siti peer-to-peer
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 11.8.1999 15:20:13
environment:Win98/95 CZ,Delphi STANDART 4.0 (Build 5.104) Update Pack 2,
RxLib 2.60
keywords:path,directory
q:Potrebuji do databaze ukladat cestu k souborum ulozenym ruzne na
mistnich i sitovych discich tak abych dokazal tyto soubory otevrit z
kterehokoliv PC na siti peer-to-peer. Nemohu pouzit UNC.
Priklad:
Sit 3x PC
[stanice:namapovane disky]
stanice1 : G=\\stanice2\c\; H=\\stanice3\c\
stanice2 : G=\\stanice1\c\; H=\\stanice3\c\
stanice3 : G=\\stanice1\c\; H=\\stanice2\c\
Soubor Stanice1 Stanice2 Stanice3
xx.txt C:\DOC\xx.txt G:\DOC\xx.txt G:\DOC\xx.txt
yy.txt H:\XX\yy.txt H:\\XX\yy.txt C:\XX\yy.txt
tt.txt G:\DIR\tt.txt C:\DIR\tt.txt H:\DIR\tt.txt
Jak na to jit,co ukladat do databaze, jake informace dat k nastaveni
klientu.
eL..ukladanie zmien v dbgrid
[*] Virag Ivan <ViragI(zv)radiomobil(tec)cz> - 11.8.1999 15:22:24
Tusim�e u� od Delphi 3 jsou podporovany transakce i na Pradoxu a DBase.
Zahaj zmeny v databazi prikazem
TDatabase.StartTransaction;
zmeny (delete, update, insert,...)
...
if something then
TDatabase.Rollback (* vrati databazi do puvodniho stavu *)
else TDatabase.Commit (* potvrdi zmeny *)
Nebo lze pouzit CashedUpdates. A na to je v Delphi demo.
> ----------
> From: Ivan Kodaj[SMTP:kodaj(zv)datalock.sk]
> Reply To: delphi-l(zv)fwd(tec)cz
> Sent: 11. srpna 1999 13:44
> To: Delphi
> Subject: ukladanie zmien v dbgrid
>
> Zdravim vsetkych!
>
> Potreboval by som poradit, ako naprogramovat to, aby sa mi zmeny,
> ktore
> urobim v dbgride nezapisovali do databazy hned, ale az po stlaceni
> nejakeho
> tlacidla. Jednoducho chcem editovat a zapisat zmeny az potom, ako sa
> rozhodnem ich zapisat.
>
> Pouzivam Delphi 4 Professional, Win NT
>
> Vdaka vsetkym
>
> i.k.
>
>
> Pos�l�n� mailu pomoc� MAPISendMail
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 11.8.1999 15:32:54
q:Maixner Adam wrote:
>
> prost�ed� : D4, W95
>
> Ahoj, nem�l by n�kdo kousek p��kladu na pou�it� funkce MAPISendMail ?
> N�jak se mi to neda�� a funkce vr�t� n�jak� v n�pov�d� nepopsan� error.
a:Podivej se na menu defaultniho projektu "Win 95 logo application" v
Delphi.
(File->New->Projects)
jeste kousek kodu :
//***************************
with Adresat do
begin
ulReserved:=0; { Reserved for future
use }
ulRecipClass:=MAPI_TO; { Recipient
class }
{ MAPI_TO, MAPI_CC,
MAPI_BCC, MAPI_ORIG }
lpszName:=PChar(XKomu); { Recipient
name }
lpszAddress:= PChar(XSMTP); { Recipient address
(optional) }
ulEIDSize:=0; { Count in bytes of size
of pEntryID }
lpEntryID:= nil; { System-specific
recipient reference }
end;
with MapiMessage do
begin
ulReserved := 0;
lpszSubject :=PChar(XSubj);
lpszNoteText := PChar(Txt.Lines.Text);
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
nRecipCount := 1;
lpRecips := (zv)Adresat;
nFileCount := 0;
lpFiles := nil;
end;
MError := MapiSendMail(0, 0, MapiMessage,
MAPI_LOGON_UI or MAPI_USE_DEFAULT, 0);
if MError <> 0 then
MessageDlg('Chyba p�i odesl�n� zpr�vy', mtError, [mbOK], 0)
else
ShowMessage('Odeslano');
//***************************
eL..Rezidentni aplikace
[*] Tomas Folprecht <tomas.folprecht(zv)iol(tec)cz> - 11.8.1999 15:41:27
Tomas Matousek wrote:
>
> Poradite nekdo s vyvojem rezidentni aplikace - jak zacit ? Dik
>
Nazdar,
myslim, ze ti rozumim. Nejspis chces aplikaci, ktera bezi, ale nema
hlavni okno.
Sam jsem kdysi neco takoveho delal.
Pokud jsem te dobre pochopil, reseni je snadne.
Otevri si Project source (dpr), to je taky pascalsky program,
zpravidla neco takoveho:
begin
Application.Initialize;
Application.Title := 'Program';
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.
Tyto radky muzes smazat a napsat si vlastni programek, ktery dela
cokoliv.
Muj programek byl ale prilis jednoduchy a tak nevim, neni-li v tom
nejaky hacek.
Ahoj
Tomas Folprecht
Algoritmus na zmenu textu
[*] Virag Ivan <ViragI(zv)radiomobil(tec)cz> - 11.8.1999 15:45:30
Omlouvam se Petru Vonesovi, ze mu lezu do zeli.
Napis to tak, jak to vidis. Na Formular dej Button a Memo. Na OnClick
udalost napis to, co je v Button1Click a nad to napis proceduru ProperStr.
Ivan Virag
> ----------
> From: MIKE� P�emysl[SMTP:premysl.mikes(zv)otr.br.ds.mfcr(tec)cz]
> Reply To: delphi-l(zv)fwd(tec)cz
> Sent: 11. srpna 1999 11:33
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Algoritmus na zmenu textu
>
> Ahoj, uz s tim laboruju tyden, ale pokazde se to zasekne na tomhle
> radku:
>
> ProperStr(S);
>
> a hlasi to: Undeclared Indentifier: 'ProperStr'
>
> jak ho mam ale deklarovat?
>
> zkousel jsem dat do sekce type radek procedure ProperStr(var S: String);
> ale to nefunguje.
>
> Diky, Premek
>
> > MIKE� P�emysl wrote:
> > >
> > > Potreboval bych zmenit v textu velka pismena na mala. Protoze jde o
> > > stovky textovych souboru, vyplatil by se na to programek v Delphi.
> > Vim
> > > ze to jde pomoci CharCase := ecLowerCase, ja bych ale potreboval
> > > zaridit, aby prvni znak kazdeho noveho slova (za mezerou) zustal
> > velky.
> > >
> > > Konverze textu by mela fungovat takto (priklad):
> > >
> > > pred zmenou:
> > > 1. THE 59TH STREET BRIDGE SONG
> > > po zmene:
> > > 1. The 59Th Street Bridge Song
> >
> > Ahoj,
> >
> > Muzes to udelat treba takhle:
> >
> > procedure ProperStr(var S: String);
> > const
> > SpaceChars = [#9, #32, #13, #10];
> > var
> > P: PChar;
> > FirstChar: Boolean;
> > begin
> > P := PChar(S);
> > FirstChar := True;
> > while P^ <> #0 do
> > begin
> > if P^ in SpaceChars then
> > FirstChar := True
> > else
> > if FirstChar then
> > begin
> > CharUpperBuff(P, 1);
> > FirstChar := False;
> > end else
> > CharLowerBuff(P, 1);
> > Inc(P);
> > end;
> > end;
> >
> > procedure TForm1.Button1Click(Sender: TObject);
> > var
> > S: String;
> > FS: TFileStream;
> > begin
> > FS := TFileStream.Create('unit1.pas', fmOpenRead or
> > fmShareDenyWrite);
> > try
> > SetLength(S, FS.Size);
> > FS.ReadBuffer(Pointer(S)^, FS.Size);
> >
> > ProperStr(S);
> >
> > Memo1.Lines.Text := S;
> >
> > finally
> > FS.Free;
> > end;
> > end;
> >
> > --
> >
> > Internet proti monopolu. Petr Vones, amatersky
> > programator
> > * http://www.bojkot(tec)cz *
> > ************************
> >
> ukladanie zmien v dbgrid
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 11.8.1999 16:06:25
Proboha! Nikdy nepoustej uzivatele na datovy zdroj! Data si umisti do
docasne tabulky, muze byt i memory table - podle okolnosti a druhu dat,
a zmeny zapisuj kdy se ti zachce. To fakt jeste nekdo pousti uzivatele
do tabulek???
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> > Potreboval by som poradit, ako naprogramovat to, aby sa mi
> zmeny,
> > ktore
> > urobim v dbgride nezapisovali do databazy hned, ale az po stlaceni
> > nejakeho
> > tlacidla. Jednoducho chcem editovat a zapisat zmeny az potom, ako sa
> > rozhodnem ich zapisat.
> >
> > Pouzivam Delphi 4 Professional, Win NT
> >
> > Pos�l�n� mailu pomoc� MAPISendMai
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 11.8.1999 17:33:56
Zkusil jsem to, ale pri vyplneni
XKomu (dosadil jsem Dobra) a
XSMTP (dosadil jsem svou EMailovou adresu)
se zprava odesle (MError=0) ale vrati se jako nedorucitelne,
s tim, ze neni dostupny zadny zprostredkovatel prenosu.
Pritom pod tim jmenem XKomu je emailova adresa spravne
(ale je tato adresa vyplnena i jako "Typ elektonicke adresy").
Pokud XKomu dam emailovou adresu a XSMTP necham prazdne
doruci se to v poradku, kde je chyba ???
Navic, ten kousek kodu je moc maly, chybi deklarace
var
Adresat : TMapiRecipDesc;
Dobra.
> ----------
> q:Maixner Adam wrote:
> >
> > prost�ed� : D4, W95
> >
> > Ahoj, nem�l by n�kdo kousek p��kladu na pou�it� funkce MAPISendMail
> ?
> > N�jak se mi to neda�� a funkce vr�t� n�jak� v n�pov�d� nepopsan�
> error.
>
> a:Podivej se na menu defaultniho projektu "Win 95 logo application" v
> Delphi.
> (File->New->Projects)
>
> jeste kousek kodu :
> //***************************
>
> with Adresat do
> begin
> ulReserved:=0; { Reserved for future
> use }
> ulRecipClass:=MAPI_TO; { Recipient
> class }
> { MAPI_TO, MAPI_CC,
> MAPI_BCC, MAPI_ORIG }
> lpszName:=PChar(XKomu); { Recipient
> name }
> lpszAddress:= PChar(XSMTP); { Recipient address
> (optional) }
> ulEIDSize:=0; { Count in bytes of
> size
> of pEntryID }
> lpEntryID:= nil; { System-specific
> recipient reference }
> end;
>
> with MapiMessage do
> begin
> ulReserved := 0;
> lpszSubject :=PChar(XSubj);
> lpszNoteText := PChar(Txt.Lines.Text);
> lpszMessageType := nil;
> lpszDateReceived := nil;
> lpszConversationID := nil;
> flFlags := 0;
> lpOriginator := nil;
> nRecipCount := 1;
> lpRecips := (zv)Adresat;
> nFileCount := 0;
> lpFiles := nil;
> end;
> MError := MapiSendMail(0, 0, MapiMessage,
> MAPI_LOGON_UI or MAPI_USE_DEFAULT, 0);
> if MError <> 0 then
> MessageDlg('Chyba p�i odesl�n� zpr�vy', mtError, [mbOK], 0)
> else
> ShowMessage('Odeslano');
> //***************************
>
>
> eL..
> Pos�l�n� mailu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.8.1999 17:54:25
Maixner Adam wrote:
>
> prost�ed� : D4, W95
>
> Ahoj, nem�l by n�kdo kousek p��kladu na pou�it� funkce MAPISendMail ?
> N�jak se mi to neda�� a funkce vr�t� n�jak� v n�pov�d� nepopsan� error.
Ahoj,
V IDE dej File | New -> Projects a pak vyber "Win95 logo Application".
Tam mas na to priklad.
--
Petr Vones, amatersky programator
TDateTime
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 11.8.1999 18:31:15
Milan Kotaska wrote:
> Pomoci TDateTime pracuji s datumem. Po pricitani cisla 1 k datu dojedu az
> na konec mesice, ale pak po pricteni 1 se datum vrati zpet na 1. v mesici.
> Potrebuji vsak pokracovat v pricitani i v nasledujicim mesici. Prosim, kdo
> ma s timto nejake zkusenosti napiste.
To je dost divne. Delphi ziskavaji datum ctenim pres wokenni
funkci, ktera vraci hodnoty v poli y,m,d:word a pak to prevadi na
double pres ponekud slozitejsi vzorec. Ted zrovna nemam Delphi
po ruce, takze to nemohu overit, ale muzes to obejit vytvorenim
vlastnich fukci, jako jsem to udelal ja:
type
TSysDate=packed record
case SmallInt of
0:(Day:byte;
Month:byte;
Year:word);
1:(Date:longint);
end;
TSysTime=packed record
case SmallInt of
0:(Second:byte;
Minute:byte;
Hour:word);
1:(Time:longint);
end;
TSysDateTime=packed record
case SmallInt of
0:(Second:byte;
Minute:byte;
Hour:word;
Day:byte;
Month:byte;
Year:word);
1:(SysTime:TSysTime;
SysDate:TSysDate);
2:(Time:longint;
Date:longint);
3:(DateTime:int64);
end;
function ResolveEpoch(Year, Epoch : Integer) : Integer;
{-Convert 2-digit year to 4-digit year according to Epoch}
var
EpochCent : Integer;
begin
if Word(Year) < 100 then
begin
if Epoch=0 then Epoch:=SysDate.Year;
EpochCent := (Epoch div 100) * 100;
if (Year < Epoch mod 100) then
Inc(Year,EpochCent+100)
else
Inc(Year,EpochCent);
end;
Result := Year;
end;
function IsLeapYear(Year : Integer) : Boolean;
{-Return True if Year is a leap year}
begin
Result := (Year mod 4 = 0) and (Year mod 4000 <> 0) and
((Year mod 100 <> 0) or (Year mod 400 = 0));
end;
function DaysInMonth(Month : integer; Year, Epoch : Integer) :
Integer;
{-Return the number of days in the specified month of a given
year}
begin
Year := ResolveEpoch(Year, Epoch);
case Month of
1, 3, 5, 7, 8, 10, 12 :
Result := 31;
4, 6, 9, 11 :
Result := 30;
2 :
Result := 28+Ord(IsLeapYear(Year));
else
Result := 0;
end;
end;
function ValidDate(Day, Month, Year, Epoch : Integer) : Boolean;
{-Verify that day, month, year is a valid date}
begin
Year := ResolveEpoch(Year, Epoch);
if (Day < 1) then
Result := False
else case Month of
1..12 :
Result := Day <= DaysInMonth(Month, Year, Epoch);
else
Result := False;
end
end;
function DMYtoSysDate(Day, Month, Year, Epoch : Integer) :
TSysDate;
{-Convert from day, month, year to a julian date}
begin
Year := ResolveEpoch(Year, Epoch);
if not ValidDate(Day, Month, Year, Epoch) then
Result.Date := BadDate
else if (Year <1) and (Month < 3) then
if Month = 1 then
Result.Date := Pred(Day)
else
Result.Date := Day+30
else begin
if Month > 2 then
Dec(Month, 3)
else begin
Inc(Month, 9);
Dec(Year);
end;
Result.Year:=Year;
Result.Month:=Month;
Result.Day:=Day;
end;
end;
function GetSysMinutes(Time:TSysTime):longint;
begin
with Time do
Result:=longint(Minute)+longint(Hour)*60;
end;
function GetSysSeconds(Time:TSysTime):longint;
begin
with Time do
Result:=longint(Second)+(longint(Minute)+longint(Hour)*60)*60;
end;
function IncSysDate(Date:TSysDate; Days, Months,
Years:integer):TSysDate;
var
M, D, Y: integer;
wM, wD, wY: word;
DT:TDateTime;
begin
with Date do
begin
D:=Day;
M:=Month;
Y:=Year;
Inc(Y, Years);
Inc(Y, Months div 12);
Inc(M, Months mod 12);
if M<1 then
begin
Inc(M, 12);
Dec(Y);
end else
if M>12 then
begin
Dec(M, 12);
Inc(Y);
end;
DT:=EncodeDate(Y, M, D);
DT:=DT+Days;
DecodeDate(DT, wY, wM, wD);
Day:=wD;
Month:=wM;
Year:=wY;
end;
Result:=Date;
end;
function IncSysTime(Time:TSysTime; Seconds, Minutes, Hours:
integer): TSysTime;
var
Secs:longint;
begin
Secs:=GetSysSeconds(Time)+Seconds+Minutes*60+Hours*3600;
if Secs<0 then Secs:=0;
with Result do
begin
Hour:=Secs div 3600;
Minute:=(Secs mod 3600) div 60;
Second:=(Secs mod 3600) mod 60;
end;
end;
function MinutesToSysTime(Minutes:integer): TSysTime;
begin
Result.Second:=0;
Result.Minute:=Minutes mod 60;
Result.Hour:=Minutes div 60;
end;
function SysDate: TSysDate;
begin
Result:=TSysDate(SysDateTime.Date);
end;
procedure SysDateToDMY(Julian : TSysDate; var Day, Month,
Year : Integer);
{-Convert from a julian date to month, day, year}
begin
if Julian.Date = BadDate then begin
Day := 0;
Month := 0;
Year := 0;
end else
begin
Day:=Julian.Day;
Month:=Julian.Month;
Year:=Julian.Year;
end;
end;
function SysTime: TSysTime;
begin
Result:=TSysTime(SysDateTime.Time);
end;
function SysDateTime: TSysDateTime;
var
SystemTime: TSystemTime;
begin
GetLocalTime(SystemTime);
with SystemTime, Result do
begin
Second:=wSecond;
Minute:=wMinute;
Hour:=wHour;
Day:=wDay;
Month:=wMonth;
Year:=wYear;
end;
end;
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Pripojeni na MS SQL
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 11.8.1999 19:43:33
Cau,
Mal� Dobromil wrote:
> Jo, vypada to, ze to pujde. Bezva, diky. Ted jeste bych
> potreboval info, jak takovy zdroj dat (v tom ODBC) udelam
> programove,
To nevim presne, ale mam pocit ze uz to tu probehlo (zkus archiv) - my uz
ODBC nepouzivame ;-)
> jak uzivatel toto ODBC ziska (jinak nez v Office),
Napriklad tak, ze nainstalujes ten MDAC 2.1 (Microsoft Data Access
Components) - jak jsem psal minule - ten obsahuje jak ADO a OLEDB tak i
posledni ODBC drivery (teda snad se nepletu).
> kolik to stoji
Zdarma ;-)
> a naposledy by me moc zajimalo (znate to,
> s tim, jak podate prst a seberou Vam celou ruku :-)
xakru, ruka i noha v tahu ;-)
> kde
> se da sehnat nejaka CZ "nalejvarna" na MS SQL
Tak to bude asi horsi. Ja tu mam napr. ceske podklady na kurz #1140A -
prehled MS SQL7 co jsme dostali na skoleni za tezky peniz a mam pocit, ze se
daji koupit i jen ty podklady ale jisty si nejsem (byli jsme u S-COMPu)
> Jo, a jeste, tim BOL jsi myslel www.bol.com ?
> To je ale nejaky obchod s knihami....
Nene Book Online (v podstate help k MS SQL, ale oni tomu rikaji BOL) ;-)
Mac
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
ff a jpeg
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 12.8.1999 00:27:46
Puvodni zprava, kterou napsal Pavel Serbajlo dne 11 Aug 99,:
> cely den se morim se jpegem ve flashfiler. Snazim se na to jit stejnou =
> cestou jako v paradoxu, ale odmita to poslouchat...nemohl by mi nekdo =
> poslat kus zdroje jak dostat blob z ff do TJpegImage a obracene? Nebo =
> staci jenom postrcit ;-)
Kdyz jsem to zkousel ja pred pul rokem, tak mi to chodilo uplne
normalne jako v Paradoxu - normalni prace s BLOBem. Ja ted jsem
uz linej to zkouset, protoze jsem ospalej, ale zitra bych se na
to podival. Napis, jak to delas Ty, treba tam uvidim chybu...
PS: Existuje ceska konference FlashFiler (i na ostatni produkty
TurboPoweru), blizsi informace na mem webu zde:
http://www.clexpert(tec)cz/konference/
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Konec procesu
[*] Jan Najvarek <najvarek(zv)seznam(tec)cz> - 11.8.1999 21:53:11 -0400
Da se to resit komplikovane pres FindWindow ve smycce apod. (taky jsem to
tak delal), nicmene existuje reseni podstatne jednodussi: InstaldShield ma
paremater, ktery zajisti udrzeni setup.exe v pameti po celou dobu instalace
a tudiz staci cekat na jeho skonceni. Podivej se na seznam parametru a jeden
z nich to bude, neni popsany prilis pochopitelne, ale kdys vis, co hledas,
tak to najdes. A kdyz ne, mam ho poznamenany v databazi v praci, napis na
mailto:Jan_Najvarek(zv)manulife.com
Honza
----- Original Message -----
From: Libor Klicnik <libor_klicnik(zv)aisoft(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, August 11, 1999 5:03 AM
Subject: Konec procesu
> Pomuze mi nekdo ????
>
> Ze sveho programu spoustim setup.exe (klasickej installShield)
> a poteboval bych chytit konec instalace.
>
> Problem je v tom, ze ja otevru nejprve 1 process (setup.exe) ten skonci
> a
> z neho vznikne dalsi proces a konec tohodle procesu (_ins0432._mp)
> potrebuju chytit.
>
> Pomozte mi prosim !!!!!!!
>
> Libor Fuka
>
>
>Pos�l�n� mailu pomoc� MAPISendMail
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 12.8.1999 06:06:55
Pokud pouzivas Outlook Express, musis jej nastavit jako vychozi klient MAPI
(je to v nejake slozce Nastroje/Moznosti). Jak je to u ostatnich programu,
nevim.
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
Od: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>> Zkusil jsem to, ale pri vyplneni
> XKomu (dosadil jsem Dobra) a
> XSMTP (dosadil jsem svou EMailovou adresu)
> se zprava odesle (MError=0) ale vrati se jako nedorucitelne,
> s tim, ze neni dostupny zadny zprostredkovatel prenosu.
> Pritom pod tim jmenem XKomu je emailova adresa spravne
> (ale je tato adresa vyplnena i jako "Typ elektonicke adresy").
>
> Pokud XKomu dam emailovou adresu a XSMTP necham prazdne
> doruci se to v poradku, kde je chyba ???
>
> Navic, ten kousek kodu je moc maly, chybi deklarace
> var
> Adresat : TMapiRecipDesc;
>
> Dobra.
>
SQL Explorer
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 12.8.1999 06:56:28
Zdrav�m.
Stala se mi takov� nep�kn� p��pad. Rozt�hl jsem pravou stranu p�es levou v�b�rovou a nemohu to dostat zp�t po restartov�n� vid�m jen �ed� panel, nev�te n�kdo jak z toho ven? D�k. M&B
Absolutni a relativni cesta v siti peer-to-peer
[*] Ing. �ubom�r G�L - 12.8.1999 07:38:35
Napad: vytvorit zdielany adresar na kazdej stanici, kde budu umiestnene
subory, a tomu potom pridelit pismenko a v databazi sa nan odvolavat.
Pokial som to spravne dekodoval, situacia je nasledovna:
Soubor Stanice1 Stanice2 Stanice3
xx.txt \\PC1\DOC\xx.txt \\PC1\DOC\xx.txt \\PC1\DOC\xx.txt
yy.txt \\PC3\XX\yy.txt \\PC3\XX\yy.txt
\\PC3\XX\yy.txt
tt.txt \\PC2\DIR\tt.txt \\PC2\DIR\tt.txt
\\PC2\DIR\tt.txt
teda:
na PC1 je adresar DOC so suborom xx.txt,
na PC2 je adresar DIR so suborom tt.txt.
na PC3 je adresar XX so suborom yy.txt,
Potom treba nastavit na zdielanie tieto adresare na jednotlivych PC a
primapovat ich (pridelit rovnake pismenka na vsetkych PC) cez NET USE alebo
cez menu. Do databazy potom zaviest iba DISK:\subor.pripona
LuGa
******************************
Lubomir "Levec" GAL, -LuGa
IS, NUPSESO, a.s. Nitra, SK
mailto:lgal(zv)nupseso.sk
******************************SQL
[*] Ren� Otisk - 12.8.1999 07:40:40
Hi,
Ze v tom mam mismass
Sroub
----- Original Message -----
From: Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, August 11, 1999 3:20 PM
Subject: RE: SQL
A co to rika za chybu ?
INSERT INTO Pohyb (Karta, Nazev, Typ, OP95)
SELECT Karta, Nazev, Typ, SUM(Mnozstvi) AS OP95 FROM Pohyb100.DBF
WHERE (Vydano <= '31.12.1995' AND Vydano >= '1.1.1995') AND
(Prikaz Like '8%' OR Prikaz Like '9%' OR Prikaz Is Null)
GROUP BY Karta, Nazev, Typ
TOLEContainer
[*] Ren� Otisk - 12.8.1999 07:58:50
Hi,
Zase jsem kecal. Volal jsem navic metodu nacitani (OnActivate) bez nastaveni Modified na False. Takze se omlouvam
Sroub
----- Original Message -----
From: Ren� Otisk
To: delphi-l(zv)fwd(tec)cz
Sent: Wednesday, August 11, 1999 2:56 PM
Subject: TOLEContainer
Hi,
Prosim poradte,
Mam Delphi 3, Paradox databaze a Office97. Nejake to Blob pole pouzivam pro ukladani souboru (napr z Ofisu). Nactu si streamem z databaze, spustim si OLE server (AllowInPlace = False), poedituju si soubor, uzavru a vlastnost Modified mam na True (to jeste chapu). Lec i kdyz ten soubor nepoedituju, tak Modified je na True (a ja nechci aby byl true). Jak to udelat, abych poznal ze jsem ten soubor jenom otevrel a editoval resp. needitoval?
Sroub
Pripojeni k DB na inetu
[*] Honza Fiala <kvasar(zv)mbox.mrp(tec)cz> - 12.8.1999 08:01:44
Podobny princip me take napadl, ale me se hlavne jedna o hromadny update na
databazi. Resit to zpusobem, ze asp poslu SQL prikaz a pockam na vysledek se
mi zda dosti neohrabane a zdlouhave.>> -----Original Message-----
>> From: Honza Fiala [mailto:kvasar(zv)mbox.mrp(tec)cz]
>
>> pres delphi. Mohl bych sice posilat pres ASP dotazy, ale to
>> se zda trochu nesikovne. Neda se nejak pripojit na takovou vzdalenou
>databazi?
>Ja jsem to presne resil tak...
>Mel jsem na serveru ASPecka, ktera vyrabela CSV data a posilala je pres
>HTTP.
>V Delphi jsem mel Pietteho, ktery to nacital a zpracovala... Dostal jsem se
>tak bez problemu
>pres firewally i proxyny, aniz bych musel neco zvlastniho programovat...
>
>Tomas
SQL
[*] Micka Daniel <Daniel.Micka(zv)rbg2.siemens.de> - 12.8.1999 08:07:22
Za predpokladu, ze tvuj select dat, ktere vkladas byl v poradku, by to podle
me melo byt bez deklarace vkladani jako-values.
takze snad takto :
INSERT INTO Pohyb SELECT Karta, Nazev, Typ, SUM(Mnozstvi) AS OP95 FROM
Pohyb100.DBF
WHERE (Vydano <= '31.12.1995' AND Vydano >= '1.1.1995') AND
(Prikaz Like '8%' OR Prikaz Like '9%' OR Prikaz Is Null) GROUP BY Karta,
Nazev, Typ
deklaraci, ktere pole ve vete plnis mas vlastne napr. ....... AS OP95
Ahoj
mailto:Daniel.Micka(zv)rbg2.siemens.de
-----------------------------------------------------------------------
Hi,
Sakva, co delam blbe?
INSERT INTO Pohyb (Karta, Nazev, Typ, OP95)
SELECT Karta, Nazev, Typ, SUM(Mnozstvi) AS OP95 FROM Pohyb100.DBF
WHERE (Vydano <= '31.12.1995' AND Vydano >= '1.1.1995') AND
(Prikaz Like '8%' OR Prikaz Like '9%' OR Prikaz Is Null)
GROUP BY Karta, Nazev, Typ
Dekuji
Sroub
SQL
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 12.8.1999 08:29:19
Ren� Otisk wrote:
> Sakva, co delam blbe?
>
> INSERT INTO Pohyb (Karta, Nazev, Typ, OP95)
> SELECT Karta, Nazev, Typ, SUM(Mnozstvi) AS OP95 FROM Pohyb100.DBF
> WHERE (Vydano <= '31.12.1995' AND Vydano >= '1.1.1995') AND
> (Prikaz Like '8%' OR Prikaz Like '9%' OR Prikaz Is Null)
> GROUP BY Karta, Nazev, Typ
Ja bych zacal od datumu, jestli pocitadlo, na kterem databaze
bezi, nema jiny format pro datum.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Capability not Supported
[*] Ivan Kodaj <kodaj(zv)datalock.sk> - 12.8.1999 08:46:11
Hi vsetci,
Neviete mi niekto poradit, preco mi pri otvarani RxMemoryTable vypise
program Hlasku Capability not Supported. Hlasi mi to aj ked pri tabulke
zapnem property CachedUpdates.
Mam D4 Professional + Update 3, Rx 2.6 + fix, NT 4
Dik vsetkym
i.k.Pos�l�n� mailu pomoc� MAPISendMai
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 12.8.1999 08:53:03
Pouzivam MS Exchange, ale nejde o to, ze se zprava neodesle,
ona totiz odejde a objevi se i ve slozce "Odeslana posta",
to je OK; ale nedoruci se, protoze v typu odeslane posty
misto SMTP objevi hodnota promenne xSMTP.
Tedy, jako jmeno adresata se objevi to xKomu, to je OK,
jako emailova adresa se objevi to xSMTP, ale bohuzel se
to objevi i v "Typu odeslane posty" a proto se to nedoruci.
Dobra.
> ----------
> Pokud pouzivas Outlook Express, musis jej nastavit jako vychozi klient
> MAPI
> (je to v nejake slozce Nastroje/Moznosti). Jak je to u ostatnich
> programu,
> nevim.
>
>
> > Zkusil jsem to, ale pri vyplneni
> > XKomu (dosadil jsem Dobra) a
> > XSMTP (dosadil jsem svou EMailovou adresu)
> > se zprava odesle (MError=0) ale vrati se jako nedorucitelne,
> > s tim, ze neni dostupny zadny zprostredkovatel prenosu.
> > Pritom pod tim jmenem XKomu je emailova adresa spravne
> > (ale je tato adresa vyplnena i jako "Typ elektonicke adresy").
> >
> > Pokud XKomu dam emailovou adresu a XSMTP necham prazdne
> > doruci se to v poradku, kde je chyba ???
> >
> Toolbar97
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 12.8.1999 09:11:53
Zdravim,
kdysi mi kdosi odtud posilal free verzi Toolbaru97 od Jordana Russela.
Bohuzel jsem ji pri reinstalaci pocitace ztratil. Prosim o kontakt.
Diky.==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== Toolbar97
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 12.8.1999 09:21:51
Haj hou!
> kdysi mi kdosi odtud posilal free verzi Toolbaru97 od Jordana Russela.
> Bohuzel jsem ji pri reinstalaci pocitace ztratil. Prosim o kontakt.
Je na www.torry.ru
kodovanie (crypt) v Delphi
[*] Ivan Kodaj <kodaj(zv)datalock.sk> - 12.8.1999 09:44:21
Cafte,
Moze nioekto poadit ako sa da v delfoch zakodovat string. Chcem kodovat
passwordy a nepotrebujem ziadne super algoritmy, len aby tie hesla v
databaze netrcali len tak. Najlepsie by bolo, keby to bola nejaka normalna
funkcia delphi.
Mam D4 Professional + Update 3, Rx 2.6 + fix, NT 4
Dik vsetkym
i.k.
Pripojeni k DB na inetu
[*] Burger, Tomas <tomas.burger(zv)sap-ag.de> - 12.8.1999 09:44:39
> -----Original Message-----
> From: Honza Fiala [mailto:kvasar(zv)mbox.mrp(tec)cz]
>
> Podobny princip me take napadl, ale me se hlavne jedna o
> hromadny update na databazi. Resit to zpusobem, ze asp
> poslu SQL prikaz a pockam na vysledek se
> mi zda dosti neohrabane a zdlouhave.
Pokud delas hromadny update, je jedine spravne reseni, provest ho cely na
serveru... obzvlast, je-li klient od serveru daleko... Idealni samozrejme je
napsat takovou akci primo do databaze (pokud to ovsem ona umoznuje).
Pokud ne, musis se spokojit s nejakou formou serveroveho skriptingu...
Na kazdy pad: metoda, ze budes na tu dalku stahovat jednu vetu za druhou a
pak je zpracovane vracet zpatky, neni uplne nejvhodnejsi...
Tomas
Pos�l�n� mailu pomoc� MAPISendMai
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 12.8.1999 09:56:33
V D1 (pod W98) delam program na vytvoreni skupiny a ikon.
Pouzivam na to TDDeClientConv, ktery ma
nastaveny ConnectMode := ddeManual a
DDEService a ddeTopic := Progman.
Vse probehne OK, icony se vytvori, ale kdyz
ukoncuji program, tak to hodi chybu GPF na
adrese 0009:301F, ktera se neda najit.
Nevite nekdo pomoc?
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+Rezidentni aplikace
[*] Burger, Tomas <tomas.burger(zv)sap-ag.de> - 12.8.1999 10:00:59
> -----Original Message-----
> > Zvedava otazecka. ...a kdybych ho nechtel videt ani v seznamu
> uloh?
See http://www.delphi(tec)cz/faq.asp?faq=20
Tomas
dbgrid s combobox
[*] Ivan Kodaj <kodaj(zv)datalock.sk> - 12.8.1999 10:01:27
Hi,
Potreboval by som komponentu, ktora moze mat fieldy v stlpci typu
combobox. DBCtrlGrid mi neradte, neda sa prisposobit look komponentov tak,
aby to ako celok vyzeralo ako DBGrid.
Vdaka za kazdu radu.
Mam D4 Professional + Update 3, Rx 2.6 + fix, NT 4
Dik vsetkym
i.k.
SQL
[*] Ren� Otisk - 12.8.1999 10:05:14
Hi,
Format datumu je v poradku (odzkouseno asi 1.634.981,5 krat)
Ted jsem z toho zkousel jenom ten SELECT (bez INSERTu) a proslo to bez
problemu.
Ale s INSERTem ani tuk.
Sroub
> Sakva, co delam blbe?
>
> INSERT INTO Pohyb (Karta, Nazev, Typ, OP95)
> SELECT Karta, Nazev, Typ, SUM(Mnozstvi) AS OP95 FROM Pohyb100.DBF
> WHERE (Vydano <= '31.12.1995' AND Vydano >= '1.1.1995') AND
> (Prikaz Like '8%' OR Prikaz Like '9%' OR Prikaz Is Null)
> GROUP BY Karta, Nazev, Typ
Ja bych zacal od datumu, jestli pocitadlo, na kterem databaze
bezi, nema jiny format pro datum.kodovanie (crypt) v Delphi
[*] Lubos Dusanic <lubos(zv)iname(tec)com> - 12.8.1999 10:06:01
Ivan Kodaj wrote:
> Cafte,
>
> Moze nioekto poadit ako sa da v delfoch zakodovat string. Chcem kodovat
> passwordy a nepotrebujem ziadne super algoritmy, len aby tie hesla v
> databaze netrcali len tak. Najlepsie by bolo, keby to bola nejaka normalna
> funkcia delphi.
>
cav,
slus sa pozriet na http://www.scramdisk.clara.net/, su tam nejake kryptovacie
komponenty do delphi (so zdrojakmi a prikladmi).
lubos
SQL
[*] Ren� Otisk - 12.8.1999 10:07:27
Hi,
Ale tabulka Pohyb ma navic nejake este sloupce navic oproti Pohyb100
Sroub
> Za predpokladu, ze tvuj select dat, ktere vkladas byl v poradku, by to
podle
> me melo byt bez deklarace vkladani jako-values.
> takze snad takto :
> INSERT INTO Pohyb SELECT Karta, Nazev, Typ, SUM(Mnozstvi) AS OP95 FROM
> Pohyb100.DBF
> WHERE (Vydano <= '31.12.1995' AND Vydano >= '1.1.1995') AND
> (Prikaz Like '8%' OR Prikaz Like '9%' OR Prikaz Is Null) GROUP BY Karta,
> Nazev, Typ
> deklaraci, ktere pole ve vete plnis mas vlastne napr. ....... AS OP95
> Ahoj
Toolbar97
[*] CHMEL Karel, Mgr. <kchmel(zv)csob(tec)cz> - 12.8.1999 10:12:43
podivej se na
http://www.jordanr.dhs.org/
Karel
-----P�vodn� zpr�va-----
Od: Krayzel Libor [mailto:Libor.Krayzel(zv)czech-tv(tec)cz]
Odesl�no: 12. srpna 1999 9:12
Komu: '*** Delphi'
P�edm�t: Toolbar97
Zdravim,
kdysi mi kdosi odtud posilal free verzi Toolbaru97 od Jordana Russela.
Bohuzel jsem ji pri reinstalaci pocitace ztratil. Prosim o kontakt.
Diky.==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== Ukonceni aplikace mezi Application.Initialize a Ap
[*] Ren� Otisk - 12.8.1999 10:23:36
Hi,
Win95, WinNT, Delphi 3 C/S.
V aplikaci mam prihlasovaci dialog. Kdyz mi to uzivatel stornuje (je to druhy form v projektu), tak mi to projede projede vsechny dalsi formy. Pak se objevi zablesk hlavniho formu na obrazovce a aplikace skonci. Existuje nejaky prikaz, ktery mi to hned po tom stornu ukonci a hlavne bez problesknuti?
Sroub
Toolbar97
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 12.8.1999 10:24:02
> Je na www.torry.ru
Neni. Tam je posledni verze a ta uz je share, respektive free for
non-commercial. Jedna ze starsich (a pro me pouzitelnych verzi) byla jeste
komplet free a tu tady kdysi kdosi mel.Vytvareni icon a skupin
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 12.8.1999 10:34:45
Prominte za zpravu znovu, ale zapomel jsem zmenit Subject.
V D1 (pod W98) delam program na vytvoreni skupiny a ikon.
Pouzivam na to TDDeClientConv, ktery ma
nastaveny ConnectMode := ddeManual a
DDEService a ddeTopic := Progman.
Vse probehne OK, icony se vytvori, ale kdyz
ukoncuji program, tak to hodi chybu GPF na
adrese 0009:301F, ktera se neda najit.
Nevite nekdo pomoc?
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+kodovanie (crypt) v Delphi
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 12.8.1999 10:35:50
Muzu Ti poslat svou cryptovaci unitu i s implementacni casti,
ale zkompilovanou pod D3. Zdrojovy kod z pochopitelnych
duvodu posilat nebudu ;-) Ale vsadim se, ze by mi to z USA
vyvezt nepovolili :-)
Dale muzu poslat MALY (!) dokument, ktery se touto
problematikou zabyva. Pise se tam neco jako toto :
Stringy se daji velice lehce kodovat tak, ze sectes
dva stringy xobe (napr. text + heslo), ale ne tak, jak
ted kazdeho napadlo za sebe, ale NAD sebe (napr :
Text, ktery chci zakodovat.
Heslo, ktere pouziju
--------------------------
Ord(T)+Ord(H) = prvni znak
Ord(e)+Ord(e) = druhy znak
Ord(x)+Ord(s) = treti znak
Ord(t)+Ord(l) = ctvrty znak atd...
s tim, ze je nutne delku obou retezcu vyrovnat, napriklad
autoklavem, tedy se na konec hesla prida jeho zacatek
("Heslo, ktere pouzijuHeslo ,")
Dalsi metodou, jak zasifrovat retezec, je pricist ke kazdemu
znaku nejakou konstantu a treba odecist jeho pozici vzhledem
k prvnimu znaku (index).
Ord(T)+C-1 = 1ni znak
Ord(e)+C-2 = 2hy znak
Ord(x)+C-3 = 3ti znak
Ord(t)+C-4 = 4ty znak
POZOR!!!
RULES.TXT sice jete neplati, ale muzete se vsadit, ze
posilani zprav typu "Ja chci taky...", "Posli..." a podobne,
primo do konference tam bude urcite zakazano !
Dobra.
mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz
> ----------
> Moze nioekto poadit ako sa da v delfoch zakodovat string. Chcem
> kodovat
> passwordy a nepotrebujem ziadne super algoritmy, len aby tie hesla v
> databaze netrcali len tak. Najlepsie by bolo, keby to bola nejaka
> normalna
> funkcia delphi.
> Ukonceni aplikace mezi Application.Initialize a Ap
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 12.8.1999 10:40:43
Take mi to tak delalo, navic, situaci mi komlikoval RxFormStorage,
pokud uzivatel login dialog stornoval, nastavil jsem souradnice
hlavniho formu na -1000 a -1000 a nebylo to videt.
Dobra.
> ----------
> Win95, WinNT, Delphi 3 C/S.
> V aplikaci mam prihlasovaci dialog. Kdyz mi to uzivatel stornuje (je
> to druhy form v projektu), tak mi to projede projede vsechny dalsi
> formy. Pak se objevi zablesk hlavniho formu na obrazovce a aplikace
> skonci.�Existuje nejaky prikaz, ktery mi to hned po tom stornu ukonci
> a hlavne bez problesknuti?
> Rezidentni aplikace
[*] Viktor.Lostak(zv)chmi(tec)cz (Viktor Lostak) - 12.8.1999 10:52:13
Skryj hlavni okno aplikace (ShowWindow (SW_HIDE)). Viktor
----- Original Message -----
From: Burger, Tomas <tomas.burger(zv)sap-ag.de>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, August 12, 1999 10:00 AM
Subject: RE: Rezidentni aplikace
> -----Original Message-----
> > Zvedava otazecka. ...a kdybych ho nechtel videt ani v seznamu
> uloh?
See http://www.delphi(tec)cz/faq.asp?faq=20
Tomas
kodovanie (crypt) v Delphi
[*] Bednarcik Dalibor <d.bednarcik(zv)vpfm(tec)cz> - 12.8.1999 10:59:50
-----P�vodn� zpr�va-----
Od: kodaj(zv)datalock.sk <kodaj(zv)datalock.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. srpna 1999 11:30
P�edm�t: kodovanie (crypt) v Delphi
>
>
>
>Cafte,
>
>
>Moze nioekto poadit ako sa da v delfoch zakodovat string. Chcem kodovat
>passwordy a nepotrebujem ziadne super algoritmy, len aby tie hesla v
>databaze netrcali len tak. Najlepsie by bolo, keby to bola nejaka normalna
>funkcia delphi.
>
>
>Mam D4 Professional + Update 3, Rx 2.6 + fix, NT 4
>
>
>
>Dik vsetkym
>
>
>
>i.k.
>
>
>
>
Treba se na to da zneuzit XOR
function Zakoduj(var Text:string):string;
const X_O_R=127
var tmp : string;
i : integer;
begin
tmp:='';
for i:=1 to Length(Text) do begin
tmp:=tmp+chr(Ord(Text[i]) xor X_O_R );
end;
result:=tmp;
end;
Stejna funkce se pouziva jak na zakodovani tak i na odkodovani
SQL
[*] Micka Daniel <Daniel.Micka(zv)rbg2.siemens.de> - 12.8.1999 11:05:35
Samo, ze musis plnit celou vetu - i kdyz je polozka prazdna
Ale pokud uz ti to napsalo neco jako "malo aktualnich parametru" , tak je to
celkem v pohode
A zkus to rozsirit o napr:
INSERT INTO Pohyb SELECT Karta, Nazev, Typ, SUM(Mnozstvi) AS OP95,
'<nejaka_textova_hodnota>' , 0 FROM Pohyb100.DBF
Ale zkus si prvne select tak, aby ti pocet vkladanych poli odpovidal tabulce
do ktere vkladas ( i poradi )
A priste zkus prosimte trochu vic popsat o co go, protoze chyba muze byt
uplne nekde jinde a nema cenu ti psat neci,
ktere znas.
Snad ti ho pomuze hoj
Dan
mailto:Daniel.Micka(zv)rbg2.siemens.de
-----------------------------------------------------
Hi,
Ale tabulka Pohyb ma navic nejake este sloupce navic oproti Pohyb100
Sroub
> Za predpokladu, ze tvuj select dat, ktere vkladas byl v poradku, by to
podle
> me melo byt bez deklarace vkladani jako-values.
> takze snad takto :
> INSERT INTO Pohyb SELECT Karta, Nazev, Typ, SUM(Mnozstvi) AS OP95 FROM
> Pohyb100.DBF
> WHERE (Vydano <= '31.12.1995' AND Vydano >= '1.1.1995') AND
> (Prikaz Like '8%' OR Prikaz Like '9%' OR Prikaz Is Null) GROUP BY Karta,
> Nazev, Typ
> deklaraci, ktere pole ve vete plnis mas vlastne napr. ....... AS OP95
> Ahoj
Toolbar97
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 12.8.1999 11:13:27
> podivej se na
> http://www.jordanr.dhs.org/
Nejak se nam Jordan ztratil.dbgrid s combobox
[*] Ren� Otisk - 12.8.1999 11:37:10
Hi,
Mozna ti to pomuze. K TColumn patri vlastnost PickList (pak zalezi na
nastaveni ButtonStyle)
Sroub
----- Original Message -----
From: Ivan Kodaj <kodaj(zv)datalock.sk>
To: Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, August 12, 1999 10:01 AM
Subject: dbgrid s combobox
> Hi,
>
> Potreboval by som komponentu, ktora moze mat fieldy v stlpci typu
> combobox. DBCtrlGrid mi neradte, neda sa prisposobit look komponentov tak,
> aby to ako celok vyzeralo ako DBGrid.
>
> Vdaka za kazdu radu.
>
> Mam D4 Professional + Update 3, Rx 2.6 + fix, NT 4
>
> Dik
vsetkym
>
> i.k.
>Ukonceni aplikace mezi Application.Initialize a Ap
[*] Radim Ludv�k <radiml(zv)bnsoft(tec)cz> - 12.8.1999 11:44:06
Zdravim,
zkus jednoduse za ten prihl. dialog dat podminku:
if not Application.Terminated then
begin
.
.
.
Application.Run;
end;
Radim Ludvik
BN Soft Znojmo
radiml(zv)bnsoft(tec)cz
V aplikaci mam prihlasovaci dialog. Kdyz mi to uzivatel stornuje (je to druhy form v projektu), tak mi to projede projede vsechny dalsi formy. Pak se objevi zablesk hlavniho formu na obrazovce a aplikace skonci. Existuje nejaky prikaz, ktery mi to hned po tom stornu ukonci a hlavne bez problesknuti?
kodovanie (crypt) v Delphi
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 12.8.1999 10:57:38
Ahoj,
posilam kousek funkce, ktera provadi sifrovani tak, ze se nacte soubor a
ke kazdemu bytu se pricte
hodnota vzata ze stringu heslo. Vysledek se uklada do bufferu, ktery
musi byt dopredu alokovan. Desifrovani se provadi zcela stejne, pouze se
misto pricitani odecita. Pokud je ten string dostatecne dlouhy a pokud
neni nikdy k dispozici otevreny text a zasifrovany text, lze sifru
pokladat za relativne bezpecnou. Je to ta nejjednodussi sifra, takze
sifrovat nejake citlive zalezitosti bych se asi rozpakoval. Chces-li,
poslu ti nejake povidani o ruznych sifrach, ktere jsem kdysi od nekoho
dostal. Napis na soukromy mail.
procedure CryptFileToBuffer(SourceFileName, DestBuffer:PChar);
var fr:file;
i, j, rd:integer;
begin
//dest je buffer, kam se bude psat
MakePassword; --> zde si definuj libovolny string coby heslo
FileMode:=0;
AssignFile(fr, SourceFileName);
i:=1;
reset(fr, 1);
blockread(fr, DestBuffer^, FileSize(fr), rd);
for j:=0 to FileSize(fr) - 1 do
begin
DestBuffer[j]:=char(ord(DestBuffer[j]) + ord(heslo[i]));
i:=i + 1;
if i > Length(heslo) then i:=1;
end;
CloseFile(fr);
FileMode:=2;
end;
Zdravim a preji uspech
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi nebo Visual Basic
**************************************************
> -----P�vodn� zpr�va-----
> Od: Ivan Kodaj [SMTP:kodaj(zv)datalock.sk]
> Odesl�no: 12. srpna 1999 9:44
> Komu: Delphi
> P�edm�t: kodovanie (crypt) v Delphi
>
> Cafte,
>
> Moze nioekto poadit ako sa da v delfoch zakodovat string. Chcem
> kodovat
> passwordy a nepotrebujem ziadne super algoritmy, len aby tie hesla v
> databaze netrcali len tak. Najlepsie by bolo, keby to bola nejaka
> normalna
> funkcia delphi.
>
> Mam D4 Professional + Update 3, Rx 2.6 + fix, NT 4
>
> Dik
> vsetkym
>
> i.k.
> Toolbar97
[*] CHMEL Karel, Mgr. <kchmel(zv)csob(tec)cz> - 12.8.1999 12:47:11
Neztratil, ted jsem se tam dostal
-----P�vodn� zpr�va-----
Od: Krayzel Libor [mailto:Libor.Krayzel(zv)czech-tv(tec)cz]
Odesl�no: 12. srpna 1999 11:13
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: RE: Toolbar97
> podivej se na
> http://www.jordanr.dhs.org/
Nejak se nam Jordan ztratil.Toolbar97
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 12.8.1999 13:06:09
To mi prislo ted nedavno, tak snad Jordan zije. Alespon doufam, kdyz mam
u nej predplaceno az do verze 2 :-). Pokud chces tu free verzi, tak zkus
napsat primo na Jordanuv mail (viz text), treba Ti ji posle.
Mira
----- Puvodni zprava -----
Od: Toolbar97 Update <jordanr(zv)iname.com>
Komu: List Member <bonnel-ondrisek(zv)telecom(tec)cz>
Odeslano: 2. srpna 1999 21:49
Predmet: Toolbar97 1.73 released
> Toolbar97 Update - http://www.jordanr.dhs.org/
>
> Toolbar97 version 1.73 has been released.
>
> Changes:
>
> - Added Version property to all the components.
>
> - Added OnCloseQuery event to TToolbar97/TToolWindow97. This event is
> declared and operates the same way as a form's OnCloseQuery event.
>
> - Added DropdownArrowWidth property to TToolbarButton97, which lets
you
> customize the width of the arrow portion of a button which has
> DropdownCombo set to True.
>
> - Added OnMouseDown, OnMouseMove, and OnMouseUp events to TToolbar97
and
> TToolWindow97.
>
> - Added ControlIs97Control, Register97ControlClass,
> Unregister97ControlClass procedures to TB97Ctls.pas. These should only
be
> useful to component developers. Normally when a TEdit97 control has
the
> focus, moving the mouse over other TEdit97 controls will not change
the
> appearance of their border. If you need to know if a TEdit97 or other
"97"
> control registered with Register97ControlClass has the focus, you can
call
> ControlIs97Control(Screen.ActiveControl).
>
> - Added WM_PRINT and PRINTCLIENT handlers to TDock97,
TCustomToolWindow97,
> and TEdit97 for full compatibility with the component Transition
Effects.
>
> --
> Jordan Russell
> jordanr(zv)iname.com
> http://www.jordanr.dhs.org/
>
> ______________________________________________________________________
> To unsubscribe, write to tb97-unsubscribe(zv)listbot.com
> MSN Messenger Service lets you stay in touch instantly with
> your family & friends - Visit http://messenger.msn.com
>
>
komunikac prost�ednictv�m COM port�
[*] Petr Hronek <trit(zv)cbnet(tec)cz> - 12.8.1999 13:13:00
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Pot�eboval bych ��st data z COMu ale nejsem sto to rozchodit
st�hl jsem si QCOM32, ale n�jak si s t�m nev�m rady - pom��e
mi n�kdo p��kladem ?
D�ky
Petr Hronek
trit(zv)cbnet(tec)cz
Ukonceni aplikace mezi Application.Initialize a Ap
[*] Libor Junek <libor(zv)thsoft(tec)cz> - 12.8.1999 13:13:23
Pouzij prikaz "HALT"
Libor Junek
**************************************
TH SOFT, Kostelni 128
564 01 ZAMBERK
tel. 0446 613311
http://www.thsoft(tec)cz
http://www.zbk(tec)czn(tec)cz
E-mail: libor(zv)thsoft(tec)cz
**************************************
-----P�vodn� zpr�va-----
Od: Ren� Otisk <otisk(zv)misel(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. srpna 1999 10:45
P�edm�t: Ukonceni aplikace mezi Application.Initialize a Application.Run
Hi,
Win95, WinNT, Delphi 3 C/S.
V aplikaci mam prihlasovaci dialog. Kdyz mi to uzivatel stornuje (je to druhy form v projektu), tak mi to projede projede vsechny dalsi formy. Pak se objevi zablesk hlavniho formu na obrazovce a aplikace skonci. Existuje nejaky prikaz, ktery mi to hned po tom stornu ukonci a hlavne bez problesknuti?
Sroub
SQL
[*] Ren� Otisk - 12.8.1999 13:16:48
Uz to chodi
Diky vsem
Sroub
----- Original Message -----
From: Micka Daniel <Daniel.Micka(zv)rbg2.siemens.de>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, August 12, 1999 11:05 AM
Subject: RE: SQL
> Samo, ze musis plnit celou vetu - i kdyz je polozka prazdna
> Ale pokud uz ti to napsalo neco jako "malo aktualnich parametru" , tak je
to
> celkem v pohode
> A zkus to rozsirit o napr:
> INSERT INTO Pohyb SELECT Karta, Nazev, Typ, SUM(Mnozstvi) AS OP95,
> '<nejaka_textova_hodnota>' , 0 FROM Pohyb100.DBF
> Ale zkus si prvne select tak, aby ti pocet vkladanych poli odpovidal
tabulce
> do ktere vkladas ( i poradi )
> A priste zkus prosimte trochu vic popsat o co go, protoze chyba muze byt
> uplne nekde jinde a nema cenu ti psat neci,
> ktere znas.
> Snad ti ho pomuze hoj
> Dan
> mailto:Daniel.Micka(zv)rbg2.siemens.de
>
> -----------------------------------------------------
> Hi,
> Ale tabulka Pohyb ma navic nejake este sloupce navic oproti Pohyb100
> Sroub
> > Za predpokladu, ze tvuj select dat, ktere vkladas byl v poradku, by to
> podle
> > me melo byt bez deklarace vkladani jako-values.
> > takze snad takto :
> > INSERT INTO Pohyb SELECT Karta, Nazev, Typ, SUM(Mnozstvi) AS OP95 FROM
> > Pohyb100.DBF
> > WHERE (Vydano <= '31.12.1995' AND Vydano >= '1.1.1995') AND
> > (Prikaz Like '8%' OR Prikaz Like '9%' OR Prikaz Is Null) GROUP BY
Karta,
> > Nazev, Typ
> > deklaraci, ktere pole ve vete plnis mas vlastne napr. ....... AS OP95
> > Ahoj
Automaticka uprava v editoru Delphi3 C/S
[*] Ren� Otisk - 12.8.1999 13:41:23
Hi,
Pri editaci nekterych slov jazyka se automaticky provede jejich uprava. Napr. napisu FileRead( a po te zavorce se mi to prepise na Filtered(, nebo File se zmeni na file. Jak se da tahle automaticka uprava konfigurovat/vypnout?
Sroub mapi funkcia
[*] Pavol Griga <paly(zv)sct.sk> - 12.8.1999 14:04:54
Nevie mi niekto poradit ako najst CreateOneOff, ktora
je popisana v mapi helpe pri Delphi, ale v ziadnom unite
nie je popisana.
Pavol Griga
P.S. vdaka za kazdu radu
Toolbar97
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 12.8.1999 14:33:36
> Neztratil, ted jsem se tam dostal
Mate pravdu, ale stejne uz neni k dispozici ta jeste free verze. Prosim
prosim, ma ji nekdo?
==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== Registr
[*] Martin =?iso-8859-2?Q?Bedn=E1=F8?= <bednar(zv)mujweb(tec)cz> - 12.8.1999 14:37:37
DD,
obracim se s dotazem, ktery mozna primo nesouvisi s delphi, ale
potreboval
bych zjistit jestli na pocitaci je instalovan konkretni program,
hlavne Word, Excel apod. Program se bude spoustet v LoginScriptu
pri logovani do site, ale nemel by nejak moc zdrzovat.
Uvazuji o sahnuti do registru, ale kam konkretne ?
Nevite o nejakem popisu kam se co ukalada v registrech v pripade
Microsoftu (cislo verze, propadne cesta k exe na disku apod. )
Moc dekuji za radu
Martin Bednar
bednar(zv)mujweb(tec)cz
Algoritmus na zmenu textu
[*] Robert Jendrisak <delphi(zv)minv.sk> - 12.8.1999 15:27:40
To je funkcia, a musis si ju definovat klasicky na zaciatku programu
Have a joy
Werki
PS: Who knows me...next week im on the vocation
> Ahoj, uz s tim laboruju tyden, ale pokazde se to zasekne na tomhle
> radku:
>
> ProperStr(S);
>
> a hlasi to: Undeclared Indentifier: 'ProperStr'
>
> jak ho mam ale deklarovat?
>
> zkousel jsem dat do sekce type radek procedure ProperStr(var S: String);
> ale to nefunguje.
>
> Diky, Premek
>
> > MIKE� P�emysl wrote:
> > >
> > > Potreboval bych zmenit v textu velka pismena na mala. Protoze jde o
> > > stovky textovych souboru, vyplatil by se na to programek v Delphi.
> > Vim
> > > ze to jde pomoci CharCase := ecLowerCase, ja bych ale potreboval
> > > zaridit, aby prvni znak kazdeho noveho slova (za mezerou) zustal
> > velky.
> > >
> > > Konverze textu by mela fungovat takto (priklad):
> > >
> > > pred zmenou:
> > > 1. THE 59TH STREET BRIDGE SONG
> > > po zmene:
> > > 1. The 59Th Street Bridge Song
> >
> > Ahoj,
> >
> > Muzes to udelat treba takhle:
> >
> > procedure ProperStr(var S: String);
> > const
> > SpaceChars = [#9, #32, #13, #10];
> > var
> > P: PChar;
> > FirstChar: Boolean;
> > begin
> > P := PChar(S);
> > FirstChar := True;
> > while P^ <> #0 do
> > begin
> > if P^ in SpaceChars then
> > FirstChar := True
> > else
> > if FirstChar then
> > begin
> > CharUpperBuff(P, 1);
> > FirstChar := False;
> > end else
> > CharLowerBuff(P, 1);
> > Inc(P);
> > end;
> > end;
> >
> > procedure TForm1.Button1Click(Sender: TObject);
> > var
> > S: String;
> > FS: TFileStream;
> > begin
> > FS := TFileStream.Create('unit1.pas', fmOpenRead or
> > fmShareDenyWrite);
> > try
> > SetLength(S, FS.Size);
> > FS.ReadBuffer(Pointer(S)^, FS.Size);
> >
> > ProperStr(S);
> >
> > Memo1.Lines.Text := S;
> >
> > finally
> > FS.Free;
> > end;
> > end;
> >
> > --
> >
> > Internet proti monopolu. Petr Vones, amatersky
> > programator
> > * http://www.bojkot(tec)cz *
> > ************************
> >Popup menu
[*] Maly(zv)pds.pce.cdrail(tec)cz - 12.8.1999 16:06:49
Ahoj
Nejde mi pridat polozky do standartniho popup menu nap� k souboru (viz
explorer).Funkce getsystemmenu vraci identifikator pouze syst.menu v levem
hornim rohu okna a ne kontextoveho menu.
Dekuji za pripadnou radu
lm
Registr
[*] Burger, Tomas <tomas.burger(zv)sap-ag.de> - 12.8.1999 16:43:57
> -----Original Message-----
> From: Martin Bedn�r [mailto:bednar(zv)mujweb(tec)cz]
> Nevite o nejakem popisu kam se co ukalada v registrech v pripade
> Microsoftu (cislo verze, propadne cesta k exe na disku apod. )
Ja bych checknul HKEY_CLASSES_ROOT/Excel.Application
Tomas
ListBox
[*] m.konvicka(zv)post(tec)cz - 12.8.1999 17:12:34
Ahoj.
J� sh�n�m komponentu podobnou komponent� ListBox, ale
pot�ebuji, aby m�sto klasick�ch polo�ek m�la tla��tka.
Mohl by mi n�kdo poradit? D�ky.
kodovanie (crypt) v Delphi
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 12.8.1999 18:05:48
Ivan Kodaj wrote:
> Moze nioekto poadit ako sa da v delfoch zakodovat string. Chcem
> kodovat
> passwordy a nepotrebujem ziadne super algoritmy, len aby tie hesla v
> databaze netrcali len tak. Najlepsie by bolo, keby to bola nejaka normalna
> funkcia delphi.
Ja jsem posilal Cisarovi komponety pro kryptovani v CAST-128, aby
je dal do Delphree. Kdyby je tam dal, mohly byt volne pristupne.
Posilat je nekam na SP nebo Torry se mi nechce.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
kodovanie (crypt) v Delphi
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 12.8.1999 18:21:20
Haj hou!
> Ja jsem posilal Cisarovi komponety pro kryptovani v CAST-128, aby
> je dal do Delphree. Kdyby je tam dal, mohly byt volne pristupne.
> Posilat je nekam na SP nebo Torry se mi nechce.
mea culpa :-) Ok, vystavim to v Code dumpsterovi do pristiho tydne.
Hodne zdaru
kodovanie (crypt) v Delphi
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 12.8.1999 18:23:44
On Thu, 12 Aug 1999, Ivan Kodaj wrote:
> Cafte,
>
> Moze nioekto poadit ako sa da v delfoch zakodovat string. Chcem kodovat
> passwordy a nepotrebujem ziadne super algoritmy, len aby tie hesla v
> databaze netrcali len tak. Najlepsie by bolo, keby to bola nejaka normalna
> funkcia delphi.
Vrele doporucuji:
http://www.scramdisk.clara.net/d_crypto.html
ahoj
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
Automaticka uprava v editoru Delphi3 C/S
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 12.8.1999 18:25:44
On Thu, 12 Aug 1999, [iso-8859-2] Ren� Otisk wrote:
> Hi,
>
> Pri editaci nekterych slov jazyka se automaticky provede jejich uprava. Napr. napisu FileRead( a po te zavorce se mi to prepise na Filtered(, nebo File se zmeni na file. Jak se da tahle automaticka uprava konfigurovat/vypnout?
>
> Sroub
>
Press Ctrl-H a tam si vypni co potrebujes.
ahoj
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
Komponenty
[*] m.konvicka(zv)post(tec)cz - 12.8.1999 19:05:31
Ahoj.
Mohl by mi nekdo poradit, odkud by se daly stahnout
ruzne komponenty pro Delphi?
Predem dik.
Registr
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 12.8.1999 20:07:01
-----P�vodn� zpr�va-----
Od: Martin Bedn�� <bednar(zv)mujweb(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. srpna 1999 14:48
P�edm�t: Registr
>DD,
>obracim se s dotazem, ktery mozna primo nesouvisi s delphi, ale
>potreboval
>bych zjistit jestli na pocitaci je instalovan konkretni program,
>hlavne Word, Excel apod. Program se bude spoustet v LoginScriptu
>pri logovani do site, ale nemel by nejak moc zdrzovat.
>Uvazuji o sahnuti do registru, ale kam konkretne ?
>Nevite o nejakem popisu kam se co ukalada v registrech v pripade
>Microsoftu (cislo verze, propadne cesta k exe na disku apod. )
>
>Moc dekuji za radu
>
>Martin Bednar
>bednar(zv)mujweb(tec)cz
>
>
>
Neco je v HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Current
Version\Uninstall a taky
v HKEY_CURRENT_USER\Software. Zalezi na tom, zda aplikace podporuje
odinstalaci, nebo zda vubec neco do registru pise. MS Office jse "slusna"
aplikace, takze to najdes vzdy pod Uninstall i pod tim druhym.
Tomas Matousek
matousek(zv)havit(tec)cz
mapi funkcia
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 12.8.1999 20:13:06
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
-----P�vodn� zpr�va-----
Od: Pavol Griga <paly(zv)sct.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. srpna 1999 14:21
P�edm�t: mapi funkcia
Nevie mi niekto poradit ako najst CreateOneOff, ktora
je popisana v mapi helpe pri Delphi, ale v ziadnom unite
nie je popisana.
Pavol Griga
P.S. vdaka za kazdu radu
Ja jsem ji teda nikde v helpu Delhi 4 nenasel, ale mozna mas jiny help popr. jinou verzi Delphi.
Pokud neni v Source kodu zadne unity dodavane Delphi, zkus ji najit v nejake DLL instalovane ve Windows (adresar System nebo System32). Hledej napr. v pruzkumnikovi soubory obsahujici text "CreateOneOff". Pokud to nenajdes v zadne DLL, ta funkce neexistuje.
Tomas Matousek
matousek(zv)havit(tec)cz
Ukonceni aplikace mezi Application.Initialize a Ap
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 12.8.1999 20:16:51
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�. -----P�vodn� zpr�va-----
Od: Ren� Otisk <otisk(zv)misel(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 12. srpna 1999 11:58
P�edm�t: Ukonceni aplikace mezi Application.Initialize a Application.Run
Hi,
Win95, WinNT, Delphi 3 C/S.
V aplikaci mam prihlasovaci dialog. Kdyz mi to uzivatel stornuje (je to druhy form v projektu), tak mi to projede projede vsechny dalsi formy. Pak se objevi zablesk hlavniho formu na obrazovce a aplikace skonci. Existuje nejaky prikaz, ktery mi to hned po tom stornu ukonci a hlavne bez problesknuti?
Sroub
Nevim, jak to mas presne udelany, ale co treba Halt. Anebo nejakou hodnotu nastavit pri stornovani a pak v *.dpr podminit vytvoreni dalsich formu podminkou nenastaveni teto hodnoty, nebo nejak podobne.
Tomas Matousek
matousek(zv)havit(tec)cz
Rezidentni aplikace
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 12.8.1999 20:24:45
?????????????? >Tomas Matousek wrote:
>>
>>
>> Poradite nekdo s vyvojem rezidentni aplikace - jak zacit ? Dik
Ten autor je spatne, to jsem nepsal ja, ale Menfy, ja jsem na to odpovidal
prakticky stejne jako ty.
:-)
>
>Ahoj,
>
>Jak uz ti psali ostatni, pojem "rezidentni aplikace" nema ve Windows
>vicemene smysl. Zacni ji proste psat jako kazdou jinou aplikaci.
>Trochu jine by to bylo snad jen v tom pripade, ze by jsi to chtel pak
>pod NT spoustet jako service.
>
>--
>
> Petr Vones, amatersky programator
>
Tomas Matousek
matousek(zv)havit(tec)cz
Service pro WinNT
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 12.8.1999 20:26:38
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Hi,
mel bych takovy jenom dotaz, ktery me zajima spis ze zvedavosti. Jak by se dala naprogramovat aplikace, ktera by se dala spustit jako service na WinNT?
Sroub
Pod Delphi 4 mas: File\New\Service, Service application.
Neco o tom by mohlo byt taky v helpu.
Tomas Matousek
matousek(zv)havit(tec)cz
Rezidentni aplikace
[*] Tomas Matousek <matousek(zv)havit(tec)cz> - 12.8.1999 20:34:05
>Tomas Matousek wrote:
>>
>> Poradite nekdo s vyvojem rezidentni aplikace - jak zacit ? Dik
>>
>
Asi jsem pred predchozi vetou omylem smazal >, ale ja to nepsal !!!
Odpovidal jsem na dotaz Menfy.
Tomas Matousek
>Nazdar,
>myslim, ze ti rozumim. Nejspis chces aplikaci, ktera bezi, ale nema
>hlavni okno.
>Sam jsem kdysi neco takoveho delal.
>Pokud jsem te dobre pochopil, reseni je snadne.
>Otevri si Project source (dpr), to je taky pascalsky program,
>zpravidla neco takoveho:
>
>begin
> Application.Initialize;
> Application.Title := 'Program';
> Application.CreateForm(TMainForm, MainForm);
> Application.Run;
>end.
>
>Tyto radky muzes smazat a napsat si vlastni programek, ktery dela
>cokoliv.
>Muj programek byl ale prilis jednoduchy a tak nevim, neni-li v tom
>nejaky hacek.
>
>Ahoj
>
>Tomas Folprecht
>
>