Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Menu ReOpen a TPopUpMenu vs TMenuItem
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 18.5.2000 14:53:27
Mam BCB 4
A narazil jsem na nasledujici problem.
Rad bych udelal neco jako je treba v Delphi v menu File polozka
Reopen. Teda toto uz mam udelano.
Ted bych to jeste rad dostal do toho tlacitka na ToolBaru (stejne
jako je to v Delphi).
Tj Menu Reopen priradit jako DropDownMenu jednomu ToolBaru (ktery ma
nastaven nejakou Akci). Problem je, ze sem se muze dat jen PopUpMenu,
kdezto ja to mam jako normalni polozku menu. Muze mi nekdo poradit
jak na to? Nebo musim vytvorit i to PopUpMenu, ktere bude obsahovat
to same jako ta polozka Reopen?
Nejde to nejak jednoduseji (at to nedelam zbytecne)?
Jinak ten ToolButton mam nastaven na tbsDropDown
Diky predem za rady.
Petr
,=====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )===--- -- - -
--=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
Seznam bezicich aplikaci
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 18.5.2000 15:14:16
Ahoj,
ad1)
Hledej keyword
RegisterServiceProcess
ad2)
ShowWindow(hInstance, SW_HIDE);
D.
> ----------
> Od: Michal Kus[SMTP:kus(zv)tangosw(tec)cz]
>
> mam pocit ze to tu uz blylo, ale nenasel jsem to.
>
> Potrebuji udelat program, ktery pobezi v pozadi a nepujde snadno
> "odstrelit".
> To znamena, ze nebude videt v seznamu bezicich aplikaci po CTRL+ALT+DEL,
> nebude mit polozku v "task baru" atd.
>
> Par otazek k BCB 5
[*] martin.falta(zv)atlas(tec)cz - 18.5.2000 15:39:45
Ahoj,
mam BCB 5 Std.
V C++ jsem uplny zacatecnik a mam nasledujici problemy:
1. Pouzivam Adonis komponenty ovsem, pokud chci zkompilovat projekt, tak vzdy dostanu tuhle hlasku:
[C++ Error] ADODS.hpp(16): E2209 Unable to open include file 'Db.hpp'
ackoli jsem soubor Db.hpp nasel.
2. Potreboval bych pouzivat globalni promenne, ktere jsou definovany v jednom *.h souboru, ale kdyz dam #include "promenne.h" do vsech modulu v projektu, kde tyto promenne musi byt viditelne, dostanu upozorneni, ze tyto promenne jsou definovany v modulech modul1.obj a modul2.obj.
V napovede jsem nic nenasel.
Vsem predem dekuji.
Martin
BDE na Win98
[*] pavel minarik <pavel.minarik(zv)email(tec)cz> - 18.5.2000 16:15:28
IIS nebo neco podobneho
[*] Daniel Resler <daniel(zv)atcgroup(tec)cz> - 18.5.2000 16:26:05
> rad bych na svem lokalnim pocitaci otestoval
> muj cgi-script ci ISAPI knihovnu, jaky program
> bych na to mohl pouzit ?
> (jak uz to byva, neco maleho, nejradeji free.)
Nainstaluj si Windows NT Option Pack / pracuje to i pod W98, nedej se zmast NT v naznu a je tam komplet vse ... /IIS nebo neco podobneho
[*] Cerny Jiri <cerny(zv)jablonec.uhul(tec)cz> - 18.5.2000 15:31:57
Na testovani a ladeni ISAPI staci personal web server Je v instalaci w 98.
Ale, po kazdem spusteni isapi knihovny zustava nactena v pameti a z dan�m
souborem se neda vubec nic delat.
Amatersky programator J.C.
> ----------
> Od: Mal� Dobromil[SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Odesl�no: 18. kv�tna 2000 11:54
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: IIS nebo neco podobneho
>
> DDV,
>
> rad bych na svem lokalnim pocitaci otestoval
> muj cgi-script ci ISAPI knihovnu, jaky program
> bych na to mohl pouzit ?
> (jak uz to byva, neco maleho, nejradeji free.)
>
> Dobra.
> TNMFTP & Proxy server
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 18.5.2000 16:35:00
>Hi,
>Mam problem s komponentou TNMFTP ( Delphi 5.0 + SP )
>U zakaznika pracuje jiz dlouho, jen jsem komponentu polozil a
>nastavil hosta, jmeno a heslo a uz jsem mohl dat connect, ted ale
>problem jiny zakaznik ma proxy ( od 602 ) pridal jsem do nastaveni
Umi ta 602ka FTP Gateway? Mam pocit ze podporuje jen SOCKS...
Zdravi
D> Toman
Prevod souradnic
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 18.5.2000 16:49:53
Ahoj,
prosim o radu. Nevi nekdo jak se prevadi souradnice obrazovky na souradnice tiskarny. Potrebuji vytisknout tabulku hodnot a rect labelu na obrazovce samozrejme nesouhlasi s rect na tiskarne. QReport jsem uz zkousel pouzit, ale sloupce nejsou spravne zarovnany. Tak bych si chtel obslouzit tisk sam pres Printer. Prevod by mel fungovat pro ruzne typy tiskaren.
Napr.
Label.SetBounds(0, 0, 101, 17);
zavolam funkci Printer.canvas.fillrect(Rect); (jak prevest Rect labelu na Rect pro tuto funkci)
Za odpovedi dekuji
Ales
Samorozbalovaci EXE
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 18.5.2000 17:35:03
Preji pekny den,
(W98, D5.1P)
potreboval bych udelat programek (samorozbalovak, ktery si s sebou ponese v
tele napr. ZIP), tak, aby si upgradnul jiz nainstalovany software. Neco
podobneho, jako treba upg. BDE nebo patche pro Delphi. Jenom nevim, jak
udelat ten EXE co nejmensi. Vyuzit TForm v Delphi asi nebude to prave
orechove. Bude treba jit na klasicke (nevizualni) programovani pod WIN.
Nemate nekdo nejaky priklad nebo odkaz kde neco podobneho najit, abych
neobjevoval Ameriku?
Diky, Honza.
stringgrid a tisk
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 18.5.2000 17:40:49
ahoj,
mas stesti, ze jsem zrovna nasel genialni prikladek tisku gridu v jedny
knizce. Tobe poslu hotovej program (muzu i jinym kdyz se ozvou) a tady abych
neurazil ukazu aspon zdrojak.
M.Jirman
---------
unit MainFrm;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, Grids, DBGrids, DB, DBTables, Menus, StdCtrls, Spin,
Gauges, ExtCtrls, ComCtrls;
type
TMainForm = class(TForm)
tblClients: TTable;
dsClients: TDataSource;
dbgColumns: TDBGrid;
mmMain: TMainMenu;
mmiFile: TMenuItem;
mmiPrint: TMenuItem;
lblLastName: TLabel;
lblColumns: TLabel;
lblFirstName: TLabel;
lblAddress: TLabel;
lblCity: TLabel;
lblState: TLabel;
lblZip: TLabel;
edtHeaderFont: TEdit;
lblHeader: TLabel;
btnHeaderFont: TButton;
FontDialog: TFontDialog;
edtLastName: TEdit;
edtFirstName: TEdit;
edtAddress: TEdit;
edtCity: TEdit;
edtState: TEdit;
edtZip: TEdit;
udLastName: TUpDown;
udFirstName: TUpDown;
udAddress: TUpDown;
udCity: TUpDown;
udState: TUpDown;
udZip: TUpDown;
procedure mmiPrintClick(Sender: TObject);
procedure btnHeaderFontClick(Sender: TObject);
private
PixelsInInchx: integer;
LineHeight: Integer;
{ Keeps track of vertical space in pixels, printed on a page }
AmountPrinted: integer;
{ Number of pixels in 1/10 of an inch. This is used for line spacing }
TenthsOfInchPixelsY: integer;
procedure PrintLine(Items: TStringList);
procedure PrintHeader;
procedure PrintColumnNames;
end;
var
MainForm: TMainForm;
implementation
uses printers, AbortFrm;
{$R *.DFM}
procedure TMainForm.PrintLine(Items: TStringList);
var
OutRect: TRect;
Inches: double;
i: integer;
begin
// First position the print rect on the print canvas
OutRect.Left := 0;
OutRect.Top := AmountPrinted;
OutRect.Bottom := OutRect.Top + LineHeight;
With Printer.Canvas do
for i := 0 to Items.Count - 1 do
begin
Inches := longint(Items.Objects[i]) * 0.1;
// Determine Right edge
OutRect.Right := OutRect.Left + round(PixelsInInchx*Inches);
if not Printer.Aborted then
// Print the line
TextRect(OutRect, OutRect.Left, OutRect.Top, Items[i]);
// Adjust right edge
OutRect.Left := OutRect.Right;
end;
{ As each line prints, AmountPrinted must increase to reflect how
much of a page has been printed on based on the line height. }
AmountPrinted := AmountPrinted + TenthsOfInchPixelsY*2;
end;
procedure TMainForm.PrintHeader;
var
SaveFont: TFont;
begin
{ Save the current printer's font, then set a new print font based
on the selection for Edit1 }
SaveFont := TFont.Create;
try
Savefont.Assign(Printer.Canvas.Font);
Printer.Canvas.Font.Assign(edtHeaderFont.Font);
// First print out the Header
with Printer do
begin
if not Printer.Aborted then
Canvas.TextOut((PageWidth div
2)-(Canvas.TextWidth(edtHeaderFont.Text)
div 2),0, edtHeaderFont.Text);
// Increment AmountPrinted by the LineHeight
AmountPrinted := AmountPrinted + LineHeight+TenthsOfInchPixelsY;
end;
// Restore the old font to the Printer's Canvas property
Printer.Canvas.Font.Assign(SaveFont);
finally
SaveFont.Free;
end;
end;
procedure TMainForm.PrintColumnNames;
var
ColNames: TStringList;
begin
{ Create a TStringList to hold the column names and the
positions where the width of each column is based on values
in the TEdit controls. }
ColNames := TStringList.Create;
try
// Print the column headers using a bold/underline style
Printer.Canvas.Font.Style := [fsBold, fsUnderline];
with ColNames do
begin
// Store the column headers and widths in the TStringList object
AddObject('LAST NAME', pointer(StrToInt(edtLastName.Text)));
AddObject('FIRST NAME', pointer(StrToInt(edtFirstName.Text)));
AddObject('ADDRESS', pointer(StrToInt(edtAddress.Text)));
AddObject('CITY', pointer(StrToInt(edtCity.Text)));
AddObject('STATE', pointer(StrToInt(edtState.Text)));
AddObject('ZIP', pointer(StrToInt(edtZip.Text)));
end;
PrintLine(ColNames);
Printer.Canvas.Font.Style := [];
finally
ColNames.Free; // Free the column name TStringList instance
end;
end;
procedure TMainForm.mmiPrintClick(Sender: TObject);
var
Items: TStringList;
begin
{ Create a TStringList instance to hold the fields and the widths
of the columns in which they'll be drawn based on the entries in
the edit controls }
Items := TStringList.Create;
try
// Determine pixels per inch horizontally
PixelsInInchx := GetDeviceCaps(Printer.Handle, LOGPIXELSX);
TenthsOfInchPixelsY := GetDeviceCaps(Printer.Handle,
LOGPIXELSY) div 10;
AmountPrinted := 0;
MainForm.Enabled := false; // Disable the parent form
try
Printer.BeginDoc;
AbortForm.Show;
Application.ProcessMessages;
{ Calculate the line height based on text height using the
currently rendered font }
LineHeight := Printer.Canvas.TextHeight('X')+TenthsOfInchPixelsY;
if edtHeaderFont.Text <> '' then
PrintHeader;
PrintColumnNames;
tblClients.First;
{ Store each field value in the TStringList as well as its
column width }
while (not tblClients.Eof) or Printer.Aborted do
begin
Application.ProcessMessages;
with Items do
begin
AddObject(tblClients.FieldByName('LAST_NAME').AsString,
pointer(StrToInt(edtLastName.Text)));
AddObject(tblClients.FieldByName('FIRST_NAME').AsString,
pointer(StrToInt(edtFirstName.Text)));
AddObject(tblClients.FieldByName('ADDRESS_1').AsString,
pointer(StrToInt(edtAddress.Text)));
AddObject(tblClients.FieldByName('CITY').AsString,
pointer(StrToInt(edtCity.Text)));
AddObject(tblClients.FieldByName('STATE').AsString,
pointer(StrToInt(edtState.Text)));
AddObject(tblClients.FieldByName('ZIP').AsString,
pointer(StrToInt(edtZip.Text)));
end;
PrintLine(Items);
{ Force print job to begin a new page if printed output has
exceeded page height }
if AmountPrinted + LineHeight > Printer.PageHeight then
begin
AmountPrinted := 0;
if not Printer.Aborted then
Printer.NewPage;
PrintHeader;
PrintColumnNames;
end;
Items.Clear;
tblClients.Next;
end;
AbortForm.Hide;
if not Printer.Aborted then
Printer.EndDoc;
finally
MainForm.Enabled := true;
end;
finally
Items.Free;
end;
end;
procedure TMainForm.btnHeaderFontClick(Sender: TObject);
begin
{ Assign the font selected with FontDialog1 to Edit1. }
FontDialog.Font.Assign(edtHeaderFont.Font);
if FontDialog.Execute then
edtHeaderFont.Font.Assign(FontDialog.Font);
end;
end.
--------------
From: Jan Bachor <bachor(zv)iol(tec)cz>
> Zdravim
>
> byl bych ti moc vdecnej kdybys to popsal jak
>
> predem dik
>
> s pozdravem Johnboy
gfx format CIT, znate to nekdo?
[*] petr.palicka(zv)atlas(tec)cz - 18.5.2000 17:57:35
to neni vono,
*.CIT, ktery mam na mysli, je nejaky rastrovy format pro ukladani map.
prave, ze sem to nikde nenasel
ani wotsit ani encyklopedie gfx mi nepomohli :(
> prohledaval jsem encyklopedii grafickych formatu a jedine co jsem nasel
> bylo kodovani CCITT, coz je kodovani vyvinute pro prenos textovych
> dokumentu po faximile. Nejakou verzi tohohle kodovani by melo pouzivat i
> TIFF. Ale to je tak vsechno.
> Pavel Hampl
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[ smtp: petr.palicka(zv)atlas(tec)cz ]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~StayOnTop
[*] Hurricane <hurricane(zv)email(tec)cz> - 18.5.2000 18:17:02
Zdravim
Potrebuju mit dialogovy okno modalni vuci aplikaci. Nastavil sem si
FormStyle toho dialogu na StayOnTop. Myslel sem, ze to bude modalni vuci
vsem oknum a ono ne. Je modalni jenom vuci MainFormu. Je to v poradku?
Diky za odpoved
Hurricane
tisknuteln� ���ka a RightEdge (mwCustomEdit)
[*] Hurricane <hurricane(zv)email(tec)cz> - 18.5.2000 20:42:34
Zdravim
Pot�ebuju odn�kud zji��ovat tisknutelnou ���ku str�nky, ode��st nastaven�
okraje a p�epo��tat to na po�et znak� zadan�ho fontu. Probl�m m�m pr�v� ve
zji�t�n� ���ky pap�ru (nebo max. po�tu znak� zadan�ho fontu), kter� je v
tisk�rn�. P�ed tiskem se mi zobraz� dialog ve kter�m se dostanu k
nastavovac�mu dialogu m� tisk�rny (HP DJ690). Tam si m��u navolit velikost
pap�ru, ale za prv� nev�m, kde se to d� p�e��st a za druh� to v�bec nemus�
fungovat u jinejch tisk�ren. I kdy� te� m� napadlo i �e�en�, kdy si u�ivatel
s�m zvol� velikost pap�ru, kter� pou��v� (ty druhy si op�u ze st�vaj�c�ho
dialogu, jsou tam i rozm�ry).
Po��d ale nevim, jak p�epo��tat po�et milimetr� na po�et znak� zadan�ho
fontu.
Pomoc� tohohle chci vlastn� uk�zat u�ivateli, kde mu kon�� str�nka a jak si
m� form�tovat text.
D�k za jak�koliv nakopnut�
Hurricane
Dotaz na funkce OLE - Excell
[*] Lud�k P�ral - 18.5.2000 21:47:48
Na D4-Profi zkous�m tvorbu Excell-tabulek, mam MS Office 2000 Premium.
Myslel jsem si , ze staci pouzivat kopie funkci z Visual Basicu (pouziti
prikazu z makra). Ovsem jednotlive funkce maji jiny formalni zapis. Tez help
z MS visual Basic ma jiny formalni zapis (napr. property cells ma kulate
zavorky, ale Delphi vyzaduje hranate.
Dale jsem zkousel priklady z knihy Grada, ale nefunguje mi TLB (na disku
jsem prislusne soubory nenalezl, v helpu neni napsana potrebna Unit (napr
Excel_TLB.Range)
Pristup pres CreateOleObject se rozjel, ale Delphi nepozna metodu
GetActiveObject(ClassID,nil, Unknown). Tim musim vzdy spoustet novy Excell.
Dekuji za vsechny odpovedi nebo linky na priklady pouziti.
S pozdravem
Ludek P�ral
Sadova 2/503
352 01 As
ludek.paral(zv)telecom(tec)cz
MP3
[*] Martin Skrivanek (atlas) <marify(zv)atlas(tec)cz> - 18.5.2000 22:01:04
> Ahojky lidicky, sorry, za OTcko, ale uz nevim, kde bych to hledal. Da se
> nejak (popripade jak) zjistit delka MP3ky - myslim cas ne velikost.
> Pravdepodobne by to slo zjistit tak, ze bych postupne prosel celou MP3ku
> nacital jednotlivy bloky a z nich (podle kvality a delky) bych urcil
> delku cely MP3ky, prijde mi to, ale dost zdlouhavy - nejde to nejak
> jednodusejc.
> --
> Martin Pe�ava
No, myslim, ze mas namysli MP3 s promennym Bitrate, coz je celkem problem.
To bys opravdu musel projit cely soubor. Ale pokud ti staci jen odhad casu.
Tak staci nacist jen prvni hlavicku (4 Bytes) a s pomoci filesize, urcis
cas. +-5sekund (snad :-)
Kdysi jem upravil nejaky zdrojak ke zjisteni informaci o MP3. Udelal jsem z
toho unit.
Je tam jen funkce GetMPxInfo.
Jedna z informaci "ReallyRightInfo" znamena, ze tomu zjistenemu casu se da
opravdu verit
(na 99%), pokud je to false tak se asi jedna o MP3 s VBR.
Jo a ten TAG je stary. Ale vestinou, pokud ma MP3 novy tag (na zacatku
souboru) tak ma i na konci
tento stary)
Doufam, ze nasledujici Unit vyuzije vice Delfaku :-))
unit uMPxInfo;
interface
type
TOutID3Tag=record
exists:boolean;
title,
artist,
album:string[30];
year:string[4];
genre:string[20];
comment:string[30];
end;
TOutMPxInfo=record
version,
layer,
protect,
bitrate,
samplerate,
padding,
extension,
channelmode,
modeextension,
copyright,
original,
emphasis,
playtime,
framesize,
totalframes:string[20];
playtimesec:word;
filesize:int64;
filesizeMB:string[6];
ReallyRightInfo:boolean;
end;
Function GetMPxInfo(filename:string;
var OutID3Tag:TOutID3Tag;
var OutMPxInfo:TOutMPxInfo
):Boolean;
implementation
Type
ID3tag=record
header:array[0..2] of char;
title,
artist,
album:array[0..29] of char;
year:array[0..3] of char;
comment:array[0..29] of char;
genre:byte;
end;
MPx_header=record
version,
layer,
protect,
bitrate,
samplerate,
padding,
extension,
channelmode,
modeextension,
copyright,
original,
emphasis:byte;
end;
header_type=array[0..3] of byte;
Function GetMPxInfo(filename:string;
var OutID3Tag:TOutID3Tag;
var OutMPxInfo:TOutMPxInfo
):Boolean;
const {MPEG versions}
MPx_version:array[0..2] of string=
('2','1','2.5');
{Layer}
MPx_layer:array[0..3] of string=
('unknown','I','II','III');
{Error protection}
MPx_protection:array[0..1] of string=
('Yes','No');
{Sample rates}
MPx_frequencies:array[0..2,0..3] of word=
((22050,24000,16000,0), {MPEG-2}
(44100,48000,32000,0), {MPEG-1}
(11025,12000,8000,0)); {MPEG-2.5}
{Bitrates}
MPx_bitrates:array[0..2,0..2,0..15] of word=
{MPEG-2}
(((0,32,48,46,64,80,96,112,128,144,160,176,192,224,256,0),
{Layer I}
(0, 8,46,24,32,40,48, 56, 64, 80, 96,112,128,144,160,0),
{Layer II}
(0, 8,16,24,32,40,48, 56, 64, 80, 96,112,128,144,160,0)),
{Layer III}
{MPEG-1}
((0,32,64,96
,128,160,192,224,256,288,320,352,384,416,448,0), {Layer I}
(0,32,48,56, 64, 80,
96,112,128,160,192,224,256,320,384,0), {Layer II}
(0,32,40,48, 56, 64, 80,
96,112,128,160,192,224,256,320,0)), {Layer III}
{MPEG-2.5}
((0,32,48,46,64,80,96,112,128,144,160,176,192,224,256,0),
{Layer I}
(0, 8,46,24,32,40,48, 56, 64, 80, 96,112,128,144,160,0),
{Layer II}
(0, 8,16,24,32,40,48, 56, 64, 80,
96,112,128,144,160,0))); {Layer III}
{Padding}
MPx_padding:array[0..1] of string=
('All bits in frame are used','Unused bits are filled');
{Extension}
MPx_extension:array[0..1] of string=
('No','Yes');
{Channel mode}
MPx_channel:array[0..3] of string=
('Stereo','Joint stereo','Dual channel','Mono');
{Mode extension - only for Joint stereo}
MPx_modeext:array[0..3,0..3] of word=
((4,8,12,16), {Layer 1}
(4,8,12,16), {Layer 2}
(0,4,8,16), {Layer 3}
(0,0,0,0)); {not defined}
{Copyright}
MPx_copyright:array[0..1] of string=
('No','Yes');
{Original}
MPx_original:array[0..1] of string=
('No','Yes');
{Emphasis}
MPx_emphasis:array[0..3] of string=
('None','50/15 microseconds','Unknown','CITT j.17');
ID3_genres:array[0..147] of string[20]=
('Blues','Classic Rock','Country','Dance','Disco',
'Funk','Grunge','Hip-Hop','Jazz','Metal',
'New age','Oldies','Other','Pop','R&B',
'Rap','Reggae','Rock','Techno','Industrial' ,
'Alternative','Ska','Death metal','Pranks','Soundtrack',
'Euro-Techno','Ambient','Trip-Hop','Vocal','Jazz+Funk',
'Fusion','Trance','Classical','Instrumental','Acid',
'House','Game','Sound Clip','Gospel','Noise',
'Alt. Rock','Bass','Soul','Punk','Space',
'Meditative','Instrumental Pop','Instrumental Rock','Ethnic','Gothic',
'Darkwave','Techno-Industrial','Electronic','Pop-folk','Eurodance',
'Dream','Southern Rock','Comedy','Cult','Gangsta Rap',
'Top 40','Christian Rap','Pop/Funk','Jungle','Native American',
'Cabaret','New Wave','Psychadelic','Rave','Showtunes',
'Trailer','Lo-Fi','Tribal','Acid Punk','Acid Jazz',
'Polka','Retro','Musical','Rock & Roll','Hard Rock',
'Folk','Folk/Rock','National Folk','Swing','Fast-Fusion',
'Bebop','Latin','Revival','Celtic','Bluegrass',
'Avantgarde','Gothic Rock','Progressive Rock','Psychedelic
Rock','Symphonic Rock',
'Slow Rock','Big Band','Chorus','Easy Listening','Acoustic',
'Humour','Speech','Chanson','Opera','Chamber Music',
'Sonata','Symphony','Booty Bass','Primus','Porn Groove',
'Satire','Slow Jam','Club','Tango','Samba',
'Folklore','Ballad','Power Ballad','Rhytmic Soul','Freestyle',
'Duet','Punk Rock','Drum Solo','A Capella','Euro-House',
'Dance Hall','Goa','Drum & Bass','Club-House','Hardcore',
'Terror','Indie','BritPop','Negerpunk','Polsk Punk',
'Beat','ChrisGang Rap','Heavy Metal','Black Metal','Crossover',
'Contemp Christian','Cristian Rock','Merengue','Salsa','Thrash Metal',
'Anime','JPop','Synthpop');
function word_str(var x:word):string;
var s:string;
begin
str(x,s);
word_str:=s;
end;
function longint_str(var x:longint):string;
var s:string;
begin
str(x,s);
longint_str:=s;
end;
function mbytes(var x:longint):string;
var s:string;
r:real;
begin
r:=x/1048576;
str(r:0:1,s);
mbytes:=s;
end;
procedure get_MPx_header(header:header_type;var h:MPx_header);
begin
if ((header[1] and 16) shr 4)=0 then h.version:=2
else h.version:=(header[1] and 8) shr 3;
h.layer:=4-((header[1] and 6) shr 1);
h.protect:=header[1] and 1;
h.bitrate:=(header[2] and 240) shr 4;
h.samplerate:=(header[2] and 12) shr 2;
h.padding:=(header[2] and 2) shr 1;
h.extension:=(header[2] and 1);
h.channelmode:=(header[3] and 192) shr 6;
h.modeextension:=(header[3] and 48) shr 4;
h.copyright:=(header[3] and 8) shr 3;
h.original:=(header[3] and 4) shr 2;
h.emphasis:=(header[3] and 3);
end;
function calculate_BPF(h:MPx_header):longint;
var framesize:longint;
begin
case h.layer of
1:
begin
framesize:=12000*MPx_bitrates[h.version,0,h.bitrate] div
MPx_frequencies[h.version,h.samplerate];
framesize:=framesize+h.padding;
framesize:=framesize shl 2;
end;
2,3:
begin
framesize:=144000*MPx_bitrates[h.version,h.layer-1,h.bitrate] div
MPx_frequencies[h.version,h.samplerate];
if (h.version=2) or (h.version=0) then framesize:=framesize shr 1;
framesize:=framesize+h.padding;
end;
else framesize:=0;
end;
calculate_BPF:=framesize;
end;
function calculate_TPF(h:MPx_header):real;
const bs:array[0..3] of word=(0,384,1152,1152);
var tpf:real;
begin
if (h.version=0) or (h.version=2) then
tpf:=MPx_frequencies[h.version,h.samplerate] shl 1
else tpf:=MPx_frequencies[h.version,h.samplerate];
tpf:=bs[h.layer]/tpf;
calculate_TPF:=tpf;
end;
procedure print_MPx_info(h:MPx_header;fname:string;fsize:longint);
begin
With OutMPxInfo do
begin
version:=MPx_version[h.version];
layer:=MPx_layer[h.layer];
protect:=MPx_protection[h.protect];
bitrate:=word_str(MPx_bitrates[h.version,h.layer-1,h.bitrate]);
samplerate:=word_str(MPx_frequencies[h.version,h.samplerate]);
padding:=MPx_padding[h.padding];
extension:=MPx_extension[h.extension];
str(h.channelmode,channelmode);
if h.channelmode=1 then mod
eextension:=word_str(MPx_modeext[h.layer,h.modeextension]);
copyright:=MPx_copyright[h.copyright];
original:=MPx_original[h.original];
emphasis:=MPx_emphasis[h.emphasis];
end;
end;
procedure print_add_info(h:MPx_header; fsize:longint);
var BPF,frames,time,t:longint;
TPF:real;
begin
BPF:=calculate_BPF(h);
TPF:=calculate_TPF(h);
frames:=fsize div BPF;
time:=trunc(frames*TPF);
OutMPxInfo.playtimesec:=time;
t:=time div 60;
OutMPxInfo.playtime:=longint_str(t)+':';
if (time mod 60)<10 then OutMPxInfo.playtime:=OutMPxInfo.playtime+'0';
t:=time mod 60;
OutMPxInfo.playtime:=OutMPxInfo.playtime+longint_str(t);
OutMPxInfo.framesize:=longint_str(bpf);
OutMPxInfo.totalframes:=longint_str(frames);
end;
procedure print_ID3tag(tag:ID3tag);
begin
if tag.header='TAG' then
with OutID3Tag do
begin
exists:=true;
title:=tag.title;
artist:=tag.artist;
album:=tag.album;
year:=tag.year;
if tag.genre<130 then genre:=ID3_genres[tag.genre];
comment:=tag.comment;
end;
end;
function HeaderOK(h:header_type):boolean;
begin
HeaderOK:=((h[0]=$FF) and (h[1]=$FB)) or
((h[0]=$FF) and (h[1]=$FA));
end;
var f:file;
tag:id3tag;
header,header1:header_type;
h:MPx_header;
result1:integer;
fsize:longint;
fpos:longint;
OK:boolean;
begin
with OutID3Tag do
begin
exists:=false;
title:='';
artist:='';
album:='';
year:='';
genre:='';
comment:='';
end;
with OutMPxInfo do
begin
version:='';
layer:='';
protect:='';
bitrate:='';
samplerate:='';
padding:='';
extension:='';
channelmode:='';
modeextension:='';
copyright:='';
original:='';
emphasis:='';
playtime:='';
framesize:='';
totalframes:='';
playtimesec:=0;
filesize:=0;
filesizeMB:='';
ReallyRightInfo:=false;
end;
GetMPxInfo:=false;
{$I-}
assignfile(f,filename);
filemode:=0;
reset(f,1);
if IOResult=0 then
begin
fsize:=filesize(f); fpos:=0;
blockread(f,header,sizeof(header),result1);
OutMPxInfo.ReallyRightInfo:=HeaderOK(header);
if not ((header[0]=255) and (header[1]<>255)) then
begin
repeat
inc(fpos);seek(f,fpos);
blockread(f,header,sizeof(header),result1);
until (result1<4) or HeaderOK(header) or (fpos>15000);
if result1=4 then
repeat
inc(fpos);seek(f,fpos);
blockread(f,header1,sizeof(header1),result1);
until (result1<4) or HeaderOK(header1) or (fpos>15000);
if (result1<4) or (fpos>15000) then header1[0]:=0 {>bad header}
else OutMPxInfo.ReallyRightInfo:=
((header[0]=header1[0]) and
(header[1]=header1[1]) and
(header[2] and $FC =header1[2] and $FC) and
(header[3]=header1[3]));
end; OK:=true;
if header[0]<>255 then OK:=false;
if (header[1] or $1F)<>255 then OK:=false;
if OK then
begin
seek(f,fsize-128);
blockread(f,tag,sizeof(tag),result1);
get_MPx_header(header,h);
print_MPx_info(h,filename,fsize);
print_add_info(h,fsize);
print_ID3tag(tag);
end;
OutMPxInfo.filesize:=fsize;
OutMPxInfo.filesizeMB:=mbytes(fsize);
GetMPxInfo:=OK;
closefile(f);
end;
{$I+}
end;
end.
Spusteni aplikace
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 18.5.2000 22:04:40
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Mal� Dobromil
> Sent: Thursday, May 18, 2000 10:09 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Spusteni aplikace
>
>
> Ahoj,
>
> HKEY_LM\Software\Microsoft\Windows\...
> ...\CurrentVersion\RunServices
Ahoj,
ale pozor! Po odlogovani uzivatele dojde
k ukonceni tohoto programu. Koukni do archivu
a hledej RegisterAutoExec a UnregisterAutoExec.
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
>
> Dobra.
>
> > ----------
> > Od: Jiri Novacek[SMTP:JNovacek(zv)spst(tec)cz]
> >
> > Potrebuji spustit svoji aplikaci jeste pred prihlasenim do pocitacove
> > site (NetWare, Windows).
> > Kam do registru zapsat jmeno programu nebo jak je mozne toto realizovat.
> >
> >MP3
[*] Martin Skrivanek (atlas) <marify(zv)atlas(tec)cz> - 18.5.2000 22:07:22
Jeste mala poznamka
Jo, a nejvic mne tehdy nastvalo, ze ta hlavicka (4B) nemusi byt
bezprostredne na zacatku souboru .mp3,
ale kdekoli dal. A to se pak celkem tezko hleda. Navic kdyz te tyto bajty
meni v zavislosti na parametrech
teto mp3. Ale alespon, ze aspon jeden z tech 4 Bajtu je vzdy stejny. Ale co
kdyz na zacatku toho souboru
je takovych stejnych bajtu vic, coz neni nemozne! To je pak v pr.
PS: ten Unit (funkci) by slo upravit tak, aby zvladla i MP3 s Variabilnim
BitRate.
Ale to uz snad ti zvas , co to chteji vyuzit. Zvladnou sami :-))
Marify
xskriva1(zv)fi.muni(tec)cz
http://www.fi.muni(tec)cz/~xskriva1
TListView
[*] Ma Fi <MarekFi(zv)centrum(tec)cz> - 18.5.2000 22:45:02
Martin �ajbik (Marcant) wrote:
> Mam jeden mensi problem s TListView. Potrebujem implementovat hladanie
> textu v TListView (ViewStyle = vsReport, 3 stlpce). Samotne hladanie
> je bez problemov, pre ilustraciu prikladam kod (lsv je TListView a txt
> je hladany text): for i:= lsv.Selected.Index+1 to lsv.Items.Count-1
> do
> if (Pos(txt, lsv.Items[i].Caption) > 0) or (Pos(txt,
> lsv.Items[i].SubItems[0]) > 0)
> or (Pos(txt, lsv.Items[i].SubItems[1]) > 0) then
> begin
> lsv.Selected:= lsv.Items[i];
sem musis jeste doplnit
lsv.Items[i].MakeVisible (false);
pisu to z pameti tak se radeji koukni do helpu.
Spusteni aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.5.2000 23:07:29
From: Jiri Novacek <JNovacek(zv)spst(tec)cz>
> Potrebuji spustit svoji aplikaci jeste pred prihlasenim do pocitacove
> site (NetWare, Windows).
> Kam do registru zapsat jmeno programu nebo jak je mozne toto realizovat.
Ahoj,
Stahni si JCL (http://delphi-jedi.org/Jedi:CODELIBJCL), tam mas funkce
RegisterAutoExec a UnregisterAutoExec, ktere ti toto zprostredkuji.
Petr Vones, amatersky programator
TListView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.5.2000 23:07:41
From: Martin �ajbik (Marcant) <marcant(zv)sct.sk>
> Samotny problem je v tom, ze nastavenie lsv.Selected:= ... sice nastavi aktualnu
> polozku na tu ktoru chcem, ale samotny ListView sa nezaroluje a tym padom uzivatel
> nemusi uvidiet najdeny riadok.
Ahoj,
Podivej se na metodu TListItem.MakeVisible
Petr Vones, amatersky programator
odesilani e-mailu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.5.2000 23:07:38
From: <RDocekal(zv)csas(tec)cz>
> Tyhle opicarny vsak neumi kazdej mail klient, napr. pomerne rozsireny
> Pegasus Mail se po pouziti mailto:nekdo(zv)nekde.com?subject=Pozdrav ani
> nespusti. Pri pouziti jen mailto:nekdo(zv)nekde.com to funguje.
Ahoj,
Ty "opicarny" jsou i v RFC (ftp://ftp.isi.edu/in-notes/rfc2368.txt), asi
kazdy slusny klient by to mel podporovat.
Petr Vones, amatersky programator
TADOTable a TADOQuery v D5
[*] Erik Salaj <winsoft(zv)napri.sk> - 18.5.2000 23:15:04
> 1) v nastaveni property ADOTable1.Filter:=Rozloha=promenna nebo
>
> Rozloha<promenna nebo
>
> Rozloha<>promenna
> vsechno funguje, jak ma, ale kdyz dam znamenko > a vyraz vypada
> takto Rozloha>promenna, tak mi vyhodi EOleException neco jako (ach ta
> anglictin) Aplikace pouziva neplatny argument mimo pripustne rozmezi nebo
je
> v konfliktu s jinym. A ted vubec nechapu o co jde.
> ((( Connection string Provider=MSDASQL.1;Persist Security
> Info=False;Mode=Read;Connect Timeout=15;Extended Properties="DSN=MS Access
> 97 Database;DBQ=C:\Otis\Data\dbdemos.m
> db;DefaultDir=C:\Otis\Data;DriverId=281;FIL=MS Access;FILEDSN=C:\Program
> Files\Common Files\ODBC\Data Sources\MS Access 97 Database (not
> sharable).dsn;MaxBufferSize=2048;PageTimeout=5;UID=admin;";Locale
> Identifier=1029)))
Skus pouzit nativny provider pre Access 97
Erik
Jak primo na ADO?
[*] Erik Salaj <winsoft(zv)napri.sk> - 18.5.2000 23:18:14
> Nevite nekdo, kde bych mohl najit navod, jak procovat s ADO, V D5, bez
> pouziti komponet delphi, tj primo s pomoci unity ADOInt. Zasekl jsem se na
> tom, jak pristupovat k polozkam Recordsetu a nevim jak dal.
V MSDA SDK je kompletna dokumentacia (http://www.microsoft.com/data).
Mozes skusit ADOCS komponenty (na http://www.cybermagic.co.nz/winsoft),
je to vlastne len Delphi zapuzdrenie ADO objektov, ale mozes s tym
robit dost vela veci interaktivne, takze na vyskusanie ADO to moze byt
uzitocne.
Erik
StringGrid
[*] Martin Skrivanek (atlas) <marify(zv)atlas(tec)cz> - 18.5.2000 23:21:39
> Hi,
> mam jeste jeden dotaz, da se nak v StringGridu vomezit pocet znaku v
jednom sloupci stejne jako v Editu. Neco jako Edit1.MaxLength := 10; pro
jeden sloupec? A nebo jestli se da sehnat naka komponen�ta, ktera to umi.
>
> Diky Petr Masek
Tak to budes muset obstarat par udalosti,
asi takto ( pro maximalni delku = 10) :
ale samozrejme jeste par dalsich
napr: Copy & Paste by to nesezralo
***********************************************************
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
with Stringgrid1 do
if EditorMode then
if (length(Cells[Col,Row])>=10) and (key>#32) then key:=#0;
end;
***********************************************************
a nebo pri GoEditing=False bys mohl pri stisku entru nebo F2 zobrazit TEdit
presne na miste
aktualniho policka (kde by delka byla omezena) a pak po skonceni editace bys
ten Edit schoval
(visible=false) a predal string tomu stringgridu.
Marify
xskriva1(zv)fi.muni(tec)cz
http://www.fi.muni(tec)cz/~xskriva1
Titulek okna
[*] Hurricane <hurricane(zv)email(tec)cz> - 19.5.2000 00:05:39
Zdravim
Tak na to bacha. Je sice spousta komponent, kter� to um�j (na TORRY jich
najde� asi tis�c), ale V�ECHNY se nesn�ej s Win98, 2000, ME. Tak�e
doporu�uju kdy� chce� m�nit font, tak pou��t jednu z t�ch komponent, ale
jak�koliv gradientov�n� VYPNOUT. Krom toho je to hnusn�. Jestli chces, m��u
ti jich n�kolik poslat, napi� na hurricane(zv)email(tec)cz.
Hurricane
----- Original Message -----
> Zdravim vsechny,
> nevite jak bych mohl sam zajistit vykreslovani titulku oken? Potrebuji
> pri tom totiz menit jeho font. Porad mam potize pokud je pozadi titulku
> barevny prechod.
Par otazek k BCB 5
[*] Erik Salaj <winsoft(zv)napri.sk> - 19.5.2000 00:10:14
> mam BCB 5 Std.
> 1. Pouzivam Adonis komponenty ovsem, pokud chci zkompilovat projekt, tak
vzdy dostanu tuhle hlasku:
> [C++ Error] ADODS.hpp(16): E2209 Unable to open include file 'Db.hpp'
> ackoli jsem soubor Db.hpp nasel.
Delphi 5 a BCB 5 standard uz neobsahuju databazove komponenty ;-(, takze to
asi nepojde prelozit.
> 2. Potreboval bych pouzivat globalni promenne, ktere jsou definovany v
jednom *.h souboru, ale kdyz dam #include "promenne.h" do vsech modulu v
projektu, kde tyto promenne musi byt viditelne, dostanu upozorneni, ze tyto
promenne jsou definovany v modulech modul1.obj a modul2.obj.
Globalne premenne nemozu byt definovane v headri mozes ich tam len
deklarovat a definovat ich musis
v CPP subore.
Erik
cestina na mssql7
[*] Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz> - 19.5.2000 00:57:00
Fakt dobrej je Upgrade Wizard (ve Start menu je ve slozce MS SQL Switch).
Je treba si nechat nainstalovany MS SQL 6.5 i 7.0 zaroven.
Prekonvertuje datove schema (i vcetne indexu, triggeru a ulozenych procedur)
i data samotna.
Opravdu sikovny nastroj.
Lada
> Jeste je ale nutn� vygenerovat script pro celou datab�zi,
> neb po aplikaci "rebuildm" se vse ztrat�. Tedy i triggery atd.
> A pak pokud tam m�te v�c nez jednu datab�zi mus�te to udelat
> pro vsechny datab�ze co jsou na mssql.
>
> Je ovsem s podivem, ze me nic nevarovalo
> pred takovou operac�, kter� je vlastne destruktivn�...
>
> Michal
>
>
> ----- Original Message -----
> From: Ladislav Nagy <lnag7384(zv)mail.kolej.mff.cuni(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Tuesday, May 16, 2000 9:12 PM
> Subject: Re: cestina na mssql7
>
>
> > > Pred takovymito akcemi je vhodne poslat vsechna data nekam
> > > mimo databazi, a po zmene (nebo reinstalaci) je pak lze opet
> > > natahnout. Je to ovsem trosku pracne. :-)
> > >
> > > Ted se mi rozhodne nechce zkoumat, jak problematicke by to bylo
> > > pres BDE, ale ja si na to udelal dve jednoduche procedury, prvni
> > > vycte (podle mnou dodaneho seznamu tabulek) data a posila je
> > > jako text (s vyjimkou binary a blob poli) do nejakeho souboru, k
> > > nim jeste priradim priznak, jakeho jsou data typu. Neukladam
> > > samozrejme readonly sloupce, jako je autoinkrement. Druha
> > > procedura cte data, a posila je pomoci INSERT do databaze.
> >
> >
> > Ahoj,
> >
> > Take jsem si delal kdysi sve utilitky na export a import dat.
> > Daleko vyhodnejsi je v pripade MS SQL dodavana utilita BCP, ktera mimo
> jine
> > exportuje i identity fields.
> > Pri spravnych parametrech pak pri importu identity fields zachova, coz
je
> > dulezite pokud
> > se na dana IDcka odkazuji z jinych tabulek.
> > Toho muzes Zbysku samozrejme dosahnout pomoci set identity_insert on ...
> set
> > identity_insert off, ale ocekavam, ze bude jednotlive insertovani v
> > porovnani s BCP vyrazne pomalejsi.
> > Utilitu pouzijete pokud potrebujete zmenit character set nebo trideni
(=1.
> > vyexportovat data pres BCP do ASCII files, 2. rebuild master databaze,
3.
> > import dat opet pres BCP).
> > Takto lze prevadet i data mezi verzemi MS SQL 6.5 a 7.0/MSDE.
> > Exportovat/importovat pomoci BCP lze i jednotlive tabulky.
> >
> > S pozdravem, Lada
> >
>Jak zjistit u IB6 jmeno role
[*] L. ZITA <konference(zv)sales(tec)cz> - 19.5.2000 01:33:20
Zdravim.
Jak zjistim v IB6 v SQL dotazu jmeno role se kterou je dany uzivatel
prihlasen.
Chci v databazi rozdelit pravomoci ne podle uzivatelu ale podle roli.
Takze jsem si predstavoval ze uzivatele (krom nejakeho administratora)
budou zcela bezpravni a prava k jednotlivym tabulkam,proceduram, trigerum
atd pridelim
prislusnym rolim. Pak budu prava techto roli delegovat prislusnym uzivatelum
stylem
GRANT "JMENO_ROLE" TO JMENO_UZIVATELE;
V nekterych tabulkach bych potreboval videt s jakymi pravy byly jednotlive
zaznamy zalozeny.
takze neco jako :
CREATE TABLE NECO (
.......
ZALOZIL VARCHAR(32) DEFAULT USER
a pak pouzit v trigeru
CREATE TRIGGER NECO_BUPDATE FOR NECO
ACTIVE BEFORE UPDATE POSITION 0
AS
BEGIN
IF ((NECO.FLAG>0) AND (NECO.ZALOZIL<>USER)) THEN
EXCEPTION E_BEZPRAV;
END
ale misto jmena uzivatele dosadit jmeno ROLE.
nebo zjistit co do databaze vlozili treba ridici.
SELECT * FROM NECO WHERE ZALOZIL='ridic'
Udrzovat nekde separatni tabulku uzivatelu bych moc nechtel protoze muze byt
casem
pomerne velka "migrace" uzivatelu a mohlo by to celkem dost zdrzovat.
Mozna na to existuje nejaka UDF funkce ?
Pripadne natuknuti jak ji napsat by mi take pomohlo. Zatim jsem se
zmohl pouze k psani UDF funkci, ktere si "vystaci samy" a nevolaji zadne
API Interbase.
Predem diky.
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�: 2.3.2000
TADOTable a TADOQuery v D5
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 19.5.2000 07:39:45
On 18 May 2000, at 11:49, Petr Sadovsk� wrote:
> chtel bych se zeptat, jestli se nekdo z Vas setkal s timto:
>
> 1) v nastaveni property ADOTable1.Filter:=Rozloha=promenna nebo
>
> Rozloha<promenna nebo
>
> Rozloha<>promenna
> vsechno funguje, jak ma, ale kdyz dam znamenko > a vyraz
> ((( Connection string Provider=MSDASQL.1;Persist Security
> Info=False;Mode=Read;Connect Timeout=15;Extended Properties="DSN=MS
> Access 97 Database;DBQ=C:\Otis\Data\dbdemos.m
>
> 2) TADOQuery mi provede INSERT INTO Table1 (field1,field2)
> values(prom1,prom2) , ale INSERT INTO Table1 (field1,field2) select
> field3,field4 from table2 mi vyhodi EOleException sysntakticka chyba.
> ((( v tomto pripade je Connection string takto
> Provider=MSDASQL.1;Persist Security Info=False;Mode=Read|Write;Connect
Proc pouzivas TADOTable a TADOQuery? Rady problemu se
zbavis uz jen tim, ze namisto toho budes pouzivat TADODataSet.
Dalsi problemy mohou plynout z toho, ze se snazis pripojit pres
ODBC. V pripade Accessu je to ciry nesmysl, kdyz existuje nativni
provider primo pro Access. S Foxkou to IMHO bude obdobne.
Vyzkousej jiny pristup, a pak se pripadne zeptej znovu, budou-li
stale problemy...
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
Menu ReOpen a TPopUpMenu vs TMenuItem
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 19.5.2000 07:51:21
Ahoj
v Delphi delam neco podobneho takto:
TrackPopupMenu(mnuMain.Items[0].Items[2].Handle,TPM_LEFTALIGN, ps.x, ps.y,
0,handle,nil);
kde mnuMain.Items[0].Items[2].Handle je v Tvem pripade Reopen.Handle;
ps.x a ps.y jsou souradnice leveho horniho rohu menu typu TPoint
- predpokladam, ze na OnClick tlacitka by se dala zavolat vyse uvedena
funkce,
souradnice zobrazeni by sis musel zpocitat podle pozice tlacitka...
Z. Fryz
> -----P�vodn� zpr�va-----
> Od: Petr Vaclavek
> Odesl�no: 18.05.2000 14:53
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Menu ReOpen a TPopUpMenu vs TMenuItem
>
> Mam BCB 4
> A narazil jsem na nasledujici problem.
> Rad bych udelal neco jako je treba v Delphi v menu File polozka
> Reopen. Teda toto uz mam udelano.
> Ted bych to jeste rad dostal do toho tlacitka na ToolBaru (stejne
> jako je to v Delphi).
> Tj Menu Reopen priradit jako DropDownMenu jednomu ToolBaru (ktery ma
> nastaven nejakou Akci). Problem je, ze sem se muze dat jen PopUpMenu,
> kdezto ja to mam jako normalni polozku menu. Muze mi nekdo poradit
> jak na to? Nebo musim vytvorit i to PopUpMenu, ktere bude obsahovat
> to same jako ta polozka Reopen?
> Nejde to nejak jednoduseji (at to nedelam zbytecne)?
> Jinak ten ToolButton mam nastaven na tbsDropDown
>
> Diky predem za rady.
>
> Petr
>
>
> ,=====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )===--- -- - -
> --=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
> `======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
> `======----( read: http://www.swnet(tec)cz )=-- -- -
>
>
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Clipboard este raz
[*] Daniel Sichta <dano(zv)customweb.sk> - 19.5.2000 08:11:24
D5 E, W98
Ako by sa dal najlepsie vyriesit tento moj problem :
Cez OpenDialog si vyberiem subor (95 % suborov bude Word file) .Potrebujem
obsah tohto suboru ( bez toho aby som ho otvoril alebo spustil Word) nejako
dostat do clipboardu a odtial do tela posty. Priklad potesi !!
Dakujem
Daniel �ichta
CUSTOM.web s.r.o.
Hod�ova 13
01001 �ilina
SLOVAKIA
www.customweb.sk
++421 89 564 3475
odesilani e-mailu
[*] Zapl�k���ͪe�?�Y��̿ - 19.5.2000 08:33:08
To, ze to nemusi fungovat v necem jinem, mne zas tak neboli, budu to
pouzivat pouze tam, kde je 100% Outlok Expres. To co mne ale trapi
je ten fakt, ze pod W98 funguje vsechno jak ma, ale pod Win95 je
Body omezeno cca na (+/-) 190 znaku. Nebude nekde zakopanej pes
v PChar?
Dik, Ahoj
Zaplik
Zaplik(zv)volny(tec)cz
> From: <RDocekal(zv)csas(tec)cz>
> > Tyhle opicarny vsak neumi kazdej mail klient, napr. pomerne rozsireny
> > Pegasus Mail se po pouziti mailto:nekdo(zv)nekde.com?subject=Pozdrav ani
> > nespusti. Pri pouziti jen mailto:nekdo(zv)nekde.com to funguje.
>
> Ahoj,
>
> Ty "opicarny" jsou i v RFC (ftp://ftp.isi.edu/in-notes/rfc2368.txt), asi
> kazdy slusny klient by to mel podporovat.
>
> Petr Vones, amatersky programator
>
>
>
>
Samorozbalovaci EXE
[*] Zdeno Jasek <zdeno.jasek(zv)corinex.sk> - 19.5.2000 08:57:33
Ja som take robil, zajtra ti to poslem - tiez som neobjavoval Ameriku, zdrojak
som si stiahol z www.torry.ru a potom som si ho upravil na svoj obraz. Nevyhoda
mojho programu je, ze je to dost natvrdo, takze asi bude predsa len lepsie, ked
pohladas na torry.ru v sekcii komprimacne komponenty.
Jan Naiser wrote:
> Preji pekny den,
>
> (W98, D5.1P)
> potreboval bych udelat programek (samorozbalovak, ktery si s sebou ponese v
> tele napr. ZIP), tak, aby si upgradnul jiz nainstalovany software. Neco
> podobneho, jako treba upg. BDE nebo patche pro Delphi. Jenom nevim, jak
> udelat ten EXE co nejmensi. Vyuzit TForm v Delphi asi nebude to prave
> orechove. Bude treba jit na klasicke (nevizualni) programovani pod WIN.
> Nemate nekdo nejaky priklad nebo odkaz kde neco podobneho najit, abych
> neobjevoval Ameriku?
>
> Diky, Honza.ListView a Hinty
[*] Ales Radikovsky <radik(zv)volny(tec)cz> - 19.5.2000 09:14:12
Ahojky.
Nevite jak donutit ListView, aby zobrazoval hinty podle polozky, nebo
jeste lepe v reportu podle subpolozky? Nebo neznate nejakou dobrou free
najradu za ListView?
Ales
--
Ale� Radikovsk�
mail: radik(zv)seznam(tec)cz
tel: +420 603 300093
D4 Std. + Free IB komp.
[*] Ales Radikovsky <radik(zv)volny(tec)cz> - 19.5.2000 09:18:22
Podle me ne.
Ales
--
Ale� Radikovsk�
mail: radik(zv)seznam(tec)cz
tel: +420 603 300093
StayOnTop
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 19.5.2000 09:45:39
> -----P�vodn� zpr�va-----
> Od: Hurricane [mailto:hurricane(zv)email(tec)cz]
> Odesl�no: 18. kv�tna 2000 18:17
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: StayOnTop
>
>
> Zdravim
>
> Potrebuju mit dialogovy okno modalni vuci aplikaci. Nastavil sem si
> FormStyle toho dialogu na StayOnTop. Myslel sem, ze to bude
> modalni vuci
> vsem oknum a ono ne. Je modalni jenom vuci MainFormu. Je to v poradku?
Nastaveni StayOnTop modalni okno neziskas.
Modalni okno je okno zobrazene metodou ShowModal. FormStyle
muzes klidne nechat fsNormal, modalni okno diky tomu, ze nedovoli
aktivaci jineho okna ve sve aplikaci, se nemuze dostat pod nej.
Jura
Prehravani WAV
[*] Foldyna Ji�� <jiri.f(zv)avizo(tec)cz> - 19.5.2000 09:49:06
Ahoj,
upresnuji svuj vcerejsi dotaz. Podarilo se mi udelat rychloposuv vpred i
vzad, to zas nebyl takovy problem, ale ted bych potreboval zrychlene
prehravani. Gates nabizi funkci waveOutSetPlaybackRate, ktera by to mela
delat, ale kdyz jsem ji pouzil, tak mi to reklo, ze funkce neni podporovana
(W2000, SB128 PCI se standardnim driverem z W2K). Nemate nekdo prakticke
zkusenosti se zrychlenym prehravanim WAVu ? Existuje zvukova karta, jejiz
driver tohle zrychlene prehravani podporuje ?
Diky za kazdou informaci.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
BDE a Win98; help
[*] pavel minarik <pavel.minarik(zv)email(tec)cz> - 19.5.2000 09:55:47
dobry den,
1) mam problem s instalaci BDE5.1 na win98 (verze 4.10.98 CZ ). Instaluji
pomoci InstallShieldu 5.1. konkretne mam tento problem na pocitaci s procesorem
cyrix. deje se to, ze kdyz pomoci installshieldu nainstaluji muj program
a s nim BDE, tak po kliknuti na BDEAdministratora v ovladacich panelech se
tento nespusti. jenom se obevi kurzor s hodinama a to je cely. pak uz se
nic nestane. neda se spustit ani DBExplorer a nic co souvisi s BDE. nevite
nekdo v cem je problem?
2) pri tvorbe helpu to nefunguje jak ma. pokud mam u formulare prirazen nejaky
helpcontext = 5300 a na buttonu OK je helpcontext = 0, tak by se mel
pri aktivnim fokusu na tento button vyvolat ten rodicovsky, cili 5300. jenze
to se nestane, akorat to zahlasi topic not found nebo tak neco. pritom help
soubor mam nastaven dobre protoze mam na formu jeste jedno tlacitko Cancel
a na nem helpcontext = 5310. kdyz je fokus na tomto tlacitku, tak se vyvola
spravny help. nevite v cem je zakopany pes?
diky
Pavel.M
odesilani e-mailu
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 19.5.2000 10:25:06
No, zkousel jsem to s Pegasem (3.1x) taky,
mne fungoval i mailto:nekdo(zv)nekde.com?subject=Pozdrav&body=texticek,
jenze ta hotova zprava se neodeslala, jen se zaradila do interni
fronty Pegasa k odeslani, prestoze jsem si nastavil okamzite
odesilani (bez fronty). Jeste si vzpominam, ze byly nejake problemy,
pokud se v subjectu nebo body nachazely napsane nejake mezery.
Takze potom jsem reseni pres Pegasa odlozil ad akta X :-)
### RDocekal(zv)csas(tec)cz napsal dne 18 May 00, v 8:07 :
> Tyhle opicarny vsak neumi kazdej mail klient, napr. pomerne rozsireny
> Pegasus Mail se po pouziti mailto:nekdo(zv)nekde.com?subject=Pozdrav ani
> nespusti. Pri pouziti jen mailto:nekdo(zv)nekde.com to funguje.
>
> S pozdravem
> Radek Docekal
> <mailto:rdocekal(zv)csas(tec)cz> ICQ: 9008367
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
odesilani e-mailu
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 19.5.2000 10:48:35
Tak napriklad MS Exchange Klient 4.0 to neumi :-(((
Takze je neslusny :-)
Dobra.
> ----------
> Od: Petr Vones[SMTP:pvones(zv)mbox.vol(tec)cz]
>
> From: <RDocekal(zv)csas(tec)cz>
> > Tyhle opicarny vsak neumi kazdej mail klient, napr. pomerne rozsireny
> > Pegasus Mail se po pouziti mailto:nekdo(zv)nekde.com?subject=Pozdrav ani
> > nespusti. Pri pouziti jen mailto:nekdo(zv)nekde.com to funguje.
>
>
> Ty "opicarny" jsou i v RFC (ftp://ftp.isi.edu/in-notes/rfc2368.txt), asi
> kazdy slusny klient by to mel podporovat.
> odesilani e-mailu
[*] Slab� Petr (Pilsen) <slaby(zv)kadel(tec)cz> - 19.5.2000 11:29:07
Slab�, Petr (Pilsen), 19.05.2000 11:27:24
Zaplik wrote:
>To co mne ale trapi
> je ten fakt, ze pod W98 funguje vsechno jak ma, ale pod Win95 je
> Body omezeno cca na (+/-) 190 znaku. Nebude nekde zakopanej pes
> v PChar?
Obavam se, ze problem bude v ShellExecute, ktere neocekava delsi jmeno souboru nez 255 znaku. Ve Win NT 4.0 SP 4 mi to delalo to same. Resil jsem to tak, ze ctu z registry kde se nachazi outlook a jake potrebuje parametry pro mailto, a potom ho spoustim sam pomoci CreateProcess. Ale idealni to neni a nemam zadnou jistotu, ze to bude fungovat se vsemi verzemi Outlooku o jinych mailerech nemluve.
Best regars,
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.Preruseni SQL dotazu
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 19.5.2000 11:34:23
Ahoj,
lze nejakym zpusobem (mimo vypnuti PC) prerusit select z tabulky ?
Dekuji,
preji hezky den,
Jarek Uher
SSH client - existuje komponenta ?
[*] Martin Skrivanek (atlas) <marify(zv)atlas(tec)cz> - 19.5.2000 11:36:35
Existuje neco jako TNMPOP3 s tim, ze pripojeni bude bezbecne, jako to delaji
clienti
SSH (secure shell, encrypted) ? Aby si helso nelitalo jen-tak po kabelech
nezakodovane.
Nebo to lze udelat i nejak jinak ?
dik
Marify
xskriva1(zv)fi.muni(tec)cz
http://www.fi.muni(tec)cz/~xskriva1
Soucty v QuickReportu
[*] Petr Fojtik <fof(zv)foresta(tec)cz> - 19.5.2000 13:06:32
Zdravim vsechny a zaroven otravuju s dotazem.
Mam problem s QuickReportem, zrejme je uplne trivialni ale nemuzu na to
prijit.
Mam sestavu nad jednoduchym pohledem (proti MS SQL) a potrebuju jen secist
hodnoty ve sloupcich za celou sestavu.
V prislusnem QRExpr -poli mam nastaveno Expression=sum(<nazev sloupce>).
Toto mi funguje pokud je pole umisteno v QRBandu typu PageFooter (tam to
nechci) ale pri umisteni do QRBandu typu Summary vraci stale 0. Jde o
obycelny seznam, zadny master/detail ani zadne mezisoucty za grupy.
Poradte prosim co delam blbe. (D4 C/S)
Petr Fojt�k, fof(zv)foresta(tec)cz
BDE
[*] Radim Holan <radim.holan(zv)seznam(tec)cz> - 19.5.2000 13:35:38
Prosim, muzete mi nekdo poradit ? Mam udelanou datab. aplikaci v Delphi a
abych ji mohl provozovat na jinem PC potrebuju instalaci BDE. Nechce se mi
instal. cely Delphi kvuli BDE. Vim ze existuje samostatna instalace, ale
nevim kde. DIKY !!!!!!
BDE
[*] Martin Lasevi� <vyvoj(zv)atlascon(tec)cz> - 19.5.2000 13:50:15
Ahoj,
jednak se podivej na stranky Inprise, ale tam jsou myslim pouze updates. Ale jinak s DELHI se dodava InstallShield Express,
do ktereho si muzes priradit do instalacni sady i cele BDE.
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: Radim Holan [SMTP:radim.holan(zv)seznam(tec)cz]
> Odesl�no: 19. kv�tna 2000 13:36
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: BDE
>
> Prosim, muzete mi nekdo poradit ? Mam udelanou datab. aplikaci v Delphi a
> abych ji mohl provozovat na jinem PC potrebuju instalaci BDE. Nechce se mi
> instal. cely Delphi kvuli BDE. Vim ze existuje samostatna instalace, ale
> nevim kde. DIKY !!!!!!
>
>
>
> pristup na Access pres ODBC
[*] Petr Jarkovsky <petr.jarkovsky(zv)spsselib.hiedu(tec)cz> - 19.5.2000 14:05:29
Zdravim
Pristupuju k MDB pres ODBC.
Pri zavolani prvniho SQL prikazu (pouzivam jenom SQL) me program
vyhodi okno pro prihlaseni (jmeno, heslo). Po odklepnuti vse bezi.
Zadne heslo samozrejme nastavene u databaze ani v nastaveni ODBC
nemam. Muzete mi prosim poradit, jak se zbavit toho prihlasovaciho
okna?
diky
PeJaSoft
(\__/) PeJaSoft
/o o \ ____ Petr Jarkovsky
{o__, +/~ _) (PASCAL,DELPHI,3D Studio, 3D Max)
/ + \ {
|-| ) \ E-Mail: domu: pejasoft(zv)post(tec)cz
,+( `+`\ } do skoly: petr.jarkovsky(zv)spsselib.hiedu(tec)cz
---+~_ _ _)-+` Homepage: http://www.spsselib.hiedu(tec)cz/~xjarkov
nebo: http://www.mujweb(tec)cz/www/pejasoft
Sypte veverkam !!!Hledam "hubeny" font
[*] Michal Kus <kus(zv)tangosw(tec)cz> - 19.5.2000 14:24:19
Ahoj,
nevite nekdo o uzkem, ceskem a NEPROPORCIONALNIM fontu?
Neco jako hubeny COURIER NEW.
Navic by mel byt free.
Nebo existuje moznost "zplacnout" existujici font, napr Courier?
Typografove mi snad prominou ....
Diky
Michal Kus
BDE
[*] CERMAK <CERMAK(zv)procomcr(tec)cz> - 19.5.2000 15:15:22
Samostatnou instalaci BDE si muzes vyrobit tak, ze pomoci installshieldu
vytvoris instalaci programu BDEAdmin, pridas potrebne linky a pripadne muzes
i aliasy, ktere chces vytvorit a nechas si vygenerovat instalacni diskety
nebo CD. Tak ziskas samostatnou instalaci BDE i s administracnim programem.
S pozdravem
Jaromir Cermak
-----Original Message-----
From: Radim Holan [mailto:radim.holan(zv)seznam(tec)cz]
Sent: Friday, May 19, 2000 1:36 PM
To: delphi-l(zv)fwd(tec)cz
Subject: BDE
Prosim, muzete mi nekdo poradit ? Mam udelanou datab. aplikaci v Delphi a
abych ji mohl provozovat na jinem PC potrebuju instalaci BDE. Nechce se mi
instal. cely Delphi kvuli BDE. Vim ze existuje samostatna instalace, ale
nevim kde. DIKY !!!!!!
---
Pr�choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
StayOnTop
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 19.5.2000 15:29:08
Caute Delfinci!
Co mam nastavit pre formular, aby sa spraval ako TaskBar, so zapnutym
"Always on top" a vypnutym "AutoHide"?
Teda aby ho ostatne aplikacie ani pri ich zmaximalizovani neprekryli?
Vdaka.
/LH
Op�t tisk z mwCustomEdit
[*] Hurricane <hurricane(zv)email(tec)cz> - 19.5.2000 15:30:37
Zdravim
P�edchoz� probl�my jsem vy�e�il (a� na okraj str�nky(RightEdge)) a proto
vznikl dal��. Douf�m, �e to u toho jednotn�ho ��sla z�stane. Ale k vjeci. U
n�kter�ch font� se mi st�v�, �e jsou p�smenka jakoby v sob�. Nev�m, jak se
tomu ��k�, mo�n� prostrk�n�. Jakoby se prost� zmen�ily mezeri mezi
p�smenkama a ty se potom tisky p�es sebe. Mal�m fontem to neni, m�l sem asi
10ku. D�je se to ale jenomu n�kter�ch font�, nap� TimesNew to ned�l�.
Nesetkal jste se s timn�kdo?
D�ky
Hurricane
D4 Std. + Free IB komp.
[*] Jan Naiser <tua(zv)ltm(tec)cz> - 19.5.2000 16:11:50
Ahoj,
asi pred dvema mesici jsem to kratce testoval a D4S s FreeIB a IB6
fungovalo. Ale IB6 ma nejake zmeny, takze se to nechovalo korektne u
nekterych datovych formatu.
Jelikoz jsem presel na D5P, tak uz jsem se tim dale nezabyval. Nezbyva nez
si je stahnout a vyzkouset. :-)
Honza.
----- Original Message -----
From: Ales Radikovsky <radik(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, May 19, 2000 9:18 AM
Subject: Re: D4 Std. + Free IB komp.> Podle me ne.
>
> Ales
>
> --
>
> Ale� Radikovsk�
> mail: radik(zv)seznam(tec)cz
> tel: +420 603 300093
docking
[*] ing. Ale� Da�a - 19.5.2000 17:18:55
Ahoj d�ky za radu.
Pot�eboval bych jeste poradit, jak potom zrusit takto umisteny formular na
panelu, kdyz uz ho nepotrebuju. Staci kdyz formular zrusim pomoci metody
Free? Uvolni se vsechny zdroje?
with TFormFA.Create(self) do
begin
DragMode:=dmAutomatic;
DragKind:=dkDock;
FormFaPolozky := TFormFaPolozky.Create(self);
show;
ManualDock(PanelDock, nil, alTop);
{
FormFaPolozky.Free;
formFA.Hide;
formFA.Free;
}
end;
Ales Dana
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Petr Vones
Sent: Monday, May 15, 2000 12:02 AM
To: Konference Delphi
Subject: Re: docking
From: ing. Ale� Da�a <cis(zv)atlas(tec)cz>
> potreboval bych poradit jak provest docking formulare na panel. Aplikace
by
> mela mit vlevo outlook bar a vpravo panel, na ktery se davaji ruzne
> formulare.
Ahoj,
U toho panelu nastav DockSite = True a u formulare ktery chces na neho
pretahovat
DragKind = dkDock a DragMode = dmAutomatic. Priklad najdes i v
\Demos\Docking
Petr Vones, amatersky programator
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.134 / Virov� b�ze: 63 - datum vyd�n�: 20.3.2000
BDE
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 19.5.2000 22:26:32
Ahoj,
V adresari {$Borland}\Common Files\BDE je subor Bdeinst.dll (moze byt aj
subor bdeinst.cab ktory obsahuje tuto dll), ktorym nainstalujes BDE
nasledovne: regsvr32.exe /S bdeinst.dll
Pavol Stolc
pstolc(zv)sc.sknet.sk
-----Original Message-----
From: Radim Holan [mailto:radim.holan(zv)seznam(tec)cz]
Sent: Friday, May 19, 2000 1:36 PM
To: delphi-l(zv)fwd(tec)cz
Subject: BDE
Prosim, muzete mi nekdo poradit ? Mam udelanou datab. aplikaci v Delphi a
abych ji mohl provozovat na jinem PC potrebuju instalaci BDE. Nechce se mi
instal. cely Delphi kvuli BDE. Vim ze existuje samostatna instalace, ale
nevim kde. DIKY !!!!!!
---
Pr�choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
pristup na Access pres ODBC
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 19.5.2000 22:31:58
Ahoj,
nepises ci pristupujes pomocou BDE alebo ADO, ale v oboch pripadoch ma
databazova komponenta (TDatabase ci TADOConnection su potomkami
TCustomConnection) property LoginPromt, ktoru musis nastavit na False.
Pavol Stolc
pstolc(zv)sc.sknet.sk
----- Original Message -----
From: Petr Jarkovsky <petr.jarkovsky(zv)spsselib.hiedu(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, May 19, 2000 2:05 PM
Subject: pristup na Access pres ODBC
> Zdravim
> Pristupuju k MDB pres ODBC.
> Pri zavolani prvniho SQL prikazu (pouzivam jenom SQL) me program
> vyhodi okno pro prihlaseni (jmeno, heslo). Po odklepnuti vse bezi.
> Zadne heslo samozrejme nastavene u databaze ani v nastaveni ODBC
> nemam. Muzete mi prosim poradit, jak se zbavit toho prihlasovaciho
> okna?
> diky
>
>
> PeJaSoft
>
> (\__/) PeJaSoft
> /o o \ ____ Petr Jarkovsky
> {o__, +/~ _) (PASCAL,DELPHI,3D Studio, 3D Max)
> / + \ {
> |-| ) \ E-Mail: domu: pejasoft(zv)post(tec)cz
> ,+( `+`\ } do skoly: petr.jarkovsky(zv)spsselib.hiedu(tec)cz
> ---+~_ _ _)-+` Homepage: http://www.spsselib.hiedu(tec)cz/~xjarkov
> nebo: http://www.mujweb(tec)cz/www/pejasoft
> Sypte veverkam !!!Mail
[*] Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz> - 19.5.2000 22:35:46
Cau kdyz mi das e-mail, poslu ti komponetu, ktera to umi.
Zdravi
Petr Jel�nek - amat�rsk� program�tor
http://pjmodos.hyperlink(tec)cz
----- Original Message -----
From: Tibor Galik <tgalik(zv)vsz.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, May 16, 2000 1:56 PM
Subject: Re: Mail
> >
> >Neexistuje neco jako 'nastaveni mailhosta' pro konketni pocitac.
> >Nic takoveho obecneho neni. To si kazdy postvni program proste
> >nastavuje nejak sam...
> >
> >A protoze nikdy nevis, jaky zrovna postovni program na tom
> >pocitaci je pouzivan, nevis takle KDE tu informaci hledat. Navic i v
> >jednom postovnim programu muzes pouzivat VIC RUZNYCH
> >mailhostu.
> >
> >Krom toho i muzes pouzivat vic ruzne nakonfigurovanych
> >postovnich progamu.
> >
> >Z toho vyplyva pro vas asi neradostne zjisteni, ze vas problem je v
> >obecne rovine principialne NERESITELNY.
> Diky. Aj zla sprava je sprava.
> Ale nevzdavam sa:
> Musi existovat (aspon si to myslim a dufam) nejaky implicitny pgm na
odosielanie pre to ktore PC. Ked kliknem na nejaku mailovu adresu tak sa mi
hned otvara (aspon u mna) GroupWise, hoci mam aj OE5, Windows messaging
system (tu mam nastavene ze GroupWise je implicitny). Cize nechcem vediet co
na PC je ale chcem nieco odoslat z Delphi a mailovy pgm nech prijme celu
mailovu hlavicku, text a prilozeny subor a nech to posle prec.
> Da sa nieco take ?
>
> S pozdravom / Regards
>
> Tibor Galik
> tgalik(zv)vsz.sk
>
>
>komunikace s com portem
[*] Pavel �imek <kejchal(zv)volny(tec)cz> - 20.5.2000 11:10:37
Ahoj vsem,
jsem zacatecnik v D3 a potrebuji komunikovat se modemem na portu Com1. Na
doporuceni jsem si stahnul komponentu TComPort v2.1. Zkousel jsem s ni
pracovat, ale nikam jsem se nedostal. Me potreby jsou :
potrebuji na port poslat nejaky AT prikaz a precist z portu odpoved.
Bohuzel nevim co vse pro to potrebuji v D3 a dane komponente provest. Asi u
mne nebude postacovat nejake nakopnuti ci pouhe udeleni smeru - potreboval
bych asi v prubehu vice rad. Je nekdo kdo by se mne na chvili ujal?
kejchal(zv)volny(tec)cz
Diky vsem....
Kejchal
Zabirani systemovych prostredku (D5 prof)
[*] Pavel �ern� - 20.5.2000 14:00:55
Uz vickrat to tady mezi radky problesklo, me to momentalne desi.
Mam jakysi zaklad vetsi databazove aplikace, par univerzalnich
oken s nejakymi menu, toolbary, pagecontroly, editacnimi prvky, ....
Tech editacnich prvku jeste neni moc, spis jsou to pripravene
panely, menu, tlacitka, prazdne gridy, tree ...
Zhrozil jsem se pri zjisteni, ze tato aplikace zabere 40%
systemovych prostredku ( Sledovani systemu / Napoveda /
O progamu / Systemovych prostredku xxx volnych ).
Tak jsem krome main formu a dvou datamodulu vse
ostatni nechal jen available ( nevytvari se pri startu ) a
tvorim formy dynamicky, kdyz je potreba.
To hodne pomohlo. Ale i tak to zabere pri startu 10 %
prostredku, kazdy trochu plnejsi form cca 3 %.
Kdyz zkousim sledovat ruzne aplikace ( programovane
v ruznych jazycich ), je jejich chovani dost odlisne
( ty delfacke obvykle zerou hodne ). Myslim, ze kdyz
aplikace sezere desitky procent prostredku, tak to je
pro rutinni provoz dost prusvih.
Chtel bych u Delphi zustat, je tu hromada krasnych veci,
ale tohle je na povazenou.
Co s tim ?
Cemu se branit nebo co naopak udelat ?
Jakou strategii zvolit ?
Tusi nekdo, zda se to treba zlepsi nejakym service packem ?
Diky za nazory, inspirace, rady .... (tohle asi musi trapit kdekoho)
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
komunikace s com portem
[*] Erik Salaj <winsoft(zv)napri.sk> - 20.5.2000 17:36:35
> potrebuji na port poslat nejaky AT prikaz a precist z portu odpoved.
Presne take demo je k dispozicii k mojmu ComPort-u na
http://www.cybermagic.co.nz/winsoft
Je to shareware ale mozno Ti pomoze aj trial verzia, ktora je k dispozicii
free.
Erik
odesilani e-mailu
[*] Viktor <vik(zv)miesto.sk> - 20.5.2000 19:15:48
Ciste reseni je pres MAPI funkci MAPISendMail. Viktor
komunikace s com portem
[*] Daniel Resler <daniel(zv)atcgroup(tec)cz> - 20.5.2000 19:15:51
> jsem zacatecnik v D3 a potrebuji komunikovat se modemem na portu Com1. Na
> doporuceni jsem si stahnul komponentu TComPort v2.1. Zkousel jsem s ni
> pracovat, ale nikam jsem se nedostal. Me potreby jsou :
> potrebuji na port poslat nejaky AT prikaz a precist z portu odpoved.
Pomerne jednoduche:
Comport.WriteString('AT'+#13#10); nezapomen #13#10
To, prijde z komportu se cte v udalosti OnRxChar komponety TComPort:
ComPort(str,count);
Soucasti tento komponety je priklad, kde je vse dobre vysvetleno a ukazano. Mrkni na zdrojak.
Dan Resler
Samorozbalovaci EXE
[*] Lud�k P�ral - 20.5.2000 23:04:16
Na toto pouzivam VCLZip :
KpGb Software
boylank(zv)bigfoot.com
http://www.bigfoot.com/~boylank
(39,95 USD), umi to resit i Abbrevia (TurboPower) - zipovaci komponenty.
Myslim si, ze lze stahnout i free instalacni program z www.sinea(tec)cz
----- P�vodn� zpr�va -----
Od: Jan Naiser <tua(zv)ltm(tec)cz>
Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
Odesl�no: 18. kv�tna 2000 17:35
P�edm�t: Samorozbalovaci EXE
> Preji pekny den,
>
> (W98, D5.1P)
> potreboval bych udelat programek (samorozbalovak, ktery si s sebou ponese
v
> tele napr. ZIP), tak, aby si upgradnul jiz nainstalovany software. Neco
> podobneho, jako treba upg. BDE nebo patche pro Delphi. Jenom nevim, jak
> udelat ten EXE co nejmensi. Vyuzit TForm v Delphi asi nebude to prave
> orechove. Bude treba jit na klasicke (nevizualni) programovani pod WIN.
> Nemate nekdo nejaky priklad nebo odkaz kde neco podobneho najit, abych
> neobjevoval Ameriku?
>
> Diky, Honza.
>
>Counter
[*] Petr Jel�nek Konf <pjmodos(zv)seznam(tec)cz> - 20.5.2000 23:28:53
Ja vim ze tohle je konference o Delphi, ale nevi nekdo kde ziskat zdroj k pocitadlu pristupu (potreboval bych to v JavaScriptu)
Diky
Petr Jel�nek - amat�rsk� program�tor
http://pjmodos.hyperlink(tec)cz
komunikace s com portem
[*] Daniel Resler <daniel(zv)atcgroup(tec)cz> - 21.5.2000 10:42:29
> nemoh bys mi prosim napsat tu adresu kdes tu komponentu COMPORT stahnul. Neco
> podobnyho bych potreboval.
Tady to je, adresa na vyrobce TCOMPORT:
E-mail: dejancrn(zv)yahoo.com
Home page: http://www2.arnes.si/~sopecrni
mbYesNoCancel v BCB5
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 21.5.2000 10:59:58
Ahoj
Pri prechodu mezi BCB4 a BCB5 jsem narazil na jeden problem a to je
konstanta mbYesNoCancel.
Drive jsem mohl mit neco takoveho:
Res = (MessageDlg("Update Record?", mtConfirmation, mbYesNoCancel,
0));
Ale ted mi to tam zahlasi Expression Error prave na te konstante.
Pokud predtim nadefinuji mbYesNoCancel presne podle toho, jak to je v
helpu:
#define mbYesNoCancel (System::Set<TMsgDlgBtn, mbYes, mbHelp> () <<
mbYes << mbNo << mbCancel )
tak se zase objevi warning:
Redefinition of 'mbYesNoCancel' is not identical
Jediny zpusob na jaky jsem prisel, je predefinovat tu konstantu a
nazvat ji treba _mbYesNoCancel ale to se mi vubec nelibi.
Muze mi nekdo poradit? Treba nejaky amatersky programator :-)
Diky
Petr
P.S. Jsou nejake opravne packy na BCB 5.0?
,=====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )===--- -- - -
--=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
StayOnTop
[*] Hurricane <hurricane(zv)email(tec)cz> - 21.5.2000 15:43:55
Zdravim
Mno, jedine, co me napada, je zmensit velikost plochy. Tzn, ze nebudes mit
1024x768 ale napr 1024x750. Programy by se potom teoreticky meli
maximalixovat do teto velikosti.
Hurricane
----- Original Message -----
> Caute Delfinci!
> Co mam nastavit pre formular, aby sa spraval ako TaskBar, so zapnutym
> "Always on top" a vypnutym "AutoHide"?
> Teda aby ho ostatne aplikacie ani pri ich zmaximalizovani neprekryli?
Counter
[*] Viktor <vik(zv)miesto.sk> - 21.5.2000 16:05:58
Pokud vim, tak pocitadla funguji tak, ze se dokument odkazuje na nejaky obrazek na serveru a server, kdyz mu prijde pozadavek na ten obrazek, tak nekde pripocte jednicku, vygeneruje obrazek pocitadla a posle ho. Z toho plyne
* neda se to delat na klientovi
* nedela se to v JavaScriptu, ale v PHP, Perlu, nebo necem jinem, co se da spustit na serveru
Viktor
----- Original Message -----
From: Petr Jel�nek Konf
To: Delphi Forum
Sent: Saturday, May 20, 2000 11:28 PM
Subject: Counter
Ja vim ze tohle je konference o Delphi, ale nevi nekdo kde ziskat zdroj k pocitadlu pristupu (potreboval bych to v JavaScriptu)
Diky
Petr Jel�nek - amat�rsk� program�tor
http://pjmodos.hyperlink(tec)cz
IIS nebo neco podobneho
[*] nnfapso(zv)kios.sk - 21.5.2000 17:23:33
Ahoj,
Ja na cgi a isapi pouzivam PinkNet Web Server. Je free a podporuje CGI,
ISAPI, PERL. Inac keby si mal zaujem o zdrojak k takemuto programceku,
Server7 je robeny v delphi a je k dispozicii aj so zdrojakom.
> ----------
> Od: Mal� Dobromil[SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Odesl�no: 18. kv�tna 2000 11:54
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: IIS nebo neco podobneho
>
> DDV,
>
> rad bych na svem lokalnim pocitaci otestoval
> muj cgi-script ci ISAPI knihovnu, jaky program
> bych na to mohl pouzit ?
> (jak uz to byva, neco maleho, nejradeji free.)
>
> Dobra.
>DeleteObject po SetWindowRgn
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 21.5.2000 17:27:46
Zdravim,
mam komponentu, ktere nastavuji tvar okna pomoci CreatePolygonRgn a
SetWindowRgn. Kdyz chci zrusit po CreatePolygonRgn range objekt, funkce
DeleteObject mi vrati stav "Access denied" (zjisteno MemProofem). Musim
range objekt vubec rucne uvolnovat? Co s tim?
Petr Fischer
E-Mail: fifa(zv)praguesoft(tec)cz, ICQ#: 24154715
Struktura PE suborov
[*] nnfapso(zv)kios.sk - 21.5.2000 17:31:20
Ahojte,
potrebolval by som zistit presnu strukturu PE suboru (klasicky 32 bitovy exe subor). Aj s popisom jednotlivych offsetov.
Dakujem
Mail
[*] nnfapso(zv)kios.sk - 21.5.2000 17:34:57
Ahoj,
Ak chces v Delphi odosielat e-maily, vyskusaj komponentu NMSMTP. Je v
standardnej instalacii Delphi4.
----- Original Message -----
From: Tibor Galik <tgalik(zv)vsz.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, May 16, 2000 1:56 PM
Subject: Re: Mail
> >
> >Neexistuje neco jako 'nastaveni mailhosta' pro konketni pocitac.
> >Nic takoveho obecneho neni. To si kazdy postvni program proste
> >nastavuje nejak sam...
> >
> >A protoze nikdy nevis, jaky zrovna postovni program na tom
> >pocitaci je pouzivan, nevis takle KDE tu informaci hledat. Navic i v
> >jednom postovnim programu muzes pouzivat VIC RUZNYCH
> >mailhostu.
> >
> >Krom toho i muzes pouzivat vic ruzne nakonfigurovanych
> >postovnich progamu.
> >
> >Z toho vyplyva pro vas asi neradostne zjisteni, ze vas problem je v
> >obecne rovine principialne NERESITELNY.
> Diky. Aj zla sprava je sprava.
> Ale nevzdavam sa:
> Musi existovat (aspon si to myslim a dufam) nejaky implicitny pgm na
odosielanie pre to ktore PC. Ked kliknem na nejaku mailovu adresu tak sa mi
hned otvara (aspon u mna) GroupWise, hoci mam aj OE5, Windows messaging
system (tu mam nastavene ze GroupWise je implicitny). Cize nechcem vediet co
na PC je ale chcem nieco odoslat z Delphi a mailovy pgm nech prijme celu
mailovu hlavicku, text a prilozeny subor a nech to posle prec.
> Da sa nieco take ?
>
> S pozdravom / Regards
>
> Tibor Galik
> tgalik(zv)vsz.sk
>
>
>
Hookovani
[*] nnfapso(zv)kios.sk - 21.5.2000 17:44:14
Ahojte,
Spravil som si jeden programcek, ktory odchytava handle okien.
Jednoducho prechadzate mysou po obrazovke a ked se nad nejakym oknom, tak
vypise handle a caption a kopu dalsich veci.
Urcite vsetci poznate tie trial verzie programov, ktore po niekolkych dnoch
znepristupnia tlacidlo 'Try' ('Start'). Takze v tom mojom programe len
napisete caption toho tlacidla a co sa to deje??? Talcidlo je zrazu
pristupne a vy nanho mozete vpohode kliknut a spustit program.
----- Original Message -----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Odoslan�: 16. m�j 2000 23:17
Predmet: Re: Hookovani
> From: Jirka Virt <virt(zv)volny(tec)cz>
> > Ahoj,
> > je vedro a vubec mi to nemysli.Potreboval bych pro svoji aplikaci
> > odchytavat handle oken jinych aplikaci.Predstavoval jsem si to tak, ze
> > klepnu mysi na nejake okno a prectu jeho handle.
> > Nevim jestli je to spravny smer , ale zkousel jsem to pres
hookovani.Jenze
>
> Ahoj,
>
> Je to spravny smer.
>
> > ani po precteni Win32 nejsem schopen sestavit chodici hook.Vyhledal jsem
si
>
> Problem je, ze toto lze relativne uspesne delat az v Delphi 5. Pozadavky
na
> hook funkce v Delphi jsou relativne caste. Snazim se to udelat jako
komponentu
> (do JEDI-VCL), ale mejte jeste chvili strpeni :-)
>
> Petr Vones, amatersky programator
>
>Neco jako velmi jednoduchy assembler?
[*] nnfapso(zv)kios.sk - 21.5.2000 17:49:40
Ahoj,
Skus si stiahnut z netu Win32dsm89. Je to disassembler. Otvoris v nom
exe subor alebo nejake dll-ko a on ti po chvili vypise cely program v
assembleri. Potom si z neho jednoducho opises tych par prikazov, co
potrebujes a je to.
----- Original Message -----
Od: Viktor <vik(zv)miesto.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odoslan�: 15. m�j 2000 21:06
Predmet: Neco jako velmi jednoduchy assembler?> Potreboval bych neco jako velmi jednoduchy assembler - takovy nejaky
objekt,
> abych tomu predal instrukci (treba mov eax, dword ptr es:[edi]) a ono mi
to
> vratilo bajty, odpovidajici kodu teto instrukce. Nevite nekdo o necem?
>
> Viktor
>Counter
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 21.5.2000 18:17:54
Ahoj,
protoze JavaScript je interpretovan az na klientu, musi byt cislo
pristupu na klientskem pocitaci, tedy v kolacich (cookies). Ma to
dve nevyhody: uzivatel muze mit JavaScript ci kolace vypnute a
nemas zadny prehled o tom, kam Ti kdo chodi. Doporucuji nejaky
cgi script.
Slavek
> Ja vim ze tohle je konference o Delphi, ale nevi nekdo kde ziskat zdroj =
> k pocitadlu pristupu (potreboval bych to v JavaScriptu)
> Petr Jel=EDnek - amat=E9rsk=FD program=E1tor
> http://pjmodos.hyperlink(tec)cz
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Hookovani
[*] Hurricane <hurricane(zv)email(tec)cz> - 21.5.2000 22:22:52
To je moc p�kn�, ale sch�z� link.
Hurricane
----- Original Message -----
Spravil som si jeden programcek, ktory odchytava handle okien.
Jednoducho prechadzate mysou po obrazovke a ked se nad nejakym oknom, tak
vypise handle a caption a kopu dalsich veci.
Urcite vsetci poznate tie trial verzie programov, ktore po niekolkych dnoch
znepristupnia tlacidlo 'Try' ('Start'). Takze v tom mojom programe len
napisete caption toho tlacidla a co sa to deje??? Talcidlo je zrazu
pristupne a vy nanho mozete vpohode kliknut a spustit program.Jak vyhledat titulek DOS okna
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.5.2000 22:52:13
From: Karel Kral <kral(zv)purus(tec)cz>
> potreboval bych z Delphi programu aktivovat do popredi Dosovske okno. To
> bych umel, ale problem je v tom, jak zjistit Handle okna, ktere se ma
> aktivovat. To okno nema staly titulek, ktery by sel vyhledat normalnim
> FindWindow. Jde totiz o DOS program, ze ktereho se spousteji zase jine
Ahoj,
Pokud ti to pomuze, tak (alespon na Win95) ma konzolove okno nazev tridy "tty".
Petr Vones, amatersky programator
Prehravani WAV
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.5.2000 22:52:35
From: Foldyna Ji�� <jiri.f(zv)avizo(tec)cz>
> upresnuji svuj vcerejsi dotaz. Podarilo se mi udelat rychloposuv vpred i
> vzad, to zas nebyl takovy problem, ale ted bych potreboval zrychlene
> prehravani. Gates nabizi funkci waveOutSetPlaybackRate, ktera by to mela
> delat, ale kdyz jsem ji pouzil, tak mi to reklo, ze funkce neni podporovana
> (W2000, SB128 PCI se standardnim driverem z W2K). Nemate nekdo prakticke
> zkusenosti se zrychlenym prehravanim WAVu ? Existuje zvukova karta, jejiz
> driver tohle zrychlene prehravani podporuje ?
Ahoj,
Zrychlene prehravani umoznuje Windows Media Player a to i na pomerne hnusnych
zvukovych kartach. Lze si jej naimportovat jako ActiveX do Delphi. Pokud by
jsi jej nechtel pouzit, pak se spis podivej na DirectSound. Priklad mas tady
(http://carlosbarbosa.westhost.com/delphi/ddirectsound.php3)
Petr Vones, amatersky programator
DeleteObject po SetWindowRgn
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.5.2000 22:52:21
From: Petr Fischer <fifa(zv)praguesoft(tec)cz>
> mam komponentu, ktere nastavuji tvar okna pomoci CreatePolygonRgn a
> SetWindowRgn. Kdyz chci zrusit po CreatePolygonRgn range objekt, funkce
> DeleteObject mi vrati stav "Access denied" (zjisteno MemProofem). Musim
> range objekt vubec rucne uvolnovat? Co s tim?
Ahoj,
Pokud je region vybran v okne pomoci SetWindowRgn tak jej neni treba explicitne
uvolnovat (region je od te chvile vlastnen oknem). Viz popis funkce SetWindowRgn.
Petr Vones, amatersky programator
Struktura PE suborov
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.5.2000 22:52:02
From: <nnfapso(zv)kios.sk>
> potrebolval by som zistit presnu strukturu PE suboru (klasicky 32 bitovy exe subor).
> Aj s popisom jednotlivych offsetov.
Ahoj,
Mam jiz temer hotovou knihovnu pro zjistovani velke vetsiny informaci z PE souboru.
V dohledne dobe by se mela objevit v JCL (http://delphi-jedi.org/Jedi:CODELIBJCL),
dam pak vedet. Pokud by jsi se do toho chtel pustit sam, pak musis hledat na MSDN
v ruznych clanich, napriklad "Peering Inside the PE: A Tour of the Win32 Portable
Executable File Format".
Petr Vones, amatersky programator
Counter
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.5.2000 22:52:25
From: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
> nemas zadny prehled o tom, kam Ti kdo chodi. Doporucuji nejaky
> cgi script.
Ahoj,
treba tenhle:
http://homepages.borland.com/aohlsson/Articles/CounterCGI.html
Petr Vones, amatersky programator
ListView a Hinty
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.5.2000 22:53:14
From: Ales Radikovsky <radik(zv)volny(tec)cz>
> Nevite jak donutit ListView, aby zobrazoval hinty podle polozky, nebo
> jeste lepe v reportu podle subpolozky? Nebo neznate nejakou dobrou free
> najradu za ListView?
Ahoj,
V D5 mas udalost OnInfoTip ve ktere si muzes definovat text hintu pro
kazdy radek. Pokud by jsi trval i na polozce, tak by toto slo doplnit,
neni treba TListView nahrazovat.
Petr Vones, amatersky programator
Dotaz na funkce OLE - Excell
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.5.2000 22:53:31
From: Lud�k P�ral <ludek.paral(zv)telecom(tec)cz>
> Na D4-Profi zkous�m tvorbu Excell-tabulek, mam MS Office 2000 Premium.
>
> Dale jsem zkousel priklady z knihy Grada, ale nefunguje mi TLB (na disku
> jsem prislusne soubory nenalezl, v helpu neni napsana potrebna Unit (napr
> Excel_TLB.Range)
Ahoj,
Tu si musis naimportovat z officu pomoci Project | Import Type Library
> Dekuji za vsechny odpovedi nebo linky na priklady pouziti.
http://community.borland.com/article/0,1410,10126,00.html
http://www.djpate.freeserve.co.uk/Automation.htm
Petr Vones, amatersky programator
odesilani e-mailu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.5.2000 22:53:21
From: Slab� Petr (Pilsen) <slaby(zv)kadel(tec)cz>
> Resil jsem to tak, ze ctu z registry kde se nachazi outlook a jake potrebuje
> parametry pro mailto, a potom ho spoustim sam pomoci CreateProcess. Ale idealni
> to neni a nemam zadnou jistotu, ze to bude fungovat se vsemi verzemi Outlooku o
> jinych mailerech nemluve.
Ahoj,
a nebylo by mozne pouzit Simple MAPI ? Zkus vytvorit "Win95 logo application" z
Delphi repository, tam je i tlacitko pro odeslani postou.
Petr Vones, amatersky programator
Zabirani systemovych prostredku (D5 prof)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.5.2000 22:53:05
From: Pavel �ern� <cerny(zv)cerny-ps(tec)cz>
> Uz vickrat to tady mezi radky problesklo, me to momentalne desi.
> Tech editacnich prvku jeste neni moc, spis jsou to pripravene
> panely, menu, tlacitka, prazdne gridy, tree ...
>
> Zhrozil jsem se pri zjisteni, ze tato aplikace zabere 40%
> systemovych prostredku ( Sledovani systemu / Napoveda /
> O progamu / Systemovych prostredku xxx volnych ).
Ahoj,
Tento problem je zavazny hlavne na Win9x a vznika predevsim pri pouzivani
komponent, ktere interne vyuzivaji tridu TButtonGlyph (TBitBtn, TSpeedButton,
TDBNavigator). Jedno z moznych reseni je tyto komponenty nepouzivat. Pokud
vsak bez nich nemuzes byt a tvoje aplikace neni prelozena s balicky, pak lze
pouzit tuto upravu:
http://ww6.borland.com/codecentral/ccweb.exe/listing?id=14485
Dale je vhodne nevytvaret vsechny formulare pri startu aplikace, ale az v
okamziku kdy jsou potrebne a po zavreni je zase uvolnit. D5 jiz nastesti
obsahuje moznost nezarazovat automaticky nove formulare do "Auto-create
forms" pomoci volby Environment Options -> Preferences -> Auto create forms.
Pro presnejsi mereni prostredku (GDI, User, System) doporucuji nainstalovat
"Meric prostredku", ktery je soucasti instalace Windows 95/98, ve skupine
Prislusenstvi.
Petr Vones, amatersky programator
komunikace s com portem
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.5.2000 22:53:27
From: Daniel Resler <daniel(zv)atcgroup(tec)cz>
> nemoh bys mi prosim napsat tu adresu kdes tu komponentu COMPORT stahnul. Neco
> podobnyho bych potreboval.
Ahoj,
popripade muzes zkusit i AsyncFree, ale pro D3 to neni testovano.
http://delphree.clexpert.com/pages/app_ASYNCFREE.htm
Petr Vones, amatersky programator
odesilani e-mailu
[*] Lauko �tefan <lauko(zv)salamon.sk> - 22.5.2000 00:13:01
> From: Slab� Petr (Pilsen) <slaby(zv)kadel(tec)cz>
> > Resil jsem to tak, ze ctu z registry kde se nachazi outlook a jake
potrebuje
> > parametry pro mailto, a potom ho spoustim sam pomoci CreateProcess. Ale
idealni
> > to neni a nemam zadnou jistotu, ze to bude fungovat se vsemi verzemi
Outlooku o
> > jinych mailerech nemluve.
>
> Ahoj,
>
> a nebylo by mozne pouzit Simple MAPI ? Zkus vytvorit "Win95 logo
application" z
> Delphi repository, tam je i tlacitko pro odeslani postou.
>
> Petr Vones, amatersky programator
Ahoj,
nieje to take jednoduche. Vo Win98 to nefunguje resp. co treba doinstalovat
?
Bude to dostupne (pouzitelne) u dalsich uzivatelov na W98/NT/W2000 ?
Lauko.Ukladani plovoucich cisel na disk
[*] <dodo(zv)centrum(tec)cz> - 22.5.2000 00:25:15
Zdrav�m,
m�m probl�m. V bin�rn�m souboru (kter� jsem ned�lal j�) jsou ulo�ena ��sla s plovouc� desetinou ��rkou.
Bohu�el, pravd�podobn� byl soubor vytvo�en v jin�m jazyce ne� Delphi a jinych,nez co znam, proto�e
nev�m, v jak�m form�tu ty ��sla jsou. V�m teda na 99 procent, �e jsou 4 bajtov� a desetin�.
Kdy� to na�tu do Single, tak tam jsou blbosti (zhruba tusim, jaky cislo mam ocekavat). Ruzne jsem
zkousel bajty prehazovat, ale nevedlo to k vysledku.
S necim podobnym jsem se uz setkal, kdy cislo bylo ulozeno ve formatu Microsoftu - nejaky starsi ci co a
bylo treba ho prevest na IEEE - v delphi to vypadalo pro ilustraci takto:
Function MsToIEEE(Var Ms):Real48;
Type MyReal = Array [1..4] of Byte;
Var m : MyReal Absolute ms;
R : Real48;
Ie : Array [1..6] of Byte Absolute R;
Begin
Ie[1] := m[4];
Ie[4] := m[1];
Ie[2] :=0;
Ie[3] :=0;
Ie[5] := m[2];
Ie[6] := m[3];
Result := R;
End;
Ale tohle na to nefunguje. Moje otazka tedy:
Mate (nebo znate) nekdo dalsi - nebo nejake jine - mozne formaty (hlavne atypicke) ulozeni realneho
cisla na disk - treba ze to pouziva nejaky starsi program ?
Diky
Ladislav Dolezel
dodo(zv)centrum(tec)cz
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
Win Keys
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 22.5.2000 06:13:48
Dnes se objevilo na zive :
Ud�lejte s kl�vesami Windows kr�tk� proces, pokud v�m vad� p�i pr�ci nebo p�i
hran�, m��ete je vypnout. Sta�� do registr� v kl��i
HKEY_CURRENT_USER\Software\Microsoft \Windows\CurrentVersion \Policies\Explorer
P�idat novou DWORD polo�ku NoWinKeys a p�i�adit ji hodnotu 1. Zad�n�m hodnoty 0
nebo smaz�n�m polo�ky zase kl�vesy aktivujete. Bude nutn� restartovat po��ta�
kv�li prom�tnut� zm�n.
Jan Fiala
odesilani e-mailu
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 22.5.2000 06:21:23
Je treba nastavit Outlook Express jako simple mapi client
Posilam priklad programku, ktery to dela a krome toho zrusi splash screen OE5.
Staci nahradit vse v DPR.
{ This simple program disable splash screen in Outlook Express 5.0
for all its Identities and sets OE as Simple MAPI client
Author : Jan Fiala 10-08-1999
e-Mail : jan.fiala(zv)iname.com
}
program OE5NoSpl;
uses
SysUtils,
Registry,
Classes,
Windows;
var
Reg : TRegistry;
Seznam : TStringList;
i : Integer;
Vetev : string;
begin
Reg := TRegistry.Create;
Seznam := TStringList.Create;
try
with Reg do begin
{ disable splash screen }
RootKey := HKEY_CURRENT_USER;
if OpenKey('\Identities', False) then begin
GetKeyNames(Seznam);
for i := 0 to Seznam.Count -1 do begin
Vetev := '\Identities\' + Seznam.Strings[i]
+ '\Software\Microsoft\Outlook Express\5.0';
if OpenKey(Vetev, False)
then begin
WriteInteger('NoSplash', 1);
MessageBeep(mb_IconAsterisk);
end
else MessageBeep(mb_IconError);
end;
end;
{ sets OE as simple MAPI client }
RootKey := HKEY_LOCAL_MACHINE;
if OpenKey('\Software\Microsoft\Windows Messaging Subsystem', False)
then WriteString('MAPI', '1');
end;
finally
Reg.CloseKey;
Reg.Free;
Seznam.Free;
end;
end.
Jan Fiala
----- Original Message -----
From: "Lauko �tefan" <lauko(zv)salamon.sk>> From: Slab� Petr (Pilsen) <slaby(zv)kadel(tec)cz>
> Ahoj,
>
> a nebylo by mozne pouzit Simple MAPI ? Zkus vytvorit "Win95 logo
application" z
> Delphi repository, tam je i tlacitko pro odeslani postou.
>
> Petr Vones, amatersky programator
>Ahoj,
>nieje to take jednoduche. Vo Win98 to nefunguje resp. co treba doinstalovat ?
>Bude to dostupne (pouzitelne) u dalsich uzivatelov na W98/NT/W2000 ?
>
>Lauko.
Posilani e-mailu
[*] Zapl�k���ͪe�?�Y��̿ - 22.5.2000 07:12:53
Drazi pratele
jelikoz mne stale odrazujete od pouziti ShellExecute(mailto) rozhodl jsem se tedy napsat program s pouzitim
komponent ze zalozky "FastNet" .Dival jsem se na dema , ale ja bych potreboval odeslat e-mail bez zasahu uzivatele. je to
do programu na registraci uzivatelu, bez jakehokoliv zasahu ze strany uzivatele. Melo by to fungovat tak, ze
zjistim vychozi pripojeni , vychozi ucet(username+password) a pomoci tohoto uctu odeslu e-mail.
nevite nekdo o necem podobnem(odkaz) , nebo jak to alespon jednoduse napsat. Poslat e-mail neni problem, ale
potrebuji automaticky conect a prihlaseni.
D5 Profi ,W98
dik Zaplik
zaplik(zv)volny(tec)cz
Zabirani systemovych prostredku (D5 prof)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.5.2000 07:45:35
On 20 May 2000, at 14:00, Pavel �ern� wrote:
> Mam jakysi zaklad vetsi databazove aplikace, par univerzalnich
> oken s nejakymi menu, toolbary, pagecontroly, editacnimi prvky, ....
>
> Tech editacnich prvku jeste neni moc, spis jsou to pripravene
> panely, menu, tlacitka, prazdne gridy, tree ...
>
> Zhrozil jsem se pri zjisteni, ze tato aplikace zabere 40%
> systemovych prostredku ( Sledovani systemu / Napoveda /
> O progamu / Systemovych prostredku xxx volnych ).
>
> [...]
> Cemu se branit nebo co naopak udelat ?
>
> Jakou strategii zvolit ?
>
> Tusi nekdo, zda se to treba zlepsi nejakym service packem ?
Nezlepsi, Delphi uz jsou takove. V podstate je jedinna moznost,
maximum veci vytvaret dynamicky. To se tyka predevsim
formularu. Jestlize se ti podarilo "stahnout" pouziti prostredku na
10%, pak mas patrne v DataModulech hromady komponent. Zde
pomuze pouze opet dynamicke vytvareni komponent (TQuery atp.)
nebo rozhazet tyto komponenty po formularich (cenou za to je ale
trochu obtiznejsi udrzba takoveho programu). Nebo vyzadovat
vyhradne NT... :-)
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
Voice funkce
[*] Daniel Km�nek <kminek(zv)mite(tec)cz> - 22.5.2000 07:51:44
Ahoj,
Chci se zeptat. Umoznuje rozhrani RAS (RASAPI) propojit vnitrne modem se
zvukovkou ?
Tedy ikdyz nemam voice modem, pomoci interniho modemu navazat spojeni a
mluvit a poslouchat p�es zvukovku. Jde to vubec. Je na to nejaky software ?
Dekuji Vam vsem
Daniel Kminek
StoredProc na MS SQL 6.5
[*] Podrazsk� Daniel(HZS) - 22.5.2000 07:55:31
Zdar panove,
Muze mi nekdo poradit jak se vlastne StoredProc pouziva ?
Udelal sem si proceduru na serveru na vkladani noveho zaznamu do tabulky
CREATE PROCEDURE TabulkaINS (IC varchar(11))
AS
declare (zv)Uzivatel varchar(224)
declare (zv)cas datetime
select (zv)cas=GetDate()
select (zv)uzivatel=User
INSERT INTO TABULKA (IC, Storno, Uprava, CasUpravy)
VALUES ( (zv)IC, 0, (zv)Uzivatel, (zv)cas)
GO
A potrebuju z programu tuhle proceduru zavolat. Vsechny vlastnosti
komponenty StoredProc nastavuju pred jejim zavolanim, ale kdyz chci pouzit
parametry, tak to ohlasi, ze zadny nenasel.
Vite nekdo cim to je ?
Predem diky ... Dundee
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
Dotaz na funkce OLE - Excel
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 22.5.2000 08:15:13
> Na D4-Profi zkous�m tvorbu Excell-tabulek, mam MS Office 2000 Premium.
> Myslel jsem si , ze staci pouzivat kopie funkci z Visual Basicu
> (pouziti prikazu z makra). Ovsem jednotlive funkce maji jiny formalni
> zapis. Tez help z MS visual Basic ma jiny formalni zapis (napr.
> property cells ma kulate zavorky, ale Delphi vyzaduje hranate.
Ahoj,
s Excelem prostrednictvim OLE jsem si taky pred casem hral a
odnesl jsem si z toho toto:
1) Nenasel jsem (ale moc casu jsem hledani nevenoval) zadnou
rozumnou dokumentaci. Jako zaplata, jak se co vubec da udelat,
je zkusit si to jako makro a z VB prepsat do Delphi. V nekterych
propadech se ale muze stat, ze prislusna funkce neni podporovana
pres OLE. Syntaxe se skutecne lisi, v Delphi se musi hranate
zavorky pouzivat skoro na vsechno, tj. nejen u Cells, ale i
WorkSheets apod.
2) Zajimave veci jsou okolo predavani parametru metodam -
nepovinne parametry, parametry podle jmena apod. Tady jsem
cerpal z Mistrovstvi v Delphi 3, kapitola 20 - Prace s OLE
Automation.
David
Prevod souradnic
[*] Josef A. Cerny <vyvoj(zv)atlascon(tec)cz> - 22.5.2000 08:27:05
> Label.SetBounds(0, 0, 101, 17);
> zavolam funkci Printer.canvas.fillrect(Rect); (jak prevest Rect labelu na
Rect pro tuto funkci)
x-ove souradnice pomoci
GetDeviceCaps(Printer.Handle,LOGPIXELSX)/Screen.PixelsPerInch
y-ove souradnice pomoci
GetDeviceCaps(Printer.Handle,LOGPIXELSY)/Screen.PixelsPerInch
Takto ziskane koeficienty jsem delil 1.5 (empiricky zjisteno) a timto cislem
modifikoval souradnice.
Josef Cerny
********************************************
* Josef A. Cerny
* analyst and programmer
*
* 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 : cerny(zv)atlascon(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************
Ukladani plovoucich cisel na disk
[*] igor klepoch <klepoch(zv)ba.sknet.sk> - 22.5.2000 08:27:17
Vo vseobecnosti je format nasledujuci :
znamienko : 0 / 1
mantisa : niekolko bitov binarneho visla
exponent : tie ostane bity binarneho cisla, tiez zo znamienkom
Takze vysledok je mantisa + 10 ^ exponent.
Napr 15,68 : 1568 + 10 ^ -2
To delenie samozrejne nebyva podla bytov, ale po bitoch. Aj znamienko je mozne
presunut na inu poziciu.
-----P�vodn� zpr�va-----
Od: dodo(zv)centrum(tec)cz [SMTP:dodo(zv)centrum(tec)cz]
Odesl�no: 22. m�j 2000 0:25
Komu: Delphi Konference
P�edm�t: Ukladani plovoucich cisel na disk
Zdrav�m,
m�m probl�m. V bin�rn�m souboru (kter� jsem ned�lal j�) jsou ulo�ena ��sla s plovouc� desetinou ��rkou.
Bohu�el, pravd�podobn� byl soubor vytvo�en v jin�m jazyce ne� Delphi a jinych,nez co znam, proto�e
nev�m, v jak�m form�tu ty ��sla jsou. V�m teda na 99 procent, �e jsou 4 bajtov� a desetin�.
Kdy� to na�tu do Single, tak tam jsou blbosti (zhruba tusim, jaky cislo mam ocekavat). Ruzne jsem
zkousel bajty prehazovat, ale nevedlo to k vysledku.
S necim podobnym jsem se uz setkal, kdy cislo bylo ulozeno ve formatu Microsoftu - nejaky starsi ci co a
bylo treba ho prevest na IEEE - v delphi to vypadalo pro ilustraci takto:
Function MsToIEEE(Var Ms):Real48;
Type MyReal = Array [1..4] of Byte;
Var m : MyReal Absolute ms;
R : Real48;
Ie : Array [1..6] of Byte Absolute R;
Begin
Ie[1] := m[4];
Ie[4] := m[1];
Ie[2] :=0;
Ie[3] :=0;
Ie[5] := m[2];
Ie[6] := m[3];
Result := R;
End;
Ale tohle na to nefunguje. Moje otazka tedy:
Mate (nebo znate) nekdo dalsi - nebo nejake jine - mozne formaty (hlavne atypicke) ulozeni realneho
cisla na disk - treba ze to pouziva nejaky starsi program 20
Diky
Ladislav Dolezel
dodo(zv)centrum(tec)cz
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
StayOnTop
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 22.5.2000 08:33:53
Ahoj,
myslis tohle : Form1.FormStyle:=fsStayOnTop ?
Dobra.
> ----------
> Od: Hubka Lubos[SMTP:L.Hubka(zv)trenkwalder.com]
>
> Co mam nastavit pre formular, aby sa spraval ako TaskBar, so zapnutym
> "Always on top" a vypnutym "AutoHide"?
> Teda aby ho ostatne aplikacie ani pri ich zmaximalizovani neprekryli?
> StoredProc na MS SQL 6.5
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 22.5.2000 08:34:33
> -----P�vodn� zpr�va-----
> Od: Podrazsk� Daniel(HZS) [mailto:Podrazsky(zv)hzs.mepnet(tec)cz]
> Odesl�no: 22. kv�tna 2000 7:56
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: StoredProc na MS SQL 6.5
>
>
> Zdar panove,
>
> Muze mi nekdo poradit jak se vlastne StoredProc pouziva ?
> Udelal sem si proceduru na serveru na vkladani noveho zaznamu
> do tabulky
>
> CREATE PROCEDURE TabulkaINS (IC varchar(11))
tady je chyba, patri sem (zv)IC misto IC
> A potrebuju z programu tuhle proceduru zavolat. Vsechny vlastnosti
> komponenty StoredProc nastavuju pred jejim zavolanim, ale
> kdyz chci pouzit
> parametry, tak to ohlasi, ze zadny nenasel.
Co "to" ohlasi, MS SQL Server, komponenta TStoredProc, nebo snad BDE?
Jura
Barcode PAS
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 22.5.2000 08:53:44
Vazeny pane,
podle Vaseho doporuceni jsme si vyzkouseli vasi komponentu pro generovani caroveho kodu. Jsme s ni spokojeni.
Radi bychom vasi metodu generovani caroveho kodu zapracovali do naseho generatoru tiskovych sestav Sinea.
Sdelte nam laskave, zda tak muzeme ucinit a za jakych podminek.
Popis naseho generatoru sestav naleznete na www.sinea(tec)cz
S pozdravem
Vaclav Krmela
----- Original Message -----
From: TUNGLI Jan
To: DELPHI Distribution List
Sent: Thursday, November 18, 1999 1:13 PM
Subject: Barcode PAS
Barcode component - naidete na http://free.netlap.hu/4321/
pas 10 kB
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
or: http://freeweb.coco(tec)cz/tungli/
StayOnTop
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 22.5.2000 09:23:04
> Mno, jedine, co me napada, je zmensit velikost plochy. Tzn, ze nebudes mit
> 1024x768 ale napr 1024x750. Programy by se potom teoreticky meli
> maximalixovat do teto velikosti.
Vyzera to dobre, ale akou funkciou sa nastavuje velkost plochy?
Vdaka.]
/LH
StoredProc na MS SQL 6.5
[*] Podrazsk� Daniel(HZS) - 22.5.2000 09:40:22
Hlasi to BDE
> -----P�vodn� zpr�va-----
> Od: Polak Jiri [SMTP:Jiri.Polak(zv)tconsult(tec)cz]
> Odesl�no: 22. kv�tna 2000 7:35
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: StoredProc na MS SQL 6.5
>
>
>
> > -----P�vodn� zpr�va-----
> > Od: Podrazsk� Daniel(HZS) [mailto:Podrazsky(zv)hzs.mepnet(tec)cz]
> > Odesl�no: 22. kv�tna 2000 7:56
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: StoredProc na MS SQL 6.5
> >
> >
> > Zdar panove,
> >
> > Muze mi nekdo poradit jak se vlastne StoredProc pouziva ?
> > Udelal sem si proceduru na serveru na vkladani noveho zaznamu
> > do tabulky
> >
> > CREATE PROCEDURE TabulkaINS (IC varchar(11))
> tady je chyba, patri sem (zv)IC misto IC
>
> > A potrebuju z programu tuhle proceduru zavolat. Vsechny vlastnosti
> > komponenty StoredProc nastavuju pred jejim zavolanim, ale
> > kdyz chci pouzit
> > parametry, tak to ohlasi, ze zadny nenasel.
>
> Co "to" ohlasi, MS SQL Server, komponenta TStoredProc, nebo snad BDE?
>
> Jura
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
MDI aplikace
[*] Jiri Novacek <JNovacek(zv)spst(tec)cz> - 22.5.2000 09:46:23
Ahoj lidi.
Potrebuji vytvorit MDI aplikaci. Mam nasledujici problem. Je mozne,
vhodne (jde to udelat a ma to nejaky vyznam?), aby procedury a funkce
ovladajici MDI okna byly umisteny v hlavnim formulari. Kdyz budou
umisteny v MDI okne, budou take zabirat misto v pameti tolikrak kolik
budu mit oken?
Dik Jirka
Zabirani systemovych prostredku (D5 prof)
[*] Pavel �ern� - 22.5.2000 09:54:48
# From: Pavel �ern� <cerny(zv)cerny-ps(tec)cz>
# > Uz vickrat to tady mezi radky problesklo, me to momentalne desi.
# > Tech editacnich prvku jeste neni moc, spis jsou to pripravene
# > panely, menu, tlacitka, prazdne gridy, tree ...
# >
# > Zhrozil jsem se pri zjisteni, ze tato aplikace zabere 40%
# > systemovych prostredku ( Sledovani systemu / Napoveda /
# > O progamu / Systemovych prostredku xxx volnych ).
#
# Ahoj,
#
# Tento problem je zavazny hlavne na Win9x a vznika predevsim pri pouzivani
# komponent, ktere interne vyuzivaji tridu TButtonGlyph (TBitBtn, TSpeedButton,
# TDBNavigator). Jedno z moznych reseni je tyto komponenty nepouzivat. Pokud
# vsak bez nich nemuzes byt a tvoje aplikace neni prelozena s balicky, pak lze
# pouzit tuto upravu:
#
# http://ww6.borland.com/codecentral/ccweb.exe/listing?id=14485
#
# Dale je vhodne nevytvaret vsechny formulare pri startu aplikace, ale az v
# okamziku kdy jsou potrebne a po zavreni je zase uvolnit. D5 jiz nastesti
# obsahuje moznost nezarazovat automaticky nove formulare do "Auto-create
# forms" pomoci volby Environment Options -> Preferences -> Auto create forms.
#
# Pro presnejsi mereni prostredku (GDI, User, System) doporucuji nainstalovat
# "Meric prostredku", ktery je soucasti instalace Windows 95/98, ve skupine
# Prislusenstvi.
#
# Petr Vones, amatersky programator
Diky. To otvirani formularu az kdyz jsou potreba, pomaha opravdu zasadne.
Jak zjistim, ktere komponenty interne vyuzivaji tridu TButtonGlyph ? Ty tri,
ktere jsou nahore uvedene - to je vse ? Zda se mi, ze hodne odcerpavaji
treba ImageListy.
Bez BitBtn a SpeedButtonu se bez problemu ( a rad, kdyz to pomuze ) obejdu.
Hloupejsi to je s DBNavigatorem - to se mi jevi jako dost uzitecny nastroj.
Je za nej nejaka sikovna nahrada ? Nebo si mam udelat neco takoveho sam
coby nejaky ToolBar ?
Jeste k verzim woken. Zkusil jsem verzi programu, ktera odcerpavala cca 40%
prostredku, spustit na Windows2000. Spustil jsem to 2x a treti spusteni se
uz take nepodarilo - chybove hlaseni si nepamatuji presne, ale v zasade stejne,
jak pod Win98. Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
Vnucen� WAV zvukovce.
[*] P�emysl Neuman <p.neuman(zv)email(tec)cz> - 22.5.2000 10:23:30
Dobr� den, potreboval bych na zvukovce prehrat wav tak, abych bu� p�eru�il
pr�v� p�ehr�van� wav a potom ho op�t nechal dohr�t do konce
nebo aby se m� wav p�ehr�lo sou�asn� s p�ehr�van�m.
P�edem d�kuji za jakoukoliv radu. S pozdravem
P�emysl Neuman
Prenoc tabulek MSSQL 6.5 - 7.0
[*] Petr Fojtik <fof(zv)foresta(tec)cz> - 22.5.2000 10:23:05
Vidim ze se cile resi i problemy s MSSQL (cemuz sem rad), takze prikladam
taky jeden. Potrebuju vyzkouset ADO komponenty proti MS SQL 7.0. Mam
nainstalovane MS SQL 7.0 (120-ti denni verze) na Win98. Chtel jsem na tuto
platformu prevest starsi projekt, tedy pretahnout tabulky z MSSQL 6.5 (na
WinNT) z databaze se kterou normalne pracuji (takze mam pristup a vsechno
chodi). Pouzil jsem DTS Import Wizard (z Entreprise manageru MS SQL 7.0).
Jakmile dam v poslednim okne Dokoncit, tak to ztvrdne a po case nezbyva nez
cely proces zastrelit. Drivery (ODBC dirver a OLE DB provider) jsem uz
prokombinoval vsemi moznymi zpousoby. Je jedno, jsetli chci vsechny nebo
jednu tabulku nebo jestli dam Run immediately ci enom vytvorit script pro
replikaci. MS SQL 7.0 jsem uz i preinstaloval, taky mam SP2. Nemuze byt
chyba v tom, ze je to docasna verze,nebo proste nektere funkce chodi pouze
na WinNT ?
Petr Fojt�k, fof(zv)foresta(tec)cz
Posilani e-mailu
[*] Karel Kral <kral(zv)purus(tec)cz> - 22.5.2000 10:32:51
Jako jedinou moznost bych videl vycist to z registru pro uz instalovany
postovni program, treba Outlook Express.
> Zapl�k wrote:
>
> Drazi pratele
> jelikoz mne stale odrazujete od pouziti ShellExecute(mailto) rozhodl
> jsem se tedy napsat program s pouzitim
> komponent ze zalozky "FastNet" .Dival jsem se na dema , ale ja bych
> potreboval odeslat e-mail bez zasahu uzivatele. je to
> do programu na registraci uzivatelu, bez jakehokoliv zasahu ze strany
> uzivatele. Melo by to fungovat tak, ze
> zjistim vychozi pripojeni , vychozi ucet(username+password) a pomoci
> tohoto uctu odeslu e-mail.
> nevite nekdo o necem podobnem(odkaz) , nebo jak to alespon jednoduse
> napsat. Poslat e-mail neni problem, ale
> potrebuji automaticky conect a prihlaseni.
>
> D5 Profi ,W98
>
> dik Zaplik
> zaplik(zv)volny(tec)cz
>
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
MDI aplikace
[*] Josef Zlomek <josef.zlomek(zv)email(tec)cz> - 22.5.2000 10:34:34
Metody objektu (procedury,funkce) jsou ulozeny v pameti jen jednou, nezalezi
na tom, kolik udelas instanci daneho objektu. Misto v pameti zabiraji jen
datove polozky objektu. (Nebudu Te zbytecne mast virtualnima procedurama.)
Cili nema smysl je psat do hlavniho okna. Metody by mely byt v objektu (v
tvem pripade okne), ve kterem se pouzivaji.
Josef Zlomek
zlomek(zv)acm.org
> Ahoj lidi.
>
> Potrebuji vytvorit MDI aplikaci. Mam nasledujici problem. Je mozne,
> vhodne (jde to udelat a ma to nejaky vyznam?), aby procedury a funkce
> ovladajici MDI okna byly umisteny v hlavnim formulari. Kdyz budou
> umisteny v MDI okne, budou take zabirat misto v pameti tolikrak kolik
> budu mit oken?
>
> Dik Jirka
>
> Zabirani systemovych prostredku (D5 prof)
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 22.5.2000 10:36:09
----- Original Message -----
From: "Pavel �ern�" <cerny(zv)cerny-ps(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, May 22, 2000 9:54 AM
Subject: Re: Zabirani systemovych prostredku (D5 prof)
>Bez BitBtn a SpeedButtonu se bez problemu ( a rad, kdyz to pomuze ) obejdu.
>Hloupejsi to je s DBNavigatorem - to se mi jevi jako dost uzitecny nastroj.
>Je za nej nejaka sikovna nahrada ? Nebo si mam udelat neco takoveho sam
>coby nejaky ToolBar ?
Nahradu si muzes udelat sam pomoci ActionList a preddefinovanych akci, ktere
obsahuji vse, co DbNavigator. Krome toho si tam muzes dat vlastni obrazky,
popisky apod.
Jan Fiala
blob na Sybasu
[*] Petr Sikola <P.Sikola(zv)sh.cvut(tec)cz> - 22.5.2000 10:53:57
cau, nevite nekdo prosim jak dostat na SQL server od sybasu data do blobu
???
dari se mi tam dostat pouze 32 Kb :((( a potreboval bych tam dostat data o
velikosti cca 2 MB :((
D3 enterprise, Win NT, 98, Sybase SQL Anywhere 5.5
pripojeni prez BDE, ODBC
Dik moc Petr Sikola
Clipboard po treti raz
[*] Daniel Sichta <dano(zv)customweb.sk> - 22.5.2000 11:17:49
D5 E, W98
Ako by sa dal najlepsie vyriesit tento moj problem :
Cez OpenDialog si vyberiem subor (95 % suborov bude Word file) .Potrebujem
obsah tohto suboru ( bez toho aby som ho otvoril alebo spustil Word) nejako
dostat do clipboardu a odtial do tela posty. Priklad potesi !!
Dakujem
Daniel �ichta
CUSTOM.web s.r.o.
Hod�ova 13
01001 �ilina
SLOVAKIA
www.customweb.sk
++421 89 564 3475
Instalace ODBC, MS Jet
[*] Ing. Jan Skvor <skvor(zv)lec(tec)cz> - 22.5.2000 11:38:55
Ahoj vseci,
Je hotova aplikace Delphi 4.0, ktera pracuje s databazi .mdb (MS Access 97).
Pristupuje se pres BDE na ODBC.
Potrebuji sestavit kompletni instalaci pro 95,98,NT, ktera jak se zda bude
vyzadovat funkci nasledujici komponenty:
1. BDE - ISX 4 ho, zda se, naistaluje dobre.
2. ODBC
3. MS Jet.
Je treba, aby instalaci provadel jeden program.
Pokud nekdo mate zkusenost, poslete mi prosim odkaz na presny postup
pripadne skript pro ISX nebo ISE.
Archiv jsem prohledl horem dolem, ale konktretni info jsem nenasel.
Predem diky
Honza
Counter
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 22.5.2000 11:45:10
Jen mala poznamka:
JavaScript muze byt interpretovan i na serveru,
pokud jde o active server pages (ASP).
### Slavek Rydval napsal dne 21 May 00, v 18:17 :
> Ahoj,
>
> protoze JavaScript je interpretovan az na klientu, musi byt cislo
> pristupu na klientskem pocitaci, tedy v kolacich (cookies). Ma to
> dve nevyhody: uzivatel muze mit JavaScript ci kolace vypnute a
> nemas zadny prehled o tom, kam Ti kdo chodi. Doporucuji nejaky
> cgi script.
>
> Slavek
>
> > Ja vim ze tohle je konference o Delphi, ale nevi nekdo kde ziskat zdroj
> > = k pocitadlu pristupu (potreboval bych to v JavaScriptu)
>
> > Petr Jel=EDnek - amat=E9rsk=FD program=E1tor
> > http://pjmodos.hyperlink(tec)cz
>
>
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> -------------------------------------------------
> http://www.swnet(tec)cz
> Magazin informacne vyspelych jedincu
> -------------------------------------------------
>
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
blob na Sybasu
[*] ShiCola <P.Sikola(zv)sh.cvut(tec)cz> - 22.5.2000 11:49:27
nojo, ale jak to teda nastavit aspon na tech 1MB ??
a jeste takova vec: v blobu mam fotku (<32kB) a pri skoku na posledni zaznam
a zpet na prvni to nahalsi chybu Invalid blob handle ..............domnivam
se ze je to v nastaveni Blobs To Cache ..............ale jak to udelat abych
moc neplitval pameti a zaroven aby to bylo rychly a nehazelo to tu chybu :((
Petr Sikola
----- Original Message -----
From: Petr Sikola <P.Sikola(zv)sh.cvut(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, May 22, 2000 10:53 AM
Subject: blob na Sybasu
> cau, nevite nekdo prosim jak dostat na SQL server od sybasu data do blobu
> ???
> dari se mi tam dostat pouze 32 Kb :((( a potreboval bych tam dostat data o
> velikosti cca 2 MB :((
>
> D3 enterprise, Win NT, 98, Sybase SQL Anywhere 5.5
> pripojeni prez BDE, ODBC
>
>
> Dik moc Petr Sikola
>StayOnTop
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 22.5.2000 12:15:38
> Ahoj,
> myslis tohle : Form1.FormStyle:=fsStayOnTop ?
>
Nie, toto nestaci.
Musi existovat nejaka API funkcia, ktora zmeni
velkost pouzitelnej plochy. Mne ide o to, ze ked
task baru nastavis Stay on top a zrusis skryvanie, tak vsetky
maximalizovane aplikacie posunu svoj spodny okraj o velkost task
baru.
A potrebujem nazov tej API funkcie.
Vdaka.
/LH
blob na Sybasu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.5.2000 11:18:18
Puvodni zprava, kterou napsal Petr Sikola dne 22 May 00,:
> cau, nevite nekdo prosim jak dostat na SQL server od sybasu data do blobu
> ???
> dari se mi tam dostat pouze 32 Kb :((( a potreboval bych tam dostat data o
> velikosti cca 2 MB :((
>
> D3 enterprise, Win NT, 98, Sybase SQL Anywhere 5.5
> pripojeni prez BDE, ODBC
Tady je problem s BDE a ODBC. Totiz v prvni rade musis zvetsit
BLOB SIZE v BDE Administratoru na ODBC nastaveni. Jenze stejne
ti nebude chodit vic nez 1MB BLOB, protoze BDE + ODBC to proste
neumi...
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
odesilani e-mailu
[*] Lauko �tefan <lauko(zv)salamon.sk> - 22.5.2000 13:05:29
----- Original Message -----
Od: Jan Fiala <jan.fiala(zv)iol(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odoslan�: 22. m�j 2000 6:21
Predmet: Re: odesilani e-mailu
> Je treba nastavit Outlook Express jako simple mapi client
> Posilam priklad programku, ktery to dela a krome toho zrusi splash screen
OE5.
> Staci nahradit vse v DPR.
>
> { This simple program disable splash screen in Outlook Express 5.0
> for all its Identities and sets OE as Simple MAPI client
> Author : Jan Fiala 10-08-1999
> e-Mail : jan.fiala(zv)iname.com
> }
>
> program OE5NoSpl;
> uses
> SysUtils,
> Registry,
> Classes,
> Windows;
>
> var
> Reg : TRegistry;
> Seznam : TStringList;
> i : Integer;
> Vetev : string;
> begin
> Reg := TRegistry.Create;
> Seznam := TStringList.Create;
> try
> with Reg do begin
> { disable splash screen }
> RootKey := HKEY_CURRENT_USER;
> if OpenKey('\Identities', False) then begin
> GetKeyNames(Seznam);
> for i := 0 to Seznam.Count -1 do begin
> Vetev := '\Identities\' + Seznam.Strings[i]
> + '\Software\Microsoft\Outlook Express\5.0';
> if OpenKey(Vetev, False)
> then begin
> WriteInteger('NoSplash', 1);
> MessageBeep(mb_IconAsterisk);
> end
> else MessageBeep(mb_IconError);
> end;
> end;
> { sets OE as simple MAPI client }
> RootKey := HKEY_LOCAL_MACHINE;
> if OpenKey('\Software\Microsoft\Windows Messaging Subsystem', False)
> then WriteString('MAPI', '1');
> end;
> finally
> Reg.CloseKey;
> Reg.Free;
> Seznam.Free;
> end;
> end.
>
> Jan Fiala
>
>
> ----- Original Message -----
> From: "Lauko �tefan" <lauko(zv)salamon.sk>
>
> > From: Slab� Petr (Pilsen) <slaby(zv)kadel(tec)cz>
> > Ahoj,
> >
> > a nebylo by mozne pouzit Simple MAPI ? Zkus vytvorit "Win95 logo
> application" z
> > Delphi repository, tam je i tlacitko pro odeslani postou.
> >
> > Petr Vones, amatersky programator
>
> >Ahoj,
> >nieje to take jednoduche. Vo Win98 to nefunguje resp. co treba
doinstalovat ?
> >Bude to dostupne (pouzitelne) u dalsich uzivatelov na W98/NT/W2000 ?
> >
> >Lauko.
>
>
Ahoj,
funguje to, problem je ten, ze po zobrazeni okna "Nova sprava" je toto okno
"tvrde" pomoze len
odstrelenie programu. Toto som si vsimol aj u inych programov (ktore sa uz
distribuuju nechcem menovat). Je problem len u mna? (W98/W2000, D5.01, OE5,
IE5).
Lauko.Pruhledna barva
[*] <sw.maurice(zv)centrum(tec)cz> - 22.5.2000 13:13:43
Ahoj,
ty myslis, to ze jsou ikony transparentni nebo ze kdyz je oznacis, tak jsou modre, ale presto jsou videt?
V tom prvnim pripade, jestli mash nainstalovane RX, tak muzes pouzit VCLUtils.DrawBitmapTransparent, popr. ze zdrojaku te
funkce muzes vycist jak to lepe aplikovat na tvuj pripad.
V tom druhem pripade: vystrihnes si tu bitmapu, kterou chces zabarvit a proste ke kazdemu pixelu pridas tu barvu, ktera ma byt
pruhledna.
Prikladam vystrizek z kodu, ktery stmavi nejake vystrizene misto:
var b:TBitmap;
ScreenDC:HDC;
new:PByteArray;
b:=TBitmap.Create;
try
b.pixelformat:=pf24bit;
b.handletype:=bmDIB; //pro operaci ScanLine je to nutne
b.Height:= ... ;
b.Width:= ... ;
ScreenDC:=GetDC(0);
try //ulozime do "b" to co budem prebarvovat
BitBlt(b.Canvas.Handle,0,0,b.Width,b.Height,ScreenDC,Left,Top,SRCCOPY);
finally
ReleaseDC(0, ScreenDC);
end;
for j:=0 to b.Height-1 do //celou bitmapu trosku stmavime
begin
new:=b.ScanLine[j]; //muzes pouzit primo Canvas.Pixels, v pripade, ze mas spoustu casu ;-))
for i:=0 to (b.Width)*3 do New[i]:=(new[i] div 5);
end;
.......
finally
b.Free;
end;
No a pokud chces jenom nakreslit bitmapu do bitmapy, tak by melo stacit
BitBlt(obr1.Canvas.Handle,0,0,obr2.Width,obr2.Height,obr2.Canvas.handle,0,0,SRCPAINT)
Hezky den
preje M.
e-mail: sw.maurice(zv)centrum(tec)cz
homepage: http://www.mujweb(tec)cz/Zabava/sw.maurice
Objevujte Internet s http://www.centrum(tec)cz
Zalo�te si svuj mail na http://mail.centrum(tec)cz
blob na Sybasu
[*] Tom� Vin� <T.Vins(zv)Aquasoft(tec)cz> - 22.5.2000 14:06:52
Nejspise jde o nastaveni BLOB SIZE v BDE, pokud jej zvetsis, dostanes toho
tam vic.
Pozor, je treba to delat JEN pro tu chvili, kdy pristupujes na ten blob,
dost to zpomaluje pristup.
<Masa>
> cau, nevite nekdo prosim jak dostat na SQL server od sybasu data do blobu
> ???
> dari se mi tam dostat pouze 32 Kb :((( a potreboval bych tam dostat data o
> velikosti cca 2 MB :((
>
> D3 enterprise, Win NT, 98, Sybase SQL Anywhere 5.5
> pripojeni prez BDE, ODBC
odesilani e-mailu
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 22.5.2000 14:11:38
----- Original Message -----
From: "Lauko �tefan" <lauko(zv)salamon.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, May 22, 2000 1:05 PM
Subject: RE: odesilani e-mailu
>Ahoj,
>funguje to, problem je ten, ze po zobrazeni okna "Nova sprava" je toto okno
>"tvrde" pomoze len
>odstrelenie programu. Toto som si vsimol aj u inych programov (ktore sa uz
>distribuuju nechcem menovat). Je problem len u mna? (W98/W2000, D5.01, OE5,
>IE5).
Problem je v tom, ze do MAPISendMail musis predavat Application.Handle. Viz
Priklad :
Vysledek := MapiSendMail(0, Application.Handle, Zprava,
Mapi_Dialog or Mapi_LogOn_UI or Mapi_New_Session, 0);
Jan Fiala
Tisk bitmapy na tiskarnu.
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 22.5.2000 14:36:18
Ahoj,
mam problem v Delphi 3 tisknout bitmapy na tiskarnu. Obcas se nevytiskne.
Tisknu pomoci objektu Printer do obdelniku RECT a bitmapa je ulozena v
image:
Printer.Orientation := poPortrait;
Printer.BeginDoc;
If Not Printer.Aborted Then
Printer.Canvas.StretchDraw(RECT,Image1.Picture.Graphic);
Printer.EndDoc;
Nevite, prosim, v cem by mohl byt problem? Nebo kde hledat chybu?
Nepodarilo se mi v IDE docilit aby se obrazek nevytiskl.
Dekuji
Jaro B.owner canvas handle
[*] Pavel Kahle <kahle(zv)atlas(tec)cz> - 22.5.2000 14:50:13
Zdravim,
lze jednoduchym zpusobem obecne zjistit handle canvasu owner komponenty ?
(pokud canvas ma)
Dekuji P.Kahle
StayOnTop
[*] Hurricane <hurricane(zv)email(tec)cz> - 22.5.2000 14:53:00
JO
----- Original Message -----
From: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, May 22, 2000 8:33 AM
Subject: RE: StayOnTop
> Ahoj,
> myslis tohle : Form1.FormStyle:=fsStayOnTop ?
>
> Dobra.
>
> > ----------
> > Od: Hubka Lubos[SMTP:L.Hubka(zv)trenkwalder.com]
> >
> > Co mam nastavit pre formular, aby sa spraval ako TaskBar, so zapnutym
> > "Always on top" a vypnutym "AutoHide"?
> > Teda aby ho ostatne aplikacie ani pri ich zmaximalizovani neprekryli?
> >
>StayOnTop
[*] Hurricane <hurricane(zv)email(tec)cz> - 22.5.2000 14:59:00
Zdravim
No, tak to nevim, ale zase naprosto jiste vim, ze se to tak dela. Na
http://java.tatousek(tec)cz je skript, kterej ti zjisti aktualni rozliseni a
prave i velikost desktopu a bylo tam 1024x740. Ale javovej skript ti asi
bude k nicemu. Slysel si o LiteStepu? (=kompletni nahrada Explorer.exe) O
LiteStep nejde (i kdy� je skv�lej), ale ma tam p�esn� tudle funkci. Jsou tam
i zdrojak, takze to zkus projit, ale nevim v cem to je. A bacha , je to
temer operacni system, takze to bude pekne velky. Preji prijemnou zabavu.
(www.litestep.net) Mno, al epodle me, to bude nekde v unite Windows nebo
mozna System, kdo vi.
Hurricane
----- Original Message -----
From: Hubka Lubos <L.Hubka(zv)trenkwalder.com>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, May 22, 2000 9:23 AM
Subject: RE: StayOnTop
>
> > Mno, jedine, co me napada, je zmensit velikost plochy. Tzn, ze nebudes
mit
> > 1024x768 ale napr 1024x750. Programy by se potom teoreticky meli
> > maximalixovat do teto velikosti.
>
> Vyzera to dobre, ale akou funkciou sa nastavuje velkost plochy?
> Vdaka.]
>
> /LH
>
StayOnTop
[*] Hurricane <hurricane(zv)email(tec)cz> - 22.5.2000 15:14:44
Ale panove, smotali ste dva problemy do sebe :-) fsStayOnTop nema s
velikosti pracovni plochy nic polecneho. Problem zvany StaOnTop sem podal ja
a uz je to vyreseny. U druheheho problemu jde o to, jak zmenit velikost
pracovni plochy (=plocha bez taskbaru). Bude se to resit podobne jako se
meni rozliseni, ve stjne unite. Mozna nekde v registru, ale nenasel sem to
tam.
Hurricane
----- Original Message -----
From: Hubka Lubos <L.Hubka(zv)trenkwalder.com>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, May 22, 2000 12:15 PM
Subject: RE: StayOnTop
> > Ahoj,
> > myslis tohle : Form1.FormStyle:=fsStayOnTop ?
> >
> Nie, toto nestaci.
> Musi existovat nejaka API funkcia, ktora zmeni
> velkost pouzitelnej plochy. Mne ide o to, ze ked
> task baru nastavis Stay on top a zrusis skryvanie, tak vsetky
> maximalizovane aplikacie posunu svoj spodny okraj o velkost task
> baru.
> A potrebujem nazov tej API funkcie.
>
> Vdaka.
>
> /LH
>
OT: Re: Counter
[*] psojka(zv)els.ln.skoda(tec)cz - 22.5.2000 14:22:44
Zdravim.
> Pokud vim, tak pocitadla funguji tak, ze se dokument odkazuje na nejaky
obrazek
> na serveru a server, kdyz mu prijde pozadavek na ten obrazek, tak nekde
pripocte
> jednicku, vygeneruje obrazek pocitadla a posle ho. Z toho plyne
>
> * neda se to delat na klientovi
> * nedela se to v JavaScriptu, ale v PHP, Perlu, nebo necem jinem, co se
da
> spustit na serveru
>
> Viktor
>
> > Ja vim ze tohle je konference o Delphi, ale nevi nekdo kde ziskat zdroj
> > k pocitadlu pristupu (potreboval bych to v JavaScriptu)
> >
> > Diky
> > Petr Jel�nek - amat�rsk� program�tor
btw:
Pokud by si chtel vyuzit nektereho z mnoha free-counteru na webu
tak doporucuji http://pocitadlo.netway(tec)cz vypada dobre, jednoduse
se ovlada a kdyz je clovek sikovnej, tak si muze udelat i vlastni
font, zaslat ho tam a odkazovat se na nej.
hnd
Peter
Zamezeni premisteni formu
[*] Pavel �ern� - 22.5.2000 15:22:55
Zdravim,
rad bych otevrel modalni okno pro editaci a pritom
zamezil tomu, aby ho uzivatel mohl kamkoliv presunout.
Jde to ucinit nejakym jednoduchym nastavenim ?
Predem diky za postrceni .
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
Counter
[*] nnfapso(zv)kios.sk - 22.5.2000 15:27:05
Ahoj,
V JavaScripte nespravis pocitadlo pristupov. musis to robit v cgi alebo
isapi, ... podla toho, ake skripty podporuje server. Ak chces, mozem ti
poslat pocitadlo v cgi.
----- Original Message -----
Od: Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odoslan�: 21. m�j 2000 18:17
Predmet: Re: Counter
> Ahoj,
>
> protoze JavaScript je interpretovan az na klientu, musi byt cislo
> pristupu na klientskem pocitaci, tedy v kolacich (cookies). Ma to
> dve nevyhody: uzivatel muze mit JavaScript ci kolace vypnute a
> nemas zadny prehled o tom, kam Ti kdo chodi. Doporucuji nejaky
> cgi script.
>
> Slavek
>
> > Ja vim ze tohle je konference o Delphi, ale nevi nekdo kde ziskat zdroj
=
> > k pocitadlu pristupu (potreboval bych to v JavaScriptu)
>
> > Petr Jel=EDnek - amat=E9rsk=FD program=E1tor
> > http://pjmodos.hyperlink(tec)cz
>
>
> -------------------------------------------------
> http://atrey.karlin.mff.cuni(tec)cz/~rk
> -------------------------------------------------
> http://www.swnet(tec)cz
> Magazin informacne vyspelych jedincu
> -------------------------------------------------
Counter
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 22.5.2000 15:50:51
> -----P�vodn� zpr�va-----
> Od: Zdenek Drvota [mailto:drvota(zv)zds(tec)cz]
> Odesl�no: 22. kv�tna 2000 11:45
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Counter
>
>
> Jen mala poznamka:
> JavaScript muze byt interpretovan i na serveru,
> pokud jde o active server pages (ASP).
O JavaScriptu jsem v ASP neslysel. Microsofti podporuji
svuj JScript a pochybuji, ze by podporovali
neco od Sunu.
.
Jura
Zamezeni premisteni formu
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 22.5.2000 16:01:19
DeleteMenu(GetSystemMenu(Handle, FALSE), SC_MOVE,
MF_BYCOMMAND);
Slavek
> rad bych otevrel modalni okno pro editaci a pritom
> zamezil tomu, aby ho uzivatel mohl kamkoliv presunout.
> Pavel �ern�
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
Counter
[*] Martin Sekanina <marsek(zv)softcell(tec)cz> - 22.5.2000 16:14:16
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.
Na IIS jde JavaScript spoustet docela dobre...
-----Original Message-----
From: Viktor [mailto:vik(zv)miesto.sk]
Sent: Sunday, May 21, 2000 4:06 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Counter
Pokud vim, tak pocitadla funguji tak, ze se dokument odkazuje na nejaky
obrazek na serveru a server, kdyz mu prijde pozadavek na ten obrazek, tak
nekde pripocte jednicku, vygeneruje obrazek pocitadla a posle ho. Z toho
plyne
* neda se to delat na klientovi
* nedela se to v JavaScriptu, ale v PHP, Perlu, nebo necem jinem, co se da
spustit na serveru
Viktor
----- Original Message -----
From: Petr Jel�nek <mailto:pjmodos(zv)seznam(tec)cz> Konf
To: Delphi Forum <mailto:delphi-l(zv)fwd(tec)cz>
Sent: Saturday, May 20, 2000 11:28 PM
Subject: Counter
Ja vim ze tohle je konference o Delphi, ale nevi nekdo kde ziskat zdroj k
pocitadlu pristupu (potreboval bych to v JavaScriptu)
Diky
Petr Jel�nek - amat�rsk� program�tor
http://pjmodos.hyperlink(tec)cz <http://pjmodos.hyperlink(tec)cz>
Zamezeni premisteni formu
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 22.5.2000 16:28:28
> rad bych otevrel modalni okno pro editaci a pritom
> zamezil tomu, aby ho uzivatel mohl kamkoliv presunout.
>
> Jde to ucinit nejakym jednoduchym nastavenim ?
Treba takhle:
procedure WMMoving(var Msg:TMessage); message WM_MOVING;
procedure TForm1.WMMoving(var Msg:TMessage);
begin
PRect(Pointer(Msg.lParam))^:=Bounds(Left,Top,Width,Height);
end;
Daniel
Zamezeni premisteni formu
[*] JAHODA Jozef <jahoda(zv)asset.sk> - 22.5.2000 17:16:32
> From: Pavel �ern� [SMTP:cerny(zv)cerny-ps(tec)cz]
>
> rad bych otevrel modalni okno pro editaci a pritom
> zamezil tomu, aby ho uzivatel mohl kamkoliv presunout.
>
Pozri si spravu WM_WINDOWPOSCHANGING
JJ
owner canvas handle
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 22.5.2000 18:14:13
Ak som dobre pochopil otazku tak:
var
pom: HWnd;
if Owner is TWinControl then
och:= TWinControl(Owner).GetDeviceContext(pom) // och = owner canvas
handle
else
och:= 0; // alebo nieco ine
> Zdravim,
>
> lze jednoduchym zpusobem obecne zjistit handle canvasu owner komponenty ?
> (pokud canvas ma)
>
> Dekuji P.Kahle
>
Zrusit radek v udalosti OnCalcField
[*] Robert Lufinka <r.lufinka(zv)sh.cvut(tec)cz> - 22.5.2000 18:50:42
ja jsem tohle zkousel a funguje to porad ... D5
----- Original Message -----
From: Heinisch Jiri <deis(zv)deis(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, May 17, 2000 9:51 PM
Subject: Re: Zrusit radek v udalosti OnCalcField
> > ja pouzivam udalost OnFilteredRecord
> >
> > procedure TfMarze.qDodavkyFilterRecord(DataSet: TDataSet;
> > var Accept: Boolean);
> > begin
> > Accept := qDodavkyVypocitanePole.AsInteger<>0;
> > end;
> >
> > Vlada Cadsky
>
> a kterou verzi Delphi pouzivas
> V D5 mi tato konstrukce prestala chodit
>
>
> S pozdravem Heinisch Jiri
> jak spravne spustit program ?
[*] Robert Lufinka <r.lufinka(zv)sh.cvut(tec)cz> - 22.5.2000 20:08:49
Zdravim ...
Jak spravne spustit z programu v Delphi jiny program ? Mam na mysli to,
ze budu mit treba v listboxu vypis adresare a kdyz se klepne na fajl, tak se
spusti.
Napad me pouziti fce ShellExecute, al nevim, jestli je to spravny reseni.
S pozdravem Robert Lufinka
jak spravne spustit program ?
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 22.5.2000 20:37:09
Ahoj,
Uz se to tu probiralo x-krat, kde x > 3 :-) Podivej se do archivu
nebo pouzij nasledujici:
function RunApplication (const ExeName,
WhereBegin, Parameters: string): Boolean;
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
BeginPath: PChar;
begin {RunApplication}
FillChar (StartupInfo, Sizeof(StartupInfo), 0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.wShowWindow := SW_MINIMIZE;
if WhereBegin = '' then BeginPath := nil
else BeginPath := PChar (WhereBegin);
Result := CreateProcess(nil, PChar (ExeName+'
'+Parameters),
nil, nil, False,
NORMAL_PRIORITY_CLASS,
nil, BeginPath,
StartupInfo, ProcessInfo);
end; {RunApplication}
Slavek
> Zdravim ...
> Jak spravne spustit z programu v Delphi jiny program ? Mam na mysli to, ze
> budu mit treba v listboxu vypis adresare a kdyz se klepne na fajl, tak se
> spusti. Napad me pouziti fce ShellExecute, al nevim, jestli je to spravny
> reseni.
>
> S pozdravem Robert Lufinka
>
-------------------------------------------------
http://atrey.karlin.mff.cuni(tec)cz/~rk
-------------------------------------------------
http://www.swnet(tec)cz
Magazin informacne vyspelych jedincu
-------------------------------------------------
owner canvas handle
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.5.2000 20:44:58
On 22 May 2000, at 14:50, Pavel Kahle wrote:
> lze jednoduchym zpusobem obecne zjistit handle canvasu owner
> komponenty ? (pokud canvas ma)
Zkus GetDC, kde v parametru bude handle te komponenty.
Neoveroval jsem to vsak.
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
owner canvas handle
[*] Pavel Kahle <kahle(zv)atlas(tec)cz> - 22.5.2000 20:56:11
GetDeviceContex mi nebyl uplne jasny tak jsem to pouzil takhle :
Var och:hdc;
with owner as Tcontrol do
try
och := canvas.handle;
except
och:=0;
end;
Diky P.Kahle
----- Original Message -----
From: Martin �ajbik (Marcant) <marcant(zv)sct.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, May 22, 2000 6:14 PM
Subject: Re: owner canvas handle
> Ak som dobre pochopil otazku tak:
> var
> pom: HWnd;
>
> if Owner is TWinControl then
> och:= TWinControl(Owner).GetDeviceContext(pom) // och = owner canvas
> handle
> else
> och:= 0; // alebo nieco ine
>
> > Zdravim,
> >
> > lze jednoduchym zpusobem obecne zjistit handle canvasu owner komponenty
?
> > (pokud canvas ma)
> >
> > Dekuji P.Kahle
> >
>
>Counter
[*] Viktor <vik(zv)miesto.sk> - 22.5.2000 21:11:41
----- Original Message -----
From: Martin Sekanina
To: 'delphi-l(zv)fwd(tec)cz'
Sent: Monday, May 22, 2000 4:14 PM
Subject: RE: Counter
Na IIS jde JavaScript spoustet docela dobre...
Aha, to jsem netusil. Viktor
Tisk bitmapy na tiskarnu.
[*] Tomas Grepl <delphi(zv)kapsw(tec)cz> - 22.5.2000 22:40:33
Problem muze byt v presahnuti tiskove plochy nebo v chybnem formatu bmp.
Ovsem jiz od D1 se mi vyskytuje podobny problem i u tisku malych bitmap
doprostred stranky, takze to spise tipuji na interni problem Delphi x
Windows. Jako spolehlive se mi jevi pouzivat pri tisku na tiskarne misto BMP
obrazky ve formatu metafile (bmp lze snadno prekonvertovat do metafile napr.
v PaintShopPro nebo jinem grafickem editoru).
Spolehliveji funguje tisk pri pouzivani mapovacich modu (i pro bmp).
Pred nedavnem se tu objevil jednoduchy zpusob tisku pres TMetaFile (program
"tiskne" do metafile souboru a vysledek se posle na tiskarnu). Mozna by to
take mohlo byt reseni.
Tomas Grepl
K.A.P. - Ekonomicke informacni systemy
>Ahoj,
>
>mam problem v Delphi 3 tisknout bitmapy na tiskarnu. Obcas se nevytiskne.
>Tisknu pomoci objektu Printer do obdelniku RECT a bitmapa je ulozena v
>image:
>
>Printer.Orientation := poPortrait;
>Printer.BeginDoc;
>If Not Printer.Aborted Then
> Printer.Canvas.StretchDraw(RECT,Image1.Picture.Graphic);
>Printer.EndDoc;
>
>Nevite, prosim, v cem by mohl byt problem? Nebo kde hledat chybu?
>Nepodarilo se mi v IDE docilit aby se obrazek nevytiskl.
>
>Dekuji
>
>Jaro B.Clipboard po treti raz
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2000 22:53:43
From: Daniel Sichta <dano(zv)customweb.sk>
> D5 E, W98
> Ako by sa dal najlepsie vyriesit tento moj problem :
> Cez OpenDialog si vyberiem subor (95 % suborov bude Word file) .Potrebujem
> obsah tohto suboru ( bez toho aby som ho otvoril alebo spustil Word) nejako
> dostat do clipboardu a odtial do tela posty. Priklad potesi !!
Ahoj,
Pokud jsem to dobre pochopil, tak ti jde o to ziskat z Word dokumentu cisty
neformatovany text a ten vlozit do tela zpravy ? Pridat jej jako prilohu by
nebylo mozne ?
Petr Vones, amatersky programator
odesilani e-mailu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2000 22:53:59
From: Lauko �tefan <lauko(zv)salamon.sk>
> nieje to take jednoduche. Vo Win98 to nefunguje resp. co treba doinstalovat
> Bude to dostupne (pouzitelne) u dalsich uzivatelov na W98/NT/W2000 ?
Ahoj,
Tohle me taky nebylo uplne jasne. Napriklad ve Win95 ziskas MAPI instalaci
sluzby Microsoft Fax. Existuje vsak i moznost distribuovat instalaci MAPI
spolu s aplikaci, pokud neni MAPI instalovano:
http://support.microsoft.com/support/kb/articles/Q177/8/54.ASP?LN=EN-US&SD=gn&FR=0
Pritomnost Simple MAPI zjistis dle polozky MAPI=1 v registru
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Messaging Subsystem
Petr Vones, amatersky programator
owner canvas handle
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2000 22:53:30
From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
> > lze jednoduchym zpusobem obecne zjistit handle canvasu owner
> > komponenty ? (pokud canvas ma)
>
> Zkus GetDC, kde v parametru bude handle te komponenty.
> Neoveroval jsem to vsak.
Ahoj,
Tohle by mohlo byt ve VCL trochu problematicke, nehlede na to, ze TControl
nema HWND. Slouzi k tomu metoda GetDeviceContext, ktera v pripade TControl
nejprve zjisti potrebnou existenci TWinControl parenta a dale pak omezi
zobrazovaci oblast daneho DC na rozmer TControl, aby se zamezilo kresleni
mimo jeho plochu.
Petr Vones, amatersky programator
Voice funkce
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2000 22:54:23
From: Daniel Km�nek <kminek(zv)mite(tec)cz>
> Chci se zeptat. Umoznuje rozhrani RAS (RASAPI) propojit vnitrne modem se
> zvukovkou ?
Ahoj,
RAS slouzi ke vzdalenemu pripojeni site pomoci modemu ci dalsich zarizeni.
Tebe bude spise zajimat TAPI, kde je tato podpora. Jediny problem je, ze
MS neimplementoval vsechny moznosti TAPI (prave i voice funkce) na NT4, coz
je trochu divne. V ostatnich verzich Windows je to bez problemu.
Petr Vones, amatersky programator
StayOnTop
[*] Robert Kindl <rob(zv)exec(tec)cz> - 22.5.2000 22:59:50
> > Ahoj,
> > myslis tohle : Form1.FormStyle:=fsStayOnTop ?
> >
> Nie, toto nestaci.
> Musi existovat nejaka API funkcia, ktora zmeni
> velkost pouzitelnej plochy. Mne ide o to, ze ked
> task baru nastavis Stay on top a zrusis skryvanie, tak vsetky
> maximalizovane aplikacie posunu svoj spodny okraj o velkost task
> baru.
> A potrebujem nazov tej API funkcie.
> Vdaka.
> /LH
ShellAPI.SHAppBarMessage
Rob
Zabirani systemovych prostredku (D5 prof)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.5.2000 23:02:42
From: Pavel �ern� <cerny(zv)cerny-ps(tec)cz>
> Jak zjistim, ktere komponenty interne vyuzivaji tridu TButtonGlyph ? Ty tri,
> ktere jsou nahore uvedene - to je vse ? Zda se mi, ze hodne odcerpavaji
> treba ImageListy.
Ahoj,
Ze standartnich komponent v Delphi je to vse. U jinych by jsi musel prostudovat
zdrojaky. Co se tyce ImageListu, tam jsem tento problem nezaznamenal.
> Jeste k verzim woken. Zkusil jsem verzi programu, ktera odcerpavala cca 40%
> prostredku, spustit na Windows2000. Spustil jsem to 2x a treti spusteni se
> uz take nepodarilo - chybove hlaseni si nepamatuji presne, ale v zasade stejne,
> jak pod Win98.
To vypada na nejakou zavaznejsi chybu. GDI prostredky ve Win NT maji podstatne
vetsi rezervy nez u Win9x. Mozna by bylo dobre zjistit to chybove hlaseni. Dale,
pouzivas v te aplikaci BDE ? To ma take urcite interni omezeni. Mas nainstalovany
D5 Upd.Pack 1 ?
Petr Vones, amatersky programator
Jak vlozit prodleni do programu
[*] Daniel Resler <daniel(zv)atcgroup(tec)cz> - 22.5.2000 23:05:21
Dobry den,
jakym zpusobem vlozit pomlku do programu, pozastaveni chodu, treba na 2,3,10 sekund ?
Dekuji
Daniel Resler
Jak vlozit prodleni do programu
[*] Robert Lufinka <r.lufinka(zv)sh.cvut(tec)cz> - 22.5.2000 23:11:56
sleep(m) ... pozastavi proces na m milisekund
----- Original Message -----
Dobry den,
jakym zpusobem vlozit pomlku do programu, pozastaveni chodu, treba na 2,3,10
sekund ?
Dekuji
Daniel Resler
Counter
[*] Hurricane <hurricane(zv)email(tec)cz> - 22.5.2000 23:34:12
A to pocitadlo umi pocitat i soubory na jinym servru (hyperlink) Ja (spolu s
MODOSem) to potrebuju na pocitani stahnuti ZIP souuboru a zrizovat pro kazdy
soubor nove pocitadle jeste kdyz se soubory budou casto menit, mi pripada
silene.
Hurricanne
----- Original Message -----
btw:
Pokud by si chtel vyuzit nektereho z mnoha free-counteru na webu
tak doporucuji http://pocitadlo.netway(tec)cz vypada dobre, jednoduse
se ovlada a kdyz je clovek sikovnej, tak si muze udelat i vlastni
font, zaslat ho tam a odkazovat se na nej.
hnd
Peter
Counter
[*] Martin Lasevi� <vyvoj(zv)atlascon(tec)cz> - 23.5.2000 06:41:28
Tak to asi ne. To bys asi musel resit pomoci scritpu na strane serveru, kde
se jako parametr preda nazev souboru a script Ti vrati dany soubor ke
stazeni a zaroven zapocita bodik za stazeni. Jakze se asi PHP nebo CGI
nevyhnes.
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: Hurricane [SMTP:hurricane(zv)email(tec)cz]
> Odesl�no: 22. kv�tna 2000 23:34
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Re: Counter
>
> A to pocitadlo umi pocitat i soubory na jinym servru (hyperlink) Ja
(spolu s
> MODOSem) to potrebuju na pocitani stahnuti ZIP souuboru a zrizovat pro
kazdy
> soubor nove pocitadle jeste kdyz se soubory budou casto menit, mi
pripada
> silene.
>
> Hurricanne
> ----- Original Message -----
> btw:
> Pokud by si chtel vyuzit nektereho z mnoha free-counteru na webu
> tak doporucuji http://pocitadlo.netway(tec)cz vypada dobre, jednoduse
> se ovlada a kdyz je clovek sikovnej, tak si muze udelat i vlastni
> font, zaslat ho tam a odkazovat se na nej.
>
> hnd
> Peter
>
>
>
>
>