Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Problem export & cestina
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 29.4.1999 14:20:37
TXT:
v .sch je treba nastavit CharSet= Czech resp. CSKamen
Problem je, ze pri batCopy se .sch vytvari automaticky a vzdy (alespon starsi verze Delphi resp. BDE, ted jsem to dlouho nezkousel) s CharSet=Ascii.
Takze .sch si vytvorim sam, vytvorim prazdny soubor a batAppend.
Funguje spolehlive.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Ivo Janal�k <janalik(zv)nam(tec)cz>
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: FW: Problem export & cestina
> Datum: 27. dubna 1999 14:18
>
> Preji hezky den,
> potreboval bych poradi s nasledujicim problemem:
> Provadim export dat z InterBase SQL serveru do tabulek .txt a .dbf. Vse je v poradku az
> na cestinu. Zkousel jsem vypinat nebo zapinat vlastnost komponenty TBatchMove Transliterate
> bez jakehokoliv efektu (zadna zmena neni v exportovanych tabulkach viditelna).
> Podobne jsem se snazil ruzne nastavovat DBase driver v ramci BDE Administratora.
> V nalezene historii konference jsem nenasel zadnou konkretni informaci.
> Budu vdecny za jakoukoliv radu.
>
> Dekuji Radek Urbanczyk.Jak vyjmout ZASTUPCE
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 29.4.1999 14:28:09
Nevite nahodou nekdo, jakym zpusobem by se dal vyjmout item Create Shortcut
v submenu New z kontextoveho menu plochy Windows ?
Diky za namety.
PK
problemik...
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 29.4.1999 15:02:55
> -----Original Message-----
> From: Pavel M. [mailto:talema(zv)top(tec)cz]
> Sent: Thursday, April 29, 1999 1:09 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: problemik...
>
>
> Naopak POUZE nas kalendar uvadi, kuprikladu letos, prvni tyden
> od 1. ledna, ostatni zahranicni firmy (mam nemecky, irsky a holansky
> kalendar) se shoduji na tom, ze prvni tyden je od 4. ledna. Oni totiz
> pocitaji PRACOVNI tydny a v tom NASEM prvnim tydnu se jaksi
> nepracuje.
Je to tim, ze to jsou pracovni kalendare, nebo je hlavnim smyslem
zivota inostrancu prace? (inostranci : rusky 'cizinci' - pozn. pro mladsi
ctenare)
> v tom NASEM prvnim tydnu se jaksi
> nepracuje.
to si beres od 2. nekdy az do 5. ledna dovolenou?
> Tolik na vysvetlenou. Pro me jsou naopak nepouzitelne
> vsechny ceske kalendare, neb evropa je jeden tyden "POZADU".
> Proste zalezi na tom co se mysli tim prvnim tydnem.
Vzdycky prvni tyden, ne prvni cely tyden (alespon Cesi a Moravaci).
Protoze kdyz na dovolene na Havaji nekdo rekne "jsem tu prvni den",
znamena to, ze prijel dnes a ne uz vcera (pred zacatkem
dnesniho dne).
Jiri Polak
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Look file has ground...
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 29.4.1999 15:15:06
Zdravim,
prosim o radu . V posledni dobe se nam stava, ze s narustajicim poctem dat se objevi
hlaska :"Look file has ground to large".
Je to pravdepodobne na SQL dotazu na tabulkach PARADOX.
Diky za kazdou radu.
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
http://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================
Rychlejsi SQL dotaz
[*] Pavel M. <talema(zv)top(tec)cz> - 29.4.1999 15:32:04
Je to uplne stejne pomale i kdyz ty data zpracuju lokalne, takze vliv site
jsem vyloucil.
Jak dobre jsou zpracovany tabulky a vazby nevim, datovy model jsem
nezpracovaval, protoze
nevim co se tim mysli. Ja pisu spis pro radost ne pro obzivu (nastesti -
umrel bych hlady).
Zkousel jsem to na rychlejsim stroji Pentium 350 a tam to trva 5-7s, takze
se zda, ze je
to v hrubem pocetnim vykonu.
Jak se da optimalizovat - vytvaret datovy model ? Jsou pro to nejaka
zvlastni pravidla ?
Pavel
-----P�vodn� zpr�va-----
>Z "select ... from cosi.db"
>soudim, ze to bezi nad Paradoxem.
>
>Uvedom si prosim, ze cely select se vyhodnocuje na klientovi, klient saha
do file systemu serveru, kde jsou ulozena data: probira indexy (ale fyzicky,
jako diskove clustery), data (totez) a vsechno po siti taha k sobe na
pocitac, aby teprve vyhodnotil, zda jsou podminky splneny.
>
>Jakykoli SQL server by to vyresil radove rychleji.
>
>Pak jeste jedna otazka: jsou dobre navrzeny tabulky a jejich vazby? Datovy
model jsi zpracoval?
>
upresneni problemiku...
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 29.4.1999 15:41:57
On Thu, 29 Apr 1999, Polak Jiri wrote:
> resp tyden je jednoznacne urcen usporadanou dvojici (Tyden, Rok),
> pricemz usporadane dvojice (53, Rok), (1, Rok + 1) jsou ekvivalentni,
> tedy identifikuji stejny tyden.
Takze uz jenom staci zavest tridy ekvivalence a provest prislusnou
faktorizaci...
:-)))
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
UNIX
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 29.4.1999 15:44:42
Ahoj,
mam program psany v pascalu (lze prelozit v DOS BP7 i DELPHI,
puvodne byl jako DLL pro aplikaci pod Windows) a potreboval bych ho spoustet
pod UNIXem na stanici AIX 4.2.1. Doslechl jsem se o potrebe nejakeho binderu
pro obaleni EXE pri spusteni v DOS modu. Je mozne tento problem nejak resit
a program spustit? Nebo je potreba program prepsat do CC...? :(
Dekuji
Jaro B.Export do Excelu
[*] Martin Bohm <mbohm(zv)quelle.sk> - 29.4.1999 16:03:20
Zdravim
Nievie niekto o nejakej FREE componente na export dat z
TQuery,TDataSource,TTable alebo DBGridu do excelu (najlepsie 97 ale moze byt
aj starsi), pripadne nejaky dobry postup. Jedna sa o vacsie mnozstva dat
cca 10.000 - 15.000 riadkov � 15 stlpcov. Malo by to prebehnut v prijatelnej
dobe - max 3 min.
Diky za kazde Info.
Martin B�hm
mbohm(zv)quelle.sk
tel. 07/5556 88 08
Web aplikace
[*] Petr Zika <petrz(zv)rts(tec)cz> - 29.4.1999 17:30:26
Dobry den
Jeden kolega potrebuje udelat malou Web aplikaci, kter� ma pracovat asi
nasledovne
1.krok - v exploreru se zadaji nejake vstupni udaje
2.krok - podle t�chto udaju se z databaze vytahnou informace (texty)
3.krok - tyto informace se nejak naformatovane zobrazi v exploreru
tzn. ze to funguje podobne treba jako aplikace "obchodni rejstrik" (urcite
ji znate)
A ted ten dotaz. Da se neco z toho udelat v Delphi ? Nebo to nejde a je
nutne pouzit neco jineho ?
Transakce a zamky
[*] Tom� R��i�ka - 29.4.1999 17:57:57
Pred importem do tabulky (Paradox) volam StartTransaction. Pokud je vkladanych zaznamu hodne, generuje se vyjimka - prilis mnoho uzamcenych zaznamu v tabulce. V helpu jsem nasel, ze behem transakce se kazdy zaznam uzamkne a max pocet zamku je 255. Nevite nekdo, jak to obejit ?
Diky
Tomas Ruzicka
------------------------------------------------------
ruzicka(zv)com-tech(tec)cz
Prochazeni zaznamu v databazi
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 29.4.1999 18:24:56
BeforeScroll a AfterScroll na TDataSet
K udalosti DataSource.DataChange dochazi i pri jinych prilezitostech a je kdyz ne obtizne, tak predevsim "prudive" hlidat, zda to je prave ta udalost, kterou jsem chtel chytit.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
Odes�latel: Tom� R��i�ka <ruzicka(zv)com-tech(tec)cz>
Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
P�edm�t: Prochazeni zaznamu v databazi
Datum: 28. dubna 1999 14:24
Da se najak zjistit prechod ze zaznamu na jiny zaznam v tabulce?
Chtel bych reagovat na to, ze uzivatel prechazi na jiny zaznam.
Diky
Tomas Ruzicka
------------------------------------------------------
ruzicka(zv)com-tech(tec)cz
Provoz Delphi z CD-ROM
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 29.4.1999 18:28:34
Hm, tak proc sis je za ty strasny penize kupoval, kdyz je vyuzivas jenom obcas?
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
Odes�latel: Kriz David <david.kriz(zv)ccv(tec)cz>
Komu: 'Diskuse o Delphi' <delphi-l(zv)fwd(tec)cz>
P�edm�t: Provoz Delphi z CD-ROM
Datum: 27. dubna 1999 10:29
Ahoj,
vzhledem k tomu, ze Delphi 3 C-S vyuzivam jen obcas, tak jsem si rikal, ze
bych mohl usetrit spoustu mista na pevnem disku tim, ze bych je vypalil na
CD-ROM a spoustel je odtam (pod Win95 OSR2). Ale nevim co vsechno bych musel
zmenit v registrech a jinych konfiguracnich souborech aby to fungovalo. A
nebo take ktere casti je nutne ponechat na pevnem disku (asi BDE?).
Nemate s tim nekdo zkusenosti?
____________________________________
Podpis (ENG:signature, DEU:unterschrift, ESP:firma)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
David K��,
CCV s.r.o., Jir�skova 43, Brno, Czech republic
mailto:david.kriz(zv)ccv(tec)cz
http://www.ccv(tec)cz
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
----------
Query + update
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 29.4.1999 18:33:49
Query c.2 (Update, Insert) sice funguje, ale proc tak slozite?
Na Query c.1 muzes navazat Table (nebo editovatelnou Query) a jit do databaze primo z DBControls.
Pripadne to muzes zkusit pres TUpdateObject (ale ja to nepouzivam).
Jinak "refresh" na Query c.1 skutecne nelze jinak, nez otevrit a zavrit. Zkus se zeptat uzivatele, co vlastne chce delat a videt (ktere polozky).
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Query + update
> Datum: 25. dubna 1999 16:05
>
> Mam Query, ktere neni editovatelne. Z nej zobrazuju data v Gride.
> Pak mam 2. query pro aktualizaci aktualniho radku z 1.Query.
> V nem posilam UPDATE nebo INSERT proceduru (abych dostal
> zpatky vygenerovany primarni klic). Jak ale pridam ten
> novy zaznam do toho prvniho Query, bez toho abych ho musel zavrit
> a znovu otevrit (to trva moc dlouho).
>
> +------------------------+
> | Ing. Petr Jezek |
> | Kuzmanyho 8 |
> | 010 01 Zilina |
> | Slovakia |
> | mailto://petr(zv)sevis.sk |
> +------------------------+Retezcovy problem
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 29.4.1999 18:42:19
Nebudu se poustet do algoritmizace.
Pouze upozornuji na indexovanou property TStrings.Values[...]
A bude to hracka...
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Jaro <jaro(zv)sinea(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Retezcovy problem
> Datum: 25. dubna 1999 16:40
>
> Ja bych to asi nejprve prevedl na StringList,
> kde kazdy radek by obsahoval jeden udaj
> SList1.Add(prvni="pokus1");
> SList1.Add(druhy="pokus2");
> atd.
> Pak se to zjednodusi, protoze lze vyuzit dalsi metody pro TStringList
> napr. SList1.Delete[(SList1.IndexOf(''prvni'))];
> Vlastnost Text pak vrati cely retzec nebo to lze znovu slozit
> sectenim zbylych polozek.
> Jaro
>
>
>
> >Zdravim,
> >
> >prosim o radu. Potrbuji porovnat dva retezce:
> >
> >RETEZEC1: 'prvni druhy treti'
> >
> >RETEZEC2: 'prvni="pokus1" druhy="pokus2" treti="pokus3"
> dalsi="pokus4"
> >nejakydalsi="pokus5"'
> >
> >Vysledkem by mel byt RETEZEC2 bez polozek definovanych v RETEZEC1
> (vcetne
> >hodnot), cili tento retezec:
> >
> >RETEZEC3: 'dalsi="pokus4" nejakydalsi="pokus5"'
> >
> >Drbu se s tim uz peknou dobu. Poradi mi nekdo?
> >
> >Dekuji.
> >
> >
> >
> >==[ Libor Krayzel ]================================
> >http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
> >http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
> >==============================================
> >
> >Rychlejsi SQL dotaz
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 29.4.1999 18:51:29
Z "select ... from cosi.db"
soudim, ze to bezi nad Paradoxem.
Uvedom si prosim, ze cely select se vyhodnocuje na klientovi, klient saha do file systemu serveru, kde jsou ulozena data: probira indexy (ale fyzicky, jako diskove clustery), data (totez) a vsechno po siti taha k sobe na pocitac, aby teprve vyhodnotil, zda jsou podminky splneny.
Jakykoli SQL server by to vyresil radove rychleji.
Pak jeste jedna otazka: jsou dobre navrzeny tabulky a jejich vazby? Datovy model jsi zpracoval?
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Pavel M. <talema(zv)top(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Rychlejsi SQL dotaz
> Datum: 25. dubna 1999 22:10
>
> Mam tiskovou sestavu, ktera je napojena na TQuery a v nem je
> dole uvedeny SQL. Vypocet2 je jeste nalinkovan pres property DataSource
> na Vypocet1.
> Tabulka MLIST2 ma pres 20.000 zaznamu a SKLAD1 pres 5.000.
> Problem je v tom, ze to dlouho trva, na pomalejsich pocitacich (Pentium 75)
> i jednu minutu a pokud potrebuju udelat sestavu pro vice zakazek tak
> jsou z toho desitky minut.
> Je to normalni nebo by to slo nejak optimalizovat a tim urychlit.
>
> Diku za kazdy namet
>
>
> Pavel Medek
>
>
>
>
> SELECT DISTINCT D.Vypocet, D.PartNo, D.Mnozstvi, D1.PartNo, D1.Articl,
> D1.Popis, D1.MJ, D1.Pocet, D1.Mnozstvi, D1.Poznamka, D.PocetKit, D1.Pocet *
> D.PocetKit AS Pocetks, D1.Pocet * D.Mnozstvi * D1.Mnozstvi AS Potreba,
> D2.Kit
> FROM "VYPOCET2.DB" D, "MLIST2.DB" D1, "SKLAD1.DB" D2
> WHERE
> (D.Vypocet =:Vypocet)
> AND(D.PartNo =:parZakazka)
> AND (D1.PartNo = D.PartNo)
> AND (D2.Articl = D1.Articl)
> AND (D2.Kit = 'A')
> AND (D1.Articl > '102999')
> ORDER BY D.Vypocet, D.PartNo, D1.Articl
problemik...
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.4.1999 18:57:48
Polak Jiri wrote:
> Ted mne napadlo - ten zlomovy tyden, ktery je zaroven prvni a
> padesatytreti je vubec zajimavy. Napr. 1.1. patri do prvniho tydne sveho
> roku a zaroven do posledniho tydne predchoziho roku. Naopak, posledni dny
> predchozicho roku patri do prvniho tydne nasledujiciho roku. To je tak
> trochu bordel. Nebylo by lepsi zavest tydny s promenlivou delkou, aby na
> krajich roku nedochazelo k prekryti? :-) Byl by tam ale dalsi problem.
> Kdyby se reklo jednodenni tyden, nikdo by nevedel jestli mame na mysli
> prvni nebo posledni tyden v roce. Teda jestli tim jedinym dnem v tydnu je
> nedele nebo pondeli.
:-))))))))))))))) Tohle je skoro na petici parlamentu. Ale obavam se,
ze kdyz neni schopen vyresit i takove prkotiny, jako je zruseni
letniho casu, ze by na tomhle zcela zkolaboval.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Cestina, Logspace
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.4.1999 18:57:48
Milevsk� software, s.r.o. wrote:
> 1, Radim databazovou tabulku.Vse je v poradku, dokud nazacinaji zaznami
> hackama. Pak si radi server zaznamy s hackama kam chce (napr. � pred
> A,...). Nevite jak na to? Asi to bude naka prkotina, ze jo!?
"zaznami" - ano s cestinou byvaji nekdy potize. :-)
Zalezi na tom, co je to za databazi. Ale me vzdy pomohlo
nastaveni jazykoveho drajvu. A ted podle situace, v BDE urcite,
pripadne jeste v databazi, pokud neco takoveho ma.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Sloupec v DBGrid
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 29.4.1999 18:57:01
DBGrid.OnTitleClick:
Table.IndexFieldNames:=Column.FieldName;
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: petrhalamicek(zv)email(tec)cz
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Sloupec v DBGrid
> Datum: 29. dubna 1999 9:10
>
> Zdrav�m v�echny.
> Hele, jak m��u poznat, na kterou hlavi�ku sloupce v DbGridu u�ivatel
> klikne. Chci toti� dle kliknut� na hlavi�ku DbGridu t��dit data. D�ky moc.
>
> --- CREATED BY ATC O..R..G..A..N..I..Z..E..R
> --- http://email(tec)cz <--- Get Your Free Email
Export do Excelu
[*] Delphi Konferencia <delphi(zv)enterkosice.sk> - 29.4.1999 19:01:26
>Nievie niekto o nejakej FREE componente na export dat z
>TQuery,TDataSource,TTable alebo DBGridu do excelu (najlepsie 97 ale moze
byt
>aj starsi), pripadne nejaky dobry postup. Jedna sa o vacsie mnozstva dat
>cca 10.000 - 15.000 riadkov � 15 stlpcov. Malo by to prebehnut v
prijatelnej
>dobe - max 3 min.
>
Formula One v zalozke ActiveX - vo verzii 5.0.4 umoznuje
export / import z / do Excel 4,5 a 7, html a podobne. Neviem,
aku verziu pouziva D3,4, treba skusit.
Nacitanie dat z tbl do F1 je velmi jednoduche a rychle.
F1 obsahuje 2 objeky: F1Book - normalny a -F1BookView neviditelny.
Ale hovorim - treba zistit, ako je to s tymi "zdarma" v D2,3,4
forgo
WinExec
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 29.4.1999 19:13:16
WinExec(PChar(Prom),1)
WinExec je vsak ve Win32 pouze kvuli kompatibilite s Win16, doporucuje se pouzivat CreateProcess(...).
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Lukas Marsalek <MARSALEL.vos97(zv)vsps-su(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t:
> Datum: 27. dubna 1999 10:34
>
> Caute lidi,
>
> Mam problem s tim, ze chci prikazem "winexec(prom,1)" spoustet
> program, jehoz cesta je ulozena v promenne "prom". Pri spusteni ovsem
> program hlasi behovou chybu "Incompatible types PChar and String"
> Da se s tim neco delat ?UNIX
[*] muher(zv)csas(tec)cz - 29.4.1999 19:27:00
Zkus hledat "fpc". Mel by to byt "Free Pascal Compiler" pro
vice platforem. Nic jineho mne nenapada ...
> -----Original Message-----
> From: Bene� Jaroslav [SMTP:JBenes(zv)cpoj(tec)cz]
> Sent: Thursday, April 29, 1999 3:45 PM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: UNIX
>
> Ahoj,
> mam program psany v pascalu (lze prelozit v DOS BP7 i DELPHI,
> puvodne byl jako DLL pro aplikaci pod Windows) a potreboval bych ho
> spoustet
> pod UNIXem na stanici AIX 4.2.1. Doslechl jsem se o potrebe nejakeho
> binderu
> pro obaleni EXE pri spusteni v DOS modu. Je mozne tento problem nejak
> resit
> a program spustit? Nebo je potreba program prepsat do CC...? :(
>
> Dekuji
>
> Jaro B.Web aplikace
[*] Lubos <bruce(zv)pobox.sk> - 29.4.1999 19:30:06
> Jeden kolega potrebuje udelat malou Web aplikaci, kter� ma pracovat asi
> nasledovne
> 1.krok - v exploreru se zadaji nejake vstupni udaje
> 2.krok - podle t�chto udaju se z databaze vytahnou informace (texty)
> 3.krok - tyto informace se nejak naformatovane zobrazi v exploreru
> tzn. ze to funguje podobne treba jako aplikace "obchodni rejstrik" (urcite
> ji znate)
> A ted ten dotaz. Da se neco z toho udelat v Delphi ? Nebo to nejde a je
> nutne pouzit neco jineho ?
hmhm, nepoznam obchodny register, ale toto vyzera velmi jednoducho.
Skoda na to mrhat sily a robit to v DELPHI (aj ked to ide urobit aj v DELPHI).
Najpravdepodobnejsie kolega pouziva ako web server MS IIS, a tam sa to da
velmi rychlo a elegantne vyriesit cez ASP alebo IDC/HTX.
/LH
SYS TRAY
[*] Paja <delphi4(zv)seznam(tec)cz> - 29.4.1999 19:31:38
Nazdar kucii
vim ze jsem spaten a ze nejsem hoden ale nejsem schopen nekde najit ukazku
na ten systray a tak timto zadam nejake dobraky aby mne obohatioli o ukazku
na to jak ikonku do systraye
diky moc Paja
Web aplikace
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 29.4.1999 19:32:12
Da se to udelat v Delphi, dokonce i bez Delphi.
Prave jsme si to 26.-28.4. v Laznich Belohrade probirali...
O moznych resenich se da efektivne mluvit prave tak ty 3 dny...
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
> Odes�latel: Petr Zika <petrz(zv)rts(tec)cz>
> Komu: Konference Delphi (el. adresa) <delphi-l(zv)fwd(tec)cz>
> P�edm�t: Web aplikace
> Datum: 29. dubna 1999 17:30
>
> Dobry den
>
> Jeden kolega potrebuje udelat malou Web aplikaci, kter� ma pracovat asi
> nasledovne
>
> 1.krok - v exploreru se zadaji nejake vstupni udaje
> 2.krok - podle t�chto udaju se z databaze vytahnou informace (texty)
> 3.krok - tyto informace se nejak naformatovane zobrazi v exploreru
>
> tzn. ze to funguje podobne treba jako aplikace "obchodni rejstrik" (urcite
> ji znate)
>
> A ted ten dotaz. Da se neco z toho udelat v Delphi ? Nebo to nejde a je
> nutne pouzit neco jineho ?
>Web aplikace
[*] Roman Fi�er <fiser(zv)gbn(tec)cz> - 29.4.1999 20:07:18
Zdravim,
Podle dotazu soudim, ze toho o HTML moc nevis takze ma rada bude trosku
delsi:
ad 1:
V nejakym HTML editoru (napr. notepad :-) si vytvoris stranku ve ktere bude
neco na zpusob tohoto:
<HTML>
<HEAD><TITLE>Vstupni data pro formular</TITLE></HEAD>
<BODY bgcolor="white">
Zadejte vstupni hodnoty:<P>
<FORM action="aplikace.exe" method="POST">
Jmeno: <INPUT NAME="jmeno" SIZE="10"><BR>
Prijmeni: <INPUT NAME="prijmeni" SIZE="10"><P>
atd..
<INPUT TYPE=submit value="odeslat">
</FORM>
</BODY></HTML>
Tohle ulozis nekam na server.
ad 2 a 3:
pokud tvuj server podporuje Cgi muzes to udelat v Delphi (konzolov�
aplikace) takto:
readln(neco); // var neco = string v tom se ti vrati to co si zadal do
predchozi html stranky
// v tomoto tvaru jmeno=Jan&prijmeni=novak to si
nejak zformatujes
// pak tomu jednoduse vratis to co potrebujes pomoci
std vystupu formatujes jako html stranku,
// povinny sou pouze ty dva prvni radky
writeln('content-type = text/plain');
writeln;
Writeln('<HTML><HEAD><TITLE>Vracene hodnoty</TITLE></HEAD>');
writeln('<BODY bgcolor=white>');
writeln('Zde jsou hodnoty ktere jste chteli vedet :<BR>');
writeln('I�O:'+table1.fieldbyname('ICO').AsString+'<BR>');
writeln('</BODY></HTML>');
a mas to hotovo. Tohle si ulozis jako soubor aplikace.exe do stejneho
adresare na serveru ve kterym mas tu predchozi html stranku musis to ulozit
do adresare, ktery ma povoleno vyhodnocovani cgi obvykle to byva
/cgi-bin.
pokud server nepodporuje cgi pak mas nekolik dalsich moznosti
ActiveServerPages,PHP,...) ale to uz sem nepatri.
Pokud se tomu budes chtit venovan vice, doporucuji vrele CgiExpert
(http://www.cgiexpert.com) v mnohem ti muze usnadnit praci a jedna z jeho
verzi je free.
Pokud ti neco nebude jasny (HTML, Delphi,..) tak mi klidne napis na muj
soukromy email.
---------------------------------------------------
- Roman Fiser jr.
- programatorska skupina NGSoft
- software nove generace
- fiser(zv)gbn(tec)cz www.gbn(tec)cz/ngsoft
---------------------------------------------------
telefon: 0301/24632, ICQ: 25542226
----- Original Message -----
From: Petr Zika <petrz(zv)rts(tec)cz>
To: Konference Delphi (el. adresa) <delphi-l(zv)fwd(tec)cz>
Sent: 29. dubna 1999 17:30
Subject: Web aplikace
Dobry den
Jeden kolega potrebuje udelat malou Web aplikaci, kter� ma pracovat asi
nasledovne
1.krok - v exploreru se zadaji nejake vstupni udaje
2.krok - podle t�chto udaju se z databaze vytahnou informace (texty)
3.krok - tyto informace se nejak naformatovane zobrazi v exploreru
tzn. ze to funguje podobne treba jako aplikace "obchodni rejstrik" (urcite
ji znate)
A ted ten dotaz. Da se neco z toho udelat v Delphi ? Nebo to nejde a je
nutne pouzit neco jineho ?Pozastaveni a podle potreby pokracovat (Komponenta
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 29.4.1999 21:00:28
Preji vsem pekneho dne,
potrebuji mj. kopirovat data nejakym zpusobem na vice disket.
Chci na to udelat komponentu, ktera bude mit vlastni udalost, treba
OnFloppyChange. Sem si uzivatel zapise volani vlastniho formulare
a po navratu mi do nejake promenne zapise, zda chce pokracovat,
ci nikoliv (podobne jako OnCloseQuery, kde se predava, zda
opravdu skoncit).
Komponenta by mela byt nevizualni, na vse bych chtel udelat
udalosti, kde by si uzivatel zadal dialog, jaky potrebuje a vse si
udelal, jak se mu zlibi.
Z toho plyne nekolik dotazu:
1) jak zaridit vlastni udalost?
2) jak udelat neco takovehoto:
Pokracovat := False;
repeat
repeat .. until podm;
if not hotovo then
vyvolani OnFloppyChange(..., var Pokracovat: Boolean); <--- jak
udelat toto?
until hotovo or Pokracovat;
Predem dekuji za jakekoliv podmety.
Slavek
----------------------------------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
----------------------------------------------------------------------------
JAK ZAVRIT DIALOG PRO NASTAVENI CASU A DATUMU
[*] Paja <delphi4(zv)seznam(tec)cz> - 29.4.1999 21:07:46
Diky to mi staci
Jo a myslel jsem tim ten dialog z kontrolnich panelu ale mam dalsi problem
nedokazu pouzit prikazz findwindow(asi mi neco unika(ps jak zjistit
classokna))
-----P�vodn� zpr�va-----
Od: Kolar Lubor <LuborK(zv)tnet(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 29. dubna 1999 10:19
P�edm�t: Re: JAK ZAVRIT DIALOG PRO NASTAVENI CASU A DATUMU
>To ne. Urcite bylo mysleno ten dialog z kontrolnich panelu. Ja bych to
resil tak, ze bych si pres FindWindow nasel handle toho okna, pokud bych ho
nasel a chtel zavrit, poslu mu WM_CLOSE.
>Lubor bIRDIE Kolar
>====================
>GSM Phone: +420-603-410019
>ICQ: 18587772
>----- Original Message -----
>From: Bednarcik Dalibor <d.bednarcik(zv)vpfm(tec)cz>
>To: <delphi4(zv)seznam(tec)cz>; <delphi-l(zv)fwd(tec)cz>
>Sent: 29. dubna 1999 8:11
>Subject: Re: JAK ZAVRIT DIALOG PRO NASTAVENI CASU A DATUMU
>
>
>
>
>-----P�vodn� zpr�va-----
>Od: delphi4(zv)seznam(tec)cz <delphi4(zv)seznam(tec)cz>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 29. dubna 1999 8:35
>P�edm�t: JAK ZAVRIT DIALOG PRO NASTAVENI CASU A DATUMU
>
>
>>
>>
>>
>>
>>Nazdar delphini
>>
>>Mam zase jeden asi blbej dotaz : kdyz uz jsem ten dialog pro nastavovani
>>casu a daumu spustil tak bych chtel zase neja zjistit ze je otevren a
>>popripade ho ukoncit s ukoncenim meho programu.
>>
>>
>>
>>Dikec za vse, Paja
>>
>>
>>
>
> Nejlepsi je tan formular otevrit showmodal..
>
>begin
> NastaveniCasuForm.ShowModal;
>end;
>
>
>No a pak v samotnem formulari pri stisku nejakeho talcitka dat Close;
>
>procedure NastavneiCasuForm.OKTlBtnClick;
>begin
> close;
>end;
>
>Nebo je nejakej duvod nepouzit ShowModal?
>
>
>
>ZAPIS CTENI PAMETI II
[*] Paja <delphi4(zv)seznam(tec)cz> - 29.4.1999 21:14:32
No tak sorry (jako v redmeatu - ja popleta) to sesnad muze stat me nenebo
nekomu jinemu.
Jinak to tim nebylo protoze zas az tak blbej nejsem.
Takze ted uz je to dobre tak mi teda porad jestli neumis jenom I Y!
-----P�vodn� zpr�va-----
Od: Jan Fiala <fiala(zv)infos(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 29. dubna 1999 8:08
P�edm�t: Re: ZAPIS CTENI PAMETI II
>
>-----P�vodn� zpr�va-----
>Od: Paja <delphi4(zv)seznam(tec)cz>
>Komu: Delphi <delphi-l(zv)fwd(tec)cz>
>Datum: 29. dubna 1999 6:50
>P�edm�t: ZAPIS CTENI PAMETI II
>
>
>> Nazdar lidi,
>>tak se zase ozyvam s tou zatracenou pameti. Jak vyplynulo z vasich
odpovedi
>>tak asi nejlepsi je vyuzit API fci a to READMEMORYPROCESS nebo
>>WRITEMEMORYPROCESS takze jsem se o to pokusil ale furt to nebere moje
>zadani
>>tak vas tedy zadam o nejakou nazornou ukazku dosazeni do teto fce
>>
>>Predem dekuju Paja
>
>Pokud jsi to psal jako v tomto mailu, tak se nediv. zkus misto MEMORI
napsat
>MEMORY
>
>===============================
> ing. Jan Fiala fiala(zv)infos(tec)cz
> Prog-Soft s.r.o. Plzen
> INFOS - informacni system pro napojare
>===============================
>
>
JAK ZJISTIT CLASSNAME OKNA
[*] Paja <delphi4(zv)seznam(tec)cz> - 29.4.1999 21:16:05
Nazdar lidi,
mam zase dotaz, nepodarilo se mi furt rozbehat findwindow protoze neznam
classname okna ktere jsem nenaprogramoval
muzete mi nekdo poradit??
kdyz jsem to zkousel pres getclassname tak to nechodilo.
proto muzete mi nekdo napsat kousek programu?
Budu vam moc vdecnej.
Diky a Cao Paja
UNIX
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 29.4.1999 21:26:04
Thu, Apr 29, 1999 ve 03:44:42PM +0200 Bene� Jaroslav napsal:
# Ahoj,
# mam program psany v pascalu (lze prelozit v DOS BP7 i DELPHI,
# puvodne byl jako DLL pro aplikaci pod Windows) a potreboval bych ho spoustet
# pod UNIXem na stanici AIX 4.2.1. Doslechl jsem se o potrebe nejakeho binderu
# pro obaleni EXE pri spusteni v DOS modu. Je mozne tento problem nejak resit
# a program spustit? Nebo je potreba program prepsat do CC...? :(
mimo fpc (jak je psano dal) existuje i moznost pustit dosemu (ale to neni
pro AIX ale pro Linux), uvnitr ktereho to pobezi jako EXE
m.s.FINDWINDOW
[*] Paja <delphi4(zv)seznam(tec)cz> - 29.4.1999 21:47:19
ok Vse je v poradku ja jsem jenom neumel pouzivat pchar
Sloupec v DBGrid
[*] Jaro <jaro(zv)sinea(tec)cz> - 29.4.1999 21:53:36
To je snadne. Udalost OnTitleClick obsahuje promennou Column: TColumn
Muze to byt treba takto:
procedure TFormCeny.DBGrid1TitleClick(Column: TColumn);
begin
case Column.Field.Index of
0: Prvni pole;
1: .....
.......
end;
end;
-----P�vodn� zpr�va-----
Od: petrhalamicek(zv)email(tec)cz <petrhalamicek(zv)email(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 29. dubna 1999 9:50
P�edm�t: Sloupec v DBGrid
>Zdrav�m v�echny.
>Hele, jak m��u poznat, na kterou hlavi�ku sloupce v DbGridu u�ivatel
>klikne. Chci toti� dle kliknut� na hlavi�ku DbGridu t��dit data. D�ky
moc.
>
>--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
>--- http://email(tec)cz <--- Get Your Free Email
>
>Prochazeni zaznamu v databazi
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 29.4.1999 22:07:38
Zkus si projit udalosti u TDataSource.
eL..
-----P�vodn� zpr�va-----
Od: Tom� R��i�ka <ruzicka(zv)com-tech(tec)cz>
Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Datum: 29. dubna 1999 6:46
P�edm�t: Prochazeni zaznamu v databazi
Da se najak zjistit prechod ze zaznamu na jiny zaznam v tabulce?
Chtel bych reagovat na to, ze uzivatel prechazi na jiny zaznam.
Diky
Tomas Ruzicka
------------------------------------------------------
ruzicka(zv)com-tech(tec)cz
Hledani v archivu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.4.1999 22:16:32
Martin STEFFEK wrote:
>
> Zdravim Vas panove
>
> Napiste mi prosim, jak vyhledavat ve Vasem archivu. Potrebuji
> zjistit seriove cislo vlozeneho CD v D3.
>
http://www.delphi(tec)cz a pak klikni na Konference
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Nove telefonni spojeni]
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.4.1999 22:18:27
Marek Soukup wrote:
>
> --------------------------------------------------------------------------------------------
>
> Subject: Nove telefonni spojeni
> Date: Wed, 28 Apr 1999 11:26:50 +0200
> From: Marek Soukup <marek(zv)comberg(tec)cz>
> Organization: Comberg s.r.o.
> To: Delphi konference <delphi-l(zv)fwd(tec)cz>
>
> Ahoj lidi,
> potreboval bych udelat program, ketry by mi vytvoril nove telefonicke
> pripojeni k Internetu. Vyplnilo by se par udaju na nejakem formulari a
> pak by se ty hodnoty poslaly jako parametry a podle nich by se to
> spojeni vyplnilo. Kterym smerem se mam zacit stourat.
Ahoj,
Toto se dela pomoci RAS funkci, existuje na to i par komponent. Napriklad
na DSP hledej soubor rascmp30.zip
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Message Viewer
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 29.4.1999 22:19:49
Jestli mohu poprosit take o zaslani na eL_z_Prahy(zv)seznam(tec)cz
Predem velmi dekuji.
eL..
-----P�vodn� zpr�va-----
Od: SPELZA s.r.o. <spelzasro(zv)brno.comp(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 28. dubna 1999 17:09
P�edm�t: Re: Message Viewer
>Bu� t� dobroty a po�li mi to na svehla(zv)atlas(tec)cz nebo spelzasro(zv)brno.comp(tec)cz
>.
>D�k. Jara.
>
>-----P�vodn� zpr�va-----
>Od: Vaclav Sazima <sazima(zv)comp(tec)cz>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 28. dubna 1999 11:43
>P�edm�t: Re: Message Viewer
>
>
>>Ja celkem uspesne pouzovan Spyxx od Microsoftu. Mam dojem, ze je to
>>jen jedno exe a jedno dll, celkem asi 400KB. Chces to poslat ?
>> Vaclav Sazima
>>
>>SPELZA s.r.o. wrote:
>>>
>>> Ahoj Delphisti,
>>> pot�eboval bych free message viewer, n�co jak WinSight, pro D4Std. M�m
>sice
>>> WinSight z BP ale ten v�dycky "zatuhne". Nev�te o n��em?
>>> Jara.
>>> svehla(zv)atlas(tec)cz
>
>
Look file has ground...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.4.1999 22:29:57
Martin Lasevic wrote:
>
> Zdravim,
>
> prosim o radu . V posledni dobe se nam stava, ze s narustajicim poctem dat se objevi
> hlaska :"Look file has ground to large".
>
> Je to pravdepodobne na SQL dotazu na tabulkach PARADOX.
>
> Diky za kazdou radu.
Ahoj,
O tomto problemu se pise tady:
http://www.borland.com/devsupport/bde/ti_list/TI2993.html
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
API OpenProcess
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.4.1999 22:29:51
Jano wrote:
> diky za priklady, ale stale mi vyskakuje ta ista chyba, co doteraz.
> Pri preklade mi vyhlasuje chybu, napriklad:
> Undeclared identifier: "PROCESS_TERMINATE" Je mi jasne, ze
> ide o neznamu premennu. Ja si myslim, ze problem je v tom, ze v
> klauzule uses mi "NIECO" asi chyba. A prave to "NIECO" neviem
> a API help mi v tom nepomoze, nic okolo toho tam nie je, alebo som
> zle hladal. Preto mi islo o funkcny priklad. Robim chybu tu, alebo niekde
> inde? Diky za odpoved.
Ahoj,
Ta konstanta je definova ve Windows.pas, to by jsi tam prece mel mit.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
JAK ZJISTIT CLASSNAME OKNA
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.4.1999 22:30:20
Paja wrote:
>
> Nazdar lidi,
> mam zase dotaz, nepodarilo se mi furt rozbehat findwindow protoze neznam
> classname okna ktere jsem nenaprogramoval
> muzete mi nekdo poradit??
> kdyz jsem to zkousel pres getclassname tak to nechodilo.
> proto muzete mi nekdo napsat kousek programu?
> Budu vam moc vdecnej.
Ahoj,
Muzes to zjistit aplikaci WinSight32 ktera je soucasti Delphi (ted
presne nevim jestli je i ve Standard). Nebo k tomu muzes pouzit
priklad na prochazeni oken:
ftp://ftp.mlp(tec)cz/misc/Delphi/konference/D4/API/EnumWindows_example.zip
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************TUpDown
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.4.1999 22:30:08
Jiri Novotny wrote:
>
> Zdravim a prosim o radu!
>
> V projektu mam komponentu TUpDown pomoci niz si menim souradnice X, Y
> komponenty TImage. Muj problem spociva v tom, ze bych potreboval, aby
> TUpDown nebylo omezeno ani Max ani Min. Zkousel jsem to obejit
> ruznyma "figlama", ale zadny z nich nezabral.
> Zkousel jsem:
> 1) Dat Max = 10 a Min = 0 a pri kazdem stisku TUpDown nastavit
> natvrdo Position na 5.
> 2) Pri rozliseni kliknuti (podle btNext ci btPrev) davat Increment na
> 1 nebo -1.
> 3) Na zacatku (pri vytvareni formulare) nastavit Increment na 0 (aby
> se pozice nemenila).
Ahoj,
Podle popisu by to patrne slo vyresit nastavenim vlastnosti TUpDown.Wrap
na True.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Problem s distribuci
[*] Matej Hron <Hron.Mat(zv)seznam(tec)cz> - 29.4.1999 23:08:59
Ahoj,
Mam problem se spustenim vysledneho exe-souboru na jinem pocitaci, nez na
kterem byl vytvoren.
Po spusteni se nestane vubec nic. Neobjevi se formularove okno, ani zadne chybove
hlaseni. Jenom na hlavnim panelu se objevi ikona aplikace.
V programu pouzivam mimo jine take komponenty z WIN 3.1 jako TDirectoryListBox,
TDriveCombobox atd.. Neni nejaky problem s podporou techto komponent pod
WIN 98 ?
Matej Hron
PS: Program byl kompilovan v D4, standart
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
ZAPIS CTENI PAMETI II
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 30.4.1999 06:11:04
Ono se tezko radi, kdyz napises, ze ti nejaka funkce nebere zadani. Co
kdybys prilozil kousek zdrojaku ?
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
>>
>>-----P�vodn� zpr�va-----
>>Od: Paja <delphi4(zv)seznam(tec)cz>
>>
>>> Nazdar lidi,
>>>tak se zase ozyvam s tou zatracenou pameti. Jak vyplynulo z vasich
>odpovedi
>>>tak asi nejlepsi je vyuzit API fci a to READMEMORYPROCESS nebo
>>>WRITEMEMORYPROCESS takze jsem se o to pokusil ale furt to nebere moje
>>zadani
>>>tak vas tedy zadam o nejakou nazornou ukazku dosazeni do teto fce
>>>
>>>Predem dekuju Paja
Web aplikace
[*] Bednarcik Dalibor <d.bednarcik(zv)vpfm(tec)cz> - 30.4.1999 06:11:54
Zrovna na necem takovem delam.
Jedno z moznych reseni.....
Pokud mas Delphi 3 a vyssi s podporou pro internet tak jsou na to primo
komponenty.
Jeste k tomu potrebujes nejakej server, kterej podporuje ISAPI.
Jeden takovej server je hned v novych Windows 95 OSR2. Jmenuje se Personal
Web Server...
Nebo se na to da taky pouzit APACHE v prostredi Windows 95...
(oba servery jsem zkousel)
Pro TTable komponenta TDataSetTableProdeucer
Pro TQuery komponenta TQueryTableProducer...
Tyto komponenty se staraji o preformatovani dat z tabulek do HTML jazyka....
Primo v prostredi Delphi si sam navrhnes jak ta tabulka ma vypadat.(Barva,
font, atd...)
TQueryTableProducer ma jeste tu vyhodu....ze prebira parametry poslane s
formulare
a ty potom dosadi do Sql dotazu v TQuery.....
Vytori se vpodstate DLL knihovna, ktera se prekopiruje do adresare na
server, kde se spusteji
skripty.........
Pokud by jsi to potreboval nejak rozepsat nebo poradit
Staci rict.....
Pak
-----P�vodn� zpr�va-----
Od: petrz(zv)rts(tec)cz <petrz(zv)rts(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 29. dubna 1999 19:19
P�edm�t: Web aplikace
>
>
>
>Dobry den
>
>
>
>Jeden kolega potrebuje udelat malou Web aplikaci, kter� ma pracovat asi
>nasledovne
>
>
>
>1.krok - v exploreru se zadaji nejake vstupni udaje
>2.krok - podle t?chto udaju se z databaze vytahnou informace (texty)
>3.krok - tyto informace se nejak naformatovane zobrazi v exploreru
>
>
>
>tzn. ze to funguje podobne treba jako aplikace "obchodni rejstrik" (urcite
>ji znate)
>
>
>A ted ten dotaz. Da se neco z toho udelat v Delphi ? Nebo to nejde a je
>nutne pouzit neco jineho ?
>
>
>
>
>Jazyk pro VerInfo
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 30.4.1999 06:36:43
Ahoj,
mam v RES ulozeno VersionInfo programu (vytvoreno ve WorkShopu).
Vsechno je OK az na to, ze mi neustale pise, ze jazyk je "anglicky (USA)".
Co se nastavuje pro cestinu, aby mi to spravne ukazovalo, ze je program
cesky?
Dekuji
Jaro B.UNIX
[*] Karel Pechanec <ka.pecha(zv)pvtnet(tec)cz> - 30.4.1999 06:53:54
Zdravim...
FreePascal fpc ti si vykompiluje pascal zdroj, ale u tveho ti zrejme bude chybet
spousty knihoven
ktere si Borland pridava ke svym vyvojovym nastrojum. (cili ten zdroj urcite
neni 100% prenositelny).Mozna nekde na inetu
(http://www.brain.uni-freiburg.de/~klaus/fpc nebo
http://tfdec1.fys.kuleuven.ac.be/~michael/fpc) najdes ekvivalenty borlandovskych
nadstandartnich knihoven.
Dosemu ktery je pod linuxem, myslim jeste moc nezvlada WinAplikace (urcite to
neni ten nejlepsi zpusob pouzit ho).
Karel Pechanec
ka.pecha(zv)pvtnet(tec)cz
0602 950 525
> Ahoj,
> mam program psany v pascalu (lze prelozit v DOS BP7 i DELPHI,
> puvodne byl jako DLL pro aplikaci pod Windows) a potreboval bych ho spoustet
> pod UNIXem na stanici AIX 4.2.1. Doslechl jsem se o potrebe nejakeho binderu
> pro obaleni EXE pri spusteni v DOS modu. Je mozne tento problem nejak resit
> a program spustit? Nebo je potreba program prepsat do CC...? :(
>
> Dekuji
>
> Jaro B.
Web aplikace
[*] voltrr1.epr(zv)mail.cez(tec)cz - 30.4.1999 06:31:54
> A ted ten dotaz. Da se neco z toho udelat v Delphi ? Nebo to nejde a je
> nutne pouzit neco jineho ?
Jde to pouzit (pokud se chces podivat jak tak koukni na www.holiday(tec)cz ,
najdes tam aplikaci
InternetRIS kterou jsem udelal v Delphi) a pokud si chces praci ulehcit tak
muzes pouzit
WebProvider z Delphree (delphree.clexpert.com) ktery mas i se zdrojakem.
Pokud budes mit dotaz tak klidne napis.
Radek Voltr
voltrr1.epr(zv)mail.cez(tec)cz
Delphree WebProvider Project Coordinator
Vyhladavanie v MEMO
[*] J�n Kuch�r - 30.4.1999 08:02:39
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute
Mam nasledovny proble. Predstavte si komponentu MEMO a vnej vlozene asi styri
strany textu. V tej komponente by som potreboval vyhladat ci tam existuje nejake
slovo, ktore zada uzivatel. Problem je ako vyhladat. Chcem sa opytat ci sa to da aj
nejak inteligentnejsie ako ist pismenko po pismenku a porovnavat, alebo ci na to
nieje niekde nejaka komponenta.
Dik
Ing. J�n Kuch�r
Katedra inov�ci� a rein�inieringu
SjF TU Ko�ice
Park Komensk�ho 9, Ko�ice 041 27
tel. : 095 / 602 2589
Ciara pod menu
[*] Martin Klepoch <trexima(zv)isnet.sk> - 30.4.1999 08:30:07
M�m jednu ot�zku:
Chcel by som sa sp�ta� �i mi niekto nevie poradi� ako sa v komponentu MainMenu sprav� aby na pr�zdnom formul�ri bolo menu ukon�en� �iarou po n�m. V properties komponenty som ni� podobn�ho nena�iel.
Martin KLEPOCH
TREXIMA Bratislava, s.r.o.upresneni problemiku...
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 30.4.1999 08:34:28
Polak Jiri wrote:
> resp tyden je jednoznacne urcen usporadanou dvojici (Tyden, Rok),
> pricemz usporadane dvojice (53, Rok), (1, Rok + 1) jsou ekvivalentni, tedy
> identifikuji stejny tyden.
Ovsem s vyjimkou pripadu, kdy 31.12. je nedele a 1.1. pondeli. Na
coz musi algoritmus take myslet.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
problemik...
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 30.4.1999 08:34:27
Pavel M. wrote:
> Naopak POUZE nas kalendar uvadi, kuprikladu letos, prvni tyden
> od 1. ledna, ostatni zahranicni firmy (mam nemecky, irsky a holansky
> kalendar) se shoduji na tom, ze prvni tyden je od 4. ledna. Oni totiz
> pocitaji PRACOVNI tydny a v tom NASEM prvnim tydnu se jaksi nepracuje.
> Tolik na vysvetlenou. Pro me jsou naopak nepouzitelne vsechny ceske
> kalendare, neb evropa je jeden tyden "POZADU". Proste zalezi na tom co se
> mysli tim prvnim tydnem.
:-) Ale u nas se pracuje prece bezne i v nedeli, takze je vse v
naprostem poradku! :-)
A to nemluvim o bordelu, ze anglicanum zacina tyden uz v nedeli...
Takze je treba pocitat kalendar vzdy extra pro prostredi, pro jake
se program vyviji.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Export do Excelu
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 30.4.1999 08:35:08
>Formula One v zalozke ActiveX - vo verzii 5.0.4 umoznuje
>export / import z / do Excel 4,5 a 7, html a podobne. Neviem,
>aku verziu pouziva D3,4, treba skusit.
>Nacitanie dat z tbl do F1 je velmi jednoduche a rychle.
>F1 obsahuje 2 objeky: F1Book - normalny a -F1BookView neviditelny.
>Ale hovorim - treba zistit, ako je to s tymi "zdarma" v D2,3,4
Soucasti Delphi C/S 4 je FormulaOne Borland Edition, ta je zdarma.
Na serveru www.visualcomp.com respektive www.tidestone.com je mozne si
precist informace o Professional verzi pripadne stahnout trial.
Cena Professional verze je $99/user.
Leos
Dynamicka IP adresa
[*] Jiri Virt <virt(zv)pepa(tec)cz> - 30.4.1999 08:37:48
Ahoj,
nevite nekdo, jak se da zjistit adresa IP (tlf pripojeni) z pripojeni k
internetu.Jedna se mi o adresu pocitace, kterou ziska dynamicky od
providera.
Diky za jakekoli nasmerovani
Jirka Virt
emai: virt(zv)pepa(tec)cz
www.pepa(tec)cz
problemik...
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 30.4.1999 08:42:58
>A to nemluvim o bordelu, ze anglicanum zacina tyden uz v nedeli...
cetl jsem o pripadu, kde pondeli zacinalo uz v sobotu
:-)
D. Toman
IBObjects, FreeIBObject - alternativa k BDE
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 30.4.1999 09:11:00
Zdravim,
prave se chystam spustit dalsi projekt pod IB, a vaham, zda nepouzit
komponenty %SUB mista BDE. Prosim zverejnete informace o zkusenostech s
temito komponentami.
Diky za jakekoliv informace.
Petr Linhart, System developer (mailto://Petr.Linhart(zv)mius(tec)cz)
Mius a.s. (http://www.mius(tec)cz)
Dlouha 2940
415 01 TEPLICE
Czech Republic
Nove telefonni spojeni]
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 30.4.1999 09:27:28
Hledej na TORRY nebo DSP balicek od FPietteho rasdial.zip. Funguje vyborne.
eL..
-----P�vodn� zpr�va-----
Od: Marek Soukup <marek(zv)comberg(tec)cz>
Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
Datum: 29. dubna 1999 22:29
P�edm�t: [Fwd: Nove telefonni spojeni]>
>Provoz Delphi z CD-ROM
[*] Kriz David <david.kriz(zv)ccv(tec)cz> - 30.4.1999 09:37:45
Ja jsem je nekupoval, uz tady byly, kdyz jsem nastoupil.
> -----P�vodn� zpr�va-----
> Od: Jan �ebel�k [SMTP:honza(zv)haes(tec)cz]
> Odesl�no: �tvrtek 29. dubna 1999 17:29
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Provoz Delphi z CD-ROM
>
> Hm, tak proc sis je za ty strasny penize kupoval, kdyz je vyuzivas jenom
> obcas?
>
> Honza
> =========================================
> = HAES - RNDr. Jan Sebelik
> = http://www.haes(tec)cz
> = Skolici a konzultacni stredisko pro Delphi a Win32
> = Vojtiskova 206
> = 507 81 Lazne Belohrad
> = tel. 0434 692 931, 692 569, 0601 20 30 84
> =========================================
> ----------
> Odes�latel: Kriz David <david.kriz(zv)ccv(tec)cz>
> Komu: 'Diskuse o Delphi' <delphi-l(zv)fwd(tec)cz>
> P�edm�t: Provoz Delphi z CD-ROM
> Datum: 27. dubna 1999 10:29
>
> Ahoj,
>
> vzhledem k tomu, ze Delphi 3 C-S vyuzivam jen obcas, tak jsem si rikal,
> ze
> bych mohl usetrit spoustu mista na pevnem disku tim, ze bych je vypalil na
> CD-ROM a spoustel je odtam (pod Win95 OSR2). Ale nevim co vsechno bych
> musel
> zmenit v registrech a jinych konfiguracnich souborech aby to fungovalo. A
> nebo take ktere casti je nutne ponechat na pevnem disku (asi BDE?).
>
> Nemate s tim nekdo zkusenosti?
> ____________________________________
> Podpis (ENG:signature, DEU:unterschrift, ESP:firma)
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> David K��,
> CCV s.r.o., Jir�skova 43, Brno, Czech republic
> mailto:david.kriz(zv)ccv(tec)cz
> http://www.ccv(tec)cz
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>
>
>
> ----------
dir souboru z urcit. adresare do textaku
[*] Standa Kunc <obkstan(zv)obaka-karvina(tec)cz> - 30.4.1999 09:46:41
Jak mohu vypsat soubory a jejich cas, datum atd. z urciteho adresare do
textov�ho souboru? Neco jako je v Dosu dir. Diky predem...Screen Capture vo W95/NT
[*] Majo Petrik <petrik(zv)gt12.sk> - 30.4.1999 09:59:47
Zdravim!
Neviete mi niekto poradit ako mam capture-nut obrazovku vo W95 a NT,
popripade aj ako sa da zachytit 1 (aktivne) okno...?
Za pochopenie:)) dakujem
Majo Petrik petrik(zv)gt12.sk
String to PChar
[*] Martin Bohm <mbohm(zv)quelle.sk> - 30.4.1999 10:03:11
Zdravim
Som zaciatocnik a
mam taky maly problem, jak prevediem String na PChar.
Diky za kazdu radu.
Martin B�hm
mbohm(zv)quelle.sk
tel. 07/5556 88 08
IBObjects, FreeIBObject - alternativa k BDE
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 30.4.1999 10:12:56
Haj hou!
From: Linhart Petr <Petr(zv)manwe.mius(tec)cz>
>prave se chystam spustit dalsi projekt pod IB, a vaham, zda
nepouzit
>komponenty %SUB mista BDE. Prosim zverejnete informace o
zkusenostech s
>temito komponentami.
S IBObjects velkou zkusenost nemam (jen jsem je testoval a to uz
je nejaky ten patek), ale jsou dost promakane a umoznuji z IB
vymacknout vse, co se da. Maji drobnou nevyhodu v tom, ze stoji
penize a jejich koncepce je trochu odlisna od klasickeho
TQuery/TTable etc. prestoze se snazi jizachovavat. Ale pokud si
na nej zvyknes a prekonas prvni matouci dojmy, je to (rekl bych)
parada. V posledni verzi je to cele uz tak chytre a kosate, ze je
docela slozite do toho proniknout, ale podpora od Jasona je dost
dobra. Na IBObjects jsem zatim zadne stiznosti neslysel.
Co se FreeIBComponets tyce, sami je pouzivame. Jsou o moc chudsi
nez IBO, ale zato jsou free i se zdroji. Nevim jak je to s
datasety (maji potomka TDataSet, ale ten my nepouzivame), ale pry
funguji (az na nejake speky s BLOBy apod). Podpora od Gregoryho
je rovnez dost dobra. Jsou male, rychle, jednoduche, a daji se
snadno pouzit pro vytvoreni jineho konceptu pristupu k databazi
nez pres klasicky TDataSet (cez my prave delame). Pro "opravdove
programatory" jsou idealni, IBO jsou vic pro "pojidace kolacu".
HTH
Dynamicka IP adresa
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 30.4.1999 10:15:03
> nevite nekdo, jak se da zjistit adresa IP (tlf pripojeni) z pripojeni k
>internetu.Jedna se mi o adresu pocitace, kterou ziska dynamicky od
>providera.
k tomu slouzi RASGetProjectionInfo() ale musis znatt handle na spojeni.
Pokud jej neznas, musis enumerovat vsechna aktivni spojeni a podle jmena
nalezt to spravne - funkce RASEnumConnections()
Zdravi
D. Toman
dir souboru z urcit. adresare do textaku
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 30.4.1999 10:16:52
> -----Original Message-----
> From: Standa Kunc [mailto:obkstan(zv)obaka-karvina(tec)cz]
> Sent: Friday, April 30, 1999 9:47 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: dir souboru z urcit. adresare do textaku
>
>
> Jak mohu vypsat soubory a jejich cas, datum atd. z urciteho
> adresare do
> textov�ho souboru? Neco jako je v Dosu dir. Diky predem...
>
Nejjednodussi je to prave tim DIRem:
DIR >List.txt
Pokud to chces volat z Delphi, tak treba pomoci ShellExecute,
v posledni dobe to tady slo.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Web aplikace
[*] Lubos <bruce(zv)pobox.sk> - 30.4.1999 10:31:26
> <HTML>
> <HEAD><TITLE>Vstupni data pro formular</TITLE></HEAD>
> <BODY bgcolor="white">
> Zadejte vstupni hodnoty:<P>
> <FORM action="aplikace.exe" method="POST">
> Jmeno: <INPUT NAME="jmeno" SIZE="10"><BR>
> Prijmeni: <INPUT NAME="prijmeni" SIZE="10"><P>
> atd..
> <INPUT TYPE=submit value="odeslat">
> </FORM>
> </BODY></HTML>
> Tohle ulozis nekam na server.
> ad 2 a 3:
> pokud tvuj server podporuje Cgi muzes to udelat v Delphi (konzolov�
> aplikace) takto:
> readln(neco); // var neco = string v tom se ti vrati to co si zadal do
> predchozi html stranky
> // v tomoto tvaru jmeno=Jan&prijmeni=novak to si
> nejak zformatujes
> // pak tomu jednoduse vratis to co potrebujes pomoci
> std vystupu formatujes jako html stranku,
> // povinny sou pouze ty dva prvni radky
> writeln('content-type = text/plain');
> writeln;
> Writeln('<HTML><HEAD><TITLE>Vracene hodnoty</TITLE></HEAD>');
> writeln('<BODY bgcolor=white>');
> writeln('Zde jsou hodnoty ktere jste chteli vedet :<BR>');
> writeln('I�O:'+table1.fieldbyname('ICO').AsString+'<BR>');
> writeln('</BODY></HTML>');
>
Je to vsetko pekne, ale IMHO je to zbytocna namaha.
Jednoduchy dotaz na databazu urobim cez ASP, alebo IDC/HTX cca za
5 min (a to prehanam) aj s otestovanim a doladenim. Dalej zabudate na
nastavenie
BDE. A v uvedenom priklade mi akosi chyba pristup na databazu.
Toto "writeln('I�O:'+table1.fieldbyname('ICO').AsString+'<BR>');" by asi
nepostacovalo.
/LH
Prechd z Delphi 3 na Delphi 4
[*] Patrik Legath <Pato(zv)Baris.sk> - 30.4.1999 10:32:54
Mam takito problem. V D3 som pouzival takuto konstrukciu :
{$ifNDef TEST}
library DlgDel32;
{$Else}
program DlgDel32;
{$EndIf}
V Delpi 4 stale vytvara Dll -ku nezavisle na tom, ci definujem alebo nedefinujem Test
Ked Prehodim
{$ifDef TEST}
program DlgDel32;
{$Else}
library DlgDel32;
{$EndIf}
Tak mi stale vytvori Exe. Hoci pri chybajucom Teste Vytvori aj Dll.
Zmenila sa nejako konvencia pri pouzivani IfDef ??Vyhladavanie v MEMO
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 30.4.1999 10:35:04
Podivej se do helpu naFindDialog. Tam je priklad, ktery toto presne
dela.
+------------------------+
| Ing. Petr Jezek |
| Kuzmanyho 8 |
| 010 01 Zilina |
| Slovakia |
| mailto://petr(zv)sevis.sk |
+------------------------+
-----Original Message-----
From: J�n Kuch�r [mailto:kuchar(zv)tuke.sk]
Sent: Friday, April 30, 1999 8:03 AM
To: Delphi konferencia
Subject: Vyhladavanie v MEMO
Caute
Mam nasledovny proble. Predstavte si komponentu MEMO a vnej vlozene asi
styri
strany textu. V tej komponente by som potreboval vyhladat ci tam
existuje nejake
slovo, ktore zada uzivatel. Problem je ako vyhladat. Chcem sa opytat ci
sa to da aj
nejak inteligentnejsie ako ist pismenko po pismenku a porovnavat, alebo
ci na to
nieje niekde nejaka komponenta.
Dik
Ing. J�n Kuch�r
Katedra inov�ci� a rein�inieringu
SjF TU Koscaron;ice
Park Komensk�ho 9, Koscaron;ice 041 27
tel. : 095 / 602 2589
dir souboru z urcit. adresare do textaku
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 30.4.1999 10:40:23
Jednak existuje reseni, ze si pres WinExec spustis Dir do textaku stejne
jako v DOSu. Kdybys to chtel delat programove, tak funkce FindFirst,
FindNext, FindClose (podivej se na priklad v helpu), vysledek zformatovat a
ukladat treba do TStringList a pak pouzit jeho metodu SaveToFile.
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================
-----P�vodn� zpr�va-----
Od: Standa Kunc <obkstan(zv)obaka-karvina(tec)cz>
P�edm�t: dir souboru z urcit. adresare do textaku
>Jak mohu vypsat soubory a jejich cas, datum atd. z urciteho adresare do
>textov�ho souboru? Neco jako je v Dosu dir. Diky predem...String to PChar
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 30.4.1999 10:42:07
> -----Original Message-----
> From: Martin Bohm [mailto:mbohm(zv)quelle.sk]
> Sent: Friday, April 30, 1999 10:03 AM
> To: Delphi Forum
> Subject: String to PChar
>
>
> Zdravim
>
> Som zaciatocnik a
> mam taky maly problem, jak prevediem String na PChar.
>
funkce StrPCopy,
od nektere verze delphi lze pry prtypovat pomoci PChar(string).
Zkus vice hledat v helpu, budes mit odpoved rychleji
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!RAS: Jak zjistit jake se vytaci tel. cislo?
[*] muher(zv)csas(tec)cz - 30.4.1999 11:01:37
Ahoj, neznate funkci, ktera by prozradila telefonni
cislo ktere je prave vytacene na providera, resp.
cislo ktere "vytvorilo" aktualni spojeni?
diky
Martin UHER
Komunikace IP
[*] delphi-konfernce <delphi(zv)vtul(tec)cz> - 30.4.1999 10:07:01
Ahoj v�ichni.
Um� n�kdo komunikovat v�NT 4.0 s�r�mcem IEEE 802.3?? Pou��v�m
standardn� unitu WinSock a komponenty Wsockets, ale nikde jsem tento
parametr nenalezl, kter� by ovliv�oval typ r�mce. St�le mi z�toho leze r�mec
ETHERNET II. Jak na to??
D�k
Roman
roman.carda(zv)vtul(tec)cz <mailto:roman.carda(zv)vtul(tec)cz>
OffTopic: Virus
[*] Oldrich Nic student <NICO(zv)feld.cvut(tec)cz> - 30.4.1999 09:16:03 met-1mest
Zkuste adresu http://cgi.zdnet.com/slink?1079, najdete zde par
informaci. Olda Nic, nico(zv)feld.cvut(tec)cz
Web aplikace
[*] Oldrich Nic student <NICO(zv)feld.cvut(tec)cz> - 30.4.1999 09:28:51 met-1mest
Pro zobrazovani dat z databazi se na internetu pouziva
skriptovaci jazyk ASP, Active Server Pages, ktery bezi na strane
serveru. Syntaxi se podoba Visual Basicu. Podrobnosti
najdete napriklad na strankach Microsoftu.
Oldrich Nic, nico(zv)feld.cvut(tec)cz
SYS TRAY
[*] Oldrich Nic student <NICO(zv)feld.cvut(tec)cz> - 30.4.1999 09:35:45 met-1mest
Vhodnou komponentu najdes na http://www.winfiles.com.
Oldrich Nic, nico(zv)feld.cvut(tec)cz Pomaly conect na InterBase server
[*] Pavel Bare� <atoll(zv)telecom(tec)cz> - 30.4.1999 11:39:09
Prosim Vsechny o radu:
Mam nekolik pocitacu v siti (4) 2x win95, 1x win98, 1x WinNT4.0 zkousim konekt z ruznych PC na IB server bezici, na ruznych PC.
U 2 PC je konekt na server strasne pomaly (50 s) dalsi dva chodi perfektne. Zkousel jsem to ruzne mezi sebou.
Sitova odezva je vsude zhruba stejna (zkouseno PINGem). Pouzivam rotokol TCP/IP .
dekuji za jakekoliv napady
Pavel Bare�
Atoll s.r.o.
www.atoll(tec)cz
None
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 30.4.1999 11:57:26
Format frame se nastavuje napr. v Ovladaci panely -> Sit -> Protokoly ->
NWLink IPX/SPX -> Vlastnosti - Typ ramce. Standardne je autodetect, je
mozne explicitni nastaveni na pozadovany typ frame. Zkusenosti s
komponentou WSockets bohuzel nemam, pro komunikaci IPX protokolem pres
WinSock jsem si upravil komponentu IPXUnit, kterou jsem nasel na NETu.
URL uz nemam, ale nasel jsem mail na autory
mailto:spig(zv)vlsi.ice.cycu.edu.tw, jen nevim, jestli funguje (ten mail,
komponenta moc nechodila).
Ahoj Jura
-----P�vodn� zpr�va-----
Od: delphi-konfernce [mailto:delphi(zv)vtul(tec)cz]
Odesl�no: 30. dubna 1999 11:04
Komu: 'delphi'
P�edm�t:
Ahoj v�ichni.
Um� n�kdo komunikovat v�NT 4.0 s�r�mcem IEEE 802.3?? Pou��v�m
standardn� unitu WinSock a komponenty Wsockets, ale nikde jsem tento
parametr nenalezl, kter� by ovliv�oval typ r�mce. St�le mi z�toho leze
r�mec
ETHERNET II. Jak na to??
D�k
Roman
roman.carda(zv)vtul(tec)cz <mailto:roman.carda(zv)vtul(tec)cz> String to PChar
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 30.4.1999 11:03:41
Staci jen pretypovat, napr.
var p:PChar;
s:string;
s:='blablabla';
p:=PChar(s); ... a je to
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: Martin Bohm [SMTP:mbohm(zv)quelle.sk]
> Odesl�no: 30. dubna 1999 10:03
> Komu: Delphi Forum
> P�edm�t: String to PChar
>
> Zdravim
>
> Som zaciatocnik a
> mam taky maly problem, jak prevediem String na PChar.
>
> Diky za kazdu radu.
>
>
> Martin B�hm
> mbohm(zv)quelle.sk
> tel. 07/5556 88 08
Screen Capture vo W95/NT
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 30.4.1999 11:07:39
Timhle zpusobem okopirujes obsah desktopu na canvas okna:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
DeskTopCanvas: TCanvas;
DeskTopRect: TRect;
procedure GrabScreen;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.GrabScreen;
var DeskTopDC: HDc;
begin
DeskTopDC := GetWindowDC(GetDeskTopWindow);
DeskTopCanvas := TCanvas.Create;
DeskTopCanvas.Handle := DeskTopDC;
DeskTopRect := Rect(0,0,Screen.Width,Screen.Height);
ReleaseDC(GetDeskTopWindow,DeskTopDC);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
GrabScreen;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.CopyRect(DeskTopRect,DeskTopCanvas,DeskTopRect);
end;
end.
S tim aktivnim oknem to bude podobne, jen ve funkci GrabScreen musis
odchytit handle device contextu toho okna, nikoli handle DC desktopu.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
> -----P�vodn� zpr�va-----
> Od: Majo Petrik [SMTP:petrik(zv)gt12.sk]
> Odesl�no: 30. dubna 1999 10:00
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Screen Capture vo W95/NT
>
> Zdravim!
> Neviete mi niekto poradit ako mam capture-nut obrazovku vo W95 a NT,
> popripade aj ako sa da zachytit 1 (aktivne) okno...?
> Za pochopenie:)) dakujem
> Majo Petrik petrik(zv)gt12.sk
>
> Jak vytacet modem ve WIN95/NT?
[*] vasicek <vasicek(zv)ecommerce(tec)cz> - 30.4.1999 12:10:07
Nazdar lidi,
potreboval bych poradit, jakym zpusobem se ve Win95/NT pres WinAPI, nebo nejakym jinym zpusobem vytaci modem.
Diky Ales
None
[*] Pavel Zichovsky <zichovsky(zv)jesnem(tec)cz> - 30.4.1999 12:19:06
delphi-konfernce napsal(a) toto:
> Ahoj v�ichni.
> Um� n�kdo komunikovat v�NT 4.0 s�r�mcem IEEE 802.3?? Pou��v�m
> standardn� unitu WinSock a komponenty Wsockets, ale nikde jsem tento
> parametr nenalezl, kter� by ovliv�oval typ r�mce. St�le mi z�toho leze r�mec
> ETHERNET II. Jak na to??
Pokud chces pouzivat TCP/IP protokol na Ethernetu, tak ho zadnym jinym
farmem nez Ethernet_II neprotlacis. Prave proto ti asi Winsock nepovoli
zmenu framu.
Jeste jsem nenarazil na zadny system,ktery by umoznoval prohanet TCP/IP po
jinem framu nez Ethernet_II. Na Novellu tak mam pro kazdou kartu
nabindovany jak frame 802.3 pro IPX (vyzaduji to nektere boot-romky), tak
eth_II pro TCP/IP. Jede to naprosto bez problemu, a myslim, ze ani ve Win
neni problem nastavit na jednu kartu vice framu.
S pozdravem
Pavel "Zizi" Zichovsky <zichovsky(zv)jesnem(tec)cz>
mobil: zichovsky(zv)gate.mobil(tec)cz (120 znaku)
PGP podporovano a vitano
Stuktura souboru fontu
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 30.4.1999 12:53:24
Ahoj, nemate nekdo, prosim, k�dispozici popis struktury souboru
rastroveho fontu pro windows ?
Dekuji.Ciara pod menu
[*] Michal Cizek <starxax(zv)molly.vabo(tec)cz> - 30.4.1999 13:07:16
Zdarec
Nevim jestli jsem spravne pochopil co potrebujes, ale v menu se cara udela tak ze
Caption jedne polozky bude pouze znak "-" (minus).
Bye Michal
----- Original Message -----
From: Martin Klepoch
To: delphi-l(zv)fwd(tec)cz
Sent: 30. dubna 1999 8:30
Subject: Ciara pod menu
M�m jednu ot�zku:
Chcel by som sa sp�ta� �i mi niekto nevie poradi� ako sa v komponentu MainMenu sprav� aby na pr�zdnom formul�ri bolo menu ukon�en� �iarou po n�m. V properties komponenty som ni� podobn�ho nena�iel.
Martin KLEPOCH
TREXIMA Bratislava, s.r.o.Jak zjistit jake se vytaci tel. cislo?
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 30.4.1999 13:40:04
>Ahoj, neznate funkci, ktera by prozradila telefonni
>cislo ktere je prave vytacene na providera, resp.
>cislo ktere "vytvorilo" aktualni spojeni?
>
RasGetEntryDialParams
Zdravi
D. Toman
Pozastaveni Timeru
[*] SPELZA s.r.o. <spelzasro(zv)brno(tec)comp(tec)cz> - 30.4.1999 13:42:24
�au Delph�ci,
m�m takov� probl�m, kter� mo�n� W95 ani neumo��uj� �e�it. M�m �pln�
jednoduchou aplikaci v D4. Jeden formul��, na n�m jeden TTimer s intervalem
1000ms, jeho� OnTimer prov�d� jedin� p��kaz MessageBeep($FFFF). Po aplikaci
nechci nic jin�ho, ne� aby ka�dou sekundu p�pla a to za ka�d�ch okolnost�. A
v tom je ten zakopan� pes. Pokud v dob� b�hu t�to aplikace spust�m Delphi (a
nen� to jenom Delphi), dojde k tomu, �e p�p�n� se asi na 3 sekundy p�eru��.
Tu��m, �e je to asi t�m, �e se v t�to dob� aplikace nedostane ke �ten� sv�
fronty zpr�v ale mus� p�ece existovat n�jak� zp�sob, jak to �e�it (t�eba
zm�nou priority procesu anebo tak n�jak). Nev�te n�kdo jak na to?
Jara.
svehla(zv)atlas(tec)cz
DBRichEdit a fonty
[*] sup(zv)svitap(tec)cz - 30.4.1999 13:55:06
Hi lidi, mam takovy maly problemek. Uzivatelsky si menim typ a velikost
fontu v DBRichEditu (pres FontDialog). Obsah DBRichEditu se zobrazi
perfektne, ale pri jakokoliv zmene v databazi, staci zmena indexu, se do
DBRichEditu vrati puvodni font. Ve FontDialogu pritom je stale nastaveny
vybrany font...
Poradte, co s tim....
Diky predem
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
Pozastaveni Timeru
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 30.4.1999 13:55:19
Ahoj.
Je to skute�n� t�m, �e se okno t�ch zpr�v Timeru
nemus� chv�li dockat. Zkus m�sto toho fci Sleep.
Dobra.
> ----------
>
> �au Delph�ci,
> m�m takov� probl�m, kter� mo�n� W95 ani neumo��uj� �e�it. M�m �pln�
> jednoduchou aplikaci v D4. Jeden formul��, na n�m jeden TTimer s
> intervalem
> 1000ms, jeho� OnTimer prov�d� jedin� p��kaz MessageBeep($FFFF). Po
> aplikaci
> nechci nic jin�ho, ne� aby ka�dou sekundu p�pla a to za ka�d�ch
> okolnost�. A
> v tom je ten zakopan� pes. Pokud v dob� b�hu t�to aplikace spust�m
> Delphi (a
> nen� to jenom Delphi), dojde k tomu, �e p�p�n� se asi na 3 sekundy
> p�eru��.
> Tu��m, �e je to asi t�m, �e se v t�to dob� aplikace nedostane ke �ten�
> sv�
> fronty zpr�v ale mus� p�ece existovat n�jak� zp�sob, jak to �e�it
> (t�eba
> zm�nou priority procesu anebo tak n�jak). Nev�te n�kdo jak na to?
> None
[*] delphi-konfernce <delphi(zv)vtul(tec)cz> - 30.4.1999 13:00:00
To by souhlasilo, ale j� pot�ebuji protokol UDP (TCP) v�r�mci
ETHERNET 802.3 a ne IPX a zat�m nev�m, kde to nastavit (jestli to v�bec
jde). -----P�vodn� zpr�va-----
Od: Foldyna Ji�� [mailto:jiri.f(zv)avizo(tec)cz]
Odesl�no: 30. dubna 1999 10:57
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE:
Format frame se nastavuje napr. v Ovladaci panely -> Sit ->
Protokoly ->
NWLink IPX/SPX -> Vlastnosti - Typ ramce. Standardne je autodetect,
je
mozne explicitni nastaveni na pozadovany typ frame. Zkusenosti s
komponentou WSockets bohuzel nemam, pro komunikaci IPX protokolem
pres
WinSock jsem si upravil komponentu IPXUnit, kterou jsem nasel na
NETu.
URL uz nemam, ale nasel jsem mail na autory
mailto:spig(zv)vlsi.ice.cycu.edu.tw, jen nevim, jestli funguje (ten
mail,
komponenta moc nechodila).
Ahoj Jura
-----P�vodn� zpr�va-----
Od: delphi-konfernce [mailto:delphi(zv)vtul(tec)cz]
Odesl�no: 30. dubna 1999 11:04
Komu: 'delphi'
P�edm�t: Ahoj v�ichni.
Um� n�kdo komunikovat v�NT 4.0 s�r�mcem IEEE 802.3??
Pou��v�m
standardn� unitu WinSock a komponenty Wsockets, ale nikde jsem tento
parametr nenalezl, kter� by ovliv�oval typ r�mce. St�le mi z�toho
leze
r�mec
ETHERNET II. Jak na to??
D�k
Roman
roman.carda(zv)vtul(tec)cz <mailto:roman.carda(zv)vtul(tec)cz> Stuktura souboru fontu
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 30.4.1999 14:05:47
Cau.
Sa mi zda, ci ho nahodou nechces "lokalizovat" do Kamenickych.
Popis struktury sice nemam, ale rastrovych Kamenickych hej.
Mozem pripadne poslat.
>
> Ahoj, nemate nekdo, prosim, k dispozici popis struktury souboru
> rastroveho fontu pro windows ?
>
> Dekuji.JAK ZAVRIT DIALOG PRO NASTAVENI CASU A DATUMU
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 30.4.1999 14:08:51
Zjisti si Handle toho okna (FindWindow)
a posli mu WM_CLOSE (PostMessage(HWnd, ...).
Dobra.
> ----------
>
> Nazdar delphini
> Mam zase jeden asi blbej dotaz : kdyz uz jsem ten dialog pro
> nastavovani
> casu a daumu spustil tak bych chtel zase neja zjistit ze je otevren a
> popripade ho ukoncit s ukoncenim meho programu.
>
> Dikec za vse, Paja
> Jazyk pro VerInfo
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 30.4.1999 14:11:53
Bene� Jaroslav wrote:
> Ahoj,
> mam v RES ulozeno VersionInfo programu (vytvoreno ve WorkShopu).
> Vsechno je OK az na to, ze mi neustale pise, ze jazyk je "anglicky (USA)".
> Co se nastavuje pro cestinu, aby mi to spravne ukazovalo, ze je program
> cesky? Dekuji Jaro B.
LocaleID = $0405
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Sloupec v DBGrid
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 30.4.1999 14:12:25
Tohle umi dobre RxDBGrid...> ----------
> Od: petrhalamicek(zv)email(tec)cz[SMTP:petrhalamicek(zv)email(tec)cz]
> Odesl�no: 29. dubna 1999 9:10
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Sloupec v DBGrid
>
> Zdrav�m v�echny.
> Hele, jak m��u poznat, na kterou hlavi�ku sloupce v DbGridu u�ivatel
> klikne. Chci toti� dle kliknut� na hlavi�ku DbGridu t��dit data. D�ky
> moc.
>
> --- CREATED BY ATC O..R..G..A..N..I..Z..E..R
> --- http://email(tec)cz <--- Get Your Free Email
>
> Stuktura souboru fontu
[*] Maixner Adam <Adam.Maixner(zv)pvt(tec)cz> - 30.4.1999 14:26:12
Dekuji, neshanim kameniky, ale opravdu komleptni popis struktury souboru
na disku. Uz jeden mam, bohuzel, autor vypsal vsechny datove polozky,
ale pozapomnel na rozmery. (word dword atd..) Anebo jsem ton hloupy ja a
nedokazu to z�toho popisu vycist. Ale jinak diky.
-----P�vodn� zpr�va-----
Od: Peter Vlkovic [SMTP:vlkovic(zv)minv.sk]
Odesl�no: 30. dubna 1999 14:06
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Stuktura souboru fontu
Cau.
Sa mi zda, ci ho nahodou nechces "lokalizovat" do Kamenickych.
Popis struktury sice nemam, ale rastrovych Kamenickych hej.
Mozem pripadne poslat.
>
> Ahoj, nemate nekdo, prosim, k dispozici popis struktury
souboru
> rastroveho fontu pro windows ?
>
> Dekuji.Ciara pod menu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 30.4.1999 14:39:38
Je tam preci Shape nebo Bevel, nastav tomu ALIGNna alTop
a melo by to byt ono.
> ----------
> Od: Martin Klepoch[SMTP:trexima(zv)isnet.sk]
> Odesl�no: 30. dubna 1999 8:30
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Ciara pod menu
>
> M�m jednu ot�zku:
> Chcel by som sa sp�ta� �i mi niekto nevie poradi� ako sa v komponentu
> MainMenu sprav� aby na pr�zdnom formul�ri bolo menu ukon�en� �iarou po
> n�m. V properties komponenty som ni� podobn�ho nena�iel.
> �
> Martin KLEPOCH
> TREXIMA Bratislava, s.r.o.
> Vyhladavanie v MEMO
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 30.4.1999 15:08:05
P:=pos(Memo1.Lines.Text,Substr);
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================
----------
Odes�latel: J�n Kuch�r <kuchar(zv)tuke.sk>
Komu: Delphi konferencia <delphi-l(zv)fwd(tec)cz>
P�edm�t: Vyhladavanie v MEMO
Datum: 30. dubna 1999 8:02
Caute
Mam nasledovny proble. Predstavte si komponentu MEMO a vnej vlozene asi styri
strany textu. V tej komponente by som potreboval vyhladat ci tam existuje nejake
slovo, ktore zada uzivatel. Problem je ako vyhladat. Chcem sa opytat ci sa to da aj
nejak inteligentnejsie ako ist pismenko po pismenku a porovnavat, alebo ci na to
nieje niekde nejaka komponenta.
Dik
Ing. J�n Kuch�r
Katedra inov�ci� a rein�inieringu
SjF TU Ko�ice
Park Komensk�ho 9, Ko�ice 041 27
tel. : 095 / 602 2589
Nastavenie priority aplikacie
[*] Majo Petrik <petrik(zv)gt12.sk> - 30.4.1999 15:29:31
ZDRAVIM!
Neviete nahodou niekto ako mozem nastavit prioritu aplikacie
(aj pocas behu programu)?
Da sa tiez nastavit aj "maximalna" priorita?
Dakujem: MAJO PETRIK
Screen Capture vo W95/NT
[*] Jano <jj_delphi(zv)ke.ubp.sk> - 30.4.1999 15:00:25
-----Original Message-----
From: Majo Petrik <petrik(zv)gt12.sk>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: 30. apr�l 1999 10:15
Subject: Screen Capture vo W95/NT
>Zdravim!
>Neviete mi niekto poradit ako mam capture-nut obrazovku vo W95 a NT,
>popripade aj ako sa da zachytit 1 (aktivne) okno...?
> Za pochopenie:)) dakujem
> Majo Petrik petrik(zv)gt12.sk
>
>
>
>
Ahoj,
>popripade aj ako sa da zachytit 1 (aktivne) okno...?
Prave aktivne okno dalsich aplikacii zistis vo svojom programe
asi najjednoduchsie takto (cast kodu):
procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);
var
Caption : String;
const
ActiveHwnd : Integer = 0;
ActiveOldHwnd : Integer = 0;
begin
ActiveHwnd := GetForegroundWindow;
{
poznas handle prave aktivneho okna inej aplikacie a mozes
si s nim robit co potrebujes
}
{
Ak chces vidiet co si zachytil, pridaj si komponentu TListbox a trebars
pouzi
trebars toto
}
////
If (ActiveOldHwnd <> ActiveHwnd) and (ActiveHwnd > 0) Then
begin
SetLength (Caption, 50);
GetWindowText (ActiveHwnd, PChar (Caption), Length (Caption));
Caption := PChar (Caption);
if Caption = '' then
Caption := 'Unknown';
ListBox1.Items.Add (Format ('Caption: "%s" Handle: %s',
[Caption, IntToHex (ActiveHwnd, 4)]));
ActiveOldHwnd := ActiveHwnd;
end;
////
Done := False;
end;
procedure TForm1.FormCreate (Sender: TObject);
begin
Application.OnIdle := AppIdle;
end;
Jano jj_delphi(zv)ke.ubp.sk
Dynamicka IP adresa
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 30.4.1999 16:07:14
Balicek od F. Pietteho rasdial.zip obashuje vse (function RasGetIPAddress:
string).
Pokud to nepotrebujes programove tak staci winipcfg.exe / Batch (vytvori
soubor winipcfg.out kde najdes vse potrebne) Dalsi parametry winipcfg /?.
eL..
-----P�vodn� zpr�va-----
Od: Jiri Virt <virt(zv)pepa(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 30. dubna 1999 9:32
P�edm�t: Dynamicka IP adresa
>Ahoj,
> nevite nekdo, jak se da zjistit adresa IP (tlf pripojeni) z pripojeni k
>internetu.Jedna se mi o adresu pocitace, kterou ziska dynamicky od
>providera.
>
>
>Diky za jakekoli nasmerovani
>
>Jirka Virt
>
>emai: virt(zv)pepa(tec)cz
>
>www.pepa(tec)cz
>
>Web aplikace
[*] eL <eL_z_Prahy(zv)seznam(tec)cz> - 30.4.1999 16:19:33
Na UNIXECH je to spise PHP (napr www.php(tec)cz) ve spojeni s SQL serverem mySQL
(http://www.tcx.se).
Free VCL komponeny a DLL pro mySQL jsou na
http://www.productivity.org/projects/mysql/ pripadne pokud mas neco Delphi
3,4 PROF. tak muzes prez ODBC (SATNDART to ma zablokovany)
eL..
-----P�vodn� zpr�va-----
Od: Oldrich Nic student <NICO(zv)feld.cvut(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 30. dubna 1999 10:21
P�edm�t: Re: Web aplikace
Pro zobrazovani dat z databazi se na internetu pouziva
skriptovaci jazyk ASP, Active Server Pages, ktery bezi na strane
serveru. Syntaxi se podoba Visual Basicu. Podrobnosti
najdete napriklad na strankach Microsoftu.
Oldrich Nic, nico(zv)feld.cvut(tec)cz
MOVE nielen v hornom pruhu okna
[*] Majo Petrik <petrik(zv)gt12.sk> - 30.4.1999 16:54:29
Ako mozem nastavit aby sa pri stlaceni mysky na hociktoru cast
form form pohyboval podla pohybov mysky?
dakujem
File of TIndexZaznam
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 30.4.1999 19:38:00
Nazdarek...
Mam nasledujici kus kodu:
type
TIndexZaznam = record
TypVyp: integer;
D1, D2: TDateTime;
SnimacVC: string;
LineNum: integer;
end;
TIndexFile = File of TIndexZaznam;
Pri prekladu to na me vybafne:
Type 'TIndexZaznam' needs finalization - not allowed in file type...
Muze mi nekdo vysvetlit proc to nefunguje (potrebuju proste a
jednoduse vytvorit soubor obsahujici zaznamy nejakeho typu).
Za rady predem dik
Petr Vaclavek
No jeste nez jsem to odeslal, tak jsem se kouknul do helpu na tu
chybovou hlasku a trochu mi to pomohlo --> nahradil jsem string
poletem array [1..255] of char
Ale stejne by me zajimalo, co to melo znamenat a jak by se to
dalo jinak obejit...File of TIndexZaznam
[*] Cibulka Karel <K.Cibulka(zv)sh.cvut(tec)cz> - 30.4.1999 19:59:05
> type
> TIndexZaznam = record
> TypVyp: integer;
> D1, D2: TDateTime;
> SnimacVC: string;
> LineNum: integer;
> end;
>
> Pri prekladu to na me vybafne:
> Type 'TIndexZaznam' needs finalization - not allowed in file type...
>
> No jeste nez jsem to odeslal, tak jsem se kouknul do helpu na tu
> chybovou hlasku a trochu mi to pomohlo --> nahradil jsem string
> poletem array [1..255] of char
> Ale stejne by me zajimalo, co to melo znamenat a jak by se to
> dalo jinak obejit...
No, podle meho, kdyz se pouzije typ String, tak jde v podstate
standartne o LongString, ktery je alokovan dynamicky pomoci hlidani
poctu referenci (neco jako objekty v Jave) a kdyz se to pouzije v
recordu, tak kompilator nemuze vygenerovat kod, ktery by prave tohle
hlidal. Takze String neboli LongString je mozne pouzit pouze v
objektech, kde se uvolnuje v destruktoru.
Doufam, ze to pomuze vnest trochu svetla do teto veci.
K.
--
<TT>
/* Cibulka Karel, K.Cibulka(zv)sh.cvut(tec)cz */
/* xcibulka(zv)hwlab.felk.cvut(tec)cz */
/* KCibulka(zv)seznam(tec)cz */
/* OnLine: If you have ICQ my ICQ# is 4111110. */
/* If you don't have ICQ you can page me through: My Personal */
/* Communication Center: http://wwp.mirabilis.com/4111110 */
/* Or when I'm OnLine try: http://char.sh.cvut(tec)cz/ */
/* Or you can send me e-mail to 4111110(zv)pager.mirabilis.com */
/* Msgs with word "SMS:" in subject will be sent to my GSM phone */
</TT>
Import ADO Type LIBRARY
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 1.5.1999 01:51:25
Ahoj,
potreboval bych poradit s jednou veci, na ktere jsem se zasekl. Rad bych se
dostal na SQL pomoci ADO. Proto jsem si pomoci Import Type Library
naimportoval msado15.dll (Microsoft ActiveX Data Objects). V marne snaze
pouzit ADO v Delphi pomoci zdrojaku z Visual Basicu jsem vytvoril tento
unit. Nevim, jak mam v procedure TForm1.Button1Click(Sender: TObject)
spravne pouzit metodu Connection.Open, kdyz ve VBScriptu (ASP) syntax
definovana takto:
var conn = Server.CreateObject("ADODB.Connection");
conn.Open("provider=sqloledb;data source=192.168.1.1;user
id=sa;password=;initial catalog=adrbook");
tzn. je to podle me jeden jediny string, tak nechapu, proc to delphi
vyzaduje v syntaxi
conn.Open(ConnectionString : WideString; UserID : Widestring; Password:
Widestring; Options : Integer);
Diky rozdilum v syntaxi nevim, jestli ma do ConnectionString prijit vsechno
vcetne hesla a loginu nebo to mam zkratit jen na "provider ...atd."
Vubec pak nevim, k cemu slouzi promenna Options coby integer.
Nicmene zkusil jsem tam doplnit hodnoty, tak abych zjistil, zda to aspon
hodi chybu, ze nemuze najit dany SQL server
Zapis pak vypadal
conn.Open('provider=sqloledb;data source=192.168.1.1;user
id=sa;password=;initial catalog=WebDeal','sa','',0);
Po spusteni to ale hodilo error, Access Violation on address .... Z toho
jsem pochopil, ze je nejdrive potreba objekt conn naalokovat, jenze nevim,
jak to mam udelat. Zkousel jsem conn:=Connection.Create, ale to nejde
zkompilovat a ja uz fakt nevim, jak bych to udelal.
Ma s tim nekdo zkusenosti a muze poradit ? Jen mi prosim nedoporucujte
pouziti komponent jako ADONIS nebo tak, protoze ty se mi stejne nikdy
nepodarilo rozchodit. Bud to neslo zkompilovat nebo nastal jiny problem.
Zkratka potreboval bych kratky kus kodu, vyuzivajici import ADO.
Mockrat dekuji
PK
unit adoUnit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,AdoDB_TLB,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
Var
Rs : Recordset;
Conn : Connection;{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
Connection.Open('provider=sqloledb;data source=192.168.1.1;user
id=sa;password=;initial catalog=WebDeal','sa','',0);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Conn.Close;
end;
end.
Ceske Resource pro D4
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 1.5.1999 07:45:35
Ahoj,
daji se nekde sehnat ceske resources (*.rc,*.res) pro D4? Proste aby chybove
hlasky D4 vypadly v cestine.
Vymenim za ty z D2 :-))))
L.Web aplikace
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 1.5.1999 08:54:40
Oldrich Nic student <NICO(zv)feld.cvut(tec)cz> wrote:
> Pro zobrazovani dat z databazi se na internetu pouziva
> skriptovaci jazyk ASP, Active Server Pages, ktery bezi na strane
> serveru. Syntaxi se podoba Visual Basicu. Podrobnosti
Nemusi to byt jen Visual Basic, ale stejne dobre JScript, coz je M$ verze
Java scriptu. Docela dobre popsana v helpu u MS IIS.
Dela se s tim celkem dobre, ale je to chude napr. na funkce pro praci s
retezeci. Ty si musi clovek napsat sam. Musim priznat, ze kdyby VB
pripominal alespon vzdalene programovaci jazyk, tak bych ho pouzil, takhle
jsem nemel jinou volbu :-))
BTW, muze mi nekdo vysvetlit, jaky prinos bych mel z pouziti Delphi misto
ASP a JavaScriptu?
Bye, pf
TVirtComp
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 1.5.1999 09:14:34
Ahoj all,
dnes mi prisla od Alexandera Baranovskeho (ab(zv)iai.donetsk.ua)
velice sikovna komponenta, ktera umi natahnout externi zdrojak do
zkompilovaneho programu a tam ho spustit (jako interpret,
samozrejme). Umi to dokonce i objekty a vyjimky, lze tomu
nadefinovat vlastni funkce.
Pred casem tu byl dotaz na zpracovani matematickych funkci a
podobnych blbinek, ktere si zada sam uzivatel. K tomuto ucelu se
tato komponenta hodi vice nez vyborne. Take ji lze pouzit na tvorbu
nejakych specifickych konstrukci, ktere si zada zakaznik, ale
ktere neni vhodne nebo mozne zakompilovat primo do programu.
Na dalsi vyuziti jiste prijdete sami.
Podivejte se na http://www.iai.donetsk.ua/_e/prod/soft.html, projekt
TVirtComp. Stahovaci stranka je sice v bukvickach, ale jiste si s
tim poradite. :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Kopirovani na serveru
[*] kkint(zv)post(tec)cz - 1.5.1999 09:44:39
dobry den
mam problem: pri kopirovani tabulky potrebuji, aby se tato kopirovala pouze na serveru ( aby data nesla pres klienta, na kterem spoustim kopirovaci program ). zatim to delam takhle ( schematicky:
'select * from ZdrojovaTabulka'
while not ZdrojovaTabulka.EOF do begin
KopirujJednuVetu
ZdrojovaTabulka.Next
end;
ale to je evidentne spatne, ponevadz takhle si taham data na klienta. jak to mam udelat? dik za odpoved
typ Extended
[*] Mgr. Jan Sluka <snipe(zv)mail.cybernet(tec)cz> - 01.5.1999 12:39:58
Vazeni,
obracim se na Vas s nasledujici prosbou. Jak je v 10-ti
bytech zakodovany typ extended. Vim, ze je tvoren dle normy
IEEE 754, tj. ve tvaru znaminko, mantisa, exponent a cislo
se urci
znaminko mantisa x 10 na exponent
ale nevim, kde zacina mantisa, kde exponent a jak jsou kodovany.
Muzete mi rict, jak z danych 10-ti bytu zjistit o jake realne
cislo se jedna?
Dekuji vsem za odpovedi
S pozdravem Mgr. Jan Sluka
File of TIndexZaznam
[*] Karel PECHANEC <ka.pecha(zv)pvtnet(tec)cz> - 01.5.1999 13:44:54
Zdravim...
Zkus treba blokovy zapis do souboru obecneho typu *file*.(tady muzes
pouzit i predem neohraniceny string).
Napr.
type
TTVUJTYP = record
s:String; i:Integer; //...
end;
pTTVUJTYP = ^ TTVUJTYP;
//...
var
tt: TTVUJTYP;
function fceSaveToFile(pTT: pTVUJTYP):Boolean;
const
iFILENAME = 'mujsoub.bin';
var
iBinFile : file;
begin
result:=true;
assignFile(iBinFile,iFILENAME);
{$I-}
rewrite(iBinFile,1);
{$I+}
if ioResult <> 0 then begin
result:=false;
end else begin
blockWrite(iBinFile,pP^,sizeOf(TTVUJTYP));
closeFile(iBinFile);
end;
end;
//...
begin
tt.s:='ahoj';
tt.i:=3;
fceSaveToFile((zv)tt);
//cteni probiha obdobne...
end;
TColorGrid
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 1.5.1999 19:08:58
Nazdarek....
Pouzivam komponentu TColorGrid a docela me zarazilo jak prevadi
TColor na index:
ColIndex := cgColors.ColorToIndex (Col);
Pokud je Col barvicka z prvnich 8 barev v tom gridu, tak je to OK -
vraci index od 0 do 7, ale pokud je ta barva jina (no proste z tech
8mi zbyvajicich tak to vraci o 1 vetsi cislo:
treba:
Sediva (Gray)....7
ale
Tmave seda (Silver)....9
Muze mi to nekdo objasnit???
Petr
Virus
[*] Petr Ma��k <rtepema(zv)mbox.vol(tec)cz> - 1.5.1999 20:17:31
Pozor !!! Tento postup nijak neresi obnovu dat, spise ji komplikuje, ne-li znemoznuje !!!
Zdravi
* Petr Ma��k *
* RT electronic *
* rtepema(zv)mbox.vol(tec)cz *
* tel. -02-20510562 *
-----P�vodn� zpr�va-----
Od: Martin <geoplan(zv)pp.sinet.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 29. dubna 1999 12:41
P�edm�t: RE: Virus
|na boot disketu si daj fdisk a skus pomocou neho vytvorit novu partition na
|disku. Na disketu si daj aj format a potom disk naformatuj.
|
|
|Martin
|
|
|-----P�vodn� spr�va-----
|Od: Lukas Marsalek <MARSALEL.vos97(zv)vsps-su(tec)cz>
|Pre: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
|D�tum: 28. apr�l 1999 9:41
|Predmet: Virus
|
|
|Vazeni,
|
|Muj problem se netyka Delphi, ale viru. Jak jiste vite v pondeli
|26.4. se na vsech pocitacich, na kterych byl pritomen, aktivoval
|virus CIH. Po zapnuti pocitace me Windows ohlasily chybu a resetovaly
|pocitac. Ovsem po restartu doslo k tomu, ze BIOS nahlasil BOOT
|FAILURE. KDyz nabootuju z diskety, hardisk se vubec nehlasi. Je mi
|jasne, ze na 99 procent sve data uz nikdy neuvidim, ale kdybyste
|prece jenom mel nekdo napad, co by slo zkusit, abych se na ten
|hardisk jeste dostal, byl bych moc vdecny. Ten virus ovsem udajne
|nici FAT a BIOS, takze moc nedoufam.
|Nadeje umira posledni !
|
| Diky
| Lukas
|
|
|
|Import ADO Type LIBRARY
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 1.5.1999 21:05:08
Petr Kro�a ml. wrote:
> potreboval bych poradit s jednou veci, na ktere jsem se zasekl. Rad bych
> se dostal na SQL pomoci ADO. Proto jsem si pomoci Import Type Library
> naimportoval msado15.dll (Microsoft ActiveX Data Objects). V marne snaze
> pouzit ADO v Delphi pomoci zdrojaku z Visual Basicu jsem vytvoril tento
> unit. Nevim, jak mam v procedure TForm1.Button1Click(Sender: TObject)
> spravne pouzit metodu Connection.Open, kdyz ve VBScriptu (ASP) syntax
> definovana takto:
>
> var conn = Server.CreateObject("ADODB.Connection");
> conn.Open("provider=sqloledb;data source=192.168.1.1;user
> id=sa;password=;initial catalog=adrbook");
Pozor, syntaxe VB je jina nez Pascalu. Conn musis mit
nadeklarovany, napriklad takto:
var
conn:OleVariant;
nebo
conn:Connection;
V Delphi lze pak inicializovat objekt spise takto:
Connect:=CoConnection.Create;
i kdyz tento zpusob inicializace je take mozny, ale pomalejsi:
conn := CreateOleObject('ADODB.Connection');
> tzn. je to podle me jeden jediny string, tak nechapu, proc to delphi
> vyzaduje v syntaxi
>
> conn.Open(ConnectionString : WideString; UserID : Widestring; Password:
> Widestring; Options : Integer);
Zde zalezi na deklaraci. Pokud budes mit prvni zpusov deklarace,
bude pristup pomalejsi, ale zase muzes uvadet promenlivy pocet
parametru. Pri druhem zpusobu musis uvest vsechny parametry, i
kdybys je mel udavat jako prazdne retezce.
> Diky rozdilum v syntaxi nevim, jestli ma do ConnectionString prijit
> vsechno vcetne hesla a loginu nebo to mam zkratit jen na "provider
> ...atd." Vubec pak nevim, k cemu slouzi promenna Options coby integer.
Musis si prohlednout dokumentaci. :-) Klicova slova se
samozrejme zkratit daji, i na to jsou priklady v dokumentaci.
> Nicmene zkusil jsem tam doplnit hodnoty, tak abych zjistil, zda to aspon
> hodi chybu, ze nemuze najit dany SQL server
>
> Zapis pak vypadal
> conn.Open('provider=sqloledb;data source=192.168.1.1;user
> id=sa;password=;initial catalog=WebDeal','sa','',0);
Ja bych to napsal spise takto:
conn.Open('provider=sqloledb;user id=sa;password=;initial
catalog=WebDeal','','',0);
nebo pri prvnim zpusobu deklarace takto:
conn.Open('provider=sqloledb;user id=sa;password=;initial
catalog=WebDeal');
> Po spusteni to ale hodilo error, Access Violation on address .... Z toho
> jsem pochopil, ze je nejdrive potreba objekt conn naalokovat, jenze nevim,
> jak to mam udelat. Zkousel jsem conn:=Connection.Create, ale to nejde
> zkompilovat a ja uz fakt nevim, jak bych to udelal.
To v kazdem pripade, viz vyse.
> Ma s tim nekdo zkusenosti a muze poradit ? Jen mi prosim nedoporucujte
> pouziti komponent jako ADONIS nebo tak, protoze ty se mi stejne nikdy
> nepodarilo rozchodit. Bud to neslo zkompilovat nebo nastal jiny problem.
> Zkratka potreboval bych kratky kus kodu, vyuzivajici import ADO.
Sveho casu jsem to mel vystavene na Delphree, nez jsem to
nahradil OLE DB. Soubezne na privatni adresu ti posilam to, kde
jsem s ADO skoncil.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Pozastaveni Timeru
[*] Lukas Voborsky <xvobl03(zv)sorry.vse(tec)cz> - 1.5.1999 22:50:13
On Fri, 30 Apr 1999, [iso-8859-2] Mal� Dobromil wrote:
> Ahoj.
>
> Je to skute�n� t�m, �e se okno t�ch zpr�v Timeru
> nemus� chv�li dockat. Zkus m�sto toho fci Sleep.
Ahoj
Myslim, ze to taky nepomuze. Zkusil bych zaexperimentovat s timerem z
DirectX. Jsou na to i nejaky komponenty (DelphiX). Melo by to byt na
http://www.ingjapan.or.jp/hori/ ale nemuzu se tam dostat.
zdar
Lukas
-==============================================================-
mailto: voborsky(zv)menza.mff.cuni(tec)cz ICQ: 21084410
www: http://come.to/voborsky tel. 8551040-9 l. 393
-==============================================================-
UNIX
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 1.5.1999 23:33:00
Fri, Apr 30, 1999 ve 06:53:54AM +0200 Karel Pechanec napsal:
# Zdravim...
# FreePascal fpc ti si vykompiluje pascal zdroj, ale u tveho ti zrejme bude chybet
# spousty knihoven
# ktere si Borland pridava ke svym vyvojovym nastrojum. (cili ten zdroj urcite
# neni 100% prenositelny).Mozna nekde na inetu
# (http://www.brain.uni-freiburg.de/~klaus/fpc nebo
# http://tfdec1.fys.kuleuven.ac.be/~michael/fpc) najdes ekvivalenty borlandovskych
# nadstandartnich knihoven.
# Dosemu ktery je pod linuxem, myslim jeste moc nezvlada WinAplikace (urcite to
# neni ten nejlepsi zpusob pouzit ho).
tady byla rec o win-aplikacich ? tak to potom lze pouzit na misto dosemu
wine (ten to uz umi) a nebo (pro narocne) VMware - virtualni stroj napr. s
NT :)
milan sorm
Ceske Resource pro D4
[*] Jaro <jaro(zv)sinea(tec)cz> - 2.5.1999 01:25:03
Radeji pouzij lokalizator,
protoze res soubory musis s kazdou verzi Delphi menit
Jaro
-----P�vodn� zpr�va-----
Od: Leos Urban <Leos.Urban(zv)aitix(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 1. kv�tna 1999 8:04
P�edm�t: Ceske Resource pro D4
>Ahoj,
>daji se nekde sehnat ceske resources (*.rc,*.res) pro D4? Proste aby
chybove
>hlasky D4 vypadly v cestine.
>Vymenim za ty z D2 :-))))
>L.
>Excel
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 2.5.1999 08:16:25
Ahoj
Potrebuju propojit Excel 97 a Delphi4. Vsechno mi
funguje, ale nevim si rady s eventy. Zatim to delam
tak, ze si vytvorim InterfacedObject, ten nakonektuju
pomoci InterfaceConnect, a pak odchytavam eventy
pres Invoke. Podobne to je v prikladech v D4 pro Word.
Ale neumim u odchycenych eventu zjistit jejich parametry.
Nedelal to uz nekdo ?
A jeste neco. Nevite, kde sezenu popis tlb knihovny pro Excel ?
Bohuzel neni samovysvetlujici.
Radim
Virus
[*] iko(zv)kamarad(tec)cz - 2.5.1999 08:42:19
Podobny problem som mal aj ja. Znicilo mi to vsetky udaje na disku,
ale hlavne vsetku moju postu. Dva dni som nad tym sedel, ale
podarilo sa obnovit vsetko, co bolo treba. A to som mal este 32
bitovu fatku. Takze, ak tam mas nieco dolezite na disku, tak s nim
nic nerob, ziadny FDISK ani nic podobne. Da sa to obnovit, vsetko
mas na disku. Mas len zmazanu partition.
Iko
iko(zv)kamarad(tec)cz
http://freeweb.coco(tec)cz/IKO
upresneni problemiku...
[*] Ing. Ludek Florian <ludan(zv)bluerose(tec)cz> - 2.5.1999 09:28:41
Cauec,>Rekl bych, ze uvadet cislo tydne ma smysl pouze v souvislosti s rokem,
>jinak receno nelze v�dy jednoznacne urcit, zda tyden obsahujici napr.
>den 1.ledna je pouze 1. tyden daneho roku - v�dy MUZE (ale nemusi) byt
>poslednim (tj. 52. nebo 53. tydnem roku predchoziho). Pokouset se o
>jednoznacne prirazeni cisla tydnu jinak nez pro konkretni den je podle
>mne nesmysl. Jeste pro ilustraci, jak to myslim:
>
>Ctvrtek 30.12.1999 = 53. tyden
>Patek 31.12.1999 = 53. tyden
>Sobota 1.1.2000 = 1. tyden
>Nedele 2.1.2000 = 1. Tyden
Az do nedele je to 53.tyden
1. tyden roku 2000 zacina az 3.1. , tedy od prvniho pondeli v roce.
Asi pred pul rokem mi probehla rukama norma (CSN) na urcovani cisla tydne.
Cislo si samo nepamatuju, ale
jestli je nekde na Inetu seznam, bude tam.>Hodnota cisla tydne pro interval datumu od 27.12.1999 do 2.1.2000 tedy
>muze nabyvat hodnot <53,1>. Je nabiledni, ze neexistuje moznost
>jednoznacne rici, je-li to 53. nebo 1. tyden bez soucasneho uvedeni
>data.
Bye Ludan
report do TXT nebo RTF
[*] Petr Matejovsky <pema(zv)seznam(tec)cz> - 2.5.1999 16:01:32
Ahoj
mam jednu otazku....
Programuji v D4 a pouzivam standartni komponenty Qreportu. Nedavno sem
narazil na problem ze Qreport neuklada svoje vystupy do TXT nebo RTF
souboru.
Ukladat lze jenom do nejakeho QRP. Vystupy z reportu potrebuji pouzit v
jinem programu (Word,T602 pripadne HTML na Internet) na papire to nestaci
...
Nevite nekdo o nejakem rozsireni Qrepotru nebo o necem co by Qreport
nahradilo a fungovalo to spolehlive a hlavne to ukladalo vystup pro ostatni
programy citelne forme???
Predem diky za rady
Petr Matejovky pema(zv)seznam(tec)cz
API - Microsoft CD
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 02.5.1999 20:47:40
Je k dispozici trial verze MS SQL (tusim 120-ti denni) a tam muzes testovat do
aleluja :-)))
Mac
Polak Jiri wrote:
> napr. MS SQL Server na MSDN je pouze pro vyvoj (v poradku), ale ma pouze
> tusim pet licenci - tedy muze jej v jednom okamziku pouzivat max. pet
> uzivatelu.
> Pritom tam je na testovani - co se da na peti uzivatelich otestovat?
> maximalne jestli jsem dobre zvladl syntaxi ulozenych procedur. Kdyz ale
> potrebuji zjistit, jestli je MS SQL Server schopen pracovat v prostredi,
> kde se na nej muze konektovat 300 lidi a jeste jsou na nej napojeny dva
> aplikacni servery, musim si ho (resp. mel bych si ho) stejne koupit.
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz mailto:martin.kubecka(zv)amenit(tec)cz =
= ICQ: 8906773 GSM (SMS): martin.kubecka(zv)sms.paegas(tec)cz =
==============================================================
ZAPIS CTENI PAMETI II
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.5.1999 22:32:46
Paja wrote:
>
> Nazdar lidi,
> tak se zase ozyvam s tou zatracenou pameti. Jak vyplynulo z vasich odpovedi
> tak asi nejlepsi je vyuzit API fci a to READMEMORIPROCESS nebo
> WRITEMEMORIPROCESS takze jsem se o to pokusil ale furt to nebere moje zadani
> tak vas tedy zadam o nejakou nazornou ukazku dosazeni do teto fce
>
> Predem dekuju Paja
Ahoj,
Tady mas priklad, nebude to fungovat pod NT, je to pro D4.
ftp://ftp.mlp(tec)cz/misc/Delphi/konference/D4/API/MemoryDump_example.zip
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
MOVE nielen v hornom pruhu okna
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.5.1999 22:33:00
Majo Petrik wrote:
>
> Ako mozem nastavit aby sa pri stlaceni mysky na hociktoru cast
> form form pohyboval podla pohybov mysky?
> dakujem
Ahoj,
Lze to udelat napriklad takhle:
type
TForm1 = class(TForm)
private
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm1 }
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited;
with Message do
if Result = HTCLIENT then Result := HTCAPTION;
end;
end.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Pozastaveni Timeru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.5.1999 22:33:13
"SPELZA s.r.o." wrote:
>
> �au Delph�ci,
> m�m takov� probl�m, kter� mo�n� W95 ani neumo��uj� �e�it. M�m �pln�
> jednoduchou aplikaci v D4. Jeden formul��, na n�m jeden TTimer s intervalem
> 1000ms, jeho� OnTimer prov�d� jedin� p��kaz MessageBeep($FFFF). Po aplikaci
> nechci nic jin�ho, ne� aby ka�dou sekundu p�pla a to za ka�d�ch okolnost�. A
> v tom je ten zakopan� pes. Pokud v dob� b�hu t�to aplikace spust�m Delphi (a
> nen� to jenom Delphi), dojde k tomu, �e p�p�n� se asi na 3 sekundy p�eru��.
> Tu��m, �e je to asi t�m, �e se v t�to dob� aplikace nedostane ke �ten� sv�
> fronty zpr�v ale mus� p�ece existovat n�jak� zp�sob, jak to �e�it (t�eba
> zm�nou priority procesu anebo tak n�jak). Nev�te n�kdo jak na to?
Ahoj,
Jedna z moznosti je napsat to jako thread s maximalni prioritou:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TBeepThread = class(TThread)
private
FInterval: Integer;
FEvent: THandle;
protected
procedure Execute; override;
public
constructor Create(AInterval: Integer);
destructor Destroy; override;
procedure Stop;
end;
TForm1 = class(TForm)
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
BeepThread: TBeepThread;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TBeepThread }
constructor TBeepThread.Create(AInterval: Integer);
begin
inherited Create(True);
FEvent := CreateEvent(nil, False, False, nil);
FInterval := AInterval;
FreeOnTerminate := True;
Priority := tpTimeCritical;
Resume;
end;
destructor TBeepThread.Destroy;
begin
CloseHandle(FEvent);
inherited Destroy;
end;
procedure TBeepThread.Execute;
begin
while not Terminated do
case WaitForSingleObject(FEvent, FInterval) of
WAIT_OBJECT_0:
Terminate;
WAIT_TIMEOUT:
MessageBeep(0);
end;
end;
procedure TBeepThread.Stop;
begin
SetEvent(FEvent);
WaitFor;
end;
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
BeepThread := TBeepThread.Create(1000);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
BeepThread.Stop;
end;
end.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Jak vytacet modem ve WIN95/NT?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.5.1999 22:33:27
vasicek wrote:
>
> Nazdar lidi,
>
> potreboval bych poradit, jakym zpusobem se ve Win95/NT pres WinAPI, nebo nejakym jinym zpusobem vytaci modem.
> Diky Ales
Ahoj,
Jde o to k cemu to ma slouzit. K pripojeni site, nebo jen k navazani spojeni s
jinym modemem a po te k nejake vlastni komunikaci ?
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Nastavenie priority aplikacie
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.5.1999 22:34:06
Majo Petrik wrote:
>
> ZDRAVIM!
> Neviete nahodou niekto ako mozem nastavit prioritu aplikacie
> (aj pocas behu programu)?
Ahoj,
Prioritu procesu lze nastavit API funkci SetPriorityClass, blizsi popis
nejdes v helpu. Ve vlastni aplikaci to pak vypada takhle:
procedure TForm1.Button1Click(Sender: TObject);
begin
SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
end;
Pokud chces menit prioritu ciziho procesu, tak musis znat jeho ProcessID,
otevrit process pomoci OpenProcess s pristupem PROCESS_SET_INFORMATION a
potom muzes pouzit opet funkci SetPriorityClass.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
SYS TRAY
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.5.1999 22:34:18
Paja wrote:
>
> Nazdar kucii
> vim ze jsem spaten a ze nejsem hoden ale nejsem schopen nekde najit ukazku
> na ten systray a tak timto zadam nejake dobraky aby mne obohatioli o ukazku
> na to jak ikonku do systraye
Ahoj,
Priklad mas treba tady:
http://www.borland.com/devsupport/delphi/qanda/1750.html
Nebo si prohledni zdrojak komponenty TRxTrayIcon z RxLib.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
typ Extended
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.5.1999 22:35:57
"Mgr. Jan Sluka" wrote:
>
> Vazeni,
>
> obracim se na Vas s nasledujici prosbou. Jak je v 10-ti
> bytech zakodovany typ extended. Vim, ze je tvoren dle normy
> IEEE 754, tj. ve tvaru znaminko, mantisa, exponent a cislo
> se urci
>
> znaminko mantisa x 10 na exponent
>
> ale nevim, kde zacina mantisa, kde exponent a jak jsou kodovany.
> Muzete mi rict, jak z danych 10-ti bytu zjistit o jake realne
> cislo se jedna?
Ahoj,
Toto mas popsano v Object Pascal Language Guide (budto v papirove
verzi, nebo v PDF na CD) pod heslem "Internal data formats".
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Problem
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.5.1999 22:36:12
Radoslav Medzihradsk� wrote:
>
> Caute
>
> Robim v delphi celkom v pohode, ale momentalne som tu jediny programator a
> sam
> vsetko nestiham, takze mam zopar otazok:
> -v komponente TreeView nastavujem jednotlivym polozkam hodnotu stateindex
> pre ikony ktore su ulozene v komponente ImageList. Vsetko mi to vsak
> robi modulo 16, takze ked zadam 17. ikonu, tak pouzije 1. ikonu.
Ahoj,
To je v poradku, v TreeView muzes mit jen 15 stateimages. Podivej se do Win32
API helpu na heslo "Tree-View Image Lists", tam je to popsano.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
report do TXT nebo RTF
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 02.5.1999 22:36:41
Petr Matejovsky wrote:
>
> Ahoj
> mam jednu otazku....
>
> Programuji v D4 a pouzivam standartni komponenty Qreportu. Nedavno sem
> narazil na problem ze Qreport neuklada svoje vystupy do TXT nebo RTF
> souboru.
>
> Ukladat lze jenom do nejakeho QRP. Vystupy z reportu potrebuji pouzit v
> jinem programu (Word,T602 pripadne HTML na Internet) na papire to nestaci
> ...
>
> Nevite nekdo o nejakem rozsireni Qrepotru nebo o necem co by Qreport
> nahradilo a fungovalo to spolehlive a hlavne to ukladalo vystup pro ostatni
> programy citelne forme???
Ahoj,
V palete komponent QReport by jsi mel mit komponenty QRTextFilter, QRCSVFilter
a QRHTMLFilter pomoci kterych lze udelat vystup v techto formatech. Nevim ted
presne jestli nejsou az soucasti nejakeho updatu, tak si pro jistotu stahni
posledni verzi QR (3.0.4) od QuSoftu, mozna je i soucasti UpdatePacku #3 pro
Delphi 4.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
APOLO
[*] No Comemnt Group, s.r.o. / Sales Department <sales(zv)nocomment.sk> - 2.5.1999 22:37:33
Ahoj,
neviete niekto nieco o produkte APOLO od Luxent Software?
rw
Dotazek - Vypocet obsahu N-uhelniku
[*] Robert Holovsky <robert.holovsky(zv)gefos(tec)cz> - 3.5.1999 00:23:26
Cau lidicky
chci se zeptat, jestli nekdo nemate source pro vypocet obsahu obecneho N-uhelniku, kde znam souradnice(X,Y) vsech N vrcholu20
Ja nemuzu nikde najit nejakej vzorecek, nebo source.
Diky za pomoc
Robert Holovsk�
robert.holovsky(zv)gefos(tec)cz - do pr�ce
robert.holovsky(zv)post(tec)cz - soukrom�
robert.holovsky(zv)seznam(tec)cz - soukrom� 10MB
typ Extended
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 3.5.1999 06:28:20
>Vazeni,
>
>obracim se na Vas s nasledujici prosbou. Jak je v 10-ti
>bytech zakodovany typ extended. Vim, ze je tvoren dle normy
>IEEE 754, tj. ve tvaru znaminko, mantisa, exponent a cislo
>se urci
>
> znaminko mantisa x 10 na exponent
>
>ale nevim, kde zacina mantisa, kde exponent a jak jsou kodovany.
>Muzete mi rict, jak z danych 10-ti bytu zjistit o jake realne
>cislo se jedna?
>
>Dekuji vsem za odpovedi
>
>S pozdravem Mgr. Jan Sluka
Kdysi jsem tento problem taky. Mozna ti pomuze priklad se single typem (4
byty).
Typ SINGLE (4-bytove cislo) podle dokumentace je ulozeno ve tvaru
-1^S * 2^(e-127) * (1.f) kde
"s" je 1.bit
"e" je dalsich 8 bitu
"f" zbyvajicich 23 bitu
s=0
e=10 00 00 10b = 130d
f= 0 11 10 00 00 00 00 00 00 00 00 00b = 3670016d
Cislice v f je nutno brat jako nasobitele vyrazu 2^(-x)*i,
kde x je pozice cislice zleva tj. -1, -2, -3, -4, atd.
a i je hodnota cislice tj. 0 nebo 1. V tomto pripade tedy
2^(-1)*0=0, 2^(-2)*1=0.25, 2^(-3)*1=0.125 atd. Takze vysledne
cislo je f=0+0.25+0.125+0.0625+0=0.4375.
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================Virus
[*] sula milos <crkstrobe(zv)geocities(tec)com> - 3.5.1999 07:27:31
Cau no tak mam pro tebe a mozna i pro ostatni dobrou zpravu :))
dopadl jsem obdobne jako vy, ale objevil jsem program Lost & Found od
PowrQuestu, kterej umi obnovit data z HDD i pokud mu uplne chybi FAT tabulka
a nebo i pokud je poskozena hlavicka (no ptom je uspesnost rapidne mensi)
:-))) Bohuzel druha smutnejsi zprava : neni zadarmo a stoji asi 2800,- KC
ale myslim ze stoji rozhodne zato!!!
Sice je pomaly ale obnovil my vsechno co jsem potreboval( HDD se mi vubec
nehlasil ).
Cau
-----P�vodn� zpr�va-----
Od: Petr Ma��k <rtepema(zv)mbox.vol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 1. kv�tna 1999 20:46
P�edm�t: Re: Virus
>Pozor !!! Tento postup nijak neresi obnovu dat, spise ji komplikuje, ne-li
znemoznuje !!!
>Zdravi
>* Petr Ma��k *
>* RT electronic *
>* rtepema(zv)mbox.vol(tec)cz *
>* tel. -02-20510562 *
>-----P�vodn� zpr�va-----
>Od: Martin <geoplan(zv)pp.sinet.sk>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 29. dubna 1999 12:41
>P�edm�t: RE: Virus
>
>
>|na boot disketu si daj fdisk a skus pomocou neho vytvorit novu partition
na
>|disku. Na disketu si daj aj format a potom disk naformatuj.
>|
>|
>|Martin
>|
>|
>|-----P�vodn� spr�va-----
>|Od: Lukas Marsalek <MARSALEL.vos97(zv)vsps-su(tec)cz>
>|Pre: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>|D�tum: 28. apr�l 1999 9:41
>|Predmet: Virus
>|
>|
>|Vazeni,
>|
>|Muj problem se netyka Delphi, ale viru. Jak jiste vite v pondeli
>|26.4. se na vsech pocitacich, na kterych byl pritomen, aktivoval
>|virus CIH. Po zapnuti pocitace me Windows ohlasily chybu a resetovaly
>|pocitac. Ovsem po restartu doslo k tomu, ze BIOS nahlasil BOOT
>|FAILURE. KDyz nabootuju z diskety, hardisk se vubec nehlasi. Je mi
>|jasne, ze na 99 procent sve data uz nikdy neuvidim, ale kdybyste
>|prece jenom mel nekdo napad, co by slo zkusit, abych se na ten
>|hardisk jeste dostal, byl bych moc vdecny. Ten virus ovsem udajne
>|nici FAT a BIOS, takze moc nedoufam.
>|Nadeje umira posledni !
>|
>| Diky
>| Lukas
>|
>|
>|
>|
>Web aplikace
[*] voltrr1.epr(zv)mail.cez(tec)cz - 3.5.1999 06:28:17
> BTW, muze mi nekdo vysvetlit, jaky prinos bych mel z pouziti Delphi misto
> ASP a JavaScriptu?
Tak treba ja :
1. Muzes pouzivat bud CGI / ISAPI (CGI se lepe ladi , ISAPI je rychlejsi -
takze dobre je odladit CGI a pak to nasadit jako ISAPI)
2. Muzes pouzit libovolny server bezici na platforme Win95/98/NT
(PersonalWeb, Apache , IIS , ServerSeven , TinyWeb ...)
3. Mas o hodne vetsi moznosti v kodu knihovny (muzes vyuzivat komplet API ,
registry , databaze atd... a to vsechno normalne Delphiovsky)
4. Vyuziti nekterych veci ktere ma ASP zabudovano (napr. session) je vetsi
problem ale vetsinou se bez toho obejdes
5. Pokud naprogramujes dobre ISAPI muze bejt rychlejsi nez ASP
6. Muzes programovat vlastni ISAPI filtry (takze si muzes udelat vlastni
jazyk ktery se pak chova jako ASP)
7. Nejsi zatizen chybama ASP
8. Mas to v .exe a i kdyz ti ho nekdo stahne na lokal (napr. $DATA chyba)
tak tam toho neni videt tolik na prvni pohled
Radek
Web aplikace - autentizace
[*] Milan Nimec <nemec(zv)goldcard(tec)cz> - 3.5.1999 07:43:22
Jak se uspesne autentizovat na serveru?
Chci aby se mi zobrazil dialog Exploreru a
zeptal se na jmeno a heslo.
Zkousel jsem toto:
if (!Request->Authorization.IsEmpty())
{
Response->StatusCode=401;
Response->WWWAuthenticate="Basic";
}
else Response->Content = "autentizace probehla";
Tento kod projde dvakrat, poprve tam neni zadne jmeno ani heslo.
Podruhe se to hlasi jako NTLM. Kdyz vratim i podruhe StatusCode 401,
Tak to hodi prihlasovaci dialog, ale do kodu to uz neskoci.
Vite co s tim?
Milan
-----P�vodn� zpr�va-----
Od: Roman Fi�er [SMTP:fiser(zv)gbn(tec)cz]
Odesl�no: 29. dubna 1999 20:07
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Web aplikace
Zdravim,
Podle dotazu soudim, ze toho o HTML moc nevis takze ma rada bude trosku
delsi:
ad 1:
V nejakym HTML editoru (napr. notepad :-) si vytvoris stranku ve ktere bude
neco na zpusob tohoto:
<HTML>
<HEAD><TITLE>Vstupni data pro formular</TITLE></HEAD>
<BODY bgcolor="white">
Zadejte vstupni hodnoty:<P>
<FORM action="aplikace.exe" method="POST">
Jmeno: <INPUT NAME="jmeno" SIZE="10"><BR>
Prijmeni: <INPUT NAME="prijmeni" SIZE="10"><P>
atd..
<INPUT TYPE=submit value="odeslat">
</FORM>
</BODY></HTML>
Tohle ulozis nekam na server.
ad 2 a 3:
pokud tvuj server podporuje Cgi muzes to udelat v Delphi (konzolov�
aplikace) takto:
readln(neco); // var neco = string v tom se ti vrati to co si zadal do
predchozi html stranky
// v tomoto tvaru jmeno=Jan&prijmeni=novak to si
nejak zformatujes
// pak tomu jednoduse vratis to co potrebujes pomoci
std vystupu formatujes jako html stranku,
// povinny sou pouze ty dva prvni radky
writeln('content-type = text/plain');
writeln;
Writeln('<HTML><HEAD><TITLE>Vracene hodnoty</TITLE></HEAD>');
writeln('<BODY bgcolor=white>');
writeln('Zde jsou hodnoty ktere jste chteli vedet :<BR>');
writeln('I�O:'+table1.fieldbyname('ICO').AsString+'<BR>');
writeln('</BODY></HTML>');
a mas to hotovo. Tohle si ulozis jako soubor aplikace.exe do stejneho
adresare na serveru ve kterym mas tu predchozi html stranku musis to ulozit
do adresare, ktery ma povoleno vyhodnocovani cgi obvykle to byva
/cgi-bin.
pokud server nepodporuje cgi pak mas nekolik dalsich moznosti
ActiveServerPages,PHP,...) ale to uz sem nepatri.
Pokud se tomu budes chtit venovan vice, doporucuji vrele CgiExpert
(http://www.cgiexpert.com) v mnohem ti muze usnadnit praci a jedna z jeho
verzi je free.
Pokud ti neco nebude jasny (HTML, Delphi,..) tak mi klidne napis na muj
soukromy email.
---------------------------------------------------
- Roman Fiser jr.
- programatorska skupina NGSoft
- software nove generace
- fiser(zv)gbn(tec)cz www.gbn(tec)cz/ngsoft
---------------------------------------------------
telefon: 0301/24632, ICQ: 25542226
----- Original Message -----
From: Petr Zika <petrz(zv)rts(tec)cz>
To: Konference Delphi (el. adresa) <delphi-l(zv)fwd(tec)cz>
Sent: 29. dubna 1999 17:30
Subject: Web aplikace
Dobry den
Jeden kolega potrebuje udelat malou Web aplikaci, kter� ma pracovat asi
nasledovne
1.krok - v exploreru se zadaji nejake vstupni udaje
2.krok - podle t�chto udaju se z databaze vytahnou informace (texty)
3.krok - tyto informace se nejak naformatovane zobrazi v exploreru
tzn. ze to funguje podobne treba jako aplikace "obchodni rejstrik" (urcite
ji znate)
A ted ten dotaz. Da se neco z toho udelat v Delphi ? Nebo to nejde a je
nutne pouzit neco jineho ?
begin 600 WINMAIL.DAT
M>)\^(A<%`0:0" `$```````!``$``0>0!(zv)`(````X(zv)0```````#F``$((zv) <`
M& ```$E032Y-:6-R;W-O9G0(zv)36%I;"Y.;W1E`#$(`0V ! `"`````(zv)`"``$$
MD 8`(zv) $```$````0`````P``, (````+``\.``````(!_P\!````/0``````
M``"!*Q^DOJ,0&9UN`-T!#U0"`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E
M;'!H:2UL0&9W9"YC>(zv)`````>``(P`0````4```!33510`````!X``S !````
M$ ```&1E;'!H:2UL0&9W9"YC>(zv)`#`!4,`0````,`_(zv)\&````'(zv)`!, $````2
M````)V1E;'!H:2UL0&9W9"YC>B<````"`0LP`0```!4```!33510.D1%3%!(
M22U,0$971"Y#6(zv)`````#```Y``````L`0#H!````'(zv)#V7P$````0````9&5L
M<&AI+6Q 9G=D+F-Z``(!]U\!````/0````````"!*Q^DOJ,0&9UN`-T!#U0"
M`````&1E;'!H:2UL0&9W9"YC>(zv)!33510`&1E;'!H:2UL0&9W9"YC>(zv)`````#
M`/U?`0````,`_U\``````(zv)'V#P$````$`````````I%'`02 `0`?````4D4Z
M(%=E8B!A<&QI:V%C92 M(&%U=&5N=&EZ86-E`',*`06 `P`.````SP<%``,`
M!P`K`!8``0`G`0$(zv)(zv) ,`#(zv)```,\'!0`#``<`'(zv)`=``$`(0$!"8 !`"$````U
M-S8W-SE#0S$R,#%$,S$Q0C!$13 P-C P.#$X.#5#- #B!(zv)$#D 8`Q T``"$`
M```+``(``0````L`(P```````P`F```````+`"D```````,`+(zv)```````P`V
M``````! `#D`P(;CVB>5O(zv)$>`' ``0```!\```!213H(zv)5V5B(&%P;&EK86-E
M("T(zv)875T96YT:7IA8V4```(!<0`!````%(zv)````&^E2?:*LQY9UD!$A'3L-X`
M8 (zv)8A<0``!X`'(zv)P!````!0```%--5% `````'(zv)`?# $````2````;F5M96-
M9V]L9&-A<F0N8WH````#``80!HNV\P,`!Q"]"(zv)``'(zv)`($ $```!E````2D%+
M4T554U!%4TY%055414Y425I/5D%43D%315)615)5/T-(0TE!0EE314U)6D]"
M4D%:24Q$24%,3T=%6%!,3U)%4E5!6D505$%,4T5.04I-14Y/04A%4TQ/6DM/
M55-%3$I310`````"`0D0`0```*(*``">"(zv)``-Q(``$Q:1G5+;5(zv)R`P`*`')C
M<&<Q,C47`4,!- M(zv);(zv)X0,#(Y'0'W( *D`^,"`'!R<1(W`(zv)!C: K <V5T?# (zv)
M!Q,"(zv)P!0$'8153+4,S(zv)``"H"X6$'(zv)!'6T0<3($-%`H,R$&H5H3<3+Q0_%4%]
M"H (R" [FPEO#C U`H *(zv)75C`% 3"P,/!#,S"Z8(zv)2F&$:R 1D"!U<W 'D")N
M%\!A=70)\'1I<'IO=F$%0!>0'4%R,G8$D'4_"J(*(zv)$-HI&-I'?!B>1U";2 0
MH1YP8G)A>(zv),19 <QX&]G($5X"U %L!]!\QWP'X1Z904P%0$=41[1DFH'(zv)&YO
M'? (zv): >0S0D`+A^$'X1::PA(zv)$9"%`R!J$9!M('1O)B">.AOU#V 28B2I(" &
MD$ (zv)*"%297$*4'/0="T^01X0: 6P'F %'J!I`B N27-%;>$%,'DH*2D*XPJ!
M' GO)_ #, ``)*=D*Z(FB2NA7RA(zv)'9 "(!&0*-!3`9!TAQV "% !`#TT,#$9
MT.\GI2KN+.HMR%<R,"CR'C)&8QZ(zv)+O B0F$-T2+W+T4;KRNB?29_*MXEH!U1
M#RVJ"% ",!XQ(#T(zv)(I\>!(zv)#0%\ 0\"#(zv)96(zv)+8/LSF(zv)J 5!XQ(_ E8"R0.(zv)$N
M:(zv)$`(5 >D&LA`'0L_3GP;Q#P'S F$!>(zv)'L )\'D(zv)L6%D'=$CM3W1)#I0_P1P
M'U D,!U".Y$Z40"0(Z #'2 C\$Y43$TN(,!+9'EZ('8\L0=P?R(zv)`//$_Y"S;
M+F(zv)J["\1+/\[!1TA0'($<$)Q!1! HAZ!_R !(60\X = /%$[HR)0.Y%V=4'(zv)
M'=!S)6 (zv)`"2+5OII'B (zv)!: =0"80!W ?=?T?A$T#$ !P-7\DY0J(zv)`V )'B!C
M=!6$,38(zv)+8%.\E!<)V8Y=(zv)1PO0N0)PF (, 0\$_1,1Z0'T[S38P!0 L$3(zv)9I
M+3%V-"\0&_!I4P,,T%,#8M(zv)(zv)3V0F8 R28A' " -$($8`H"<Y8020(,!;4TU4
M4#I2T!\!B$!G8BFP8WI=))7_5#(D05!2(^!4=P](zv)09!(H#-6P![(zv),3E9H%C(zv)
M,#K6,!$(zv)5S9+`W!U5'<!``AL<&A2X&Q 9G>N9%;A5R=/0C(zv))(zv)&U/T8-.0%1X
M93H(zv)5V54,/)A"U!I:SG!40]2&Q*"YPP!)00_X&%V!W!%E3]GVT(zv)C`9!Z(E!'
M('4A8&)P%R# 0%(I(" C\$A43?Y,()!)<#VA8E!*\1T(zv)9*'5`, (zv)(0!D'N!B
M9$ ]4?\#8$E0#' ?DUN1`) F8"2I]SX068!H=58]H4$!!L!E-.\)(zv)$J !; B
M4"(zv)7D!#P09#/(^ >( JP+) Z+2I(zv)0-'X=GET3Y %$ 0(zv)*+ A`.YN9Z!!\!?
M:QX(zv)"7!G`_\?A!W02L$>T5 (zv)'8 (zv)X&3#*R9")*D\94(^<,9%02!$/CQ424%(zv)
M13[R5BBP=7 ]T6;(zv)`9 Y\AH(zv)`A!R6N +8'(\+P]R5'1 <?-PQ4)/1%EM9P!G
M".,S('=;T!X(zv)(MUQ=5H^$&H(zv)2I%V<L5&<2%KT7DZ/%!Q=D9/?%)-'?!.0"F1
M,R!>]BY\97AVP""0$:!&<3,(zv)4&A/4U1VUDHCPEZ0/"!)3E!55 >P04V.13,(zv)
M([-[`%-)6GUQUP] =M!UD%)Q=5 %$".R_VA(zv)?,Q&P7^#??MXYAZ(zv)7$"C)(5\
MU5194'UP<UE _R"(zv)!4 >D I!,R $<210'J#_=M9T0'ERA6=UHG2R<4(zv)[!?=D
MX$(zv)A= !O(2 $(!W07S"O/9$>YB2+:4$R) $S:'7/+?!GH"R0;.!U:A[U0H++
M+? ?4&H7P$-G(!!:X!\BX$KQ2.%;D1ZA=B!$MUNC*# E8&X>< D`=E!2_VCE
M7P4J8&8Q<#T?A EP/A ,;&YK8 61*3L(zv)+_XOA&$%P&\#.1!M40N (;#_CL F
M("8`0$)LH4(20&)*PO\]XQ4!2%"+90EQ$5"(P20(zv)['1M(S%M8WDGEID_F8)_
MDX*4XB8QC!$*P")0([,]Z1T0;B: QCTCX#R!0&+_`)%NM4$!(,!SPBZ!C5 0
MP/^8WYG["K!&(EK(zv)(Z )(zv)"/(zv)_TB(zv)'5%"`XX#2L$M\&=(zv)7L#_GL(\\661G84H
ML"R0;,!RPN\B4)YH0/28"75%E9^_H'?['H +(zv)&X(zv)40A(zv)//&-T280=R!0/'$Y
M\78]T6;!F*9WMP40'B"2X2<%H#BS+2H(zv)1QV(zv).0$>('AT+PM3)_>34*LK+T57
MJY9Q)''L(0#_.= =T7A5=$VMKJ^!=:MV(zv)_^RKZOP8A ^0:EB>%5M]270_TJ2
MF `EH&RA"8 1H&Q ?K()M1\G24]08SA/.LPG*P&12" Q+E+0):!.9"! %Y*Z
M$4-/K: N[$%S+F"4(zv)BNSP;C_KW+_AKNMIVCE9H&.`W 23Y!!D/^(1$#1B*5!
M`V0A!N %P'I*>TA"M[%J'= I(&CF"7!S_PK (V,?!6W&:F' 4ZF!EW__;8-:
MX "0C(zv)2(LDY09]0C\?_$]3S(zv)QE-F(zv)JCA!O CTFS [WA3!: >D#W18XV1(.!L
MP+YK2"$[D2! 'I ?A"_,P?PM8(zv)N )(N+Q(QU'=",Z/_,PJ#RP%*)$0;P7R!S
M(6A!^Q%098%Z(^ HL)V%$=!YT4<?, 9A'S%086<'D"S04$A0+(+ +BI(zv)2!+_
M2-0EXM!Q'J %$"2+/\#/Q/^A)&<2!""W\81"(]',<4'P[PW(zv)RI%(4(T28XQ
ME7(EH.^-8R'1!)#)A2(zv)(T !!= #1E_%T<#J3(zv)'?=,%;(zv)_XV0>M#;DE;(zv)`W#<
M00% = #W$< J8([ ;2/(zv))# F`8VD_QUQ%Y ^((1!$/!'4B.1H9'_;V&A<<1F
M'S&7T8U1`U )X/_6[XP!(!!O!*,QMD(S4*DQ_BAE0CS(zv)CN35,9$#()+-0/YI
M/B)K<8CBP#&,0*0%"&#?/* #<"!0)? +<&PDB^G__(zv)I.\^N_[,_MFNL5IZE5
M!O\?`2.(zv)B?;O`SH!"< 7H!Z(zv)/P6P25 >X6>(zv)YZ >T4Y'O%-O`8#NK$<(zv)`8!W
MQ3/_'H 7P-3 '="PXNZF5EJGH_O=,E:T+P\(zv)]!+K'_D?^B]_[DJL\4(zv)(zv)`A%>
MD!Q0+R OH#(T-C,R/. (zv)O "F45Z0&O$T,OX`-NI?O^L*5$ %$(V0%Y #($T'
MD&_%(-3 3N2F]$8#85Z04'L1H 7 6E\A?, =H&=(zv)>OI "2!S5N%Q=8A 7I!:
MP/1N9FXA;CG1CN8EH$&0^\3D*F \6YUQ==1 #\#]H?%9##$W.ORP!V590(U0
M]UW!7J^1S$0(zv)X:H1&G DFLY*N''9L-(196?+,J,5_XY&Z4"/L")0"EGF0&WS
M4%+_RQ.PX1Z#,U%NI3-02"!(4/^JD L+NQ#HT1TP[P".P-VA_R(%-Z&6(zv)MJQ
M:A-WN&1 %9#]7V4R$_9"D<U279*W\8XR=Q60%11S(V(A$'>Q;-!AOF(zv)CX")0
MK8"E(SG1**T"]'DIIO0S$_:J`#N1&MC_(U*>`[N(zv)I23,8A5!(.04:KTDFG33
M$$&09*-SL'4P`/^-0D*1#$"Q(:,2X/%!$E[V?SD(zv)#$#'<>!!9K!J()1B:_%[
M`"AU<D=(zv):_"F]-JQ[],0,O$;U:;T0:SQC $-L?MCLT&01(F"D^1!X&33CE[^
M/T% "F";,>22/#+(zv)\FZE_SE0L2&IHN!A;P/:L,1"*I!7"Q\NGS/P?3/P`#!(zv)
M```#`! 0``````,`$1 ``````P" $/____] ``<P0"B?#B:5O(zv)% ``(zv)P0"B?
M#B:5O(zv)$+``" "" &``````# ````````1(zv)`````#A0````````,``H (( 8`
M`````, ```````!&`````!"%`````````P`%(zv) (zv)(zv)!(zv)``````P ```````$8`
M````4H4``/ .```>`"6 "" &``````# ````````1(zv)````!4A0```0````0`
M```X+C ``P`F(zv) (zv)(zv)!(zv)``````P ```````$8``````84````````+`"^ "" &
M``````# ````````1(zv)`````.A0````````,`,( (( 8``````, ```````!&
M`````!&%`````````P`R(zv) (zv)(zv)!(zv)``````P ```````$8`````&(4````````>
M`$& "" &``````# ````````1(zv)`````VA0```0````$`````````'(zv)!"(zv) (zv)(zv)
M!(zv)``````P ```````$8`````-X4```$````!`````````!X`0X (( 8`````
M`, ```````!&`````#B%```!`````0`````````>`#T``0````4```!213H(zv)
.``````,`#33]-P``0:"%
`
end
Vypocet obsahu n-uhelniku
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 3.5.1999 07:45:47
> -----Original Message-----
> From: Petr Brant [mailto:p.brant(zv)samo(tec)cz]
> Sent: Monday, May 03, 1999 7:58 AM
> To: Konference Delphi
> Subject: Vypocet obsahu n-uhelniku
>
>
> Ahoj,
>
> source sice nemam, ale existuje jednoduchy vzorec pro vypocet obsahu
> trojuhelniku. Nejsem si sice na 100% jisty, ale da se to
Chtel bys tedy obsah n-uhelnika pocitat jako soucet
obsahu (n-2) trojuhelniku? To by slo obecne pouze u konvexnich
n-uhelniku, lib. strana by byla zakladna, vsechny ostatni vrcholy
by byly vrcholy tech (n-2) trojuhelniku. U nekonvexnich by asi bylo
vhodne udelat jim konvexni obal a od nej odecist obsahy vsech m-uhelniku,
ktere jsme pridali.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Vypocet obsahu n-uhelniku
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 3.5.1999 06:57:54
Ahoj,
source sice nemam, ale existuje jednoduchy vzorec pro vypocet obsahu
trojuhelniku. Nejsem si sice na 100% jisty, ale da se to urcite overit v
nejake matematicke ucebnici (viz nize):
x1 y1 1
P = 0.5 * det ( x2 y2 1 )
x3 y3 1
kde x1,y1 atd. jsou souradnice vrcholu trojuhelniku. K vypoctu
determinantu se pouziva Sarrusovo pravidlo (lze rovnez najit v
literature).
Pokud znas delky vsech tri stran trojuhelniku, muze se pouzit Heronuv
vzorec:
P = sqrt( s*(s - a)*(s - b)*(s - c) ) , kde s = (a + b + c)/3 (anebo 2
? - opravdu si nevzpominam )
Literatura: Hans-Jochen Bartsch - Matematicke vzorce.
Pripadne napis na soukromy mail, rad poradim.
************************************************************************
*******************************
Petr Brant [p.brant(zv)samo(tec)cz] programator v MSVC++, obcas Delphi nebo
Visual Basic
************************************************************************
*******************************
Kopirovani na serveru
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 3.5.1999 08:12:12
No zkus na to pouzit nejaky SQL
napr.
SELECT *
FROM T1
INTO T2
> ----------
> Od: kkint(zv)post(tec)cz[SMTP:kkint(zv)post(tec)cz]
> Odesl�no: 1. kv�tna 1999 9:44
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Kopirovani na serveru
>
> dobry den
>
> mam problem: pri kopirovani tabulky potrebuji, aby se tato kopirovala
> pouze na serveru ( aby data nesla pres klienta, na kterem spoustim
> kopirovaci program ). zatim to delam takhle ( schematicky:
>
> 'select * from ZdrojovaTabulka'
>
> while not ZdrojovaTabulka.EOF do begin
> KopirujJednuVetu
> ZdrojovaTabulka.Next
> end;
>
> ale to je evidentne spatne, ponevadz takhle si taham data na klienta.
> jak to mam udelat? dik za odpoved
> Virus
[*] Martin <geoplan(zv)pp.sinet.sk> - 3.5.1999 08:45:50
Jasne, nemyslel som na obnovu dat, iba na znovurozchodenie disku. Sory
martin
-----P�vodn� spr�va-----
Od: Petr Ma��k <rtepema(zv)mbox.vol(tec)cz>
Pre: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
D�tum: 1. m�j 1999 21:08
Predmet: Re: Virus
>Pozor !!! Tento postup nijak neresi obnovu dat, spise ji komplikuje, ne-li
znemoznuje !!!
>Zdravi
>* Petr Ma��k *
>* RT electronic *
>* rtepema(zv)mbox.vol(tec)cz *
>* tel. -02-20510562 *
>-----P�vodn� zpr�va-----
>Od: Martin <geoplan(zv)pp.sinet.sk>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 29. dubna 1999 12:41
>P�edm�t: RE: Virus
>
>
>|na boot disketu si daj fdisk a skus pomocou neho vytvorit novu partition
na
>|disku. Na disketu si daj aj format a potom disk naformatuj.
>|
>|
>|Martin
>|
>|
>|-----P�vodn� spr�va-----
>|Od: Lukas Marsalek <MARSALEL.vos97(zv)vsps-su(tec)cz>
>|Pre: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>|D�tum: 28. apr�l 1999 9:41
>|Predmet: Virus
>|
>|
>|Vazeni,
>|
>|Muj problem se netyka Delphi, ale viru. Jak jiste vite v pondeli
>|26.4. se na vsech pocitacich, na kterych byl pritomen, aktivoval
>|virus CIH. Po zapnuti pocitace me Windows ohlasily chybu a resetovaly
>|pocitac. Ovsem po restartu doslo k tomu, ze BIOS nahlasil BOOT
>|FAILURE. KDyz nabootuju z diskety, hardisk se vubec nehlasi. Je mi
>|jasne, ze na 99 procent sve data uz nikdy neuvidim, ale kdybyste
>|prece jenom mel nekdo napad, co by slo zkusit, abych se na ten
>|hardisk jeste dostal, byl bych moc vdecny. Ten virus ovsem udajne
>|nici FAT a BIOS, takze moc nedoufam.
>|Nadeje umira posledni !
>|
>| Diky
>| Lukas
>|
>|
>|
>|Anglicky help pro RX Library 2.50
[*] Plisek Jan Ing. <Plisek(zv)spse(tec)cz> - 3.5.1999 07:55:42
Vazeni Delphisti,
prosim o informaci, kde se da v soucasnosti sehnat anglicky help pro
RX Library 2.50. Dekuji predem za radu.
===================================================
ing. Jan Plisek e-mail:plisek(zv)spse(tec)cz
SPSE a VOS tel. (040) 6614788-9
Karla IV. 13 fax. (040) 6614763
531 69 PARDUBICE WEB: http://www.spse(tec)cz
Czech Republic
===================================================Virus
[*] tmara(zv)itsys(tec)cz - 3.5.1999 09:16:30
Halloa ALL,
Toto reseni asi znate, ale napisu ho znova....
Chcete-li obnovit alespon nejaka data na disku, pouzite DiskEdit z
NortonUtilities. Nezachranite sice (vetsinou) cele programy, ale napr.
Zdrojaky, dopisy atd. ano. Chce to ale vedet nejake slovo, kter� dat
vyhledat a podle jeho polohy se orientovat (e.g. "program vypocet;") ... ono
toti� prolejzat 3GB disk je docela zdlouhava pr�ce...
Delat s DE je docela jednoduche, takze Vam preji, at alespon n�co
zachranite....ByE
OemToChar na WinNT a Win98
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 3.5.1999 09:24:42
Ahojky
domnival jsem se, ze jsem udelal prevod tabulek z Latin2 do Win 1250 a to temer bez prace za pouziti fce OemToChar.
var blbost:boolean;
ToChciPrevest:string;
...
blbost := OemToChar(PChar(ToChciPrevest),PChar(ToChciPrevest));
...
V praci na WinNT 4.0 funguje bez problemu. Ovsem doma na Win98 se nestane vubec nic. Na cem je tato fce zavisla?
P.S: Oboje wokna jsou cz maji posledni ceske servis packy.
P.S2. Nelezi u nekoho na disku prevodni tabulka? (na www.cestina(tec)cz se nemohu prokousat)
Dik
===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
... Windows nemohou byti virem, nebot virus je napsan inteligentne a neco dela
Kopirovani na serveru
[*] Ale� Kle�ka - 3.5.1999 09:47:42
Ahoj,
muzes taky vyzkouset poslat SQL prikaz:
INSERT INTO Cilova_Tabulka ( C1, C2, C3, ... )
SELECT Z1, Z2, Z3, ...
FROM Zdrojova_Tabulka
WHERE ...
Ale� Kle�ka
{ a.klecka(zv)email(tec)cz }
----- Original Message -----
From: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, May 03, 1999 8:12 AM
Subject: RE: Kopirovani na serveru
No zkus na to pouzit nejaky SQL
napr.
SELECT *
FROM T1
INTO T2
Absolutni na relativni cestu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 3.5.1999 10:08:15
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Mate prosim nekdo funkcni funkci na "prevod" cesty
z absolutni na relativni (vzhledem k jine ceste)
napr. vzhledem k adresari C:\Program Files\Common\
je soubor Win.com umisten tady
..\..\Windows\Win.com
Doufam, ze jsem to napsal srozumitelne.
Diky...
...Dobra
String to PChar
[*] Lubo Fule <fule(zv)sct.sk> - 3.5.1999 10:33:55
Najcistejsie je to tak, ze najprv naalokujes potrebne miesto + jeden bajt na
#0 potom skopirujes string do naalokovaneho pola pomocou StrPCopy. Maly
priklad:
var s: String;
p: PChar;
...
...
p := AllocMem(Length(s)+1); //alokovanie potrebnej pamati
StrPCopy(p, s); //skopirovanie "pascalovskeho" string-u do
"c-ckoveho" ukonceneho #0
Lubo.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Martin Bohm
> Sent: Friday, April 30, 1999 10:03 AM
> To: Delphi Forum
> Subject: String to PChar
>
>
> Zdravim
>
> Som zaciatocnik a
> mam taky maly problem, jak prevediem String na PChar.
>
> Diky za kazdu radu.
>
> Martin B�hm
> mbohm(zv)quelle.sk
> tel. 07/5556 88 08
>
>
String to PChar
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 3.5.1999 10:53:53
Maly dodatek.
U D2 a D3 je string kompatibilni s PChar, takze staci pretypovat napr.:
var
S :string;
begin
...
X :=PChar( S);
...
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
http://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: Lubo Fule [SMTP:fule(zv)sct.sk]
Odeslano: 3. kvitna 1999 10:34
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: RE: String to PChar
Najcistejsie je to tak, ze najprv naalokujes potrebne miesto + jeden bajt na
#0 potom skopirujes string do naalokovaneho pola pomocou StrPCopy. Maly
priklad:
var s: String;
p: PChar;
...
...
p := AllocMem(Length(s)+1); //alokovanie potrebnej pamati
StrPCopy(p, s); //skopirovanie "pascalovskeho" string-u do
"c-ckoveho" ukonceneho #0
Lubo.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Martin Bohm
> Sent: Friday, April 30, 1999 10:03 AM
> To: Delphi Forum
> Subject: String to PChar
>
>
> Zdravim
>
> Som zaciatocnik a
> mam taky maly problem, jak prevediem String na PChar.
>
> Diky za kazdu radu.
>
> Martin Bohm
> mbohm(zv)quelle.sk
> tel. 07/5556 88 08
>
>
Oracla & Delphi
[*] petrhalamicek(zv)email(tec)cz - 3.5.1999 11:10:52
Zdrav�m v�echny.
Nev�te, kde by se daly sehnat n�jak� informace o programov�n� v Delphi pod
Oraclem ? D�ky moc.
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
problem s dcom pri klient/server aplikacii
[*] Richard Sladek <richard_sladek(zv)hotmail(tec)com> - 03.5.1999 09:19:26 pdt
Uz skoro 2 tyzdne sa trapim s nasledovnym problemom a uz sa pomaly kvoli
tomu prebudzam zo spania:
Vytvoril som klient/server aplikaciu, pricom som pouzil komponenty ADONIS.
Tie su naozaj vyborne a mozem ich len doporucit. Aplikacny server mam ako
ActiveX DLL kniznicu no a klient je standardny exe-subor.
Aplikacny server som zaregistroval na klienta i server a nainstaloval na NT
4.0 SP4, klienta mam na Win 98.
Ked sa chcem pripojit z klienta na aplikacny server, tak sa ale oznami chyba
"Unable to create business object", t.j. na vzdialeny pocitac (NT) sa aj
pripoji, ale nedokaze uz aktivovat moj aplik. server. Tato chyba sa vsak
vyskytne i v pripade, ze sa pripajam na ten isty pocitac, t.j. do
ComputerName uvadzam nazov toho isteho pocitaca. Ked neuvediem do
ComputerName nic, tak vsetko funguje (vtedy sa vsak server aktivuje ako
in-proc server a nie cez DCOM).
Predpokladam, ze chyba je niekde v nastaveni DCOM alebo v zaregistrovani
mojho servera, neviem vsak kde.
Dufam, ze sa najde niekto, kto vyriesi moj problem... Vopred dakujem.
S pozdravom
Richard Sladek,
TechMedia s.r.o.
Smrekova 3
010 01 Zilina
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Absolutni na relativni cestu
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 3.5.1999 11:19:25
> Mate prosim nekdo funkcni funkci na "prevod" cesty
> z absolutni na relativni (vzhledem k jine ceste)
>
> napr. vzhledem k adresari C:\Program Files\Common\
> je soubor Win.com umisten tady
> ..\..\Windows\Win.com
>
function TMainForm.ZjistiRelatCestu(prvni, druhy:string):string;
begin
if LOMITKO='/' then
Result:=StringReplace(ExtractRelativePath(prvni,druhy), '\', '/',
rfReplaceAll])
else
Result:=ExtractRelativePath(prvni,druhy);
end;Web aplikace
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 3.5.1999 11:48:53
voltrr1.epr(zv)mail.cez(tec)cz wrote:
Hi,
diky za odpoved. Zkusim jeste nekolik otazek:
>1. Muzes pouzivat bud CGI / ISAPI (CGI se lepe ladi , ISAPI je rychlejsi -
>takze dobre je odladit CGI a pak to nasadit jako ISAPI)
Mas nejaky priklad, kdy bys potreboval pri tvorbe WWW pouzit CGI/ISAPI, kdyz
mas ASP? Ja jsem zatim v ASP vyresil vse, co jsem pro WWW aplikaci, ktera
leze do DB (pise i cte), kontroluje pristupova prava a loguje uzivatele,
potreboval.>2. Muzes pouzit libovolny server bezici na platforme Win95/98/NT
>(PersonalWeb, Apache , IIS , ServerSeven , TinyWeb ...)
Existuje nejaky racionalni duvod na platforme Wintel pouzivat Apache ci jiny
server nez IIS? BTW, ziju v domneni, ze PersonalWeb je oklestena verze IIS
pro platformu Win9x. Mylim se?>3. Mas o hodne vetsi moznosti v kodu knihovny (muzes vyuzivat komplet API ,
> registry , databaze atd... a to vsechno normalne Delphiovsky)
Souhlasim. Zejmena chybejici typova kontrola, to byl otres. Brrrr... Ovsem s
tim BDE souhlasit nemuzu. Z ASP mam pristup na SQL na slusne urovni.>4. Vyuziti nekterych veci ktere ma ASP zabudovano (napr. session) je vetsi
>problem ale vetsinou se bez toho obejdes
Tady nesouhlasim. Hojne jsem to pouzival pri autentikaci/logovani
uzivatele/session a byl jsem docela rad, ze to za me Gates udelal a ze jsem
se nemusel patlat s cookies.
>5. Pokud naprogramujes dobre ISAPI muze bejt rychlejsi nez ASP
V cem? V tom, ze ti odpadne interpretace scriptu, protoze presunes kod do
EXE? O kolik, kdyz vetsinou ten script stejne vola nejakou DB a sam toho moc
nepocita?>6. Muzes programovat vlastni ISAPI filtry (takze si muzes udelat vlastni
>jazyk ktery se pak chova jako ASP)
Celkem me nenapada, proc bych to potreboval. Mas nejaky priklad?>7. Nejsi zatizen chybama ASP
O.K. Ale myslis, ze Delphi je bez chyb? Mozna, ze uz to nejak slepili, ale v
D2 ty prvky souvisejici s TCP/IP, INETem a spol. byl takovy shit, ze jsem
nikdy mizernejsi SW nevidel komercne distribuovat :-((((>8. Mas to v .exe a i kdyz ti ho nekdo stahne na lokal (napr. $DATA chyba)
To me zajima: co je to chyba $DATA, jak ji lze vyvolat?
Thanx, pf
adtfields & dbgrid
[*] Roman <roman.banar.fei(zv)vsb(tec)cz> - 3.5.1999 11:00:19
Ahojte,
v jedne tabulce /RxDBGrid/ potrebuji udelat slozitejsi zahlavi
/titles/, kdy tzv. jeden vetsi sloupec je rozdelen na nekolik mensich
sloupecku. Podle helpu k tomu slouzi TADTField /nebo TArrayField, ale
to se nehodi/, jenom dost dobre nevim, co vsechno provest, abych
dosahl zadaneho vysledku.
Prepokladam, ze se musi pouzit adtfild.fields.child.add(mujfield), ale
to asi nebude vsechno :-)
Koneckoncu se mi jedna pouze o prehlednost, a stejnou vec bych
potreboval i pro StringGrid, takze jestli nekdo nevite o nejakych
komponentach, ktere by toho jednoduseji resily...
Dik moc za kazdou kloudnou odpoved,
preji prijemny den
Roman
-------------------------
amatersky flakac v Delphi
email: roman.banar.fei(zv)vsb(tec)cz
email: jozin.z.bazin(zv)email(tec)cz
www : http://nwinfo1.vsb(tec)cz/~.l96955.sti.fei/Absolutni na relativni cestu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 3.5.1999 12:45:28
Yo,
diiiky (o existenci ExtractRealtivePath
jsem nemel tuseni).
D.> ----------
> Od: Krayzel Libor[SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
> Odesl�no: 3. kv�tna 1999 11:19
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Absolutni na relativni cestu
>
> > Mate prosim nekdo funkcni funkci na "prevod" cesty
> > z absolutni na relativni (vzhledem k jine ceste)
> >
> > napr. vzhledem k adresari C:\Program Files\Common\
> > je soubor Win.com umisten tady
> > ..\..\Windows\Win.com
> >
>
> function TMainForm.ZjistiRelatCestu(prvni, druhy:string):string;
> begin
> if LOMITKO='/' then
> Result:=StringReplace(ExtractRelativePath(prvni,druhy), '\', '/',
> rfReplaceAll])
> else
> Result:=ExtractRelativePath(prvni,druhy);
>
> end;
> Tahanie panelu
[*] Patrik Legath <Pato(zv)Baris.sk> - 3.5.1999 12:59:47
Ako spravit nieco take, ze pri Move okna budem vediet zmnit aj HRUBKU ramu. Vid Wordked som nad toolbarmi, tak je tenky, ked som nad Plochou, tak je hruby. Pozicia sa da cez WM_MOVING, ale ale sirka sa neda ?