Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Nulova hodnota Date
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 16.9.1998 14:47:53
> > a na nem jen jeden TDateTimePicker, hodi to EXE veliky 299.520 bajtu.
>
> Ad absurdum: Kdyz udelam aplikaci v Delphi 3, kde je jenom 1 formular a 1
> TDateTimePicker, ma EXE soubor velikost 193536 bajtu.
Tak to ale neni tech 150 kB, ze ne?
> Ja taky programuju v Delphi radove 12 hodin denne (nechci se ted prit, kdo
Vzdyt ja se nechci prit ani prat, ja chtel jen konkretne vedet,
proc to ty povazujes za nevyhodu. Na to jsem se take slusne
zeptal a od tebe obdrzel impertinentni reakci bez odpovedi.
> dyl, nejsme deti, ze). Uvazuju ale tak, ze je lepsi pouzit nejakou
> komponentu, ktera nevyzaduje sireni dalsich knihoven (napr. TDateEdit a
> TDBDateEdit od RX), nehlede na to, ze kdyz pracuju s databazi, nezda se mi
> TDateTimePicker zrovna nejvhodnejsi. Jestli jsi jineho nazoru, muzeme se tu
> prit do doby, nez Micorosoft vymysli nejaky nepadajici system. ;-)
Ano, toto beru jako odpoved na muj dotaz. Stacilo tedy hned
napoprve rici, ze proste nerad distribuujes jeste neco navic
nez jen EXE a ze se ti TDateTimePicker nezda dobry. Toto je
korektni nazor a ja ho prijimam. Ja take nepouzivam tuto
komponentu, pouzivam na to komponenty TurboPoweru, ktere jsou
nativni a kompiluji se do EXE. Nicmene mam zase trochu jiny
nazor:
1. Je zde mnoho uzivatelu, kteri chteji vyuzivat standardni
komponenty, ktere maji v Delphi zdarma. Treba jim ani RX
nevyhovuje - napriklad ja RX Library vubec nepouzivam.
2. Pokud nekdo pouzije flat tlacitka, TCoolBar apod., pak
stejne musi COMCTL32.DLL do sveho projektu zahrnout a nebo
doufat, ze na cilovem pocitaci jiz bude.
3. Komponenta TDateTimePicker vypada designove docela zajimave,
ja mam nekolik jinych kalendaru, kazdy vypada trochu jinak,
ale TDateTimePicker je opravdu docela hezky.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Vlastnosti komponent za behu
[*] kchmel(zv)post(tec)cz - 16.9.1998 15:16:28
No, tam se pak pristupuje uplne stejnym zpusobem, tj:
Komponenta.Lines.Vlastnost
a jednoduchym zobecnovanim to jde az kam je potreba
Karel
> Ahoj,
>
> Ve svem programu potrebuji cist vlastnosti komponent za behu programu.
> Toto se mi celkem dari u stringu a cisel, ale kdyz narazim na vlastnost,
> ktera je typu TObject, napr. Komponenta.Lines (typu TStrings) nemuzu se k
> tomuto objektu nijak dostat, abych rovnez u nej zjistil jeho vlastnosti. Da
> se to nejak rozumne udelat?
>
>
> Za vsechny odpovedi predem DIK.
>
>
> S pozdravem
>
> Robert Walaski
> __________________
> robert(zv)silesnet(tec)cz
>
>
>
>
Vlastnosti komponent za behu
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 16.9.1998 15:33:57
Ahoj,
nechapu v cem je problem - objekt typu TStrings property jako kazdy jiny a
ty se samozrejme daji cist za behu - napr. property Strings(Index), takze se
muzu pomoci Komponenta.Lines.Strings(0) dostat napr. k prvnimu retezci v
seznamu. A je to zcela jasne popsano v helpu...
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Robert Walaski
> Odesl�no: 16. z��� 1998 9:22
> Komu: Delphi Konference
> P�edm�t: Vlastnosti komponent za behu
>
> Ahoj,
>
> Ve svem programu potrebuji cist vlastnosti komponent za behu
> programu.
> Toto se mi celkem dari u stringu a cisel, ale kdyz narazim na
> vlastnost,
> ktera je typu TObject, napr. Komponenta.Lines (typu TStrings) nemuzu
> se k
> tomuto objektu nijak dostat, abych rovnez u nej zjistil jeho
> vlastnosti. Da
> se to nejak rozumne udelat?
>
>
> Za vsechny odpovedi predem DIK.
>
>
> S pozdravem
>
> Robert Walaski
> __________________
> robert(zv)silesnet(tec)cz
> Problem s MEMO
[*] Ing. J�n Kuch�r�����!j��G - 16.9.1998 15:47:39
A ako zist�m v ktorom riadku a na ktorej pozicii sa nachadza kurzor v MEMU,
a ako ho umiestn�m na dan� riadok a na danu poziciu.
-----P�vodn� zpr�va-----
Od: Karel Chmel <kchmel(zv)csob(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 22. september 1998 13:28
P�edm�t: Re: Problem s MEMO
>Ja bych navrhoval zpracovavat bez posouvani kurzoru a jednotlive radky
ziskavat
>pres Memo.Lines a v ramci jednotlivych radku uz k romu pristupovat jako k
typu string.
>
>Karel
>
>----------
>Odes�latel: Ing. J�n Kuch�r <kuchar(zv)tuke.sk>
>Komu: Delphi <delphi(zv)pinknet(tec)cz>
>P�edm�t: Problem s MEMO
>Datum: 16. z��� 1998 10:33
>
>Caute
>
>Mam nasledujuci problem. Potrebujem aby sa mi v komponente MEMO posuval
>kurzor vzdy o jeden znak a zistil ake pismeno sa na tej danej pozicii
>nachadza a neviem ako na to. Beriem vsetky redy.
>
> Dik
>
>Ing. J�n Kuch�r
>Katedra inv�ci� a rein�inieringu
>SjF TU Ko�ice
>Letn� 9
>040 01 Ko�ice
>E-mail : kuchar(zv)tuke.sk
>
>Dotaz na View
[*] Karel <karel(zv)aps(tec)cz> - 16.9.1998 15:54:58
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahojka v�ichni Delphi a Interbase programuj�c�,
mam na V�s jeden zaj�mavej dotaz t�kaj�c� se view.
Kdy� si na Interb�zi ud�lam view, tak pokud v n�m nejsou lookupy, tak by prej m�lo j�t editovat, ale jakmile poru�im jednu z podm�nek, co jsem se do�et a lookupy tou podm�nkou jsou, tak je view pouze read-only. Ale tak� jsem se do�etl, �e pomoc� n�jak�ch �achr� by se dalo ud�lat, aby i tyto view bylo mo�no editovat a odk�zalo m� to na kapitolu xx, kde pochopiteln� o tom nebyla ani zm�nka.
Tak�e pros�m v�echny, kdo by mi mohli poradit, jak mam ud�lat, abych mohl editovat view s lookupama, tak mi poda�te.
D�kuji
Karel Quast
Install+Win3.11
[*] Marek Soukup <marek(zv)comberg(tec)com> - 16.9.1998 16:00:15
[P��loha v souboru: vcard.vcf]
Ahoj,
mate negdo zkusenosti s vytvarenim instalaci pod Delphi 1 a Win
3.11. Poradte jak na to. Existuje nejaka 16-bitova verze InstallShield ?
Diky, Marek
CGI script help
[*] SIMKOVIC Peter <simicek(zv)vadium.sk> - 16.9.1998 16:13:48
No ja robim v Delphi 4 Client/Server. Ale mam vo vseobecnosti problem
ovladat tieto komponenty. Hlavne by som potreboval nejaku prakticku
informaciu (napr. nejaku cast zdrojaku, ktora to riesi).
Diki
-----P�vodn� zpr�va-----
Od: Jochman Jan <JJochman(zv)cpoj(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 15. september 1998 20:35
P�edm�t: RE: CGI script help
>V jake verzi Delphi ? Ve trojce jsou na to komponenty, se kterymi se pri
>trose dobre vule da delat.
>Jinak existuje komponenta CGIExpert na www.cgiexpert.com.
>Cau Honza
>
>
>> -----P�vodn� zpr�va-----
>> Od: SIMKOVIC Peter [SMTP:simicek(zv)vadium.sk]
>> Odesl�no: 14. z��� 1998 8:30
>> Komu: DELPHI Distribution List
>> P�edm�t: CGI script help
>>
>> Zdravim vsetkych,
>>
>> mam na Vas jenu malu otazku. Nevedel by mi tu niekto z Vas poradit
ohladom
>> vyroby CGI scriptu v Delphi. Ide mi hlavne o tu cast kodu, kde program
>> prebera hodnotu z WEBU (napriklad z formulara). Akym sposobom som schopny
>> precitat nejaku polozku do mojho programu a po vyhodnoteni ako mozem
>> nejaky
>> vysledok odoslat do WEB browsera k danemu klientovi.
>>
>> Peter SIMKOVIC
>> http://simi.vadium.sk
>> simkovic(zv)vadium.sk
>> simicek(zv)vadium.sk
>>Typ databaze
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 16.9.1998 16:27:32
Jan Fiala wrote:
>
> Cigleri maji vlastni engine
>
> -----P�vodn� zpr�va-----
> Od: heinisch(zv)post(tec)cz <heinisch(zv)post(tec)cz>
> Komu: Konference Delphi <delphi(zv)pinknet(tec)cz>
> Datum: 15. z��� 1998 20:20
> P�edm�t: Typ databaze
>
> Ahoj all
> kdo vi v jakem formatu pracuje databaze / tabulky/ v
> v ucetnim software Money 97 od firmy Cigler.
>
> HeiJu
Jo, ja to vim. Pouzivaji BTree Filer od TurboPower. Je to sitove a
neni to databazovy stroj.
--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/57805
038/7512861
ScreenSaver
[*] Karel.Majer(zv)crc(tec)cz - 16.9.1998 16:49:42
ScreenSaver je obycejnej .exe prejmenovanej na . scr ve windows adresari,
pak se Ti objevi mezi ostatnimi ScreenSavery a automaticky se pusti
po zadane dobe. Musis akorat osetrit pohyb mysi nebo stisk klavesy.
Automatick� odpov�da�
[*] Vilem Svoboda <vilem_s(zv)mrp(tec)cz> - 16.9.1998 16:54:41
Laskav� tento automatick� odpov�da� vypni z t�to konference.
P�ece nemus�m po��d ��st po��d stejnou zpr�vu
----------------------------------------------------
On nemuze, odjel nejspis na dovolenou a raduje se jak to skvele zaonacil s
postou. Az se vrati, budou na neho vsichni asi pekne nastvani :-)))))
Vilda
P.S. Ja ne, jsem totiz lunetik podobneho razeni :-)USES OBJECTS
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 16.9.1998 16:56:26
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
He. No jo. jenze pokud ten clovek vypere OBJECTS z uses (spis ho nam jen neda), tak bude muset stejne 3/4 kodu prekopat. (predpokladal bych, ze to bylo na objektech jenom kvuli rozhrani - treba t.vision) a pak ho prestanou objekty trapit, protoze GUI ma delphi veeelice "prijemne". HM. a jestli potrebuje streamy tak jsou tam taky.
"object" je definice struktury vzdalene treba jako "record" - nemu si se definovat jako takove.
Mti.
-----P�vodn� zpr�va-----
unit OBJECTS jednoducho zo sekcie USES vyhod a malo by to fungovat. Typ OBJECT je uz v delphi implementovany a netreba nan ziadny unit.
-----Original Message-----
Mam nasledovny problem. Dostal som ya ulohu prerobit stary DOSovsky program a zachovat pri tom jeho strukturu. Narazil som na definiciu novych premennych pomocou prikazu OBJECT. Tento prikaz je nadefinovany v Pascale pod Usesom OBJECTS, ale D3 tento Uses nepozna. Poradte mi niekto ako na to.
Standartni ovl.prvky vs VCL (Was:Nulova hodnota Da
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.9.1998 17:29:36
Milan Schembera wrote:
> Ja taky programuju v Delphi radove 12 hodin denne (nechci se ted prit, kdo
> dyl, nejsme deti, ze). Uvazuju ale tak, ze je lepsi pouzit nejakou
> komponentu, ktera nevyzaduje sireni dalsich knihoven (napr. TDateEdit a
Ja jsem zase opacneho nazoru, podle me je lepsi se snazit maximalne vyuzit
standartnich ovl.prvku Windows (a to vcetne jejich nejnovejsich verzi) nez
pouzivat jine komponenty. Pouzivani spolecnych ovl.prvku ma tu vyhodu ze
uzivatel se asi prece jen lepe orientuje v tom co uz zna z jinych aplikaci
(Office) nez kdyz budes do kazde aplikace pridavat zase dalsi odlisne ovl.prvky
ktere nahrazuji funkci tech standartnich.
> TDBDateEdit od RX), nehlede na to, ze kdyz pracuju s databazi, nezda se mi
> TDateTimePicker zrovna nejvhodnejsi. Jestli jsi jineho nazoru, muzeme se tu
> prit do doby, nez Micorosoft vymysli nejaky nepadajici system. ;-)
To asi neni jen problem Microsoftu, mas snad dojem ze v dnesnim svete jde o to
aby vyrobky (predevsim v masovem meritku) byly 100%ne funkcni ? :-)
--
Petr Vones, amatersky programator
Vlastnosti komponent za behu
[*] Michal Brabec <mbrabec(zv)ciglersw(tec)cz> - 16.9.1998 17:52:08
No mozna by bylo dobry kdyby's napsal proc se na to nemuzes dostat a co ti
to kde hlasi za chybu. Ja bezne pozivam napr. Memo.Lines.Count apod. a
funguje mi to. Napis taky u kteryho pripadu ti to nefunguje.
Michal, mailto:mbrabec(zv)ciglersw(tec)cz
> -----Original Message-----
> From: Robert Walaski [mailto:robert(zv)silesnet(tec)cz]
> Sent: Wednesday, September 16, 1998 9:22 AM
> To: Delphi Konference
> Subject: Vlastnosti komponent za behu
>
>
> Ahoj,
>
> Ve svem programu potrebuji cist vlastnosti komponent za behu programu.
> Toto se mi celkem dari u stringu a cisel, ale kdyz narazim na vlastnost,
> ktera je typu TObject, napr. Komponenta.Lines (typu TStrings) nemuzu se k
> tomuto objektu nijak dostat, abych rovnez u nej zjistil jeho
> vlastnosti. Da
> se to nejak rozumne udelat?
>
> Za vsechny odpovedi predem DIK.
>
> S pozdravem
>
> Robert Walaski
> __________________
> robert(zv)silesnet(tec)cz
>
>
>ScreenSaver
[*] Radek Soucek <rsoucek(zv)email(tec)cz> - 16.9.1998 17:56:14
Ja mam utilitku, ktera ti z tebou vytvoreneho programu (kde si udelas to, co
potrebujes - treba nejakou animaci) udela klasicky SCR soubor. Zkousel jsem
to jen jednou, ale jelo to. Ten program byl i se zdrojaky a tusim obsahoval
chybu, ktera ale sla odstranit. Zajemcum mohu poslat.
Radek
-----P�vodn� zpr�va-----
Od: Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz>
Komu: '- Konf Delphi' <delphi(zv)pinknet(tec)cz>
Datum: 16. z��� 1998 8:22
P�edm�t: ScreenSaver
>Ahoj,
> vite nekdo jak v D3 udelat vlastni screensaver ?
>
>Chtel bych napriklad neco takoveho, kde by po obrazovce behal "objekt",
ktery
>by se odrazel o steny jako micek a aby tim "objektem" byl uzivatelem nebo
mnou
>zvolitelny animovany GIF.
>
>Diky za pomoc.
>
> Dobromil Maly
> mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz
>Verze ctl3d32.dll
[*] binderj(zv)pedf.cuni(tec)cz - 16.9.1998 19:00:20
Vazeni,
omlouvam se za dotaz trochu mimo Delphi.
Pro me dulezity program, ktery jsem instaloval se dozaduje
knihovnu ctl3d32.dll verze 2.32. Pritom dosud jsem se setkal
a nalezl nanejvyse verzi 2.31.000 . Existuje nekde
verze 2.32?
Jiri Binder
Zakazani ScreenSaveru
[*] Dusan_Jirasko(zv)sameleon.fido(tec)cz (Dusan Jirasko) - 16.9.1998 19:07:54
Ahoj All ..
Da se nejak udelat v Delphi, aby kdyz se spusti nejaka aplikace, aby se
nespustil screen Saver ? Je to takhle udelany u paliciho softu( Easy CD pro),
aby nepodtek buffer, takze nejak by to jit melo.
ByE, [ E-Mail : Dusan(zv)Sameleon.Fido(tec)cz ]
Sameleon [HGC-Team] [ http://www.psynet.net/Sameleon ]
... Dejte mi pivo a ja pohnu zemekouli.... A kdyz ne, tak diky za pivo. :-)Vlastnosti komponent za behu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 16.9.1998 19:10:18
Robert Walaski wrote:
> Ve svem programu potrebuji cist vlastnosti komponent za behu programu.
> Toto se mi celkem dari u stringu a cisel, ale kdyz narazim na vlastnost,
> ktera je typu TObject, napr. Komponenta.Lines (typu TStrings) nemuzu se k
> tomuto objektu nijak dostat, abych rovnez u nej zjistil jeho vlastnosti.
> Da se to nejak rozumne udelat?
Mas na mysli zjistovani properties pomoci GetPropList z
TypInfo.pas? Pokud ano, tak problem je v tom, ze informace o tride
jsou ulozeny v exaci az od tridy TPersistent (viz switch {$M}), a
jsou ulozeny jen takove, ktere jsou deklarovany v sekci published.
Pokud si definujes nejakeho potomka TObject, dej si pred nej
{$M+}, pak se ti ulozi i informace o nem. TStrings nema published
vlastnosti, takze se ti nemuze nic ukazat.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Zvukova karta - laskava prosba
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 16.9.1998 19:42:38
> Dobry den.
> Mam zvukovou kartu a rad bych si udelal programek na ovladani a neco podobneho jako je
> prehravani, zaznamenavani zvuku pisnicek atd.
> Nemate nekdo nejake idee, nebo zkusennosti.
> Za jakekoli informace jsem vdecny.
>
Pouzij komponentu TMediaPlayer.
Pavel
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------
BDE
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 16.9.1998 19:48:32
> Sa se pouzit nova verze BDE 5.0 i v Delphi 3.0 CS ?
Ano.
*** POZOR, DOCHAZI KE ZMENE TELEFONNICH A FAXOVYCH CISEL ***
*** T A T O Z M E N A J E J I Z K O N E C N A ! ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================How to encrypt a string
[*] heinisch(zv)post(tec)cz - 16.9.1998 19:59:06
Jak jsem koupil tak prodavam
HeiJu
P.S.
Nezkousel jsem to tak nevim, kdzy to nepujde tak napis zkusime neco jineho
unit Crypt32;
{
*************************************************************************
* Name: Crypt32.Pas *
* Description: 32 bits encode/decode module *
* 2^96 variants it is very high to try hack *
* Purpose: Good for encrypting passwors and text *
* Security: avoid use StartKey less than 256 *
* if it use only for internal use you may use default *
* key, but MODIFY unit before compiling *
* Call: Encrypted := Encrypt(InString,StartKey,MultKey,AddKey) *
* Decrypted := Decrypt(InString,StartKey) *
* Parameters: InString = long string (max 2 GB) that need to encrypt *
* decrypt *
* MultKey = MultKey key *
* AddKey = Second key *
* StartKey = Third key *
* (posible use defaults from interface) *
* Return: OutString = result string *
* Editor: Besr viewed with Tab stops = 2, Courier new *
* Started: 01.08.1996 *
* Revision: 22.05.1997 - ver.2.01 converted from Delphi 1 *
* and made all keys as parameters, before only start key *
* Platform: Delphi 2.0, 3.0 *
* work in Delphi 1.0, 2^48 variants, 0..255 strings *
* Author: Anatoly Podgoretsky *
* Base alghoritm from Borland *
* Address: Vahe 4-31, Johvi, Estonia, EE2045, tel. 61-142 *
* kvk(zv)estpak.ee *
* Status: Freeware, but any sponsor help will be appreciated here *
* need to buy books, shareware products, tools etc *
*************************************************************************
* Modified: Supports Delphi 1.0 & 2.0 *
* Overflow checking removed *
* By: Martin Djern�s *
* e-mail: djernaes(zv)einstein.ot.dk *
* web: einstein.ot.dk/~djernaes *
*************************************************************************
}
interface
const
StartKey = 981; {Start default key}
MultKey = 12674; {Mult default key}
AddKey = 35891; {Add default key}
function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer):
string;
function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer):
string;
implementation
{$R-}
{$Q-}
{*******************************************************
* Standard Encryption algorithm - Copied from Borland *
*******************************************************}
function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer):
string;
var
I : Byte;
begin
Result := '';
for I := 1 to Length(InString) do
begin
Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey;
end;
end;
{*******************************************************
* Standard Decryption algorithm - Copied from Borland *
*******************************************************}
function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer):
string;
var
I : Byte;
begin
Result := '';
for I := 1 to Length(InString) do
begin
Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
end;
end;
{$R+}
{$Q+}
end.//******************************************
-----P�vodn� zpr�va-----
Od: Jan Nov�k <csobta(zv)mbox.vol(tec)cz>
Komu: Delphi <delphi(zv)pinknet(tec)cz>
Datum: 16. z��� 1998 2:00
P�edm�t: How to encrypt a string
>Ahoj.
>Zajimalo by mne jak se da udelat encryptace a decryptace stringu.
>funkce Ecrypt( .......): String; funkce Decrypt( ): string;
>Nema nekdo ZDROJAk !!! techto sfirovacich funkci nebo komponentu , ktera by
>to umela. Sifrovaci funkce Delphi nemaji.
>Da se koupit nejaka knihovna , ktera by to umela.?
>Tento dotaz jsem uz posilal , taky tu byl dotaz na komponentu,
>bohuzel jsem se nedozvedel nic konkretniho.
> Na technickych informacich Inprise JE to c. 2803 je priklad. Ten mi vsak
>nefunguj. Mam Delphi 3.
>
> Diky vsem pratelum Delphi za radu.
>zavreni externi aplikace
[*] micrel <micrel(zv)bohem-net(tec)cz> - 16.9.1998 20:11:46
Ahoj
Kdybych to delal ja, tak bych asi poslal zpravu aplikaci, aby se sama
zavrela. Pouzil bych registrovanou zpravu (stejnou v jedne i druhe
aplikaci; ID prideli system).
Jaro B. micrel(zv)micrel(tec)cz
-----P�vodn� zpr�va-----
Od: Zdenek Petruj [SMTP:zpetruj(zv)zebra(tec)cz]
Odesl�no: 16. IX 1998 12:35
Komu: Delphi Konference (el. adresa)
P�edm�t: zavreni externi aplikace
Ahoj,
Mam takovy problem spustim aplikaci A a uvnitr ni spoustim aplikaci B
(napriklad pomoci WinExec) a uvnitr aplikace B pak po urcite dobe
(napriklad az po zobrazeni hlavniho formulare) chci zavrit aplikaci A.
Chtel bych ji zavrit asi pomoci TerminateProcess(hProcess,0) a z
aplikace A bych HProcess predal do aplikace B napriklad pomoci parametru
ale nevim jak uvnitr aplikace A zjistit handle jejiho procesu. ( Vim ze
handle bych mel kdybych aplikaci oteviral pomoci CreateProcess, ale ja
chci zrusit aplikaci jakkoliv spustenou! )
S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz
Install+Win3.11
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 16.9.1998 20:35:15
Ahoj,
Zkus InnoSetup, je vazne dobry a jednoduchy je to tak, ze jsem to
pchopil i ja :-) Dokonce i se source.
http://www.digicron.com/jordanr/
Dobra.
PS: Nemel bych to radeji poslat do konference :-)))
----------
Od: Marek Soukup[SMTP:marek(zv)comberg.com]
Odesl�no: 16. z��� 1998 16:00
Komu: delphi(zv)pinknet(tec)cz
P�edm�t: Install+Win3.11
<<Soubor: vcard.vcf>>
Ahoj,
mate negdo zkusenosti s vytvarenim instalaci pod Delphi 1 a Win
3.11. Poradte jak na to. Existuje nejaka 16-bitova verze InstallShield ?
Diky, Marek
Skoleni
[*] Jaro <jaro(zv)sinea(tec)cz> - 16.9.1998 20:49:57
A co takhle skoleni a konzultace pro pokrocile programovani C/S
a Delphi?>Napriklad tvorba vlastnich komponent odvodenych z TDataset.
>
>> -----Original Message-----
>> From: Zbysek Hlinka [mailto:zhlinka(zv)login(tec)cz]
>> Sent: Wednesday, September 16, 1998 7:08 AM
>> To: delphi(zv)pinknet(tec)cz
>> Subject: Skoleni
>>
>>
>> Ahoj all,
>>
>> domlouvam s Inprise lektorstvi na kurzech o Delphi. Na namet
>> "Pokrocile programovani v Delphi" mam dohodnute dva kurzy, jeden
>> o tvorbe komponent a wizardu (do New Items), druhy o
>> databazovych aplikacich.
>>
>> Chtel jsem se zeptat, kdybyste treba na nejaky takovy kurz sli, co
>> byste se tam chteli dozvedet. Pripadne zda mate pro pokrocile
>> programovani dalsi namety, ktere byste se na takovem skoleni
>> chteli dozvedet.
>>
>>
>> S pozdravem
>>
>> Zbysek Hlinka
>> E-mail: zhlinka(zv)login(tec)cz
>> Tel.: 02/795 29 56; GSM: 0603 551 282
>> Krystofova 1016, 149 00 Praha 4
>> CZ
>>MSIE & ActiveX & Drag & Drop...
[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 16.9.1998 20:54:03
Mili Delphini,
mam problem a nevim, jestli se mam obratit na MS nebo Inprise... Napsal jsem
si ActiveX Control, ktery reaguje na wm_dropfile.
Kdyz si takto vytvoreny ActiveX Control vlozim na formular v Delphi,
normalne mi to funguje a prijima to vsechny soubory...
Kdyz ale si ten ActiveX vlozim do HTML stranky a pretahnu na nej soubor,
sebere mi tu udalost vzdycky MSIE a chce ten file stahovat nebo otvirat...
Nevite, jak to udelat, aby ta udalost dorazila az do meho ActiveXka...?
Tomas
--------------------------------------
Tomas.Burger(zv)mius(tec)cz
Tomas.Burger(zv)sms.paegas(tec)cz
http://www.mius(tec)cz/; http://www.delphi(tec)cz/
http://www.sever(tec)cz/; http://www.teplice(tec)cz/
ICQ: 3908757
--------------------------------------
Typ databaze
[*] Jaro <jaro(zv)sinea(tec)cz> - 16.9.1998 20:56:09
Tusim, ze je to B-Tree
Jaro
-----P�vodn� zpr�va-----
Od: heinisch(zv)post(tec)cz <heinisch(zv)post(tec)cz>
Komu: Konference Delphi <delphi(zv)pinknet(tec)cz>
Datum: 15. z��� 1998 20:40
P�edm�t: Typ databaze
>Ahoj all
>kdo vi v jakem formatu pracuje databaze / tabulky/ v
>v ucetnim software Money 97 od firmy Cigler.
>
>HeiJu
ScreenSaver
[*] heinisch(zv)post(tec)cz - 16.9.1998 20:58:34
Mam 2 priklady se zdrojem kdo to chce at se ozve primo me na
heinisch(zv)post(tec)cz
zazipovany to dela 40 kilo.
Ahoj HeiJu
-----P�vodn� zpr�va-----
Od: Martin Lasevi� <ml_software(zv)email(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 16. z��� 1998 2:00
P�edm�t: RE: ScreenSaver
Nevim, ale pokud by ses to dozvedl, dej mi vedet. Rad bych se poucil taky.
Diky
Martin Lasevie
=======================================================
ML Software - Martin Lasevie
konzultaeni slu?by v oblasti informaenich technologii, tvorba zakazkoveho
software
ing. Martin Lasevie
Budovatelska 459, OSTRAVA - PORUBA, 708 00
Czech republic
tel. +420 (69) 44 66 69, fax. po dohodi, Eurotel 0602 832 387
E-mail : ml_software(zv)email(tec)cz, http://mujweb(tec)cz/www/ml_software
=======================================================
-----Puvodni zprava-----
Od: Dobromil Maly [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
Odeslano: 16. zaoi 1998 8:39
Komu: '- Konf Delphi'
Poedmit: ScreenSaver
Ahoj,
vite nekdo jak v D3 udelat vlastni screensaver ?
Chtel bych napriklad neco takoveho, kde by po obrazovce behal "objekt",
ktery
by se odrazel o steny jako micek a aby tim "objektem" byl uzivatelem nebo
mnou
zvolitelny animovany GIF.
Diky za pomoc.
Dobromil Maly
mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz
Ukladani na server
[*] Jaro <jaro(zv)sinea(tec)cz> - 16.9.1998 21:06:14
Jo to by me take velice zajimalo, protoze Close/Open/Locate me
velice rozciluje! Buhuzel jsem prilis nepochopil, jak jsi to vlastne
myslel.
A kdyz jsem u toho. Nemel by nekdo napad jak zjistit hodnotu klice
vygenerovanou trigrem aniz by bylo nutne volat dalsi ulozenou proceduru?
Jaro
>Ahoj.
>
>Mozne reseni 1
>-------------------
>Po Query.Post volej Query.Close, Query.Open a skoc na zaznam, ktery
>potrebujes.
>(kdybys pouzival TTable komponentu, tak staci Refresh)
>
>Duvod je ten, ze
>a) pouzivas IDENTITY
>b) trigger meni data v tabulce
>Oba typy zmen se jevi pro BDE jako kdyby je udelal jiny uzivatel (proto ta
>hlaska).
>
>Mozne reseni 2
>-------------------
>Myslim, ze BDE 5.0 ma zabudovanou podporu datoveho typu IDENTITY. To by
>mohlo pomoci s pripadem a). Zatim jsem si s tim nehral.
>Mozna by slo uzit i ve starsim BDE field type AUTOINC (nezkousel jsem).
>
>S pozdravem,
>
>=================================
>Mgr. Ladislav Nagy
>MFF UK & Baader Computer spol. s r.o.
>lada(zv)kolej.mff.cuni(tec)cz
Install+Win3.11
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 16.9.1998 21:12:15
Dne Wed, 16 Sep 1998 16:00:15 +0200 Marek Soukup napsal:
> This is a multi-part message in MIME format.
> ----------------------------------------------------------------
> Ahoj,
> mate negdo zkusenosti s vytvarenim instalaci pod Delphi 1 a Win
> 3.11. Poradte jak na to. Existuje nejaka 16-bitova verze InstallShield ?
Jasne, nevim, jak ti tato informace bude platna, protoze InstallShield 5
International, co pouzivame, stoji kolem 40kKc, ale ten samozrejme
umoznuje zvolit cilovy operacni system (Win3.11,Win95,WinNT)...
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
Vlastnosti komponent za behu
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 16.9.1998 21:47:45
Ahoj,
moc nerozumim na co se ptas,
zkus poslat fragment zdrojaku
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
-----P�vodn� zpr�va-----
Od: Robert Walaski <robert(zv)silesnet(tec)cz>
Komu: Delphi Konference <delphi(zv)pinknet(tec)cz>
Datum: 16. z��� 1998 10:17
P�edm�t: Vlastnosti komponent za behu
>Ahoj,
>
> Ve svem programu potrebuji cist vlastnosti komponent za behu programu.
>Toto se mi celkem dari u stringu a cisel, ale kdyz narazim na vlastnost,
>ktera je typu TObject, napr. Komponenta.Lines (typu TStrings) nemuzu se k
>tomuto objektu nijak dostat, abych rovnez u nej zjistil jeho vlastnosti. Da
>se to nejak rozumne udelat?
>
>
>Za vsechny odpovedi predem DIK.
>
>
>S pozdravem
>
>Robert Walaski
>__________________
>robert(zv)silesnet(tec)cz
>
>
auxsetvolume(Device,v)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.9.1998 21:53:57
Zdenek Petruj wrote:
>
> No tak asi jsem narazil na podobny problem jako ty. Zkousel jsem zatim
> jen ten tvuj prvni priklad - pokud pouziju konstantu AUXCAPS_CDAUDIO tak
> u me zvukovky to vraci CD Device spravne ale u kolegy to nevraci vubec
> nic. Pokud pouziju AUXCAPS_AUXIN tak to zase funguje u kolegy ale u mne
> ne. Nechal jsem si vypisovat AuxCaps.szPName a zjistil jsem ze u mne to
> naslo CD ale u kolegy to nedetekovalo CD ale jsou tam dva Aux vystupy
> kde Aux2 je CD. Tak ted jsem z toho jelen a navic u kolegy ten tvuj
> priklad vracel CD Device toho Aux1 takze k CD se to vubec nedostalo.
Je videt ze M$ bude muset ty multimedia jeste trochu dotahnout, je ale mozne
ze urcitou cast viny na tom zmatku maji i vyrobci driveru ke zvukovym kartam.
--
Petr Vones, amatersky programator
Zvukova karta - laskava prosba
[*] Peter Arbet <arbet(zv)px.psg.sk> - 16.9.1998 21:56:07
Hi.
Co sa ovladania mixeru zvukovej karty tyka, asi ti tu niekto skusenejsi poradi, kedze je tu zrovna o tom rec. Ak chces prehravat zvuky, tak s WAV subormi sa vcelku kamaratia komponenty DelphiX z DSP. Nevyhodou je, ze pouzivaju DirectX. Da sa s nimi vsak dosiahnut aj prehravanie akychkolvek zvukovych dat. Ak mas zaujem o podrobnosti, napis. Jednoducho sa s nimi realizuje aj ukladanie vystupu z mixeru zvukovej karty na disk. Snad to si mal na mysli pod "zaznamenavanim zvukov pesniciek". Zaznamenavaju sa ale aj s nastavenymi korekciami hlasitosti, rovnovahy, s nastavenymi hladinami jednotlivych casti zvukoveho spektra (basy, vysky). Ak by si mal zaujem o priame kopirovanie zvuku z Audio CD (grabovanie), je to uz celkom ina tematika.
Napis, co vsetko by mal tvoj program zvladat.
Bye
RAZIIARS of Aqabin
e-mail:
arbet(zv)px.psg.sk
arbet(zv)fred.utc.sk
-----Original Message-----
From: Nosek Libor <nosek(zv)ujf.cas(tec)cz>
To: Distribu�n� list DELPHI (el. adresa) <delphi(zv)pinknet(tec)cz>
Date: 16. september 1998 19:39
Subject: Zvukova karta - laskava prosba
>Dobry den.
>Mam zvukovou kartu a rad bych si udelal programek na ovladani a neco podobneho jako je
>prehravani, zaznamenavani zvuku pisnicek atd.
>Nemate nekdo nejake idee, nebo zkusennosti.
>Za jakekoli informace jsem vdecny.
>
>S pozdravem
>Libor.
>
>Nosek Libor
>OJS
>UJF AV CR
>Rez u Prahy 250 68
>
>tel: 66173163
>fax: 6857003
>
>nosek(zv)ujf.cas(tec)cz
>HEEELP - Zobrazeni hintu v nemodalnim okne
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 16.9.1998 22:00:16
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Zdravim vsechny,
vystenil se mi dost podstatny problem a uz pomalu nevim
co s tim. Napadaji mne jen programatorsky necista reseni.
Problem: v aplikaci pouzivam dll knihovny ze kterych volam
ruzne formulare (Create...XXX...Free) na kterych mam nastaveno
ShowHint:= True vse chodi v poradku, ALE na oknech volanych
jako MODALNI se hint zobrazuje v poradku avsak na oknech
volanych jako NEMODALNI hint nenaskakuje vubec.
Nesetkal se jiz nekdo s timto problemem ? Uz opravdu
nevim jak to korektne vyresit.
Budu vdecny za kazdou radu a predem diky.
Pavel Malinsky, HK
spiderland(zv)usa.net
Kompilace balicku
[*] v-soft(zv)mbox.lantanet(tec)cz - 16.9.1998 22:21:48
Ahoj delphisti,
mam jeden problem s kompilaci balicku :
Mam VCL komponentu, ve ktere pouzivam unit z RX Library.
Tato komponenta je pochopitelne umistena v nejakem
balicku <> RX Library. Kdyz chci tento balicek pridat
do Delphi, tak to hlasi :
"Cannot load package 'Jmenobalicku'. It contains
'NecoZRX', which is also contained in package 'RX Tools'.
Ja prece nechci, aby se ten jejich unit prikompiloval
k memu balicku -chci se na nej jenom odkazovat.
Stejne jako se k nemu neprikompiluje "StdCtrls" a dalsi.
Nevite nekdo o nejake directive kompilatoru,
kterou by slo toto osetrit ?
Nebo snad nelze v komponente pouzivat unity
z jineho balicku ?
Diky
Vojtech Semecky
ScreenSaver
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.9.1998 22:30:34
Dobromil Mal� wrote:
>
> Ahoj,
> vite nekdo jak v D3 udelat vlastni screensaver ?
>
> Chtel bych napriklad neco takoveho, kde by po obrazovce behal "objekt", ktery
> by se odrazel o steny jako micek a aby tim "objektem" byl uzivatelem nebo mnou
> zvolitelny animovany GIF.
Priklad mas treba tady:
http://www.inprise.com/devsupport/delphi/ti_list/TI3335.html
--
Petr Vones, amatersky programator
ChartFX
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 16.9.1998 22:40:03
Zdravim,
nevite nekdo o nejakem demu k ChartFX? Meslel jsem si, ze je nejaky primo v
Delphi, ale ted ho nejak nemuzu najit.
Dik Kuba
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
---------------------------------
TRichEdit
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.9.1998 22:46:29
Krayzel Libor wrote:
>
> > melo by to jit pomoci prepsani zpravy WM_INPUTLANGCHANGEREQUEST:
>
> Bezvadne. V te souvislosti se zeptam jeste na jednu vec.
> Kdyz vkladam do TRichEditu pomoci PasteFromClipboard, prenaseji se mi i
> atributy textu (coz nechci). Jak tomu zamezit? Chci pouze cisty text
> podle nastaveni fontu TRicheditu.
Ahoj,
melo by to jit takhle:
uses
ClipBrd, RichEdit;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Clipboard.HasFormat(CF_TEXT) then
SendMessage(RichEdit1.Handle, EM_PASTESPECIAL, CF_TEXT, 0) else
MessageBeep(0);
end;
--
Petr Vones, amatersky programator
zavreni externi aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.9.1998 22:55:10
Zdenek Petruj wrote:
>
> Ahoj,
> Mam takovy problem spustim aplikaci A a uvnitr ni spoustim aplikaci B
> (napriklad pomoci WinExec) a uvnitr aplikace B pak po urcite dobe
> (napriklad az po zobrazeni hlavniho formulare) chci zavrit aplikaci A.
> Chtel bych ji zavrit asi pomoci TerminateProcess(hProcess,0) a z
> aplikace A bych HProcess predal do aplikace B napriklad pomoci parametru
> ale nevim jak uvnitr aplikace A zjistit handle jejiho procesu. ( Vim ze
> handle bych mel kdybych aplikaci oteviral pomoci CreateProcess, ale ja
> chci zrusit aplikaci jakkoliv spustenou! )
Ahoj,
Pouzit TerminateProcess je pomerne dost drsny, spis zkus poslat zpravu WM_QUIT
do te aplikace.
--
Petr Vones, amatersky programator
Vyvolani 16bit DLL z 32bit EXE/DLL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.9.1998 23:02:30
Bene� Jaroslav wrote:
>
> Dobre rano,
> prosim o radu. Je mozne vyvolat 16bit DLL z 32bit programu nebo DLL
> ? Pokud ano, pak za jakych podminek a pokud ne, pak jak to obejit. Dekuji za
> jakoukoliv radu.
Ahoj,
jde to pomoci thunkingu, dalsi informace najdes tady:
http://www.itecuk.com/delmag/thunk95.htm
--
Petr Vones, amatersky programator
BDE
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.9.1998 23:25:27
Jezek Petr, Ing. (DELVINA) wrote:
>
> Sa se pouzit nova verze BDE 5.0 i v Delphi 3.0 CS ?
Da, jediny problem je s InstallShieldem protoze tato verze BDE obsahuje
trochu jine soubory. Ale i to se da resit, probehlo to jiz tady v konferenci.
--
Petr Vones, amatersky programator
auxsetvolume(Device,v)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 16.9.1998 23:27:25
Zdenek Petruj wrote:
> Tak uz jsem vyzkousel i tvuj druhy priklad - pristup primo na mixer
> funguje vsude - to je OK, ale nezlob se ze jeste otravuju ale potreboval
> bych jeste zjistit aktualni nastaveni Volume. Driv jsem pouzival
> auxgetvolume, no ale to jsem zase tam kde jsem byl. Prosimte pomoz mi
> jeste s timhle. Asi to pujde nejak tak jak se Volume nastavuje, ale
> vzhledem k tomu, ze hlavni gro me prace nespociva v nastavovani audio
> funkci ve windows, tak nemam mmsystem v malicku a nez bych na to metodou
No, ja jsem s mmsystemem taky nikdy nic moc nedelal ...
> pokusu a omylu prisel, tak by hodne vody uplynulo. Zatim dik za
> dosavadni pomoc.
function GetCDInputVolume: DWORD;
var
Mixer: HMixer;
MixerCaps: TMixerCaps;
MixerLine: TMixerLine;
I, Inputs: Integer;
MixerControls: TMixerLineControls;
MixerControl: TMixerControl;
MixerControlDetails: TMixerControlDetails;
VolumeCD: MIXERCONTROLDETAILS_UNSIGNED;
begin
CheckMMResult(mixerOpen((zv)Mixer, 0, 0, 0, MIXER_OBJECTF_MIXER));
try
CheckMMResult(mixerGetDevCaps(0, (zv)MixerCaps, Sizeof(MixerCaps)));
MixerLine.cbStruct := Sizeof(MixerLine);
Inputs := 0;
for I := 0 to MixerCaps.cDestinations - 1 do
begin
MixerLine.dwDestination := I;
CheckMMResult(mixerGetLineInfo(Mixer, (zv)MixerLine, MIXER_GETLINEINFOF_DESTINATION));
if MixerLine.dwComponentType = MIXERLINE_COMPONENTTYPE_DST_SPEAKERS then
begin
Inputs := MixerLine.cConnections;
Break;
end;
end;
MixerControls.cControls := 0;
for I := 0 to Inputs - 1 do
begin
MixerLine.dwSource := I;
CheckMMResult(mixerGetLineInfo(Mixer, (zv)MixerLine, MIXER_GETLINEINFOF_SOURCE));
if Pos('CD', MixerLine.szShortName) = 1 then
begin
MixerControls.cControls := MixerLine.cControls;
Break;
end;
end;
MixerControls.cbStruct := Sizeof(MixerControls);
MixerControls.cbmxctrl := Sizeof(TMixerControl);
MixerControls.pamxctrl := (zv)MixerControl;
MixerControls.cControls := 1;
MixerControls.dwControlType := MIXERCONTROL_CONTROLTYPE_VOLUME;
MixerControls.dwLineID := MixerLine.dwLineID;
CheckMMResult(mixerGetLineControls(Mixer, (zv)MixerControls, MIXER_GETLINECONTROLSF_ONEBYTYPE));
MixerControlDetails.cbStruct := Sizeof(MixerControlDetails);
MixerControlDetails.dwControlID := MixerControl.dwControlID;
MixerControlDetails.cChannels := 1;
MixerControlDetails.cMultipleItems := MixerControl.cMultipleItems;
MixerControlDetails.cbDetails := Sizeof(VolumeCD);
MixerControlDetails.paDetails := (zv)VolumeCD;
CheckMMResult(mixerGetControlDetails(Mixer, (zv)MixerControlDetails, MIXER_GETCONTROLDETAILSF_VALUE));
Result := VolumeCD.dwValue;
finally
mixerClose(Mixer);
end;
end;
--
Petr Vones, amatersky programator
ScreenSaver
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 16.9.1998 23:32:19
-----P�vodn� zpr�va-----
Od: Karel.Majer(zv)crc(tec)cz <Karel.Majer(zv)crc(tec)cz>
>ScreenSaver je obycejnej .exe prejmenovanej na . scr ve windows adresari,
> pak se Ti objevi mezi ostatnimi ScreenSavery a automaticky se pusti
> po zadane dobe. Musis akorat osetrit pohyb mysi nebo stisk klavesy.
>
Zdravim,
jenom bych chtel doplnit ze jsem to udelal presne takle ^.
Jako odrazovy mustek jsem pouzil klasicky prazdny formular a
na nem sem pak caroval.
PM
spiderland(zv)usa.net
Install+Win3.11
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 16.9.1998 23:53:56
> mate negdo zkusenosti s vytvarenim instalaci pod Delphi 1 a Win
> 3.11. Poradte jak na to. Existuje nejaka 16-bitova verze InstallShield ?
InstallShield Express Delphi Edition, ktery mas asi na mysli, umi
jen 32-bitove instalace. InstallShield 5.1 umi i 16-bitove instalace,
ale ten si asi koupit nechces za ty desitky tisic korun + velmi
tucna provize spolecnosti Unicorn (distributor).
Ja osobne jsem pouzival Eschalon Setup, kde byly 16-bitova i 32-bitova
verze za zlomek ceny InstallShield 5.1, ale uz bohuzel neni k mani.
Jde take o to, zda hledas komercni produkt a nebo neco free. Tech
komercnich nekolik je (PC-Install, Wise apod.), jestli jsou nejake
free, to nevim.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================ADMIN: ZMENA ADRESY KONFERENCE DELPHI
[*] Adam AHA Hauner <aha(zv)pinknet(tec)cz> - 17.9.1998 03:10:24
-------------------------------------------------------------------------
Z M E N A
DULEZITE - PROSIM, PECLIVE PRECTETE CELE.
-------------------------------------------------------------------------
Dobry den,
dnes, tj. 17. 9. 1998, dochazi z duvodu struktualizace obsahu k presunu
"programatorskych" konferenci ze serveru Projektu PinkNet na server
spolecnosti Flamingo - Web design, zmena se projevi i v obsluhujicim
software - z TULPu se prechazi na znamejsiho Majordoma.
Drivejsi adresa Nova adresa
delphi(zv)pinknet(tec)cz --> delphi-l(zv)fwd(tec)cz
access-l(zv)pinknet(tec)cz --> access-l(zv)fwd(tec)cz
foxpro-l(zv)pinknet(tec)cz --> foxpro-l(zv)fwd(tec)cz
phpfi-l(zv)pinknet(tec)cz --> php-l(zv)fwd(tec)cz
Puvodni adresy budou po urcitou dobu zachovany (cca mesic), pote budou
fungovat pouze adresy nove ((zv)fwd(tec)cz). Pro komunikaci s listserverem
pouzivejte adresu listserv(zv)fwd(tec)cz, kde si mimo jine muzete zaslanim
sluvka "help" v tele zpravy vyzadat i navod na jeho obsluhu.
Tento mail by mel byt poslednim v jednotlivych konferencich, ktery prijde
z adres puvodnich ((zv)pinknet(tec)cz), nasledovat by mel testovaci mail z novych
konferenci. Prosim, nastavte si podle nej spravne trideni dosle posty do
svych folderu ci pozadejte administratora o prenastaveni mailserveru
na nove adresy.
Pokud nastane problem (zpusobeny na nasi strane), smerujte jej na adresu
listman(zv)fwd(tec)cz (kamkoliv jinam zaslany mail s problemem bude ignorovan). Adam Hauner, Zdenek Sindelar
Projekt PinkNet
Flamingo - Web design
ADMIN: TEST
[*] Adam AHA Hauner <aha(zv)pinknet(tec)cz> - 17.9.1998 03:39:39
-------------------------------------------------------------------------
T E S T
DULEZITE - PROSIM, PECLIVE PRECTETE CELE.
-------------------------------------------------------------------------
Dobry den,
dnes, tj. 17. 9. 1998, doslo k presunu "programatorskych" konferenci
ze serveru Projektu PinkNet na server spolecnosti Flamingo - Web design.
Drivejsi adresa Nova adresa
delphi(zv)pinknet(tec)cz --> delphi-l(zv)fwd(tec)cz
access-l(zv)pinknet(tec)cz --> access-l(zv)fwd(tec)cz
foxpro-l(zv)pinknet(tec)cz --> foxpro-l(zv)fwd(tec)cz
phpfi-l(zv)pinknet(tec)cz --> php-l(zv)fwd(tec)cz
Pokud nastane problem (zpusobeny na nasi strane), smerujte jej na adresu
listman(zv)fwd(tec)cz (kamkoliv jinam zaslany mail s problemem bude ignorovan). Adam Hauner, Zdenek Sindelar
Projekt PinkNet
Flamingo - Web design
TreeView & hint
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 17.9.1998 06:15:55
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
A co ParentShowHint ?
-----P�vodn� zpr�va-----
Od: Martin Dupal <mdupal(zv)vision(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 16. z��� 1998 19:15
P�edm�t: TreeView & hint
Ahoj,
nevite nekdo, jak se zbavit hintu objevujiciho se nad
jednotlivymi uzly v TTreeView? Vlastnost ShowHint mam
nastavenou na False, ale stejne s tim nema nic spolecneho,
protoze Hint, o kterem pisu se tyka jednotlivych uzlu a ne
celeho stromu. Pres Application.OnHint to taky nelita.
Dik za rady
Martin
+----------------------------------+
| Ing. Martin Dupal |
| address: Geislerova 6 |
| Olomouc 2, 772 00 |
| Czech republic |
| tel.: +420/68/5313130 |
| fax.: +420/68/5313132 |
| http://www.vision(tec)cz |
| mailto:mdupal(zv)vision(tec)cz |
+----------------------------------+Vyvolani 16bit DLL z 32bit EXE/DLL
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 17.9.1998 06:30:56
Diky, je to sice fajn, ale program, ktery bude volat 16bit DLL neni vubec v
Delphi, je to DB system Progress, ktery zna akorat LoadLibrary, FreeLibrary
a obalkovaci funkci pro zavolani procedury z DLL (vse v konvenci C nebo C++)
a 16bit knihovnu pripojit proste odmitne.
Jaro B..
> -----P�vodn� zpr�va-----
> Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
> Odesl�no: 16. z��� 1998 23:03
> Komu: DELPHI Distribution List
> P�edm�t: Re: Vyvolani 16bit DLL z 32bit EXE/DLL
>
> Bene� Jaroslav wrote:
> >
> > Dobre rano,
> > prosim o radu. Je mozne vyvolat 16bit DLL z 32bit programu nebo
> DLL
> > ? Pokud ano, pak za jakych podminek a pokud ne, pak jak to obejit.
> Dekuji za
> > jakoukoliv radu.
>
> Ahoj,
>
> jde to pomoci thunkingu, dalsi informace najdes tady:
>
> http://www.itecuk.com/delmag/thunk95.htm
>
>
> --
> Petr Vones, amatersky programator
> Skoleni
[*] Riedel Petr <Petr.Riedel(zv)ipbpojistovna(tec)cz> - 17.9.1998 06:56:45
> -----P�vodn� zpr�va-----
> Od: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
> Odesl�no: 16. z��� 1998 7:08
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Skoleni
>
> Ahoj all,
>
> domlouvam s Inprise lektorstvi na kurzech o Delphi. Na namet
> "Pokrocile programovani v Delphi" mam dohodnute dva kurzy, jeden
> o tvorbe komponent a wizardu (do New Items), druhy o
> databazovych aplikacich.
>
> Chtel jsem se zeptat, kdybyste treba na nejaky takovy kurz sli, co
[Riedel Petr] urcite
> byste se tam chteli dozvedet. Pripadne zda mate pro pokrocile
> programovani dalsi namety, ktere byste se na takovem skoleni
> chteli dozvedet.
[Riedel Petr] me by hlavne zajimaly ty databaze
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
DAO
[*] Martin Talian <talian(zv)geoplanpp.sk> - 17.9.1998 06:56:53
Zdravim,
Mohol by mi niekto napisat presnu www adresu , kde by sa dalo stiahnut DAO ?
Hladal som u microsoftu ale najak som to nemohol najst.
vdaka
Martin
zavreni externi aplikace
[*] V�t�zslav Gazda������u��n�?��? - 17.9.1998 07:41:57
Ja bych misto hProcess predal te aplikaci B ID procesu. ID procesu zjistis
funkci GetCurrentProcessID. V aplikaci B potom pouzijes ID pro ziskani
hProcess pomoci funkce OpenProcess. Pokud nebudes handle dale potrebovat,
nezapomen zavolat CloseHandle. Funkce TerminateProcess provede nasilne
ukonceni aplikace, to znamena, ze se nemusi provest nektere akce, ktere se
provedou jen pri normalnim ukonceni, napriklad uvolneni ruznych prostredku,
ulozeni na disk, atd. Pokud ta aplikace A je take tve dilo doporucuji ji z
aplikace B poslat nejakou zpravu, na kterou aplikace A zareaguje tim, ze se
sama normalne ukonci. V tom pripade bych aplikaci B nepredaval ani ID
procesu, ale treba jen handle okna.
Vita
HEEELP - Zobrazeni hintu v nemodalnim okne
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 17.9.1998 07:48:54
Pokud mas dialog jako DLL a volas jej NEMODALNE, je to ponekud divne. V
helpu i v literature se vseobecne doporucuje v DLL psat VZDY napr.
Form1.ShowModal, jinak pry mohou nastat problemy. Sam jsem to nikdy
nemodalne nezkousel, nemuze to byt ten duvod ?
A pokud se ti to nepovede vyresit, zbyva jeste nouzova cesta: osetrit
udalost OnMouseMove resp. messages tusim WMMOUSELEAVE nebo tak nejak
podobne. Bylo to v konferenci tusim asi predevcirem.
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************
-----Puvodni zprava-----
Od: Pavel Malinsky
Odeslano: 16. zaoi 1998 22:00
Komu: DELPHI Distribution List
Poedmit: HEEELP - Zobrazeni hintu v nemodalnim okne
Zdravim vsechny,
vystenil se mi dost podstatny problem a uz pomalu nevim
co s tim. Napadaji mne jen programatorsky necista reseni.
Problem: v aplikaci pouzivam dll knihovny ze kterych volam
ruzne formulare (Create...XXX...Free) na kterych mam nastaveno
ShowHint:= True vse chodi v poradku, ALE na oknech volanych
jako MODALNI se hint zobrazuje v poradku avsak na oknech
volanych jako NEMODALNI hint nenaskakuje vubec.
Nesetkal se jiz nekdo s timto problemem ? Uz opravdu
nevim jak to korektne vyresit.
Budu vdecny za kazdou radu a predem diky.
Pavel Malinsky, HK
spiderland(zv)usa.net
Kurs tvorby napovedy 1
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 17.9.1998 08:09:03
Hlavne to neposilej do konference, to uz tady bylo :-)
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Vilem Svoboda [SMTP:vilem_s(zv)mrp(tec)cz]
> Odesl�no: 16. z��� 1998 14:01
> Komu: DELPHI Distribution List
> P�edm�t: Re: Kurs tvorby napovedy 1
>
> > Funguje vam toto URL na download help compileru pro
> > RTF z Wordu 97 ?. Mne ne.
> >
> > http://support.microsoft.com/support/kb/articles/Q164/0/12.asp
> >
> Funguje. Zkousel jsem to pred zverejnenim a ted znovu (pouzivam MSIE
> 3.0).
> Ma to pres 1,5MB. Pokud se ti to vejde do schranky, klidne ti to (a
> komukoli jinemu) poslu.
>
> Vilda Svoboda
Pripojeni na MS SQL z Delphi
[*] Linhart Petr <Petr(zv)manwe.mius(tec)cz> - 17.9.1998 08:09:35
Ja jsem vzdy zadaval DATABASE NAME=pokusdb - coz je skutecny nazev databaze,
ne device a funguje to bez problemu
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
> -----P�vodn� zpr�va-----
> Od: Radek Soucek [SMTP:rsoucek(zv)email(tec)cz]
> Odesl�no: 16. z��� 1998 14:09
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Pripojeni na MS SQL z Delphi
>
> Pokousim se pripojit na MS SQL 6.5 z Delphi 3.0. K pripojeni pouzivam
> komponentu TDatabase. Podarilo se mi bez problemu pripojit na device
> databaze timto zpusobem:
> �
> DATABASE NAME=device_databaze
> SERVER NAME=server
> �
> Z klediska koncepce nasich progamu by bylo pro me (a zejmena pro
> administraci naseho softu)� jednodussi jako parametr uvest primo nazev
> databaze, tedy nevytvaret device. Tedy neco jako:
> �
> DATABASE NAME=C:\data\databaze.dat
> SERVER NAME=server
> �
> Nevite nekdo, jestli je to mozne? A jestli ano, muze mit tento zpusob
> nejake nevyhody?
> �
> Predem moc dik za odpoved. Radek
BDE
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 17.9.1998 08:13:20
Da se pouzit naprosto se vsim. Ja to pouzivam s C++Builerem 1.0
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Jezek Petr, Ing. (DELVINA) [SMTP:PETR(zv)sevis.sk]
> Odesl�no: 16. z��� 1998 10:25
> Komu: 'DELPHI Distribution List'
> P�edm�t: BDE
>
> Sa se pouzit nova verze BDE 5.0 i v Delphi 3.0 CS ?
>
> Petr
Interbase 4.0 vs 4.2
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 17.9.1998 08:14:38
Hi,
co si predstavujem pod pojmem superserver? Tenhle rozdil me taky
zajima......
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Ales Zeleny [SMTP:zelenya(zv)mlp(tec)cz]
> Odesl�no: 16. z��� 1998 11:25
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Re: Interbase 4.0 vs 4.2
>
> > Zdravim,
> > prosim osvezte me nekdo pamet. Delam na Interbase 4.2 a jeden
> zakaznik
> > chce aplikaci na Interbase pro Linux (4.0) protoze nemam ted linux k
> > dispozici, tak bych to delal na lokalni IB 4.2 a pote to zpetne
> prevedl
> > pomoci scriptu na 4.0, ale nevim, co 4.2 ma navic od 4.0 - tudiz,
> ceho se
> > mam vyvarovat. Prosim poradte.
>
> Z hlavy ma 4.2 navic moznost shadow a pak tu odpornou vlastnost, ze je
>
> superserver.Vlastnosti komponent za behu
[*] Ing. Miroslav Ond��ek - 17.9.1998 08:15:36
Krome toho, ze rady ostatnich jsou presne, tak existuje free komponenta pro
Delphi 3 (pro jine verze nevim) Runtime Object Inspektor, kterou polozis na
formular a pak KDYKOLIV behem behu programu pres klavesovou zkratku vyvolas,
dostanes kompletni strom komponent a vsechny jejich vlastnosti, ktere muzes
cist i MENIT. Budes-li chtit, mailnu ji na Tvou soukromou adresu (123 kB).
Cau
M�ra Ond��ek
Bonnel Technologie, s.r.o.
E-mail:
bonnel-ondrisek(zv)telecom(tec)cz - v�voj software
internet: http://www.bonnel-tech.com
PGP podporov�no - ve�ejn� kl�� na na�� homepage
-----P�vodn� zpr�va-----
Od: Robert Walaski <robert(zv)silesnet(tec)cz>
Komu: Delphi Konference <delphi(zv)pinknet(tec)cz>
Datum: 16. z��� 1998 10:29
P�edm�t: Vlastnosti komponent za behu
>Ahoj,
>
> Ve svem programu potrebuji cist vlastnosti komponent za behu programu.
>Toto se mi celkem dari u stringu a cisel, ale kdyz narazim na vlastnost,
>ktera je typu TObject, napr. Komponenta.Lines (typu TStrings) nemuzu se k
>tomuto objektu nijak dostat, abych rovnez u nej zjistil jeho vlastnosti. Da
>se to nejak rozumne udelat?
>
>
>Za vsechny odpovedi predem DIK.
>
>
>S pozdravem
>
>Robert Walaski
>__________________
>robert(zv)silesnet(tec)cz
>
>
>TRichEdit
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 17.9.1998 08:16:18
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> if Clipboard.HasFormat(CF_TEXT) then
> SendMessage(RichEdit1.Handle, EM_PASTESPECIAL, CF_TEXT, 0) else
> MessageBeep(0);
> end;
U EM_PASTESPECIAL mi to rve "Undeclared identifier".zavreni externi aplikace
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 17.9.1998 08:29:46
No jo to mas pravdu. Rad bych poslal aplikaci message ale Handle okna je
cislo, ktere je ve W95 platne snad jen uvnitr vlastniho threadu ne? Kde
vzit handle na ktery mam message poslat?
S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz
> -----P�vodn� zpr�va-----
> Od: V�t�zslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
> Odesl�no: 17. z��� 1998 7:42
> Komu: DELPHI Distribution List
> P�edm�t: Re: zavreni externi aplikace
>
> Ja bych misto hProcess predal te aplikaci B ID procesu. ID procesu
> zjistis
> funkci GetCurrentProcessID. V aplikaci B potom pouzijes ID pro ziskani
> hProcess pomoci funkce OpenProcess. Pokud nebudes handle dale
> potrebovat,
> nezapomen zavolat CloseHandle. Funkce TerminateProcess provede nasilne
> ukonceni aplikace, to znamena, ze se nemusi provest nektere akce,
> ktere se
> provedou jen pri normalnim ukonceni, napriklad uvolneni ruznych
> prostredku,
> ulozeni na disk, atd. Pokud ta aplikace A je take tve dilo doporucuji
> ji z
> aplikace B poslat nejakou zpravu, na kterou aplikace A zareaguje tim,
> ze se
> sama normalne ukonci. V tom pripade bych aplikaci B nepredaval ani ID
> procesu, ale treba jen handle okna.
>
> Vita
OPERATOR 506090 status [OK] TRUNC (1000)
[*] nobody(zv)eunet(tec)cz - 17.9.1998 08:30:47
Volaci cislo operatoru (Pager Number): 506090
Vzkaz (Message):
OPERATOR 506090 status [OK] TRUNC (1000)/
Volaci cislo operatoru (Pager Number): 506090
Vzkaz (Message):
Re: Ukladani na server/
Jo to by me take velice zajimalo, protoze Close/Open/Locate me
velice rozciluje! Buhuzel jsem prilis nepochopil, jak jsi to vlastne
myslel.
A kdyz jsem u toho. Nemel by nekdo napad jak zjistit hodnotu klice
vygenerovanou trigrem aniz by bylo nutne volat dalsi ulozenou proceduru?
Jaro
>Ahoj.
>
>Mozne reseni 1
>-------------------
>Po Query.Post volej Query.Close, Query.Open a skoc na zaznam, ktery
>potrebujes.
>(kdybys pouzival TTable komponentu, tak staci Refresh)
>
>Duvod je ten, ze
>a) pouzivas IDENTITY
>b) trigger meni data v tabulce
>Oba typy zmen se jevi pro BDE jako kdyby je udelal jiny uzivatel (proto ta
>hlaska).
>
>Mozne reseni 2
>-------------------
>Myslim, ze BDE 5.0 ma zabudovanou podporu datoveho typu IDENTITY. To by
>mohlo pomoci s pripadem a). Zatim jsem si s tim nehral.
>Mozna by slo uzit i ve starsim BDE field type AUTOINC (nezkousel j
Vzkaz byl odeslan (Message has been sent).
Specifikace vystrahy: TRUNC - max. delka je 1000 znaku pro dany operator
Warning code : TRUNC - 1000 chars is max. length for the pager
Nulova hodnota Date
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 17.9.1998 08:30:33
Hi,
dovolim si nesouhlasit......
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
> Odesl�no: 16. z��� 1998 15:48
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: RE: Nulova hodnota Date
>
>
> 1. Je zde mnoho uzivatelu, kteri chteji vyuzivat standardni
> komponenty, ktere maji v Delphi zdarma. Treba jim ani RX
> nevyhovuje - napriklad ja RX Library vubec nepouzivam.
[Martin Fron�k] RX tady pouziva skoro kazdy. Mas nejaky duvod k
tomu, abys ji nepouzival? (krome toho, ze je zdarma, a tak na ni nic
netrhnes?)
> 2. Pokud nekdo pouzije flat tlacitka, TCoolBar apod., pak
> stejne musi COMCTL32.DLL do sveho projektu zahrnout a nebo
> doufat, ze na cilovem pocitaci jiz bude.
[Martin Fron�k] Tak nebude pouzivat TCoolBar, ale TToolBar od
J. Russela, ten je zdrama a nepotrebuje zadnou novou knihovnu, resi si
to sam a myslim ze velmi dobre.
> 3. Komponenta TDateTimePicker vypada designove docela zajimave,
> ja mam nekolik jinych kalendaru, kazdy vypada trochu jinak,
> ale TDateTimePicker je opravdu docela hezky.
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
> Autorizovany dealer TurboPower Software... knihovny pro Delphi
> ==============================================================
> === Petr Zahradnik - Computer Laboratory ===
> === Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
> === telefon: 047-5500610, telefon/fax: 047-5501627 ===
> === mobilni telefon GSM (hotline): 0602-409601 ===
> === http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
> ==============================================================Interbase 4.0 vs 4.2
[*] Daniel Prynych <Daniel.Prynych(zv)hornet(tec)cz> - 17.9.1998 08:32:37
>-----P�vodn� zpr�va-----
>Od: Ales Zeleny <zelenya(zv)mlp(tec)cz>
>Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
>Datum: 16. z��� 1998 17:50
>P�edm�t: Re: Interbase 4.0 vs 4.2
>
>> Zdravim,
>> prosim osvezte me nekdo pamet. Delam na Interbase 4.2 a jeden zakaznik
>> chce aplikaci na Interbase pro Linux (4.0) protoze nemam ted linux k
>> dispozici, tak bych to delal na lokalni IB 4.2 a pote to zpetne prevedl
>> pomoci scriptu na 4.0, ale nevim, co 4.2 ma navic od 4.0 - tudiz, ceho se
>> mam vyvarovat. Prosim poradte.
>
>Z hlavy ma 4.2 navic moznost shadow a pak tu odpornou vlastnost, ze je
>superserver.
Shadow ma 4.0 na Linuxu taky, v dokumentaci se tvrdi ze porty IB pri Unix-systemy
maji SHADOW od verze 3.3.
Dan
+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.Skoleni
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 17.9.1998 08:36:59
Hi,
je videt, ze teziste skoleni by melo byt v databazich, tam asi hodne
lidi tlaci bota.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Jaro [SMTP:jaro(zv)sinea(tec)cz]
> Odesl�no: 16. z��� 1998 20:50
> Komu: DELPHI Distribution List
> P�edm�t: Re: Skoleni
>
> A co takhle skoleni a konzultace pro pokrocile programovani C/S
> a Delphi?
>
>
> >Napriklad tvorba vlastnich komponent odvodenych z TDataset.
> >
> >> -----Original Message-----
> DAO
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 17.9.1998 08:41:21
> Mohol by mi niekto napisat presnu www adresu , kde by sa dalo stiahnut DAO ?
> Hladal som u microsoftu ale najak som to nemohol najst.
DAO se u Microsoftu stahnout neda, protoze je to komercni produkt,
neda se volne sirit. Abys jej mohl sirit, musis mit koupene
Visual Basic nebo Visual C++ ve verzich Professional nebo
Enterprise. Na instalacnich CD techto produktu jej take najdes.
Pokud chces DAO sirit nelegalne, coz nedoporucuji, pak je zde:
http://support.installshield.com
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Vyvolani 16bit DLL z 32bit EXE/DLL
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 17.9.1998 08:41:21
> Diky, je to sice fajn, ale program, ktery bude volat 16bit DLL neni vubec v
> Delphi, je to DB system Progress, ktery zna akorat LoadLibrary, FreeLibrary
> a obalkovaci funkci pro zavolani procedury z DLL (vse v konvenci C nebo C++)
> a 16bit knihovnu pripojit proste odmitne.
A jak to mame vedet, kdyz jsi nam to rekl az ted a zde se implicitne
predpoklada, ze se kazdy pta na Delphi?
No tak si treba v Delphi udelej 32-bitovou DLL, ktera bude volat 16-bitovou DLL,
a z programu volej tu 32-bitovou...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================OPERATOR 506090 status [OK]
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 17.9.1998 08:41:21
> > Volaci cislo operatoru (Pager Number): 506090
> > Vzkaz (Message):
> >
> > Install+Win3.11/
> > Ahoj,
> > mate negdo zkusenosti s vytvarenim instalaci pod Delphi 1 a Win
> > 3.11. Poradte jak na to. Existuje nejaka 16-bitova verze InstallShield ?
> >
> > Diky, Marek
> >
> > <vcard.vcf>
> >
> > Vzkaz byl odeslan (Message has been sent).
>
> GRRRRrrrrrrrrrrrrrr.......
Nekteri lide jsou bezohledni a nastavuji si debilni forwardy,
odpovidace a podobne ptakoviny na postovni schranku, kam si
nechaji posilat konferenci. Zajimalo by me, kdo ma ten pager
506090. A jinak tu branu Operatoru programoval take nejaky
exot, kdyz to kazdy vzkaz potvrzuje.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================zavreni externi aplikace
[*] V�t�zslav Gazda������u��n�?��? - 17.9.1998 09:00:18
>No jo to mas pravdu. Rad bych poslal aplikaci message ale Handle
>okna je cislo, ktere je ve W95 platne snad jen uvnitr vlastniho
>threadu ne? Kde vzit handle na ktery mam message poslat?
Ale ne, handle okna je platny v celem systemu.
Vita
Property v novej komponente
[*] Martin O�en� <mocenas(zv)isternet.sk> - 17.9.1998 09:09:33
Zdravim. Mam problem. Vytvoril som novu kompnentu na sposob
DBLookupCombo. Nededil som ju, ale upravil som unit DBctrls
z VCL. Aj ked som property z povodneho zdrojaku neodoberal
iba pridaval, stalo sa:
property KeyField a ListField v Object Inspector-e nie su
ako ComboBox(t.j. Obj. Inspector ponukne fieldy), ale je iba
ako Edit. Co sa stalo ?
Dakujem
Martin Ocenas
ProCeS s.r.o.
Banska Bystrica
Zji�t�n� jm�na PC
[*] Jaroslav Chadt <Chadt(zv)cbu.uhul(tec)cz> - 17.9.1998 09:16:16
Nev�t� n�kdo n�hodou, jak zjistit jm�no PC ve Win95, pop�. IP adresu,
jestli j� m� a jakou.
D�ky
Jaroslav Chadt
---------------------------------------------
�H�L Brand�s nad Labem
pobo�ka �esk� Bud�jovice
Lipov� 15
373 71 Rudolfov
tel./z�zn.: 038/72 38 388
fax:038/72 38 288
E-mail: chadt(zv)cbu.uhul(tec)cz
www: http://www.uhul(tec)cz/cbu
Pripojeni na MS SQL z Delphi
[*] Radek Soucek <rsoucek(zv)email(tec)cz> - 17.9.1998 09:18:48
To by samozrejme slo. Pokud se ale, coz je mozne, nemylim, je nutno vytvorit
na serveru na tu databazi alias. Muzu je tomu nejak vyhnout? U Interbase je
mozno jednoduse na server databazi zkopirovat a bez dalsiho ji pripojit...
Radek
-----P�vodn� zpr�va-----
Od: Linhart Petr <Petr(zv)manwe.mius(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 17. z��� 1998 7:27
P�edm�t: RE: Pripojeni na MS SQL z Delphi
>Ja jsem vzdy zadaval DATABASE NAME=pokusdb - coz je skutecny nazev data�
>baze,
>ne device a funguje to bez problemu
>
>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
>
>> -----P�vodn� zpr�va-----
>> Od: Radek Soucek [SMTP:rsoucek(zv)email(tec)cz]
>> Odesl�no: 16. z��� 1998 14:09
>> Komu: delphi(zv)pinknet(tec)cz
>> P�edm�t: Pripojeni na MS SQL z Delphi
>>
>> Pokousim se pripojit na MS SQL 6.5 z Delphi 3.0. K pripojeni pouzivam
>> komponentu TDatabase. Podarilo se mi bez problemu pripojit na device
>> databaze timto zpusobem:
>>
>> DATABASE NAME=device_databaze
>> SERVER NAME=server
>>
>> Z klediska koncepce nasich progamu by bylo pro me (a zejmena pro
>> administraci naseho softu) jednodussi jako parametr uvest primo naze�
>v
>> databaze, tedy nevytvaret device. Tedy neco jako:
>>
>> DATABASE NAME=C:\data\databaze.dat
>> SERVER NAME=server
>>
>> Nevite nekdo, jestli je to mozne? A jestli ano, muze mit tento zpusob
>> nejake nevyhody?
>>
>> Predem moc dik za odpoved. Radek
>
>
Vyvolani 16bit DLL z 32bit EXE/DLL
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 17.9.1998 09:18:51
D�ky za radu (asi to bude nejlepsi reseni) a promi�, ze jsem to nerekl hned.
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
> Odesl�no: 17. z��� 1998 9:41
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Vyvolani 16bit DLL z 32bit EXE/DLL
>
> > Diky, je to sice fajn, ale program, ktery bude volat 16bit DLL neni
> vubec v
> > Delphi, je to DB system Progress, ktery zna akorat LoadLibrary,
> FreeLibrary
> > a obalkovaci funkci pro zavolani procedury z DLL (vse v konvenci C nebo
> C++)
> > a 16bit knihovnu pripojit proste odmitne.
>
> A jak to mame vedet, kdyz jsi nam to rekl az ted a zde se implicitne
> predpoklada, ze se kazdy pta na Delphi?
> No tak si treba v Delphi udelej 32-bitovou DLL, ktera bude volat
> 16-bitovou DLL,
> a z programu volej tu 32-bitovou...
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
>
> Autorizovany dealer TurboPower Software... knihovny pro Delphi
> ==============================================================
> === Petr Zahradnik - Computer Laboratory ===
> === Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
> === telefon: 047-5500610, telefon/fax: 047-5501627 ===
> === mobilni telefon GSM (hotline): 0602-409601 ===
> === http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
> ==============================================================Pripojeni na MS SQL z Delphi
[*] Lubo Fule <fule(zv)sct.sk> - 17.9.1998 09:25:45
Tak to vyzera, ze nepoznas koncepciu MS SQL. Device a databaza su dve
rozdielne veci. Device je subor, kam sa ukladaju databazy. To znamena, ze
subor .DAT nepredstavuje databazu ale iba ulozny priestor pre data. Jedna
databaza moze byt rozlozena na viacej device-ov teda sa moze nachadzat vo
viacerych suboroch .DAT a tiez jeden subor moze obsahovat viacej databaz.
Sprava device-ov a databaz je v Enterprise manager-i, kde sa urcuje napr. na
ktorych device su databazy ulozene. To, aky device sa ma pouzit, sa v Delphi
v ziadnom pripade urcit neda, pretoze sa to urcuje "natvrdo" pri vytvarani
databazy.
-----Original Message-----
From: Radek Soucek [mailto:rsoucek(zv)email(tec)cz]
Sent: Wednesday, September 16, 1998 2:09 PM
To: delphi(zv)pinknet(tec)cz
Subject: Pripojeni na MS SQL z Delphi
Pokousim se pripojit na MS SQL 6.5 z Delphi 3.0. K pripojeni pouzivam
komponentu TDatabase. Podarilo se mi bez problemu pripojit na device
databaze timto zpusobem:
DATABASE NAME=device_databaze
SERVER NAME=server
Z klediska koncepce nasich progamu by bylo pro me (a zejmena pro
administraci naseho softu) jednodussi jako parametr uvest primo nazev
databaze, tedy nevytvaret device. Tedy neco jako:
DATABASE NAME=C:\data\databaze.dat
SERVER NAME=server
Nevite nekdo, jestli je to mozne? A jestli ano, muze mit tento zpusob
nejake nevyhody?
Predem moc dik za odpoved. Radek
Vyvolani 16bit DLL z 32bit EXE/DLL
[*] Marek Hejl <kkwest(zv)mbox.vol(tec)cz> - 17.9.1998 09:27:16
Vlozim se do teto debaty, nebot tento problem mne take zajima. Pane
zahradnik, mohl by jste zde blize popsat, jak v Delphi vytvorit onu zminenou
32bitovou DLL, ktera bude volat 16bitovou DLL. Prave o toto jsem se
pokousel, a abych pravdu rek, moc se mi to nedarilo. Dekuji.
Marek Hejl
kkwest(zv)mbox.vol(tec)cz
mhejl(zv)usa.net
Skoleni
[*] Jiri Szopa <jiri.szopa(zv)telecom(tec)cz> - 17.9.1998 09:36:46
>> Ahoj all,
>>
>> domlouvam s Inprise lektorstvi na kurzech o Delphi. Na namet
>> "Pokrocile programovani v Delphi" mam dohodnute dva kurzy, jeden
>> o tvorbe komponent a wizardu (do New Items), druhy o
>> databazovych aplikacich.
>>
>> Chtel jsem se zeptat, kdybyste treba na nejaky takovy kurz sli, co
>> byste se tam chteli dozvedet. Pripadne zda mate pro pokrocile
>> programovani dalsi namety, ktere byste se na takovem skoleni
>> chteli dozvedet.
Deplhi & COM (DCOM) obecne.
-------------------------------------------
Ing. Jiri Szopa
tel.: +420 659 713393
fax.: +420 659 713392
email: jiri.szopa(zv)telecom(tec)cz
Property v novej komponente
[*] Martin O�en� <mocenas(zv)isternet.sk> - 17.9.1998 09:37:01
Zdravim. Mam problem. Vytvoril som novu kompnentu na sposob
DBLookupCombo. Nededil som ju, ale upravil som unit DBctrls
z VCL. Aj ked som property z povodneho zdrojaku neodoberal
iba pridaval, stalo sa:
property KeyField a ListField v Object Inspector-e nie su
ako ComboBox(t.j. Obj. Inspector ponukne fieldy), ale je iba
ako Edit. Co sa stalo ?
Dakujem
Martin Ocenas
ProCeS s.r.o.
Banska Bystrica
TRichEdit
[*] Lubo Fule <fule(zv)sct.sk> - 17.9.1998 09:50:24
Patrne to bude tym, ze tam ma byt WM_PASTESPECIAL a nie EM_PASTESPECIAL
S pozdravom
Lubo Fule
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Krayzel Libor
> Sent: Thursday, September 17, 1998 8:16 AM
> To: 'DELPHI Distribution List'
> Subject: RE: TRichEdit
>
>
> > procedure TForm1.Button1Click(Sender: TObject);
> > begin
> > if Clipboard.HasFormat(CF_TEXT) then
> > SendMessage(RichEdit1.Handle, EM_PASTESPECIAL, CF_TEXT, 0) else
> > MessageBeep(0);
> > end;
>
> U EM_PASTESPECIAL mi to rve "Undeclared identifier".
> Zji�t�n� jm�na PC - doplneni
[*] Jaroslav Chadt <Chadt(zv)cbu.uhul(tec)cz> - 17.9.1998 10:03:35
myslim zjistit jmeno PC v Delphi 1.0
Jaroslav Chadt
---------------------------------------------
�H�L Brand�s nad Labem
pobo�ka �esk� Bud�jovice
Lipov� 15
373 71 Rudolfov
tel./z�zn.: 038/72 38 388
fax:038/72 38 288
E-mail: chadt(zv)cbu.uhul(tec)cz
www: http://www.uhul(tec)cz/cbu
> ----------
> From: Jaroslav Chadt[SMTP:Chadt(zv)cbu.uhul(tec)cz]
> Reply To: delphi-l(zv)fwd(tec)cz
> Sent: 17. z��� 1998 9:16
> To: 'delphi(zv)pinknet(tec)cz'
> Subject: Zji�t�n� jm�na PC
>
> Nev�t� n�kdo n�hodou, jak zjistit jm�no PC ve Win95, pop�. IP adresu,
> jestli j� m� a jakou.
>
> D�ky
>
>
> Jaroslav Chadt
> ---------------------------------------------
> �H�L Brand�s nad Labem
> pobo�ka �esk� Bud�jovice
> Lipov� 15
> 373 71 Rudolfov
>
> tel./z�zn.: 038/72 38 388
> fax:038/72 38 288
> E-mail: chadt(zv)cbu.uhul(tec)cz
> www: http://www.uhul(tec)cz/cbu
> TRichEdit
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 17.9.1998 10:06:51
> Patrne to bude tym, ze tam ma byt WM_PASTESPECIAL a nie
> EM_PASTESPECIAL
Ono se tomu nelibi ani jedno:-(Nefunguje mi DbiAnsiToNative
[*] Marek Erban <erban(zv)pregis(tec)cz> - 17.9.1998 10:10:56
Chci pouzit BDE funkci DbiAnsiToNative na prevod znaku, ale vystup je
stejny jako vstup.
Muze mi nekdo rici proc?
(result je 'Succesfull completion')
P.S.: Nemate nekdo funkci na prevod z ANSI(Win1250) do ISO Latin 2 CZ
(il2czw)MS SQL a posleni ID
[*] Radek Soucek <rsoucek(zv)email(tec)cz> - 17.9.1998 10:12:55
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Pred casem se zde resilo, jak ziskat ID posledni vlozene vety v MS SQL. Ja jsem zkousel takouvou tabulku editovat (jen kratky ciselnik) a narazil jsem na ten problem, ze si engine (coz je naprosto pochopitelne) neni schopen zjistit, jake cislo si ma dosadit na misto primarniho klice. Kdyz mu tam neco nabidnu, zahlasi chybu "Attempting to insert explicit value for identity column in table TABULKA when IDENTITY INSERT is set to OFF". Mozna je jeste nutno zadat nejaky parametr pri vytvareni tabulky, kterou jsem vytvarel takto:
create table Tabulka (
pocitadlo integer IDENTITY (1, 1) NOT NULL ,
text varchar(30),
primary key (pocitadlo)
)
Mam tedy na vas dva dotazy:
1, Je mozno zjistit hodnotu nasledujici identity na konkretni tabulce? Je na to nejaka ulozena procedura? Potreboval bych to pouzit pro vkladani vychozi hodnoty primarniho klice.
2, Jak je mozno vubec povolit vkladani hodnoty POCITADLO (viz vyse) i kdyz znam jeji hodnotu tak, abych neobdrzel chybove hlaseni? Je ji nutno zalozit jinym zpusobem?
Predem dik Radek
Pripojeni na MS SQL z Delphi
[*] Radek Soucek <rsoucek(zv)email(tec)cz> - 17.9.1998 10:24:50
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
To je pravda: koncepci MS SQL neznam; jinak bych se na to neptal. Spis se pokousim vymyslet nejaky zpusob, jak obejit nutnost pro kazdou databazi registrovat/ vytvaret na serveru.
-----P�vodn� zpr�va-----
Od: Lubo Fule <fule(zv)sct.sk>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 17. z��� 1998 8:44
P�edm�t: RE: Pripojeni na MS SQL z Delphi
Tak to vyzera, ze nepoznas koncepciu MS SQL. Device a databaza su dve rozdielne veci. Device je subor, kam sa ukladaju databazy. To znamena, ze subor .DAT nepredstavuje databazu ale iba ulozny priestor pre data. Jedna databaza moze byt rozlozena na viacej device-ov teda sa moze nachadzat vo viacerych suboroch .DAT a tiez jeden subor moze obsahovat viacej databaz. Sprava device-ov a databaz je v Enterprise manager-i, kde sa urcuje napr. na ktorych device su databazy ulozene. To, aky device sa ma pouzit, sa v Delphi v ziadnom pripade urcit neda, pretoze sa to urcuje "natvrdo" pri vytvarani databazy.
-----Original Message-----
From: Radek Soucek [mailto:rsoucek(zv)email(tec)cz]
Sent: Wednesday, September 16, 1998 2:09 PM
To: delphi(zv)pinknet(tec)cz
Subject: Pripojeni na MS SQL z Delphi
Pokousim se pripojit na MS SQL 6.5 z Delphi 3.0. K pripojeni pouzivam komponentu TDatabase. Podarilo se mi bez problemu pripojit na device databaze timto zpusobem:
DATABASE NAME=device databaze
SERVER NAME=server
Z klediska koncepce nasich progamu by bylo pro me (a zejmena pro administraci naseho softu) jednodussi jako parametr uvest primo nazev databaze, tedy nevytvaret device. Tedy neco jako:
DATABASE NAME=C:\data\databaze.dat
SERVER NAME=server
Nevite nekdo, jestli je to mozne? A jestli ano, muze mit tento zpusob nejake nevyhody?
Predem moc dik za odpoved. Radek
Zji�t�n� jm�na PC
[*] Radek Soucek <rsoucek(zv)email(tec)cz> - 17.9.1998 10:31:16
jde to napr. takhle
function Computername:String ;
var Lp:array[0..100] of char;
User:String;
Delka:DWord;
OK:LongBool;
begin
Delka:=90;
Ok:=GetComputername(lp, Delka);
if OK then User:=StrPas(lp) else User:='';
Result:=User;
end;
-----P�vodn� zpr�va-----
Od: Jaroslav Chadt <Chadt(zv)cbu.uhul(tec)cz>
Komu: 'delphi(zv)pinknet(tec)cz' <delphi(zv)pinknet(tec)cz>
Datum: 17. z��� 1998 8:26
P�edm�t: Zji�t�n� jm�na PC
>Nev�t� n�kdo n�hodou, jak zjistit jm�no PC ve Win95, pop�. IP�
> adresu,
>jestli j� m� a jakou.
>
>D�ky
>
>
>Jaroslav Chadt
>---------------------------------------------
>�H�L Brand�s nad Labem
>pobo�ka �esk� Bud�jovice
>Lipov� 15
>373 71 Rudolfov
>
>tel./z�zn.: 038/72 38 388
>fax:038/72 38 288
>E-mail: chadt(zv)cbu.uhul(tec)cz
>www: http://www.uhul(tec)cz/cbu
>
>Vyvolani 16bit DLL z 32bit EXE/DLL
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 17.9.1998 10:31:58
Hi,
jo, to je Zahradnik. Sice obcas neco poradi, ale kecu u toho ma.....
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Bene� Jaroslav [SMTP:JBenes(zv)cpoj(tec)cz]
> Odesl�no: 17. z��� 1998 9:19
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Vyvolani 16bit DLL z 32bit EXE/DLL
>
> D�ky za radu (asi to bude nejlepsi reseni) a promi�, ze jsem to nerekl
> hned.
>
> Jaro B.
>
> > -----P�vodn� zpr�va-----
> > Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
> > Odesl�no: 17. z��� 1998 9:41
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: RE: Vyvolani 16bit DLL z 32bit EXE/DLL
> >
> > > Diky, je to sice fajn, ale program, ktery bude volat 16bit DLL
> neni
> > vubec v
> > > Delphi, je to DB system Progress, ktery zna akorat LoadLibrary,
> > FreeLibrary
> > > a obalkovaci funkci pro zavolani procedury z DLL (vse v konvenci C
> nebo
> > C++)
> > > a 16bit knihovnu pripojit proste odmitne.
> >
> > A jak to mame vedet, kdyz jsi nam to rekl az ted a zde se implicitne
> > predpoklada, ze se kazdy pta na Delphi?
> > No tak si treba v Delphi udelej 32-bitovou DLL, ktera bude volat
> > 16-bitovou DLL,
> > a z programu volej tu 32-bitovou...
> >
> > S pozdravem
> > Petr Zahradnik, pocitacovy expert
> >
> > Autorizovany dealer TurboPower Software... knihovny pro Delphi
> > ==============================================================
> > === Petr Zahradnik - Computer Laboratory ===
> > === Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
> > === telefon: 047-5500610, telefon/fax: 047-5501627 ===
> > === mobilni telefon GSM (hotline): 0602-409601 ===
> > === http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
> > ==============================================================tabulky excell
[*] Richard Willmann <sales(zv)nocomment.sk> - 17.9.1998 10:47:49
hELLO,
riesil z vas niekto pristup k tabulkam excelu? Cez OLE, dde alebo ,,,
dakujem
richard willmann
tabulky excell
[*] Milan Schembera <schemberam(zv)avx(tec)cz> - 17.9.1998 11:04:18
> hELLO,
>
> riesil z vas niekto pristup k tabulkam excelu? Cez OLE, dde alebo ,,,
>
Neco jsem bastlil pred DDE, po nekolika pokusech to i fungovalo. Jinak mam
stahnutou i nejakou komponentu, kdyz budes chtit, tak ti ji poslu.
S pozdravem
Milan
MIS Dept.
AVX Czech Republic
Lanskroun
<mailto:schemberam(zv)avx(tec)cz>
Jak dat Blob z tabulky do TImage?
[*] honzajl(zv)email(tec)cz - 17.9.1998 11:34:06
Zdar vsici,
Mam solidni problem. Jak dostat z tabulky obrazek treba do TImage?
Pomoci TStream nebo TPersistent ... tyto veci se maji Creatnout nejak
jinak? Pres Assign me to nejak nefunguje.
/Jakej Field by byl vhodnej : Graphics nebo Blob?
Diky moc, nevim co stim... :-)
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
Nefunguje mi DbiAnsiToNative
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 17.9.1998 11:51:37
Hi,
takhle to mam ja v C++Builderu, snad ti to pomuze. TaJazyk je TTable
DWORD DataLoss;
pVOID pLdObj;
DbiGetLdObj (TaJazyk->Handle,pLdObj);
DbiAnsiToNative(pLdObj,cil,zdroj,strlen(zdroj),DataLoss);
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Marek Erban [SMTP:erban(zv)pregis(tec)cz]
> Odesl�no: 17. z��� 1998 10:11
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Nefunguje mi DbiAnsiToNative
>
> Chci pouzit BDE funkci DbiAnsiToNative na prevod znaku, ale vystup je
> stejny jako vstup.
> Muze mi nekdo rici proc?
> (result je 'Succesfull completion')
>
> P.S.: Nemate nekdo funkci na prevod z ANSI(Win1250) do ISO Latin 2 CZ
> (il2czw)CGI script help
[*] Jochman Jan <JJochman(zv)cpoj(tec)cz> - 17.9.1998 12:25:58
Neco Ti poslu. Ale asi az v pondeli, protoze mam rozdelany pocitac, na
kterym mam Delphi ;-)
> -----P�vodn� zpr�va-----
> Od: SIMKOVIC Peter [SMTP:simicek(zv)vadium.sk]
> Odesl�no: 16. z��� 1998 16:14
> Komu: DELPHI Distribution List
> P�edm�t: Re: CGI script help
>
> No ja robim v Delphi 4 Client/Server. Ale mam vo vseobecnosti problem
> ovladat tieto komponenty. Hlavne by som potreboval nejaku prakticku
> informaciu (napr. nejaku cast zdrojaku, ktora to riesi).
>
> Diki
>
>
> -----P�vodn� zpr�va-----
> Od: Jochman Jan <JJochman(zv)cpoj(tec)cz>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Datum: 15. september 1998 20:35
> P�edm�t: RE: CGI script help
>
>
> >V jake verzi Delphi ? Ve trojce jsou na to komponenty, se kterymi se pri
> >trose dobre vule da delat.
> >Jinak existuje komponenta CGIExpert na www.cgiexpert.com.
> >Cau Honza
> >
> >
> >> -----P�vodn� zpr�va-----
> >> Od: SIMKOVIC Peter [SMTP:simicek(zv)vadium.sk]
> >> Odesl�no: 14. z��� 1998 8:30
> >> Komu: DELPHI Distribution List
> >> P�edm�t: CGI script help
> >>
> >> Zdravim vsetkych,
> >>
> >> mam na Vas jenu malu otazku. Nevedel by mi tu niekto z Vas poradit
> ohladom
> >> vyroby CGI scriptu v Delphi. Ide mi hlavne o tu cast kodu, kde program
> >> prebera hodnotu z WEBU (napriklad z formulara). Akym sposobom som
> schopny
> >> precitat nejaku polozku do mojho programu a po vyhodnoteni ako mozem
> >> nejaky
> >> vysledok odoslat do WEB browsera k danemu klientovi.
> >>
> >> Peter SIMKOVIC
> >> http://simi.vadium.sk
> >> simkovic(zv)vadium.sk
> >> simicek(zv)vadium.sk
> >>Pomoc s pouzitim QReportu
[*] Svatopluk V�t <vit(zv)ardo(tec)cz> - 17.9.1998 12:41:11
Velkovezire! (tedy kazdy, kdoz si dobry v programovani Delphi, viz.
Letajici Cestmir)
Chtel bych se zeptat na nasledujici :
Vytvarim v D3 jednoduchou aplikaci, ktera bude tisknout leasingove smlouvy.
Chtel bych zakazniky ukladat do databaze a k nim specificke informace. To
uz mam skoro hotove. Ted resim nasledujici problem : mel jsem vytvoreny
dokument ve Wordu, kde byly vzorecky a vubec cely text. Existuje nejaky
jednoduchy zpusob, jak co nejlepe prevest tento dokument do QuickReportu?
Samozrejme to pujde pomoci schranky. Je jeste jiny zpusob? (Dokument je
relativne dlouhy cca 10 stran).
Ke kroku napsani vlastni aplikace jsme dospeli proto, ze budeme danou vec
provozovat na 4 pocitacich a je pro nas neunosne kupovat 4x MS Word.
Dalsi problem se tyka toho, ze cast pobezi na Win95 a cast na WIN 3.11.
Pujde to rozchodit pokud doinstalim do 3.11 knihovnu WIN 32? Nebo mam
aplikaci prepsat i pro Delphi 1? Jake muzou nastat komplikace?
Pokud byste nekdo znal i jiny postup, tzn. pouziti Word dokumentu bez
pritomnosti Wordu, nebudu se branit informacim.
Dekuji za mnoho ohlasu.
Svatopluk Vit
East Trading Company s.r.o. Karvina (www.ardo(tec)cz)
spravce pocitacove site - network administrator
zacinajici delphista - beginner in Delphi
E-mail : vit(zv)ardo(tec)cz ; svatopluk.vit(zv)post(tec)cz
tel : +420 69 63 06 085
ICQ : 11455617
...sem si dovolil....svesticky z moji zahradky...How to encrypt a string
[*] Jan Nov�k���r����n�?��? - 17.9.1998 12:48:31
Funkci jsem vyzkousel. Otazkou je jak se maji volit konstanty.
Pri kombinaci
Multkey = 52845,
AddKEY = 22719,
Startkey=21963, jsem kodoval a dekodoval string 'budej' . Algoritmus
v tomto pripade nefunguje spravne . Bylo to volbou konstant ?
-----P�vodn� zpr�va-----
Od: heinisch(zv)post(tec)cz <heinisch(zv)post(tec)cz>
Komu: Delphi <delphi(zv)pinknet(tec)cz>
Datum: 16. z��� 1998 21:47
P�edm�t: Re: How to encrypt a string
>Jak jsem koupil tak prodavam
>
>HeiJu
>
>P.S.
>Nezkousel jsem to tak nevim, kdzy to nepujde tak napis zkusime neco jineho
>
>unit Crypt32;
>{
>*************************************************************************
>* Name: Crypt32.Pas *
>* Description: 32 bits encode/decode module *
>* 2^96 variants it is very high to try hack *
>* Purpose: Good for encrypting passwors and text *
>* Security: avoid use StartKey less than 256 *
>* if it use only for internal use you may use default *
>* key, but MODIFY unit before compiling *
>* Call: Encrypted := Encrypt(InString,StartKey,MultKey,AddKey) *
>* Decrypted := Decrypt(InString,StartKey) *
>* Parameters: InString = long string (max 2 GB) that need to encrypt *
>* decrypt *
>* MultKey = MultKey key *
>* AddKey = Second key *
>* StartKey = Third key *
>* (posible use defaults from interface) *
>* Return: OutString = result string *
>* Editor: Besr viewed with Tab stops = 2, Courier new *
>* Started: 01.08.1996 *
>* Revision: 22.05.1997 - ver.2.01 converted from Delphi 1 *
>* and made all keys as parameters, before only start key *
>* Platform: Delphi 2.0, 3.0 *
>* work in Delphi 1.0, 2^48 variants, 0..255 strings *
>* Author: Anatoly Podgoretsky *
>* Base alghoritm from Borland *
>* Address: Vahe 4-31, Johvi, Estonia, EE2045, tel. 61-142 *
>* kvk(zv)estpak.ee *
>* Status: Freeware, but any sponsor help will be appreciated here *
>* need to buy books, shareware products, tools etc *
>*************************************************************************
>* Modified: Supports Delphi 1.0 & 2.0 *
>* Overflow checking removed *
>* By: Martin Djern�s *
>* e-mail: djernaes(zv)einstein.ot.dk *
>* web: einstein.ot.dk/~djernaes *
>*************************************************************************
>}
>interface
>
>const
> StartKey = 981; {Start default key}
> MultKey = 12674; {Mult default key}
> AddKey = 35891; {Add default key}
>
>function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer):
>string;
>function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer):
>string;
>
>implementation
>
>{$R-}
>{$Q-}
>{*******************************************************
> * Standard Encryption algorithm - Copied from Borland *
> *******************************************************}
>function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer):
>string;
>var
> I : Byte;
>begin
> Result := '';
> for I := 1 to Length(InString) do
> begin
> Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
> StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey;
> end;
>end;
>{*******************************************************
> * Standard Decryption algorithm - Copied from Borland *
> *******************************************************}
>function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer):
>string;
>var
> I : Byte;
>begin
> Result := '';
> for I := 1 to Length(InString) do
> begin
> Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
> StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
> end;
>end;
>{$R+}
>{$Q+}
>
>end.
>
>
>
>//******************************************
>
>
>-----P�vodn� zpr�va-----
>Od: Jan Nov�k <csobta(zv)mbox.vol(tec)cz>
>Komu: Delphi <delphi(zv)pinknet(tec)cz>
>Datum: 16. z��� 1998 2:00
>P�edm�t: How to encrypt a string
>
>
>>Ahoj.
>>Zajimalo by mne jak se da udelat encryptace a decryptace stringu.
>>funkce Ecrypt( .......): String; funkce Decrypt( ): string;
>>Nema nekdo ZDROJAk !!! techto sfirovacich funkci nebo komponentu , ktera
by
>>to umela. Sifrovaci funkce Delphi nemaji.
>>Da se koupit nejaka knihovna , ktera by to umela.?
>>Tento dotaz jsem uz posilal , taky tu byl dotaz na komponentu,
>>bohuzel jsem se nedozvedel nic konkretniho.
>> Na technickych informacich Inprise JE to c. 2803 je priklad. Ten mi
vsak
>>nefunguj. Mam Delphi 3.
>>
>> Diky vsem pratelum Delphi za radu.
>>
>
>Kompilace balicku
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 17.9.1998 12:49:02
v-soft(zv)mbox.lantanet(tec)cz wrote:
> Mam VCL komponentu, ve ktere pouzivam unit z RX Library.
> Tato komponenta je pochopitelne umistena v nejakem
> balicku <> RX Library. Kdyz chci tento balicek pridat
> do Delphi, tak to hlasi :
>
> "Cannot load package 'Jmenobalicku'. It contains
> 'NecoZRX', which is also contained in package 'RX Tools'.
To vypada na to, ze pridavas do balicku i unitu z RX Library.
Podivej se do zdroje balicku.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
DELPHI Distribution List
[*] Petr Vyhlidal <stasinfo(zv)elnet(tec)cz> - 17.9.1998 13:22:24
Haaaalooooo
Jak se odhlasim z konference, prosim ????????Jak dat Blob z tabulky do TImage?
[*] Lubo Fule <fule(zv)sct.sk> - 17.9.1998 13:26:13
Ja pouzivam Assign a funguje to uplne spolahlivo napr.:
Image1.Picture.Assign(Table1.FieldByName('Image'));
... a obrazok je tam
Da sa to samozrejme aj cez Stream napr.:
var S:TMemoryStream;
begin
s:=TMemoryStream.Create;
(Table1.FieldByName('Image') as TBlobField).SaveToStream(S);
Image1.Picture.Bitmap.LoadFromStream(S);
... a obrazok je tam, este uvolnit stream
S.Free;
end;
Uznas, ze cez assign je to jednoduchsie...:-)
S pozdravom
Lubo Fule
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> honzajl(zv)email(tec)cz
> Sent: Thursday, September 17, 1998 11:34 AM
> To: delphi(zv)pinknet(tec)cz
> Subject: Jak dat Blob z tabulky do TImage?
>
>
> Zdar vsici,
>
> Mam solidni problem. Jak dostat z tabulky obrazek treba do TImage?
> Pomoci TStream nebo TPersistent ... tyto veci se maji Creatnout nejak
> jinak? Pres Assign me to nejak nefunguje.
>
> /Jakej Field by byl vhodnej : Graphics nebo Blob?
>
> Diky moc, nevim co stim... :-)
>
> --- CREATED BY ATC O..R..G..A..N..I..Z..E..R
> --- http://email(tec)cz <--- Get Your Free Email
> Pripojeni na MS SQL z Delphi
[*] Lubo Fule <fule(zv)sct.sk> - 17.9.1998 13:30:01
To zial asi nepojde. Je size mozne programovo vytvorit databazu aj device
(pozri do dokumentacie ku Transact SQL), ale myslim, ze sa musi najprv
vytvorit a az potom sa tam mozu naplnit nejake data.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Radek Soucek
Sent: Thursday, September 17, 1998 11:25 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Pripojeni na MS SQL z Delphi
To je pravda: koncepci MS SQL neznam; jinak bych se na to neptal. Spis
se pokousim vymyslet nejaky zpusob, jak obejit nutnost pro kazdou databazi
registrovat/ vytvaret na serveru.
-----P�vodn� zpr�va-----
Od: Lubo Fule <fule(zv)sct.sk>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 17. z��� 1998 8:44
P�edm�t: RE: Pripojeni na MS SQL z Delphi
Tak to vyzera, ze nepoznas koncepciu MS SQL. Device a databaza su
dve rozdielne veci. Device je subor, kam sa ukladaju databazy. To znamena,
ze subor .DAT nepredstavuje databazu ale iba ulozny priestor pre data. Jedna
databaza moze byt rozlozena na viacej device-ov teda sa moze nachadzat vo
viacerych suboroch .DAT a tiez jeden subor moze obsahovat viacej databaz.
Sprava device-ov a databaz je v Enterprise manager-i, kde sa urcuje napr. na
ktorych device su databazy ulozene. To, aky device sa ma pouzit, sa v Delphi
v ziadnom pripade urcit neda, pretoze sa to urcuje "natvrdo" pri vytvarani
databazy.
-----Original Message-----
From: Radek Soucek [mailto:rsoucek(zv)email(tec)cz]
Sent: Wednesday, September 16, 1998 2:09 PM
To: delphi(zv)pinknet(tec)cz
Subject: Pripojeni na MS SQL z Delphi
Pokousim se pripojit na MS SQL 6.5 z Delphi 3.0. K pripojeni
pouzivam komponentu TDatabase. Podarilo se mi bez problemu pripojit na
device databaze timto zpusobem:
DATABASE NAME=device_databaze
SERVER NAME=server
Z klediska koncepce nasich progamu by bylo pro me (a zejmena pro
administraci naseho softu) jednodussi jako parametr uvest primo nazev
databaze, tedy nevytvaret device. Tedy neco jako:
DATABASE NAME=C:\data\databaze.dat
SERVER NAME=server
Nevite nekdo, jestli je to mozne? A jestli ano, muze mit tento
zpusob nejake nevyhody?
Predem moc dik za odpoved. Radek
tabulky excell
[*] Lubo Fule <fule(zv)sct.sk> - 17.9.1998 13:31:50
Ano, cez OLE... ak chces, mozno najdem aj nejaky priklad.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Richard Willmann
Sent: Thursday, September 17, 1998 10:48 AM
To: delphi-l(zv)fwd(tec)cz
Subject: tabulky excell
hELLO,
riesil z vas niekto pristup k tabulkam excelu? Cez OLE, dde alebo ,,,
dakujem
richard willmann
USES OBJECTS
[*] Juraj Nagy <Juraj.Nagy(zv)nh-trans(tec)cz> - 17.9.1998 13:44:34
V Borland Pascalu se pomoci typu object definovaly objektove typy,
asi takto:
type Ta = object
b: Integer;
function HodnotaB: integer;
procedure BlbeB;
...
end;
(* vetsinou to melo pokracovani *)
Pa = ^Ta;
Toto je velmi zjednoduseny popis. Dulezite pro Tebe je, ze Delphi
podporuje i tento objektovy format, takze v prvni fazy muzes program
s temito objektama zkompilovat a pouzit. Nepotrebujes zadny unit
Objects. Bude ale lepsi casem to prepsat na Classy.
P.s.: Priznavam se, ze jsem to nezkousel, jenom beru informace z
prirucek z Delphi 1. Kompilace jednoducheho testovaciho programu pod
D3 taky proslo (ale ten program prakticky nedelal nic, jenom
deklaroval objekty).
S pozdravem
J. Nagy
NH-TRANS, spol. s r.o.
Podebradova 28
702 00 Ostrava
e-mail: Juraj.Nagy(zv)nh-trans(tec)cz
> -----P�vodn� zpr�va-----
> Od: Ing. J�n Kuch�r [SMTP:kuchar(zv)tuke.sk]
> Odesl�no: 11. z��� 1998 13:01
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: USES OBJECTS
>
> Caute
> Mam nasledovny problem. Dostal som ya ulohu prerobit stary DOSovsky
> program a zachovat pri tom jeho strukturu. Narazil som na definiciu
> novych premennych pomocou prikazu OBJECT. Tento prikaz je
> nadefinovany v Pascale pod Usesom OBJECTS, ale D3 tento Uses
> nepozna. Poradte mi niekto ako na to.
>
>
>
> Dik
>
> Ing. J�n Kuch�r
> Katedra inv�ci� a rein�inieringu
> SjF TU Ko�ice
> Letn� 9
> 040 01 Ko�ice
> E-mail : kuchar(zv)tuke.sk
> <<Soubor: ATT00000.html>> MS SQL a posleni ID
[*] Lubo Fule <fule(zv)sct.sk> - 17.9.1998 13:46:21
Do takejto tabulky nemozes pomocou TTable insertovat, musis tam insertovat
data SQL prikazom INSERT cez TQuery. Ked chces zistit vlozene IDENTITY tak
to treba urobit takymto prikazom:
INSERT INTO Tabulka (text) value ('blabla') SELECT (zv)(zv)IDENTITY
alebo cez parameter:
INSERT INTO Tabulka (text) value (:text) SELECT (zv)(zv)IDENTITY
takyto prikaz das do TQuery a "otvoris" ho (Active:=true).
Pri kazdom otvoreni sa prida novy riadok a Query bude obsahovat jeden stlpec
a jeden riadok, ktory bude obsahovat pridanu hodnotu IDENTITY
Priklad: Vlozi jeden riadok s hodnotou textu 'blabla' (cez parameter) a do
premennej id vlozi hodnotu IDENTITY
Query1.ParamByName('text').AsString:='blabla';
Query1.Open;
id:=Query1.Fields[0].AsInteger;
Query1.close;
Pri takomto sposobe je nutny nativny link na MSSQL. Pre ODBC je nutne pouzit
storovanu proceduru. Ak pouzivas ODBC, tak povedz a napisem Ti ako na to.
S pozdravom
Lubo Fule
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Radek Soucek
Sent: Thursday, September 17, 1998 11:13 AM
To: delphi(zv)pinknet(tec)cz
Subject: MS SQL a posleni ID
Pred casem se zde resilo, jak ziskat ID posledni vlozene vety v MS SQL.
Ja jsem zkousel takouvou tabulku editovat (jen kratky ciselnik) a narazil
jsem na ten problem, ze si engine (coz je naprosto pochopitelne) neni
schopen zjistit, jake cislo si ma dosadit na misto primarniho klice. Kdyz mu
tam neco nabidnu, zahlasi chybu "Attempting to insert explicit value for
identity column in table TABULKA when IDENTITY_INSERT is set to OFF". Mozna
je jeste nutno zadat nejaky parametr pri vytvareni tabulky, kterou jsem
vytvarel takto:
create table Tabulka (
pocitadlo integer IDENTITY (1, 1) NOT NULL ,
text varchar(30),
primary key (pocitadlo)
)
Mam tedy na vas dva dotazy:
1, Je mozno zjistit hodnotu nasledujici identity na konkretni tabulce?
Je na to nejaka ulozena procedura? Potreboval bych to pouzit pro vkladani
vychozi hodnoty primarniho klice.
2, Jak je mozno vubec povolit vkladani hodnoty POCITADLO (viz vyse) i
kdyz znam jeji hodnotu tak, abych neobdrzel chybove hlaseni? Je ji nutno
zalozit jinym zpusobem?
Predem dik Radek
Vyvolani 16bit DLL z 32bit EXE/DLL
[*] Lubo Fule <fule(zv)sct.sk> - 17.9.1998 13:48:41
Neviem naco su potrebne tie osobne utoky na odbornej konferencii
S pozdravom
Lubo Fule
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Martin Fron�k
> Sent: Thursday, September 17, 1998 10:32 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: RE: Vyvolani 16bit DLL z 32bit EXE/DLL
>
>
> Hi,
>
> jo, to je Zahradnik. Sice obcas neco poradi, ale kecu u toho ma.....
>
> Martin Fron�k
> ZZN Slan� a.s.
> Pra�sk� 1579, 274 49, Slan�
> tel. +420-314-522986
> e-mail: fronek(zv)zznslany(tec)cz
>
> > -----P�vodn� zpr�va-----
> > Od: Bene� Jaroslav [SMTP:JBenes(zv)cpoj(tec)cz]
> > Odesl�no: 17. z��� 1998 9:19
> > Komu: 'delphi-l(zv)fwd(tec)cz'
> > P�edm�t: RE: Vyvolani 16bit DLL z 32bit EXE/DLL
> >
> > D�ky za radu (asi to bude nejlepsi reseni) a promi�, ze jsem to nerekl
> > hned.
> >
> > Jaro B.
> >
> > > -----P�vodn� zpr�va-----
> > > Od: Petr Zahradnik [SMTP:clexpert(zv)clexpert(tec)cz]
> > > Odesl�no: 17. z��� 1998 9:41
> > > Komu: delphi-l(zv)fwd(tec)cz
> > > P�edm�t: RE: Vyvolani 16bit DLL z 32bit EXE/DLL
> > >
> > > > Diky, je to sice fajn, ale program, ktery bude volat 16bit DLL
> > neni
> > > vubec v
> > > > Delphi, je to DB system Progress, ktery zna akorat LoadLibrary,
> > > FreeLibrary
> > > > a obalkovaci funkci pro zavolani procedury z DLL (vse v konvenci C
> > nebo
> > > C++)
> > > > a 16bit knihovnu pripojit proste odmitne.
> > >
> > > A jak to mame vedet, kdyz jsi nam to rekl az ted a zde se implicitne
> > > predpoklada, ze se kazdy pta na Delphi?
> > > No tak si treba v Delphi udelej 32-bitovou DLL, ktera bude volat
> > > 16-bitovou DLL,
> > > a z programu volej tu 32-bitovou...
> > >
> > > S pozdravem
> > > Petr Zahradnik, pocitacovy expert
> > >
> > > Autorizovany dealer TurboPower Software... knihovny pro Delphi
> > > ==============================================================
> > > === Petr Zahradnik - Computer Laboratory ===
> > > === Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
> > > === telefon: 047-5500610, telefon/fax: 047-5501627 ===
> > > === mobilni telefon GSM (hotline): 0602-409601 ===
> > > === http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
> > > ==============================================================
>DEFORMACIA WAV
[*] Ing. J�n Kuch�r�����!j��G - 17.9.1998 13:50:50
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute
Potreboval by som vediet, ci je mozne a ak ano, ako deformovat zvuky typu wav, to znamena spomalovat - zrychlovat prehravanie a ako ich vlozit do programu aby nemuseli byt ulozene na disku, obdoba ked do komponenty image priamo priradim obrazok tak uz nemusi byt ulozeny na disku.
Dik
Ing. J�n Kuch�r
Katedra inv�ci� a rein�inieringu
SjF TU Ko�ice
Letn� 9
040 01 Ko�ice
E-mail : kuchar(zv)tuke.sk Delphi 2 - spatne ikony u komponent
[*] RADIK(zv)p15.monet(tec)cz - 17.9.1998 14:38:00
Po nainstalovani Delphi 2 na novy pocitac (AGP, Intel740, AMD K6) se na
palete komponent zobrazila misto ikon jen barevna cmouha (hezky se tomu
rika rozsypany caj). Ostatni tlacitka jsou v poradku.
Delphi 3 na stejnem pocitaci jsou v poradku.
Nemate s tim nekdo zkudenosti?
Ales
USES OBJECTS
[*] Lubo Fule <fule(zv)sct.sk> - 17.9.1998 14:56:53
unit OBJECTS jednoducho zo sekcie USES vyhod a malo by to fungovat. Typ
OBJECT je uz v delphi implementovany a netreba nan ziadny unit.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Ing. J�n Kuch�r
Sent: Friday, September 11, 1998 1:01 PM
To: delphi(zv)pinknet(tec)cz
Subject: USES OBJECTS
Caute
Mam nasledovny problem. Dostal som ya ulohu prerobit stary DOSovsky
program a zachovat pri tom jeho strukturu. Narazil som na definiciu novych
premennych pomocou prikazu OBJECT. Tento prikaz je nadefinovany v Pascale
pod Usesom OBJECTS, ale D3 tento Uses nepozna. Poradte mi niekto ako na to.
Dik
Ing. J�n Kuch�r
Katedra inv�ci� a rein�inieringu
SjF TU Ko�ice
Letn� 9
040 01 Ko�ice
E-mail : kuchar(zv)tuke.sk
USES OBJECTS
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 17.9.1998 14:58:25
pouzij misto object class, i kdyz si mislim, ze Delphi podporuji
definici objektu i pres object.
Vaclav Sazima
Ing. J�n Kuch�r wrote:
> CauteMam nasledovny problem. Dostal som ya ulohu prerobit stary
> DOSovsky program a zachovat pri tom jeho strukturu. Narazil som na
> definiciu novych premennych pomocou prikazu OBJECT. Tento prikaz je
> nadefinovany v Pascale pod Usesom OBJECTS, ale D3 tento Uses nepozna.
> Poradte mi niekto ako na
> to.
> Dik
>
> Ing. J�n Kuch�r
> Katedra inv�ci� a rein�inieringu
> SjF TU Košice
> Letn� 9
> 040 01 Košice
> E-mail : kuchar(zv)tuke.sk
Turbo Pascal kontra Delphi
[*] Ing. J�n Kuch�r�����!j��G - 17.9.1998 15:05:46
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute
Potrebuje radu. Pri definovani novych typov v pascale typu OBJECT sa pouzival uses OBJECTS, neviem ako to nahradit v DELPHI. Priamo ukazem definovanie v Pascale a rad by som keby ste mi niekto to iste mohol poslat spat prerobene pre DELPHI.
Vdaka
Tak tu to je :
----------------------------------------------------------------------------------------------------------------------
uses objects;
type PBlockStream=^TBlockStream;
TBlockStream=object(TBufStream)
BAT:TBufStream;
constructor Init(FileName:string;Mode,Size:word);
destructor Done; virtual;
procedure ReadRec(loc:longint;Zac:pointer;Size:word);
procedure WriteRec(loc:longint;Zac:pointer;Size:word);
end;
PRecStream=^TRecStream;
TRecStream=object(TBufStream)
RAT:TBufStream;
constructor Init(FileName:string;Mode,Size:word);
destructor Done; virtual;
procedure ReadRec(loc:longint;Zac:pointer;Size:word);
procedure WriteRec(loc:longint;Zac:pointer;Size:word);
end;
Pbyte=^byte;
Plongint=^longint;
Pxx=^xx;
xx=array[1..sizeof(zaznam)] of byte;
var Bufx:Pxx;
BufxPtr:word;
RecS:PRecStream;
Size:word;
-----------------------------------------------------------------------------------------------
Ing. J�n Kuch�r
Katedra inv�ci� a rein�inieringu
SjF TU Ko�ice
Letn� 9
040 01 Ko�ice
E-mail : kuchar(zv)tuke.sk tabulky excell
[*] kchmel(zv)post(tec)cz - 17.9.1998 15:17:43
Ahoj,
mozna mam trochu naivni dotaz, ale presto. Kde najdu
informace o DDE prikazech pro Excel?
Karel
> > hELLO,
> >
> > riesil z vas niekto pristup k tabulkam excelu? Cez OLE, dde alebo ,,,
> >
>
> Neco jsem bastlil pred DDE, po nekolika pokusech to i fungovalo. Jinak mam
> stahnutou i nejakou komponentu, kdyz budes chtit, tak ti ji poslu.
>
> S pozdravem
>
> Milan
> MIS Dept.
> AVX Czech Republic
> Lanskroun
>
>
>
>
Vlastnosti komponent za behu
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 17.9.1998 15:27:01
> Krome toho, ze rady ostatnich jsou presne, tak existuje free komponenta pro
> Delphi 3 (pro jine verze nevim) Runtime Object Inspektor, kterou polozis na
> formular a pak KDYKOLIV behem behu programu pres klavesovou zkratku vyvolas,
> dostanes kompletni strom komponent a vsechny jejich vlastnosti, ktere muzes
> cist i MENIT. Budes-li chtit, mailnu ji na Tvou soukromou adresu (123 kB).
>
Pekne prosim, mohl bych dostat taky?
--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/57805
038/7512861
DELPHI Distribution List
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 17.9.1998 15:42:29
sejmite ho niekto
Petr Vyhlidal wrote:
> Haaaalooooo
> Jak se odhlasim z konference, prosim ????????
--
Majte sa,
R.
tabulky excell
[*] Richard Willmann <sales(zv)nocomment.sk> - 17.9.1998 16:24:51
ak mozem poprosit (chcel som odpovedat na sukromny mail ale sa to vratilo ...)
dakujem
-----Original Message-----
From: Lubo Fule <fule(zv)sct.sk>
To: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Date: Thursday, September 17, 1998 4:12 PM
Subject: RE: tabulky excell
Ano, cez OLE... ak chces, mozno najdem aj nejaky priklad.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Richard Willmann
Sent: Thursday, September 17, 1998 10:48 AM
To: delphi-l(zv)fwd(tec)cz
Subject: tabulky excell
hELLO,
riesil z vas niekto pristup k tabulkam excelu? Cez OLE, dde alebo ,,,
dakujem
richard willmann
problem s Alloc memory
[*] Josef Dodek <dodek(zv)cbmi.cvut(tec)cz> - 17.9.1998 17:08:55
zdravim,
muze mi prosim nekdo poradit s nasledujicim problemem...
mam definovano
type
ukazNaPole = ^GrafData;
GrafData = record
teplota : integer;
vykon : integer;
cas : integer;
end;
promenne -> ukaz : ukazNaPole
Gbod : GrafData
a potom s vyhradim pamet pro data pomoci funkce allocMem
ukaz:=allocMem(sizeOf(GrafData)*1000);
... cimz dostanu ukazate na zacatek bloku dat. Az potud je vse snad v
poradku, ale potom potrebuji do/z toho bloku zapisovat/cist a to uz mi
moc nejde (lepe receno vubec nejde)
zkousel jsem to delat takto
GBod.cas:=nejakaHodnota;
GBod.teplota:=nejakaHodnota;
GBod.vykon:=nejakaHodnota;
ukaz^:=Gbod;
to jeste snad jde, ale jak se dostanu na dalsi bunky toho alokovaneho
bloku dat.
zkousel jsem (ukaz+1)^:=Gbod; ale to mi hlasi Error : 26 Type mismatch.
nevite nekdo prosim jak se to dela, v C-cku pry normalne jde -> ukaz++
ale jak se to dela v delphach ? poradte nekdo prosim
s pozdravem
pepa dodek
Vlastnosti komponent za behu
[*] Robert Walaski <robert(zv)silesnet(tec)cz> - 17.9.1998 17:21:06
Asi jsem se nevyjadril presne, tedy jeste jednou popisuji cely postup:
Myslel jsem toto: ve formulari si zjistim vsechny komponenty, u kazde z nich
si overim jejich vlastnosti pomoci GetPropList, vyberu vlastnosti ktere maji
List^[j]^.PropType^.Kind=tkClass abych dostal mezi jinymi i vlastnost Lines
typu TStrings (napr pro TMemo ale taky pro TSuperMemo a dalsi, u jinych
komponent to muze byt treba i vlastnost Items). A ted prichazi muj problem.
U takto zjisteneho prvku bych potreboval zjistit obsah Lines, Items (oba
TStrings) tj. Count, Strings[0..Count-1], atd.
S pozdravem
Robert Walaski
__________________
robert(zv)silesnet(tec)cz
a prikladam testovaci vypis (mimochodem je to D1 ale chodit i pro novejsi):
uses ...., TypInfo;
.... (vynechavam)
procedure TForm1.FormCreate(Sender: TObject);
var
i, j, Count, Size : integer;
List : PPropList;
PropValue : string;
TypeData : PTypeData;
begin
for i := 0 to ComponentCount-1 do begin
Count := GetPropList( Components[i].ClassInfo, [ tkString, tkClass],
nil);
Size := Count * SizeOf(Pointer);
GetMem( List, Size);
GetPropList( Components[i].ClassInfo, [tkstring, tkClass], List);
for j:=0 to Count-1 do begin
PropValue := GetStrProp( Components[i], List^[j] );
{ List^[j]^.Name; ... property name
List^[j]^.PropType^.Kind; ... property kind}
TypeData := GetTypeData( List^[j]^.PropType);
if (List^[j]^.PropType^.Kind=tkString) then
ListBox1.Items.Add(Format( '%s.%s -> %s',
[ Components[i].Name, List^[j]^.Name, PropValue]))
{ pro tkClass }
else if (List^[j]^.PropType^.Kind = tkClass) then begin
ListBox1.Items.Add( Format( '%s.%s -> %s', [
Components[i].Name, List^[j]^.Name,
ypeData^.ClassType.ClassName ]));
{ ****
Je-li vlastnost typu TStrings, objevi se tu vypis vsech radku.
****}
end
end;
FreeMem( List, Size );
end;
end; { TForm1.FormCreate }
-----P�vodn� zpr�va-----
Od: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Datum: 16. z��� 1998 22:49
P�edm�t: Re: Vlastnosti komponent za behu
Robert Walaski wrote:
> Ve svem programu potrebuji cist vlastnosti komponent za behu programu.
> Toto se mi celkem dari u stringu a cisel, ale kdyz narazim na vlastnost,
> ktera je typu TObject, napr. Komponenta.Lines (typu TStrings) nemuzu se k
> tomuto objektu nijak dostat, abych rovnez u nej zjistil jeho vlastnosti.
> Da se to nejak rozumne udelat?
Mas na mysli zjistovani properties pomoci GetPropList z
TypInfo.pas? Pokud ano, tak problem je v tom, ze informace o tride
jsou ulozeny v exaci az od tridy TPersistent (viz switch {$M}), a
jsou ulozeny jen takove, ktere jsou deklarovany v sekci published.
Pokud si definujes nejakeho potomka TObject, dej si pred nej
{$M+}, pak se ti ulozi i informace o nem. TStrings nema published
vlastnosti, takze se ti nemuze nic ukazat.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
RichEdit pro D1
[*] Robert Walaski <robert(zv)silesnet(tec)cz> - 17.9.1998 17:23:03
Ahoj vsem,
Nevite nekdo o nejake free komponente pro RTF?
Za kazdou zpravu mockrat dik,
S pozdravem
Robert Walaski
__________________
robert(zv)silesnet(tec)cz
problem s Alloc memory
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 17.9.1998 18:24:01
Ahoj
Pointrova aritmetika v delphi funguje pro typ PChar, takze si ten pointer
muzes pretypovat na PChar. Ale nevim proc si neudelas rovnou typ array of
GrafData.
Vaclav Sazima
Josef Dodek wrote:
> zdravim,
>
> muze mi prosim nekdo poradit s nasledujicim problemem...
>
> mam definovano
>
> type
>
> ukazNaPole = ^GrafData;
>
> GrafData = record
> teplota : integer;
> vykon : integer;
> cas : integer;
> end;
>
> promenne -> ukaz : ukazNaPole
> Gbod : GrafData
>
> a potom s vyhradim pamet pro data pomoci funkce allocMem
>
> ukaz:=allocMem(sizeOf(GrafData)*1000);
> ... cimz dostanu ukazate na zacatek bloku dat. Az potud je vse snad v
> poradku, ale potom potrebuji do/z toho bloku zapisovat/cist a to uz mi
> moc nejde (lepe receno vubec nejde)
>
> zkousel jsem to delat takto
>
> GBod.cas:=nejakaHodnota;
> GBod.teplota:=nejakaHodnota;
> GBod.vykon:=nejakaHodnota;
>
> ukaz^:=Gbod;
> to jeste snad jde, ale jak se dostanu na dalsi bunky toho alokovaneho
> bloku dat.
>
> zkousel jsem (ukaz+1)^:=Gbod; ale to mi hlasi Error : 26 Type mismatch.
>
> nevite nekdo prosim jak se to dela, v C-cku pry normalne jde -> ukaz++
> ale jak se to dela v delphach ? poradte nekdo prosim
>
> s pozdravem
> pepa dodek
TRichEdit
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.9.1998 18:24:17
Krayzel Libor wrote:
>
> > procedure TForm1.Button1Click(Sender: TObject);
> > begin
> > if Clipboard.HasFormat(CF_TEXT) then
> > SendMessage(RichEdit1.Handle, EM_PASTESPECIAL, CF_TEXT, 0) else
> > MessageBeep(0);
> > end;
>
> U EM_PASTESPECIAL mi to rve "Undeclared identifier".
Ahoj,
Ta konstanta je definovana v unitu RichEdit, musis si jej tam pridat.
--
Petr Vones, amatersky programator
Skoleni
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 17.9.1998 19:05:05
Jiri Szopa wrote:
> >> Chtel jsem se zeptat, kdybyste treba na nejaky takovy kurz sli, co
> >> byste se tam chteli dozvedet. Pripadne zda mate pro pokrocile
> >> programovani dalsi namety, ktere byste se na takovem skoleni chteli
> >> dozvedet.
>
> Deplhi & COM (DCOM) obecne.
Protoze se tento namet casto opakuje, odpovidam vsem: bude
kurz "Viceurovnove aplikace s vyuzitim COM/DCOM a MTS", ale
az pristi rok, driv to nestihnu pripravit. Leda ze by Inprise nasel
nekoho, kdo to umi lepe nez ja. Mate moznost se tam prihlasit
jako skolitele, kdo umi.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
pohyblive komponenty
[*] heinisch(zv)post(tec)cz - 17.9.1998 20:55:36
Ahoj All
Potreboval bych poradit ja za behu zachazet s editacnimi komponentami jako v
Design rezimu. presun po formulari zmena velikosti
Very Very Diky
HEiju
Kompilace balicku - vyreseno
[*] Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz> - 17.9.1998 22:10:18
> > Mam VCL komponentu, ve ktere pouzivam unit z RX Library.
> > Tato komponenta je pochopitelne umistena v nejakem
> > balicku <> RX Library. Kdyz chci tento balicek pridat
> > do Delphi, tak to hlasi :
> >
> > "Cannot load package 'Jmenobalicku'. It contains
> > 'NecoZRX', which is also contained in package 'RX Tools'.
>
> To vypada na to, ze pridavas do balicku i unitu z RX Library.
> Podivej se do zdroje balicku.
No to prave chci. Ale uz sem to vyresil. Reseni je nasledujici :
U balicku se musi ten druhy balicek (RX Tools) pridat do seznamu
"Requires". Potom ho muze muj balicek vyuzivat, ani by ho chtel
mit k sobe prikompilovany.
Diky
Vojtech Semecky
ChartFX
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 17.9.1998 23:43:08
Ahoj,
nejake demo je napr. na CD v Mistrovstvi Delphi 2
priklad 16.
Mohu zajemcum zaslat na privatni adresu.
(pripadne objednavky zasilejte na spiderland(zv)usa.net do
konf. je to zbytecne) 12k bez faze.
PM
-----P�vodn� zpr�va-----
Od: SATON Glass s.r.o. <info(zv)saton(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 17. z��� 1998 3:35
P�edm�t: ChartFX
Zdravim,
nevite nekdo o nejakem demu k ChartFX? Meslel jsem si, ze je nejaky primo v
Delphi, ale ted ho nejak nemuzu najit.
Dik Kuba
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
---------------------------------
HEEELP - Zobrazeni hintu v nemodalnim okne
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 17.9.1998 23:44:26
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj,
- samozrejme, ze dialog nevolam nemodalne.
- asi jsem to spatne prednes takze:
mam aplikaci, ktera ma 10 samostatnych uloh (kazda je jedna DLL)
tzn., ze mohou napr. vsechny ulohy bezet soucastne a uzivatel se mezi
okny jednotlivych uloh prepina. V kazde uloze muze byt otevreno
treba 5 formularu a mezi nimi se opet muze prepinat takze je
nelze volat jedno za druhym modalne. Vse funguje bez problemu az
na ten blbej hint.
- takze jeste jednou: kdyz z DLL zavolam dialog tak tam hint je OK, ale
kdyz z DLL vyvolam obycejne NEMODALNI okno tak tam se hint nezobrazuje,
jinak vse OK.
-----P�vodn� zpr�va-----
Od: Petr Brant <pbrant(zv)softhome.net>
Komu: 'Konference Delphi' <delphi(zv)pinknet(tec)cz>
Datum: 17. z��� 1998 8:41
P�edm�t: FW: HEEELP - Zobrazeni hintu v nemodalnim okne
Pokud mas dialog jako DLL a volas jej NEMODALNE, je to ponekud divne. V
helpu i v literature se vseobecne doporucuje v DLL psat VZDY napr.
Form1.ShowModal, jinak pry mohou nastat problemy. Sam jsem to nikdy
nemodalne nezkousel, nemuze to byt ten duvod ?
A pokud se ti to nepovede vyresit, zbyva jeste nouzova cesta: osetrit
udalost OnMouseMove resp. messages tusim WMMOUSELEAVE nebo tak nejak
podobne. Bylo to v konferenci tusim asi predevcirem.
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************
-----Puvodni zprava-----
Od: Pavel Malinsky
Odeslano: 16. zaoi 1998 22:00
Komu: DELPHI Distribution List
Poedmit: HEEELP - Zobrazeni hintu v nemodalnim okne
Zdravim vsechny,
vystenil se mi dost podstatny problem a uz pomalu nevim
co s tim. Napadaji mne jen programatorsky necista reseni.
Problem: v aplikaci pouzivam dll knihovny ze kterych volam
ruzne formulare (Create...XXX...Free) na kterych mam nastaveno
ShowHint:= True vse chodi v poradku, ALE na oknech volanych
jako MODALNI se hint zobrazuje v poradku avsak na oknech
volanych jako NEMODALNI hint nenaskakuje vubec.
Nesetkal se jiz nekdo s timto problemem ? Uz opravdu
nevim jak to korektne vyresit.
Budu vdecny za kazdou radu a predem diky.
Pavel Malinsky, HK
spiderland(zv)usa.net
Komunikacia medzi dvoma aplikaciami...
[*] Michal Moscovic <moscovic(zv)fred.utc.sk> - 18.9.1998 00:22:55
Zdar seci...
Mam maly dotaz... Mam aplikaciu z ktorej by sa mala pustat ina moja
aplikacia (napr. cez CreateProcess(...)).
Potrebujem sak aby tieto dve aplikacie spolu komunikovali
(odovzdavali
si informacie) aspon na zaciatku a na konci.
Na zaciatku to nie je problem z rodicovskej aplikacie sa daju cez
command line odovzdat informacie potomkovi (spustana aplikacia). No problem
je na konci, ked potrebujem ziskat informacie od potomka...
Dufam, ze vo windows (a pod delphi 3) nieco take nebude velky problem...
Za vsetky napady Vam seckym vopred dakujem
Vas verny Salmon Salmonovic
pohyblive komponenty
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 18.9.1998 05:59:27
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
A co ti brani pouzit vlastnosti Top, Left, Height, Width atd. ?
-----P�vodn� zpr�va-----
Od: heinisch(zv)post(tec)cz <heinisch(zv)post(tec)cz>
Komu: Konference Delphi <delphi(zv)pinknet(tec)cz>
Datum: 17. z��� 1998 20:58
P�edm�t: pohyblive komponenty
Ahoj All
Potreboval bych poradit ja za behu zachazet s editacnimi komponentami jako v
Design rezimu. presun po formulari zmena velikosti
Very Very Diky
HEiju
USES OBJECTS
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 18.9.1998 06:25:37
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Vychazi to ze zpusobu objektoveho programovani. Nektere programovaci jazyky (Delphi) definuji objekty pres tridy, ne primo jako objekty. Trida je vlastne vzor pro vytvoreni objektu.
-----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: 17. z��� 1998 14:58
P�edm�t: Re: USES OBJECTS
pouzij misto object class, i kdyz si mislim, ze Delphi podporuji
definici objektu i pres object.
Vaclav Sazima
Ing. J�n Kuch�r wrote:
> CauteMam nasledovny problem. Dostal som ya ulohu prerobit stary
> DOSovsky program a zachovat pri tom jeho strukturu. Narazil som na
> definiciu novych premennych pomocou prikazu OBJECT. Tento prikaz je
> nadefinovany v Pascale pod Usesom OBJECTS, ale D3 tento Uses nepozna.
> Poradte mi niekto ako na
> to.
> Dik
>
> Ing. J�n Kuch�r
> Katedra inv�ci� a rein�inieringu
> SjF TU Košice
> Letn� 9
> 040 01 Košice
> E-mail : kuchar(zv)tuke.sk
tabulky excell
[*] Jan Nov�k���r����n�?��? - 18.9.1998 06:42:48
Taky by mne to zajimalo. jestli budes neco posilat posli to i me .Diky
-----P�vodn� zpr�va-----
Od: Lubo Fule <fule(zv)sct.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 17. z��� 1998 13:34
P�edm�t: RE: tabulky excell
Ano, cez OLE... ak chces, mozno najdem aj nejaky priklad.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf
Of Richard Willmann
Sent: Thursday, September 17, 1998 10:48 AM
To: delphi-l(zv)fwd(tec)cz
Subject: tabulky excell
hELLO,
riesil z vas niekto pristup k tabulkam excelu? Cez OLE, dde alebo
,,,
dakujem
richard willmann
pohyblive komponenty
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 18.9.1998 06:49:55
-----Puvodni zprava-----
Od: heinisch(zv)post(tec)cz
Odeslano: 17. zaoi 1998 20:56
Komu: Konference Delphi
Poedmit: pohyblive komponenty
Ahoj All
Potreboval bych poradit ja za behu zachazet s editacnimi komponentami jako v
Design rezimu. presun po formulari zmena velikosti
Very Very Diky
HEiju
[Petr Brant]
Napriklad pohyb EditBoxem (pro zmenu velikosti podobny trik neznam, ale snad to pujde nejak osidit):
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
sc_dragmove = $f012;
begin
releaseCapture;
edit1.perform(wm_syscommand,sc_dragmove, 0);
end;
(To nemam ze sebe, myslim, ze jsem to opsal od "amatera" p. Vonese)
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************problem s Alloc memory
[*] Martin O�en� <mocenas(zv)isternet.sk> - 18.9.1998 07:17:01
Josef Dodek wrote:
>
> zdravim,
>
> muze mi prosim nekdo poradit s nasledujicim problemem...
>
> mam definovano
>
> type
>
> ukazNaPole = ^GrafData;
>
> GrafData = record
> teplota : integer;
> vykon : integer;
> cas : integer;
dalsi : ukazNapole //toto je dolezite na to, aby si
vedel, kde je dalsi, pripadne si tam mozes dat aj
predchadzajuci > end;
>
> promenne -> ukaz : ukazNaPole
> Gbod : GrafData
>
> a potom s vyhradim pamet pro data pomoci funkce allocMem
>
> ukaz:=allocMem(sizeOf(GrafData)*1000);
no a toto sa da riesit ukaz := New(GrafOfData); pricom ak
to robis tak ako ty pripravis sa dynamicku velkost.
Toto mozes robit v cykle, pricom si treba vzdy odpamatat
pointer na predchadzajuci kus, aby si tam mohol vlozit
pointer na dalsi.
> ... cimz dostanu ukazate na zacatek bloku dat. Az potud je vse snad v
> poradku, ale potom potrebuji do/z toho bloku zapisovat/cist a to uz mi
> moc nejde (lepe receno vubec nejde)
>
> zkousel jsem to delat takto
>
> GBod.cas:=nejakaHodnota;
> GBod.teplota:=nejakaHodnota;
> GBod.vykon:=nejakaHodnota;
>
> ukaz^:=Gbod;
> to jeste snad jde, ale jak se dostanu na dalsi bunky toho alokovaneho
> bloku dat.
>
> zkousel jsem (ukaz+1)^:=Gbod; ale to mi hlasi Error : 26 Type mismatch.
>
> nevite nekdo prosim jak se to dela, v C-cku pry normalne jde -> ukaz++
> ale jak se to dela v delphach ? poradte nekdo prosim
>
> s pozdravem
> pepa dodek
Komunikacia medzi dvoma aplikaciami...
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 18.9.1998 07:33:18
-----Puvodni zprava-----
Od: Michal Moscovic
Odeslano: 18. zaoi 1998 0:23
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Komunikacia medzi dvoma aplikaciami...
Zdar seci...
Mam maly dotaz... Mam aplikaciu z ktorej by sa mala pustat ina moja
aplikacia (napr. cez CreateProcess(...)).
Potrebujem sak aby tieto dve aplikacie spolu komunikovali
(odovzdavali
si informacie) aspon na zaciatku a na konci.
Na zaciatku to nie je problem z rodicovskej aplikacie sa daju cez
command line odovzdat informacie potomkovi (spustana aplikacia). No problem
je na konci, ked potrebujem ziskat informacie od potomka...
Dufam, ze vo windows (a pod delphi 3) nieco take nebude velky problem...
Za vsetky napady Vam seckym vopred dakujem
Vas verny Salmon Salmonovic
[Petr Brant]
Nemel by to byt problem, pouzij handle okna a muzes mezi nimi posilat
messages. Delal jsem takhle komunikaci mezi DLL v Cecku a formem v Delphi a
chodilo to bezvadne.
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************problem s Alloc memory
[*] Mirek �ipel <miroslav.cipel(zv)oku-tu(tec)cz> - 18.9.1998 07:44:07
V delphi inc(ukaz) taky inc(ukaz, 10)
M.
-----P�vodn� zpr�va-----
Od: Josef Dodek <dodek(zv)cbmi.cvut(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 17. z��� 1998 17:16
P�edm�t: problem s Alloc memory
>zdravim,
>
>muze mi prosim nekdo poradit s nasledujicim problemem...
>
>mam definovano
>
>type
>
> ukazNaPole = ^GrafData;
>
> GrafData = record
> teplota : integer;
> vykon : integer;
> cas : integer;
> end;
>
>promenne -> ukaz : ukazNaPole
> Gbod : GrafData
>
>a potom s vyhradim pamet pro data pomoci funkce allocMem
>
>ukaz:=allocMem(sizeOf(GrafData)*1000);
>... cimz dostanu ukazate na zacatek bloku dat. Az potud je vse snad v
>poradku, ale potom potrebuji do/z toho bloku zapisovat/cist a to uz mi
>moc nejde (lepe receno vubec nejde)
>
>zkousel jsem to delat takto
>
> GBod.cas:=nejakaHodnota;
> GBod.teplota:=nejakaHodnota;
> GBod.vykon:=nejakaHodnota;
>
> ukaz^:=Gbod;
>to jeste snad jde, ale jak se dostanu na dalsi bunky toho alokovaneho
>bloku dat.
>
>zkousel jsem (ukaz+1)^:=Gbod; ale to mi hlasi Error : 26 Type mismatch.
>
>nevite nekdo prosim jak se to dela, v C-cku pry normalne jde -> ukaz++
>ale jak se to dela v delphach ? poradte nekdo prosim
>
>s pozdravem
> pepa dodek
>
>
>
>
>
problem s Alloc memory
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 18.9.1998 07:48:36
-----Puvodni zprava-----
Od: Josef Dodek
Odeslano: 17. zaoi 1998 17:09
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: problem s Alloc memory
zdravim,
muze mi prosim nekdo poradit s nasledujicim problemem...
mam definovano
type
ukazNaPole = ^GrafData;
GrafData = record
teplota : integer;
vykon : integer;
cas : integer;
end;
promenne -> ukaz : ukazNaPole
Gbod : GrafData
a potom s vyhradim pamet pro data pomoci funkce allocMem
ukaz:=allocMem(sizeOf(GrafData)*1000);
... cimz dostanu ukazate na zacatek bloku dat. Az potud je vse snad v
poradku, ale potom potrebuji do/z toho bloku zapisovat/cist a to uz mi
moc nejde (lepe receno vubec nejde)
zkousel jsem to delat takto
GBod.cas:=nejakaHodnota;
GBod.teplota:=nejakaHodnota;
GBod.vykon:=nejakaHodnota;
ukaz^:=Gbod;
to jeste snad jde, ale jak se dostanu na dalsi bunky toho alokovaneho
bloku dat.
zkousel jsem (ukaz+1)^:=Gbod; ale to mi hlasi Error : 26 Type mismatch.
nevite nekdo prosim jak se to dela, v C-cku pry normalne jde -> ukaz++
ale jak se to dela v delphach ? poradte nekdo prosim
s pozdravem
pepa dodek
[Petr Brant]
Mozna by bylo lepsi to delat tak, ze si vytvoris TList (do neho muzes cpat
libovolny pocet pointeru na cokoli) a pak postupovat takto (pisu to rovnou,
takze sorry for errors):
var MyList:TList;
...
MyList:=TList.Create;
...
new(ukaz); //tim se vyhradi pamet
ukaz^.cas:=nejakaHodnota;
ukaz^. teplota:=nejakaHodnota;
ukaz^.vykon:=nejakaHodnota;
MyList.Add(ukaz);
...atd.
Cteni je pak jednoduche:
JinyCas:=ukazNaPole(MyList.Items[pozice] )^.cas;
A az skoncis, nezapomen projit cely MyList, uvolnit (Dispose) pamet a
zlikvidovat i ten MyList.
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************Vlastnosti komponent za behu
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 18.9.1998 08:00:57
> > Delphi 3 (pro jine verze nevim) Runtime Object Inspektor,
> kterou polozis na
> > formular a pak KDYKOLIV behem behu programu pres klavesovou
> zkratku vyvolas,
> > dostanes kompletni strom komponent a vsechny jejich
> vlastnosti, ktere muzes
> > cist i MENIT. Budes-li chtit, mailnu ji na Tvou soukromou
> adresu (123 kB).
Ja bych taky prosil.
.........................................................
. Libor Krayzel .
. Czech Television, Studio Ostrava .
. Dvorakova 18, 702 00 Ostrava .
. Telephone: 069-6201375 .
. URL: http://members.tripod.com/~sovtop .
. E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
. Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
. E-mail2: mailto:sovtop(zv)email(tec)cz .
.........................................................problem s Alloc memory
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 18.9.1998 08:03:17
Hi,
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Josef Dodek [SMTP:dodek(zv)cbmi.cvut(tec)cz]
> Odesl�no: 17. z��� 1998 17:09
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: problem s Alloc memory
>
> zdravim,
>
> muze mi prosim nekdo poradit s nasledujicim problemem...
>
> mam definovano
>
> type
>
> ukazNaPole = ^GrafData;
>
> GrafData = record
> teplota : integer;
> vykon : integer;
> cas : integer;
> end;
>
> promenne -> ukaz : ukazNaPole
> Gbod : GrafData
>
> a potom s vyhradim pamet pro data pomoci funkce allocMem
>
> ukaz:=allocMem(sizeOf(GrafData)*1000);
> ... cimz dostanu ukazate na zacatek bloku dat. Az potud je vse snad v
> poradku, ale potom potrebuji do/z toho bloku zapisovat/cist a to uz mi
> moc nejde (lepe receno vubec nejde)
>
> zkousel jsem to delat takto
>
> GBod.cas:=nejakaHodnota;
> GBod.teplota:=nejakaHodnota;
> GBod.vykon:=nejakaHodnota;
>
> ukaz^:=Gbod;
> to jeste snad jde, ale jak se dostanu na dalsi bunky toho alokovaneho
> bloku dat.
>
> zkousel jsem (ukaz+1)^:=Gbod; ale to mi hlasi Error : 26 Type
> mismatch.
>
> nevite nekdo prosim jak se to dela, v C-cku pry normalne jde -> ukaz++
>
[Martin Fron�k] V C to jde opravdu takhle, protoze protoze
prekladaci je znama velikost objektu, na ktery se odkazuje, pascal
neznam, nicmene zkus zvysit ukazatel o sizeof(Gbod)...
> ale jak se to dela v delphach ? poradte nekdo prosim
>
> s pozdravem
> pepa dodek
>
>
> TextOut ?
[*] M-PRO s.r.o. <software(zv)mpro(tec)cz> - 18.9.1998 08:26:07
Ahojky vsici......
Mel bych melinkehj problemek. Mam bitmapu, ale ne tbitmap, ale bitmap pixels
a tbitmapheader. pri kazdym WM_PAINT pouzivam SetDiBitsToDevice.... A
potreboval bych vypsat standadni text. Ale primo do tech pixelu. Pokavad
pokazdy vytvorim CreateBitmapIndirect, je to silene pomali.... Teoreticky by
to melo jit nejak prez OpenGL... Vi si nekdo rady ?
Dik.....
L.Lostak
Ohraniceni Editu
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 18.9.1998 08:26:30
Ahoj,
nevite prosim nekdo, jak u objektu, napr Edit zrusit barvu okraju ( ramecku
) ?
Pokud dam Ctl3D na False, zrusim plasticnost okna, ale ja bych chtel, aby
ono okno Editu nemelo kolem sebe ten cerny ram.
Vasek
E-mail: Vaclav.Lukes(zv)pvt(tec)cz
Tel.: 0603-511247
Komunikacia medzi dvoma aplikaciami...
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 18.9.1998 08:35:43
Hi,
skus se rozepsat o tom, jake mas predstavy a co by si mely ty aplikace
sdelovat. Moznosti je spoustu.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Michal Moscovic [SMTP:moscovic(zv)fred.utc.sk]
> Odesl�no: 18. z��� 1998 0:23
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Komunikacia medzi dvoma aplikaciami...
>
> Zdar seci...
>
> Mam maly dotaz... Mam aplikaciu z ktorej by sa mala pustat ina
> moja
> aplikacia (napr. cez CreateProcess(...)).
>
> Potrebujem sak aby tieto dve aplikacie spolu komunikovali
> (odovzdavali
> si informacie) aspon na zaciatku a na konci.
>
> Na zaciatku to nie je problem z rodicovskej aplikacie sa daju
> cez
> command line odovzdat informacie potomkovi (spustana aplikacia). No
> problem
> je na konci, ked potrebujem ziskat informacie od potomka...
>
> Dufam, ze vo windows (a pod delphi 3) nieco take nebude velky
> problem...
>
> Za vsetky napady Vam seckym vopred dakujem
>
> Vas verny Salmon Salmonovic
SelectDirectory
[*] Miki Vom��ka����h���h��� - 18.9.1998 08:46:40
Ahoj,
pouzivam fci SelectDirectory, ktera zobrazi okno pro vyber adresare, vcetne
ikon tento pocitac atd... Funguje spravne, jenom se mi to okno zobrazuje v
pravem dolnim rohu. Jak ho vycentrovat?
Diky Miki
vmiki(zv)post(tec)cz
problem s Alloc memory
[*] Jiri Szopa <jiri.szopa(zv)telecom(tec)cz> - 18.9.1998 08:55:36
>zdravim,
>
>muze mi prosim nekdo poradit s nasledujicim problemem...
>
>mam definovano
>
>type
>
> ukazNaPole = ^GrafData;
>
> GrafData = record
> teplota : integer;
> vykon : integer;
> cas : integer;
> end;
>
>promenne -> ukaz : ukazNaPole
> Gbod : GrafData
>
>a potom s vyhradim pamet pro data pomoci funkce allocMem
>
>ukaz:=allocMem(sizeOf(GrafData)*1000);
>... cimz dostanu ukazate na zacatek bloku dat. Az potud je vse snad v
>poradku, ale potom potrebuji do/z toho bloku zapisovat/cist a to uz mi
>moc nejde (lepe receno vubec nejde)
>
>zkousel jsem to delat takto
>
> GBod.cas:=nejakaHodnota;
> GBod.teplota:=nejakaHodnota;
> GBod.vykon:=nejakaHodnota;
>
> ukaz^:=Gbod;
>to jeste snad jde, ale jak se dostanu na dalsi bunky toho alokovaneho
>bloku dat.
>
>zkousel jsem (ukaz+1)^:=Gbod; ale to mi hlasi Error : 26 Type mismatch.
>
>nevite nekdo prosim jak se to dela, v C-cku pry normalne jde -> ukaz++
>ale jak se to dela v delphach ? poradte nekdo prosim
>
co takhle:
type
GrafData = record
teplota : integer;
vykon : integer;
cas : integer;
end;
PTR_GrafData = ^GrafData;
nejaka funkce
var
ukaz : PTR_GrafData;
begin
New(ukaz);
ukaz^.teplota := integerhodnota;
ukaz^.vykon := integerhodnota;
ukaz^.cas := integerhodnota;
....
Dispose(ukaz);
end;
-------------------------------------------
Ing. Jiri Szopa
tel.: +420 659 713393
fax.: +420 659 713392
email: jiri.szopa(zv)telecom(tec)cz
problem s Alloc memory
[*] Lubo Fule <fule(zv)sct.sk> - 18.9.1998 09:25:45
Asi najjednoduchsie je urobit to polom:
type
TPole = array[0..1000000] of GrafData; //velkost pola nie je dolezita,
lebo v skutocnosti sa potrebna velkost dynamicky naalokuje
ukazNaPole = ^TPole;
var
ukaz: ukazNaPole;
.
.
.
potom
ukaz:=allocMem(sizeOf(GrafData)*1000);
ukaz^[0].cas:=nejakaHodnota;
atd
S pozdravom
Lubo Fule
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Mirek �ipel
> Sent: Friday, September 18, 1998 7:44 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: problem s Alloc memory
>
>
> V delphi inc(ukaz) taky inc(ukaz, 10)
>
> M.
>
> -----Puvodn� zpr�va-----
> Od: Josef Dodek <dodek(zv)cbmi.cvut(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Datum: 17. z�r� 1998 17:16
> Predmet: problem s Alloc memory
>
>
> >zdravim,
> >
> >muze mi prosim nekdo poradit s nasledujicim problemem...
> >
> >mam definovano
> >
> >type
> >
> > ukazNaPole = ^GrafData;
> >
> > GrafData = record
> > teplota : integer;
> > vykon : integer;
> > cas : integer;
> > end;
> >
> >promenne -> ukaz : ukazNaPole
> > Gbod : GrafData
> >
> >a potom s vyhradim pamet pro data pomoci funkce allocMem
> >
> >ukaz:=allocMem(sizeOf(GrafData)*1000);
> >... cimz dostanu ukazate na zacatek bloku dat. Az potud je vse snad v
> >poradku, ale potom potrebuji do/z toho bloku zapisovat/cist a to uz mi
> >moc nejde (lepe receno vubec nejde)
> >
> >zkousel jsem to delat takto
> >
> > GBod.cas:=nejakaHodnota;
> > GBod.teplota:=nejakaHodnota;
> > GBod.vykon:=nejakaHodnota;
> >
> > ukaz^:=Gbod;
> >to jeste snad jde, ale jak se dostanu na dalsi bunky toho alokovaneho
> >bloku dat.
> >
> >zkousel jsem (ukaz+1)^:=Gbod; ale to mi hlasi Error : 26 Type mismatch.
> >
> >nevite nekdo prosim jak se to dela, v C-cku pry normalne jde -> ukaz++
> >ale jak se to dela v delphach ? poradte nekdo prosim
> >
> >s pozdravem
> > pepa dodek
> >
> >
> >
> >
> >
> >
>
>tabulky excell - OLE priklad
[*] Lubo Fule <fule(zv)sct.sk> - 18.9.1998 09:42:32
[P��loha v souboru: OleExcel.pas]
Posielam jednoduchy priklad na prepojenie Delphi - Excel cez OLE
S pozdravom
Lubo Fule
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Jan Nov�k
> Sent: Friday, September 18, 1998 6:43 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: tabulky excell
>
>
> Taky by mne to zajimalo. jestli budes neco posilat posli to i me .Diky
> -----P�vodn� zpr�va-----
> Od: Lubo Fule <fule(zv)sct.sk>
> Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Datum: 17. z��� 1998 13:34
> P�edm�t: RE: tabulky excell
>
>
> Ano, cez OLE... ak chces, mozno najdem aj nejaky priklad.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz
> [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf
> Of Richard Willmann
> Sent: Thursday, September 17, 1998 10:48 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: tabulky excell
>
>
> hELLO,
>
> riesil z vas niekto pristup k tabulkam excelu? Cez OLE, dde alebo
> ,,,
>
> dakujem
>
>
> richard willmann
>Interbase 4.0 vs 4.2
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 18.9.1998 09:42:40
> Hi,
>
> co si predstavujem pod pojmem superserver? Tenhle rozdil me taky
> zajima......
No Superserver je architektura s jedinym procesem a bohuzel spatne napsanym
multihtreadingem (na single CPU to nevadi, ale vice ja jeden CPU to na pocitaci
se 4 CPU nepouzije a flakaji se) a s tou vlastnosti, ze kdyz to zuchne, tak
vsechny spojeni :-((((((((((((((((((((((((((((((((((((((((
Classic build spousti pro kazdeho uzivatele novy proces, coz je narocnejsi na
system, ale pak je zase mozno vyuzit cely vykon serveru a pada to tedy jen
jednotlive. Zkousel jsem porovnavat IB 4.0 s vyssimi na NT a SCO unix verzi 5.1
Beta (ta je taky classic, neb SCO neumi [nastesti :-)] thready) a chovani je z
hlediska vykonu jak z ucebnice, i kdyz s tim unixem jsou zase problemy se
semafory atd...
Dalo se tomu porozumet?+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.ChartFX
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 18.9.1998 09:49:49
Jo to mam, kouknu se tam. Nasel jsem nakonec priklad i na instalacnim CD k
Delphi (v prikladech k D1).
Diky Kuba
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
---------------------------------
-----P�vodn� zpr�va-----
Od: Pavel Malinsk� <spiderland(zv)usa.net>
Komu: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
Datum: 18. z��� 1998 1:10
P�edm�t: Re: ChartFX
Ahoj,
nejake demo je napr. na CD v Mistrovstvi Delphi 2
priklad 16.
Mohu zajemcum zaslat na privatni adresu.
(pripadne objednavky zasilejte na spiderland(zv)usa.net do
konf. je to zbytecne) 12k bez faze.
PM
problem s Alloc memory
[*] V�t�zslav Gazda������u��n�?��? - 18.9.1998 09:55:20
Tato funkce ti vrati ukazatel na polozku v poli podle zadaneho indexu.
function GetItem(nIndex:Integer):ukazNaPole;
begin
Result := ukazNaPole(Integer(ukaz) + (nIndex * SizeOf(GrafData)));
end;
Vita
Runtime error
[*] Ing. Miroslav Ond��ek - 18.9.1998 10:07:32
Vyskytuje se nekde seznam runtime errors podle cisel ? Zajimalo by me
predevsim cislo 202, ktere vyskakuje v metode OnResize formulare pri
nastavovani velikosti.
Diky
Ing. Miroslav Ond��ek
Bonnel Technologie, s.r.o.
E-mail:
bonnel-ondrisek(zv)telecom(tec)cz - v�voj software
internet: http://www.bonnel-tech.com
PGP podporov�no - ve�ejn� kl�� na na�� homepage
Ohraniceni Editu
[*] V�t�zslav Gazda������u��n�?��? - 18.9.1998 10:09:28
Nastav vlastnost BorderStyle na bsNone.
Vita
-----P�vodn� zpr�va-----
Od: Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 18. z��� 1998 8:30
P�edm�t: Ohraniceni Editu
>
>Ahoj,
>
>nevite prosim nekdo, jak u objektu, napr Edit zrusit barvu okraju ( ramecku
>) ?
>Pokud dam Ctl3D na False, zrusim plasticnost okna, ale ja bych chtel, aby
>ono okno Editu nemelo kolem sebe ten cerny ram.
>
>Vasek
>
>
>E-mail: Vaclav.Lukes(zv)pvt(tec)cz
>Tel.: 0603-511247
>
>Zakazani ScreenSaveru
[*] Karel.Majer(zv)crc(tec)cz - 18.9.1998 10:31:39
�lo by to takhle: p�i startu aplikace p�ejmnovat v�echny *.scr soubory v
adres��i windows a p�i skon�en� je zase vr�tit. Jinak to de ud�lat zm�nou v
registry.
Ohraniceni Editu
[*] Karel Chmel <kchmel(zv)csob(tec)cz> - 18.9.1998 10:31:54
Nastav vlastnost BorderStyle na bsNone
Karel
----------
> Odes�latel: Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz>
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Ohraniceni Editu
> Datum: 18. z��� 1998 8:26
>
>
> Ahoj,
>
> nevite prosim nekdo, jak u objektu, napr Edit zrusit barvu okraju ( ramecku
> ) ?
> Pokud dam Ctl3D na False, zrusim plasticnost okna, ale ja bych chtel, aby
> ono okno Editu nemelo kolem sebe ten cerny ram.
>
> Vasek
>
>
> E-mail: Vaclav.Lukes(zv)pvt(tec)cz
> Tel.: 0603-511247
Pouziti GetCharacterPlacement
[*] Jiri Fajtl <chip(zv)oku-pi(tec)cz> - 18.9.1998 10:44:47
Ahoj vsichni
Potreboval jsem zjistit sirku retezce v pixlech
pro coz jsem pouzil funkci GetCharacterPlacement z win32 api,
ale bohuzel neuspesne vzdy vraci false a predanou
structuru TGCPRESULTS vubec nenaplni.
Tak takhle to zkousim.
var
s : string;
gpc : TGCPRESULTS;
MaxExtent : Bool;
isok : integer;
begin
MaxExtent:=LongBool(23);
s:='testovaci text';
StrPCopy(pch, s);
gpc.lStructSize:=sizeof(gpc);
gpc.lpOrder:=nil;
gpc.lpDx:=nil;
gpc.lpGlyphs:=nil;
gpc.nGlyphs:=0;
gpc.nMaxFit:=0;
isok :=GetCharacterPlacement(canvas.Handle, pch,
Bool(StrLen(pch)), MaxExtent, gpc, GCP_MAXEXTENT);
end;
Nepracoval jsete nekdo s touto funkci nebo nevite o nejakem
demu kde by se vyskytovala, pripadne o detailnejsim popisu
nez jaky je ve win32api helpu kdelphi ?
Diky moc za kazdou radu
Jiri Fajtl
mailto: chip(zv)oku-pi(tec)cz
phone: 0602 835601
Pouziti GetCharacterPlacement
[*] V�t�zslav Gazda������u��n�?��? - 18.9.1998 11:28:01
Nejak mi tam nesedi to pretypovani delky retezce na Bool. Ale nebudu to
zkoumat podrobneji, protoze ti radsi doporucim funkci GetTextExtentPoint.
Vita
-----P�vodn� zpr�va-----
Od: Jiri Fajtl <chip(zv)oku-pi(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. z��� 1998 10:49
P�edm�t: Pouziti GetCharacterPlacement
>Ahoj vsichni
>
>
>Potreboval jsem zjistit sirku retezce v pixlech
>pro coz jsem pouzil funkci GetCharacterPlacement z win32 api,
>ale bohuzel neuspesne vzdy vraci false a predanou
>structuru TGCPRESULTS vubec nenaplni.
>
>Tak takhle to zkousim.
>
>var
> s : string;
> gpc : TGCPRESULTS;
> MaxExtent : Bool;
> isok : integer;
>begin
> MaxExtent:=LongBool(23);
> s:='testovaci text';
> StrPCopy(pch, s);
>
> gpc.lStructSize:=sizeof(gpc);
> gpc.lpOrder:=nil;
> gpc.lpDx:=nil;
> gpc.lpGlyphs:=nil;
> gpc.nGlyphs:=0;
> gpc.nMaxFit:=0;
>
> isok :=GetCharacterPlacement(canvas.Handle, pch,
> Bool(StrLen(pch)), MaxExtent, gpc, GCP_MAXEXTENT);
>end;
>
>
>Nepracoval jsete nekdo s touto funkci nebo nevite o nejakem
>demu kde by se vyskytovala, pripadne o detailnejsim popisu
>nez jaky je ve win32api helpu kdelphi ?
>
>Diky moc za kazdou radu
>
>Jiri Fajtl
>mailto: chip(zv)oku-pi(tec)cz
>phone: 0602 835601
>Zakazani ScreenSaveru
[*] Jiri Klimos <klimosj(zv)avx(tec)cz> - 18.9.1998 11:32:17
Nazdarek ..
Podivej se na http://www.inprise.com/devsupport/delphi/qanda/828.html tam je to popsano.
Jirka K.
-----Puvodni zprava-----
Od: Dusan Jirasko [SMTP:Dusan_Jirasko(zv)sameleon.fido(tec)cz]
Odeslano: 16. zaoi 1998 19:08
Komu: delphi(zv)pinknet(tec)cz
Poedmit: Zakazani ScreenSaveru
Ahoj All ..
Da se nejak udelat v Delphi, aby kdyz se spusti nejaka aplikace, aby se
nespustil screen Saver ? Je to takhle udelany u paliciho softu( Easy CD pro),
aby nepodtek buffer, takze nejak by to jit melo.
ByE, [ E-Mail : Dusan(zv)Sameleon.Fido(tec)cz ]
Sameleon [HGC-Team] [ http://www.psynet.net/Sameleon ]
... Dejte mi pivo a ja pohnu zemekouli.... A kdyz ne, tak diky za pivo. :-)
Pouziti GetCharacterPlacement
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 18.9.1998 12:00:30
Ahojda,
mozna jsem mimo misu, ale neslo by pouzit fci
TCanvas.TextWidth('abcde...') .
--
Stepan "Chaosz" Cerny
tvoric of software
chaosz(zv)geocities.com
Jiri Fajtl wrote:
> Ahoj vsichni
>
> Potreboval jsem zjistit sirku retezce v pixlech
> pro coz jsem pouzil funkci GetCharacterPlacement z win32 api,
> ale bohuzel neuspesne vzdy vraci false a predanou
> structuru TGCPRESULTS vubec nenaplni.
>
> Tak takhle to zkousim.
>
> var
> s : string;
> gpc : TGCPRESULTS;
> MaxExtent : Bool;
> isok : integer;
> begin
> MaxExtent:=LongBool(23);
> s:='testovaci text';
> StrPCopy(pch, s);
>
> gpc.lStructSize:=sizeof(gpc);
> gpc.lpOrder:=nil;
> gpc.lpDx:=nil;
> gpc.lpGlyphs:=nil;
> gpc.nGlyphs:=0;
> gpc.nMaxFit:=0;
>
> isok :=GetCharacterPlacement(canvas.Handle, pch,
> Bool(StrLen(pch)), MaxExtent, gpc, GCP_MAXEXTENT);
> end;
>
> Nepracoval jsete nekdo s touto funkci nebo nevite o nejakem
> demu kde by se vyskytovala, pripadne o detailnejsim popisu
> nez jaky je ve win32api helpu kdelphi ?
>
> Diky moc za kazdou radu
>
> Jiri Fajtl
> mailto: chip(zv)oku-pi(tec)cz
> phone: 0602 835601
Pouziti GetCharacterPlacement
[*] Kelle Ondrej <Kelleon(zv)nnsk.sk> - 18.9.1998 12:07:23
Ahoj,
skus TCanvas.TextWidth alebo GetTextExtentPoint32.
Ondrej Kelle
kelleon(zv)nnsk.sk
> -----Original Message-----
> From: Jiri Fajtl [SMTP:chip(zv)oku-pi(tec)cz]
> Sent: Friday, September 18, 1998 10:45 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Pouziti GetCharacterPlacement
>
> Ahoj vsichni
>
>
> Potreboval jsem zjistit sirku retezce v pixlech
> pro coz jsem pouzil funkci GetCharacterPlacement z win32 api,
> ale bohuzel neuspesne vzdy vraci false a predanou
> structuru TGCPRESULTS vubec nenaplni.
>
> Tak takhle to zkousim.
>
> var
> s : string;
> gpc : TGCPRESULTS;
> MaxExtent : Bool;
> isok : integer;
> begin
> MaxExtent:=LongBool(23);
> s:='testovaci text';
> StrPCopy(pch, s);
>
> gpc.lStructSize:=sizeof(gpc);
> gpc.lpOrder:=nil;
> gpc.lpDx:=nil;
> gpc.lpGlyphs:=nil;
> gpc.nGlyphs:=0;
> gpc.nMaxFit:=0;
>
> isok :=GetCharacterPlacement(canvas.Handle, pch,
> Bool(StrLen(pch)), MaxExtent, gpc, GCP_MAXEXTENT);
> end;
>
>
> Nepracoval jsete nekdo s touto funkci nebo nevite o nejakem
> demu kde by se vyskytovala, pripadne o detailnejsim popisu
> nez jaky je ve win32api helpu kdelphi ?
>
> Diky moc za kazdou radu
>
> Jiri Fajtl
> mailto: chip(zv)oku-pi(tec)cz
> phone: 0602 835601
Vlastnosti komponent za behu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 18.9.1998 12:16:27
Robert Walaski wrote:
> Asi jsem se nevyjadril presne, tedy jeste jednou popisuji cely postup:
>
> Myslel jsem toto: ve formulari si zjistim vsechny komponenty, u kazde z
> nich si overim jejich vlastnosti pomoci GetPropList, vyberu vlastnosti
> ktere maji List^[j]^.PropType^.Kind=tkClass abych dostal mezi jinymi i
> vlastnost Lines typu TStrings (napr pro TMemo ale taky pro TSuperMemo a
> dalsi, u jinych komponent to muze byt treba i vlastnost Items). A ted
> prichazi muj problem. U takto zjisteneho prvku bych potreboval zjistit
> obsah Lines, Items (oba TStrings) tj. Count, Strings[0..Count-1], atd.
>
Tak to nevim, to je dost komplikovane. Clovek by si rekl, ze to
bude stacit prekryt vhodnym typem, ale ono ne.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Runtime error
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 18.9.1998 12:25:19
Ahoj,
202 je Stack overflow error a nastava napr. je-li alokovano prilis
mnoho �i velkych parametru na zasobniku pri vyvolavani z procedury/vnorenych
(kaskadovanych volani) procedur nebo pri rekursivnim volani (kde je potreba
zmensit lokalni parametry na uplne minimum) nebo pri poruseni zasobniku jako
takoveho (sledovani lze ridit direktivou prekladace).
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Ing. Miroslav Ond��ek [SMTP:bonnel(zv)telecom(tec)cz]
> Odesl�no: 18. z��� 1998 10:08
> Komu: Delphi konference
> P�edm�t: Runtime error
>
> Vyskytuje se nekde seznam runtime errors podle cisel ? Zajimalo by me
> predevsim cislo 202, ktere vyskakuje v metode OnResize formulare pri
> nastavovani velikosti.
>
> Diky
>
> Ing. Miroslav Ond��ek
> Bonnel Technologie, s.r.o.
>
> E-mail:
> bonnel-ondrisek(zv)telecom(tec)cz - v�voj software
>
> internet: http://www.bonnel-tech.com
> PGP podporov�no - ve�ejn� kl�� na na�� homepage
> Home banking
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 18.9.1998 12:42:18
Nemate nekdo zkusenosti s homebanking? Konkretne se mi jedna o IPB a
programy spolecnosti ComTech. Ale zajimaly by me i zkusenosti s jinymi
bankami.
Mac
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================Runtime error
[*] Pavel Kral <kral(zv)afx(tec)cz> - 18.9.1998 13:04:50
K chybe preplneni zasobniku typicky dochazi, pokud v handleru udalosti
udelate
akci, ktera zpusobi opetovny vznik teto udalosti.
V onResize prvku asi menite velikost tohoto prvku.
K takovemu zacykleni se da predejit tim, ze pred volanim akce,
ktera by mohla zpusobit opetovne volani udalosti zrusite handler udalosti.
asi takto:
procedure TFOrm1.FormResize(Sender: TObject);
var PuvOnResize: TNotifyEvent;
begin
PuvOnResize:= OnResize;
OnResize:= nil;
try
ClientWidth:= ...
finally
OnResize:= PuvOnResize;
end;
end;
S pozdravem
Pavel Kral
> -----P�vodn� zpr�va-----
>
> Vyskytuje se nekde seznam runtime errors podle cisel ? Zajimalo by me
> predevsim cislo 202, ktere vyskakuje v metode OnResize formulare pri
> nastavovani velikosti.
>
> Diky
>
> Ing. Miroslav Ond��ek
> Bonnel Technologie, s.r.o.
Pouziti GetCharacterPlacement
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 18.9.1998 13:16:45
Hi,
to tam fakt nepatri, poradne si prohlidni definici funkce:
DWORD GetCharacterPlacement(
HDC hdc, // handle to device context
LPCTSTR lpString, // pointer to string
int nCount, // number of characters in string
int nMaxExtent, // maximum extent for displayed string
LPGCP_RESULTS *lpResults, // pointer to buffer for placement
result
DWORD dwFlags // placement flags
);
PARAMETRY: handle kontextu, ukazatel na retezec, delka retezce,
maximalni delka v logickych jednotkach (pouziva se zridka), ukazatel na
strukturu pro vysledek, prepinace.
navratova hodnota je 0 pri neuspechu, jinak je nenulova.
PRECTI SI TO PORADNE, NENI DUVOD K TOMU, ABY TO NEFUNGOVALO.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: V�t�zslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
> Odesl�no: 18. z��� 1998 11:28
> Komu: DELPHI Distribution List
> P�edm�t: Re: Pouziti GetCharacterPlacement
>
> Nejak mi tam nesedi to pretypovani delky retezce na Bool. Ale nebudu
> to
> zkoumat podrobneji, protoze ti radsi doporucim funkci
> GetTextExtentPoint.
>
> Vita
>
> -----P�vodn� zpr�va-----
> Od: Jiri Fajtl <chip(zv)oku-pi(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Datum: 18. z��� 1998 10:49
> P�edm�t: Pouziti GetCharacterPlacement
>
>
> >Ahoj vsichni
> >
> >
> >Potreboval jsem zjistit sirku retezce v pixlech
> >pro coz jsem pouzil funkci GetCharacterPlacement z win32 api,
> >ale bohuzel neuspesne vzdy vraci false a predanou
> >structuru TGCPRESULTS vubec nenaplni.
> >
> >Tak takhle to zkousim.
> >
> >var
> > s : string;
> > gpc : TGCPRESULTS;
> > MaxExtent : Bool;
> > isok : integer;
> >begin
> > MaxExtent:=LongBool(23);
> > s:='testovaci text';
> > StrPCopy(pch, s);
> >
> > gpc.lStructSize:=sizeof(gpc);
> > gpc.lpOrder:=nil;
> > gpc.lpDx:=nil;
> > gpc.lpGlyphs:=nil;
> > gpc.nGlyphs:=0;
> > gpc.nMaxFit:=0;
> >
> > isok :=GetCharacterPlacement(canvas.Handle, pch,
> > Bool(StrLen(pch)), MaxExtent, gpc, GCP_MAXEXTENT);
> >end;
> >
> >
> >Nepracoval jsete nekdo s touto funkci nebo nevite o nejakem
> >demu kde by se vyskytovala, pripadne o detailnejsim popisu
> >nez jaky je ve win32api helpu kdelphi ?
> >
> >Diky moc za kazdou radu
> >
> >Jiri Fajtl
> >mailto: chip(zv)oku-pi(tec)cz
> >phone: 0602 835601
> >