Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
ADO (Adonis) a export
[*] Erik Salaj <winsoft(zv)napri.sk> - 21.4.2000 15:40:30
> je nutne mit nainstalovany Excel ?
Nie.
Erik
Textovy soubor
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 21.4.2000 14:52:48
V helpu se pravi:
Indicates the number of strings the string list has allocated memory to
hold.
property Capacity: Integer;
Description
Use Capacity to find out how much memory is available for holding strings,
or to reallocate the memory to allow more or fewer strings.
Capacity is the number of entries in the string list that have been
allocated, as opposed to Count, which is the number of strings in the list.
Thus, Capacity is always greater than or equal to Count.
Adding new strings will cause the Capacity property to increase if
necessary, but setting the Capacity property will not change the Count
property. Do not set Capacity to a value less than Count, or the list will
be truncated and Count will indicate that the list contains more strings
than is the case. Also, if Capacity is set to a value less than Count, the
memory used to store the strings that are dropped from the list (as opposed
to the entries in the list that point to those strings) is not freed.
Jinymi slovy - limitem je volna pamet.
Ahoj Tomas Bihary
----- Original Message -----
From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, April 21, 2000 12:38 PM
Subject: RE: Textovy soubor
> Ahoj,
>
> jaky limit radku ma stringlist?
> Diky
> Jaro B.
>
PChar
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.4.2000 18:08:31
On 21 Apr 00, at 10:03, Radim Brozek wrote:
> Ja bych asi radeji pouzil StrPas a StrPCopy.
> PChar je totiz null terminated retezec, coz se o stringu v pascalu asi
> rict neda.
Huge string je zakoncen nulou, prave proto, aby bylo mozne
pretypovani
s:=string(PChar(s));
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Rezidentni program
[*] Daniel Krej�� - 21.4.2000 18:58:30
Jdou n�jak v D3 vytvaret rezidentni programy, ktere by zustaly v pameti i po
restartovani pocitace a po nabehnuti Windows by fungovaly dal aniz by se
museli znovu spustit?
Pokud by to neslo, tak bych alespon rad zjistil, kde v registru je zapsano
co se ma spusti po startu "woken".
Pristup k datum - beginner.
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 21.4.2000 20:42:44
> Mam dotaz jak si ulozim jeden zaznam z TTable do promenne?
>
> Mate nekdo nejake elagantni reseni. Nechce se mi deklarovat a vypisovat
vsechny fields.
ahoj
mam na to udelanou komponetu, ktra umi
nacist cely obsah record vcetne blob (!!!) do pameti a pak ho zase vlozit
do jineho recordu. Pokud to budes chtit tak poslu.
S pozdravem Heinisch Jiri
Syntaxe IB: domeny a procedury
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 21.4.2000 21:01:49
Preji vsem pekneho dne,
mam definovanou domenu:
CREATE DOMAIN D_NAME AS VARCHAR (30) NOT NULL;
Chci ale, aby to bylo cesky, tedy nejak takto:
CREATE DOMAIN D_NAME AS VARCHAR (30) NOT NULL
CHARACTER SET WIN1250 COLLATE PXW_CSY;
To mi ale zahlasi chybu:
SQL error code = -104
Token unknown - line 1, char 46
CHARACTER
Pokud to pouziji v CREATE TABLE, vysledek je
tentyz:
CREATE TABLE RK_ARTICLE
(
NAME D_NAME CHARACTER SET WIN1250 COLLATE
PXW_CSY,
);
Jak se to ma tedy napsat?
Druhy dotaz je na procedury. Kdyz mam domenu:
CREATE DOMAIN D_NAME AS VARCHAR (30) NOT NULL;
proc nemuzu napsat:
CREATE PROCEDURE INSERT_NEW_ARTICLE
(A_NAME D_NAME)
?
Diky za odpovedi
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
TImage, PING
[*] Martin Pesava <jimx(zv)volny(tec)cz> - 21.4.2000 21:59:12
Ahojky lidicky, potreboval bych s necim pomoci...
1) TImage
Potrebuju na formu mit 24 TImagu, ktery ale budou ulozeny v poli:
Var IMGS : array[1..3,1..8] of TImages; {v private deklaraci formu}
Kdyz to ale takhle napisu, tak je musim na ten form dat sam. Myslel jsem
ze staci ve FormCreate:
IMGS[1,1]:=TImage.Create(MainForm);
with IMGS[1,1] do begin
top:=...; left:=...;
width:=...; height:=...;
picture.assign(Pic);
end;
Ale asi nestaci, protoze se nic na form nenakresli...
Tipnul bych si, ze je potreba tomu Formu nejak zdelit, ze na nem lezej
ty TImagy...
Obesel jsem to tak, ze jsem na form dal 24 komponent TImage a
jednotlivym polozkam toho pole jsem pak ve FormCreatu priradil ty
spravny TImagy na Formu... Facha to, ale je to takovy "divny" reseni...
2)PING
Potreboval bych neco jako prikaz PING ve woknech... ale staci mi, aby mi
to zdelilo jestli pocitac, na kterej se snazim pingnout, premava, ci
ne... Zkousel jsem to pres komponentu PowerSock, kde jsem si nastavil
hosta na 127.0.0.1 (lokal), port na 7 (udajne PING-port) a TimeOut na
500 (ms). Zavolal Connect a po chvilce se mi vratilo Request Timed
Out... Pritom na portu 21 (FTP) to fachalo bez problemu (mam
nainstalovanej FTP server)
Predem dik, za kazdou pomoc...
LastNeededInfo: Win95 OSR2, D4Prof
--
Martin Pe�ava
/--------------------------------------------------------------\
| Known as JimX on http://www.webchat(tec)cz & http://www.xchat(tec)cz |
| Webmaster of http://miss.misto(tec)cz |
| Email: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/Prosim o radu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.4.2000 08:24:26
On 21 Apr 00, at 13:12, radomir.chwalek(zv)rtscs(tec)cz wrote:
> osim o radu
> >
> > Stringy se berou ze souboru consts.pas .
> > Soubor lze upravit, znovu prekompilovat a pak by to melo byt cesky.
> > Osobne mi to funguje.
>
> nevim, jak v jinych verzich Delphi, ale ve 4.0 a 5.0 to vubec neni
> pravda (alespon co se tyce dialogu).
Pravda to je, nekdy si staci prohlednou prislusny zdrojak
(Dialogs.CreateMessageDialog). Druha vec je, ze tento postup je
ponekud nesikovny, protoze je treba prekompilovat i Dialogs a dalsi
pouzivane unity, a pak dochazi k rozdilu pri zobrazeni formularu
mezi programem v IDE Delphi a vyslednym kompilatem. Krome
toho je treba davat dobry pozor, jak se unity pouzivaji. Cely pracny
postup takoveto "lokalizace" je treba zopakovat pri kazdem updatu.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Refresh (Was: Rychlost IB)
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 22.4.2000 09:06:29
Hello Jaro!
>> refreshi. Udelam tedy Close a Open no a otazka zni, jak bez
>> Locate nastavit aktualni radek v Gridu tam, co byl (pokud nebyl
>> smazan)?
> Uz jsem o tom psal. Pouzij Bookmark.
> 1. Zapamatuj si Id zaznamu. Po Close + Open
> 2. skoc na puvodni misto a zkontroluj shodu id.
> 3. Pokud se id neshoduje pouzij locate na pole ID.
Ja pre istotu robim hned 'locate'. Lebo mam skoro iste, ze niektore zaznamy
uz tam nebudu a ine pribudnu.
Ale mam iny problem: Po takejto akcii mi v DbGride neprijemne poskoci kurzor
na ine miesto - konkretne sa DbGrid snazi umiestnit ten najdeny zaznam do
stredu obrazu, ale ja som potreboval, aby podla moznosti (ak tych riadkov
este tolko zostalo) zostal kurzor napriklad na predposlednom riadku.
Bye mailto:vmlich(zv)mbox.vol(tec)cz
V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
TImage, PING
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 22.4.2000 14:42:27
Tak s tim pingem, budto InternetComponentSuite od
F.Pietteho (je to tam zapouzdreno do objektu, ale princip
je ukazan), nebo Synapse komponenty od Lukase Gebauera
http://www.mlp(tec)cz/space/gebauerl/synapse/)
ktere jsou na low fce jeste lepsi.
Ale premavat ti budou jen ty, ktere maji instalovany protokol TCP/IP.
Obecnejsi metodou by asi bylo WNetEnumResources ci neco
podobneho.
Martin
-------------puvodne-----------------
2)PING
Potreboval bych neco jako prikaz PING ve woknech... ale staci mi, aby mi
to zdelilo jestli pocitac, na kterej se snazim pingnout, premava, ci
ne... Zkousel jsem to pres komponentu PowerSock, kde jsem si nastavil
hosta na 127.0.0.1 (lokal), port na 7 (udajne PING-port) a TimeOut na
500 (ms). Zavolal Connect a po chvilce se mi vratilo Request Timed
Out... Pritom na portu 21 (FTP) to fachalo bez problemu (mam
nainstalovanej FTP server)
Predem dik, za kazdou pomoc...
LastNeededInfo: Win95 OSR2, D4Prof
--
Martin Pe�ava
TImage, PING
[*] Surfman <surfman(zv)volny(tec)cz> - 22.4.2000 22:44:33
Ahoj
Musis tem imagum taky rict
parent := MainForm;
Surfman
----- Original Message -----
> Ahojky lidicky, potreboval bych s necim pomoci...
>
> 1) TImage
> Potrebuju na formu mit 24 TImagu, ktery ale budou ulozeny v poli:
> Var IMGS : array[1..3,1..8] of TImages; {v private deklaraci formu}
> Kdyz to ale takhle napisu, tak je musim na ten form dat sam. Myslel jsem
> ze staci ve FormCreate:
> IMGS[1,1]:=TImage.Create(MainForm);
> with IMGS[1,1] do begin
> top:=...; left:=...;
> width:=...; height:=...;
> picture.assign(Pic);
> end;
> Ale asi nestaci, protoze se nic na form nenakresli...
Ulozein RichTextu do IB
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 23.4.2000 09:27:07
Preji vsem pekneho dne,
mam tabulku na IB 5.6, kde je jeden sloupecek typu blob a chci do
nej ulozit obsah RichEditu. Pres lines mi to ulozi pouze cisty text.
Jak tedy dosahnout pomoci IBExpress rozumneho vysledku?
Diky z apripadne odpovedi
Slavek
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Ulozein RichTextu do IB
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 23.4.2000 16:35:15
Kde presne? V helpu jsem k tomu nic kloudneho nenasel. Mam na
IB proceduru s deklaraci:
CREATE PROCEDURE INSERT_ARTICLE (A_NAME VARCHAR
(30), A_DESCRIPTION VARCHAR (300), A_BODY BLOB)
A v D5 chci do parametru A_BODY dat obsah
Richeditu. AsBlob to tam da pouze holy text.
Ale udelal jsem to jinak:
S := TMemoryStream.Create;
reText.Lines.SaveToStream (S);
S.Position := 0;
...
spInsertArticle.ParamByName
('A_BODY').LoadFromStream (a_Body_str, ftBlob);
...
spInsertArticle.ExecProc;
S.Free;
a to mi funguje. Drive jsem misto ftBlob daval
ftFmtMemo a to mi vyhazovalo vyjimku
(nepodporovana vlastnost).
Ted ovsem resim upravu takoveho zaznamu. Jak
richtext ulozeny v blobu dostat zpet do
komponenty TRichEdit? U TIBQuery mi chybi neco
jako TIBQuery.FieldByName('BODY').SaveToStream
Slavek
> Zkus Blob subtype 0
> Jaro
>
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Nahravani
[*] Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz> - 23.4.2000 19:09:59
Cau lidi,
mam takovej problem - nahravam zvuk v ruznych formatech, ktery mam ve Windows na
instalovany (ADPCM, GSM, a dalsi). Nahraju data, ale nemuzu je prehrat protoze n
evim jak zjistit hlavicky Wav souboru pro ruzny formaty (pro kazdy format jina h
lavicka). Nevi nekdo jak ziskat ty hlavicky wav souboru abych je mohl zapsat a m
ohl prehravat zvuk treba v Media Playeru. Urcite na to bude nejaka funkce API (p
ravdepodobne v msacm32.dll).
Diky Petr.
TImage, PING
[*] Martin Pesava <jimx(zv)volny(tec)cz> - 23.4.2000 21:47:08
Aha, tak to sem si myslel, ale nevedel sem, jak to udelat... Ja myslel,
ze to staci v tom Creatu... a spis naopak tomu formu, ze mam zdelit, ze
ma na sobe nejaky image... Ale jinak dik.
Surfman wrote:
>
> Ahoj
>
> Musis tem imagum taky rict
>
> parent := MainForm;
>
> Surfman
>
> ----- Original Message -----
>
> > Ahojky lidicky, potreboval bych s necim pomoci...
> >
> > 1) TImage
> > Potrebuju na formu mit 24 TImagu, ktery ale budou ulozeny v poli:
> > Var IMGS : array[1..3,1..8] of TImages; {v private deklaraci formu}
> > Kdyz to ale takhle napisu, tak je musim na ten form dat sam. Myslel jsem
> > ze staci ve FormCreate:
> > IMGS[1,1]:=TImage.Create(MainForm);
> > with IMGS[1,1] do begin
> > top:=...; left:=...;
> > width:=...; height:=...;
> > picture.assign(Pic);
> > end;
> > Ale asi nestaci, protoze se nic na form nenakresli...
--
Martin Pe�ava
/--------------------------------------------------------------\
| Known as JimX on http://www.webchat(tec)cz & http://www.xchat(tec)cz |
| Webmaster of http://miss.misto(tec)cz |
| Email: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/Ulozein RichTextu do IB
[*] Jaro <jaro(zv)sinea(tec)cz> - 23.4.2000 14:27:12 -0700
Zkus Blob subtype 0
Jaro
----- Original Message -----
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, April 23, 2000 12:27 AM
Subject: Ulozein RichTextu do IB
> Preji vsem pekneho dne,
>
> mam tabulku na IB 5.6, kde je jeden sloupecek typu blob a chci do
> nej ulozit obsah RichEditu. Pres lines mi to ulozi pouze cisty text.
> Jak tedy dosahnout pomoci IBExpress rozumneho vysledku?
>
> Diky z apripadne odpovedi
>
> Slavek
>
>
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> -------------------------------------------------
> http://www.swnet(tec)cz
> Magazin informacne vyspelych jedincu
> -------------------------------------------------
> mwCustomEdit
[*] Hurricane <hurricane(zv)email(tec)cz> - 23.4.2000 23:47:14
Zdravim
Mam pocit, �e m� listserver n�jakej problem s moji po�tou na email(tec)cz.
Pota�mo se mnou. BTW nev�te, jestli m��u na odes�l�n� po�ty p�es ��et na
email(tec)cz pou��t SMTP server Voln�ho? Douf�m, �e jo.
-----
A te� k dotaz�m:
1) Nem�te exampl k hled�n� a nahrazov�n� textu v mwCustomEditu? Hled�n� sem
sice jak�tak� ud�lal, ale s nahrazov�n�m si nevim rady.V helpu k mw je jen
v��et mo�nost� k nastaven� hled�n�:
TmwSearchOption = (mwsoMatchCase, mwsoWholeWord, mwsoBackwards,
mwsoEntireScope, mwsoSelectedOnly, mwsoReplace, mwsoReplaceAll, mwsoPrompt);
2) TFindDialog a TReplaceDialog mi vrac� nastaven� hled�n� ve form�tech
TFindOptions. Probl�mje v tom, �e mw procedura pro hled�n� a nahrazov�n�
pot�ebuje nastaven� ve form�tu TmwSearchOption. Tu��te jak to
p�ekonvertovat? Vlastn� by to taky vy�e�il ten exampl k 1.
3) mwCustomEdit pot�ebuje pro tisk pomoc� intern� procedury
mwCustomEdit.Print nastavovac� parametry ve form�tu TmwPrintOptions.
TmwPrintOptions = record
SelectedOnly: boolean;
Highlighted: boolean;
WrapLongLines: boolean;
IgnoreColors: boolean;
Copies: integer;
MarginUnits: TmwMarginUnits;
Margins: TRect;
PrintRange: TRect;
Title: string;
Header: TStringList;
Footer: TStringList;
end;
Kde je z�sk�m? Je na to n�jak� dialog? Standardn� dialog mi vrac� data v
jinym form�tu a stejnak mi nevrac� v�echny pot�ebn� parametry. Ide�ln� by
byl n�jakej speci�ln� mwPrintSetupDialog, nev�te n�kdo o n��em takov�m?
4) Jak se u mwCustomEditu nastavuje zalamov�n� ��dk�? (WordWrap) Mus� to
p�ece n�jak j�t. V helpu je zm�nka o WrapLongLines jenom v souvislosti s
TmwPrintOptions k tisku, ale o klasickym WordWrapu (true/false) jako m�
TMemo help ml��. Nev�te jak se to nastavuje?
Je�t� detail, nev�te jestli m��u do konference pos�lat dopisy i z jin�ch
��t�, ne� z toho, kter� sem zadal p�i registraci?
P�edem d�kuji a dobr�m du��m p�eji co nejv�ce dokon�en�ch projekt�
Hurricane
Ulozein RichTextu do IB
[*] Jaro <jaro(zv)sinea(tec)cz> - 23.4.2000 18:17:42 -0700
Takto:
A_BODY BLOB SUB_TYPE 0
je nedefinovany (vseobecny) format
A_BODY BLOB SUB_TYPE 1
je format pouze Text.
Jaro
> Kde presne? V helpu jsem k tomu nic kloudneho nenasel. Mam na
> IB proceduru s deklaraci:
>
> CREATE PROCEDURE INSERT_ARTICLE (A_NAME VARCHAR
> (30), A_DESCRIPTION VARCHAR (300), A_BODY BLOB)
>
> A v D5 chci do parametru A_BODY dat obsah
> Richeditu. AsBlob to tam da pouze holy text.
>
> Ale udelal jsem to jinak:
>
> S := TMemoryStream.Create;
> reText.Lines.SaveToStream (S);
> S.Position := 0;
> ...
> spInsertArticle.ParamByName
> ('A_BODY').LoadFromStream (a_Body_str, ftBlob);
> ...
> spInsertArticle.ExecProc;
> S.Free;
>
> a to mi funguje. Drive jsem misto ftBlob daval
> ftFmtMemo a to mi vyhazovalo vyjimku
> (nepodporovana vlastnost).
>
> Ted ovsem resim upravu takoveho zaznamu. Jak
> richtext ulozeny v blobu dostat zpet do
> komponenty TRichEdit? U TIBQuery mi chybi neco
> jako TIBQuery.FieldByName('BODY').SaveToStream
>
> Slavek
>
> > Zkus Blob subtype 0
> > Jaro
> >
>
>
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> -------------------------------------------------
> http://www.swnet(tec)cz
> Magazin informacne vyspelych jedincu
> -------------------------------------------------
>Rezidentni program
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 24.4.2000 06:21:23
----- Original Message -----
From: "Daniel Krej��" <fredycrueger(zv)volny(tec)cz>>Jdou n�jak v D3 vytvaret rezidentni programy, ktere by zustaly v pameti i
po
>restartovani pocitace a po nabehnuti Windows by fungovaly dal aniz by se
>museli znovu spustit?
A neslo by udelat, aby motor porad bezel, i kdyz u auta vypnu zapalovani ?
>Pokud by to neslo, tak bych alespon rad zjistil, kde v registru je zapsano
>co se ma spusti po startu "woken".
Windows to bere z nekolika mist:
slozka "Po spusteni" v nabidce start
z registru HKLM/Software/Microsoft/Windows/Current version/Run nebo Run
Services
nebo totez ve vetvi HKCU
ted nevim, jestli v souboru Win.INI nebo System.INI je taky klic Start a Run
Jan Fiala
Hled�n� v Memu
[*] Daniel Krej�� <fredycrueger(zv)volny(tec)cz> - 24.4.2000 07:59:57
Nev�te n�kdo jak se d� hledat v Memu a nalezeny text zvyraznit? Pomoc�
funkce Pos() to nejde, protoze ten pracuje se stringama.
Zkousel jsem kazdou z tech Lines vzit jako string, ale za prve to trva
strasne dlouho (30 Kb textu) a najde vzdy az to posledni hledane slovo, ty
predtim ignoruje. Muzete mi nekdo poslat nejakou komponentu nebo kousek
kodu?Hled�n� v Memu
[*] Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz> - 24.4.2000 16:19:21
Jakto ze to nejde pomoci funkce Pos(), ale musis ji pouzit na Memo.Text - je
to taky string.
----- Original Message -----
From: Daniel Krej�� <fredycrueger(zv)volny(tec)cz>
To: delphi <delphi-l(zv)fwd(tec)cz>
Sent: Monday, April 24, 2000 7:59 AM
Subject: Hled�n� v Memu
> Nev�te n�kdo jak se d� hledat v Memu a nalezeny text zvyraznit? Pomoc�
> funkce Pos() to nejde, protoze ten pracuje se stringama.
> Zkousel jsem kazdou z tech Lines vzit jako string, ale za prve to trva
> strasne dlouho (30 Kb textu) a najde vzdy az to posledni hledane slovo, ty
> predtim ignoruje. Muzete mi nekdo poslat nejakou komponentu nebo kousek
> kodu?
>
>
Rezidentni program
[*] Heinisch Jiri <deis(zv)deis(tec)cz> - 24.4.2000 20:02:08
From: Jan Fiala <jan.fiala(zv)iol(tec)cz>
> A neslo by udelat, aby motor porad bezel, i kdyz u auta vypnu zapalovani ?
>
U �kody 120 to nekdy funguje :-)
S pozdravem Heinisch Jiri
Delphi verze
[*] Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz> - 24.4.2000 20:56:37
Nevi nekdo jestli existujou Delphi pro Linux?Delphi verze
[*] Roman Fiser <rfiser(zv)cmail(tec)cz> - 24.4.2000 21:45:36
Ne, ale tusim ze se chysta kylix, portace borlandich vyvojovych produktu na Linux.
S pozdravem,
Roman Fiser
roman(zv)management(tec)cz
----- Original Message -----
From: Petr Jel�nek Konf
To: Delphi Forum
Sent: Monday, April 24, 2000 20:56
Subject: Delphi verze
Nevi nekdo jestli existujou Delphi pro Linux?CustomOpenDialog
[*] Hurricane <hurricane(zv)email(tec)cz> - 24.4.2000 22:17:53
Zdravim
Se zajmem sem sledoval diskusi o vylepseni Open a Save Dialogu o ruzne
buttony, panely a pod. Sam sem si napsal svoje vylepseni ala Wir2000, ale
narazil sem na problem se zmenou aktualniho adresare otevrenyho dialogu. De
o to, ze mam na tom dialogu Button, ktery mi spousti prislusnou proceduru
OnClick. A Prave v teto procedure potrebuju zmenit adresar otevrenyho
dialogu. Z registru ctu prislusnou cestu (napr.: C:\Windows\Plocha, muze byt
i C:\Windows\Plocha\) a tuto cestu potrebuju vnutit tomu dialogu. Stahnul
sem si GXExplorer, ale nic z nej nemam, pod D3 to nejede. Muzete mi nekdo
poradit?
Dekuji
Hurricane
hurricane(zv)email(tec)cz
Console app. zadavani hesla
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.4.2000 22:44:25
From: <azeleny(zv)csas(tec)cz>
> nevite nekdo, jak primet v D5 konzolovou aplikaci, aby pri cteni textu ze
> standardniho vstupu neopisovala text na obrazovku?
>
> Potrebuji to pro zadavani hesla a delat Read() a pak psat backspace mi
> prijde drevni...
Ahoj,
napriklad takhle:
program Project1;
{$APPTYPE CONSOLE}
uses
Windows, SysUtils, Dialogs;
var
StdIn: THandle;
ConsoleMode: DWORD;
S: string;
begin
StdIn := GetStdHandle(STD_INPUT_HANDLE);
if StdIn = INVALID_HANDLE_VALUE then RaiseLastWin32Error;
Win32Check(GetConsoleMode(StdIn, ConsoleMode));
Win32Check(SetConsoleMode(StdIn, ConsoleMode and (not ENABLE_ECHO_INPUT)));
Readln(S);
ShowMessage(S);
end.
PChar
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.4.2000 22:44:18
From: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
> jak nejlepe (a hlavne nejrychleji-jedna se o velky soubor) zpracovat do
> PCharu nacteny obsah textoveho souboru, ktery ma nasledujici strukturu:
>
> prvni_dlouhy_text[oddelovac]dalsi_dlouhy_text[oddelovac]dalsi_dlouhy_text...
Ahoj,
Pokud to chces opravdu rychle a jedna se o velky soubor, je treba pouzit
mapovani souboru do pameti. Jeden takovy priklad mas treba tady:
http://www.delphi(tec)cz/soubor.asp?path=\archiv\1999\jun\05\dlfaaaad.htm
Petr Vones, amatersky programator
USB
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.4.2000 22:44:45
From: Jiri Cap <cap(zv)fsih.cvut(tec)cz>
> nema nekdo z Vas zkusenosti s obsluhou USB portu?
> D4Std/W95
Ahoj,
Pokud vim, tak pro Win95 neexistuje rozumna podpora USB. Verze OSR 2.5
"s podporou USB" ma podle obecnych zkusenosti nejake problemy. Lepe to
pry funguje az u Win98.
Petr Vones, amatersky programator
Zachyceni spousteni aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.4.2000 22:44:30
From: <delphi(zv)zas-me(tec)cz>
> mohl by mi nekdo poradit, jak napsat program, ktery zachyti jakekoliv
> spousteni jinych aplikaci (jako to delaji treba antiviry)? Potreboval bych
> studentum ve skole zabranit spousteni ruznych (zatim nastesti vetsinou
> neskodnych) programku, ktere jim zvenku posilaji kamaradi mailem.
Ahoj,
jedna z moznosti je rozsireni shellu pomoci implementace IShellExecuteHook.
Priklad najdes tady:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D5/Other/DelphiDays99_ShellExecuteHook.zip
Petr Vones, amatersky programator
Rezidentni program
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.4.2000 22:44:56
From: Daniel Krej�� <fredycrueger(zv)volny(tec)cz>
> Jdou n�jak v D3 vytvaret rezidentni programy, ktere by zustaly v pameti i po
> restartovani pocitace a po nabehnuti Windows by fungovaly dal aniz by se
> museli znovu spustit?
> Pokud by to neslo, tak bych alespon rad zjistil, kde v registru je zapsano
> co se ma spusti po startu "woken".
Ahoj,
Podivej se na preview JCL (Jedi Code Library), tam mas v unitu JclRegIni
funkce RegisterAutoExec a UnregisterAutoExec.
http://delphi-jedi.org/Jedi:CODELIBJCL:758912830
Petr Vones, amatersky programator
Hled�n� v Memu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.4.2000 22:44:09
From: Daniel Krej�� <fredycrueger(zv)volny(tec)cz>
> Nev�te n�kdo jak se d� hledat v Memu a nalezeny text zvyraznit? Pomoc�
> funkce Pos() to nejde, protoze ten pracuje se stringama.
Ahoj,
treba takhle. Pokud by jsi ale misto Mema pouzil RichEdit, tak ten jiz
ma metodu pro hledani textu a nema omezeni v delce souboru.
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('unit1.pas');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
S, FindStr: string;
I: Integer;
begin
FindStr := 'uses';
S := Memo1.Text;
I := Pos(FindStr, S);
if I > 0 then
begin
Memo1.SelStart := I - 1;
Memo1.SelLength := Length(FindStr);
end;
end;
Petr Vones, amatersky programator
Tucne pismo v MessageBox
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.4.2000 22:44:49
From: <martin.falta(zv)obi.de>
> pro zobrazeni zprav pouzivam API funkci MessageBox a potreboval bych, aby se mi
> urcita cast textu zobrazila tucnym pismem nebo jinou barvou nez cernou. Nevite
> nekdo, jak na to?
Ahoj,
V tomto pripade si budes muset vytvorit vlastni dialog.
Petr Vones, amatersky programator
Dalhi 5 a ADO
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.4.2000 22:44:37
From: Ji�� Kr�l jr. <admin(zv)printo(tec)cz>
> Mili kolezi, dokazete nekdo odpovedet na dotaz meho frenda:
>
> cituji:
> "Abych mohl pouzivat ADO komponenty, staci mi D5 Profi + dokoupit D 5 ADO
> Express? Nebo je ADO jen v D5 Enterprise?"
Ahoj,
K Delphi 5 Prof. lze samostatne dokoupit ADO Express. Existuji vsak i dalsi
ADO komponenty od jinych vyrobcu.
Petr Vones, amatersky programator
Textovy soubor
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.4.2000 22:45:03
From: Ji�� Kr�l jr. <admin(zv)printo(tec)cz>
> resim nasledujici trivialitu:
>
> chci zapisovat do textoveho souboru
>
> if existuje pridat radek na konec
> if neexistuje vytvorit ho a zapsat radek
Ahoj,
Da se to udelat treba takhle:
const
MyFileName = 'Soubor.txt';
procedure TForm1.Button1Click(Sender: TObject);
var
FS: TFileStream;
OpenMode: DWORD;
S: string;
begin
if FileExists(MyFileName) then
OpenMode := fmOpenWrite or fmShareDenyWrite
else
OpenMode := fmCreate;
FS := TFileStream.Create(MyFileName, OpenMode);
try
FS.Seek(0, soFromEnd);
S := 'Text'#13#10;
FS.WriteBuffer(Pointer(S)^, Length(S));
finally
FS.Free;
end;
end;
Petr Vones, amatersky programator
Delphi verze
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 24.4.2000 22:47:03
From: Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz>
> Nevi nekdo jestli existujou Delphi pro Linux?
Pripravuje se pod jmenem Kylix :-) Sleduj clanky na http://community.borland.com/
Petr Vones, amatersky programator
Zvyraznovanie editboxov.
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 25.4.2000 00:34:21
Zdravim.
Rozsiril som si EditBox a ComboBox o FocusColor:=clAqua, ktory udava ze aku
farbu ma komponenta ak ma focus. Dalej kazda komponenta ktora je povinna na
vyplnenie je zltej farby. ALE ak ziska povinna focus tak je zafarbena na
FocusColor a nie je vidiet ci je povinna. Co by ste mi poradili na odlizenie
editu povinneho od nepovinneho ale pokial je mozne nezmenit farbu na inu.
Myslim ze nejake oramovanie cervenou pri fokuse,...
Ale ako ?
Za kazdy napad vopred dakujem.
Roland.TImage, PING
[*] Ji�� Fait���}���6���3 - 25.4.2000 06:09:11
IMGS[1,1]:=TImage.Create(MainForm);
with IMGS[1,1] do begin
top:=...; left:=...;
width:=...; height:=...;
picture.assign(Pic);
parent := mainform;
end;
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Martin Pesava
Sent: Friday, April 21, 2000 9:59 PM
To: delphi-l(zv)fwd(tec)cz
Subject: TImage, PING
Ahojky lidicky, potreboval bych s necim pomoci...
1) TImage
Potrebuju na formu mit 24 TImagu, ktery ale budou ulozeny v poli:
Var IMGS : array[1..3,1..8] of TImages; {v private deklaraci formu}
Kdyz to ale takhle napisu, tak je musim na ten form dat sam. Myslel jsem
ze staci ve FormCreate:
IMGS[1,1]:=TImage.Create(MainForm);
with IMGS[1,1] do begin
top:=...; left:=...;
width:=...; height:=...;
picture.assign(Pic);
end;
Ale asi nestaci, protoze se nic na form nenakresli...
Tipnul bych si, ze je potreba tomu Formu nejak zdelit, ze na nem lezej
ty TImagy...
Obesel jsem to tak, ze jsem na form dal 24 komponent TImage a
jednotlivym polozkam toho pole jsem pak ve FormCreatu priradil ty
spravny TImagy na Formu... Facha to, ale je to takovy "divny" reseni...
2)PING
Potreboval bych neco jako prikaz PING ve woknech... ale staci mi, aby mi
to zdelilo jestli pocitac, na kterej se snazim pingnout, premava, ci
ne... Zkousel jsem to pres komponentu PowerSock, kde jsem si nastavil
hosta na 127.0.0.1 (lokal), port na 7 (udajne PING-port) a TimeOut na
500 (ms). Zavolal Connect a po chvilce se mi vratilo Request Timed
Out... Pritom na portu 21 (FTP) to fachalo bez problemu (mam
nainstalovanej FTP server)
Predem dik, za kazdou pomoc...
LastNeededInfo: Win95 OSR2, D4Prof
--
Martin Pe�ava
/--------------------------------------------------------------\
| Known as JimX on http://www.webchat(tec)cz & http://www.xchat(tec)cz |
| Webmaster of http://miss.misto(tec)cz |
| Email: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.121 / Virov� b�ze: 58 - datum vyd�n�: 31.1.2000
Refresh (Was: Rychlost IB)
[*] Jaro <jaro(zv)sinea(tec)cz> - 24.4.2000 22:32:35 -0700
>
> Ja pre istotu robim hned 'locate'. Lebo mam skoro iste, ze niektore
zaznamy
> uz tam nebudu a ine pribudnu.
Jista je jen smrt a jeste neni jiste kdy prijde.
Musel bys to sledovat za provozu a nekde si zavest pocitadlo uspesnosti.
Ja jsem neco takoveho zkousel a byl jsem velmi prekvapen.
Samozrejme zalezi na charakteru ulohy a ja o tve uloze nevim nic,
tak to nemohu posoudit.
>
> Ale mam iny problem: Po takejto akcii mi v DbGride neprijemne poskoci
kurzor
> na ine miesto - konkretne sa DbGrid snazi umiestnit ten najdeny zaznam do
> stredu obrazu, ale ja som potreboval, aby podla moznosti (ak tych riadkov
> este tolko zostalo) zostal kurzor napriklad na predposlednom riadku.
To je vlastnost gridu, ktera muze byt za urcitych okolnosti dost neprijemna.
Musel bys asi zkusit jiny grid nebo si ho preprogramovat.
Ja jsem tento problem zatim nemel potrebu resit. Snad nekdo jiny poradi.
Jaro
>
> Bye mailto:vmlich(zv)mbox.vol(tec)cz
> V.Mlich http://www(tec)czech-web(tec)cz/~vmlich
>
>Zvyraznovanie editboxov.
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 25.4.2000 07:36:21
Jeste muzes menit barvu pisma nebo dat pismo do Boldu, nebo nepovinne dat do
italiku.
Otazkou je, zda uzivatel v tom nebude mit chaos.
Mnou uspechu pri vysvetlovano co a kdy jak ma vypadat.
pavel
----- Original Message -----
From: Roland Turcan (RoTurSoft) <rotursoft(zv)nextra.sk>
To: Delphi CZ konferencia <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, April 25, 2000 12:34 AM
Subject: Zvyraznovanie editboxov.> Zdravim.
>
> Rozsiril som si EditBox a ComboBox o FocusColor:=clAqua, ktory udava ze
aku
> farbu ma komponenta ak ma focus. Dalej kazda komponenta ktora je povinna
na
> vyplnenie je zltej farby. ALE ak ziska povinna focus tak je zafarbena na
> FocusColor a nie je vidiet ci je povinna. Co by ste mi poradili na
odlizenie
> editu povinneho od nepovinneho ale pokial je mozne nezmenit farbu na inu.
> Myslim ze nejake oramovanie cervenou pri fokuse,...
>
> Ale ako ?
>
> Za kazdy napad vopred dakujem.
>
> Roland.
>Delka Ini souboru
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 25.4.2000 07:48:03
Delka Ini souboru je omezena na nejakych 63 kb. Ja vsak potrebuji pracovat s Ini soubory, ktere mohou mit delku az 32 Mb. Nemate nekdo nejakou komponentu na bazi IniFiles, ktera by to zvladla? Pripadne nevite jak kapacitu ini souboru zvetsit?
Pitr - Petr Vobornik
MIKMIK company
vobornik(zv)ssakhk(tec)cz
ICQ# 23132120
www.ssakhk(tec)cz/home/vobornik/ListBox bez modreho radku
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 25.4.2000 07:49:06
Zdravim,
uz se tu nekdo ptal, jak odstranit z ListBoxu modry pruh posledniho radku (pozici kurzoru), jakmile ListBox opustime. Menasel jsem odpoved a taky bych potreboval tento problem vyresit. Kdo to vi at mi prosimmmmm odpovi.
Pavel
D4prof
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz
http://www.kopr(tec)cz/w-delphi.htm http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~W2k & StatusBar
[*] Filip T. HYRS <tyu(zv)molly.vabo(tec)cz> - 25.4.2000 07:56:42
zdravim,
nevite nekdo nahodou, proc mi SimpleText ve StatusBar funguje
pouze u W2k? Pokud totiz spustim aplikaci (prelozenou ve W2k)
na jinem systemu (W98 SE), tak se mi SimpleText nezobrazuje :-((
Filip Hyrs
Syntaxe IB: domeny a procedury
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 25.4.2000 08:00:09
Haj hou!
Character set je soucast definice datoveho typu, collate je koncovy
modifikator. Zapis tedy musi vypadat nasledovne:
create domain test as varchar(30) character set win1250 not null collate
pxw_csy;
Hodne zdaru
Pavel Cisar
Borland s.r.o.
pcisar(zv)inprise(tec)cz
----- Original Message -----
From: "Slavek Rydval" <rk(zv)atrey.karlin.mff.cuni(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, April 21, 2000 9:01 PM
Subject: Syntaxe IB: domeny a procedury
> Preji vsem pekneho dne,
>
> mam definovanou domenu:
>
> CREATE DOMAIN D_NAME AS VARCHAR (30) NOT NULL;
>
> Chci ale, aby to bylo cesky, tedy nejak takto:
>
> CREATE DOMAIN D_NAME AS VARCHAR (30) NOT NULL
> CHARACTER SET WIN1250 COLLATE PXW_CSY;
>
> To mi ale zahlasi chybu:
>
> SQL error code = -104
> Token unknown - line 1, char 46
> CHARACTER
>
> Pokud to pouziji v CREATE TABLE, vysledek je
> tentyz:
>
> CREATE TABLE RK_ARTICLE
> (
> NAME D_NAME CHARACTER SET WIN1250 COLLATE
> PXW_CSY,
> );
>
> Jak se to ma tedy napsat?
>
> Druhy dotaz je na procedury. Kdyz mam domenu:
>
> CREATE DOMAIN D_NAME AS VARCHAR (30) NOT NULL;
>
> proc nemuzu napsat:
>
> CREATE PROCEDURE INSERT_NEW_ARTICLE
> (A_NAME D_NAME)
>
> ?
>
> Diky za odpovedi
>
> Slavek
>
>
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> -------------------------------------------------
> http://www.swnet(tec)cz
> Magazin informacne vyspelych jedincu
> -------------------------------------------------
W2k & StatusBar
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 25.4.2000 08:09:22
Ahoj,
to Ti docela zavidim, protoze me to poradne nefungovalo nikdy.
Pokud se vubec ten text vykreslil, pak se po prekryvani oknem
smazal. Resim to tak, ze vzdy nastavim SimpleText na False a
delam to pres panely.
Slavek
> zdravim,
>
> nevite nekdo nahodou, proc mi SimpleText ve StatusBar funguje
> pouze u W2k? Pokud totiz spustim aplikaci (prelozenou ve W2k)
> na jinem systemu (W98 SE), tak se mi SimpleText nezobrazuje :-((
>
> Filip Hyrs
>
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
MapiSendMail
[*] Radovan Popovic <mksoft(zv)po.psg.sk> - 25.4.2000 08:12:37
Toto je v�ced�ln� zpr�va form�tu MIME.
Ahoj,
Chcel by som vytvorit novy mail a zaradit ho do zlozky POSTA K ODESLANI.
Nasledujuci kod je z aplikacie LOGOAPP z Delphi
procedure TLogoAppForm.FileSend(Sender: TObject);
var
MapiMessage: TMapiMessage;
MError: Cardinal;
begin
with MapiMessage do
begin
ulReserved := 0;
lpszSubject := nil;
lpszNoteText := PChar(RichEdit1.Lines.Text);
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
nRecipCount := 0;
lpRecips := nil;
nFileCount := 0;
lpFiles := nil;
end;
MError := MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI
or MAPI_NEW_SESSION, 0);
if MError <> 0 then MessageDlg(LoadStr(sSendError), mtError, [mbOK], 0);
end;
Funkcia MapiSendMail mi vsak nezobrazi ziadny dialog a do MError vzdy vrati
chybu
MAPI_E_USER_ABORT - The user canceled one of the dialog boxes; no message
was sent.
Kde je chyba?
Rado
ListBox bez modreho radku
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 25.4.2000 08:19:45
On 25 Apr 00, at 7:49, Pavel ZIDEK wrote:
> uz se tu nekdo ptal, jak odstranit z ListBoxu modry pruh posledniho
> radku (pozici kurzoru), jakmile ListBox opustime. Menasel jsem odpoved
> a taky bych potreboval tento problem vyresit. Kdo to vi at mi
> prosimmmmm odpovi. Pavel
Je tu napriklad takova moznost, ze si nastavis ListBox na vlastni
malovani, pak zavolas udalost OnDrawItem a tam to prepises.
Zaroven hlidas State
if (odSelected in State) and not Focused then ...
ve kterem prohodis barvy v Canvas.Brush.Color. Priklad pouziti
najdes v helpu.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Delka Ini souboru
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 25.4.2000 08:27:15
Ahoj,
nekde na http://www.torry.ru jsem videl komponenty pro praci s INI soubory.
Zkus to tam.
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Petr Voborn�k [SMTP:vobornik(zv)ssakhk(tec)cz]
> Odesl�no: 25. IV 2000 7:48
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Delka Ini souboru
>
> Delka Ini souboru je omezena na nejakych 63 kb. Ja vsak potrebuji pracovat
> s Ini soubory, ktere mohou mit delku az 32 Mb. Nemate nekdo nejakou
> komponentu na bazi IniFiles, ktera by to zvladla? Pripadne nevite jak
> kapacitu ini souboru zvetsit?
>
> Pitr - Petr Vobornik
> MIKMIK company
> vobornik(zv)ssakhk(tec)cz <mailto:vobornik(zv)ssakhk(tec)cz>
> ICQ# 23132120
> www.ssakhk(tec)cz/home/vobornik/ <http://www.ssakhk(tec)cz/home/vobornik/>Detekce a preruseni TCP/IP spojeni
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 25.4.2000 08:38:41
Dobry den,
existuje nejake API pro detekci (enumeraci) aktivnich
TCP/IP spojeni a jeji nasilne programove
preruseni (program neni ani klient ani server
tohoto spojeni). Potreboval bych takto omezit
pristup k serverove aplikaci, ktera podobne
omezeni pristupu nepodporuje.
Ondrej Krajicek
PS: Koukal sem co importuje netstat. Zajimavych je
pet funkci z WSOCK32.Dll (podle indexu, ze by
zase nedokumentovane API?).
--
-----------------------------------------------------------
Ondrej Krajicek mailto:xkrajic(zv)ics.muni(tec)cz
Institute of Computer Science, Masaryk University Brno
-----------------------------------------------------------
Rezidentni program
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.4.2000 09:14:30
Nevim, co pises za vir, ale maloktery program zustava
v pameti (RAM) i po restartu pocitace (rekl bych, ze
je to na Nobelovu cenu :-) Pokud chces program spoustet
ihned po natazeni Windows, taxe podivej na sekce
HKEY_LM\Software\Microsoft\Windows\CurrentVersion\Run
HKEY_LM\Software\Microsoft\Windows\CurrentVersion\RunServices
HKEY_LM\Software\Microsoft\Windows\CurrentVersion\RunOnce
a totez c HKEY_CU
Dale to jde zapsat do win.ini, sekce [windows]
run=
load=
Dobra.
BTW: Programy musely, nikoli museli :-))))
> ----------
> Od: Daniel Krej> ��[SMTP:fredycrueger(zv)volny(tec)cz]
>
> Jdou n> �jak v D3 vytvaret rezidentni programy, ktere by zustaly v pameti i po
> restartovani pocitace a po nabehnuti Windows by fungovaly dal aniz by se
___museli___ znovu spustit?
> Pokud by to neslo, tak bych alespon rad zjistil, kde v registru je zapsano
> co se ma spusti po startu "woken".
>
> skryte hodnoty v DBF v NUMBER (4,0)
[*] mbartone(zv)Synthesia(tec)cz - 25.4.2000 09:25:10
Ahoj,
dostavam DBF tabulky, kde nektere sloupce jsou definovany jako NUMBER (4,0)
pokud si tabulku otevru pres DataBase Desktop nebo v programu pres Query
vidim v techto sloupcich pouze hodnoty vetsi jak 1000.
Ostatni sloupce CHAR, DATE, NUMBER (8,4) jsou v poradku.
Pokud tabulku otevru Excelem je tam vse.
Pokud je sloupec NUMBER (3,0) vidim pouze hodboty vetsi jak 100.
Vcem je chyba, a jak na to ?
Milan
Zvyraznovanie editboxov.
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.4.2000 09:47:22
Rekl bych, ze v tom chaos asi mit bude :-), ty
povinne bych udelal bud tucne, nebo za edit dat
label "(*)", jako je to napr na nekterych
registracnich formularich na WEBu.
Dobra.
> ----------
> Od: Pavel ZIDEK[SMTP:kopr(zv)kopr(tec)cz]
>
> Jeste muzes menit barvu pisma nebo dat pismo do Boldu, nebo nepovinne dat do
> italiku.
> Otazkou je, zda uzivatel v tom nebude mit chaos.
> Mnou uspechu pri vysvetlovano co a kdy jak ma vypadat.
> pavel
>
> ----- Original Message -----
> From: Roland Turcan (RoTurSoft) <rotursoft(zv)nextra.sk>
> > Rozsiril som si EditBox a ComboBox o FocusColor:=clAqua, ktory udava ze
> aku
> > farbu ma komponenta ak ma focus. Dalej kazda komponenta ktora je povinna
> na
> > vyplnenie je zltej farby. ALE ak ziska povinna focus tak je zafarbena na
> > FocusColor a nie je vidiet ci je povinna. Co by ste mi poradili na
> odlizenie
> > editu povinneho od nepovinneho ale pokial je mozne nezmenit farbu na inu.
> > Myslim ze nejake oramovanie cervenou pri fokuse,...
> >
> W2k & StatusBar
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.4.2000 09:50:32
Nemam W2K, ale tipnu si (W95, D3) ...
... mate nastavenou vlastnost SimplePanel na true ?
> ----------
> Od: Slavek Rydval[SMTP:rk(zv)atrey.karlin.mff.cuni(tec)cz]
>
> to Ti docela zavidim, protoze me to poradne nefungovalo nikdy.
> Pokud se vubec ten text vykreslil, pak se po prekryvani oknem
> smazal. Resim to tak, ze vzdy nastavim SimpleText na False a
> delam to pres panely.
>
> >
> > nevite nekdo nahodou, proc mi SimpleText ve StatusBar funguje
> > pouze u W2k? Pokud totiz spustim aplikaci (prelozenou ve W2k)
> > na jinem systemu (W98 SE), tak se mi SimpleText nezobrazuje :-((
> >
> > Filip Hyrs
> >
>
>
>
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> -------------------------------------------------
> http://www.swnet(tec)cz
> Magazin informacne vyspelych jedincu
> -------------------------------------------------
> Paradox
[*] Ivo HERR <ih(zv)safar(tec)cz> - 25.4.2000 10:11:51
Zdravim vsechny!
Prosim, jak "vycistim soubor" s paradoxovou tabulkou (tim myslim, jak
skutecne ze souboru odstranim smazane zaznamy)? EmptyTable smaze vsechny
zaznamy (i ty, co by mi tam mely zustat).
Diky
Ivo
Delka Ini souboru
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 25.4.2000 10:21:52
> Delka Ini souboru je omezena na nejakych 63 kb. Ja vsak potrebuji pracovat
> s Ini soubory, ktere mohou mit delku az 32 Mb.
** No pani! :-0)
>Nemate nekdo nejakou
> komponentu na bazi IniFiles, ktera by to zvladla? Pripadne nevite jak
> kapacitu ini souboru zvetsit?
** Nebolo by lepsie pri takom objeme dat radsej pouzit databazu?
Pavol Kaka�ka
paka(zv)aktis(tec)cz
TImage, PING
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 25.4.2000 10:41:24
> Aha, tak to sem si myslel, ale nevedel sem, jak to udelat... Ja
> myslel, ze to staci v tom Creatu... a spis naopak tomu formu, ze mam
> zdelit, ze ma na sobe nejaky image... Ale jinak dik.
>
> Surfman wrote:
> >
> > Ahoj
> >
> > Musis tem imagum taky rict
> >
> > parent := MainForm;
Jde o dve veci: parenta a ownera. Jako parametr v Create se
predava owner, tj. objekt, ktery odpovida za uvolneni pameti,
zatimco parenta je treba nastavit rucne a ten zase urcuje
vykreslovani (odkud se pocitaji souradnice apod.)
David
ListBox bez modreho radku
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 25.4.2000 10:10:05
Treba s usochovanim ItemIndex do Tagu:
procedure TForm2.ListBox2Enter(Sender: TObject);
begin
TListBox(Sender).ItemIndex := TListBox(Sender).Tag;
end;
procedure TForm2.ListBox2Exit(Sender: TObject);
begin
TListBox(Sender).Tag := TListBox(Sender).ItemIndex;
TListBox(Sender).ItemIndex := -1;
end;
Ahoj Tomas Bihary
PS: PROSTY TEXT !!!
----- Original Message -----
From: Pavel ZIDEK
To: Konference DELPHI forum
Sent: Tuesday, April 25, 2000 6:49 AM
Subject: ListBox bez modreho radku
Zdravim,
uz se tu nekdo ptal, jak odstranit z ListBoxu modry pruh posledniho radku
(pozici kurzoru), jakmile ListBox opustime. Menasel jsem odpoved a taky bych
potreboval tento problem vyresit. Kdo to vi at mi prosimmmmm odpovi.
Pavel
D4prof
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz
http://www.kopr(tec)cz/w-delphi.htm http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~mwCustomEdit
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 25.4.2000 10:17:30
Ale ovsem:
procedure TSForm.Replace1Click(Sender: TObject);
begin
if FEditor.SelText <> ''
then ReplaceDialog1.FindText := FEditor.SelText;
ReplaceDialog1.Execute;
end;
procedure TSForm.ReplaceDialog1Replace(Sender: TObject);
var
rOptions: TmwSearchOptions;
sSearch: string;
sReplace: string;
begin
sSearch := ReplaceDialog1.FindText;
sReplace := ReplaceDialog1.ReplaceText;
if Length(sSearch) = 0
then
Exit
else
begin
FindFlag := False;
rOptions := [mwsoReplace, mwsoPrompt];
// CASE SENSITIVE
if frMatchCase in ReplaceDialog1.Options then
Include(rOptions, mwsoMatchCase);
// WHOLE WORDS
if frWholeWord in ReplaceDialog1.Options then
Include(rOptions, mwsoWholeWord);
// REPLACE ALL
AllFlag := frReplaceAll in ReplaceDialog1.Options;
if AllFlag then
begin
Include(rOptions, mwsoReplaceAll);
ReplaceDialog1.CloseDialog;
end;
// DO IT!
if FEditor.SearchReplace(sSearch, sReplace, rOptions) = 0 then
begin
ReplaceDialog1.CloseDialog;
Application.MessageBox(PChar('Unable to replace search text "' +
sSearch + '"'#13'with "' + sReplace + '".'), PChar('Information'),
MB_ICONINFORMATION);
end;
FEditor.SetFocus;
end;
end;
procedure TSForm.mmoScriptReplaceText(Sender: TObject; const ASearch,
AReplace: string; Line, Column: Integer; var Action: TmwReplaceAction);
var
I: Integer;
begin
frmConfReplace.SS := ASearch;
frmConfReplace.RS := AReplace;
frmConfReplace.Button2.Enabled := AllFlag;
I := frmConfReplace.ShowModal;
case I of
mrYes: Action := mwraReplace;
mrAll: Action := mwraReplaceAll;
mrNo: Action := mwraSkip;
mrCancel: Action := mwraCancel;
end;
if I = mrCancel then ReplaceDialog1.CloseDialog;
end;
Ahoj Tomas Bihary
----- Original Message -----
From: Hurricane <hurricane(zv)email(tec)cz>
To: Delphi Forum <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, April 23, 2000 10:47 PM
Subject: mwCustomEdit
> Zdravim
>
> Mam pocit, �e m� listserver n�jakej problem s moji po�tou na email(tec)cz.
> Pota�mo se mnou. BTW nev�te, jestli m��u na odes�l�n� po�ty p�es ��et na
> email(tec)cz pou��t SMTP server Voln�ho? Douf�m, �e jo.
> -----
> A te� k dotaz�m:
> 1) Nem�te exampl k hled�n� a nahrazov�n� textu v mwCustomEditu? Hled�n�
sem
> sice jak�tak� ud�lal, ale s nahrazov�n�m si nevim rady.V helpu k mw je jen
> v��et mo�nost� k nastaven� hled�n�:
> TmwSearchOption = (mwsoMatchCase, mwsoWholeWord, mwsoBackwards,
> mwsoEntireScope, mwsoSelectedOnly, mwsoReplace, mwsoReplaceAll,
mwsoPrompt);
>
> 2) TFindDialog a TReplaceDialog mi vrac� nastaven� hled�n� ve form�tech
> TFindOptions. Probl�mje v tom, �e mw procedura pro hled�n� a nahrazov�n�
> pot�ebuje nastaven� ve form�tu TmwSearchOption. Tu��te jak to
> p�ekonvertovat? Vlastn� by to taky vy�e�il ten exampl k 1.
>
> 3) mwCustomEdit pot�ebuje pro tisk pomoc� intern� procedury
> mwCustomEdit.Print nastavovac� parametry ve form�tu TmwPrintOptions.
> TmwPrintOptions = record
> SelectedOnly: boolean;
> Highlighted: boolean;
> WrapLongLines: boolean;
> IgnoreColors: boolean;
> Copies: integer;
> MarginUnits: TmwMarginUnits;
> Margins: TRect;
> PrintRange: TRect;
> Title: string;
> Header: TStringList;
> Footer: TStringList;
> end;
> Kde je z�sk�m? Je na to n�jak� dialog? Standardn� dialog mi vrac� data v
> jinym form�tu a stejnak mi nevrac� v�echny pot�ebn� parametry. Ide�ln� by
> byl n�jakej speci�ln� mwPrintSetupDialog, nev�te n�kdo o n��em takov�m?
>
> 4) Jak se u mwCustomEditu nastavuje zalamov�n� ��dk�? (WordWrap) Mus� to
> p�ece n�jak j�t. V helpu je zm�nka o WrapLongLines jenom v souvislosti s
> TmwPrintOptions k tisku, ale o klasickym WordWrapu (true/false) jako m�
> TMemo help ml��. Nev�te jak se to nastavuje?
>
> Je�t� detail, nev�te jestli m��u do konference pos�lat dopisy i z jin�ch
> ��t�, ne� z toho, kter� sem zadal p�i registraci?
>
> P�edem d�kuji a dobr�m du��m p�eji co nejv�ce dokon�en�ch projekt�
> Hurricane
MessageBox x MessageDlg obecne
[*] delphi konference <delphi(zv)energotek(tec)cz> - 25.4.2000 11:49:26
Dobry den
-- Stringy se berou ze souboru consts.pas .
--Soubor lze upravit, znovu prekompilovat a pak by to melo byt cesky.
--Osobne mi to funguje.
> nevim, jak v jinych verzich Delphi, ale ve 4.0 a 5.0 to vubec neni pravda
> (alespon co se tyce dialogu).
--Mne to funguje.
--Postup : consts.pas zkopiruju k zdrojakum projektu, upravim si hlasky tak
--jak pro dany projekt potrebuju,
--pridam consts.pas k projektu a POZOR je nutne ho rucne v *.dpr presunout
na
--PRVNI misto a uvadet ho na prvnim miste v sekci uses.
1) Verze D4, NT4 SP5
Postupoval jsem presne podle navodu, ale mi to stale nefunguje...
muzete mi prosim poslat na adresu petrbl(zv)energotek(tec)cz kratkou aplikaci
kde funguje treba jen jedinny MessageDlg s ceskymi tlacitky?
2) dale resim tento problem
if MessageDlgPos('Chcete hledat v historii ?',mtInformation,[mbYes,
mbNo],0,(Form1.Left + 300),(Form1.Top + 380))=mrYes then
begin...
end
else exit
Toto vypise dialog box s tlacitky bohuzel anglicky, coz se zakaznikovi
nelibi, ale je mozne umistit dialog v lib X, Y souradnicich cehoz take
zhusta vyuzivam, aby nebyla prekryta ostatni vypsana data, podle kterych se
zakaznik rozhoduje.
Jak mam na tlacitka umistit cestinu? Pokud je vyse uvedeny zpusob
'Lokalizace' spatny, navic mi stejne nefunguje, jak to tedy udelat jinak?
nebo pomoci
if Application.MessageBox('Chcete hledat v historii ?', 'Dotaz na
u�ivatele', mb_applmodal+mb_iconquestion +mb_yesno+mb_defbutton1)=mrYes then
begin...
end
else exit
Kde jsou sitce ceska tlacitka a nadpis okna, ale zase nelze zadat souradnice
X,Y pro vypsani MessageBoxu, lze to nejak vyresit?
s pozdravem
Petr Blau
Paradox
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 25.4.2000 11:55:31
Podivej se na BDEAPI funkci dbiDoRestrukture() nebo dbiPackTable(). Vestisnou to
najdes i s priklady v BDE helpu
====================
Jan Fiala jan.fiala(zv)iol(tec)cz
Prog-Soft s.r.o. Plzen
====================
----- Original Message -----
From: Ivo HERR <ih(zv)safar(tec)cz>> Zdravim vsechny!
> Prosim, jak "vycistim soubor" s paradoxovou tabulkou (tim myslim, jak
> skutecne ze souboru odstranim smazane zaznamy)? EmptyTable smaze vsechny
> zaznamy (i ty, co by mi tam mely zustat).
> Diky
> Ivo
>Paradox
[*] Surfman <surfman(zv)volny(tec)cz> - 25.4.2000 12:09:05
Pouzij
dbiPackTable
Popis je v helpu BDE
Susfman
----- Original Message -----
From: "Ivo HERR" <ih(zv)safar(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, April 25, 2000 10:11
Subject: Paradox
> Zdravim vsechny!
> Prosim, jak "vycistim soubor" s paradoxovou tabulkou (tim myslim, jak
> skutecne ze souboru odstranim smazane zaznamy)? EmptyTable smaze vsechny
> zaznamy (i ty, co by mi tam mely zustat).
> Diky
> Ivo
>
>
> MDI aplikacia - pozicia okien
[*] Ondrej Jaura <jaura(zv)datalock.sk> - 25.4.2000 12:14:30
Prajem slnecny den :) Je mozne "resetovat" poziciu dalsieho vykreslovaneho okna v MDI
aplikacii, t.j. tak, aby sa vykreslilo do laveho horneho rohu a dalsie
vyvolavane okna postupne za nim?
(D5 Prof, WinNT 4)
Vopred dakujem za zachranne kolesa
Ondrej
[ Ondrej Jaura ] [ jaura(zv)datalock.sk ] [ Datalock a.s. ] [ :) ]
Paradox
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.4.2000 12:20:08
Dle prikladu v helpu jsem si kdysi napsal tuto procedurku...
uses DB, BTables, BDE;
procedure PackTable(var Table: TTable);
var
Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
TableOpen,
TableExclusive : boolean;
begin
//Zapamatovat puvodni hodnoty a stavy...
TableOpen:=Table.Active;
TableExclusive:=Table.Exclusive;
if TableOpen then
begin
if Table.State in [dsEdit, dsInsert] then
try
Table.Post;
except
raise EDatabaseError.Create(ETablePost);
end;
Table.Close;
end;
Table.Exclusive:=true;
try
Table.Open;
except
raise EDatabaseError.Create(Format(ETableOpen, [Table.TableName]));
end;
{ try}
Check(DbiGetCursorProps(Table.Handle, Props));
if Props.szTableType = szPARADOX then
begin
// Blank out the structure...
FillChar(TableDesc, SizeOf(TableDesc), 0);
// Get the database handle from the table's cursor handle...
Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
// Put the table name in the table descriptor...
StrPCopy(TableDesc.szTblName, Table.TableName);
// Put the table type in the table descriptor...
StrPCopy(TableDesc.szTblType, Props.szTableType);
// Set the Pack option in the table descriptor to TRUE...
TableDesc.bPack := True;
// Close the table so the restructure can complete...
Table.Close;
// Call DbiDoRestructure...
Check(DbiDoRestructure(hDb, 1, (zv)TableDesc, nil, nil, nil, False));
end
else
// If the table is a dBASE table, simply call DbiPackTable...
if (Props.szTableType = szDBASE) then
Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, True))
else
// Pack only works on PAradox or dBASE; nothing else...
raise EDatabaseError.Create(ETableMustBePdoxOrDBase);
//Obnovit puvodni hodnoty a stavy
if Table.Active then
Table.Close;
Table.Exclusive:=TableExclusive;
if TableOpen then
try
Table.Open;
except
raise EDatabaseError.Create(Format(ETableOpen, [Table.TableName]));
end;
{ except
raise EDatabaseError.Create(EPack);
end;}
end;> ----------
> Od: Ivo HERR[SMTP:ih(zv)safar(tec)cz]
>
> Prosim, jak "vycistim soubor" s paradoxovou tabulkou (tim myslim, jak
> skutecne ze souboru odstranim smazane zaznamy)? EmptyTable smaze vsechny
> zaznamy (i ty, co by mi tam mely zustat).
> Ulozeni vysledku Query do souboru v ODBC
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 25.4.2000 12:44:40
D5 prof
Existuje pro ODBC nejaka obdoba funkce BDE dbiMakePermanent(), ktera ulozi
vysledek SQL dotazu (temporary table) do tabulky na disku ? Samozrejme jde
pouzit BatchMove ale ...
Jan Fiala
MapiSendMail
[*] L. ZITA <konference(zv)sales(tec)cz> - 25.4.2000 12:52:08
Behalf Of Radovan Popovic
>Chcel by som vytvorit novy mail a zaradit ho do zlozky POSTA K ODESLANI.
>Nasledujuci kod je z aplikacie LOGOAPP z Delphi
...
Zkontroluj si, jestli mas pouzivany postovni program nastaveny jako SIMPLE
MAPI.
Nekdy se ovsem podle mych zkusenosti "podari" takova instalace Win, ze to
treba pro OutlookExpress nejde nastavit a furt to leze do Outlooku nebo
Exchange.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.129 / Virov� b�ze: 61 - datum vyd�n�: 3.3.2000
Test dostupnosti sitove tiskarny
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 25.4.2000 12:53:38
Delphi 5 Enterprise + SP1
Prosim o radu s nasledujicim problemem:
Potrebuji vytisknout sestavu na tiskarne, jejiz jmeno je zadane jako hodnota
polozky v souboru. Umim zjistit, zda dana tiskarna existuje ve Windows a
umim se na ni prepnout. Nevim ale, jak mohu pred tiskem zjistit, je-li tato
tiskarna na siti prave dostupna (je-li nabidnuta ke sdileni,nebo neni-li
uplne odpojena).
Predem dekuju za radu
Jaromir Cermak
MDI aplikacia - pozicia okien
[*] Ren� Otisk - 25.4.2000 13:01:19
Hi,
Mno, snad for i := MDIChildren[i] down to 0 do
{nastavit Z-order a Position}
ale treba na to bude nejaka API fce, na to jsou tady amatersti programatori.
Nemysleno zle. Uprimne - zaplatpanbu za jejich (jeho?) pomoc...
Sroub
----- Original Message -----
From: Ondrej Jaura <jaura(zv)datalock.sk>
To: Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, April 25, 2000 12:14 PM
Subject: MDI aplikacia - pozicia okien
> Prajem slnecny den :)
>
> Je mozne "resetovat" poziciu dalsieho vykreslovaneho okna v MDI
> aplikacii, t.j. tak, aby sa vykreslilo do laveho horneho rohu a dalsie
> vyvolavane okna postupne za nim?
>
> (D5 Prof, WinNT 4)
>
> Vopred dakujem za zachranne kolesa
>
> Ondrej
>
> [ Ondrej Jaura ] [ jaura(zv)datalock.sk ] [ Datalock a.s. ] [ :) ]
>W2k & StatusBar
[*] Filip T. HYRS <tyu(zv)molly.vabo(tec)cz> - 25.4.2000 13:34:12
From: Mal Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
To: delphi-l(zv)fwd(tec)cz
Subject: RE: W2k & StatusBar
Date sent: Tue, 25 Apr 2000 09:50:32 +0200
Send reply to: delphi-l(zv)fwd(tec)cz
> Nemam W2K, ale tipnu si (W95, D3) ...
> ... mate nastavenou vlastnost SimplePanel na true ?
(W2k, D4);
Mate pravdu, SimplePanel true a funguje
(ve W2k to ale fungovalo i na false)
omlouvam se za takovou banalitu :-((
> > ----------
> > Od: Slavek Rydval[SMTP:rk(zv)atrey.karlin.mff.cuni(tec)cz]
> >
> > to Ti docela zavidim, protoze me to poradne nefungovalo nikdy.
> > Pokud se vubec ten text vykreslil, pak se po prekryvani oknem
> > smazal. Resim to tak, ze vzdy nastavim SimpleText na False a
> > delam to pres panely.
> >
> > >
> > > nevite nekdo nahodou, proc mi SimpleText ve StatusBar funguje
> > > pouze u W2k? Pokud totiz spustim aplikaci (prelozenou ve W2k)
> > > na jinem systemu (W98 SE), tak se mi SimpleText nezobrazuje :-((
> > >
> > > Filip Hyrs
> > >
> >
> >
> >
> > -------------------------------------------------
> > http://atrey.karlin.mff.cuni(tec)cz/~rk
> > -------------------------------------------------
> > http://www.swnet(tec)cz
> > Magazin informacne vyspelych jedincu
> > -------------------------------------------------
> >
Paradox LiveQuery
[*] Martin Lasevi� <vyvoj(zv)atlascon(tec)cz> - 25.4.2000 13:38:39
Myslim si, ze jakmile se data v Query ORDER BY, tak uz nelze editovat.
Martin
P�kn� den a pilot�m ��astn� p�ist�n� ...
============================
ML Software - Martin Lasevi�
Budovatelsk� 459
708 00 Ostrava-Poruba
tel., fax.: +420 ( 69) 691 85 11
mobil : +420 (603) 338 765
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
============================
>
> Nevite nekdo, jake pravidla pro strukturu musi mit tabulka v Paradoxu,
> aby SQL dotaz na ni, ktery obsahuje ORDER BY byl editovatelny ?
>
> Zkousel jsem vsechno podle helpu, ale porad je vysledek dotazu jen ke
> cteni.
>
> Diky
> Jiri Sevecek
> Paradox LiveQuery
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 25.4.2000 13:50:55
Pokud vim, tak jakmile pouzijes bud vice nez jednu tabulku, nebo
jakmile pouzijes Order by tak mas smulu, jedina moznost je pres
Update object a pak uz to funguje vzdy.
> Nevite nekdo, jake pravidla pro strukturu musi mit tabulka v Paradoxu,
> aby SQL dotaz na ni, ktery obsahuje ORDER BY byl editovatelny ?
>
> Zkousel jsem vsechno podle helpu, ale porad je vysledek dotazu jen ke
> cteni.
>
> Diky
> Jiri Sevecek
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Odchyceni znaku vyvolaneho klavesou
[*] Lubos RYBNICEK <mosek(zv)admiton(tec)cz> - 25.4.2000 13:54:29
Caute lidi,
potreboval bych vedet, jak zjistim, ktery znak byl vygenerovan po zmacknuti
nejake klavesy. Umim zjistit, ze byla stisknuta klavesa '2', jak lze ale
zjistit, jestli to vygeneruje '<e s hackem>' nebo '2' nebo '(zv)' nebo cokoliv
jineho v zavislosti na lokalizaci? Nepiste mi ze to jde pres OnKeyXXX, ja to
potrebuju obecne do jakehokoliv okna ve Windows (mozna znam jeho HWND)
Diky za kazdy nasmerovani.
Lubos Rybnicek
ICQ UIN 18817151
Phone: +420 603 916889
Paradox LiveQuery
[*] Ren� Otisk - 25.4.2000 14:06:45
Hi,
Zaznam nelze editovat, jestlize pouzijes-li v prikazu ORDER BY.
Sroub
> Nevite nekdo, jake pravidla pro strukturu musi mit tabulka v Paradoxu,
> aby SQL dotaz na ni, ktery obsahuje ORDER BY byl editovatelny ?
>
> Zkousel jsem vsechno podle helpu, ale porad je vysledek dotazu jen ke
> cteni.
>
> Diky
> Jiri Sevecek
Zachyceni spousteni aplikace
[*] Radim Brozek <radim.brozek(zv)berit(tec)cz> - 25.4.2000 14:11:15
Nemate nekdo k dispozici tento soubor ? Nedari se mi jej z uvedene adresy stahnout.
Dekuji.
S pozdravem Miki
-----Original Message-----
From: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
Sent: Monday, April 24, 2000 10:45 PM
To: Konference Delphi
Subject: Re: Zachyceni spousteni aplikace
From: <delphi(zv)zas-me(tec)cz>
> mohl by mi nekdo poradit, jak napsat program, ktery zachyti jakekoliv
> spousteni jinych aplikaci (jako to delaji treba antiviry)? Potreboval bych
> studentum ve skole zabranit spousteni ruznych (zatim nastesti vetsinou
> neskodnych) programku, ktere jim zvenku posilaji kamaradi mailem.
Ahoj,
jedna z moznosti je rozsireni shellu pomoci implementace IShellExecuteHook.
Priklad najdes tady:
ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D5/Other/DelphiDays99_ShellExecuteHook.zip
Petr Vones, amatersky programator
Re2: mwCustomEdit
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 25.4.2000 13:16:34
Ahoj,
Sorry, odchazel jsem a muj predchozi mail nemel byt jeste odeslan :-( ???
ad 1) viz muj predchozi mail. Cast je prevzata z dema k mwEditu,
ktere mi bylo inspiraci. Je docela dobry se na to kouknout.
ad 2) podle hodnot TFindOptions nastavis TmwSearchOptions.
ad 3) Zase jde jen o to napnit dany record daty a ty musis nekde ziskat.
Asi by se hodil upgrade standartniho dialogu (uz se tady o tom psalo v
souvislosti s TOpenDialog = urob si sam) nebo se koukni jestli uz neni
na svete novejsi verze mwEditu, ktera by to umela.
ad 4) jelikoz je mwEdit dost inspirovanej editorem v Delphi asi
neco takovyho fungovat nebude.
Do konference muzes prispivat jen z te adresy, ze ktere si se prihlasil.
Ahoj Tomas Bihary
Paradox LiveQuery
[*] Jiri Sevecek <Jiri.Sevecek(zv)khsova(tec)cz> - 25.4.2000 13:16:50
Nevite nekdo, jake pravidla pro strukturu musi mit tabulka v Paradoxu,
aby SQL dotaz na ni, ktery obsahuje ORDER BY byl editovatelny ?
Zkousel jsem vsechno podle helpu, ale porad je vysledek dotazu jen ke
cteni.
Diky
Jiri Sevecek
pararelny port
[*] Martin <geoplan(zv)pp.sinet.sk> - 25.4.2000 15:33:34
dobry,
potrebujem monitorovat pararelny port. Mohol by ma niekto nasmerovat ? komponenty, unity, manualy, hocico.
vdaka, D5
martin
Paradox LiveQuery
[*] delphi(zv)zas-me(tec)cz - 25.4.2000 15:44:08
V BDE 4 myslim tvrdi, ze editovat to jde tehdy, kdyz ORDER BY pouziva presne
ta pole, podle kterych je sestaven primarni index; musi byt i ve stejnem
poradi jako v tom primarnim indexu.
Starsi BDE tvrdily leccos, ale nefungovalo to - ORDER BY vzdy zpusobilo, ze
dotaz byl "mrtvy".
Je to popsano v napovede k Local SQL.
Karel Rys
>Nevite nekdo, jake pravidla pro strukturu musi mit tabulka v Paradoxu,
>aby SQL dotaz na ni, ktery obsahuje ORDER BY byl editovatelny ?
>Pristup k datum - beginner.
[*] Michal David <michal(zv)access-it(tec)cz> - 25.4.2000 09:50:36 -0400
zdravim
a umozni mi to po natazeni do pameti pracovat s jednotlivymi zaznamy?
D.M.
ahoj
mam na to udelanou komponetu, ktra umi
nacist cely obsah record vcetne blob (!!!) do pameti a pak ho zase vlozit
do jineho recordu. Pokud to budes chtit tak poslu.
S pozdravem Heinisch Jiri
Paradox LiveQuery
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 25.4.2000 15:52:29
Mam dojem, ale ruku do ohne za to nedam, ze resenim
je vytvorit k te tabulce, na tom sloupci index, a potom
to snad bude fungovat (vyzkousene to vsak nemam), ale
jestli mohu radit, nenechavej uzivatele jen tak
vesele editovat data...
Dobra.
> ----------
> Od: Ren> � Otisk[SMTP:otisk(zv)misel(tec)cz]
>
> Zaznam nelze editovat, jestlize pouzijes-li v prikazu ORDER BY.
>
>
> > Nevite nekdo, jake pravidla pro strukturu musi mit tabulka v Paradoxu,
> > aby SQL dotaz na ni, ktery obsahuje ORDER BY byl editovatelny ?
> >
> > Diky
> > Jiri Sevecek
> Pristup k datum - beginner.
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 25.4.2000 16:29:50
ahoj,
co treba :
zaznam typu string := TTable.Fields[0].AsString;
M.Jirman
----- Original Message -----
From: Michal David <michal(zv)access-it(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, April 20, 2000 1:32 AM
Subject: Pristup k datum - beginner.> Zdravim,
> Jsem zacatecnik v delphi asi tydeni lamer. :))
> Mam dotaz jak si ulozim jeden zaznam z TTable do promenne?
>
> Hledal jsem neco jako:
> type
> rec = record of Table1;
> end;
>
> var
> zaznam : rec;
> end;
>
> Ale neuspel jsem.
>
> Mate nekdo nejake elagantni reseni. Nechce se mi deklarovat a vypisovat
vsechny fields.
> Diky a jsem s pozdravem.
> Michal David
>
> P.S. Vite nekdo o konferenci pro uplne zacatecniky?
>
>
>
>
Patch na D5
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 25.4.2000 16:29:46
ahoj,
nevim presnou adresu, ale na www.borland.com je ikona
delphi a tam v news moznosti tri update packu (STD, PROFI, ENT)
(ten 19MB bude nejspis pro D5 STD, protoze pro D5 Ent ma 29MB)
M.Jirman
----- Original Message -----
From: Pavel �ern� <cerny(zv)cerny-ps(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, April 19, 2000 10:45 AM
Subject: Patch na D5
Prosim o radu - pripadam si jako blbec.
K Delphi 5 by podle ruznych zminek v teto konferenci
mel byt jakysi patch. Kde ho najdu ?
Na Borland support develop strankach to vypada, ze
" ... si to muzu z teto stranky stahnout ... ", ale ja to
tam nejak nemuzu najit.
Na FTP u Borlandu je D5 UpDate, ktery ma cca 19 MB,
tak nevim, jestli to je ono, nebo to je Update ze starsich verzi.
A jeste - ADO komponenty k D5 Prof nejsou ? To je az u
Enterprise ??
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
Hled�n� v Memu
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 25.4.2000 16:44:46
ahoj,
hledam v 17kB textaku a chodi to bezproblemu.
procedure TForm1.Button1Click(Sender: TObject);
var
FoundAt: LongInt;
s: string;
p, fnd: PChar;
begin
with Memo1 do
begin
s:=Text;
p:=PChar(s);
inc(p, SelStart+SelLength);
fnd:=AnsiStrPos(p, PChar(hledanystring));
if fnd <> nil then
begin
FoundAt:=fnd-PChar(s);
SetFocus;
SelStart:=FoundAt;
SelLength := Length(hledanystring);
end
else
begin
SelStart:=0;
end;
end;
end;
M.Jirman
From: Daniel Krej�� <fredycrueger(zv)volny(tec)cz>
> Nev�te n�kdo jak se d� hledat v Memu a nalezeny text zvyraznit? Pomoc�
> funkce Pos() to nejde, protoze ten pracuje se stringama.
> Zkousel jsem kazdou z tech Lines vzit jako string, ale za prve to trva
> strasne dlouho (30 Kb textu) a najde vzdy az to posledni hledane slovo, ty
> predtim ignoruje. Muzete mi nekdo poslat nejakou komponentu nebo kousek
> kodu?
MessageBox x MessageDlg obecne
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 25.4.2000 17:33:55
On 25 Apr 00, at 11:49, delphi konference wrote:
> kterych se zakaznik rozhoduje. Jak mam na tlacitka umistit cestinu?
> Pokud je vyse uvedeny zpusob 'Lokalizace' spatny, navic mi stejne
> nefunguje, jak to tedy udelat jinak?
http://www.localizator.com
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Nazev tridy zadat v Design timu?
[*] Tomas Vesely <veselyt(zv)atlas(tec)cz> - 25.4.2000 20:44:16
Ahoj,
nevite nekdo jak na tento problemek?
Mam property u komponenty typu String v ni je zadana Trida napr. TEdit, jak ji v runtimu vygenerovat? Dik za tip.
Vesna
Detekce a preruseni TCP/IP spojeni
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.4.2000 22:47:17
From: Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz>
> existuje nejake API pro detekci (enumeraci) aktivnich
> TCP/IP spojeni a jeji nasilne programove
> preruseni (program neni ani klient ani server
> tohoto spojeni). Potreboval bych takto omezit
> pristup k serverove aplikaci, ktera podobne
> omezeni pristupu nepodporuje.
Ahoj,
Podivej se na http://www.sysinternals.com/tcpview.htm , tam je utilita NETSTAT
i se zdrojaky. Je to v C, ale to si prepises.
> PS: Koukal sem co importuje netstat. Zajimavych je
> pet funkci z WSOCK32.Dll (podle indexu, ze by
> zase nedokumentovane API?).
Ty funkce jsou sice importovany pomoci indexu, ale existuji pro ne nazvy v
knihovne ze ktere jsou importovany. Staci tedy pouzit vhodny nastroj :-)
ktery tyto informaci ziska:
Name Ordinal Hint Module
---------------- ------- ---- -----------
[htons] 9 0 wsock32.dll
[gethostbyaddr] 51 0 wsock32.dll
[getservbyport] 56 0 wsock32.dll
[gethostname] 57 0 wsock32.dll
[WSAStartup] 115 0 wsock32.dll
SnmpUtilMemAlloc 22 snmpapi.dll
SnmpUtilMemFree 23 snmpapi.dll
Petr Vones, amatersky programator
Problemy s typovymi soubory
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 25.4.2000 22:48:59
Vytvoril jsem si urcity, hodne rozsahly typ record, a promene ukladam do souboru tohoto typu. Ma to vsak dve podstatne nevyhody. Nevim jak v tomto typovem souboru preskakovat, neboli, jak si precist treba predposledni hodnotu, aniz bych musel zbytecne nacitat tisic predchozich. Procedura seek funguje jen na file of char. Dalsi nevyhoda je, ze vsechny stringy musi mit predem urcenou delku, takze kdyz ji urcim treba na 4 000 znaku, a pak hodnotu tohoto stringu nastavim treba na 'a', tak tam mam 3 999 zbytecnych znaku a vysledny soubor je zbytecne velky. Nevite nekdo jak tyto problemy vyresit?
Pitr - Petr Vobornik
MIKMIK company
vobornik(zv)ssakhk(tec)cz
ICQ# 23132120
www.ssakhk(tec)cz/home/vobornik/Nazev tridy zadat v Design timu?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 25.4.2000 23:47:19
From: Tomas Vesely <veselyt(zv)atlas(tec)cz>
> Mam property u komponenty typu String v ni je zadana Trida napr. TEdit, jak
> ji v runtimu vygenerovat? Dik za tip.
Ahoj,
napriklad takhle:
procedure TForm1.Button1Click(Sender: TObject);
begin
with TControlClass(FindClass('TEdit')).Create(Self) do
begin
Name := 'Edit1';
SetBounds(10, 10, 100, Height);
Parent := Self;
end;
with TControlClass(FindClass('TCheckBox')).Create(Self) do
begin
Name := 'CheckBox1';
SetBounds(200, 10, 100, Height);
Parent := Self;
end;
end;
initialization
RegisterClasses([TEdit, TCheckBox]);
end.
Detekce a preruseni TCP/IP spojeni
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 26.4.2000 06:47:34
> Podivej se na http://www.sysinternals.com/tcpview.htm , tam je utilita NETSTAT
> i se zdrojaky. Je to v C, ale to si prepises.
Diky, sem hlava dubova, sysinternals me nenapadlo. Pokud dobre
vidim tak jejich netstat spojeni taky rusit neumi.
Zacinam se obavat se to sice jde, ale nejakou dabelskou
cestou.
> Ty funkce jsou sice importovany pomoci indexu, ale existuji pro ne nazvy v
> knihovne ze ktere jsou importovany. Staci tedy pouzit vhodny nastroj :-)
> ktery tyto informaci ziska:
Na tohle jsem zahy taky prisel, ale vzhledem k tomu, ze se zadna
black magic nekonala, taxem nepovazoval za nutne
se o tom zminovat.
Ondrej Krajicek
--
-----------------------------------------------------------
Ondrej Krajicek mailto:xkrajic(zv)ics.muni(tec)cz
Institute of Computer Science, Masaryk University Brno
-----------------------------------------------------------
Radek v RichEditu
[*] sup(zv)svitap(tec)cz - 26.4.2000 7:25:28
Dobry den, mam malinkaty problemecek. Jak zjistim cislo radku v richeditu,
na kterym je kurzor nebo na kterem jsem kliknul mysi? Event Mousedown mi
zjisti pouze souradnice v pixelech... V Helpu jsem nic nenasel....
D3P, D5E, Win98
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
Problemy s typovymi soubory
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 26.4.2000 08:05:47
----- Original Message -----
From: Petr Voborn�k Vytvoril jsem si urcity, hodne rozsahly typ record, a promene ukladam do souboru tohoto typu. Ma to vsak dve podstatne nevyhody. Nevim jak v tomto typovem souboru preskakovat, neboli, jak si precist treba predposledni hodnotu, aniz bych musel zbytecne nacitat tisic predchozich. Procedura seek funguje jen na file of char. Dalsi nevyhoda je, ze vsechny stringy musi mit predem urcenou delku, takze kdyz ji urcim treba na 4 000 znaku, a pak hodnotu tohoto stringu nastavim treba na 'a', tak tam mam 3 999 zbytecnych znaku a vysledny soubor je zbytecne velky. Nevite nekdo jak tyto problemy vyresit?
Seek by mel fungovat. ten nechodi pouze na textovych souborech.
Tvuj druhy problem vyplyva z pouziteho typu souboru. File Of Record potrebuje pevnou delku vety. Je to hodne podobne databazove tabulce. Pokud bys chtel mit delku vety promenlivou, musel bys napr. jednotlive hodnoty prevadet na string, oddelovat je nejakym znakem. Pak bys mel co radek to vetu, ale zkomplikovalo by se ti nacitani a zapisovani. Dalsi moznosti je soubor zpakovat, pred pouzitim jej rozbalit ... Zalezi na jeho velikosti. Mohl bys taky pouzit Textovou tabulku, to lze i bez BDE.
Jan Fiala
nadefinovat vlastn� agregacn� funkci
[*] Soudny, Jiri <Jiri.Soudny(zv)oriflame(tec)cz> - 26.4.2000 08:18:33
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Nejde v SQL prostred� (pohybuji se pouze v Microsoft Jetu MSAccessu,
ale to snad nevad�), nadefinovat vlastn� agregacn� funkci ? Konkretne
napr. soucet textov�ch retezcu oddelen�ch stredn�ky. Pripada mi, ze je
to stejny princip jako Sum, Max nebo Count a dotazem to elegantne
neum�m.
Jirka
Radek v RichEditu
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 26.4.2000 08:20:57
nRadek:= SendMessage(RichEdit.Handle, EM_EXLINEFROMCHAR,
0,RichEdit.SelStart);
Z.Fryz
> -----P�vodn� zpr�va-----
> Od: sup(zv)svitap(tec)cz
> Odesl�no: 26.04.2000 07:25
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Radek v RichEditu
>
> Dobry den, mam malinkaty problemecek. Jak zjistim cislo radku v richeditu,
>
> na kterym je kurzor nebo na kterem jsem kliknul mysi? Event Mousedown mi
> zjisti pouze souradnice v pixelech... V Helpu jsem nic nenasel....
>
>
>
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Problemy s typovymi soubory
[*] Pavel Hampl <phampl(zv)chmi(tec)cz> - 26.4.2000 06:30:52
Tu ruznou delku stringu bych resil otevrenim souboru ne jako typoveho,
ale jako binarniho a zapisem blockread a blockwrite(sizeof) nebo treba
var s:string; { soucast recordu }
var f:file;
assignfile(f,jmeno);
rewrite(f,1);
blockwrite(f,s[0],1); {tim se ulozi delka stringu}
blockwrite(f,s[1],s[0]); {tim se ulozi vlastni string}
a ostatni promenne ukladat
blockwrite(f,promenna,sizeof(typ_promenne));
closefile(f)
no a cteni obdobne
assignfile(f,jmeno);
reset(f,1);
blockread(f,s[0],1); { tim se nacte delka stringu; }
blockread(f,s[1],s[0]); { tim se nacte string;}
blockread(f,promenna,sizeof(typ_promenne));
closefile(f);
proste si udelat vlastni proceduru. Idealni by asi bylo zadefinovat
record jako objekt a nacteni a zapsani jako jeho metody?
S tim vyhledavanim je trochu problem, asi bych si udelal nejake indexove
pole zacatku jednotlivych recordu, protoze v binarnich souborech "seek"
funguje.
Nejsem si jisty, jestli je vsechno korektni, protoze jsem v linuxu a
nemam moznost si to ted ozkouset. Ale snad by to mohlo takhle pracovat.
Ty stringy museji byt kratke, stare packalske, ne ANSIstringy! jinak se
to musi delat jinak.
--
______________________
Pavel Hampl
dru�icov� odd�len�, �esk� hydrometeorologick� �stav
satellite group, Czech hydrometeorological inst.
> Petr Voborn�k wrote:
>
> Vytvoril jsem si urcity, hodne rozsahly typ record, a promene ukladam
> do souboru tohoto typu. Ma to vsak dve podstatne nevyhody. Nevim jak v
> tomto typovem souboru preskakovat, neboli, jak si precist treba
> predposledni hodnotu, aniz bych musel zbytecne nacitat tisic
> predchozich. Procedura seek funguje jen na file of char. Dalsi
> nevyhoda je, ze vsechny stringy musi mit predem urcenou delku, takze
> kdyz ji urcim treba na 4 000 znaku, a pak hodnotu tohoto stringu
> nastavim treba na 'a', tak tam mam 3 999 zbytecnych znaku a vysledny
> soubor je zbytecne velky. Nevite nekdo jak tyto problemy vyresit?
>
> Pitr - Petr Vobornik
> MIKMIK company
> vobornik(zv)ssakhk(tec)cz
> ICQ# 23132120
> www.ssakhk(tec)cz/home/vobornik/Formular v DLL
[*] Martin Lasevi� <vyvoj(zv)atlascon(tec)cz> - 26.4.2000 08:58:09
Toto uz jsem jednou resil, ale ty problemy za to nestoji.
Principialne ho musis volat tak, ze ho nesmis spouste primo, ale jeste prostrednictvim jednoho DLL. Ale i tak je to celkem
komplikovane, protoze se kompletne prevraci sled obsluhy klaves, pretavaji fungovat shortcuty v menu a tp. Takze se radeji
vracim k MDI jako EXE.
Martin
P�kn� den a pilot�m ��astn� p�ist�n� ...
============================
ML Software - Martin Lasevi�
Budovatelsk� 459
708 00 Ostrava-Poruba
tel., fax.: +420 ( 69) 691 85 11
mobil : +420 (603) 338 765
E-mail : ml_software(zv)email(tec)cz
WWW: http://www.volny(tec)cz/ml_software
============================
> -----P�vodn� zpr�va-----
> Od: martin.falta(zv)obi.de [SMTP:martin.falta(zv)obi.de]
> Odesl�no: 26. dubna 2000 9:27
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Formular v DLL
>
>
>
> Ahoj,
>
> mam formular v DLL knihovne. V zavislosti na parametru ho potrebuji zobrazit
> jako modalni dialog nebo jako MDI child. Jako modalni dialog ho zobrazim bez
> problemu, ale porad se mi nedari ho zobrazit jako MDI child. Nevite nekdo, co s
> tim?
>
> Predem dekuji.
>
> Martin
>
> D3 C/S, Win98
>
>
> IMPORTANT NOTICE:
> This email is confidential, may be legally privileged, and is for the
> intended recipient only. Access, disclosure, copying, distribution, or
> reliance on any of it by anyone else is prohibited and may be a criminal
> offence. Please delete if obtained in error and email confirmation to the sender.Formular v DLL
[*] martin.falta(zv)obi.de - 26.4.2000 08:26:55
Ahoj,
mam formular v DLL knihovne. V zavislosti na parametru ho potrebuji zobrazit
jako modalni dialog nebo jako MDI child. Jako modalni dialog ho zobrazim bez
problemu, ale porad se mi nedari ho zobrazit jako MDI child. Nevite nekdo, co s
tim?
Predem dekuji.
Martin
D3 C/S, Win98
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the sender.nadefinovat vlastn� agregacn� funkci
[*] Bosnis <bosnis(zv)atlas(tec)cz> - 26.4.2000 09:29:26
[P��loha v souboru: winmail.dat]
v nekterych jazycich SQL existuje funkce list(), ktera spoji texty do
seznamu oddeleneho carkou
P�.
select list(text),groupid
from tabulka
group by groupid
udelat vlastni agregacni funci jsem nezkousel, ale snad by to slo pres
ulozene procedury[funkce] ( v Accessu pres nejake makro )
pak by volani mohlo vypadat takto:
select mylist(A.groupid),A.groupid
from (
select groupid
from tabulka
group by groupid ) as A
obecneji takto
select mylist(A.groupid,'tabulka'),A.groupid
from (
select groupid
from tabulka
group by groupid ) as A
Ing. Pavel SPEJTEK
e-mail: bosnis(zv)atlas(tec)cz
www: http://freeweb.coco(tec)cz/ps/index.html
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz] On
> Behalf Of Soudny, Jiri
> Sent: Wednesday, April 26, 2000 8:19 AM
> To: DELPHI, konference
> Subject: nadefinovat vlastn� agregacn� funkci
>
> Nejde v SQL prostred� (pohybuji se pouze v Microsoft Jetu MSAccessu,
> ale to snad nevad�), nadefinovat vlastn� agregacn� funkci ? Konkretne
> napr. soucet textov�ch retezc? oddelen�ch stredn�ky. Pripada mi, ze je
> to stejny princip jako Sum, Max nebo Count a dotazem to elegantne
> neum�m.
>
> Jirka
>
Problemy s typovymi soubory
[*] VOTAVA Jan <Jan.Votava(zv)epe(tec)cz> - 26.4.2000 10:26:53
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Jste si jist� t�m, �e seek funguje jen pro file of char? V Borland Pascalu
to rozhodne fungovalo i pro file of record ... Jen posunut� se neud�valo v
po�tech byt�, ale v po�tech cel�ch z�znam� (record).
Honza
-----Original Message-----
From: Petr Voborn�k [mailto:vobornik(zv)ssakhk(tec)cz]
Sent: Tuesday, April 25, 2000 10:49 PM
To: Konference Delphi
Subject: Problemy s typovymi soubory
Vytvoril jsem si urcity, hodne rozsahly typ record, a promene ukladam do
souboru tohoto typu. Ma to vsak dve podstatne nevyhody. Nevim jak v tomto
typovem souboru preskakovat, neboli, jak si precist treba predposledni
hodnotu, aniz bych musel zbytecne nacitat tisic predchozich. Procedura seek
funguje jen na file of char. Dalsi nevyhoda je, ze vsechny stringy musi mit
predem urcenou delku, takze kdyz ji urcim treba na 4 000 znaku, a pak
hodnotu tohoto stringu nastavim treba na 'a', tak tam mam 3 999 zbytecnych
znaku a vysledny soubor je zbytecne velky. Nevite nekdo jak tyto problemy
vyresit?
Pitr - Petr Vobornik
MIKMIK company
vobornik(zv)ssakhk(tec)cz <mailto:vobornik(zv)ssakhk(tec)cz>
ICQ# 23132120
www.ssakhk(tec)cz/home/vobornik/ <http://www.ssakhk(tec)cz/home/vobornik/>
MDI aplikace - mizejici ikonky formulare
[*] delphi(zv)zas-me(tec)cz - 26.4.2000 10:37:02
Rekl bych, ze k tomu dochazi jen tehdy, kdyz jedno MDI-child okno obsahuje
vlastni menu, ktere se ma spojit s menu hlavniho okna. Je ale zvlastni, ze
mam dejme tomu tri MDI-child okna, dve bez menu, treti menu ma. S ikonkami
to dopadne obvykle tak, ze zustanou jen jednomu z tech dvou oken bez menu.
Nekdy ale nezustanou zadnemu oknu. Nekdy se take stane, ze se ikonky
zobrazi, ale ikonka na zavreni okna je seda, jako kdyz je nedostupna, ale
funguje pritom normalne.
Karel Rys
>>vetsinou zmizi ikonky pro minimalizaci, maximalizaci a zavreni okna.
>
>Dokazes to opakovane navodit?
>Meli jsme podobny problem. Pri startu aplikace se podle
>ini souboru otviraly child okna a pri tom se nastavoval jejich WindowState.
>Stacilo posunout nastaveni WindowState za misto kdy je
>MainForm vytvoren a _zobrazen_.
>
>S pozdravem
>Miloslav Skacel
>skacel(zv)stereo(tec)cz
>www.stereo(tec)cz
>
>
>MDI aplikace - mizejici ikonky formulare
[*] delphi(zv)zas-me(tec)cz - 26.4.2000 10:59:34
Tak uz muzu problem upresnit - ikonky zlobi v pripade, ze se meni
viditelnost nektere polozky menu. Napr. v ukazkove aplikaci TextEdit, ktera
je u Delphi, staci otevrit formular MDIEdit a do udalosti OnActivate nebo
OnShow napsat:
Edit1.Visible:=random>0.5;
Nekdy se to projevi hned, jindy az po nekolikerem prepnuti aktivniho okna
napr. pomoci Ctrl+F6. Myslite, ze delam neco spatne, nebo je chyba nekde
dal?
Diky,
Karel Rys
>>vetsinou zmizi ikonky pro minimalizaci, maximalizaci a zavreni okna.
>
>Dokazes to opakovane navodit?on scroll events
[*] Pavel Kahle <kahle(zv)atlas(tec)cz> - 26.4.2000 11:02:07
Na formulari mam Drawgrid, muzete mi poradit, jak ke gridu pridat udalost - pohyb hor.scroll baru ?
Diky P.Kahle
Problemy s typovymi soubory
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 26.4.2000 11:07:23
On 25 Apr 00, at 22:48, Petr Voborn�k wrote:
> Vytvoril jsem si urcity, hodne rozsahly typ record, a promene ukladam
> do souboru tohoto typu. Ma to vsak dve podstatne nevyhody. Nevim jak v
> tomto typovem souboru preskakovat, neboli, jak si precist treba
> predposledni hodnotu, aniz bych musel zbytecne nacitat tisic
> predchozich. Procedura seek funguje jen na file of char. Dalsi
> nevyhoda je, ze vsechny stringy musi mit predem urcenou delku, takze
> kdyz ji urcim treba na 4 000 znaku, a pak hodnotu tohoto stringu
> nastavim treba na 'a', tak tam mam 3 999 zbytecnych znaku a vysledny
> soubor je zbytecne velky. Nevite nekdo jak tyto problemy vyresit?
Stringy resim tak, ze ulozim retezec a zakoncim ho nulou. Pak pro
cteni otevru soubor pomoci CreateFile, CreateFileMapping a
MapViewOfFile a retezec ctu takto:
s:=PChar(point);
Inc(point, Length(s)+1);
...
Pokud chces skakat po souboru a pritom setrit misto na retezcich,
muzes to udelat napriklad tak, ze si vytvoris tabulku, do ktere si
ulozis delky (nebo zacatky) jednotlivych recordu. Tu pak ulozis na
zatek nebo konec souboru. Tabulku si nactes, a podle ni pak
muzes skakat kam budes chtit.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Databaze Apollo
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 26.4.2000 11:07:23
Ahoj all,
mate nekdo nahodou nejake zkusenosti se subj.?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Radek v RichEditu
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 26.4.2000 10:26:13
> Dobry den, mam malinkaty problemecek. Jak zjistim cislo radku v richeditu,
> na kterym je kurzor nebo na kterem jsem kliknul mysi? Event Mousedown mi
> zjisti pouze souradnice v pixelech... V Helpu jsem nic nenasel....
>
> D3P, D5E, Win98
>
> Jaroslav Weiss
> odd. informatiky
>
>
Mas li RX komponenty, tak se podivej do jejich dema na rich editor.
Milan Dvorak
dvorak(zv)gymzn(tec)cz
PChar
[*] Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz> - 26.4.2000 12:08:08
Nevi nedko jak prevest Word na PChar. Myslim to takhle. Pouzivam funkci, ktera mi vraci promenou Word, ktera je ve skutecnosti PChar (Pointer). Potrebuju to na zapsani do streamu, kde musim zadat delku toho Wordu a ta se pohybuje od 18 do 50 znaku.
Dik Petr.PChar
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 26.4.2000 12:21:13
Podle vseho pouzivate Delphi 1.
Coz takhle: StrLen (PChar (WordPtr)) kde WordPtr je ten Word,
tim ziskate delku toho retezce.
Ondrej Krajicek
> Petr Jel�nek Konf wrote:
>
> Nevi nedko jak prevest Word na PChar. Myslim to takhle. Pouzivam
> funkci, ktera mi vraci promenou Word, ktera je ve skutecnosti PChar
> (Pointer). Potrebuju to na zapsani do streamu, kde musim zadat delku
> toho Wordu a ta se pohybuje od 18 do 50 znaku.
>
> Dik Petr.
--
-----------------------------------------------------------
Ondrej Krajicek mailto:xkrajic(zv)ics.muni(tec)cz
Institute of Computer Science, Masaryk University Brno
-----------------------------------------------------------
PChar
[*] Lubo Fule <fule(zv)sct.sk> - 26.4.2000 12:50:46
To je uz principialna chyba, Word nemoze byt PChar, pretoze word je
16-bitovy a PChar je 32-bitovy, takze do premennej typu Word nie je mozne
ulozit smernik, pretoze sa tam jednoducho nezmesti... Keby ta funkcia
vracala nejaku 32-bitovu premennu (napr. Integer), tak sa to urobi cez
pretypovanie:
var p: pchar;
p := PChar(tvoja_funkcia);
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Petr Jel�nek Konf
Sent: Wednesday, April 26, 2000 12:08 PM
To: Delphi Forum
Subject: PChar
Nevi nedko jak prevest Word na PChar. Myslim to takhle. Pouzivam funkci,
ktera mi vraci promenou Word, ktera je ve skutecnosti PChar (Pointer).
Potrebuju to na zapsani do streamu, kde musim zadat delku toho Wordu a ta se
pohybuje od 18 do 50 znaku.
Dik Petr.Databaze Apollo
[*] Miroslav Cipel <Miroslav.Cipel(zv)oku-tu(tec)cz> - 26.4.2000 12:51:04
mame koupenou verzi 4.0 a pouzivame to pro pristup k DBF bez BDE
M.
----- Original Message -----
From: "Zbysek Hlinka" <zhlinka(zv)login(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, April 26, 2000 11:07 AM
Subject: Databaze Apollo
> Ahoj all,
>
> mate nekdo nahodou nejake zkusenosti se subj.?
>
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
MDI aplikace - mizejici ikonky formulare
[*] Ren� Otisk - 26.4.2000 13:01:31
Hi,
...sem si vzpomnel. Delalo mi to kdyz jsem v OnUpdateMenuItem schovaval
menuitem, ktere je normalne videt v menu (jako to nerozbalene - nevim jak se
vymacknout). Pomohlo, kdyz jsem v OnUpdateMenuItem misto visible dal
enabled, coz ale vypada tak trosku divne, ze jo. Tusim ze jsem si pak pohral
s groupindexy a s menu tech MDIChildu... ...ja si saze vzpomenu...
Sroub
> Rekl bych, ze k tomu dochazi jen tehdy, kdyz jedno MDI-child okno obsahuje
> vlastni menu, ktere se ma spojit s menu hlavniho okna. Je ale zvlastni, ze
> mam dejme tomu tri MDI-child okna, dve bez menu, treti menu ma. S ikonkami
> to dopadne obvykle tak, ze zustanou jen jednomu z tech dvou oken bez menu.
> Nekdy ale nezustanou zadnemu oknu. Nekdy se take stane, ze se ikonky
> zobrazi, ale ikonka na zavreni okna je seda, jako kdyz je nedostupna, ale
> funguje pritom normalne.
>
> Karel Rys
>
> >>vetsinou zmizi ikonky pro minimalizaci, maximalizaci a zavreni okna.
> >
> >Dokazes to opakovane navodit?
> >Meli jsme podobny problem. Pri startu aplikace se podle
> >ini souboru otviraly child okna a pri tom se nastavoval jejich
WindowState.
> >Stacilo posunout nastaveni WindowState za misto kdy je
> >MainForm vytvoren a _zobrazen_.
> >
> >S pozdravem
> >Miloslav Skacel
> >skacel(zv)stereo(tec)cz
> >www.stereo(tec)cz
> >
> >
> >
> >simulace okbuttonu v modalnim okne
[*] Ren� Otisk - 26.4.2000 13:10:20
Hi,
Japa to udelat, abych simuloval stisk tlacitka OK v modalnim dialogu? Napr. OnDoubleClick na nejake WinControl... Vim, ze bych mohl postupne zavolat udalosti
OKButtonClick(nil);
ModalResult := mrOK;
MujDialog.Close;
ale neda mi to, ci neexistuje nejaky mesidz (to zni blbe) SendMessage. Navic by to pomohlo i pri jine tlacitka. Moje predstava je, ze by se poslala windows zprava s parametry handle toho tlacitka a ze se jako stisklo...
Dekuji
Sroub
Resume
[*] Delphi Konfera <delphi(zv)globnet.sk> - 26.4.2000 13:21:46
Zdravim Vas,
Neviete mi niekto poradit ako funguje resume pri downloade?
Mam na mysli nieco ako GetRigth, alebo Godzila a podobne.
Akym sposobom sa to da urobit aby to klient podporoval.
Martim Milesich
Radek v RichEditu
[*] bures <bures(zv)ssakhk(tec)cz> - 26.4.2000 13:52:01
Ahoj udelej to treba takhle - Richedit1.CaretPos.y;
Vlada
----- Original Message -----
From: <sup(zv)svitap(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, April 26, 2000 7:25 AM
Subject: Radek v RichEditu
> Dobry den, mam malinkaty problemecek. Jak zjistim cislo radku v richeditu,
> na kterym je kurzor nebo na kterem jsem kliknul mysi? Event Mousedown mi
> zjisti pouze souradnice v pixelech... V Helpu jsem nic nenasel....
>
> D3P, D5E, Win98
>
> Jaroslav Weiss
> odd. informatiky
>
> SVITAP J.H.J. s.r.o.
> Kijevska 6-8
> SVITAVY
> 568 02
>
> tel: ++420-461-568 202
> fax: ++420-461-568 300
> E-mail: sup(zv)svitap(tec)cz
> URL: www.svitap(tec)cz
> FTP: ftp.svitap(tec)cz
>TreeView a Drag
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 26.4.2000 13:57:20
Preji pekny den,
(W98, D4S)
pokud mam v komponente TTreeView nastaveny DragMode = dmAutomatic, vse
funguje jak ma. Potrebuji ale otestovat klavesnici, zda je stlacena nektera
shiftova klavesa. Pouziji-li tedy dmManual a zahajim Drag manualne
samozrejme to, funguje , ale pri stlaceni tlacitka mysi se objevi cursor
jako pri zahajenem tazeni aniz se o drag jedna. Dost to rusi, nebot cursor
dragu neustalym prekreslovanim strom rozhodi, takze se stava necitelnymi.
Nastaveni Threshold a Immediate v BeginDrag, ktera se spousti po stlaceni
mysi v OnMouseDown to nijak zvlast neovlivni. (Anebo nastavuju neco z toho
spatne.)
Da se z toho nejak elegantne vybruslit?
Diky, Honza.
IB & Vnoreny select
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 26.4.2000 14:06:39
HI,
Proc nefunguje nasledujici dotaz, nelibi se mu ten druhej select,
Zkouseno na IB 4.0 a na IB 6.0, Chovaji se stejne, myslel jsem, ze
takto to jde delat.
Pozn. : Dotaz je samozrejme nesmyslny, chci to na nem jen
zkusit. Ten skutecny je podstatne slozitejsi.
select cislo, tecka
from (select cislo,tecka from cismat)
where cislo = "200105"
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
databaze
[*] Petr Sikola <P.Sikola(zv)sh.cvut(tec)cz> - 26.4.2000 14:12:18
Dobry den, rad byc zjistil nejake informace o databazovych ovladacich, [BDE,
ODBC, DAO, ADO, JET, nativni pripojeni....]
nemate nekdo nejaky odkaz nebo tip, kde bych mohl zjistit nejake teoreticke
veci?
[jedna se mi o toto: co to je, vyhody, nevyhody, pouziti, vyrobce,
rychlost....]
Dekuji Petr Sikola
simulace okbuttonu v modalnim okne
[*] sup(zv)svitap(tec)cz - 26.4.2000 15:01:54
Dela se to takhle:
var
h,h1:thandle;
i,j,x,y:integer;
w:longword;
s,sc:string[50];
r:trect;
b:boolean;
begin
h:=findwindow('TDialog',nil); // handle dialog. okna
if h>0 then begin
timer1.enabled:=false;
i:=GetWindowText(h,(zv)s,50);
sc:='';
for j:=0 to i-1 do sc:=sc+s[j];
if copy(sc,1,4)='Opra' then begin // zjisteni okna 'Opravdu?'
sc:='';
h1:=GetWindow(h,GW_CHILD);
if h1>0 then begin
i:=GetWindowText(h1,(zv)s,50);
for j:=0 to i-1 do sc:=sc+s[j];
if copy(sc,1,2)='OK' then begin // zjisteni tlacitka
b:=getwindowrect(h1,r);
SendMessage(h,WM_ACTIVATE,MK_LBUTTON,Lo(WA_ACTIVE));
w:=Lo(r.Right);
w:=Hi(r.Top);
setcursorpos(r.Right+5,r.Top+5); // premisteni kurzoru nad
tlacitko
SendMessage(h1,WM_LBUTTONDOWN,MK_LBUTTON,w); // mousedown
SendMessage(h1,WM_LBUTTONUP,MK_LBUTTON,w); //mouseup
end;
end;
end;
end;
>Hi,
>
>Japa to udelat, abych simuloval stisk tlacitka OK v modalnim dialogu? Napr.
>OnDoubleClick na nejake WinControl... Vim, ze bych mohl postupne zavolat
udalosti
>
>OKButtonClick(nil);
>ModalResult := mrOK;
>MujDialog.Close;
>
>ale neda mi to, ci neexistuje nejaky mesidz (to zni blbe) SendMessage.
Navic by to >pomohlo i pri jine tlacitka. Moje predstava je, ze by se
poslala windows zprava s >parametry handle toho tlacitka a ze se jako
stisklo...
>
>
>Dekuji
>
>Sroub
>
>
>MIME ��st:
>Content-type: text/html; charset="iso-8859-2"
>MIME ��st zaps�na jako p�ipojen� soubor:
> FILE0001.HTM
>
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
Databaze Apollo
[*] Ales Radikovsky <radik(zv)volny(tec)cz> - 26.4.2000 15:39:59
> mate nekdo nahodou nejake zkusenosti se subj.?
Pouzil jsem to v jedne aplikaci pro D3, ktera pristupovala k DBF
souborum s clipperovskymi indexy. Problemy jsem mel akorat s vlastnim
nezvykem na jine funkce, ale funguje to ve tvrdem provozu porad.
Rychlost a stabilita je podle me dobra.
Ales
--
Ale� Radikovsk�
mail: radik(zv)seznam(tec)cz
tel: +420 603 300093
Program ktory tvori program
[*] Delphi Konfera <delphi(zv)globnet.sk> - 26.4.2000 15:40:52
Ahojte,
Neviete niekto nahodov ci sa da a ako vytvorit program ktory by dokazal
vytvorit novy program?
Aby ste ma rozumeli. Spravil by som si nejaky program v Delphi. Ked by
som ten program spustil on by vytvoril novy program (.exe). ktory by sa dal
bez toho povodneho programu spustit bez problemov.
No neviem ci ste ma pochopil, ale aj tak dakujem za napady.
Martin Milesich
IB & Vnoreny select
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 26.4.2000 15:44:13
Ahoj,
Radek KALA wrote:
> HI,
>
> Proc nefunguje nasledujici dotaz, nelibi se mu ten druhej select,
Protoze IB jednoduse tuhle syntaxi nepodporuje (narozdil asi od MS SQL,
Sybase a jinych) - viz. dokumentace "Language reference"
> Zkouseno na IB 4.0 a na IB 6.0, Chovaji se stejne, myslel jsem, ze
> takto to jde delat.
> Pozn. : Dotaz je samozrejme nesmyslny, chci to na nem jen
> zkusit. Ten skutecny je podstatne slozitejsi.
>
> select cislo, tecka
> from (select cislo,tecka from cismat)
> where cislo = "200105"
>
--
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
simulace okbuttonu v modalnim okne
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 26.4.2000 16:16:14
Zkus Button1.Click :-)
Dobra.
> ----------
> Od: Ren> � Otisk[SMTP:otisk(zv)misel(tec)cz]
>
> Japa to udelat, abych simuloval stisk tlacitka OK v modalnim dialogu? Napr. OnDoubleClick na nejake WinControl... Vim, ze bych mohl postupne zavolat udalosti
> �>
> OKButtonClick(nil);
> ModalResult := mrOK;
> MujDialog.Close;
> �>
> ale neda mi> �> to, ci neexistuje nejaky mesidz (to zni blbe) SendMessage. Navic by to pomohlo i pri jine tlacitka. Moje predstava je, ze by se poslala windows zprava s parametry handle toho tlacitka a ze se jako stisklo...
> �>
> Problemy s typovymi soubory
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 26.4.2000 16:20:42
On 26 Apr 00, at 6:30, Pavel Hampl wrote:
> Tu ruznou delku stringu bych resil otevrenim souboru ne jako typoveho,
> ale jako binarniho a zapisem blockread a blockwrite(sizeof) nebo treba
>
> var s:string; { soucast recordu }
>
> var f:file;
>
> assignfile(f,jmeno);
> rewrite(f,1);
> blockwrite(f,s[0],1); {tim se ulozi delka stringu}
> blockwrite(f,s[1],s[0]); {tim se ulozi vlastni string}
Na tohle velky pozor, protoze od D2 jsou stringy automaticky
dlouhe. Takze spis nejak takto:
i:=Length(s);
BlockWrite(f, i, 4);
BlockWrite(f, s[1], i);
...
BlockRead(i, 4);
SetLength(s, i);
BlockRead(f, s[1], i);
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Program ktory tvori program
[*] Jirka <jnagy(zv)nh-trans(tec)cz> - 26.4.2000 16:27:32
Nejaky prekladac, napriklad Delphi, Cecko, Asembler, atd..., :o)))
Zavisi to od toho, jaky program a v jakych variacich chces vytvorit.
Pokud chces mit ve svojem programu jako kdyby obsah exe souboru (napr.
jako data - bez fyzicke pritomnosti souboru) a ten chces zapsat na
disk - neni problem; pokud ho chces zavest do pameti bez zapsani, je
to trochu narocnejsi, ale asi taky neni az tak velky problem. Nikdy
jsem to vsak v Delphi nedelal, takze at Ti poradi zkusenejsi. (Ja jsem
jenom - jeste na pocitacich SMEP - delal jako diplomovku interpreter
asembleru, takze mam trochu teoretickych znalosti. Ale Windows nejsou
VMS ani RSX 11.)
Jirka
----- P�vodn� zpr�va -----
Od: Delphi Konfera <delphi(zv)globnet.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 26. dubna 2000 15:40
P�edm�t: Program ktory tvori program
> Ahojte,
>
> Neviete niekto nahodov ci sa da a ako vytvorit program ktory by
dokazal
> vytvorit novy program?
> Aby ste ma rozumeli. Spravil by som si nejaky program v Delphi. Ked
by
> som ten program spustil on by vytvoril novy program (.exe). ktory by
sa dal
> bez toho povodneho programu spustit bez problemov.
>
> No neviem ci ste ma pochopil, ale aj tak dakujem za napady.
>
> Martin Milesich
Program ktory tvori program
[*] Pavol Kakacka <paka(zv)aktis(tec)cz> - 26.4.2000 16:35:13
| Neviete niekto nahodov ci sa da a ako vytvorit program ktory by dokazal
| vytvorit novy program?
| Aby ste ma rozumeli. Spravil by som si nejaky program v Delphi. Ked by
| som ten program spustil on by vytvoril novy program (.exe). ktory by sa
dal
| bez toho povodneho programu spustit bez problemov.
Myslis nieco ako self-extractor od komprimovanch programov ? ... To by slo.
Pavol Kakacka
paka(zv)aktis(tec)cz
Request
[*] Honza Fiala <kvasar(zv)kvasar(tec)cz> - 26.4.2000 16:46:05
--=======3BD49E6=======
Content-Type: text/plain; charset=us-ascii; format=flowed; x-avg-checked=avg-ok-342C2CBB
Potreboval bych poradit ohledne web aplikace. Snazim se odeslat soubor od
klienta na server pres formular a nedari se mi na strane servru prevzit
data. posledni faze byla, ze data jsou sice ulozena v request.content, ale
jsou zakodovana vcetne vsech ostatnich inputu a ja je nedokazu dekodovat.
(bez pouziti ENCTYPE to posle pouze nazev souboru) Nevite, jakym zpusobem
bych mohl docilit dekodovani dat? dik
<FORM ENCTYPE="multipart/form-data" ACTION="<#ACTION>" METHOD="post">
<input type="file" name="soubor">
.
.
</form>
--=======3BD49E6=======
Content-Type: text/plain; charset=us-ascii; x-avg-checked=avg-ok-342C2CBB
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.127 / Virov� b�ze: 60 - datum vyd�n�: 21.2.2000
--=======3BD49E6=======--
Skoleni
[*] Honza Fiala <kvasar(zv)kvasar(tec)cz> - 26.4.2000 16:57:41
--=======1A4E3027=======
Content-Type: text/plain; charset=us-ascii; format=flowed; x-avg-checked=avg-ok-342C2CBB
nebude se nekdy v dohledne dobe konat skoleni v delphi se zamerenim na web?
--=======1A4E3027=======
Content-Type: text/plain; charset=us-ascii; x-avg-checked=avg-ok-342C2CBB
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.127 / Virov� b�ze: 60 - datum vyd�n�: 21.2.2000
--=======1A4E3027=======--
MDI aplikace - mizejici ikonky
[*] Slab� Petr (Pilsen) <slaby(zv)kadel(tec)cz> - 26.4.2000 17:24:40
Slab�, Petr (Pilsen), 26.04.2000 17:22:16
Ahoj,
myslim, ze proti tomu alespon castecne pomaha pridat do .FormActivate MDI frame i vsech MDI child nasledujici radku:
PostMessage(Handle, CM_MENUCHANGED, 0, 0); {*ps3* Avoid window menu problem ??}
Best regards,
PS.
=========================================================================
Softwarova firma se zahranicni ucasti a sidlem v Plzni hleda programatory Delphi, C a Java. Znalost nemciny nebo anglictiny podminkou. Vice o nas na www.kadel(tec)cz, pripadne se ozvete na kadelds(zv)kadel(tec)cz.
Program ktory tvori program
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 26.4.2000 19:33:11
On 26 Apr 00, at 15:40, Delphi Konfera wrote:
> Neviete niekto nahodov ci sa da a ako vytvorit program ktory by
> dokazal vytvorit novy program? Aby ste ma rozumeli. Spravil by som si
> nejaky program v Delphi. Ked by som ten program spustil on by vytvoril
> novy program (.exe). ktory by sa dal bez toho povodneho programu
> spustit bez problemov.
Samozrejme ze da, napriklad Delphi to tak dela. :-) Ke studiu, jak
ma takovy soubor vypadat, doporucuji MSDN. Je to pekne
posusnanicko. :-)
BTW - dalsi rozumy nerozdam, protoze to neumim.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
select z roznych tabuliek
[*] Robert Zak <nrsys(zv)psn.sk> - 26.4.2000 19:56:00
pouzivam MSSQL7 a potreboval by som v skripte napisat toto:
----------------------------------------------------------------------------
------------------
declare (zv)aa char(4)
set (zv)aa = 'TAB1'
select * from (zv)aa
----------------------------------------------------------------------------
-------------------
Da sa ten select to vobec nejak takto zapisat?
Dakujem
Robo
select z roznych tabuliek
[*] Rul�cek Daniel <dan.r(zv)avizo(tec)cz> - 26.4.2000 20:16:35
Ahoj,
melo by to jit nejak takto
declare (zv)aa char(4)
set (zv)aa = 'TAB1'
EXEC('select * from' + (zv)aa)
Dan
> -----Original Message-----
> From: Robert Zak [mailto:nrsys(zv)psn.sk]
> Sent: Wednesday, April 26, 2000 7:56 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: select z roznych tabuliek
>
>
> pouzivam MSSQL7 a potreboval by som v skripte napisat toto:
> --------------------------------------------------------------
> --------------
> ------------------
> declare (zv)aa char(4)
> set (zv)aa = 'TAB1'
> select * from (zv)aa
> --------------------------------------------------------------
> --------------
> -------------------
> Da sa ten select to vobec nejak takto zapisat?
>
>
> Dakujem
>
> Robo
> Update v SQL...
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 26.4.2000 20:52:01
Dobry den,
Napsal jsem databazovy sitovy software v D4 a po case se objevily chyby,
netusim jak nane:
Mam tabulku, ktera je umistene na zdilenem disku (vsichni uzivatele tam maji
plny pristup) a presto v okamziku. kdy provedu update (SQL) v TQuery tak mi
to zarve, ze nemuze zapisovat... Pritom je 100% zajisteno, ze kazdy update
jinou vetu... Nerad bych tu tabulku delil na vice souboru... Je nejaka
pomoc??? DBServer ci podobne Servery databazoveho charakreru bych nerad
pouzival... Primi pristup jen pres TQuery mi vyhovuje (vyhovovalo...)...
Dekuji za pomoc
Zdenek
TImage+
[*] Martin Pesava <jimx(zv)volny(tec)cz> - 26.4.2000 21:20:06
Ahoj Lidi, to jsem jeste jednou ja. To s tim parentem mi fakt dost
helplo, ale mel bych jeste jeden problem, kterej nevim, jak resit...
Potreboval bych u takto vytvoreneho TImagu zobrazit hint. No tak proste
udelam:
img.hint:='text';
img.showhint:=true;
...ale hint se nezobrazi :-(((
Diky predem za pomoc...
(D4Prof, W95OSR2)
--
Martin Pe�ava
/--------------------------------------------------------------\
| Known as JimX on http://www.webchat(tec)cz & http://www.xchat(tec)cz |
| Webmaster of http://miss.misto(tec)cz |
| Email: mailto:jimx(zv)volny(tec)cz ICQ# 18148896 |
\--------------------------------------------------------------/IB & Vnoreny select
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 26.4.2000 21:29:32
> select cislo, tecka
> from (select cislo,tecka from cismat)
> where cislo = "200105"
chapem ako:
select cislo,tecka from cismat where cislo="200105"
Hmm?
roland.Program ktory tvori program
[*] Tomas Bihary <tomas(zv)wige-mic(tec)cz> - 26.4.2000 20:50:12
Ahoj!
V prvni rade program ktery tvori program je napriklad
kompilator. V tomto pripade by asi tvuj program
vygeneroval pascalovskej zdrojak (+ dfm) a nechal by
kompilator delphi at si s tim nejak poradi. (???)
To je trochu divnej postup, ale budiz. Neceho podobneho
dosahnes i s pomoci M$ ScriptControlu, ktery podporuje
VBScript a JavaScript.
Dalsi moznost je, ze exe soubor bude obsahovat jak
kod programu tak i data se kterymi se ma pracovat.
To by slo udelat treba tak, ze k programu prilinkujes
ta data. (Tak nejak to pravdepodobne dela Windows-
Commander, kdyz vytvari SFX archiv(viz SfxHead.sfx)).
Muzes svuj dotaz nejak upresnit?
Ahoj Tomas Bihary
----- Original Message -----
From: Delphi Konfera <delphi(zv)globnet.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, April 26, 2000 2:40 PM
Subject: Program ktory tvori program
> Ahojte,
>
> Neviete niekto nahodov ci sa da a ako vytvorit program ktory by dokazal
> vytvorit novy program?
> Aby ste ma rozumeli. Spravil by som si nejaky program v Delphi. Ked by
> som ten program spustil on by vytvoril novy program (.exe). ktory by sa
dal
> bez toho povodneho programu spustit bez problemov.
>
> No neviem ci ste ma pochopil, ale aj tak dakujem za napady.
>
> Martin Milesich
CustomOpenDialog
[*] Hurricane <hurricane(zv)email(tec)cz> - 26.4.2000 22:55:40
Zase mam pocit, �e to do konfy nep�i�lo, tak to posilam znova.
---
Zdravim
Se zajmem sem sledoval diskusi o vylepseni Open a Save Dialogu o ruzne
buttony, panely a pod. Sam sem si napsal svoje vylepseni ala Wir2000, ale
narazil sem na problem se zmenou aktualniho adresare otevrenyho dialogu. De
o to, ze mam na tom dialogu Button, ktery mi spousti prislusnou proceduru
OnClick. A Prave v teto procedure potrebuju zmenit adresar otevrenyho
dialogu. Z registru ctu prislusnou cestu (napr.: C:\Windows\Plocha, muze byt
i C:\Windows\Plocha\) a tuto cestu potrebuju vnutit tomu dialogu. Stahnul
sem si GXExplorer, ale nic z nej nemam, pod D3 to nejede. Muzete mi nekdo
poradit?
Dekuji
Hurricane
hurricane(zv)email(tec)cz
Vzorka na EditBox.
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 27.4.2000 00:03:31
Zdravim.
Ako by som dal vzorku na TEdit, nieco podobne ako pridanie vzorky na bunku v
Exceli. Jednalo by sa mi o bodkovanu vypln.
Dakujem.
Roland.Sdileni slozky po windowsovske siti
[*] bures <bures(zv)ssakhk(tec)cz> - 27.4.2000 03:32:07
Ahoj mam dve otazky:
1) Exituje nejaka api funkce pro nazdileni slozky po siti pod heslem, pokud
ano tak ktera....
2) Jak se z sveho programu na tu slozku napojit, aniz bych ji musel
pripojovat jako novou jednotku.
Predem dekuji za odpoved
Vlada
ps dival jsem se do registru kam si to windows zapisuji ale z jejich zapisu
jsem toho moc nepochopil, hlavne zpusob ukladani hesla :(
tisk pomoci stretchblt na canvas tiskarny
[*] petr.palicka(zv)atlas(tec)cz - 27.4.2000 07:17:01
ahoj vsichni,
snazim se tisknout nejaky obrazek na tiskarnu.
mel jsem problem, ze pri pouziti metod canvasu, stejne jako api fci, to nic nevytisklo (prazdna stranka). tisk probehl, pokud jsem zavolal fci dvakrat po sobe (uaa!). myslel jsem si, ze to je velikosti obrazku (cela A4 tedy asi 2000 x 2600 pixelu), takze jsem udelal smycku, ktera to roseka na ctverecky 50x50 a posila je pomoci stretchblt (ale zkousel jsem i bitblt) na printer.canvas.
pri volani teto fce nahodne dochazi k chybe program provedl neplatnou operaci blalblabla... :-(.
nevite nekdo prosim co s tim, nbo cim by to mohlo byt?
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ smtp: petr.palicka(zv)atlas(tec)cz ]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Grafika v menu
[*] Vyvoj <vyvoj(zv)atlascon(tec)cz> - 27.4.2000 07:58:28
Ahoj!
Pot�et� pos�l�m tento dotaz. Opravdu to nikdo nev�?
Nevite nekdo jakym zpusobem dostat grafiku do Menu a PopUpMenu?
Konkretneji - potrebuju tam dostat neco takoveho jako je v nabidce Start text Windows95/98
na levem okraji.
Predem diky za tipy
**************************************************
* Roman Macura
* program�tor, analytik
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: +420 69 661 33 33
* fax : +420 69 661 33 30
* e-mail : macura(zv)atlascon(tec)cz
* WWW : http://www.atlascon(tec)cz
**************************************************
Udalost pri zmene sirky sloupce ve StringGridu
[*] garalda <garalda(zv)mail(tec)cz> - 27.4.2000 08:02:08
Zdravim,
rad bych nejakym zpusobem odchytil udalost pri zmene sirky sloupce v
StringGridu (abych mohl ostatni sloupce zarovnat do okna), ale nemuzu nic
takoveho najit. Nevite nekdo, jak na to?
Zkousel jsem to resit pres odchytavani OnMouseMove, kde Shift je lButton a
lisi se sirky u sloupcu od predchoziho stavu, ale je to tezkopadne a navic
to nejak divne funguje.
Diky za kazdou radu
IB & Vnoreny select
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 27.4.2000 08:18:30
Haj hou!
Klauzule FROM v prikazu SELECT se muze odkazovat pouze na tabulky, view nebo
ulozene procedury, ne vsak na jiny SELECT (to je mozne jen v casti WHERE).
Proto je jedinym resenim nadefinovat VIEW (coz je v podstate ten tvuj
vnoreny select) nebo ulozenou proceduru.
Hodne zdaru
Pavel Cisar
Borland s.r.o.
pcisar(zv)inprise(tec)cz
----- Original Message -----
From: "Radek KALA" <Kala(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, April 26, 2000 2:06 PM
Subject: IB & Vnoreny select
> HI,
>
> Proc nefunguje nasledujici dotaz, nelibi se mu ten druhej select,
> Zkouseno na IB 4.0 a na IB 6.0, Chovaji se stejne, myslel jsem, ze
> takto to jde delat.
> Pozn. : Dotaz je samozrejme nesmyslny, chci to na nem jen
> zkusit. Ten skutecny je podstatne slozitejsi.
>
> select cislo, tecka
> from (select cislo,tecka from cismat)
> where cislo = "200105"
OT:omluva virus
[*] Milos Sula <crkstrobe(zv)geocities(tec)com> - 27.4.2000 08:18:20
Omlouvam se vsem za odeslany pretty park :(
veril jsem norton antiviru 2000 s poslednim updatem, ale ten ho nezjistil.
dekuji za pochopeni
Debug process is already running
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 27.4.2000 08:18:59
Ahoj,
jak se da odstrelit program v D3 s hlaskou "Debug process is already
running"? V procesech uz neni a nikde ho nemuzu najit, resetovat nejde,
tlacitko run je nepristupne, thready runnable, Delphi nelze ukoncit a pri
odstreleni se pocitac kousne. Obcas pomuze jen magicky trojstisk. A jedna se
o bezny program...
Co s tim, setkal jste se s tim nekdo?
Diky
Jaro B.Omezeni pristupu k souboru
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 27.4.2000 08:19:25
Naprogramovat si vlastni ovladac pro filesystem ?
Ondrej Krajicek
Jakub M�lek wrote:
>
> Ahoj,
> nevi nekdo z vas jak ve win9x zakazat pristup k souboru, disku... Moc mi
> to pomuze dik
>
> Jakub M�lek
--
-----------------------------------------------------------
Ondrej Krajicek mailto:xkrajic(zv)ics.muni(tec)cz
Institute of Computer Science, Masaryk University Brno
You probably know who is the dot in .com, but who
is the dot in (tec)cz ?
-----------------------------------------------------------
Interbase 60 aD2 Standard
[*] Peter ROZIM <prozim(zv)pollux.sk> - 27.4.2000 08:34:45
Stiahol som si Intebase 60 a pokusam sa na nu pripojit z D2 stand. pomocou
komponent IBOBJECT od Jasona Whartona pri kazdej snahe o pripojenie resp /dotaz/
mi vyhlasi ze nema isc attach service a pri kompilacii ze nema IMP IB SESSION.PAS
tento subor ale vobec pri komponentach nebol. Vie mi niekto poradit co s tym alebo ako to urobit
inym sposobom. Popripade aka verzia Delphi je uz schopna pracovat s IB alebo ODBC typu WinBase602 bez BDE s ohladom aj na financnu narocnost.
Dakujem Peter
Debug process is already running
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 27.4.2000 08:37:04
Vetsinou, alespon u mne to
delal nejaky thread.
Ukoncit D neslo, ale kdyz jsem je
sestrelil, tak s sebou vzaly i Win98.
Nemas nahodou casto Sleep ?
Martin
----- Original Message -----
> jak se da odstrelit program v D3 s hlaskou "Debug process is already
> running"? V procesech uz neni a nikde ho nemuzu najit, resetovat nejde,
> tlacitko run je nepristupne, thready runnable, Delphi nelze ukoncit a pri
> odstreleni se pocitac kousne. Obcas pomuze jen magicky trojstisk. A jedna
se
> o bezny program...
> Co s tim, setkal jste se s tim nekdo?
> Diky
> Jaro B.select z roznych tabuliek
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 27.4.2000 08:47:37
> pouzivam MSSQL7 a potreboval by som v skripte napisat toto:
> ----------------------------------------------------------------------
> ------ ------------------ declare (zv)aa char(4) set (zv)aa = 'TAB1' select
> * from (zv)aa
> ----------------------------------------------------------------------
> ------ ------------------- Da sa ten select to vobec nejak takto
> zapisat?
>
Nejde to asi uplne primo, ale slouzi na to volani EXECUTE. Z
Mistrovstvi v SQL serveru 6.5 jsem opsal toto a na 7 to snad bude
fungovat taky. Jde o ulozenou proceduru, ktera zapise do sloupce
Autor zadany text. Pritom i jmeno tabulky se dava parametrem.
Jiste si to upravis pro svou potrebu:
CREATE PROC Add_autor
(zv)autor varchar(20),
(zv)tabulka varchar(30) AS
BEGIN
DECLARE (zv)prikaz varchar(255)
SELECT (zv)prikaz = "INSERT INTO " + (zv)tabulka + " (Autor)
VALUES ('" + (zv)autor + "')"
EXECUTE ((zv)prikaz)
END
David
databaze
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 27.4.2000 08:59:05
Od: "Petr Sikola" <P.Sikola(zv)sh.cvut(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
V�c: databaze
Datum odesl�n�: Wed, 26 Apr 2000 14:12:18 +0200
Po�tovn� prog.: Microsoft Outlook Express 5.00.2314.1300
Odpov�� kam: delphi-l(zv)fwd(tec)cz
> Dobry den, rad byc zjistil nejake informace o databazovych ovladacich,
> [BDE, ODBC, DAO, ADO, JET, nativni pripojeni....] nemate nekdo nejaky
> odkaz nebo tip, kde bych mohl zjistit nejake teoreticke veci? [jedna
> se mi o toto: co to je, vyhody, nevyhody, pouziti, vyrobce,
> rychlost....]
O nejakem odkazu nevim, aspon ne ted z hlavy, ale dost diskusi o
tom bylo i tady v konferenci, takze bych zkusil projit archiv.
David
Grafika v menu
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 27.4.2000 09:29:44
muzes pouzit napr. menu z RX library
Z.Fryz
> -----P�vodn� zpr�va-----
> Od: Vyvoj
> Odesl�no: 27.04.2000 07:58
> Komu: Delphi konference
> P�edm�t: Grafika v menu
>
>
> Ahoj!
>
> Pot�et� pos�l�m tento dotaz. Opravdu to nikdo nev�?
>
> Nevite nekdo jakym zpusobem dostat grafiku do Menu a PopUpMenu?
> Konkretneji - potrebuju tam dostat neco takoveho jako je v nabidce Start
> text Windows95/98
> na levem okraji.
>
>
>
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Request
[*] Martin Sekanina <marsek(zv)softcell(tec)cz> - 27.4.2000 09:39:54
Podivej se na http://www.asptoday.com/articles/20000316.htm. Je to ve
VBScriptu, ale princip je stejny.
-----Original Message-----
From: Honza Fiala [mailto:kvasar(zv)kvasar(tec)cz]
Sent: Wednesday, April 26, 2000 4:46 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Request
Potreboval bych poradit ohledne web aplikace. Snazim se odeslat soubor od
klienta na server pres formular a nedari se mi na strane servru prevzit
data. posledni faze byla, ze data jsou sice ulozena v request.content, ale
jsou zakodovana vcetne vsech ostatnich inputu a ja je nedokazu dekodovat.
(bez pouziti ENCTYPE to posle pouze nazev souboru) Nevite, jakym zpusobem
bych mohl docilit dekodovani dat? dik
<FORM ENCTYPE="multipart/form-data" ACTION="<#ACTION>" METHOD="post">
<input type="file" name="soubor">
.
.
</form>Debug process is already running
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 27.4.2000 09:43:48
Ne, program jsem spustil, podival se na par promennych (na dvou
breakpointech v onCreate) a ukoncil. Tot vse.
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Martin Nedopil [SMTP:nedopil(zv)eskon(tec)cz]
> Odesl�no: 27. IV 2000 8:37
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Debug process is already running
>
> Vetsinou, alespon u mne to delal nejaky thread. Ukoncit D neslo, ale kdyz
> jsem je sestrelil, tak s sebou vzaly i Win98.
> Nemas nahodou casto Sleep ?
>
> Martin
>
>
> ----- Original Message -----
> > jak se da odstrelit program v D3 s hlaskou "Debug process is already
> > running"? V procesech uz neni a nikde ho nemuzu najit, resetovat nejde,
> > tlacitko run je nepristupne, thready runnable, Delphi nelze ukoncit a
> pri
> > odstreleni se pocitac kousne. Obcas pomuze jen magicky trojstisk. A
> jedna
> se
> > o bezny program...
> > Co s tim, setkal jste se s tim nekdo?
> > Diky
> > Jaro B.
> Sdileni slozky po windowsovske siti
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 27.4.2000 09:59:29
Ahoj,
wnetaddconnection2 resi 1 i 2. Priklad pouziti byl v konferenci.
Vaclav Sazima
bures wrote:
>
> Ahoj mam dve otazky:
>
> 1) Exituje nejaka api funkce pro nazdileni slozky po siti pod heslem, pokud
> ano tak ktera....
> 2) Jak se z sveho programu na tu slozku napojit, aniz bych ji musel
> pripojovat jako novou jednotku.
>
> Predem dekuji za odpoved
>
> Vlada
>
> ps dival jsem se do registru kam si to windows zapisuji ale z jejich zapisu
> jsem toho moc nepochopil, hlavne zpusob ukladani hesla :(tisk stretchblt na TPrinter.canvas
[*] petr.palicka(zv)atlas(tec)cz - 27.4.2000 10:04:49
ahoj vsichni,
snazim se tisknout nejaky obrazek na tiskarnu.
mel jsem problem, ze pri pouziti metod canvasu, stejne jako api fci, to nic nevytisklo (prazdna stranka). tisk probehl, pokud jsem zavolal fci dvakrat po sobe (uaa!). myslel jsem si, ze to je velikosti obrazku (cela A4 tedy asi 2000 x 2600 pixelu), takze jsem udelal smycku, ktera to roseka na ctverecky 50x50 a posila je pomoci stretchblt (ale zkousel jsem i bitblt) na printer.canvas.
pri volani teto fce nahodne dochazi k chybe program provedl neplatnou operaci blalblabla... :-(.
nevite nekdo prosim co s tim, nbo cim by to mohlo byt?
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ smtp: petr.palicka(zv)atlas(tec)cz ]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ smtp: petr.palicka(zv)atlas(tec)cz ]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~