Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
spusteni *ppt souboru
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 14.6.2004 11:58:53
DD,
potreboval bych ze sve aplikace spustit Powerpointovou prezentaci
ale nejak se mi nedari
pritom stejnym postupem otevru html, bmp mp3 .... ale ppt ne pritom
kdyz na soubor ppt kliknu v commanderu tak se normalne otevre
jedine co me napada je velikost souboru ...
pls poradi nekdo kde delam chybu ?
tady je kus kodu :
var RunInfo:_ShellExecuteInfo;
cesta:string ;
i:integer;
begin
cesta:='ppt\lam.ppt';
RunInfo.cbSize:=SizeOf(RunInfo);
RunInfo.fMask:=SEE_MASK_DOENVSUBST or
SEE_MASK_FLAG_NO_UI or
SEE_MASK_NOCLOSEPROCESS;
RunInfo.Wnd:=0;
RunInfo.lpVerb:='open';
RunInfo.lpFile:=PChar( cesta );
RunInfo.lpDirectory:=nil;
RunInfo.nShow:=SW_SHOWNORMAL;
ShellExecuteEx((zv)RunInfo);
end
Splitters
[*] Rostislav Lekes <rlekes(zv)atlas(tec)cz> - 14.6.2004 11:58:54
Nevim proc to tak je, ale me to dela taky ... Da se to obejit tim, ze spodni
dva panely(2,3) a jejich spliter (2) umistis na pomocny panel. Obecne pomoci
splitru je vzdy lepsi delit 'prostor' pouze na dve casti pomoci panelu
'navic'. Rosta.
> Ahoj,
> mam na formulari celkem tri panely, oddelene splittery. Jeden je
(Panel1) je zarovnan alTop, druhy(Panel2) je zarovanan alRight, treti
(Panel3) je zarovnan alClient. Pod Panelem1 mam Spliter1 taky zarovanany
alTop a vedle panel2 Splitter2 zarovanny alRight. (Doufam ze si to dokazete
predstavit).
> Pokud nastavim vysku Spliterr1 na 0, pak nejde posunovat Splitterem2.
Nevite v cem je chyba? Zajimave je, ze pokud tento jev udelam zrcadlove a
panel a splitter z prava prehodim na levo, pak to funguje.
> Na 0 ho nastvuji v situaci, kdy nechci aby zbytecne zabiral misto na
formulari, kdyz ho nepouzivam.
> Petr Daricek
Odstraneni sloupce v Excelu
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 14.6.2004 12:06:55
Ahoj,
poradite, prosim, nekdo, jak odstranit
treba cely sloupec "B" v sesitu Excelu.
S Excelem pracuju pre OLEVariant a doplnuju
neco do sheetu a nakonec bych potreboval odstranit
nektere sloupce (NE jen vyprazdnit bunky!).
Env: D5Pro, MSO2003;
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
SQL dotaz
[*] Lasevic, Martin <mlasevic(zv)ratiopharm(tec)cz> - 14.6.2004 11:34:51
Zdravim,
resim nasledujici SQL dotaz a zatim si s tim po nekolika dnech nevim rady (
pritom nesmim pouzit ani view ani SP).
Mame klienty, kteri jsou navstevovani nasimi obchodniky a na kazde schuzce
se bavi o produktech ( nekdy stejnych, nekdy jinych).
Mam za ukol vytvorit sql dotaz, ktery mi vyjede seznam klientu a posledni
informaci o produktu, tzn. ze pokud se vyskytuje o produktu info vickrat,
tak pouzit info z posledni navstevy.
Napada vas, jak na to?
Diky za pomoc
Martin
======================================
ing. Martin Lasevic
Software Specialist
Tel.: +420-2-51 02 11 30, +420-602-298 904
Fax: +420-2-51 02 11 23
mailto:mlasevic(zv)ratiopharm(tec)cz
textovy soubor v azbuce
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 14.6.2004 11:10:47
DD,
potreboval bych nacist radek z textoveho souboru ktery je napsan v
azbuce (tudiz ulozen s kodovanim unicode) a zobrazit ho ve sve aplikaci
kdyz nastavim rusky charset tak rustina v samotne aplikaci funguje
ale z toho souboru ctu porad nesmysly
pls poradil by nekdo ?
diky PM
EAccessViolation
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 14.6.2004 09:52:42
Suvislost s antivirom je velmi malo pravdepodobna. Pravdepodobnejsie je,
ze pracujes s objektom, ktory neexistuje (este neexistuje, uz
neexistuje). Napr. ak spustas na tom mieste iny formular (napr.
Form1.ShowModal) a tento formular si este nevytvoril, tak tam bude
AccessViolation. Takto ti nemozem presne pomoct, ked nevidim konkretny
kod. Posli mi sukromne celu tu udalost. A este ti ju doporucujem
prehodit z OnActivate do OnShow.
> -----Original Message-----
> Pri aktivaci formulare - udalost OnActivate - vyhodi aplikace hlasku
> "Access Violation at address 006A4BAF. Read of address 006A4BAF".
Stane se
> tak na konci procedury TStatPlan.FormActivate(Sender: TObject). Jedna
se o
> modalni formular otvirany v aplikaci. Aplikace funguje nekolik mesicu
a
> tento problem se objevil poprve.Pristup do Call Stack
[*] Vaclav Sykora <vaclav.sykora(zv)accidis(tec)cz> - 14.6.2004 09:38:40
Dobry den,
mam proceduru, ve ktere potrebuji zjistit nazev funkce, ktera ji
zavolala, ovsem bez dalsich parametru. Predpokladam, ze Call Stack je
pouze v IDE Delphi, ale existuje neco podobneho ve WinAPI?
Dekuji za kazdou radu,
Vaclav Sykora
vaclav.sykora(zv)accidis(tec)cz
EAccessViolation
[*] Libor Barta <libor.barta(zv)seznam(tec)cz> - 14.6.2004 09:06:37
Pri aktivaci formulare - udalost OnActivate - vyhodi aplikace hlasku "Access Violation at address 006A4BAF. Read of address 006A4BAF". Stane se tak na konci procedury TStatPlan.FormActivate(Sender: TObject). Jedna se o modalni formular otvirany v aplikaci. Aplikace funguje nekolik mesicu a tento problem se objevil poprve.
Trasovani nepomohlo, problem se vyskytuje na konci udalosti OnActivate. Zkusil jsem vymazat posledni radky kodu pred timto problemem, ale nic se nezmenilo.
Jedinou zmenou od posledniho spusteni aplikace je aktualizace antiviroveho programu.
Poradi mi nekdo?
Diky, Libor
EAccessViolation
[*] Libor Barta <libor.barta(zv)seznam(tec)cz> - 14.6.2004 08:58:36
Pri aktivaci formulare - udalost OnActivate vyhodi aplikace hlasku "Access Violation at address 006A4BAF. Read of address 006A4BAF". Stane se tak na konci procedury TStatPlan.FormActivate(Sender: TObject). Jedna se o modalni formular otvirany v aplikaci. Aplikace funguje nekolik mesicu a tento problem se objevil poprve.
Trasovani nepomohlo, problem se vyskytuje na konci udalosti OnActivate. Zkusil jsem vymazat posledni radky kodu pred timto problemem, ale nic se nezmenilo.
Jedinou zmenou od posledniho spusteni aplikace je aktualizace antiviroveho programu.
Poradi mi nekdo?
Diky, Libor
Splitters
[*] Petr Daricek <petr.daricek(zv)seznam(tec)cz> - 14.6.2004 08:36:34
Ahoj,
mam na formulari celkem tri panely, oddelene splittery. Jeden je (Panel1) je zarovnan alTop, druhy(Panel2) je zarovanan alRight, treti (Panel3) je zarovnan alClient. Pod Panelem1 mam Spliter1 taky zarovanany alTop a vedle panel2 Splitter2 zarovanny alRight. (Doufam ze si to dokazete predstavit).
Pokud nastavim vysku Spliterr1 na 0, pak nejde posunovat Splitterem2. Nevite v cem je chyba? Zajimave je, ze pokud tento jev udelam zrcadlove a panel a splitter z prava prehodim na levo, pak to funguje.
Na 0 ho nastvuji v situaci, kdy nechci aby zbytecne zabiral misto na formulari, kdyz ho nepouzivam.
Petr Daricek
Porty ?
[*] Jiri Betunak <kindrik(zv)centrum(tec)cz> - 14.6.2004 07:50:27
Hello Konference,
potreboval bych nakopnout :-),prosim jak zjistim zda dany port {v
LAN-u} je
obsazen ci nikoliv ?
WinXP , Delphi7
--
Best regards,
Jiri mailto:kindrik(zv)centrum(tec)cz
zpracovani DWF
[*] Ing. Dubsky Jan <dubsky(zv)s-palava(tec)cz> - 14.6.2004 07:34:26
Ahoj,
Pro upresneni, ja z toho DWF potrebuju dostat
data, ne si ho jenom nechat nakreslit nekam, jak
to umoznuje treba API AutodeskExpressViewveru.
Dekuji
Peca
Neznam bohuzel odpoved na tvuj dotaz, ale mozna mi ty poradis s mym
problemem. Ja bych potreboval nejakou komponentu nebo radu, jak dostat z
vykresu (format DWG) nahled - nechat pouze vykresit obrazek - nahled
vykresu, ktery je ulozen na zacatku kazdeho dwg souboru v hlavicce. Pokud
neni komponenta, tak treba pres ten Viewer, ale trochu me natukni jak.
Dik
Honza
RS232
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 13.6.2004 22:17:49
> parametry spojeni, to vse je ok pouzivam prikaz "CreateFile"
> ale jakmile prijdu na instrukci "ReadFile", tak nic nenactu
> nebo se program zhrouti a vyhodi chybu, programuji v delphi 7
Jakou chybu ? Jak nastavis parametry ?
> a pouzivam Win XP, nemuzete mi nekdo poradit?
Zkus pouzit nejakou komponentu, a napsat obsluhu udalosti onReceive.
>
> ps. v programu advance serial port monitor jsem zjistil ze
> data lze cist, bez problemu ale pouze v pripade ze je zaply
> signal RTS, nebo pouzit handshake RTS/CTS
Nastaveni typu Rizeni toku je jednim z parametru ser. komunikace
ktery MUSIS znat a bez nej to budes programovat dost tezko.
Takze zapatrej v dokumentaci, pripadne v nastaveni toho zarizeni.
Slavek
PS: O ser. komunikaci jsem stvoril tento clanek, treba ti to k necemu
bude:
http://www.elektlabs(tec)cz:81/download.html
RS232
[*] jurasimsalek <jurasimsalek(zv)atlas(tec)cz> - 13.6.2004 20:41:36
delam rocnikovy projekt do skoly a potreboval bych poradit:
nacitam data ze serioveho portu, data jsou vysilana na port kazdou
sekundu, nastaveni portu musi byt 9600,8-N-1, vytvoril sem si zkusebni
program kde si dany port otevru a nastavim parametry spojeni, to vse
je ok pouzivam prikaz "CreateFile" ale jakmile prijdu na instrukci
"ReadFile", tak nic nenactu nebo se program zhrouti a vyhodi chybu,
programuji v delphi 7 a pouzivam Win XP, nemuzete mi nekdo poradit?
ps. v programu advance serial port monitor jsem zjistil ze data lze
cist, bez problemu ale pouze v pripade ze je zaply signal RTS, nebo
pouzit handshake RTS/CTS
--
Best regards,
jurasimsalek mailto:jurasimsalek(zv)atlas(tec)cz
Pumpovani dat z FB1.5 do na web do mysql
[*] konference(zv)sales(tec)cz - 13.6.2004 19:51:30
On Behalf Of David Klodner
> mam ten PHP skript, ale nevim v jakem formatu mu posilat
> data. Pouzivam HTTPPost ze Synapse. Jde to pole co se posila
> pomoci HTTPPost prebirat pomoci $_POST? David
Ahoj.
Tohle by Ti melo rici vse...
Ludek
======params.php============================
<?
echo "Values submitted via POST method:<br>";
if (isset($HTTP_POST_VARS)) {
while ( list( $key, $val ) = each( $HTTP_POST_VARS ) ) {
echo "$key => $val<br>";
}
}
echo "<br>";
echo "Values submitted via GET method:<br>";
if (isset($HTTP_GET_VARS)) {
while ( list( $key, $val ) = each( $HTTP_GET_VARS ) ) {
echo "$key => $val<br>";
}
}
?>
==========================================FB, IBX a chyba unassigned code
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 13.6.2004 19:25:26
Zdravim vsechny,
newvi nekdo, co znamena chyba "unassigned code" ?
IBX 5.04, FB 1.5, D5
Diky
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
Pumpovani dat z FB1.5 do na web do mysql
[*] David Klodner <d.klodner(zv)sofico(tec)cz> - 13.6.2004 16:01:03
>> Zdravim,
>>
>> mam lokalni FB databazi a chci z ni pravidelne pumpovat data na web
do
>> mysql.
>>
>> Snazil jsem se najit nejakou datapumpu, ale nic pouzitelneho jsem
>> nenasel. Dal jsem si stahl Zeos komponenty, ktere se tady nedavno
>> probiraly, ze jsou dobre pro mysql, ale nezjistil jsem, jak
>> se ke vzdalene mysql db pripojit a nacpat tam data.
>> Nebo napada vas nekoho nejake jine reseni?
>Ahoj,
>ja som skusal toto:
>na web si vytvor php script a v delphi vyuzi synapse tusim HTTPPost.
Potom v php prevezmes premenne tak ako by si ich dostal s html-
>formulara. To co vypises v php potom testujes v programe napr.
false/true (uspesnost zapisu do MySQL). Funguje perfektne... Lauko.
Ahoj,
mam ten PHP skript, ale nevim v jakem formatu mu posilat data. Pouzivam
HTTPPost ze Synapse.
Jde to pole co se posila pomoci HTTPPost prebirat pomoci $_POST?
David
SMTP host
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 13.6.2004 11:58:43
jak mohu zjistit SMTP host-a
synapse?
lze zjistit "user name" pro prihlaseni k tomuto hostiteli?
UPERCASE(), LOWERCASE()
[*] Martin Radvansky <delphiconf(zv)radvansky(tec)net> - 12.6.2004 20:31:37
Ahoj,
MK> ja pouzivam radsej vlastne funkcie, pretoze su o nejake
MK> mikrosekundy rychlejsie a pri prevadzani obrobskeho textu to moze urobit
MK> viditelne zrychlenie.
No pokud se chces bavit o zrychleni tak ty funkce udelej v asembleru.
Jinak AnsiUpperCase a AnsiLowerCase jsou funkce, ktere jsou vyuzivany
OS stejne jako porovnavaci funkce takze proc delat jiz udelane veci.
Mimochodem vzdycky lze neco zrychlit. :)
--
S pozdravem,
Martin Radvansky
OT: Ponuka prace
[*] Pavol Kakacka <kakacka(zv)proca(tec)cz> - 12.6.2004 15:39:15
Vazeni priatelia!
Znovu vas zdravim s ponukou prace na HPP v Prahe!
Hladame skuseneho programatora schopneho analyzovat problem a navrhovat
riesenie s vybornou znalostou Delphi a SQL.
Uvitame cloveka so skusenostami projektoveho manazera, alebo analytika.
Pozadujeme:
- vybornu znalost programovacieho nastroja i jazyka Delphi
- vybornu znalost SQL
- samostatnost
- schopnost mysliet komplexne
- casovu flexibilitu a vysoke pracovne nasadenie
- schopnost timovej spoluprace
Ponukame:
- odpovedajuce financne ohodnotenie
- bonusy zavisle na projektu
- seberealizaciu
- zamestnanecke vyhody
Zazemie:
- mlady, dynamicky kolektiv
- velka rastuca spolocnost
Perspektiva do buducna:
- moznost karierneho postupu
- moznost spoluprace na roznych samostatnych projektoch (Delphi, SQL;
Inhause IS, Navision, SAP)
Dotazy zasielajte na moj mail kakacka(zv)proca(tec)cz.
Pavol Kakacka
vedouci vyvoje IS
ProCA spol. s r.o.
V Luzich 818
Praha 4 Libus
tel: +420 234 646 443
kakacka(zv)proca(tec)cz
www.proca(tec)cz
www.brave(tec)cz
www.tesco(tec)cz
seriovy port
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 12.6.2004 11:32:26
> potreboval bych poradit jak nacitat data ze serioveho portu nemate
> nekdo hotovy programek, potrebuju jen nacitat data
Na praci se seriovym portem existuje opravdu mnozstvi ruznych hotovych
veci. vyber toho nejvodnejsiho hodne zalezi na tom, jak chces aby se ti
to chovalo.
Treba na asynchronni volani je asi dobre sahnout po AsyncPro od P.Vonese.
Naopak pro synchronni zpusob volani musim doporucit muj SynaSer.
(pozor, mluvim o synchronnim/asynchronnim programovani, ne o zpusobu
seriove komunikace!) ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
UPERCASE(), LOWERCASE()
[*] Martin Kasman <martinkasman(zv)martinkasman.sk> - 11.6.2004 20:59:23
To je pravda ale ja pouzivam radsej vlastne funkcie, pretoze su o nejake
mikrosekundy rychlejsie a pri prevadzani obrobskeho textu to moze urobit
viditelne zrychlenie. Najdes ich na
http://www.martinkasman.sk/delphi/podprogramy/retazce/case.htm
----- Original Message -----
> > Prosim o funkci ktere prevede velke pismena na male a naopak. A i s
> > hacky!!! Dik :))
> Kupodivu AnsiUpperCase a AnsiLowerCase.
seriovy port
[*] jurasimsalek <jurasimsalek(zv)atlas(tec)cz> - 11.6.2004 20:21:20
potreboval bych poradit jak nacitat data ze serioveho portu nemate
nekdo hotovy programek, potrebuju jen nacitat data
--
Best regards,
jurasimsalek mailto:jurasimsalek(zv)atlas(tec)cz
POROVNANI
[*] mr.guest_delphi(zv)centrum(tec)cz - 11.6.2004 20:19:19
A kdyz uz jsme u toho,
diky za AnsiUpperCase a AnsiLowerCase.
Jde to. Potrebuji vymyslet jednu funkcicku. Staci jen nakopnout (ale ne moc, at mne to neboli)
Takze : Mam TStringList a v nem XX stringu v UpperCase. Ty jsou i dvoj a viceslovni. Pak policka (neco jako kdysi byval kolotoc) Tam si vyklika policka (mezera mezi slovy je proste nezakliknute misto). Pote si dosadi treba dve pismenka. A ja potrebuji do Listboxu dosadit jen ty Stringy, ktere odpovidaji filtru. Mam vyresena jak zjistit a hlavne zobrazit viceslovni slova, ale nevim jak s tim filtrem :((
Priklad :
Vyklikame na polickach misto pro slovni spojeni "NEUMIM V DELPHI" ja dokazu jen zjistit kolik ma string pismen a mezer a dokazu tak zobrazit vsechny spojeni(z TStringListu) ktere maji 2 mezery a celkem 15 znaku. Tzn. ze kdyz je ve TStringListu i spojeni "KOLENO V KOLENI" zobrazi se mi taktez :((( Uz se chapeme: JEstli jo, diky vsem za rady a kopance ...
UPERCASE(), LOWERCASE()
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.6.2004 19:59:17
Puvodni zprava ze dne 11.6.2004:
> Prosim o funkci ktere prevede velke pismena na male a naopak. A i s
> hacky!!! Dik :))
Kupodivu AnsiUpperCase a AnsiLowerCase.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
UPERCASE(), LOWERCASE()
[*] mr.guest_delphi(zv)centrum(tec)cz - 11.6.2004 19:41:15
Zdravicko pratelstvo,
pouzivam funkci UPERCASE() pro prevod malych pismen na velke pismena. NEvim jestli existuje i LOWERCASE() ale jde mi spo to ze se neprevedou pismena s hacky :((( a to je zasadni chyba -- pomuzete mi s ni? DIky ...
Takze shrnuti :
Prosim o funkci ktere prevede velke pismena na male a naopak. A i s hacky!!! Dik :))
Ulozenie dokumentu z Wordu priamo do BLOBu
[*] konference(zv)sales(tec)cz - 11.6.2004 19:07:12
On Behalf Of martin
> doc, ale potrebujem aby to odislo do BLOBu po tom stlaceni
> wordovskeho "ulozit" Kedze s BLOBom viem pracovat ako so
Ahoj.
Taky nezapomen na to, ze uzivatel muze mit nastaveno automaticke
ukladani.
Ja to resil tak, ze jsem hlidal tmp adresar a soubor na zmeny a jakmile
word soubor "pustil" tak jsem ho vkladal do databaze a mazal.
Ludek
kbmMemTable a rychlost insertu
[*] Lauko Stefan <laukosw(zv)naex.sk> - 11.6.2004 17:23:03
Ahoj,
mal som tento problem ale dost davno 2-3 roky. Od istej verzie to funguje
dobre. (neviem co je vecsie mn. dat).
V kbmMemTable.pas je toto:
const COMPONENT_VERSION = '2.53g';
Delphi 6prof., W2K sp4.
Lauko
----- Original Message -----
From: "Lebeda David" <david.lebeda(zv)comarr(tec)cz>
Sent: Friday, June 11, 2004 10:22 AM
>
> mam urcite (vetsi) mnozstvi dat v necem jako typovy soubor nebo pole
> recordu a rad bych tato data nasypal do kbmMemTable. Problem je,
> ze provedeni Append/Post je pomerne pomale (a to i kdyz vkladam
> prazdne radky, tj. mezi Append a Post nijak neupravuji fieldy). Nevite
> nekdo nahodou, jestli nejde vkladani do kbm nejak zrychlit? Nacitani z
> nejakeho bufferu apod. zkratka asi bude potreba se vyhnout tem
> vysokourovnovym operacim (Append/Post) a sahnout po necem na
> nizsi urovni.
Ulozenie dokumentu z Wordu priamo do BLOBu
[*] martin <matrix(zv)inmail(tec)cz> - 11.6.2004 13:28:47
Dobry den,
citam/zapisujem wordovske dokumenty z/do databazy Firebird 1.5 cez
BLOBy.
Malo by to fungovat tak, ze uzivatel vidi zoznam dokumentov, po
kliknuti na tlacitko "otvorit" sa dokument otvori priamo vo Worde.
ALE NEULOZI SA NA DISK ZIADEN SUBOR DOC /maximalne nejaky tmp
Uzivatel edituje.
// --- kriticka sekcia
A teraz stlaci VO WORDE - ULOZIT ...a tu potrebujem aby data odisli
spat do BLOBu.
A NIE DO SUBORU DOC NA DISK.
// ---
Teraz to posielam spat do BLOBu ako subor doc, ale potrebujem aby
to odislo do BLOBu po tom stlaceni wordovskeho "ulozit"
Kedze s BLOBom viem pracovat ako so streamom, stacilo by uz len NEJAK
povedat tomu Wordu, aby subor ukladal nie do suboru ale do streamu.
A potom to zase nejak v aplikacii odchytit.
Ide to vobec?
Pripadne ako to riesite vy, aby po zmene dokumentu a po stlaceni
"ulozit vo Worde", dokument odisiel HNED do BLObu?
//takto subor z blobu ukladam na disk
var file_temp:string;
stream_blob:TStream;
stream_file:TFileStream;
begin
Randomize;
file_temp:=GetWindowsTempFolder+'\xy'+IntToStr(Random(99999))+'.tmp';
stream_blob := tabulka.createblobstream(tabulka.FieldByName('DUKUMENT'), bmRead);
stream_file := TFileStream.Create(file_temp, fmCreate);
stream_file.CopyFrom(stream_blob,stream_blob.Size);
stream_file.Free;
stream_blob.Free;
try
MSWord := GetActiveOleObject('Word.Application');
except
try
MSWord := CreateOleObject('Word.Application');
except
ShowMessage('Nepodarilo sa otvorit Microsoft Word.');
Exit;
end;
end;
MSWord.documents.open(file_temp);
MSWord.visible := True;
end;
Vdaka.
--
Martin
D7Pro,FB1.5,FibPlus
Toolbar IE
[*] Milan Lucka <mlucka(zv)cz.foxconn(tec)com> - 11.6.2004 13:14:45
Zdravim
> Nemate nekdo funkcni priklad jak v Delphi vytvorit vlastni
> toolbar v IE (jako jsou ruzne Google bary a podobne).
http://www.euromind.com/iedelphi/ie5tools/bandobjects.htm
Milan
KonfView a archiv konference
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 11.6.2004 12:52:43
Na ftp.delphi(tec)cz <ftp.delphi(tec)cz> (username Delphi, psw Archivar,
Other/KonfViewData) jsou textove soubory (od r. 2000), ktere si muzes
stahnout a naimportovat do databaze KonfView.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant <http://web.redbox(tec)cz/petr.brant> > pouzivate nekdo KonfView pro prohlizeni archivu konference delphi ?
> odkud importujete zpravy ? aby to bylo co nejmene pracne?
>
KonfView a archiv konference
[*] Matejcek Petr <konference(zv)crhov.komfi(tec)cz> - 11.6.2004 12:24:40
DD,
pouzivate nekdo KonfView pro prohlizeni archivu konference delphi ?
odkud importujete zpravy ? aby to bylo co nejmene pracne?
diky PM
uvolneni objektu
[*] Vit Krska <vit.krska(zv)del(tec)cz> - 11.6.2004 12:20:39
mam dotaz: kdyz dynamicky vytvorim ovladaci prvky (TSpeedButton), musim
je pred ukoncenim aplikace take sam uvolnit?
nebo se o to postara jiz objekt, ktery nastavim jako owner toho butonu?
vitek
Komponenty na panelu a OnClick
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 11.6.2004 12:18:38
projede komponenty a jsou li label tak nastavi onclick udalost panelu1 :)
for index:=0 to FrmMain.ComponentCount-1 do
begin
if Components[index].ClassName = 'TLabel' then
TLabel(Components[Index]).OnClick := Panel1Click;
end;
Radek Szurman
Komponenty na panelu a OnClick
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 11.6.2004 12:16:37
jimys(zv)centrum(tec)cz wrote:
> Ale jo, tohle chapu, to je mi jasny. Jen dam priklad. Budu mit Panel
> a na nem 10 Labelu. Budu chtit, abych kdykoliv kliknu nekde v Panelu,
> aby se treba zmenil nadpis formulare. Kdyz obslouzim OnClick Panelu,
> funguje to, pokud se mysi netrefim na nejaky label. Musim tudiz
> obsluhovat takhle i vsechny OnClick tech Labelu? Nestaci obslouzit
> OnClick Panelu, kterej je jejich parent?
>
Jako, ze mas jednu funkci povesenou na OnClick panelu a chces aby fungovala
i pro Label?
A nestaci dat OnClick vsech Labelu na OnClick Panelu?
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
ICQ#: 314711544
web: http://www.cincura.net; http://cincura.net/photo
Komponenty na panelu a OnClick
[*] mato <mato.tino(zv)inmail.sk> - 11.6.2004 12:02:35
on asi myslel za chodu programu v kode.
> >
> > chci se zeptat, mam na Panelu nejake komponenty - treba Labely. Je
> > nutne definovat stejnou udalost (treba OnClick) pro kazdej Label?
> > Nejde nejak definovat jen OnClick toho panelu, kdyz jsou vsechny
> > Labely jeho potomky? Kdyz nadefinuju OnClick pro panel, udalost se v
> > poradku obslouzi jen tehdy, pokud kliknu na Panel - nikoliv pokud
> > kliknu na Label...
>
> Jasne, ze jde. Pomoci Shift+Click vyber ty co chces a pak Events vyber
(nebo
> vytvor) odpovidajici akci.
>
Komponenty na panelu a OnClick
[*] jimys(zv)centrum(tec)cz - 11.6.2004 11:50:34
Ale jo, tohle chapu, to je mi jasny. Jen dam priklad. Budu mit Panel a na nem 10 Labelu. Budu chtit, abych kdykoliv kliknu nekde v Panelu, aby se treba zmenil nadpis formulare. Kdyz obslouzim OnClick Panelu, funguje to, pokud se mysi netrefim na nejaky label. Musim tudiz obsluhovat takhle i vsechny OnClick tech Labelu? Nestaci obslouzit OnClick Panelu, kterej je jejich parent?
Jirka
>Jasne, ze jde. Pomoci Shift+Click vyber ty co chces a pak Events vyber
>(nebovytvor) odpovidajici akci.
>--
>Jiri Cincura
>e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
>ICQ#: 314711544
>Web: http://www.cincura.net; http://cincura.net/photo
> Ahoj,
>
> chci se zeptat, mam na Panelu nejake komponenty - treba Labely.
Je
> nutne definovat stejnou udalost (treba OnClick) pro kazdej
Label?
> Nejde nejak definovat jen OnClick toho panelu, kdyz jsou vsechny
> Labely jeho potomky? Kdyz nadefinuju OnClick pro panel, udalost
se v
> poradku obslouzi jen tehdy, pokud kliknu na Panel - nikoliv
pokud
> kliknu na Label... Ako zistit externu IP ak som za NAT
[*] Nagy Dusan <dnagy(zv)inomacomp.sk> - 11.6.2004 11:42:33
Dobry den,
10. juna 2004, 19:13:04, napsal jste:
>>> V phpcku je to $_SERVER['REMOTE_ADDR'];
LG>> Pokud jsi ale za tim NATem skryty ty a chces zjistit, s jakou adresou
LG>> jsi videt na internetu, tak to od sebe nezjistis! Leda ze by tvuj NAT
LG>> poskytoval nejakou sofistikovanou spravu treba pres SNMP protokol,
LG>> nebo tak neco. V opacnem pripade to zjistit jen tak, ze se spojis s
LG>> nejakou sluzbou na internetu, ktera ti pocvi z jake adresu tvuj
LG>> pozadavek prisel.
m> Presne o to mi ide ....
m> Pracujem na aplikacii, kde bude pouzity vzdialeny pristup.
m> Samozrejme klient je schovany za firewalom (cize je tam aj NAT).
m> Druha strana takisto.
m> Samozrejme obidvaja maju DSL a dynamicku IP.
m> Nakolko potrebujem spojenie 1:1 musi ta aplikacia zistit IPcku ktora
m> je vidiet z Internetu...
m> Pomohol som si cez http://ip.discoveryvip.com/
m> .... ja len som chcel vediet ci "ta carovna sluzba" nie je nahodou
m> sucastou Indy alebo synapse - resp. nejaka finta
m> ako to zistit bez pomoci tretej strany.
m> Uvaha // nejaky ala ping ktory "cestou spat" vrati aj moju Internetovu
m> IP.
m> Martin
ak so dobre pochopil tak chces z internetu pristupovat do siete ktorej
vstupny bod je za nat. Tebe staci adresa sevara viditelneho z
internetu. Kedze nat nevie impilicitne inicializovat spojenie ktore
zacina z internetu. On inicializuje iba spojenia z lokalnej siete von
a samozrejme potom vie i predavat odpovede tomu klientovi ktory
spojenie inicializoval.(vytvara sa tabulka spojeni)
Opacne spojenie ide spravit ale az po prislusnej konfiguracii nat.t.j.
Nastavis port na nat serveri a povies mu ze vsetky pozidavky bude
smerovat na nejaky stroj v local sieti.
takze komunikacie pre teba je transparentna tvoje IP a Ip vonkajsie IP
nat servera.
--
S pozdravem,
Nagy
dnagy(zv)inomacomp.sk
Komponenty na panelu a OnClick
[*] jimys(zv)centrum(tec)cz - 11.6.2004 11:06:51
Ahoj,
chci se zeptat, mam na Panelu nejake komponenty - treba Labely. Je nutne definovat stejnou udalost (treba OnClick) pro kazdej Label? Nejde nejak definovat jen OnClick toho panelu, kdyz jsou vsechny Labely jeho potomky? Kdyz nadefinuju OnClick pro panel, udalost se v poradku obslouzi jen tehdy, pokud kliknu na Panel - nikoliv pokud kliknu na Label...
Diky
Jirka
Komponenty na panelu a OnClick
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 11.6.2004 11:14:52
jimys(zv)centrum(tec)cz wrote:
> Ahoj,
>
> chci se zeptat, mam na Panelu nejake komponenty - treba Labely. Je
> nutne definovat stejnou udalost (treba OnClick) pro kazdej Label?
> Nejde nejak definovat jen OnClick toho panelu, kdyz jsou vsechny
> Labely jeho potomky? Kdyz nadefinuju OnClick pro panel, udalost se v
> poradku obslouzi jen tehdy, pokud kliknu na Panel - nikoliv pokud
> kliknu na Label...
Jasne, ze jde. Pomoci Shift+Click vyber ty co chces a pak Events vyber (nebo
vytvor) odpovidajici akci.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
ICQ#: 314711544
web: http://www.cincura.net; http://cincura.net/photo
Kresleni do obrazku GIF?
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 11.6.2004 10:44:34
Ahoj vespolek, mam obrazek GIF, potrebuji jej natahnout do sveho programu,
neco do nej napsat a pak zase jako GIF (nebo v krajnim pripade JPG) ulozit.
Nemate nekdo nahodou nejake reseni, komponentu, odkaz...? Delphi5Pro, Win XP
Pro.
Zdravim vsechny
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
kbmMemTable a rychlost insertu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 11.6.2004 10:22:32
Ahoj,
mam urcite (vetsi) mnozstvi dat v necem jako typovy soubor nebo pole
recordu a rad bych tato data nasypal do kbmMemTable. Problem je,
ze provedeni Append/Post je pomerne pomale (a to i kdyz vkladam
prazdne radky, tj. mezi Append a Post nijak neupravuji fieldy). Nevite
nekdo nahodou, jestli nejde vkladani do kbm nejak zrychlit? Nacitani z
nejakeho bufferu apod. zkratka asi bude potreba se vyhnout tem
vysokourovnovym operacim (Append/Post) a sahnout po necem na
nizsi urovni. Ja zatim pouzitelny postup neobjevil, tak zkousim, jestli
nekdo nemate lepsi zkusenosti.
Diky
David Lebeda
Toolbar IE
[*] Jan Netrval <jnetrval(zv)pilscom(tec)cz> - 11.6.2004 09:50:29
Nemate nekdo funkcni priklad jak v Delphi vytvorit vlastni toolbar v IE (jako jsou ruzne Google bary a podobne).
Predem diky
Ako zistit externu IP ak som za NAT
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 11.6.2004 09:46:28
Nevim jestli to pomuze a sem prsne pochopil o co ti jde, ale asi takto:
Situace pevne IP -> pevne IP - tady je to jasne, no problem
Situace pevne IP -> IP za NATem - technicky jde zjistit IP stanice za natem.
Tedy dostanes neco jako 212:25:25:57:168.10.10.57 kde
prvni je IP Routru s NATem a druhe je lokalni IP za natem.
V paketu protokolu IP se totiz uklada informace o cele ceste paketu pres
NATove routry. Tak ze NAT vezme paket od lokalni stanice, podepise
jej jako svuj (tedy pod jeho IP), ale pribali informaci od koho to dostal.
Pak kdyz se vrati odpoved sam paket nese informaci komu patri v lokalni
siti.
Tedy spojeni je mozne, ale musim vedet lokalni IP.
Situace IP za NATem -> IP za NATem - tady mevim, ale domnivam se
ze to realne naprimo nepude, Nebot bych se odkazoval na lokalni IP ve
vzdaleni siti, coz bude kolidovat s lokalnim rozsahem v me siti.
Ale mozna to tak neni, budu rad kdyz nekdo zasvedceny pripoji nazor.
Vaclav Halik
> > Bez serveru "treti" strany se neobejdes.
> uff, dik za tip
> este som nasiel:
> http://www.dyndns.org/
> http://www.no-ip.com/
>
> idem skusit napisat nejaku funkciu ktora mi vrati IP
> len stale mrznem na bode, ako by si mali tie dve stanice tu IPcku
> "vymenit"...bez pomoci "tretej" strany
> Mate niekto este nejaky napad?MySQL nastaveni
[*] Vaclav Halik <spravasd(zv)suz.cvut(tec)cz> - 11.6.2004 09:10:25
Mno, to sem mu chtel napsat take. Ale zrejme ma k tomu duvod,
tak sem mu to neradil :-).
Jinak samozrejme souhlasim. Nevim proc to honit pres ODBC.
Pokud delas novou aplikaci tak radeji na ODBC rychle zapomen.
Nadels si vic problemu nez uzitku.
PZN: Puvodni dotaz je napsat tak obecne ze budu prekvapen
pokud ti nekdo neco rozumneho poradi.
Vaclav Halik
> preco to komplikujes cez ODBC?! pouzi zeoslib komponentu!
>
> > Nainstaloval jsem ODBC driver a ted nevim, jak to nastavit
> > ODBC driver jako takovy se konektuje na db dobre.
>
>
dblookup a enter
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 11.6.2004 09:08:24
mato wrote:
> aha jasne a ako urobim obsluhu enter ? Myslym ze niekde som videl ze
> sa testoval vstup a ked sa zistilo enter .... nemate nejaky maly
> priklad ?
if Key=VK_RETURN then ShowMessage('Enter').
Staci dat do OnKey...
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
ICQ#: 314711544
web: http://www.cincura.net; http://cincura.net/photo
enable panelov
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 11.6.2004 09:06:23
mato wrote:
> zdravim,
>
> mam na forme viacero panelov. Da sa jednym prikazom nastavit vsetkym
> panelom na forme vlastnost enable na false ?
Pokud je nemas treba v ObjectListu, tak projdi komponenty (Components[x]) a
u kazde tastni, jestli je to TPanel, pak pretypuj
(Components[Counter] as TPanel).Enabled := True;
a je to.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
ICQ#: 314711544
web: http://www.cincura.net; http://cincura.net/photo
dblookup a enter
[*] mato <mato.tino(zv)inmail.sk> - 11.6.2004 08:38:21
aha jasne a ako urobim obsluhu enter ? Myslym ze niekde som videl ze sa
testoval vstup a ked sa zistilo enter ....
nemate nejaky maly priklad ?
----- Original Message -----
From: "Martin Cajbik" <cajbik(zv)sct.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, June 11, 2004 8:16 AM
Subject: Re: dblookup a enter
> Zdravim,
> udalost OnEnter neznamena stlacenie ENTER ale ziskanie focusu tym
> dblookupom. Na obsluhu vstupu z klavesnice su udalosti OnKeyPress a
> OnKeyDown.
>
> Martin Cajbik
>
> > zdravim,
> >
> > mam form na nom dblookup a tlacitko. Chcel som urobit tak aby ak
vyberiem
> > zaznam v dblookup a stlacim enter aby mi prekocil focus na tlacitko. Tak
> som
> > do udalosti OnEnter dblookup zapisal :
> > tlacitko.setfocus
> > ale potom je dblookup nefunkcny. V com moze byt problem ?
>
>
>
>
> ----------
> * www.inMail.sk - Vasa emailova adresa na cely zivot ZDARMA
> * www.SlovakNET.sk - profesionalny webhosting, domena .SK ZADARMO
> * Zoner Media Explorer 6 - stiahnite si pomocnika pre digitalnu fotografiu
(http://www.zoner.sk/zme6)
>
>
>
> __________ Informacia od NOD32 1.784 (20040610) __________
>
> Tato sprava bola preverena antivirusovym systemom NOD32.
> http://www.eset.sk
>
>
Master,Detail - Vyber zaznamu
[*] miro_mr <mms(zv)szm.sk> - 11.6.2004 08:36:20
Ahoj
M.ID IN (1,2,3,...)
Miro
----- Original Message -----
From: "Dalibor" <dalibor(zv)torola(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, June 10, 2004 10:53 PM
Subject: Master,Detail - Vyber zaznamu
> Ahoj, mam master tabulku, ve ktere muze byt treba 200 zaznamu a ja
potrebuji vybrat z detailove tabulky hodnoty k treba 50 master zaznamum,
> ktere si uzivatel vybere
> Jde mi o to jake reseni zvolit.
>
> Metoda, ze napisu select * from master M, detail D where
(M.ID=D.MASTER_ID) and (M.ID=1 or M.ID=2 or M.ID=... or M.id=50) se mi
zrovna nezda nejlepsi..
>
> (ID samozrejme nemusi jit po sobe)
>
> Jde to udelat lepe? Je nejake omezeni na velikost SQL dotazu u Firebirdu
1.5?
>
> Dekuji
>
> Delphi 7Pro, Win2000, Firebird 1.5
>
>enable panelov
[*] mato <mato.tino(zv)inmail.sk> - 11.6.2004 08:08:15
zdravim,
mam na forme viacero panelov. Da sa jednym prikazom nastavit vsetkym panelom
na forme vlastnost enable na false ?
dblookup a enter
[*] mato <mato.tino(zv)inmail.sk> - 11.6.2004 08:08:16
zdravim,
mam form na nom dblookup a tlacitko. Chcel som urobit tak aby ak vyberiem
zaznam v dblookup a stlacim enter aby mi prekocil focus na tlacitko. Tak som
do udalosti OnEnter dblookup zapisal :
tlacitko.setfocus
ale potom je dblookup nefunkcny. V com moze byt problem ?
dblookup a enter
[*] Martin Cajbik <cajbik(zv)sct.sk> - 11.6.2004 08:16:18
Zdravim,
udalost OnEnter neznamena stlacenie ENTER ale ziskanie focusu tym
dblookupom. Na obsluhu vstupu z klavesnice su udalosti OnKeyPress a
OnKeyDown.
Martin Cajbik
> zdravim,
>
> mam form na nom dblookup a tlacitko. Chcel som urobit tak aby ak vyberiem
> zaznam v dblookup a stlacim enter aby mi prekocil focus na tlacitko. Tak
som
> do udalosti OnEnter dblookup zapisal :
> tlacitko.setfocus
> ale potom je dblookup nefunkcny. V com moze byt problem ?
Ako zistit externu IP ak som za NAT
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 11.6.2004 07:28:07
> Jak na to?
posles si mail, a v hlavicke mas IPcku natka ... ;)zpracovani DWF
[*] Miroslav Novosad <mnprokonf(zv)quick(tec)cz> - 11.6.2004 01:33:42
From: "petr palicka" <palicka.petr(zv)seznam(tec)cz>
> Staci mi nejaky sikovny nastroj, trida, DLL...
> Proste cokoliv cim se do toho jednoduse dostanu,
IMHO to odporuje podstate/zameru formatu DWF.
Ale presto. Koukal jsi treba na cadalog? Nejake nastroje pro (jakz takz)
import do Acadu jsou, treba by Te to mohlo nekam nasmerovat.
Miroslav Novosad
mnprokonf(zv)guick(tec)cz
Master,Detail - Vyber zaznamu
[*] Petr Jarkovsky <pejasoft(zv)volny(tec)cz> - 10.6.2004 23:19:29
Napada me vytvorit si tabulku, kam bych ukladal ID na vybrane master zaznamy.
Pak by select mohl vypadat treba takhle:
select * from vybrane_master M, detail D where (M.ID = D.MASTER_ID)
S pozdravem
Petr Jarkovsky
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf
Of Dalibor
Sent: Thursday, June 10, 2004 10:53 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Master,Detail - Vyber zaznamu
Ahoj, mam master tabulku, ve ktere muze byt treba 200 zaznamu a ja potrebuji
vybrat z detailove tabulky hodnoty k treba 50 master zaznamum, ktere si uzivatel
vybere Jde mi o to jake reseni zvolit.
Metoda, ze napisu select * from master M, detail D where (M.ID=D.MASTER_ID) and
(M.ID=1 or M.ID=2 or M.ID=... or M.id=50) se mi zrovna nezda nejlepsi..
(ID samozrejme nemusi jit po sobe)
Jde to udelat lepe? Je nejake omezeni na velikost SQL dotazu u Firebirdu 1.5?
Dekuji
Delphi 7Pro, Win2000, Firebird 1.5
Master,Detail - Vyber zaznamu
[*] Dalibor <dalibor(zv)torola(tec)cz> - 10.6.2004 22:53:26
Ahoj, mam master tabulku, ve ktere muze byt treba 200 zaznamu a ja potrebuji vybrat z detailove tabulky hodnoty k treba 50 master zaznamum,
ktere si uzivatel vybere
Jde mi o to jake reseni zvolit.
Metoda, ze napisu select * from master M, detail D where (M.ID=D.MASTER_ID) and (M.ID=1 or M.ID=2 or M.ID=... or M.id=50) se mi zrovna nezda nejlepsi..
(ID samozrejme nemusi jit po sobe)
Jde to udelat lepe? Je nejake omezeni na velikost SQL dotazu u Firebirdu 1.5?
Dekuji
Delphi 7Pro, Win2000, Firebird 1.5
MySQL nastaveni
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 10.6.2004 21:15:19
preco to komplikujes cez ODBC?! pouzi zeoslib komponentu!
> Nainstaloval jsem ODBC driver a ted nevim, jak to nastavit
> ODBC driver jako takovy se konektuje na db dobre.
Ako zistit externu IP ak som za NAT
[*] martin <matrix(zv)inmail(tec)cz> - 10.6.2004 21:07:18
> Bez serveru "treti" strany se neobejdes.
uff, dik za tip
este som nasiel:
http://www.dyndns.org/
http://www.no-ip.com/
idem skusit napisat nejaku funkciu ktora mi vrati IP
len stale mrznem na bode, ako by si mali tie dve stanice tu IPcku
"vymenit"...bez pomoci "tretej" strany
Mate niekto este nejaky napad?
M.
y
Ako zistit externu IP ak som za NAT
[*] martin <matrix(zv)inmail(tec)cz> - 10.6.2004 21:01:17
Povodna sprava zo dna : 10. 6. 2004, od <gebylist(zv)mlp(tec)cz> :
>> Presne o to mi ide ....
>> Pracujem na aplikacii, kde bude pouzity vzdialeny pristup.
>> Samozrejme klient je schovany za firewalom (cize je tam aj NAT).
>> Druha strana takisto.
>> Samozrejme obidvaja maju DSL a dynamicku IP.
>> Nakolko potrebujem spojenie 1:1 musi ta aplikacia zistit IPcku ktora
>> je vidiet z Internetu... Pomohol som si cez
>> http://ip.discoveryvip.com/
> Nejak stale nechapu... kdyz jsou oba za NATem, tak je 1:1 spojit
> nelze. konkretni prichozi spojeni jdou v konfiguraci NATu explicitne
> nasmerovat na nejaky konkretni pocitac. Ale to je tak vsechno... ze
> by ses pres NAT z venku dokopal na nejaky libovolny pocitac, to
> proste nejde, i kdyz budes vedet externi IP adresu NATu.
Samozrejme s "port forwarding" ....ok, dik
Chcel som vediet, ci na to neexistuje priamu funkcia v synapse resp.indy.
M.
Ako zistit externu IP ak som za NAT
[*] konference(zv)sales(tec)cz - 10.6.2004 20:03:13
On Behalf Of martin
> .... ja len som chcel vediet ci "ta carovna sluzba" nie je
> nahodou sucastou Indy alebo synapse - resp. nejaka finta ako
> to zistit bez pomoci tretej strany. Uvaha // nejaky ala ping
> ktory "cestou spat" vrati aj moju Internetovu IP.
Ahoj.
Bez serveru "treti" strany se neobejdes.
Zaloz si na nejakem free serveru podporujicim PHP (treba www.kgb(tec)cz)
ucet a dej si tam PHP script :
=======ipreturn.php=================
<?
Header("Content-Type: text/plain");
echo $REMOTE_ADDR;
echo "\n";
?>
================================
Nebo pouzij tenhle : http://www.sales(tec)cz/tools/ipreturn.php
Vraci to textovy soubor s IP adresou. Nactes to bez problemu pomoci
synapse.
Ovsem da Ti to samozrejme adresu te strany ze ktere volas, takze nejak
to budes muset dopravit te druhe strane :)
Takze asi nezbyde nez si na tom "zprostredkovateli" zalozit databazi a v
nejakych intervalech tam updatovat vety typu
"STANICE A","193.84.56.87"
"STANICE B","81.35.56.100"
A podle toho se konektit.
Muzes jit primo do mySQL (ale to na freewebech myslim maji zamaznute)
nebo rozsirit ten script o to, ze ti vrati vice radku nebo primo ini
podle parametru a zaroven aktualizuje tvoji adresu v databazi. Neco jako
:
=======connect_point.php=================
<?
Header("Content-Type: text/plain");
if (!isset($myName))||(!isset($getIP))
{ echo "Error\n" /* bez parametru*/}
Else
{
/* zapsat/updatovat $myName,$REMOTE_ADDR */
/* precist adresu protejsku select $remoteIP=IP from table where
name=$getIP*/
/* a vratit */
echo "[connect_point]\n"
echo "myIP=$REMOTE_ADDR\n";
echo "remoteIP=$remoteIP\n";
}
?>
================================
Script bys pak volal
http://www.nekde(tec)cz/connect_point.php?myName=MojeStanice&getIP=VzdalenaS
tanice
Ludek
Ako zistit externu IP ak som za NAT
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 10.6.2004 19:31:06
> Presne o to mi ide ....
> Pracujem na aplikacii, kde bude pouzity vzdialeny pristup.
> Samozrejme klient je schovany za firewalom (cize je tam aj NAT).
> Druha strana takisto.
> Samozrejme obidvaja maju DSL a dynamicku IP.
> Nakolko potrebujem spojenie 1:1 musi ta aplikacia zistit IPcku ktora
> je vidiet z Internetu... Pomohol som si cez
> http://ip.discoveryvip.com/
Nejak stale nechapu... kdyz jsou oba za NATem, tak je 1:1 spojit
nelze. konkretni prichozi spojeni jdou v konfiguraci NATu explicitne
nasmerovat na nejaky konkretni pocitac. Ale to je tak vsechno... ze
by ses pres NAT z venku dokopal na nejaky libovolny pocitac, to
proste nejde, i kdyz budes vedet externi IP adresu NATu.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Ako zistit externu IP ak som za NAT
[*] martin <matrix(zv)inmail(tec)cz> - 10.6.2004 19:13:04
>> V phpcku je to $_SERVER['REMOTE_ADDR'];
LG> Pokud jsi ale za tim NATem skryty ty a chces zjistit, s jakou adresou
LG> jsi videt na internetu, tak to od sebe nezjistis! Leda ze by tvuj NAT
LG> poskytoval nejakou sofistikovanou spravu treba pres SNMP protokol,
LG> nebo tak neco. V opacnem pripade to zjistit jen tak, ze se spojis s
LG> nejakou sluzbou na internetu, ktera ti pocvi z jake adresu tvuj
LG> pozadavek prisel.
Presne o to mi ide ....
Pracujem na aplikacii, kde bude pouzity vzdialeny pristup.
Samozrejme klient je schovany za firewalom (cize je tam aj NAT).
Druha strana takisto.
Samozrejme obidvaja maju DSL a dynamicku IP.
Nakolko potrebujem spojenie 1:1 musi ta aplikacia zistit IPcku ktora
je vidiet z Internetu...
Pomohol som si cez http://ip.discoveryvip.com/
.... ja len som chcel vediet ci "ta carovna sluzba" nie je nahodou
sucastou Indy alebo synapse - resp. nejaka finta
ako to zistit bez pomoci tretej strany.
Uvaha // nejaky ala ping ktory "cestou spat" vrati aj moju Internetovu
IP.
Martin
SFTP a Delphi
[*] konference(zv)sales(tec)cz - 10.6.2004 18:33:01
On Behalf Of Lukas Gebauer
> Kazdopadne, Synapse podporuje pouze SSL. Popravde, o free knihovne na
> SSH pro Delphi vubec nevim!
>
>
Ahoj.
A o nejake placene vis ? Ja bych na to taky rad presel, protoze mam
nejake automaticke prenosy a synchronizace dat z vnitrnich siti na
webove servery prave pres FTP (Synapse) a admin www serveru mne tlaci
prave do SFTP (SSH).
Jednine s cim jsem experimentoval je radkove volani PUTTY, ale to se mi
zatim nepodarilo uspokojive rozchodit.
A protoze bezpecnost klasickeho FTP je fakticky miziva klidne bych do
toho nejakou tu petku vrazil.
Ludek Prepnuti formulare z Modal do non-Modal stavu
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 10.6.2004 18:20:55
Pavol Stugel, NETGraphics wrote:
>> potreboval bych prepnout formular z Modal do non-Modal stavu, bez
>> jeho zavreni.
> nooo ked si pozres fciu TCustomForm.ShowModal: Integer; z forms.pas
> tak sa dozvies asi toto:
>
> ked vytvaras modal tak delphi prejde vsetky okna jednoducho ich vypne
> pomocou funkcie DisableTaskWindows a ked zavres Modal okno tak zase
> vsetky enablne ... takze Modal okno das do stavu non-modal asi tak,
> ze vsetky disablnute okna zapnes pomocou fcie. EnableTaskWindows ...
Jj, staci zavolat EnableWindow a je to. U EnableWindow je jen handle okna a
je to hotove.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
ICQ#: 314711544
web: http://www.cincura.net; http://cincura.net/photo
ADMIN: TJclEmail a Outlook z MS Office 2000
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.6.2004 17:08:49
Puvodni zprava ze dne 10.6.2004:
> prosim o informaci (radeji na muj mail jarek(zv)iuher(tec)cz - abychom
> nezatezovali konferenci) zda nekomu funguje %subj% bud na vasich PC
> nebo vasich zakazniku.
Co to je zase tohle? Jestli si chces soukromnicit, tak si i prvni
vyzvu posilej primo a ne pres konferenci. Jestlize sem tento problem
patri, jako ze patri, tak se bude diskutovat tady. Konferenci
nezatezuje diskuse o tematech, ktera sem patri.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
TJclEmail a Outlook z MS Office 2000
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 10.6.2004 17:00:48
Ahoj,
prosim o informaci (radeji na muj mail jarek(zv)iuher(tec)cz - abychom
nezatezovali konferenci)
zda nekomu funguje %subj% bud na vasich PC nebo vasich zakazniku.
Do ExceptionDialog (z JCL) jsem pridal Button na zasilani Error logu
na muj mail. A vim, ze zakaznik, pro ktereho aplikaci chystame
pouziva
X-Mailer: Microsoft Outlook IMO, Build 9.0.2416 (9.0.2911.0)
Pokud se mi nekdo ozve, poslal bych do konference az souhrn vasim
mailu, pro pripadne dalsi zajemce.
Z archivu konference to neni az tak jasne.
Dekuji a preji hezky den,
Jarek Uher
MySQL nastaveni
[*] blue22_n <blue22(zv)quick(tec)cz> - 10.6.2004 16:44:46
Mam W2000, D6, MySQL
Nainstaloval jsem ODBC driver a ted nevim, jak to nastavit
ODBC driver jako takovy se konektuje na db dobre.
Spustim database explorer, vyberu db typu MySQLODBC a nevim jak dal.
Diky
Honza
Ako zistit externu IP ak som za NAT
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 10.6.2004 16:24:46
> Jak na to?
> V phpcku je to $_SERVER['REMOTE_ADDR'];
> V tom pripade asi skriptu "pomaha" www server.
nerozumim... v PHPcku tohle ma adresu toho, kdo se dozaduje neceho na
tvem WWW servru. Jak to souvisi s tvy NATem?
Pokud k tobe leze nekdo pres NAT, pak nevidis jeho interni adresu,
ale prave adresu toho NATu.(jako na tom serveru).
Pokud jsi ale za tim NATem skryty ty a chces zjistit, s jakou adresou
jsi videt na internetu, tak to od sebe nezjistis! Leda ze by tvuj NAT
poskytoval nejakou sofistikovanou spravu treba pres SNMP protokol,
nebo tak neco. V opacnem pripade to zjistit jen tak, ze se spojis s
nejakou sluzbou na internetu, ktera ti pocvi z jake adresu tvuj
pozadavek prisel.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.SFTP a Delphi
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 10.6.2004 16:05:48
> Dostal som za ulohu prerobit jednu aplikaciu aby vyuzivala SFTP
> Neviem ci sa mylim alebo nie ale podla mna to je klasicke FTP s
> podporou SSL Pozeral som L.Gebauerove unity a tam podpora FTP so SSL
> je implementovana Je to teda schodna cesta alebo sa mylim v pojme
> SFTP? Ak sa mylim existuju nejake objekty na pracu SFTP?
S pojmem SFTP panuje ponekud bordel... jedni rikaji, ze SFTP znamena
FTP pres SSH protokol, jini zase rikaji ze je to FTP pres SSL
protokol. SSH a SSL jsou zcela odlisne protokoly! Takze tezko rict...
Faktem ale je, ze pojem SFTP se na webu vyskytuje mnohem casteji
prave v souvislosti s SSH protokolem.
Nicmene tezko rict, kterou z techto variant mel tvuj zadavatel
skutecne na mysli. :-(
Kazdopadne, Synapse podporuje pouze SSL. Popravde, o free knihovne na
SSH pro Delphi vubec nevim!
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Odeslani emailu v HTML
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 10.6.2004 15:55:47
> jak mam odeslat email v HTML pomoci Synapse tak, aby se hned v
> Outlooku a podobnych postovnich programech zobrazil v graficke podobe?
odeslat mail? No, uplne stejne jako kazdy jiny mail. ;-) Staci
sivytvorit zakodovany text mailu do stringlistu a pouzit funkci
SendToRaw ze smtpsend.pas.
Pokud jde o vytvoreni textu HTML mailu, pak lze pouzit objekt
TMimeMess, kde jsou hotove funkce pro pridavani textovych i HTML MIME
partu.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.FB - Select count(*)
[*] konference(zv)sales(tec)cz - 10.6.2004 15:03:42
> -----Original Message-----
On Behalf Of Pavel Cisar
> 1) Transakce v izolacni urovni SNAPSHOT neuvidi zmeny provedene a
> potvrzene az po jejich zahajeni. A to ani pomoci SELECT COUNT, ani
> pomoci triggeru.
>
> 2) Vytvaret citace v radcich aktualizovanych z triggeru na
> insert/update/delete je ptakovina, protoze vytvareji uzke hrdlo pro
> propustnost. Uzivatel B nebude schopen vlozit, zmenit nebo smazat
> radek, pokud uzivatel A proved podobnou zmenu na jinem radku, ktera
> rovnez vyvola aktualizaci citace, dokud uzivatel A nepotvrdi
> transakci. Pokud ma NOWAIT transakci, tak to rovnou vyhuci na chybu,
> pokud ma WAIT transakci tak mu to sice nejspis projde (zalezi na
> izolacni urovni transakce), ale bude cekat.
Ahoj.
Aha. No ja to mam pouzite na tabulce, kam se zaznamy vice pridavaji nez
mazou a spise ve velkych davkach pricemz soubeh prace dvou uzivatelu nad
touto tabulkou co se tyce updatu je opravdu velkou vyjjimkou, nicmene
tabulka ma hodne zaznamu a tohle se jevilo jako dobre reseni.
Ludek
DBF-prevod
[*] Ing. Pavel Spisar <pajastudio(zv)wo(tec)cz> - 10.6.2004 13:41:31
dobry den,
mohl by mi nekdo pomoci s prevodem databaze DBF z verze Visual dBase 7 na dBase III.
Nejak se mi sama zmenila verze u kamarada a nejsem schopen se do ni "dostat".
Jedna se o 5 souboru o celkove velikosti 25kB.
Predem dekuji
Access XP + BDE ??
[*] Marek Hradil <marekhr(zv)benefitcz(tec)cz> - 10.6.2004 12:57:27
Cau
Potrebovla bych nase starsi programy pro MS ACCESS (97) pripojit na
stejan data format ACCESS XP ? Jde to nejak pres BDE ? Neni ted zrovna
cas prepisovat do ADO.
Dik
Marek
Tisk na dlouhy papir
[*] Lukas Barton <look_as(zv)cnawr(tec)cz> - 10.6.2004 12:57:28
Ahoj,
a jak potom z Delphi pri tisku dynamicky nastavim ruzny format?
Lukas
> tak tam dej treba ovladac na LQ1050 .. vsak to je jedno . tam uz to nabizi
> papir ...
>
> Jirka Virt
Uvodzovky v SQL skripte
[*] LUKES Vaclav <lukes(zv)ans(tec)cz> - 10.6.2004 12:13:22
U stringu na Oracle pouzivam nasledujici funkci:
QuotedStr
Vasek
-----Original Message-----
From: js-delphi(zv)quick(tec)cz [mailto:js-delphi(zv)quick(tec)cz]
Sent: Thursday, June 10, 2004 11:57 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Uvodzovky v SQL skripte
Odesilatel: miro_mr <mms(zv)szm.sk>
> skriptu a nasledne ich pomocou tohoto skriptu (prikaz INSERT)
> naimportovatdo inej databazy.
> Vsetko ide hladko ale v zaznamoch kde v textovych polozkach su dvojite
> uvodzovky tak mi to havaruje.
Ahoj!
Jo, tohle se da obejit elegantne pomoci parametru.
Priklad, kdy Ti to muze spadnout je:
IBQuery.SQL.Text:='Insert into tabulka (sloupec1, sloupec2) '+
'Values ('+Edit1.Text+', '+Edit2.Text+')';
Tohle je nebezpecne, protoze se tam muzou objevit znaky, ktere jsou nejak vyhrazene - viz napr. "
Obejdes to takhle:
IBQuery.SQL.Text:='Insert into tabulka (sloupec1, sloupec2) '+
'Values (:par1, :par2)'; //dvojtecka predznamenava parametr
IBQuery.ParamByName('par1').AsString:=Edit1.Text;//parametr se tady uz uvadi bez dvojtecky
IBQuery.ParamByName('par2').AsString:=Edit2.Text;
Tohle Ti projde bez problemu, at je tam co je tam... ;) (neber me zaslovo, vzdycky existuje nejake omezeni, ale Tvuj problem s " by mel byt takhle vyresen)
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.0.3
programator amater
Uvodzovky v SQL skripte
[*] js-delphi(zv)quick(tec)cz - 10.6.2004 11:57:20
Odesilatel: miro_mr <mms(zv)szm.sk>
> skriptu a nasledne ich pomocou tohoto skriptu (prikaz INSERT)
> naimportovatdo inej databazy.
> Vsetko ide hladko ale v zaznamoch kde v textovych polozkach su dvojite
> uvodzovky tak mi to havaruje.
Ahoj!
Jo, tohle se da obejit elegantne pomoci parametru.
Priklad, kdy Ti to muze spadnout je:
IBQuery.SQL.Text:='Insert into tabulka (sloupec1, sloupec2) '+
'Values ('+Edit1.Text+', '+Edit2.Text+')';
Tohle je nebezpecne, protoze se tam muzou objevit znaky, ktere jsou nejak vyhrazene - viz napr. "
Obejdes to takhle:
IBQuery.SQL.Text:='Insert into tabulka (sloupec1, sloupec2) '+
'Values (:par1, :par2)'; //dvojtecka predznamenava parametr
IBQuery.ParamByName('par1').AsString:=Edit1.Text;//parametr se tady uz uvadi bez dvojtecky
IBQuery.ParamByName('par2').AsString:=Edit2.Text;
Tohle Ti projde bez problemu, at je tam co je tam... ;) (neber me zaslovo, vzdycky existuje nejake omezeni, ale Tvuj problem s " by mel byt takhle vyresen)
Ahoj
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.0.3
programator amater
Uvodzovky v SQL skripte
[*] miro_mr <mms(zv)szm.sk> - 10.6.2004 11:13:16
----- Original Message -----
From: "Jiri Virt" <virt(zv)volny(tec)cz>> ja to resim mezi tabulkou .. proste nejak prejmenovat fieldy.
spatne som sa vyjadril.
Ak v textovej polozke - nie v jej nazve - je ulozeny text, ktory obsahuje
znak ".Uvodzovky v SQL skripte
[*] Jiri Virt <virt(zv)volny(tec)cz> - 10.6.2004 10:29:13
a dvojite uvozovky tam ams proc? spatnz nazev fieldu?
ja to resim mezi tabulkou .. proste nejak prejmenovat fieldy.
Jirka Virt
Tequila Web Server
[*] Martin Nedopil <delphi(zv)hon(tec)cz> - 10.6.2004 10:29:12
Ahoj,
nemate nekdo zkusenosti se %subj%?
Je to maly www server urceny pro ladeni delphi aplikaci v D2-D7.
Martin
Uvodzovky v SQL skripte
[*] miro_mr <mms(zv)szm.sk> - 10.6.2004 10:27:12
Ahoj,
mam tabulku v databazi firebird a udaje z nej chcem vyexportovat pomocou SQL
skriptu a nasledne ich pomocou tohoto skriptu (prikaz INSERT) naimportovat
do inej databazy.
Vsetko ide hladko ale v zaznamoch kde v textovych polozkach su dvojite
uvodzovky tak mi to havaruje.
Da sa tento problem nejako obist?
Miro
Zjisteni jmena orig. souboru pri http downloadu (S
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 10.6.2004 09:59:07
Ahojte,
hraji si s knihovnami Synapse a stahuji soubory pomoci
THTTPSend.HTTPMethod('GET', ...). Chtel bych se
zeptat zda je mozne behem downloadu zjistit jmeno
originalniho souboru.
Diky, Martin
NLM pro Novell
[*] delphi(zv)spst(tec)cz - 10.6.2004 09:59:08
Dobry den.
V cem se da napsat program pro Novell - NLM modul na server. V Delphi asi
ne. Je mozno jako konzolovou aplikaci.
Predem dekuji Jirka
NLM pro Novell
[*] Jiri Virt <virt(zv)volny(tec)cz> - 10.6.2004 10:01:08
tusim ze watcom C ..
Jirka Virt
Vie niekto pomoct so SOAP?
[*] Werki <delphi(zv)minv.sk> - 10.6.2004 09:37:05
Ahoj Gurus
Pokusam sa spravit v Delphi 7 Enterpr. jednoducheho klienta, ktory by sa
pripajal cez SOAP na
server vytvoreny v #C. Cez wizarda a pomocou wsld linky som si vytvoril
*.pas unit, z ktoreho
volam nejaku metodu napr:
GetPatService.lustrovanie('cosi');
alebo
GetPatService(False,'',HTTPRIO1).lustrovanie('cosi');
(v druhom pripade som skusil pouzit vlastne HTTPRIO aby som skusil v
HTTPWebNode nastavit meno a heslo a v InvokeOptions
nastavil soIgnoreInvalidCerts).
Kazdopadne zakazdym dostanem exception: The cortificate authority is invalid
or incorrect
Vie ma niekto nakopnut spravnym smerom? Odhadujem ze mozno sa meno a heslo
na autentifikaciu na servri zadava niekde inde,
ale kde? Alebo je problem niekde inde?
Kazdopadne dakujem ak si to aspon precitate :)
Robo
Transakce a obsluha exception v Try-except (FB)
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 10.6.2004 08:18:57
> trWrite.StartTransaction;
> try
> {tady jsou operace na transakci trWrite}
> trWrite.Commit;
> except
> trWrite.Rollback;
> end; {try}
>
> Kdyz vznikne exception pri ukladani, zmeny se neprojevi, ale je to
> "potichu". Ja jsem zkousel pridat za rollback jeste "raise;", aby se
> vyjimka sirila dal a dala se zase odchytit. Je to spravny postup? Jake
> mate prakticke zkusenosti?
Ahoj,
pouziti raise je mozna cesta, zalezi, co potrebujes docilit. Muzes i v tom except bloku
pouzit neco jako
except
on E: Exception do
begin
trWrite.Rollback;
ShowMessage('Pri pokusu o to a to nastala vyjimka: ' + E.Message);
...pripadne exit;
end;
end;
cimz vyjimku zobrazis a je ted uz jen na tobe, zda ji chces poslat dal nebo ne.
David Lebeda
Vykreslovani radku v ListView a pohyb Image
[*] Ing. Slavomir Timko <timko(zv)novisoft.sk> - 10.6.2004 08:34:59
> Dobry den,
>
> s Vasi pomoci bych rad nasel lepsi reseni, nez momentalne mam...
>
> A.
>
> Ideou kodu bylo, aby se kazdy sudy prichozi radek do LV barevne
> odlisil od licheho. To same, co je nize uvedeno, jsem napsal i do
> procedury ListView1CustomDrawSubItem. Ve Windows 98 vse fungovalo
> bez problemu, v XP v pripade, ze LV neni aktivni v popredi, dojde
> k vyplneni cele tabulky barvou podle dane podminky. V pripade, ze
> vynecham proceduru ListView1CustomDrawItem, barvi se radky az od
> sloupce SubItemu, avsak jiz korektne. Tak nevim, co s tim...
>
> procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
> Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
> var
> Rect : TRect;
>
> begin
> with (Sender as TCustomListView).Canvas do
> begin
> if (Item.Index mod 2) = 0 then
> begin
> Brush.Color := clRed;
> FillRect(Rect);
> end
> else
> Brush.Color := clWhite;
> end; {with}
skus toto:
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Odd(Item.Index) then Sender.Cavas.Brush.Color := clRed
else Sender.Cavas.Brush.Color := clWhite;
end;
a ak chces mat cely riadok jednej farby ListView1CustomDrawSubItem zmaz.
Slavo
FB Where a NULL
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 10.6.2004 08:10:56
> ...where (TYPZ = 'C')... = funguje OK, vrati jen radky kde TYPZ
> obsahuje 'C'.
>
> pokud pouzijem opak:
> ... where NOT (TYPZ = 'C')... = nevrati nic.
>
> Co je vysledkem kdyz je ve sloupci hodnota null?
Ahoj,
hodnotu NULL si muzes pro sebe prelozit jako "neni znamo" nebo "mozna". Dostavas
se tak do trihodnotove logiky! Vysledek kazde operace muze byt TRUE, FALSE a
NULL, kde to NULL ma vyznam uvedeny v prvni vete. Problem je v tom, ze v prikazu IF
se podminka musi vzdy vyhodnotit dvouhodnotove - tj. musi byt bud TRUE, tj. podminka
je splnena nebo FALSE, podminka neni splnena. Nabyva-li podminka hodnotu NULL,
chape se to jako jeji nesplneni. Aplikace logickeho operatoru NOT na podminku, jejimz
vysledkem je NULL, dava opet NULL a IF to proto interpretuje tak, ze podminka neni
splnena.
plati:
TRUE or NULL = TRUE (druhy operand nemuze vysledek nikdy zmenit)
FALSE and NULL = FALSE (dtto)
V ostatnich pripadech logickych operaci, kde jeden clen je NULL, je i vysledek NULL.
Podobne i porovnani cislo > NULL se vyhodnoti jako NULL, cislo <= NULL taktez. V IFu
jsou obe tyto podminky nesplneny.
David Lebeda
Prepnuti formulare z Modal do non-Modal stavu
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 10.6.2004 07:56:55
> potreboval bych prepnout formular z Modal do non-Modal stavu, bez jeho
> zavreni.
nooo ked si pozres fciu TCustomForm.ShowModal: Integer; z forms.pas tak sa
dozvies asi toto:
ked vytvaras modal tak delphi prejde vsetky okna jednoducho ich vypne pomocou
funkcie DisableTaskWindows a ked zavres Modal okno tak zase vsetky enablne ...
takze Modal okno das do stavu non-modal asi tak, ze vsetky disablnute okna
zapnes pomocou fcie. EnableTaskWindows ...
takze asi tak ;)
palo
FB Where a NULL
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 10.6.2004 07:38:52
Ahoj,
>>Takze NOT NULL je zase NULL, jestli tomu dobre rozumim.
> ne, NOT NULL znamena, ze testujes pritomnost
> hodnoty(jakekoli).
Ja bych dodal, ze zachazeni s NULL je naprosto
zakladni zalezitost pri praci s databazemi (SQL).
Sam jsem si nekolikrat nabil usta a i ted cas od
casu opomenu ze pokud neni sloupec NOT NULL, tak
s timto stavem _musim_ pocitat ve vsech podminkach.
Doporucuju nejakou sikovnou knizku s priklady.
Me osobne hodne pomohlo nejaky mistrovstvi MSSQL 6.5
Peca
Alternativa k MDI
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 10.6.2004 07:32:51
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of martin
> Sent: Wednesday, June 09, 2004 4:17 PM
>
> Povodna sprava zo dna : 9. 6. 2004, od <jan.fiala(zv)wo(tec)cz> :
> >> - ak vytvaram form, hned sa aj zobrazi
> JF> A proc jej potrebujes mit vytvoreny a nezobrazeny ?
> Napr. preto, ze mam na nom nejaku komponentu, ktoru potrebujem aj inde
> - teda jej aktualny stav property a pod.
> Jasne, ze to ide urobit inak, ale jednoducho mi vadi ze create
> "spusta" hned aj show ....berem, ze to vychadza z architektury MDI, a
> preto sa pytam na alternativu.
U vsech formu nech FormStyle na fsNormal a zkus pouzit toto:
type
TForm1 = class(TForm)
public
function ShowModal: integer; override;
procedure Show;
end;
procedure TForm1.Show;
begin
if FormStyle = fsNormal then
FormStyle := fsMDIChild;
inherited Show;
end;
function TForm1.ShowModal: integer;
begin
if FormStyle = fsMDIChild then
begin
FormStyle := fsNormal;
Visible := false;
end;
Result := inherited ShowModal;
end;
Nam to funguje bez problemu :)))
S pozdravem
Milan Tomes
RTF do HTML
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 10.6.2004 07:30:49
http://www.theteahouse.com.au/rtf/Jaka prava potrebuje naplanovana uloha?
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 10.6.2004 07:22:46
> Sdilenemu adresari, kam se to kopiruje, jsem (ze
> zoufalstvi) nastavil nejvyssi prava pro vsechny skupiny.
Lenze proces cez AT sa spusta v default ucte tusim SYSTEM pokial to nezadefinujes inak.
Riesit to mozes, ze sa pripojis na dany komp pod uzivatelskym menom a heslom na sietovy disk.
napr. programovo si namapujes sietovy disk cez funkciu je WNetAddConnection2.
popis najdes tu:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wnet/wnet/wnetaddconnection2.asp
alebo aj priamo v Delphi helpe.
alebo hotovu komponentu do Delphi tu:
http://delphi.about.com/library/weekly/code/src061503.zip
PS: ked uz mas ten OT nanuteny tak sa to da riesit aj ze nadefinujes prava cez AT mas to tam v popise
tej funkcie ... Server\uzivatel heslo ...
FB Where a NULL
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 10.6.2004 06:42:41
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jan Harman
>
> >
> > NULL :) Jinak NULL je stav, nikoliv hodnota, znamena
> absenci hodnoty.
>
> Takze NOT NULL je zase NULL, jestli tomu dobre rozumim.
Ahoj,
ne, NOT NULL znamena, ze testujes pritomnost
hodnoty(jakekoli).
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Odeslani emailu v HTML
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 10.6.2004 01:30:21
Zdar,
jak mam odeslat email v HTML pomoci Synapse tak, aby se hned v Outlooku
a podobnych postovnich programech zobrazil v graficke podobe?
Diky za odpoved
Karel
D5, Synapse
Transakce a obsluha exception v Try-except (FB)
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.6.2004 00:40:13
Puvodni zprava ze dne 10.6.2004:
> Kdyz vznikne exception pri ukladani, zmeny se neprojevi, ale je to
> "potichu". Ja jsem zkousel pridat za rollback jeste "raise;", aby se
> vyjimka sirila dal a dala se zase odchytit. Je to spravny postup?
Ano, je. Pripadne si tim raise vyvolas svou vlastni vyjimku, abys ji
lepe poznal.
> Jake mate prakticke zkusenosti?
S cim prakticke zkusenosti? Jestli to jako funguje? No funguje.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Transakce a obsluha exception v Try-except (FB)
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 10.6.2004 00:36:12
Zdravim,
mam ukladani do databaze uzavrene do bloku TRY-EXCEPT nasledujicim zpusobem:
trWrite.StartTransaction;
try
{tady jsou operace na transakci trWrite}
trWrite.Commit;
except
trWrite.Rollback;
end; {try}
Kdyz vznikne exception pri ukladani, zmeny se neprojevi, ale je to
"potichu". Ja jsem zkousel pridat za rollback jeste "raise;", aby se vyjimka
sirila dal a dala se zase odchytit. Je to spravny postup? Jake mate
prakticke zkusenosti?
diky
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
OT: Jaka prava potrebuje naplanovana uloha?
[*] Miroslav Novosad <mnprokonf(zv)quick(tec)cz> - 9.6.2004 23:44:07
Ahoj,
kdysi jsem delal jednoduchy program, ktery uklizi "do zalohy" na jiny
pocitac v siti urcita data. Bylo to z NT4 na Win98, coz fungovalo v
pohode. Tedka dali misto tech W98 W2000. Kdyz to spustim rucne, tak to
probehne, ale ten program se spousti automaticky v urc. hodinu (prikazem
AT) a to nejede. Sdilenemu adresari, kam se to kopiruje, jsem (ze
zoufalstvi) nastavil nejvyssi prava pro vsechny skupiny. Fakt nevim, kde
muze byt problem.
Vite nekdo?
Miroslav Novosad
mnprokonf(zv)guick(tec)cz
FB Where a NULL
[*] Jan Harman <jharman(zv)volny(tec)cz> - 9.6.2004 22:19:55
> > v sloupci TYPZ mam bud 'C' nebo null. Chtel jsem pouzit toto:
> >
> > ...where (TYPZ = 'C')... = funguje OK, vrati jen radky kde TYPZ obsahuje
> > 'C'.
> >
> > pokud pouzijem opak:
> > ... where NOT (TYPZ = 'C')... = nevrati nic.
>
> Ze nic nevraci je spravne.
>
> > vim ze bych mohl pouzit
> > where (TYPZ IS NULL), ale chci to mit nachystane i pro pristi verze kde
muze
> > byt TYPZ i jina hodnota nez 'C'
>
> Pokud chces vypsat hodnoty s NULL, pak jiny zpusob neexistuje.
>
> > Co je vysledkem kdyz je ve sloupci hodnota null?
>
> NULL :) Jinak NULL je stav, nikoliv hodnota, znamena absenci hodnoty.
Takze NOT NULL je zase NULL, jestli tomu dobre rozumim.
Honza
FB Where a NULL
[*] Petr Jarkovsky <pejasoft(zv)volny(tec)cz> - 9.6.2004 22:03:53
Jestli te dobre chapu, tak preci muzes pouzit "where TYPZ <> 'C' OR TYPZ IS
NULL"
Petr Jarkovsky
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf
Of Jan Harman
Zdravim vsechny,
v sloupci TYPZ mam bud 'C' nebo null. Chtel jsem pouzit toto:
...where (TYPZ = 'C')... = funguje OK, vrati jen radky kde TYPZ obsahuje 'C'.
pokud pouzijem opak:
... where NOT (TYPZ = 'C')... = nevrati nic.
vim ze bych mohl pouzit
where (TYPZ IS NULL), ale chci to mit nachystane i pro pristi verze kde muze byt
TYPZ i jina hodnota nez 'C'
Co je vysledkem kdyz je ve sloupci hodnota null?
Diky.
Honza
FB - Select count(*)
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 9.6.2004 20:53:47
Haj hou!
On 9 Jun 2004 at 19:51, konference(zv)sales(tec)cz wrote:
>
> > -----Original Message-----
> On Behalf Of Pavel Cisar
>
> > Ulozena procedura nebo trigger pro pocitani radku ti take nepomuze.
>
> Ahoj.
> Proc, ja to tak v jednom pripade pouzivam, mam trigger AfterInsert a
> AfterDelete a pomoci neho updatuju aktualni pocet zaznamu.
> Co je na tom spatne ?
1) Transakce v izolacni urovni SNAPSHOT neuvidi zmeny provedene a
potvrzene az po jejich zahajeni. A to ani pomoci SELECT COUNT, ani
pomoci triggeru.
2) Vytvaret citace v radcich aktualizovanych z triggeru na
insert/update/delete je ptakovina, protoze vytvareji uzke hrdlo pro
propustnost. Uzivatel B nebude schopen vlozit, zmenit nebo smazat
radek, pokud uzivatel A proved podobnou zmenu na jinem radku, ktera
rovnez vyvola aktualizaci citace, dokud uzivatel A nepotvrdi
transakci. Pokud ma NOWAIT transakci, tak to rovnou vyhuci na chybu,
pokud ma WAIT transakci tak mu to sice nejspis projde (zalezi na
izolacni urovni transakce), ale bude cekat.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
FB Where a NULL
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 9.6.2004 20:43:45
Haj hou!
On 9 Jun 2004 at 19:43, Jan Harman wrote:
> v sloupci TYPZ mam bud 'C' nebo null. Chtel jsem pouzit toto:
>
> ...where (TYPZ = 'C')... = funguje OK, vrati jen radky kde TYPZ obsahuje
> 'C'.
>
> pokud pouzijem opak:
> ... where NOT (TYPZ = 'C')... = nevrati nic.
Ze nic nevraci je spravne.
> vim ze bych mohl pouzit
> where (TYPZ IS NULL), ale chci to mit nachystane i pro pristi verze kde muze
> byt TYPZ i jina hodnota nez 'C'
Pokud chces vypsat hodnoty s NULL, pak jiny zpusob neexistuje.
> Co je vysledkem kdyz je ve sloupci hodnota null?
NULL :) Jinak NULL je stav, nikoliv hodnota, znamena absenci hodnoty.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Vykreslovani radku v ListView a pohyb Image
[*] Development <development(zv)cmail(tec)cz> - 9.6.2004 20:39:44
Dobry den,
s Vasi pomoci bych rad nasel lepsi reseni, nez momentalne mam...
A.
Ideou kodu bylo, aby se kazdy sudy prichozi radek do LV barevne
odlisil od licheho. To same, co je nize uvedeno, jsem napsal i do
procedury ListView1CustomDrawSubItem. Ve Windows 98 vse fungovalo
bez problemu, v XP v pripade, ze LV neni aktivni v popredi, dojde
k vyplneni cele tabulky barvou podle dane podminky. V pripade, ze
vynecham proceduru ListView1CustomDrawItem, barvi se radky az od
sloupce SubItemu, avsak jiz korektne. Tak nevim, co s tim...
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
Rect : TRect;
begin
with (Sender as TCustomListView).Canvas do
begin
if (Item.Index mod 2) = 0 then
begin
Brush.Color := clRed;
FillRect(Rect);
end
else
Brush.Color := clWhite;
end; {with}
B.
Jeste jeden problemek. Mam ScrollBox a v nem Image. Rad bych klikem
na Image ten obrazek 'uchopil' a tahal s nim tak, jak taham mysi, ale
v ramci nejakych mantinelu (tedy abych Image nevytahl mimo ScrollBox).
Trochu to funguje s timhle, ale neni to ono, co bych chtel...
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
DownX := X;
DownY := Y;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
with Sender as TImage do
begin
if Form1.ScrollBox1.Width < Form1.Image1.Width then
begin
if (X > DownX) and (X - DownX > 10) then
SendMessage(ScrollBox1.Handle, WM_HSCROLL, SB_LINELEFT, 0);
if (X < DownX) and (X - DownX < 10) then
SendMessage(ScrollBox1.Handle, WM_HSCROLL, SB_LINERIGHT, 0);
DownX := X;
end; {if}
if Form1.ScrollBox1.Height < Form1.Image1.Height then
begin
if (Y > DownY) and (Y - DownY > 10) then
SendMessage(ScrollBox1.Handle, WM_VSCROLL, SB_LINEUP, 0);
if (Y < DownY) and (Y - DownY < 10) then
SendMessage(ScrollBox1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
DownY := Y;
end; {if}
end; {with}
end;
--
Diky za pripadne nakopnuti, jsem s pozdravem,
M. Machacek, WXP, D6PE
FB - Select count(*)
[*] konference(zv)sales(tec)cz - 9.6.2004 19:51:30
> -----Original Message-----
On Behalf Of Pavel Cisar
> Ulozena procedura nebo trigger pro pocitani radku ti take nepomuze.
Ahoj.
Proc, ja to tak v jednom pripade pouzivam, mam trigger AfterInsert a
AfterDelete a pomoci neho updatuju aktualni pocet zaznamu.
Co je na tom spatne ?
Ludek
FB Where a NULL
[*] Jan Harman <jharman(zv)volny(tec)cz> - 9.6.2004 19:43:29
Zdravim vsechny,
v sloupci TYPZ mam bud 'C' nebo null. Chtel jsem pouzit toto:
...where (TYPZ = 'C')... = funguje OK, vrati jen radky kde TYPZ obsahuje
'C'.
pokud pouzijem opak:
... where NOT (TYPZ = 'C')... = nevrati nic.
vim ze bych mohl pouzit
where (TYPZ IS NULL), ale chci to mit nachystane i pro pristi verze kde muze
byt TYPZ i jina hodnota nez 'C'
Co je vysledkem kdyz je ve sloupci hodnota null?
Diky.
Honza
Ako zistit externu IP ak som za NAT
[*] martin <matrix(zv)inmail(tec)cz> - 9.6.2004 16:21:12
Jak na to?
V phpcku je to $_SERVER['REMOTE_ADDR'];
V tom pripade asi skriptu "pomaha" www server.
--
Martin
SFTP a Delphi
[*] mstevlik(zv)gamo.sk - 9.6.2004 16:23:13
Hi all,
Dostal som za ulohu prerobit jednu aplikaciu aby vyuzivala SFTP
Neviem ci sa mylim alebo nie ale podla mna to je klasicke FTP s podporou
SSL
Pozeral som L.Gebauerove unity a tam podpora FTP so SSL je implementovana
Je to teda schodna cesta alebo sa mylim v pojme SFTP?
Ak sa mylim existuju nejake objekty na pracu SFTP?
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 38493645
Jak programove otestovat ip adresu?
[*] Fedor 'fi0dor' Tirsel <fi0dor(zv)fi0dor.info> - 9.6.2004 15:47:01
: Prosim o radu. Potrebuji programove otestovat dostupnost urcite ip adresy,
neco jako "ping", jak se to udelat?
Zdravim,
skus sa pozriet na http://www.overbyte.be/, konkretne Products > ICS. Jedna sa o
free Internet komponenty -- mimo ine obsahuju aj TPing a zopar prikladov.
S pozdravom...
--
Fedor 'fi0dor' Tirsel
www.fi0dor.info
Jak programove otestovat ip adresu?
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 9.6.2004 16:07:08
Marek Dostal wrote:
> Prosim o radu. Potrebuji programove otestovat dostupnost urcite ip
> adresy, neco jako "ping", jak se to udelat?
Synapse ma primo funcki na Ping. Takze staci jednoduse zavolat.
Najdes na www.ararat(tec)cz/synapse
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
ICQ#: 314711544
web: http://www.cincura.net; http://cincura.net/photo
Alternativa k MDI
[*] martin <matrix(zv)inmail(tec)cz> - 9.6.2004 16:17:10
Povodna sprava zo dna : 9. 6. 2004, od <jan.fiala(zv)wo(tec)cz> :
>> - ak vytvaram form, hned sa aj zobrazi
JF> A proc jej potrebujes mit vytvoreny a nezobrazeny ?
Napr. preto, ze mam na nom nejaku komponentu, ktoru potrebujem aj inde
- teda jej aktualny stav property a pod.
Jasne, ze to ide urobit inak, ale jednoducho mi vadi ze create
"spusta" hned aj show ....berem, ze to vychadza z architektury MDI, a
preto sa pytam na alternativu.
Este ma napadlo, ak poznate EMS InterbaseManager, tam sa da nastavit prostredie
na:
- office like (vyzera to na upravene MDI)
- delphi like
Ako to robia? Velmi sa mi paci to "delphi like", a prave to ze to
nevyzera na ciste MDI...ci ano? Existuju nejake pravidla, alebo demo,
ako vytvarat prostredie "delphi like?"
>> - komplikacia zmeny farby hlavneho formu a vlozenie obrazku sucasne
>> (jasne, da sa to riesit, ale je to zbytocne kompl.)
JF> Zmena barvy main formu je bez problemu.
JF> S obrazkem je tam komplikace, protoze MDI Main form ma 2 vrstvy
Myslis? Vypni si na Mainforme Ctl3D := False a nastav farbu mainformu
na clWhite. V design time bude White no po spusteni je clAppWorkSpace
Ale toto je detail ... ;)
M.
Data do KonfView 2004-05
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 9.6.2004 15:24:58
2.6.2004 J.Hasek:
>> Zdravim,
>> na ftp://delphi(tec)cz (username DELPHI, heslo ARCHIVAR) jsou k dispozici data
>> pro KonfView.
Diky, vsiml jsem si. Jeste musim opravit stranky - presmeruju to primo
do toho adresare a uzivatel si stahne co potrebuje.
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Alternativa k MDI
[*] Jan Fiala <jan.fiala(zv)wo(tec)cz> - 9.6.2004 15:28:59
3.6.2004 martin:
> Na MDI mi vadi:
> - ak vytvaram form, hned sa aj zobrazi
A proc jej potrebujes mit vytvoreny a nezobrazeny ?
> - neda sa ovplyvnovat velkost formulara, stale si to prisposobuju
> windowsy
> - nekorektne funguje aj centrovanie formu
Da. jen je treba zmenit property u formu z Default treba Designed nebo
MainFormCenter
> - komplikacia zmeny farby hlavneho formu a vlozenie obrazku sucasne
> (jasne, da sa to riesit, ale je to zbytocne kompl.)
Zmena barvy main formu je bez problemu.
S obrazkem je tam komplikace, protoze MDI Main form ma 2 vrstvy
--
Jan Fiala
mailto:jan.fiala(zv)wo(tec)cz
Jak programove otestovat ip adresu?
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 9.6.2004 15:16:56
Prosim o radu. Potrebuji programove otestovat dostupnost urcite ip adresy, neco jako "ping", jak se to udelat?
Marek Dostal
D7Prof, WinXP Home, FireBird 1.0.2
Array constant
[*] delphin(zv)post(tec)cz - 9.6.2004 14:48:51
> chtel bych se zeptat, zda jde udelat neco podobneho jako
>
> type Tpom = array[1..2] of integer;
> const pom: Tpom = ((1), (2));
>
> pro dynamicke pole - syntaxe mi vyhodi chybu...
>
> type Tpom = array of integer;
> const pom: Tpom = ((1), (2));
>
nelze. Konstantni pole je nutne definovat jako array [x..y] of integer
Komponenta TWebbrowser <textarrea>- nefunduje klav
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 9.6.2004 13:28:40
Cau pred casem jsem neco takoveho resil, nefungovaly tam sipky a enter
nejelo kdyz tam nebyl button
musi se odchycovat
snad ti pomuze nebo te navede tenhle kousek kodu:
procedure TFrmMain.MyMessageHandler(var Msg: TMsg; var Handled: Boolean);
const
DuplicatedKeys: set of Byte = [VK_TAB, VK_BACK, VK_LEFT, VK_RIGHT, VK_UP,
VK_DOWN, VK_PRIOR, VK_NEXT];
var
w:HWND;
begin
if VIP=false then begin
if (Msg.Message = WM_RBUTTONDOWN) or (Msg.Message =
WM_RBUTTONUP) then begin handled:=True; exit; end; //else begin Handled :=
False; end;
end;
Handled:=False;
if Msg.message = WM_KEYDOWN then
begin
if Msg.wParam in DuplicatedKeys then
//do nothing let ie take care of it
end;
w:=GetFocus;
if (w=0) {or (w=[].Handle)} then Exit;
if OIPAO<>nil then
begin
if w = OIPAO_Wnd then Handled := IsDialogMessage(w,Msg);
if not Handled then Handled := (OIPAO.TranslateAccelerator(Msg) =
S_OK);
end;
if (not Handled) and Assigned(SaveMessageHandler) then
SaveMessageHandler(Msg,Handled);
end;
pak je dobre jeste initializovat ole uplne na konci unity
initialization
OleInitialize(nil);
finalization
OleUninitialize;
Radek Szurman
>
> Dobry den.
>
> D6 prof, WIN XP prof, P4 - na formu je komponenta TWebBrowser v ni
pouzivam textovou oblast
>
> definovanou takto (uvadim bez tagu <> ) textarea class = fra name="
LnData" cols = 75 rows =22 wrap="virtual"
> (fra je definovan jako css style a mneni vzhled ).
>
> Klavesa enter bez problemu funguje pokud stranku nactu v externim
webbrowseru Interner explorer, Mozila ,
> na formu pri chodu aplikace je kalvesa enter ignorovana.
>
> Form nastaven Active control : Webbrowser1
> Form style : fsnormal
> Keypreview : true
>
> Webbrowser nastaven Tabstop na TRue;
>
> Zkousel jsem i jine kombinace ale marne.
>
> Tusi nekdo v cem je chyba?
>
> Predem diky.
>
> PetrKkoukal (email:
koukal(zv)petrkoukal(tec)cz)
>
>
>Poloha OpenDialogu
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 9.6.2004 12:52:36
Ahoj,
potreboval bych nastavit polohu OpenDialogu, po execute se objevi na
miste, kde to vadi.
Dekuji za radu
Vaclav Sazima
Verze programu - projektu
[*] David Hrbac <hrbac.conf(zv)seznam(tec)cz> - 9.6.2004 12:04:31
Ahoj,
rad bych se zeptal, jakym zpusobem resite ruzne verze programu a jejich
kompilaci v Delphi. Vzdy jsem v Delphi kompiloval programy, co byly jen
v jedne verzi, ale v MS Visual Studiu jsem byl zvykly vyuzivat featurku
compilace nekolika verzi porgramu. Jde mi o to, jak udelat to, aby se mi
pri kompilaci udelaly dva exace, ale kazdy mel napr. jine direktivy
kompileru... Resite to tak, ze udelate kopii souboru ..dpr,.dof,.cfg a
potom pridate jako dalsi projekt a nasledne Compile All? Nebo existuje
nejaka jina elegantnejsi cesta a la VS.
Dik,
David Prepnuti formulare z Modal do non-Modal stavu
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 9.6.2004 12:04:30
Ahoj,
potreboval bych prepnout formular z Modal do non-Modal stavu, bez jeho
zavreni.
Vedel by nekdo, jak na to?
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
ICQ#: 314711544
web: http://www.cincura.net; http://cincura.net/photo
NetWare User Name
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 9.6.2004 11:34:25
delphi(zv)spst(tec)cz dne 9 Jun 2004 v 10:06:
> Napsal jsem si program, ktery provadi udrzbu disku na licitaci
> pripojeneho do site NetWare. V tomto programu zjistuji, kdo je
> prihlasen do site. Kdyz je to jako klasicka aplikace vse funguje
> perfektne - zobrazi se uzivatelske jmeno i kontext. Ale kdyz to same
> prepisu jako sluzbu, tak misto uzivatelskeho jmena dostanu PUBLIC.
> Netusite co mam udelat, aby to fungovalo tak jak ma.
Ahoj,
obavam se, ze sluzba nema sve prihlaseni do Novellu - ostatne muze vesele bezet i v dobe, kdy
nikdo na stanici prihlaseny neni.
Nestacilo by v login skriptu nastavit systemovou promennou a nebo jmeno uzivatele, ktery se prave
prihlasuje, zapsat do nejakeho souboru, odkud by si ho sluzba precetla, apod.?
Jinak mohl bych Te poprosit o informaci, jake unity pouzivas na zjisteni toho prihlaseneho
uzivatele?
Karel Rys
NetWare User Name
[*] delphi(zv)spst(tec)cz - 9.6.2004 11:46:28
Ahoj
>Jinak mohl bych Te poprosit o informaci, jake unity pouzivas na zjisteni
>toho prihlaseneho uzivatele?
Pouzivam DelphiLib primo od Novellu. Jinak Kdyz si nainstalujes w32sdk
taktez od Novellu ziskas kompletni dokumentaci. Jsou tam popsane veskere
fce. V pripade NWUserName pouzivam NetWin32.
Jirka
FB - Select count(*)
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 9.6.2004 11:40:27
Haj hou!
On 9 Jun 2004 at 10:56, Miso wrote:
>
> ----- Original Message -----
> From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
>
> > SELECT (*) se nijak urychlit neda, protoze vzdy pouziva table scan a
> > nemuze pouzivat indexy (kvuli multigeneracni architekture).
> >
>
> ..takze nepomoze ked pouzijem napr. "select count (fld) from tbl" ked mam
> index na fld ?..pripadne co odporucas na zistenie poctu zaznamov?
> ....az tak velmi to nepotrebujem, skor ma to zaujima ako to vyriesit..viem,
> ze by sa dalo urobit nieco ako ulozena procedura, prip. trigger, ktory by mi
> niekde znizoval/zvysoval hodnotu nejakeho pocitadla, ale mas pripadne nejake
> ine riesenie..?
Zadne reseni neexistuje, to je proste omezeni architektury ze pro
COUNT nelze pouzit index. Uzly indexu neobsahuji informace o
prislusnosti uzlu k transakci, tu obsahuji pouze radky. Pro zjisteni
zda radek je viditelny pro transakci je tedy zapotrebi vzdy nacist
samotny radek. Nelze tedy spocitat pouze uzly indexu, je zapotrebi
jeste precist radky, coz uz je lepsi cist jen radky -> table scan.
Index by se mohl pouzit pokud by jsi definoval WHERE klauzuli.
Ulozena procedura nebo trigger pro pocitani radku ti take nepomuze.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Array constant
[*] jimys(zv)centrum(tec)cz - 9.6.2004 11:34:26
Ahoj,
chtel bych se zeptat, zda jde udelat neco podobneho jako
type Tpom = array[1..2] of integer;
const pom: Tpom = ((1), (2));
pro dynamicke pole - syntaxe mi vyhodi chybu...
type Tpom = array of integer;
const pom: Tpom = ((1), (2));
Poradi nekdo?
Diky.
Jirka
FB - Select count(*)
[*] Miso <delphinpp(zv)atlas(tec)cz> - 9.6.2004 10:56:22
----- Original Message -----
From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
> SELECT (*) se nijak urychlit neda, protoze vzdy pouziva table scan a
> nemuze pouzivat indexy (kvuli multigeneracni architekture).
>
..takze nepomoze ked pouzijem napr. "select count (fld) from tbl" ked mam
index na fld ?..pripadne co odporucas na zistenie poctu zaznamov?
....az tak velmi to nepotrebujem, skor ma to zaujima ako to vyriesit..viem,
ze by sa dalo urobit nieco ako ulozena procedura, prip. trigger, ktory by mi
niekde znizoval/zvysoval hodnotu nejakeho pocitadla, ale mas pripadne nejake
ine riesenie..?
dik,
Miso
FB - Select count(*)
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 9.6.2004 10:48:21
Haj hou!
On 9 Jun 2004 at 10:12, Miso wrote:
> mam nad FB table, v ktorej mam okolo 1 milion. zaznamov, ked chcem nad nou
> spustit %subj.% tak vyhodnotenie trva priblizne 17 sek. !!.. table ma
> primary key nad ID stlpcom, mam tam este dalsie 2 indexy..
> .. druhe spustenie tohto dotazu je uz rychlejsie, ale stale to nie je
> ono..ako to urychlit?..mam mu tam zadat natvrdo nejaky plan..?..aky?
SELECT (*) se nijak urychlit neda, protoze vzdy pouziva table scan a
nemuze pouzivat indexy (kvuli multigeneracni architekture).
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Odchytenie WM_NCPAINT
[*] Ing. Slavomir Timko <timko(zv)novisoft.sk> - 9.6.2004 10:28:19
Zdravim
Chcel by som chytit spravy WM_NCPAINT pre vsetky wincontroly v aplikacii.
Skusal som to cez Application.OnMessage, SetWindowsHookEx, no neuspesne.
Viete mi poradit? Vdaka za odpovede.
Slavo.FB - Select count(*)
[*] Miso <delphinpp(zv)atlas(tec)cz> - 9.6.2004 10:12:17
Zdar,
mam nad FB table, v ktorej mam okolo 1 milion. zaznamov, ked chcem nad nou
spustit %subj.% tak vyhodnotenie trva priblizne 17 sek. !!.. table ma
primary key nad ID stlpcom, mam tam este dalsie 2 indexy..
.. druhe spustenie tohto dotazu je uz rychlejsie, ale stale to nie je
ono..ako to urychlit?..mam mu tam zadat natvrdo nejaky plan..?..aky?
Dik,
Miso
FB1.5, WXP
NetWare User Name
[*] delphi(zv)spst(tec)cz - 9.6.2004 10:06:16
Dobry den.
Napsal jsem si program, ktery provadi udrzbu disku na licitaci pripojeneho
do site NetWare. V tomto programu zjistuji, kdo je prihlasen do site. Kdyz
je to jako klasicka aplikace vse funguje perfektne - zobrazi se uzivatelske
jmeno i kontext.
Ale kdyz to same prepisu jako sluzbu, tak misto uzivatelskeho jmena dostanu
PUBLIC.
Netusite co mam udelat, aby to fungovalo tak jak ma.
Windows XP, Delphi 7
Kod pro zjisteni NW UserName
function NWUserName : String;
var
hContext: NWDSContextHandle;
tptr:pointer;
Context : string;
newcontext, AmI:array [0..255] of Char;
Name : string;
Start : Byte;
begin
hContext:=NWDSCreateContext;
Context :=DS_ROOT_NAME;;
strpcopy(newcontext,Context);
tptr:=(zv)newcontext;
NWDSSetContext(hContext,DCK_NAME_CONTEXT,tptr) ;
NWDSWhoAmI(hContext, (zv)AmI);
NWDSFreeContext(hContext);
Name := AmI;
Delete(Name,1,Pos('=',Name));
Start := Pos('.',Name);
Delete(Name,Start+1,Pos('=',Name)-Start);
NWUserName := Name;
end;
Predem vsem dekuji Jirka
Komponenta TWebbrowser <textarrea>- nefunduje klav
[*] koukal(zv)petrkoukal(tec)cz - 9.6.2004 09:44:14
Dobry den.
D6 prof, WIN XP prof, P4 - na formu je komponenta TWebBrowser v ni pouzivam textovou oblast
definovanou takto (uvadim bez tagu <> ) textarea class = fra name=" LnData" cols = 75 rows =22 wrap="virtual"
(fra je definovan jako css style a mneni vzhled ).
Klavesa enter bez problemu funguje pokud stranku nactu v externim webbrowseru Interner explorer, Mozila ,
na formu pri chodu aplikace je kalvesa enter ignorovana.
Form nastaven Active control : Webbrowser1
Form style : fsnormal
Keypreview : true
Webbrowser nastaven Tabstop na TRue;
Zkousel jsem i jine kombinace ale marne.
Tusi nekdo v cem je chyba?
Predem diky.
PetrKkoukal (email: koukal(zv)petrkoukal(tec)cz)
zpracovani DWF
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 9.6.2004 08:54:10
Ahoj,
potreboval bych do sveho programu v Delphi6pro
naimportovat data z DWF (Design Web Format) od
Autodesku.
Staci mi nejaky sikovny nastroj, trida, DLL...
Proste cokoliv cim se do toho jednoduse dostanu,
abych nemusel vyvijet vlastni reseni. Nemusi to
byt zadarmo, je to pro komercni aplikaci.
Pro upresneni, ja z toho DWF potrebuju dostat
data, ne si ho jenom nechat nakreslit nekam, jak
to umoznuje treba API AutodeskExpressViewveru.
Dekuji
Peca
RecreateWidget
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 8.6.2004 20:21:19
Zdravim konferenci,
Mate nekdo zkusenosti s pouzitim funkce RecreteWidget v CLX?
potrebuji za behu zmenit FormStyle z fsNormal na fsMDIChild nebo
naopak a pri volani RecreateWidget se nejak straslive rozhodi Handly
vseho mozneho, takze to zacne dost chaoticky padat.
Pokud takhle menim pradny form, vse projde ok, pokud je form slozitejsi
vse jde do haje.
Nemate nekdo nejakou zkusenost, nebo nejaky napad jak jinak zmenit
FormStyle?
Predem dik za rady a postrehy
Pavel Poles
BDE - otevrene tabulky
[*] Jan Rizek <abxsw(zv)centrum(tec)cz> - 8.6.2004 18:15:09
V aplikaci zavru vsechny tabulky i dotazy (Query) a presto zustanou dva
soubory otevrene...
Nevite na cem to zavisi, lze nejak uzavrit (Session)?? reset BDE?
JR
OT nabidka zamestnani
[*] Jaromir Luhan <konference(zv)lionet(tec)cz> - 8.6.2004 17:57:08
Omlouvam se za OT,
ale hledam za sebe nahradu na misto technicke podpory u firmy Borland,
s.r.o. pro Delphi a .NET produkty. Inzerat s presnymi pozadavky bude v
nejblizsich dnech zverejnen na webu
http://www.borland(tec)cz/spol_zamestnani.html. Pripadne nabidky prosim primo na
mail jluhan(zv)borland(tec)cz
J. Luhan
Borland CZ
info o exception
[*] L?ikola Petr <developer(zv)efg(tec)cz> - 8.6.2004 17:43:06
Zdravim, zkompiloval jsem vicevlaknovou aplikaci, kde "nekde" dochazi k vyjimce.
o vyjimce vim z delphi eventlogu toto:
First chance exception at $7C59BA9D. Exception class ElistError with message List index of bounds(13). Proces project1.exe ($CAB).
nechal jsem si vytvorit detailni map file map file.
Lze z vyse uvedeneho nejak zjistit, kde ta vyjimka nastava ?
Dikz
Petr Sikola
existuje instalator ktery zvladne i instalac i MS
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 8.6.2004 15:38:57
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Ludek Finstrle
>
> > > Treba, ze by vstupy z klavesnice byly simulovany souborem,
> > > ktery by clovek predem pripravil.
> >
> > Dost dobra cunarna !!! :))
>
> Tohle umi AutoIt. Jde takovou vec i zkompilovat do .exe a
> spoustet ;o))
> BTW behem toho umi cekat i na naskakovani oken a podobnych veci a
> libi se mi, ze jde i vypnout vstup z klavesnice i mysi behem prubehu
> toho skriptu.
Ahoj,
doufam, ze to nebyla narazka na to, ze sem to oznacil za cunarnu.
Myslel sem to tak, ze jestlize se nekdo pta na instalak, tak bych tipnul,
ze ho dela poprve a neni asi rozumny se ucit psat instalace pomoci
takovehle vylomeniny, ale naucit se delat SKUTECNY instalak.
(At uz pomoci InnoSetupu, ci jineho nastroje). Dovedu si predstavit
takhle "odklikanou" akci treba u nejakeho dema "Jak na to", ale
kdybych si pustil nejaky instalak a ten me zacal zbesile neco odklikavat
na monitoru, tak ho sestrelim a poslu do vecnych lovist.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
existuje instalator ktery zvladne i instalac i MS
[*] Ludek Finstrle <ludek.finstrle(zv)pzkagis(tec)cz> - 8.6.2004 12:58:45
> > Treba, ze by vstupy z klavesnice byly simulovany souborem,
> > ktery by clovek predem pripravil.
>
> Dost dobra cunarna !!! :))
Tohle umi AutoIt. Jde takovou vec i zkompilovat do .exe a spoustet ;o))
BTW behem toho umi cekat i na naskakovani oken a podobnych veci a
libi se mi, ze jde i vypnout vstup z klavesnice i mysi behem prubehu
toho skriptu.
Myslim, ze neco takove jde zaclenit do ruznych instalatoru.
Luf
FB - vytvareni a dropovani procedury
[*] Dalibor <dalibor(zv)torola(tec)cz> - 8.6.2004 12:08:39
Ahoj, pri kazdem spusteni programu bych potreboval dropnout proceduru a zase ji vytvorit.
Muze to delat v databazi nejakou paseku? Jsem necim omezen (poctem dropnuti, atd)?
Firebird/INTERBASE v Windows Server 2003 was: Jak
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 8.6.2004 11:56:38
Haj hou!
On 8 Jun 2004 at 11:36, Dan wrote:
> BTW, nevite nekdo, jak je to s podporou Firebird a Interbase pod systemem
> Windows Server 2003?
Firebird 1.5 and IB 7.x by meli byt bez problemu, starsi verze bezi
take, ale nekteri uzivatele meli problemy s delsim navazovanim
pripojeni k databazi.
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Firebird/INTERBASE v Windows Server 2003 was: Jak
[*] Dan <xfojtik(zv)centrum(tec)cz> - 8.6.2004 11:36:35
BTW, nevite nekdo, jak je to s podporou Firebird a Interbase pod systemem
Windows Server 2003?
Dan
>1) Bohuzel, Firebird pro Novell neni k dispozici. Posledni verze
>InterBase ktera byla i pro Novell byla IB 5.6, a pak to Borland sam
>ukoncil.
mutex, WaitForSingleObject a ReleaseMutex
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 8.6.2004 11:20:33
Karel Plechota wrote:
> mam jen drobny dotaz, zkousel jsem v jednom threadu nekolikrat po
> sobe zavolat WaitForSingleObject pro mutex a pak jedenkrat v tom
> samem threadu zavolat ReleaseMutex. WaitForSingleObject proslo vzdy
> ale ReleaseMutex neuvolnilo mutex. Teprve az pote co jsem zavolal
> ReleaseMutex tolikrat kolikrat jsem volal WaitForSingleObject se
> mutex uvolnil a jiny thread ziskal jeho vlastnictvi.
viz doc:
While a thread has ownership of a mutex, it can specify the same mutex in
additional wait-function calls without blocking its execution. This prevents
a thread from deadlocking itself while waiting for a mutex that it already
owns. However, to release its ownership, the thread must call ReleaseMutex
once for each time that the mutex satisfied a wait.
HTH, pf
mutex, WaitForSingleObject a ReleaseMutex
[*] Karel Plechota <karel.plechota(zv)seznam(tec)cz> - 8.6.2004 11:06:32
zdravim,
mam jen drobny dotaz, zkousel jsem v jednom threadu nekolikrat po sobe zavolat WaitForSingleObject pro mutex a pak jedenkrat v tom samem threadu zavolat ReleaseMutex. WaitForSingleObject proslo vzdy ale ReleaseMutex neuvolnilo mutex. Teprve az pote co jsem zavolal ReleaseMutex tolikrat kolikrat jsem volal WaitForSingleObject se mutex uvolnil a jiny thread ziskal jeho vlastnictvi.
Hm jen me zajimalo proc tomu tak je, takhle podobne by se meli chovat semafory a ne mutexy nebo se pletu? Mam se vyvarovat toho abych v jednom vlakne volal WaitForSingleObject bez ReleaseMutex?
diky
Jak nastavit Firebird pro praci v Novelu
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 8.6.2004 11:04:31
Haj hou!
On 8 Jun 2004 at 6:46, Ing. Miroslav Vopalecky wrote:
> Potrebuji zjistit, jak nastavit databazovou aplikaci pro praci v Novelu.
> Ve Win staci dat pred cestu TCP/IP adresu
> napr.:"xxx.xxx.xxx.xxx:C:\atd.." do cesty k databazi. Jak je to v
> Novelu? V knize Firebird, jsem nenasel zpusob nastaveni pro protokol
> IPX/SPX. Je rozdilna instalace Firebirdu na Novelu oproti Win? Co je
> treba na stanicich a co na serveru Novel?
> Diky za ochotu
1) Bohuzel, Firebird pro Novell neni k dispozici. Posledni verze
InterBase ktera byla i pro Novell byla IB 5.6, a pak to Borland sam
ukoncil.
2) Pro vzdaleny pristup k FB v sitich s Novellem (mezi stanicemi nebo
dalsim ne-Novellovym serverem) je zapotrebi protokol TCP/IP (ktery
Novell rovnez podporuje).
S pozdravem
Pavel Cisar (ICQ: 89017288)
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
ADMIN: Dialog pod DOSem
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 8.6.2004 10:32:28
Puvodni zprava ze dne 8.6.2004:
> PS: Je to DOS, ale snad to neni OT
DOS tu nema co delat. Prosim ukoncete debatu. Za poslednich par tydnu
to opakuji tusim potreti.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
ShellTreeView
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 8.6.2004 09:38:19
Ahoj,
Jak donutit ShellTreeView, aby kdyz nastavim cestu, netrvalo tak dlouho to
rozbaleni. Pravdepodobne za to muze disketa, na kterou to ceka, ale nevi
nekdo, jak to obejit? (pry je to kus kodu MS na disketovku jeste z dob Win
3.11)
Diky vsem.
Jiri Cincura
e-mail:
__[email]jiri(zv)cincura.net[/email]
__[email]xcincura(zv)informatics.muni(tec)cz[/email]
ICQ#:
__314711544
web:
__[url]http://www.cincura.net[/url]
__[url]http://cincura.net/photo[/url]
Dialog pod DOSem
[*] BS Info <info(zv)borkovec(tec)com> - 8.6.2004 09:28:18
Ahoj,
Turbo Vision - to uz je hoooodne dlouho, ale kdyz jsem potreboval jen
dialog bez pozadi a menu (coz je asi Tvuj pripad), mam dojem, ze jsem vysel
z nektereho examplu se splashem (snad TVEditor???) - potom se vyhodilo menu,
a nastavilo transparentni pozadi. Takovy drbani pres hlavu, ale ted po tech
letech me jinej figl nenapada.
Roman
Dialog pod DOSem
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 8.6.2004 09:26:17
>Potrebuji v DOSu naprogramovat maly dialog. Chci vyuzit Borland Pascal a
>mozna Turbo Vision. Je mozne v TV zobrazit pouze dialog a po jeho vyplneni
>program ukoncit.
>Pripadne existuje nejaka knihovna, ktera v DOSu dokaze delat libovolne velke
>dialogy.
Urcite TurboVision a bude tam i mys, delat to rucne je maso. Otazka je proc DOS?
S pozdravem Vaclav Riha
Dialog pod DOSem
[*] Radek Szurman <surad(zv)digijoe(tec)com> - 8.6.2004 09:00:14
Myslis tim jednoduche okno kde je umisteny readln ktery vyplnis a hodis
enter nebo neco jako win "Ok, Ano, Ne, Storno..." to myslim neni problem v
dosu namalovat na obrazovku :) horsi to je pak s myskou ale taky to urcite
pujde vychytat... knihoven do pro BP moc neni, ja sem se snimi ani moc
nesetkal, spis nejake proc a funkce by ti to usnadnily.
Radek Szurman
> Dobry den.
>
> Potrebuji v DOSu naprogramovat maly dialog. Chci vyuzit Borland Pascal a
> mozna Turbo Vision. Je mozne v TV zobrazit pouze dialog a po jeho vyplneni
> program ukoncit.
> Pripadne existuje nejaka knihovna, ktera v DOSu dokaze delat libovolne
velke
> dialogy.
>
> Predem dekuji JN
>
> PS: Je to DOS, ale snad to neni OT
>
>
>
>Dialog pod DOSem
[*] delphi(zv)spst(tec)cz - 8.6.2004 08:54:13
Dobry den.
Potrebuji v DOSu naprogramovat maly dialog. Chci vyuzit Borland Pascal a
mozna Turbo Vision. Je mozne v TV zobrazit pouze dialog a po jeho vyplneni
program ukoncit.
Pripadne existuje nejaka knihovna, ktera v DOSu dokaze delat libovolne velke
dialogy.
Predem dekuji JN
PS: Je to DOS, ale snad to neni OT
Jak nastavit Firebird pro praci v Novelu
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 8.6.2004 08:22:11
Ing. Miroslav Vopalecky dne 8 Jun 2004 v 6:46:
> Ahoj.
> Potrebuji zjistit, jak nastavit databazovou aplikaci pro praci v
> Novelu. Ve Win staci dat pred cestu TCP/IP adresu
> napr.:"xxx.xxx.xxx.xxx:C:\atd.." do cesty k databazi. Jak je to v
> Novelu? V knize Firebird, jsem nenasel zpusob nastaveni pro protokol
> IPX/SPX. Je rozdilna instalace Firebirdu na Novelu oproti Win? Co je
> treba na stanicich a co na serveru Novel? Diky za ochotu S pozdravem
> Mirek Vopalecky, D7 W2000
Ahoj,
Ty jsi nekde nasel FireBird, ktery beha na Novellu, primo na serveru? Zatim jsme i v jinak
novellovskych sitich kvuli nemu vsude meli stanici s Win2000 a spojeni pak bylo normalne po
TCP/IP. Stanice v podstate nemusi byt ani na NW server nalogovana, i kdyz kvuli zalohovani jsme
logovani delali.
Karel Rys
QuickReport - ulozeni do souboru
[*] Petr Reichl <meap-conf(zv)meap(tec)cz> - 8.6.2004 08:18:10
Tak jsem se rozhodl jit na to pres dedicnost. Proste si podedit objekt
TQRRTFExport a prepsat metodu, ktera exportuje. Jenomze mam mensi
problemek s instalaci ...
Pouze jsem vytvoril tridu odvozenou od TQRRTFExport a pokud to normalne
zkompiluji tak to projede, ale QuickReport si to nevezme. Musim to asi
nainstalovat jako vizualni komponentu, ale pokud vytvorim novy balicek,
nebo pridam do stavajiciho, tak i kdyz pridam potrebne zavislosti tak to
proste nejde zkompilovat a pise to ze nenachazi tridu z ktere dedim ....
Neni nekomu z vas z meho popisu jasne co delam spatne?Jak nastavit Firebird pro praci v Novelu
[*] Ing. Miroslav Vopalecky <m.vopalecky(zv)tiscali(tec)cz> - 8.6.2004 06:46:03
Ahoj.
Potrebuji zjistit, jak nastavit databazovou aplikaci pro praci v Novelu.
Ve Win staci dat pred cestu TCP/IP adresu
napr.:"xxx.xxx.xxx.xxx:C:\atd.." do cesty k databazi. Jak je to v
Novelu? V knize Firebird, jsem nenasel zpusob nastaveni pro protokol
IPX/SPX. Je rozdilna instalace Firebirdu na Novelu oproti Win? Co je
treba na stanicich a co na serveru Novel?
Diky za ochotu
S pozdravem Mirek Vopalecky, D7 W2000 Alternativa k MDI
[*] martin <matrix(zv)inmail(tec)cz> - 7.6.2004 23:05:29
>> Na MDI mi vadi:
> A pridej jeste problem s mizejicimi a obcas se zakazujicimi tlacitky pro
> minimize/maximize/close ... (ale i toto se da obejit)
... a to este neviem co ma caka.
Preto Vas prosim, ak mate niekto uz vychytane muchy okolo MDI a
nebranite sa opensource, poslite kusky kodu, pripadne ucelenu unitu,
hoci na sukr.mail, mno myslim ze to tu potesi kazdeho.
Mozno otazka na P.Vonese - nie je nieco ohladom MDI aj sucastou JCL
alebo JVCL ? Zatial som to tam nenasiel, mozno zle hladam.
Vdaka.M.