Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
"blikani" obrazovky
[*] Commanche <komurka(zv)myto(tec)cz> - 20.3.2003 21:18:09
> Co nazyvas "pomale"?
> Je 15 zmen za sekundu pomale?
no ja bych potreboval minimalne 70 zmen za sekundu
a stabilne
Commanche
> ----- Original Message -----
> From: "Commanche" <komurka(zv)myto(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Thursday, March 20, 2003 4:07 PM
> Subject: "blikani" obrazovky
>
>
> > Zdravim!
> > Potreboval bych udelat okno, ktere bude stridave menit
> > cernou a bilou barvu. Potrebuji to ale udelat co nejrychleji.
> > Zkousel jsem to s DelphiX, ale zda se mi to pomale.
> > Nebo nevite nekdo o nejakych vykonnejsich komponentach
> > pro praci s grafikou?
> >
> > (Delphi 6 Ent, Win XP proff SP1)
> >
> > Diky
> >
> > ++++++++++++++++++++++++++++++
> > + Commanche
> > + mailto:milos(zv)komurka(tec)cz
> > + ICQ: 149633182
> > + IRCnet: #mejto (Commanche)
> > ++++++++++++++++++++++++++++++
> >
> >
> ---
>
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.459 / Virov=E1 b=E1ze: 258 - datum vyd=E1n=ED: 25.2.2003
OT: test
[*] Tom� Janta��������{����Y��̿ - 20.3.2003 20:41:19
omlouvam se za OT, ale prihlasil jsem se do konference a nejak do ni nemohu
protlacit prizpevek :o(
Tomas J.
velkost MDIchild formy
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 20.3.2003 21:04:05
Form.constraints by melo fungovat. Ale pak to nemuze menit ani uzivatel...
Jinak ja jsem to uz prijal jako chovani MDI :-)
Danik
> -----Original Message-----
> Behalf Of Peter Turcan
> spustim, tak forma sa natiahne. Ako sa da sa zabezpecit, aby bola foma
> len taka siroka ako je sirka stlpcov v DBGride? (autosize som nastavil
CHM Help
[*] J�n Harman <harman(zv)volny(tec)cz> - 20.3.2003 20:38:30
Na Microsoftu hledej HtmlHelp.
J=E1n Harman, Brno, harman(zv)volny(tec)cz
> nevite, kde se da stahnout program, kterym se delaji chm helpy?
>
>
>
> S pozdravem
> Bronislav Klucka
> Windows programmmer, Web programmer
> -------------------------------------------------
>
> http://pro2-soft.com
> Email : Bronislav.Klucka(zv)pro2-soft.com
> Phone : +420605582922
>
>
CHM Help
[*] Bronislav Klu�ka <delphi(zv)czechdance(tec)com> - 20.3.2003 20:24:29
nevite, kde se da stahnout program, kterym se delaji chm helpy?
S pozdravem
Bronislav Klucka
Windows programmmer, Web programmer
-------------------------------------------------
http://pro2-soft.com
Email : Bronislav.Klucka(zv)pro2-soft.com
Phone : +420605582922
adotable.locate
[*] taranis <taranis(zv)centrum.sk> - 20.3.2003 19:50:25
Ahoj,
Najprv som vyhladaval polozku v dbgride tak, ze som presiel zaznam po zazname a porovnaval som
retazce.Je to vsak velmi pomale.
Teraz skusam funkciu ADOTable1.Locate .
Ako mozem prejst na dalsi najdeny zaznam ?
// ADOTable1.Locate('meno', edit1.text, []);
Vopred dakujem.
S pozdravom Jaro.
-----------------------------------
Email : taranis(zv)centrum.sk
Q:pozicia kurzora
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.3.2003 13:51:37
From: "Slafco" <skippo(zv)matfyz.sk>
> nemate niekto napisanu nejaku peknu rutinu pre zistenie pozicie
> kurzora v richedite? vdak
TRichEdit.CaretPos
program na checkovani zmen v adresarich
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.3.2003 13:49:59
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> Potreboval bych napsat aplikaci ktera kontrouluje urcity adresar a
> podadresare. Jakmile se tam objevi zmenenej soubor nebo novej tak ho
> zpracuje. Nevim presne jak to udelat a hlavne je tam asi tak 32 000
Pouzij komponentu TShellChangeNotifier (paleta Samples)
Jak rozchodit FastReport?
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 20.3.2003 16:04:48
Jeste navazuji na predchozi dotaz. Takhle vypada zasobnik, kdyz to =
spadne.
Vypada to, jako kdyby se ta tabulka nedala otevrit, ale je v poradku. =
Nemate
nekdo sajn, co by mohlo byt spatne?
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
Cannot load driver.
Exception class: EDBEngineError
Exception address: 00479AEA
---------------------------------------------------------------
Stack list, generated 20.3.2003 16:04:23
[00479AEA] DBTables.DbiError + $16
[00481A0A] DBTables.TDBDataSet.CheckOpen + $3E
[00482706] DBTables.TTable.GetHandle + $D2
[00482791] DBTables.TTable.GetHandle + $15D
[0047BDBD] DBTables.TSession.SetConfigMode + $39
[00403736] System.(zv)TryFinallyExit + $12
[00402447] System.SysFreeMem + $10F
[004024CA] System.SysFreeMem + $192
[00402792] System.(zv)FreeMem + $A
[00403C1A] System.(zv)LStrArrayClr + $26
[0047D75A] DBTables.TDatabase.DoConnect + $2E2
[0047A772] DBTables.TSession.FindDatabase + $22
[0047DACC] DBTables.TDatabase.ValidateName + $34
[00403736] System.(zv)TryFinallyExit + $12
[004022F7] System.SysGetMem + $147
[00402324] System.SysGetMem + $174
[00482830] DBTables.TTable.CreateHandle + $8C
[004828C6] DBTables.TTable.CreateHandle + $122
[0047DC12] DBTables.TBDEDataSet.OpenCursor + $32
[0047DC87] DBTables.TBDEDataSet.OpenCursor + $A7
[0048192A] DBTables.TDBDataSet.OpenCursor + $1E
[0046C3F7] Db.TDataSet.SetActive + $5B
[0046C419] Db.TDataSet.SetActive + $7D
"blikani" obrazovky
[*] Commanche <komurka(zv)myto(tec)cz> - 20.3.2003 16:07:35
Zdravim!
Potreboval bych udelat okno, ktere bude stridave menit
cernou a bilou barvu. Potrebuji to ale udelat co nejrychleji.
Zkousel jsem to s DelphiX, ale zda se mi to pomale.
Nebo nevite nekdo o nejakych vykonnejsich komponentach
pro praci s grafikou?
(Delphi 6 Ent, Win XP proff SP1)
Diky
++++++++++++++++++++++++++++++
+ Commanche
+ mailto:milos(zv)komurka(tec)cz
+ http://www.komurka(tec)cz
+ ICQ: 149633182
+ IRCnet: #mejto (Commanche)
++++++++++++++++++++++++++++++
Jak rozchodit FastReport?
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 20.3.2003 15:50:21
Ahoj vespolek, stahl jsem si demoverzi FastReportu 2.4, instalace bez
problemu a pokousel jsem se rozchodit nejaky demonstracni priklad, =
jenze
bohuzel kazdy, ktery pracoval s databazi, skoncil s chybou =
EDBEngineError
"Cannot load driver". Nejjednodussi priklad, ktery se takto chova, =
vypada
takto: Na form se posadi frDBDataSet a TTable. K TTable se urci =
DatabaseName
a TableName a Active se nastavi na True. Vlastnost Dataset toho =
frDBDataSet
se nastavi na Table1. Takze vysledek je tento:
object frDBDataSet1: TfrDBDataSet
DataSet =3D Table1
Left =3D 80
Top =3D 16
end
object Table1: TTable
Active =3D True
DatabaseName =3D 'ITR_CISELNIKY'
TableName =3D 'M16.DB'
Left =3D 24
Top =3D 16
end
No a pak staci program spustit. Zbuchne to v FR_DBSet, radek 113, kde =
ta
procedura konci:
{$IFDEF IBO}
procedure TfrDBDataSet.SetDataSet(Value: TIB_DataSet);
{$ELSE}
procedure TfrDBDataSet.SetDataSet(Value: TDataSet);
{$ENDIF}
begin
FDataSet :=3D Value;
FDataSource :=3D nil;
end; <<<< tady to spadne
Ten symbol IBO samozrejme definovan neni, do FR.INC jsem nijak =
nehrabal.
Pokud se tabulka Table1 ponecha zavrena (Active=3Dfalse), tak se nic =
nestane.
Pouzivam lokalni tabulku Paradox, BDE, Win XP, Delphi5 Pro se SP.
Netusite nekdo, co s tim?
Diky za vsechny odpovedi
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
IdHTTP POST a chyba 405 Method not allowed
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 20.3.2003 14:32:58
Zdravim sikulove,
uz se nejak dlouho trapim s Indy ver. 9, konkretne IdHTTP Post
a tak me napadlo, ze bych se vam sveril :o). Ja uz fakt nevim,
kde hledat chybu. Zda se mi totiz, ze IdHTTP POST mi tam ta data
vubec neposle?
Nevite nekdo co by to mohlo byt ???
.
.
.
var
SList: TStringList;
Source, Response: TStringStream;
begin
SList := TStringList.Create;
Source :=
TStringStream.Create('predcisli=608&number=123456&ppp=104815698853921%3A9992
946ea2ea2d6b60dd1ec54948d434&locale=cz&mypred1=420&mypred2=737&mynumber=1231
23&sender=hugo(zv)nic(tec)cz&message=TEST&char_in=4&char_le=730&parts=1');
{to ppp samozrejme ctu z nacteneho formu }
Response := TStringStream.Create('');
IdHTTP1.Post('send.php3?locale=cz', Source, Response);
{!!! tady mi to vraci EIdProtocolReplyError - 405 Method not allowed !!!}
.
.
.
NASTAVENI IdHTTP clienta:
---------------------------
POST /send.php3?locale=cz HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg,
application/vnd.ms-powerpoint, application/vnd.ms-excel,
application/msword, application/x-shockwave-flash, */*
Referer: http://sms.oskarmobil(tec)cz/s_main.php3?locale=cz
Accept-Language: cs
Content-Type: application/x-www-form-urlencoded
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; MyIE2)
Host: sms.oskarmobil(tec)cz
Connection: Keep-Alive
Cache-Control: no-cache
object IdHTTP1: TIdHTTP
OnStatus = IdHTTP1Status
MaxLineLength = 32768
MaxLineAction = maException
ReadTimeout = 3000
RecvBufferSize = 49152
SendBufferSize = 49152
OnDisconnected = IdHTTP1Disconnected
OnConnected = IdHTTP1Connected
AllowCookies = False
HandleRedirects = True
ProtocolVersion = pv1_0
ProxyParams.BasicAuthentication = False
ProxyParams.ProxyPort = 0
Request.CacheControl = 'no-cache'
Request.Connection = 'close'
Request.ContentLength = 0
Request.ContentRangeEnd = 0
Request.ContentRangeStart = 0
Request.ContentType = 'application/x-www-form-urlencoded'
Request.Accept =
'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application' +
'/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword' +
', application/x-shockwave-flash, */*'
Request.AcceptEncoding = 'gzip, deflate'
Request.AcceptLanguage = 'cs'
Request.BasicAuthentication = False
Request.UserAgent =
'Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt) 5.0; MyIE' +
'2)'
HTTPOptions = []
Left = 1
Top = 261
end
program na checkovani zmen v adresarich
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 20.3.2003 14:14:46
Cau StuPe,
Thursday, March 20, 2003, 1:48:00 PM, you wrote:
> // Modul - Name : DirMon
> // Version : 1.0
> // Description : Directory Changes Monitoring Component.
> // The component notifies by changes in a diretory such as:
> // not Compatible to Windows'98
> Tak je to! Mysl�m, ze to m�m z www.torry.ru, ale zkus i ty adresy autoru. Je to skqvele udelan�, z�dn� seznam ani casovac. Zaregistruje se ve woknech a nech� si poslat zpr�vu pri zmene obsahu
> adres�re.
Ano ano to je ono... problem was solved thanks...
delal jsem na tom uz dva dny. Dokonce i vcera vecer v loznici :)
Dovolte mi maly projev radosti :)
HURAAAAA HURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAA
HURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAA
HURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAAHURAAAAA
Diky moc vsem
S pozdravem
Milan Vymazal
program na checkovani zmen v adresarich
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 20.3.2003 14:05:16
Cau StuPe,
Thursday, March 20, 2003, 1:48:00 PM, you wrote:
> // Modul - Name : DirMon
> // Version : 1.0
> // Description : Directory Changes Monitoring Component.
> // The component notifies by changes in a diretory such as:
> // File/Directory: Create/Delete/Modify/Rename
> // We have 4 Events:
> // OnCreated: TFileChangedEvent
> // OnDeleted: TFileChangedEvent
> // OnModified: TFileChangedEvent
> // OnRenamed: TFileRenamedEvent
> // We are using here only the Idea's from Damien Thouvenin - but it is
> // is easyer for us to use a Component instead the source of his Demo.
> // if you find it good so send your thanks also to damien(zv)thouvenin.net
> // but your BUGS you can sent to support(zv)phaeteon.de
> //
> // Compatible: Delphi 4 and Delphi 5
> // Tested Platforms : Windows NT 4.0, Windows 2000 Prof/Server
> // not Compatible to Windows'98
> //
> // History:
> // When Who What
> // 06.11.2000 UR Created by phaeteon(www.phaeteon.de) and LoLa (www.lolasoft.de)
> //
> Tak je to! Mysl�m, ze to m�m z www.torry.ru, ale zkus i ty adresy autoru. Je to skqvele udelan�, z�dn� seznam ani casovac. Zaregistruje se ve woknech a nech� si poslat zpr�vu pri zmene obsahu
> adres�re.
diky skusim. teda pokud to najdu. Muzes mi to plz poslat mailem ?
> StuPe http://stupe.jinde(tec)cz
S pozdravem
Milan Vymazal
program na checkovani zmen v adresarich
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 20.3.2003 14:00:31
> Potreboval bych napsat aplikaci ktera kontrouluje urcity
> adresar a podadresare. Jakmile se tam objevi zmenenej
> soubor nebo novej tak ho zpracuje.
V Platform SDK je to popisane v "Monitoring Changes in a Directory or
Directory Tree", su na to API FindFirstChangeNotification a
FindNextChangeNotification.
K Tvojej predoslej otazke ohladne filemon od sysinternals:
Na jednoduche sledovanie zmien v adresaroch nepotrebujes pouzit filemon, ten
je na nizsej urovni a sleduje pristupy na rozne typy 'suborov', vratane
named pipes a mailslotov.
V RX library (v unite RxNotify) najdes komponent TRxFolderMonitor, ktory
pouziva tie horeuvedene API, neskusal som ho.
HTH
program na checkovani zmen v adresarich
[*] StuPe - 20.3.2003 13:48:00
// Modul - Name : DirMon
// Version : 1.0
// Description : Directory Changes Monitoring Component.
// The component notifies by changes in a diretory such =
as:
// File/Directory: Create/Delete/Modify/Rename
// We have 4 Events:
// OnCreated: TFileChangedEvent
// OnDeleted: TFileChangedEvent
// OnModified: TFileChangedEvent
// OnRenamed: TFileRenamedEvent
// We are using here only the Idea's from Damien =
Thouvenin - but it is
// is easyer for us to use a Component instead the =
source of his Demo.
// if you find it good so send your thanks also to =
damien(zv)thouvenin.net
// but your BUGS you can sent to support(zv)phaeteon.de
//=20
// Compatible: Delphi 4 and Delphi 5
// Tested Platforms : Windows NT 4.0, Windows 2000 Prof/Server
// not Compatible to Windows'98
//
// History:
// When Who What
// 06.11.2000 UR Created by phaeteon(www.phaeteon.de) and LoLa =
(www.lolasoft.de)
//
Tak je to! Mysl=EDm, ze to m=E1m z www.torry.ru, ale zkus i ty adresy =
autoru. Je to skqvele udelan=FD, z=E1dn=FD seznam ani casovac. =
Zaregistruje se ve woknech a nech=E1 si poslat zpr=E1vu pri zmene obsahu =
adres=E1re.
StuPe http://stupe.jinde(tec)cz
----- Puvodn=ED zpr=E1va -----=20
Od: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl=E1no: 20. brezna 2003 13:33
Predmet: program na checkovani zmen v adresarich
> Zdravim konferu
>=20
> Potreboval bych napsat aplikaci ktera kontrouluje urcity adresar a
> podadresare. Jakmile se tam objevi zmenenej soubor nebo novej tak ho
> zpracuje. Nevim presne jak to udelat a hlavne je tam asi tak 32 000
> souboru takze nejakej seznam neberu v potaz.
>=20
>=20
> neresil negdo z vas tento problem ?
>=20
> --=20
> Best regards,
> =20
> Milan Vymazal
> Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
>=20
>=20
>=20
program na checkovani zmen v adresarich
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 20.3.2003 13:46:31
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> neresil negdo z vas tento problem ?
Jo, mnohokrat. Podivej se na FIndFirst/NextChangeNotification.
Jsem na odchodu, tak jen telegraficky:
s podadresarema to bude asi slabsi: asi je budes muset prolezt a kazdy z
nich nasackovat do pole handlu, na ktere pak budes cekat cekat pomoci
WaitForMultipleObjects().
HTH, pf
program na checkovani zmen v adresarich
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 20.3.2003 13:33:28
Zdravim konferu
Potreboval bych napsat aplikaci ktera kontrouluje urcity adresar a
podadresare. Jakmile se tam objevi zmenenej soubor nebo novej tak ho
zpracuje. Nevim presne jak to udelat a hlavne je tam asi tak 32 000
souboru takze nejakej seznam neberu v potaz.
neresil negdo z vas tento problem ?
--
Best regards,
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
Problem s TIniFile a limitem 64KB
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 20.3.2003 13:08:59
> Jen bych upozornil, ze nativni INI file ma nektera
> kouzla plynouci z toho, ze spis nez file je to
> dobre organizovana cache ze zpozdenym write backem,
> takze existuji pripady, kdy by nahrada za
> TMemoIniFile IMHO degradovala propustnost systemu
> (treba u naseho [X-]COMI rozhrani, ktere je na INI
> filech postaveno).
Zrejme vo vasom pripade su tie obmedzenia velkosti .ini suborov
akceptovatelne (a to myslim plati pre vecsinu beznych aplikacii).
Myslim, ze pre specialne pripady je tiez mozne napisat si vlastnu triedu
odvodenu od TCustomIniFile, ktora bude sita na mieru pre danu aplikaciu; v
pripade potreby moze implementovat cache a oneskoreny zapis na disk a
zaroven nemat tie obmedzenia velkosti ake maju .ini subory.
Dalsie riesenie by mohlo byt tiez akysi TCompoundIniFile, ktory by udaje
(pri presiahnuti limitu velkosti) vnutorne pouzival viacero instancii
TIniFile (s roznymi menami suborov, napriklad .000, .001 atd.) a navonok ich
prezentoval ako jeden.
Jak poslat string pres UDP?
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 20.3.2003 13:06:19
> > Neni tam nejaka moznost udalosti "onrecieve" nebo tak neco? Neco co se
> > vyvola kdyz prijmu data.
Ahoj, ja na odosielanie a prijem UDP paketov
pouzivam nizsie uvedenu jednoucelovu unitu,
ktoru som kedysi dostal od L.Bodecka a mierne
upravil (redukoval).
Vlkovic
Predmetna unita sa pouziva takto:
var
UDPSocket: TUDPSocket;
...
UDPSocket := TUDPSocket.Create(Self);
UDPSocket.OnDataReceived := UDPSocketReceived; // obsluha prijmu
UDPSocket.Port := 3333; // cislo portu
UDPSocket.Active := True; // aktivuje
Odoslanie vyzera takto:
procedure TForm1.bSendClick(Sender: TObject);
Const
IP: TIPAddr = ( 10, 33, 33, 55 );
begin
UDPSocket.SendData ( IP, MText.Text );
end;
Obsluha udalosti na prijem UDP napriklad takto:
procedure TForm1.UDPSocketReceived(Sender: TObject);
var
Data: Variant;
begin
UDPSocket.GetData ( Data );
ShowMessage ( Data );
end;
A nakoniec este slubovana unita:
UNIT UDP_Lib;
INTERFACE
uses
Windows, WinSock, Messages, SysUtils, Classes;
CONST
MaxDataSize = 512;
TYPE
TIPAddr = array[1..4] of Byte;
TSockBuf = array[1..MaxDataSize] of Byte;
TSockEvent = procedure (Sender: TObject) of object;
// Pre chyby socketu treba zmenit konstanty a doplnit texty do
FDINFO.INC
EFDSockError = class(Exception);
// Ve variantu pro TUDPSocket mozno (zatial) pouzit len string
// a ciselne typy (nie je kontrolovane !)
TUDPSocket = class(TComponent)
private
FActive : Boolean;
SockHandle: TSocket;
WndHandle: HWND;
DgramBuf: TSockBuf;
FConnectPort: Word;
FErrorCode: Integer;
FBytesReceived: Integer;
FRemoteIPAddr: TIPAddr;
FOnDataReceived: TSockEvent;
FOnError: TSockEvent;
FPort : Word;
procedure WndProc (var Msg: TMessage);
procedure ProcessData;
procedure SendToAddr (ToAddr: LongInt; var Data: Variant);
procedure Cleanup;
procedure SetActive(AActive : Boolean);
public
constructor Create (AOwner : TComponent); override;
destructor Destroy; override;
procedure GetData (var Data: Variant); // nacita prichadzajuce data
(vyuzite z eventu OnDataReceived)
procedure SendData (IPAddr: TIPAddr; Data: Variant); // posle data
procedure BroadcastData (Data: Variant); // posle vsetkym staniciam
property Active : Boolean read FActive write SetActive default
False;
property ConnectPort: Word read FConnectPort;
property ErrorCode: Integer read FErrorCode; // kod chyby
property BytesReceived: Integer read FBytesReceived;
property RemoteIPAddr: TIPAddr read FRemoteIPAddr; // adresa,
odkial prisli data
published
property Port: Word read FPort write FPort;
property OnDataReceived: TSockEvent read FOnDataReceived write
FOnDataReceived;
property OnError: TSockEvent read FOnError write FOnError;
end;// Konverzne funkcie
function IPAddrToStr (IPAddr: TIPAddr): String;
function StrToIPAddr (S: String; var IPAddr: TIPAddr): Boolean;
IMPLEMENTATION
USES Forms;
CONST
WSAVersion = 1 shl 8 + 1; { version 1.1 }
WM_SOCKEVENT = WM_USER + $8FFF;
VAR
WSAData : TWSAData;
procedure TUDPSocket.WndProc (var Msg: TMessage);
begin
with Msg do
if ( Msg = WM_SOCKEVENT ) and
( LParamLo = FD_READ ) then
ProcessData()
else
Result := DefWindowProc ( WndHandle, Msg, wParam, lParam );
end;
procedure TUDPSocket.ProcessData;
var
IPAddr: TSockAddr;
Len: Integer;
begin
Len := Sizeof(IPAddr);
FBytesReceived := WinSock.recvfrom ( SockHandle, DgramBuf,
Sizeof(DgramBuf), 0, IPAddr, Len);
if FBytesReceived > 0 then
begin
FRemoteIPAddr := TIPAddr ( IPAddr.sin_addr );
if Assigned ( FOnDataReceived ) then
FOnDataReceived ( Self );
end
else
begin
FErrorCode := WSAGetLastError();
if Assigned ( FOnError ) then
FOnError ( Self );
end;
end;
procedure TUDPSocket.SendToAddr (ToAddr: LongInt; var Data: Variant);
var
IPAddr: TSockAddr;
Len: Integer;
S: String;
begin
FillChar ( IPAddr, Sizeof(IPAddr), 0 );
IPAddr.sin_family := AF_INET;
IPAddr.sin_port := FConnectPort;
IPAddr.sin_addr.S_addr := ToAddr;
Len := 0;
Move ( Data, DgramBuf, Sizeof(Data) );
if VarType ( Data ) = varString then
begin
Len := Length ( Data ) + 1;
if Len + Sizeof(Data) > MaxDataSize then
Len := MaxDataSize - Sizeof(Data);
S := Copy ( Data, 1, Len - 1 );
Move ( PChar(S)^, DgramBuf[Sizeof(Data)+1], Len );
end;
Inc ( Len, Sizeof(Data) );
if sendto ( SockHandle, DgramBuf, Len, 0, IPAddr, Sizeof(IPAddr)) < 0
then
raise EFDSockError.Create ( IntToStr(WSAGetLastError) );
end;
procedure TUDPSocket.Cleanup;
begin
if SockHandle <> INVALID_SOCKET then
begin
WinSock.closesocket ( SockHandle );
SockHandle := INVALID_SOCKET;
if WndHandle <> 0 then
begin
DeallocateHWnd(WndHandle);
WndHandle := 0;
end;
end;
end;
constructor TUDPSocket.Create (AOwner : TComponent);
begin
inherited Create ( AOwner );
FPort := 0;
FActive := False;
end;
procedure TUDPSocket.SetActive(AActive : Boolean);
const
EnableBCast: Integer = 1;
var
IPAddr: TSockAddr;
begin
if AActive then
begin
FConnectPort := FPort;
FillChar ( IPAddr, Sizeof(IPAddr), 0 );
IPAddr.sin_family := AF_INET;
IPAddr.sin_port := FConnectPort;
IPAddr.sin_addr.S_addr := INADDR_ANY;
SockHandle := WinSock.socket ( PF_INET, SOCK_DGRAM, 0 );
if SockHandle = INVALID_SOCKET then
raise EFDSockError.Create ( IntToStr(WSAGetLastError) );
if WinSock.bind ( SockHandle, IPAddr, Sizeof(IPAddr) ) <> 0 then
raise EFDSockError.Create ( IntToStr(WSAGetLastError) );
if WinSock.setsockopt
(
SockHandle,
SOL_SOCKET,
SO_BROADCAST,
PChar((zv)EnableBCast),
Sizeof(EnableBCast)
) <> 0 then
raise EFDSockError.Create ( IntToStr(WSAGetLastError) );
WndHandle := AllocateHWnd ( WndProc );
if WSAAsyncSelect
(
SockHandle,
WndHandle,
WM_SOCKEVENT,
FD_READ
) <> 0 then
raise EFDSockError.Create ( IntToStr(WSAGetLastError) );
end
else CleanUp();
FActive := AActive;
end;
destructor TUDPSocket.Destroy;
begin
CleanUp();
inherited Destroy;
end;
procedure TUDPSocket.GetData (var Data: Variant);
var
V: TVarData;
begin
Move ( DgramBuf, V, Sizeof(V) );
if V.VType = varString then
Data := StrPas ( PChar((zv)DgramBuf[Sizeof(V) + 1]) )
else
Data := Variant ( V );
end;
procedure TUDPSocket.SendData (IPAddr: TIPAddr; Data: Variant);
begin
SendToAddr ( LongInt(IPAddr), Data );
end;
procedure TUDPSocket.BroadcastData (Data: Variant);
begin
SendToAddr ( INADDR_BROADCAST, Data );
end;
function IPAddrToStr (IPAddr: TIPAddr): String;
begin
Result := IntToStr(IPAddr[1]) + '.' + IntToStr(IPAddr[2]) + '.' +
IntToStr(IPAddr[3]) + '.' + IntToStr(IPAddr[4]);
end;
function StrToIPAddr (S: String; var IPAddr: TIPAddr): Boolean;
var
Code: Integer;
S1: String;
I, L: Integer;
begin
Result := False;
if S <> '' then
begin
S1 := S + '.';
for I := 1 to 4 do
begin
L := Pos('.', S1);
if L = 0 then
Exit;
Val ( Copy ( S1, 1, L-1 ), IPAddr[I], Code );
if Code <> 0 then
Exit;
Delete(S1, 1, L);
end;
Result := True;
end;
end;
INITIALIZATION
WSAStartup ( WSAVersion, WSAData );
FINALIZATION
WSACleanup();
Problem s TIniFile a limitem 64KB
[*] Obermaier Petr Ing. <Obermaier(zv)mail.sdas(tec)cz> - 20.3.2003 12:52:53
> Od: Petr Fejfar [SMTP:development(zv)callnet(tec)cz]
> Jen bych upozornil, ze nativni INI file ma nektera kouzla plynouci z =
toho,
> ze spis nez file je to dobre organizovana cache ze zpozdenym write =
backem,
> takze existuji pripady, kdy by nahrada za TMemoIniFile IMHO =
degradovala
> propustnost systemu (treba u naseho [X-]COMI rozhrani, ktere je na INI
> filech postaveno).
>=20
Ja naopak musel "vymenit" TIniFile za TMemIniFile, pouze kvuli Win2000.
Pouzitim TIniFile se mi zde asi o 2 sekundy zpozdovalo ukonceni aplikace =
(zapis mnoha INI udaju).
S TMemIniFile vse ihned. V helpu je neco ve smyslu, ze TIniFile =
cte/zapisuje kazdou polozku z/na disk zvlast (pres ten disk-buffer), =
kdezto TMemIniFile pracuje se StringListem.
Problem s TIniFile a limitem 64KB
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 20.3.2003 12:35:32
From: <tondrej(zv)t-online.de>
> Ako som uz pisal, staci pouzit TMemIniFile.
Jen bych upozornil, ze nativni INI file ma nektera kouzla plynouci z toho,
ze spis nez file je to dobre organizovana cache ze zpozdenym write backem,
takze existuji pripady, kdy by nahrada za TMemoIniFile IMHO degradovala
propustnost systemu (treba u naseho [X-]COMI rozhrani, ktere je na INI
filech postaveno).
pf
Problem s TIniFile a limitem 64KB
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 20.3.2003 12:14:52
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
> To, co je omezeno v Delphi, by se dalo zm�nit.
> Ja jsem menil ReadSection
Dalo, protoze kupodivu vsechny tri metody jsou
virtual & public
pf
Scan site ...
[*] Gropl Tom� <tgropl(zv)DPO.CZ> - 20.3.2003 11:23:36
Ahoj vsem,
nemate nekdo reseny problem scanovani site, napr. zjistit =
instalovany
softaware na pocitacich v siti atd ...
Nebo me alespon nasmerujte na nejaky zdroj ... Diky
Tom
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.462 / Virov=E1 b=E1ze: 261 - datum vyd=E1n=ED: 13.3.2003
Form show and hide
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 20.3.2003 10:40:08
Mne sa ako najvyhodnejsie javi OnShow
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
>: Behalf Of Vlastimil Zden=ECk
>: Sent: Wednesday, March 19, 2003 12:34 PM
>: To: Delphi
>: Subject: Form show and hide
>:=20
>: Zdravim vsechny,
>: prosil bych o radu:
>: na jakou udalost a co zavesit na formular, aby se mi pri spusteni
skryl
>: do
>: try ikony? Jako to dela pri spusteni treba WinProxy...
>:=20
>: Diky Vlasta
>:=20
>: D5Ent
>:=20
>:=20
---
avast! Antivirus: Odchadzajuca sprava cista.
Virova databaza (VPS): 19. 3. 2003
Testovane: 20. 3. 2003 10:35:32
avast! (c) copyright 2000-2003 ALWIL Software.
http://www.avast.com
Problem s TIniFile a limitem 64KB
[*] tondrej(zv)t-online.de - 20.3.2003 10:24:59
> To, co je omezeno v Delphi, by se dalo zm=ECnit.
> Ja jsem menil ReadSection
Ako som uz pisal, staci pouzit TMemIniFile.
HTH
Problem s TIniFile a limitem 64KB
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 20.3.2003 08:45:27
> Odes=EDlatel: Petr Fejfar <development(zv)callnet(tec)cz>
> AFAIK, na platforme W9x,ME existuji tyto limity:
> Omezeni API:
> - celkova velkikost .INI max. 64 kB
> - max. velikost jedne polozky 32 kB - 2 B
> Omezeni Delphi (i D7):
> - max. velikost polozky 2 kB (metoda ReadString)
> - max. 16 kB v ReadSections
> - max. 16 kB v ReadSection
To, co je omezeno v Delphi, by se dalo zm=ECnit.
Ja jsem menil ReadSection
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
velkost MDIchild formy
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 20.3.2003 08:42:49
> Odes=EDlatel: Peter Turcan <peter.turcan(zv)centrum.sk>
> spustim, tak forma sa natiahne. Ako sa da sa zabezpecit, aby bola foma
> len taka siroka ako je sirka stlpcov v DBGride? (autosize som nastavil
> na false a aj to resizuje)
>=20
> a este podotazka. je mozne zabezpecit, aby bola forma taka velka ako
> ked ju navrhujem.
Nevim z hlavy, zda MDI aplikace akceptuje Position=3DpoDesigned, ale =
urcite by to melo jit tak, ze si nastavim velikost formulare na OnCreate =
explicitne.=20
A pokud nebudu chtit neco pocitat, mohu zkusit=20
DBGrid.Align=3DalNone
nastavit velikost formulare podle gridu
DBGrid.Align=3DalClient
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
Instalace tiskarny
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 20.3.2003 09:46:08
> var
> PrintFile : TextFile;
> begin
> AssignFile(PrintFile,'LPT1');
> Rewrite(PrintFile);
> Write(PrintFile,Chr(7));
> CloseFile(PrintFile);
> end;
Uplne presne tento postup mi funguje.
Jaroslav Nadhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel.: 224 312 344-5
fax: 235 522 892
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
pobocka Ostrava:
Nedbalova 14, 701 00 Ostrava
tel: 596 635 687
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.462 / Virov� b�ze: 261 - datum vyd�n�: 13.3.2003
HP Deskjet940c a QuickReport1.1a
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 20.3.2003 09:19:44
Zdravim,
zkus si nastavit ve vlastnostech tiskarny (mam take HP940c)
aby se ti specialni pismena (hacky, carky, prehlaskovane, atp.)
posilaly na tiskarnu jako obrazky - text se nijak neporusi a
cestina projde OK - kdysi jsem mel podobny problem.
MI'RA
-----Original Message-----
From: Tomas Mazurek [mailto:tomas.mazurek(zv)vitkovice(tec)cz]
Sent: Thursday, March 20, 2003 9:12 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: HP Deskjet940c a QuickReport1.1a
Dobry den,
mam dotaz ohledne Delphi1. Uzivatel si nainstaloval do Win95 vyse uvedenou
tiskarnu a od te doby jsou tisky z QuickReportu1.1a u nekterych fontu spatne
cesky. Nesetkal se jiz nekdo s tim? Uznavam, ze "stare" Delphi1 a "nova"
tiskarna HP uz asi neni to prave, ale zatim s temi 16-ti bitovymi programy
jine problemy nebyly... Navic v tom standardnim preview sestavy v QR je
obcas tlacitko tiskarny disabled i kdyz je tiskarna spravne pripojena, ma
papir apod...
Dik
HP Deskjet940c a QuickReport1.1a
[*] Tomas Mazurek <tomas.mazurek(zv)vitkovice(tec)cz> - 20.3.2003 09:12:18
Dobry den,
mam dotaz ohledne Delphi1. Uzivatel si nainstaloval do Win95 vyse uvedenou
tiskarnu a od te doby jsou tisky z QuickReportu1.1a u nekterych fontu spatne
cesky. Nesetkal se jiz nekdo s tim? Uznavam, ze "stare" Delphi1 a "nova"
tiskarna HP uz asi neni to prave, ale zatim s temi 16-ti bitovymi programy
jine problemy nebyly... Navic v tom standardnim preview sestavy v QR je
obcas tlacitko tiskarny disabled i kdyz je tiskarna spravne pripojena, ma
papir apod...
Dik
Tomas Mazurek
OT: odchyceni HTTP POST dat
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 20.3.2003 09:10:20
Moc, moc, moc dekuji. Je to perfektni.
R. Plzak
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Ji�� Mat�jka
Sent: Thursday, March 20, 2003 8:58 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: OT: odchyceni HTTP POST dat
EffeTech HTTP Sniffer 3.0, http://www.effetech.com
Jirka Matejka
----- Original Message -----
From: "Robert Plz�k" <rpvp(zv)vagnerplast(tec)cz>
To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, March 20, 2003 7:43 AM
Subject: OT: odchyceni HTTP POST dat
> Zdravim borci,
> nevite nekdo o nejakem programku s kterym bych byl schopen
> odchytit data, co se poslou z html formulare metodou POST
> po stisku tlacitka odeslat <input type="submit"...> ???
>
> R. Plzak
>
---
Odchoz� zpr�va neobsahuje viry.
No viruses found in the outgoing message.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.463 / Virov� b�ze: 262 - datum vyd�n�: 17.3.2003
Instalace tiskarny
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 20.3.2003 08:56:43
> From: Vlastimil Zden=ECk
>=20
> Nedari se na softwarove otevrit pokladnu.=20
> Mela by se otevirat #7,=20
> ale nejak to nemuzem prostouchnout.
> Zkousime to takto:
>=20
> var
> PrintFile : TextFile;
> begin
> AssignFile(PrintFile,'LPT1');
> Rewrite(PrintFile);
> Write(PrintFile,Chr(7));
> CloseFile(PrintFile);
> end;
Zkuste to takto:
var F: TFileStream;
begin
F :=3D TFileStream.Create('LPT1', fmCreate);
F.Write(#7, 1);
F.Free;
end;
Vaclav Krmela
OT: odchyceni HTTP POST dat
[*] Ji�� Mat�jka�����^�F�צ����̿ - 20.3.2003 08:58:28
EffeTech HTTP Sniffer 3.0, http://www.effetech.com
Jirka Matejka
----- Original Message -----
From: "Robert Plz=E1k" <rpvp(zv)vagnerplast(tec)cz>
To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, March 20, 2003 7:43 AM
Subject: OT: odchyceni HTTP POST dat
> Zdravim borci,
> nevite nekdo o nejakem programku s kterym bych byl schopen
> odchytit data, co se poslou z html formulare metodou POST
> po stisku tlacitka odeslat <input type=3D"submit"...> ???
>
> R. Plzak
>
---
Odchoz=ED zpr=E1va neobsahuje viry.
No viruses found in the outgoing message.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.463 / Virov=E1 b=E1ze: 262 - datum vyd=E1n=ED: 17.3.2003
Sdilene slozky na lokalnim pocitaci
[*] Jiri Babka <jb_konf(zv)seznam(tec)cz> - 20.3.2003 08:11:02
Ahoj!
Poradite mi, prosim, jak zjistit seznam sdilenych slozek na lokalnim pocitaci?
Nebo jeste lepe: jak prevest lokalni cestu na tvar UNC. Mam napriklad cestu
'C:\Users\Jirka' na lokalnim pocitaci s nazvem 'ABC', kde jedna ze sdilenych
slozek je 'C:\Users' sdilena jako 'Users', a potreboval bych dostat
'\\ABC\Users\Jirka'. Jak to udelat? Funkce ExpandUNCFileName z knihovny
SysUtils mi na lokalni pocitac nefunguje.
Dekuji za radu
Jiri Babka
Problem s TIniFile a limitem 64KB
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 20.3.2003 08:22:16
From: "Jan Sebel�k" <honza(zv)haes(tec)cz>
> V IniFiles.pas se toho moc neprogramuje.
> Vetsina metod se dela pres WinAPI.
> Nechci za to dat ruku do ohne,
> ale ty konstanty jsou tam nejspis jeste
> z Delphi 1 (Win16).
AFAIK, na platforme W9x,ME existuji tyto limity:
Omezeni API:
- celkova velkikost .INI max. 64 kB
- max. velikost jedne polozky 32 kB - 2 B
Omezeni Delphi (i D7):
- max. velikost polozky 2 kB (metoda ReadString)
- max. 16 kB v ReadSections
- max. 16 kB v ReadSection
HTH, pf
pozicia kurzora
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 20.3.2003 08:10:17
http://www.tvrz.wz(tec)cz/Site/Delphi/Obsah.htm
MI'RA
-----Original Message-----
From: Slafco [mailto:skippo(zv)matfyz.sk]
Sent: Tuesday, March 18, 2003 9:57 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Q:pozicia kurzora
cest praci delfini
nemate niekto napisanu nejaku peknu rutinu pre zistenie pozicie
kurzora v richedite? vdak
--
Vsetko dobre,
Slafco
-----------------------------------
mailto:skippo(zv)matfyz.sk
icq : 132940081
a3net : slafco [slafco.atriaky.sk]
web : http://whitedog.matfyz.sk
http://h93.matfyz.sk
velkost MDIchild formy
[*] Peter Turcan <peter.turcan(zv)centrum.sk> - 20.3.2003 08:05:29
ahojte
mam taky stupidny dotaz.
Robim MDI aplikaciu, kde mam MDIChild formy. Pouzivam rxLib.
Vo forme mam len rxDBgrid (align:=Client) problem je v tom, ze v DB gride su dva
stlpce. ked si formu "navrhnem" v IDE tak je to ok. ale ked to
spustim, tak forma sa natiahne. Ako sa da sa zabezpecit, aby bola foma
len taka siroka ako je sirka stlpcov v DBGride? (autosize som nastavil
na false a aj to resizuje)
je to vobec priamo mozne?
a este podotazka. je mozne zabezpecit, aby bola forma taka velka ako
ked ju navrhujem.
Ako riesite taketo veci?
Dakujem
Peter
Instalace tiskarny
[*] Vlastimil Zden�k <delphi(zv)gestore(tec)cz> - 20.3.2003 07:56:22
Jeste bych se pridal k dotazu:
Nedari se na softwarove otevrit pokladnu. Mela by se otevirat #7, ale nejak
to nemuzem prostouchnout.
Zkousime to takto:
var
PrintFile : TextFile;
begin
AssignFile(PrintFile,'LPT1');
Rewrite(PrintFile);
Write(PrintFile,Chr(7));
CloseFile(PrintFile);
end;
Ten samy postup s Chr(12) na HP1200 v pohode odstrankuje...
Netusite nekdo, cim to muze byt?
Diky Vlasta
D5Ent
----- Original Message -----
From: "Zdenek Brejsa" <prog(zv)hjsoft(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, March 20, 2003 6:30 AM
Subject: Re: Instalace tiskarny
Co potrebujes ?
----- Original Message -----
From: "Bronislav Klu�ka" <delphi(zv)czechdance.com>
To: "Delphi Konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, March 19, 2003 12:58 PM
Subject: OT: Instalace tiskarny
> nemate nekdo zkusenosti s instalovanim tiskaren Epson TM-U210 a Star
> SP200??? (jedna se o tiskatny na pokladny)
>
>
>
> S pozdravem
> Bronislav Klucka
> Windows programmmer, Web programmer
> -------------------------------------------------
>
> http://pro2-soft.com
> Email : Bronislav.Klucka(zv)pro2-soft.com
> Phone : +420605582922
OT: odchyceni HTTP POST dat
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 20.3.2003 07:43:17
Zdravim borci,
nevite nekdo o nejakem programku s kterym bych byl schopen
odchytit data, co se poslou z html formulare metodou POST
po stisku tlacitka odeslat <input type="submit"...> ???
Zacatky v Interbazi
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 19.3.2003 16:12:53
> Odes=EDlatel: Viktor Marek <viktor(zv)mbox.vol(tec)cz>
> - existuje nejake free udelatko na vytvoreni databaze (databaze =
utility)
Bez IBConsole, IBExperta nebo neceho podobneho se samozrejme neobejdes.
Databazi tak muzes vytvorit, ale nejspis ji stejne pak budes vytvaret z =
nejakeho skriptu, ktery vznikne na zaklade datoveho modelu (Case Studio =
a pod.).
> - je nutno mit spusten Firebird Guardian abych mohl vubec neco =
naklapat a
> odzkouset
IBServer samozrejme musi byt spusten, protoze to je on, kdo saha do =
databaze (.gdb), nikoli tvuj program Klient. Jak je to s Guardianem, to =
je na delsi diskusi. Kdyz jenom odklepes instalaci, Firebird bude =
fungovat tak, jak ma.
> - existuje neco abych mohl napsat programek jen pro lokalni PC
Nic takoveho. Kazdy program, ktery napises, bude pracovat podle =
ServerName v parametrech jak vuci Local Serveru, tak i vuci Remote =
Serveru.
> - jak pripojim dalsi PC k aplikaci ktera bezi na Firebird Guardianu
> (prikladek v instalaci)
Nerozumim.
Aplikace podle meho soudu bezi na klientskem pocitaci, staci =
nainstalovat FB Klienta (gds32.dll) a zadat spravny connect string.
FireBird Guardian bezi na serveru a zarucuje, ze kdyz IBServer nahodou =
spadne (treba nasilne), tak ho hned zase spusti. Alespon by to tak =
fungovat melo.
> - je nejaka literatura made in CZ
Viz nase kurzy=20
"Navrh a implementace SQL databaze",
"IB/FB pokrocile techniky"
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
Mazani stejnych vet v IB tabulce
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 20.3.2003 07:15:32
> Zdtavim vsechny,
> mam problem pri mazani vet na IB 6 pres BDE. Pokud se mi v tabulce
> vyskytnou dve uplne stejne vety, hlasi mi BDE pri mazani at jiz v
> aplikaci, nebo treba pomoci DBD 'Multiple record found, but only one
> was expected.'
A jak je mazes? Na urovni SQL jazyka nejsi schopen dve stejne vety rozlisit. Pokud
pouzijes TTable ci co a zavolas Table.Delete, mel by se smazat jen jeden radek, ten
na kterem stojis, ale BDE to neni schopno zajistit. V tom pripade budes muset pouzit
SQL prikaz delete, ktery Ti ovsem smaze vsechny stejne vety, nebo (a to je jen
domnenka) prejit na IBExpress, kde IBTable by mohla ty dve vety rozlisit pomoci
rdb$db_key pole ci jak se to jmenuje. V kazdem pripade lze jen doporucit do tabulky
pridat nejaky primarni index, napr. ID plnene generatorem.
Instalace tiskarny
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 20.3.2003 06:30:11
Co potrebujes ?
----- Original Message -----
From: "Bronislav Klu=E8ka" <delphi(zv)czechdance.com>
To: "Delphi Konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, March 19, 2003 12:58 PM
Subject: OT: Instalace tiskarny
> nemate nekdo zkusenosti s instalovanim tiskaren Epson TM-U210 a Star
> SP200??? (jedna se o tiskatny na pokladny)
>
>
>
> S pozdravem
> Bronislav Klucka
> Windows programmmer, Web programmer
> -------------------------------------------------
>
> http://pro2-soft.com
> Email : Bronislav.Klucka(zv)pro2-soft.com
> Phone : +420605582922
OT: Konfigurace site
[*] Martin Falta <martin(zv)aprog(tec)cz> - 19.3.2003 23:15:03
Hello Ludek,
LZ> Otazka zni jak to cele nakonfigurovat.
Otazka je dobra :-))
LZ> Ja jsem zacal tim (Nez byly servery PD a PE povyseny na radice domeny), ze
LZ> jsem pridavnym kartam dal jiny segment site (sit ma 192.168.1.... a ja dal
LZ> 192.168.9....), pak jsem do hosts souboru napsal :
Takhle to jit nemuze. V serveru mas dve karty, kazda ma svuj segment
site a navzajem o sobe nevi, dokud mu manualne nenastavis route. To
udelas prikazem:
ROUTE ADD *cilova_adresa* MASK *sitova_maska* *gateway*
kdyz to napises na obou serverech, tak by ti to melo zacit fungovat.
LZ> Predem veeeelike diky za jakykoliv naznak pomoci.
Neni zac :-))
LZ> Ludek
Martin
Mazani stejnych vet v IB tabulce
[*] Ing. Zden�k �ezn��ek - 19.3.2003 21:50:49
Zdtavim vsechny,
mam problem pri mazani vet na IB 6 pres BDE. Pokud se mi v tabulce vyskytnou
dve uplne stejne vety, hlasi mi BDE pri mazani at jiz v aplikaci, nebo treba
pomoci DBD 'Multiple record found, but only one was expected.' Pri mazani
primo z IBConsole (mimo BDE) jde tyto stejne vety normalne mazat. Tabulka
pritom nema zadny primarni ani cizi klic, dokonce ani zadny index. Struktura
tabulky je uplne jednoducha
pol1 timestamp, pol2 varchar(20).
Nevite nekdo o co jde ?
Diky Zdenek Reznicek
Re[2]: Jak poslat string pres UDP?
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 19.3.2003 20:43:48
> LG> a pk uz staci cyklicky volat treba:
> LG> s := udplisten.recvpacket(5000);
>
> Neni tam nejaka moznost udalosti "onrecieve" nebo tak neco? Neco co se
> vyvola kdyz prijmu data.
Proboha proc to delat zbytecne slozite? Kdyz po tom touzis, tak cely ten
kod volej v threadu a jakmile ti neco prijde, tak si zavolej event.
Chovani bude pak stejne jako u asynchronnich komponent... Ale proc to
delat, kdyz jde cist data jinak?
Copak je problem udelat jednoduchou smycku, ve ktere ty data budes cist?
Podivej se na priklad...
Chces precist packet, odeslat packet, precist jiny pakcet, pak jeste
jeden packet, a pak jiny packet odeslat.
V Synapsi proste zavolas v programu zasebou:
Recvpacket...
Sendstring...
Recvpacket...
Recvpacket...
Sendstring...
V priapde uziti eventu (asynchronnich komponent) narazis na sposty
problemu:
...nejaka up;lne jina procedura povesena na eventu mi cte data...
... musim porad zjistovat, jestli uz pribehlu vsechny pozadovane data...
... hura, asi je to vsechno, konecne muzu data zpracovavat!...
OdeslatPacket...
... safra, byl uz zavolan event, ze data byla uspesne odeslana?
...cekam, dokud ten event nekde uplne mimo moji proceduru byl konecne
zavolan...
... jejda, nekde zcela mimo moji proceduru se mi nekde salatuji prichozi
data pomoci jineho eventu. Prisly uz vsechny data, ktera potrebuji?
.. cekam, az uplne nejaka jine procedura precte vsechna pozadovana
data...
Hura, uz to vsechno pribehlo...
A tak dale! V priapde eventu vlastne nedelas nic jineho, nez ze
synchronizujes tvuj algoritmus s kodem, ktery zcela mimo tvuj algoritmus
cte data.
V pripade Synapse proste zavolas operaci na poslani a mas jistotu, ze
hned dalsi zpracovavana instrukce bude az kdyz se ty data vsechny
odeslou.. a naopak, kdyz zavolas cteni, tak hned dalsi instrukce bude
volana az kdyz vsechny pozadovane data prijdou (nebo kdyz dojde k chybe).
Programovani je pak totalne primocare a znatelne jednodusi!
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
Zacatky v Interbazi
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 19.3.2003 20:23:29
Zdravim
>V delphi je wisql, tim lze vytvorit DB, ale radeji do udelej ze skriptu.
Kde najdu "wisql" - nejak jsem nenasel
>Dale je celkem pouzitelny nastroj SQLExplorer z delphi.
Take jsem neobjevil
>Tady je jeden z mych testu, spousti se pomoci isql, nebo wisql.
isql mi silne pripomina stare casy DOSu "copy con"
Jestli je mozno zkuste mne jeste trochu postrcit
Diky
Viktor Marek
viktor(zv)mbox.vol(tec)cz
/*
Author: Slavomir Skopalik (skopalik(zv)hlubocky.del(tec)cz)
Test ID: skopalik_0200
Test type: POSITIVE
Description: DELETE with WHERE
Dependencies:
CREATE DATABASE
CREATE TABLE
INSERT
Prerequisites: NONE
Initialization script:
*/
CREATE DATABASE "test.gdb" USER "sysdba" PASSWORD "masterkey";
CREATE TABLE tb(id INT);
INSERT INTO tb VALUES(10);
INSERT INTO tb VALUES(10);
INSERT INTO tb VALUES(20);
/* Tested command: */
DELETE FROM tb WHERE id>10;
/*
Expected result:No Error.
*/
/* Additional checks: */
SELECT * FROM tb;
/*
ID
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
10
10
*/
/*
Clear temp DB
*/
DROP DATABASE;
Slavek
> Zdravim
>
> Zkousim neco udelat v Interbazi. Stahl jsem si
> Firebird-11.0.2.908-Win32.exe.
> Poradi nekdo v tomto:
> - existuje nejake free udelatko na vytvoreni databaze (databaze utility=
)
> - je nutno mit spusten Firebird Guardian abych mohl vubec neco naklapat=
a
> odzkouset
> - existuje neco abych mohl napsat programek jen pro lokalni PC
> - jak pripojim dalsi PC k aplikaci ktera bezi na Firebird Guardianu
> (prikladek v instalaci)
> - je nejaka literatura made in CZ
>
> Predem diky za vsechny rady
> WIN2000 Delphi 5 Profesional
>
> Viktor Marek
> viktor(zv)mbox.vol(tec)cz
>
>
> ---
> Odchoz=ED zpr=E1va neobsahuje viry.
> Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.463 / Virov=E1 b=E1ze: 262 - datum vyd=E1n=ED: 17.3.2003
>
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.463 / Virov=E1 b=E1ze: 262 - datum vyd=E1n=ED: 17.3.2003
Re[2]: Jak poslat string pres UDP?
[*] Pavel Bambasek <pabam(zv)volny(tec)cz> - 19.3.2003 19:30:56
LG> Ze Synapse si vem TUDPBlockSocket. Vytvor si tuto tridu a prirad si
LG> ji do promenne udp.
LG> Na poslani stringu nekam, pak staci pouzit kod:
LG> udp.connect('cilova.ip.adresa','cilovy_port');
LG> udp.sendstring('to co chces odeslat');
LG> na prijimani mas parradkovy priklad v dokumentaci Synapse. (v
LG> artiklech) Princip je takovy,z e si vytvoris separatni thread, v nem
LG> si vytvoris nasouchajici instanci TUDPBlockSocket, rikejme ji
LG> udplisten.
LG> Pak na zacatku udelas:
LG> udplisten.bind('0.0.0.0', 'tvuj_port');
LG> (nebo udplisten.bind('::0', 'tvuj_port'); pokud chces naslouchat na
LG> IPv6 adrese...)
LG> a pk uz staci cyklicky volat treba:
LG> s := udplisten.recvpacket(5000);
Neni tam nejaka moznost udalosti "onrecieve" nebo tak neco? Neco co se
vyvola kdyz prijmu data.
LG> Pokud po teto pperaci bude udplisten.lasterror rovno nule, pak v s
LG> mas prijmuty string. Pokud je nenulovy, pak opakuj. v teto smycce bys
LG> mel take testovat, jestli se nahodou nema ukoncit thread, a kdyz ano,
LG> tak z teto smycky vybehnes.
ADMIN: Konference .NET zalozena ?????
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.3.2003 19:12:03
From: "Ivan Turcan" <iturcan(zv)drake.sk>
> Otazocka: Takymto sposobom bude postupovat aj v pripade Kylix-u a inych v
> buducnosti moznych mutaciach/podporach delphi ?
Kylix je vlastne porad Delphi. Stale jde vicemene o tentyz jazyk a prekladac
produkujici vysledny kod pro IA32, navic to nevypada ze by zde byl o nej az
tak velky zajem. .NET je neco zcela jineho kde neni ani tak dulezity jazyk
jako platforma. A zacina byt otazka jestli vubec nekdo chce (cekat na)
Delphi.NET
> Kdo o par rokov zostane v tejto konfere ked kazdy sa bude specializovat na
> urcitu platformu?
Urcite ti co budou psat aplikace na Win32.
Petr Vones
Re[2]: ADMIN: Konference .NET zalozena ?????
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.3.2003 18:51:16
Puvodni zprava, kterou napsal Ivan Turcan dne 19 Mar 2003:
> je to sice pase. ale tiez si myslim ze mat dve konferencie je zbytocne
> obzvlast vtedy ak by v novej konferencii bolo obmedzenie klast len
> otazky suvisiace s Delphi.
Proc by bylo v nove konfernci omezeni na Delphi? Vytvorena konference je
o kompletnim .NET, tedy aplikace .NET, ASP.NET, stejne jako jazyky
VB.NET, C#, Delphi.NET apod. Proste .NET bez nutne navaznosti na Delphi.
> Otazocka: Takymto sposobom bude postupovat aj v pripade Kylix-u a inych v
> buducnosti moznych mutaciach/podporach delphi ? Kdo o par rokov zostane v
> tejto konfere ked kazdy sa bude specializovat na urcitu platformu?
.NET neni odnoz Delphi, .NET je neco uplne jineho. Ze mozna jednou bude
nejake Delphi.NET pouzitelne pro .NET, to se teprve uvidi... V kazdem
pripade .NET je neco jineho nez Delphi.
> Osobne tu vydim male riziko rozdrobenia tech. urovne tejto konfery.
No nemas pravdu. Je treba si uvedomit, ze vyvoj aplikaci v Delphi nebo
Kylixu nebo C++ Builderu je preci jen velmi odlisny od vyvoje pro .NET.
Bezesporu. Nevim, kde je problem odebirat vic konferenci soucasne na
jednu e-mail adresu.
S pozdravem
Petr Zahradnik, pocitacovy expert
=======================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 475 500 610, 475 501 627, 475 511 337
Mobilni telefon: 602 409 601, Fax: 475 511 338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
=======================================================Zacatky v Interbazi
[*] Jaroslav Uher <moravia(zv)mbox.vol(tec)cz> - 19.3.2003 18:31:15
On 19 Mar 2003 at 15:51, Viktor Marek wrote:
> Zkousim neco udelat v Interbazi. Stahl jsem si
SKIP
> Firebird Guardianu (prikladek v instalaci) - je nejaka literatura made
> in CZ
prikladek (docela velky) najdes na http://www.rydval(tec)cz/
Resource Editor
[*] Tomas Danek <conehead(zv)centrum(tec)cz> - 19.3.2003 17:26:32
Dobry den,
nevite nekdo o nejakem samostatnem free resource editoru? Pouzivam Borland
Image Editor, ale po vlozeni bitmapy mi "zkazi" barvy.
Diky,
Tomas danek
Zacatky v Interbazi
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 19.3.2003 16:14:21
>Zkousim neco udelat v Interbazi. Stahl jsem si
>Firebird-11.0.2.908-Win32.exe.
Firebird neni Interbase :-) i kdyz maji hodne spolecneho...
>Poradi nekdo v tomto:
>- existuje nejake free udelatko na vytvoreni databaze (databaze utility)
IBExpert PE, IBConsole z IB, podivej se na ibphoenix(tec)cz (.com)
>- je nutno mit spusten Firebird Guardian abych mohl vubec neco naklapat a
>odzkouset
no, predevsim by mel bezet FB server
>- existuje neco abych mohl napsat programek jen pro lokalni PC
ze by Delphi?
>- jak pripojim dalsi PC k aplikaci ktera bezi na Firebird Guardianu
>(prikladek v instalaci)
Tehle otazce moc nerozumim, ale pokud myslis pripojeni klienta z nejakeho PC
k FB serveru na nejakem PC, tak je to skoro to same, jako by klient i server
byli na jednom PC.
>- je nejaka literatura made in CZ
Urcite jo, zkus treba vltava(tec)cz.
Roman
==============================
http://kouzelne.misto(tec)cz
Pouziti FileListBox v D6
[*] Eichler Marek <Marek.Eichler(zv)access-it(tec)cz> - 19.3.2003 16:10:11
Zdravim,
>>> cieslar(zv)efisyst.com 19.3.03 15:56 >>>
>Zdravim,
>
>v aplikaci chci pouzit komponentu FileListBox. Prekladac mi ale vyhazuje
>varovani: "[Warning] Unit1.pas(7): Unit 'FileCtrl' is specific to a
>platform". Vim, ze komponenta je specificka pro Win3.1, ale zajima mne =
jake
Toto varovani znamena, ze dana jednotka je specificka pro platformu =
operacniho systemu Windows nebo Linux (v tomto pripade Windows)
>muzu ocekavat problemy. Komponenta bude pouzita takto (zjednodusene): po
>kliknuti na soubor se mi vedle v Memo zobrazi obsah souboru. Pouzivam
>D6Prof, W2000.
Problemy by nemely byt zadne, ale z hlediska "cistoty" aplikace bych pro =
praci se soubory doporucil pouzit komponenty, ktere vychazeji z Win32 API. =
Tusim, ze v Delphi 6 jsou na zalozce Samples tyto komponenty k dispozici
>
>Cieslar
S pozdravem Marek Eichler
Zacatky v Interbazi
[*] Eichler Marek <Marek.Eichler(zv)access-it(tec)cz> - 19.3.2003 16:16:56
Zdravim,
>>> viktor(zv)mbox.vol(tec)cz 19.3.03 15:52 >>>
>Zdravim
>
>Zkousim neco udelat v Interbazi. Stahl jsem si
>Firebird-11.0.2.908-Win32.exe.
>Poradi nekdo v tomto:
>- existuje nejake free udelatko na vytvoreni databaze (databaze utility)
Je k dispozici IB Expert Personal Edition. Odkaz se da najit na www.ibphoen=
ix(tec)cz.
Jinak soucasti instalace je i isql (konzolova aplikace pro spravu DB)
>- je nutno mit spusten Firebird Guardian abych mohl vubec neco naklapat a
>odzkouset
Firebird Guardian spusten byt nemusi. Jestli se nepletu, tato sluzba hlida =
jestli je server spusten a pokud ne, tak ho spusti. Takze staci pustit =
primo Firebird Server a bude vsechno fungovat
>- existuje neco abych mohl napsat programek jen pro lokalni PC
Nevim presne co myslis, ale neni problem mit na PC nainstalovan Firebird a =
aplikaci a provozovat to lokalne
>- jak pripojim dalsi PC k aplikaci ktera bezi na Firebird Guardianu
>(prikladek v instalaci)
To presne nevim co mas na mysli
>- je nejaka literatura made in CZ
Tusim, ze zatim ne, ale nedavno tu probehla informace, ze se nejka kniha =
chysta
>
>Predem diky za vsechny rady
>WIN2000 Delphi 5 Profesional
>
>Viktor Marek
>viktor(zv)mbox.vol(tec)cz=20
S pozdravem Marek Eichler
Pouziti FileListBox v D6
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 19.3.2003 16:14:00
----- Original Message -----
From: "Tomas Cieslar" <cieslar(zv)efisyst.com>
>
> v aplikaci chci pouzit komponentu FileListBox. Prekladac mi ale vyhazuje
> varovani: "[Warning] Unit1.pas(7): Unit 'FileCtrl' is specific to a
> platform". Vim, ze komponenta je specificka pro Win3.1, ale zajima mne
jake
> muzu ocekavat problemy. Komponenta bude pouzita takto (zjednodusene): po
> kliknuti na soubor se mi vedle v Memo zobrazi obsah souboru. Pouzivam
> D6Prof, W2000.
Rekl bych ze se ti prekladac snazi jemne naznacit ze program bude
obtiznejsi portovat na jinou platformu, zde mysleno nikoliv Win 3.1
(16bitu bylo odpiskano uz Delphi2) ale _Linux_. Takovych hlaseni
dava i Kylix hromadu.
Martin Schayna
Zacatky v Interbazi
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 19.3.2003 16:08:44
V delphi je wisql, tim lze vytvorit DB, ale radeji do udelej ze skriptu.
Dale je celkem pouzitelny nastroj SQLExplorer z delphi.
Tyto dva nastroje mi plne vystaci, neumi sice moc, ale
hlavne u wisql je start temer okamzity a clovek memusi cekat
nekolik sekund (desitek sekund).
Tady je jeden z mych testu, spousti se pomoci isql, nebo wisql.
Pokud chces DB zachovat, tak odstran DROP DATABASE z konce.
Hodne zdaru.
/*
Author: Slavomir Skopalik (skopalik(zv)hlubocky.del(tec)cz)
Test ID: skopalik_0200
Test type: POSITIVE
Description: DELETE with WHERE
Dependencies:
CREATE DATABASE
CREATE TABLE
INSERT
Prerequisites: NONE
Initialization script:
*/
CREATE DATABASE "test.gdb" USER "sysdba" PASSWORD "masterkey";
CREATE TABLE tb(id INT);
INSERT INTO tb VALUES(10);
INSERT INTO tb VALUES(10);
INSERT INTO tb VALUES(20);
/* Tested command: */
DELETE FROM tb WHERE id>10;
/*=20
Expected result:No Error.
*/
/* Additional checks: */
SELECT * FROM tb;
/*
ID
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
10
10
*/
/*
Clear temp DB=20
*/
DROP DATABASE;
Slavek
> Zdravim
>=20
> Zkousim neco udelat v Interbazi. Stahl jsem si
> Firebird-11.0.2.908-Win32.exe.
> Poradi nekdo v tomto:
> - existuje nejake free udelatko na vytvoreni databaze (databaze =
utility)
> - je nutno mit spusten Firebird Guardian abych mohl vubec neco =
naklapat a
> odzkouset
> - existuje neco abych mohl napsat programek jen pro lokalni PC
> - jak pripojim dalsi PC k aplikaci ktera bezi na Firebird Guardianu
> (prikladek v instalaci)
> - je nejaka literatura made in CZ
>=20
> Predem diky za vsechny rady
> WIN2000 Delphi 5 Profesional
>=20
> Viktor Marek
> viktor(zv)mbox.vol(tec)cz
>=20
>=20
>=20
> ---
> Odchoz=ED zpr=E1va neobsahuje viry.
> Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.463 / Virov=E1 b=E1ze: 262 - datum vyd=E1n=ED: 17.3.2003
Problem s TIniFile a limitem 64KB
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 19.3.2003 15:57:30
Odes=EDlatel: Martin Nov=E1k <mnk(zv)centrum(tec)cz>
Mam problem. Ukladam si data z programu ukazka nize. Vse fungovalo az=20
do doby kdy velikot dosahla 65000b. Limit je asi 64KB. Potrebuji=20
poradit, jak udelat stejny format zapisu dat, aby velikost byla=20
neomezena. Asi to nepujde delat pres TIniFile. Delphi 5, WIN98SE.
Ja jsem taky narazil na nejake limity, i kdyz jine (myslim ReadSection).
Pak jsem ve zdrojaku nasel nejake constanty na omezeni bufferu.
Opravou techto konstant se zalezitost vyresila.
V IniFiles.pas se toho moc neprogramuje. Vetsina metod se dela pres =
WinAPI.
Nechci za to dat ruku do ohne, ale ty konstanty jsou tam nejspis jeste z =
Delphi 1 (Win16).
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
Pouziti FileListBox v D6
[*] Tomas Cieslar <cieslar(zv)efisyst(tec)com> - 19.3.2003 15:54:56
Zdravim,
v aplikaci chci pouzit komponentu FileListBox. Prekladac mi ale vyhazuje
varovani: "[Warning] Unit1.pas(7): Unit 'FileCtrl' is specific to a
platform". Vim, ze komponenta je specificka pro Win3.1, ale zajima mne jake
muzu ocekavat problemy. Komponenta bude pouzita takto (zjednodusene): po
kliknuti na soubor se mi vedle v Memo zobrazi obsah souboru. Pouzivam
D6Prof, W2000.
Cieslar
Zacatky v Interbazi
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 19.3.2003 15:51:40
Zdravim
Zkousim neco udelat v Interbazi. Stahl jsem si
Firebird-11.0.2.908-Win32.exe.
Poradi nekdo v tomto:
- existuje nejake free udelatko na vytvoreni databaze (databaze utility)
- je nutno mit spusten Firebird Guardian abych mohl vubec neco naklapat a
odzkouset
- existuje neco abych mohl napsat programek jen pro lokalni PC
- jak pripojim dalsi PC k aplikaci ktera bezi na Firebird Guardianu
(prikladek v instalaci)
- je nejaka literatura made in CZ
Predem diky za vsechny rady
WIN2000 Delphi 5 Profesional
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.463 / Virov=E1 b=E1ze: 262 - datum vyd=E1n=ED: 17.3.2003
Re[2]: ADMIN: Konference .NET zalozena ?????
[*] Ivan Turcan <iturcan(zv)drake.sk> - 19.3.2003 15:33:07
je to sice pase. ale tiez si myslim ze mat dve konferencie je zbytocne
obzvlast vtedy ak by v novej konferencii bolo obmedzenie klast len otazky
suvisiace s Delphi.
Myslim si ze bolo by vhodne pisat o NET + delphi tu pretoze jednak tych
otazok zo zaciatku nebude vela a jednak ty vyvojari ktory o NET uvazuju a uz
pouzivaju Delphi si budu moct sledovat dopredu ake potencionalne problemi
ich mozu stretnut.
Otazocka: Takymto sposobom bude postupovat aj v pripade Kylix-u a inych v
buducnosti moznych mutaciach/podporach delphi ?
Kdo o par rokov zostane v tejto konfere ked kazdy sa bude specializovat na
urcitu platformu?
Osobne tu vydim male riziko rozdrobenia tech. urovne tejto konfery.
Zda sa mi ze vytvorenie tej konferencie bolo site horucov ihlov bez vacsej
diskusie....
S pozdravom
Ivan T.
----- Original Message -----
From: "Roland Turcan" <rolo(zv)sedas.sk>
To: "Petr Zahradnik" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, March 19, 2003 2:38 PM
Subject: Re[2]: ADMIN: Konference .NET zalozena ?????> <<< 19. 3. 2003 14:37 - Petr Zahradnik "clexpert(zv)clexpert(tec)cz" >>>
>
> PZ> No to staci, ne? Nejrychlejsi odpovedeli :-)
>
> No a ti co spali, si prespali moznost odpovedat. :-)))
>
> Ja som za vytvorenie.
>
> --
> Best regards, TRoland
>
>
>
>
Re[2]: ADMIN: Konference .NET zalozena ?????
[*] Roland Turcan <rolo(zv)sedas.sk> - 19.3.2003 14:38:35
<<< 19. 3. 2003 14:37 - Petr Zahradnik "clexpert(zv)clexpert(tec)cz" >>>
PZ> No to staci, ne? Nejrychlejsi odpovedeli :-)
No a ti co spali, si prespali moznost odpovedat. :-)))
Ja som za vytvorenie.
--
Best regards, TRoland
Rozliseni (skutecne vyuzitelna plocha)
[*] StuPe - 19.3.2003 14:17:36
Takto zjist=EDs skutecnou velikost plochy, na kterou lze maximalizovat =
okno.
var
R: PRect;
begin
New(R);
SystemParametersInfo(SPI_GETWORKAREA, 0, R, 0);
With R^ do begin
// zde m=E1s k dispozici Top, Left, Bottom, Right
end;
Dispose(R);
end;
Pak jeste doporucen=ED: Nech na syst=E9mu, aby um=EDstil okno a urcil =
jeho velikost.(Form1.Position:=3DpoDefault)
Samozrejme, pokud to nen=ED proti tv=E9mu z=E1meru, treba ho chces vzdy =
uprostred, nebo ukl=E1d=E1s a nac=EDt=E1s pozici a velikost okna...
StuPe http://stupe.jinde(tec)cz
----- Puvodn=ED zpr=E1va -----=20
Od: "Jiri Novotny" <novotny(zv)ftknw.upol(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl=E1no: 17. brezna 2003 14:39
Predmet: Re: Rozliseni
> Ahoj!
>=20
> > Na svem stroji mam riozliseni 1280 x 1024 pixelu a napr edity na =
formulari
> > maji FontSize :=3D 8
> > Problem mam v tom, ze kdyz svuj EXE soubor nakopiruju na stroj, kde =
je 800 x 600 pixelu, fonty jsou velke a kus obrazovky ani nevidim.
>=20
> Asi bych to nejjednoduseji resil tak, ze pred zobrazenim formulare si=20
> napred zjistis napr. rozmery obrazovky (Screen.Width a Screen.Height)=20
> a podle toho upravis rozmery formulare. Ale nezapomen, ze napr.=20
> "vyska" obrazovky muze byt zmensena o vysku Hlavniho panelu, ze na=20
> obrazovce muze byt taky ten panel z Office atd.=20
>=20
> Nastaveni ruzne velikosti fontu a pripadne upravy rozmeru panelu a=20
> prvku na nem se daji resit pomoci
> Form1.Scaled :=3D true;
> Form1.PixelsPerInch :=3D Screen.PixelsPerInch;
> To si dej treba od udalosti OnCreate nebo OnShow u formulare.
>=20
> Jirka
>=20
>=20
Form show a hide
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 19.3.2003 13:35:38
Na webu je na to hafo komponent (napr. www.torry.ru, je to obsazene v baliku
RX Library), pokud se to chces naucit, je to popsane v nekolika poslednich
dilech serialu "Umime to s Delphi" - lze stahnout z me stranky
http://web.redbox(tec)cz/petr.brant.
Zdravim
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunovacni 6
Praha 7
tel. +420724007234
na jakou udalost a co zavesit na formular, aby se mi pri spusteni skryl do
Problem s TIniFile a limitem 64KB
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 19.3.2003 13:27:18
[snip]
> Vse fungovalo az do doby kdy velikot dosahla 65000b.
Mozes pouzit TMemIniFile.
HTH
Problem s TIniFile a limitem 64KB
[*] Martin =?ISO-8859-2?Q?Nov=E1k?= <mnk(zv)centrum(tec)cz> - 19.3.2003 12:56:11
Zdravim a preji krasny den.
Mam problem. Ukladam si data z programu ukazka nize. Vse fungovalo az=20
do doby kdy velikot dosahla 65000b. Limit je asi 64KB. Potrebuji=20
poradit, jak udelat stejny format zapisu dat, aby velikost byla=20
neomezena. Asi to nepujde delat pres TIniFile. Delphi 5, WIN98SE.
Dekuji za radu.
S pozdravem Martin Novak.
begin
DataIni:=3DTIniFile.Create(data.dta);
DataIni.WriteInteger(Edit9.text,'1a',StrToInt(Edit1.Text));
DataIni.WriteInteger(Edit9.text,'1b',StrToInt(Edit2.Text));
DataIni.WriteInteger(Edit9.text,'2a',StrToInt(Edit3.Text));
DataIni.WriteInteger(Edit9.text,'2b',StrToInt(Edit4.Text));
DataIni.Free;
end;
--------------------
Vyberte si z nab=EDdky tuzemsk=FDch i zahrani=E8n=EDch z=E1jezd=F9 na h=
ttp://dovolena.netcentrum(tec)cz
OT: Instalace tiskarny
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 19.3.2003 13:23:09
Bronislav Klu=E8ka dne 19 Mar 2003 v 12:58:
> nemate nekdo zkusenosti s instalovanim tiskaren Epson TM-U210 a Star
> SP200??? (jedna se o tiskatny na pokladny)
Trosku. Spis by bylo dobre napsat, co Te zajima, ze? ;-)
Karel Rys
OT: Instalace tiskarny
[*] Bronislav Klu�ka <delphi(zv)czechdance(tec)com> - 19.3.2003 12:58:44
nemate nekdo zkusenosti s instalovanim tiskaren Epson TM-U210 a Star
SP200??? (jedna se o tiskatny na pokladny)
S pozdravem
Bronislav Klucka
Windows programmmer, Web programmer
-------------------------------------------------
http://pro2-soft.com
Email : Bronislav.Klucka(zv)pro2-soft.com
Phone : +420605582922
Form show and hide
[*] Vlastimil Zden�k <delphi(zv)gestore(tec)cz> - 19.3.2003 12:33:50
Zdravim vsechny,
prosil bych o radu:
na jakou udalost a co zavesit na formular, aby se mi pri spusteni skryl do
try ikony? Jako to dela pri spusteni treba WinProxy...
Diky Vlasta
D5Ent
Monitorovani prace se soubory
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 19.3.2003 10:24:03
Zdravim
potreboval bych napsat soft kterej by monitoroval praci se soubory.
Jako nejlepsi resneni jsem nasel pouzit FileMon od sysinternals ale
stahli zdrojaky a ja je numuzu najit.
Nemate negdo ty zdrojaky pro NT/y2k ? Nebo alespon zpusob jak vyresit
ten problem.
--
Best regards,
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
RE[2]: TWebBrowser a zmena velikosti textu
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 19.3.2003 10:11:39
Sice ti neporadim, protoze jsem to nevyresil, stavalo se mi totez pri =
pokusu
o tisk. Vypozoroval jsem, ze se to stavalo, pokud jeste nebyla uplne =
nactena
stranka, ktera se mela tisknout. Ale stalo se to i tehdy, pokud byl
TWebBrowser dynamicky vytvoren jen v pameti. Obesel jsem to tak, ze =
jsem
povolil tisk az po nacteni stranky. Ptal jsem se take v konferenci, ale
zustalo to bez odpovedi.
Zdravim
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
>
> var
> ZoomValue: OleVariant;
>
> WebBrowser.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER,
ZoomValue);
>
> Kde ZoomValue ma hodnoty 4 az 0, vice v helpu.
>
Pokud to takhle pouziju:
ZoomValue :=3D 2;
WebBr.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER,
ZoomValue);
Tak nastane vyjimka "... exception class EOleException with message
'Snaha
odvolat cil pretazeni, ktery neni registrovan.'"
Je OLE Word este aktivny?
[*] Pavel Gazda <pavel_gazda(zv)dataint(tec)cz> - 19.3.2003 10:04:11
> mam cez OLE otvoreny MS Word.
> Uzivatel ho vsak zavrie.
> Existuje moznost, ako to zistit?
>
Ahoj,
pri otevreni aplikace muzes priradit udalost
OnQuit
pri otevreni dokumentu muzes priradit udalost
OnClose
(aspon ja to tak pouzivam)
Pavel
placeny amater
Virtualni tiskarna
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 19.3.2003 09:36:42
> From: Petr Brant
>
> Pouzivam obcas "Generic printer (Text only)"
> a tisk do souboru. Vznikne z
> toho textovy soubor, ktery se da prohlizet,
> sice byva zmrsena diakritika,
> ale to mi nevadi.
Pokud se ve vlastnostech tiskarny nastavi
znakova stranka ANSI 1252, tak tento ovladac
zadne prekodovani (mrseni) nebude provadet
a vysledny text bude v takovem kodovani,
v jakem se budou posilat data.
Vaclav Krmela
RE[2]: TWebBrowser a zmena velikosti textu
[*] Ing. Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 19.3.2003 09:28:27
> -----Original Message-----
> Behalf Of Petr Vones
> Sent: Tuesday, March 18, 2003 1:49 PM
> Subject: Re: TWebBrowser a zmena velikosti textu
>
> var
> ZoomValue: OleVariant;
>
> WebBrowser.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, ZoomValue);
>
> Kde ZoomValue ma hodnoty 4 az 0, vice v helpu.
>
Dekuji za odpoved.
Pokud to takhle pouziju:
ZoomValue := 2;
WebBr.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, ZoomValue);
Tak nastane vyjimka "... exception class EOleException with message 'Snaha
odvolat cil pretazeni, ktery neni registrovan.'"
Poradte prosim co to znamena, jak z toho ven. Predem diky
Igor Vodicka
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.462 / Virov� b�ze: 261 - datum vyd�n�: 13.3.2003
Virtualni tiskarna
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 19.3.2003 09:19:47
Pouzivam obcas "Generic printer (Text only)" a tisk do souboru. Vznikne =
z
toho textovy soubor, ktery se da prohlizet, sice byva zmrsena =
diakritika,
ale to mi nevadi.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
Ja pouzivam FinePrinter, s vysledkem se da delat ledacos, napr.
prohlidnot a
zahodit.
=09
>=20
> Nevite nekdo o necem, co by se tvarilo, jako jehlickova
tiskarna????
> Nejakou virtualni tiskarnu, ktera by se nainstalovala a tvarila,
jako
> tiskarna, dalo se na ni tisknout atd.
> atd.
>=20
> Nebo jenom virtualni tiskarna??
>=20
Komponenta NMFTP
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 19.3.2003 09:24:42
NM komponenty => nebrat, prejit na Synapse nebo Indy.
Viz. archiv konference.
Jakub Dusek
-------------------------------
Homepage : http://dusek.webz(tec)cz
Phone : +420604615795
Icq : 86063232
Apps : Sms GateKeeper
-------------------------------
Wednesday, March 19, 2003, 9:20:46 AM, you wrote:
jcc> Ahoj,
jcc> chci se zeptat. M�me naprogramovanou aplikaci v Delphi 6, kter� b��
jcc> na 2000 serveru. Stahuje automaticky soubory po zadan�m �asov�m
jcc> intervalu z ftp. Obsahuje komponentu NMFTP. Doposud jsme spou�t�li
jcc> jedinou instanci aplikace a v�e b�elo v pohod�. Byli jsme v�ak
jcc> nuceni trochu aplikaci upravit a na z�klad� zadan�ch parametr� (ftp
jcc> adresa, ftp adres��e...) a b�� nyn� dv� instance. �as od�asu (cca 2x
jcc> t�dn�) ale jedna z aplikac� tot�ln� zatuhne a nejde sest�elit ani
jcc> p��kazem kill... Chybu nijak nepdhal�me, je to n�hodn�... Nev� n�kdo,
jcc> zda je komponenta spolehliv�, nestalio se n�komu, �e by se
jcc> ovliv�ovali, aplikace padala nebo n�co podobn�ho? M�te p��padn� n�kdo
jcc> n�vrh na n�jak� �e�en�?
jcc> D�ky.
jcc> Jirka
jcc> --------------------
jcc> Vyberte si z nab�dky tuzemsk�ch i zahrani�n�ch z�jezd� na http://dovolena.netcentrum(tec)cz
Komponenta NMFTP
[*] <jimysforum(zv)centrum(tec)cz> - 19.3.2003 09:20:46
Ahoj,
chci se zeptat. M=E1me naprogramovanou aplikaci v Delphi 6, kter=E1 b=EC=
=BE=ED=20
na 2000 serveru. Stahuje automaticky soubory po zadan=E9m =E8asov=E9m=20
intervalu z ftp. Obsahuje komponentu NMFTP. Doposud jsme spou=B9t=ECli=20
jedinou instanci aplikace a v=B9e b=EC=BEelo v pohod=EC. Byli jsme v=B9=
ak=20
nuceni trochu aplikaci upravit a na z=E1klad=EC zadan=FDch parametr=F9 =
(ftp=20
adresa, ftp adres=E1=F8e...) a b=EC=BE=ED nyn=ED dv=EC instance. =C8as =
od=E8asu (cca 2x
t=FDdn=EC) ale jedna z aplikac=ED tot=E1ln=EC zatuhne a nejde sest=F8el=
it ani=20
p=F8=EDkazem kill... Chybu nijak nepdhal=EDme, je to n=E1hodn=EC... Nev=
=ED n=ECkdo,
zda je komponenta spolehliv=E1, nestalio se n=ECkomu, =BEe by se=20
ovliv=F2ovali, aplikace padala nebo n=ECco podobn=E9ho? M=E1te p=F8=EDp=
adn=EC n=ECkdo=20
n=E1vrh na n=ECjak=E9 =F8e=B9en=ED?
D=EDky.
Jirka
--------------------
Vyberte si z nab=EDdky tuzemsk=FDch i zahrani=E8n=EDch z=E1jezd=F9 na h=
ttp://dovolena.netcentrum(tec)cz
Virtualni tiskarna
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 19.3.2003 09:15:27
Ja pouzivam FinePrinter, s vysledkem se da delat ledacos, napr. prohlidnot a
zahodit.
Pavel
> -----Original Message-----
> From: delphi(zv)czechdance.com [mailto:delphi(zv)czechdance.com]
> Sent: Tuesday, March 18, 2003 9:37 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Virtualni tiskarna
>
>
> Nevite nekdo o necem, co by se tvarilo, jako jehlickova tiskarna????
> Nejakou virtualni tiskarnu, ktera by se nainstalovala a tvarila, jako
> tiskarna, dalo se na ni tisknout atd.
> atd.
>
> Nebo jenom virtualni tiskarna??
>
>
> Bronislav Klucka
>
TPrinter - rychlost tlace pod WinXP
[*] Martin Dupal <mdupal(zv)vision(tec)cz> - 19.3.2003 08:38:41
To je zajimava informace. Momentalne bojuji s problemy pri
tisku na Minoltu DI251. Muze mi nekdo doporucit alternativni
driver, ktery by fungoval spravne? Nyni se mi to chova tak, ze
vytiskne jen posledni stranu (zajimave, ze jen pri tisku z Win98).
----- Original Message -----
From: "Macko Martin" <martin.macko(zv)m-pro(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, March 18, 2003 11:03 PM
Subject: RE: TPrinter - rychlost tlace pod WinXP
Mozna to bude znit neprofesionalne, ale mi to tak delame ...
dokonce je obcas, ve spojitosti treba s QuickReportem, lepsi
nainstalovat nejakou kompatibilni starsi (moje oblibena HP LaserJet
IIP+) tiskarnu primo z windows. Uzivatele vetsinou ani novy pokrocily
vlastnosti novejch tiskaren a ovladacu nevyuzijou...
Zlobi ovladace od HP, zlobi od Minolty ...
Synapse a SSL
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 19.3.2003 08:26:08
na HTTP i HTTPS mas demo primo v Synapsi. A nejlepsi misto na
prislusne DLL je primo ten adresar, kde ti bezi tvoje aplikace.
To demo zkus nejdriv treba na https://www.mlp(tec)cz
> Ahoj vsichni,
> zkusil jsem si Synapsi a jsem moc spokojen, chodilo mi to na prvni
> pokus.Ale mam problem s pripojenim pomoci HTTPS. Prislusne DLL
> knihovny jsem nakopiroval do WINDOWS/SYSTEM32, ale asi neco delam
> spatne, porad to nechodi. Nemeli byste, prosim, nejaky kus kodu na
> ukazku, jak to ma byt? Nebo nejaky link na DEMO? Treba jak se pripojit
> na https://certifikacniautorita(tec)cz/, kdy a jak zadat username/password
> ? Diky za popostrceni. Kokes
>
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Je OLE Word este aktivny?
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 19.3.2003 08:23:13
Ahoj,
mam cez OLE otvoreny MS Word.
Uzivatel ho vsak zavrie.
Existuje moznost, ako to zistit?
Vlkovic
PS: Mam na mysli iny sposob,
TPrinter - rychlost tlace pod WinXP
[*] Macko Martin <martin.macko(zv)m-pro(tec)cz> - 18.3.2003 23:03:04
Mozna to bude znit neprofesionalne, ale mi to tak delame ...
dokonce je obcas, ve spojitosti treba s QuickReportem, lepsi
nainstalovat nejakou kompatibilni starsi (moje oblibena HP LaserJet
IIP+) tiskarnu primo z windows. Uzivatele vetsinou ani novy pokrocily
vlastnosti novejch tiskaren a ovladacu nevyuzijou...
Zlobi ovladace od HP, zlobi od Minolty ...
-----Original Message-----
From: Lauko Stefan [mailto:laukosw(zv)naex.sk]=20
Dajme tomu, ze je tam nejaka HP DJ xxx s original CD od vyrobcu. Ked
odinstalujem original ovladac a nainstalujem ovladac podobnej tlaciarne
dodany s WinXP maka to normalne. To iste plati aj o LJ. Problem je v
tom, ze mi je trapne vysvetlovat: "CD od vyrobcu zahodte a pre tlaciaren
HP LJ xxx nainstalujte ovladac z Windows urceny pre HP LJ 6".
Kde je chyba?
Dakujem Lauko.
TPrinter - rychlost tlace pod WinXP
[*] Lauko Stefan <laukosw(zv)naex.sk> - 18.3.2003 21:58:20
Ahoj,
coraz castejsie sa objavuje problem pomalej tlace pod WinXP.
V programe mam nasledovny postup:
Printer.BeginDoc;
For n:= 0 to PocStran-1 do
Begin
MF:=TMetafile.Create;
MFC:= TMetafileCanvas.Create(MF,Printer.Handle);
{nieco sa kresli na MFC}
MFC.Free;
Printer.Canvas.StreetchDraw(Rect(0,0,Printer.PageWidth,Printer.PageHeight),M
F);
MF.Free;
Printer.NewPage;
End;
Printer.EndDoc; {napisane len pre nazornost}
V konkretnom pripade je pocet stran cca 7 a tlaciaren zacne reagovat po 45
(styridsatpat) minutach.
Dajme tomu, ze je tam nejaka HP DJ xxx s original CD od vyrobcu.
Ked odinstalujem original ovladac a nainstalujem ovladac podobnej tlaciarne
dodany s WinXP maka to normalne.
To iste plati aj o LJ. Problem je v tom, ze mi je trapne vysvetlovat: "CD od
vyrobcu zahodte a pre tlaciaren HP LJ xxx nainstalujte ovladac z Windows
urceny pre HP LJ 6".
Kde je chyba?
Dakujem Lauko.
Q:pozicia kurzora
[*] Slafco <skippo(zv)matfyz.sk> - 18.3.2003 21:56:51
cest praci delfini
nemate niekto napisanu nejaku peknu rutinu pre zistenie pozicie
kurzora v richedite? vdak
--
Vsetko dobre,
Slafco
-----------------------------------
mailto:skippo(zv)matfyz.sk
icq : 132940081
a3net : slafco [slafco.atriaky.sk]
web : http://whitedog.matfyz.sk
http://h93.matfyz.sk
-----------------------------------
Virtualni tiskarna
[*] <delphi(zv)czechdance(tec)com> - 18.3.2003 21:56:04
zrovna acrobata nechci.... neco jineho?> Acrobat PDF writer ? napr. ...
>
>> -----Original Message-----
>> From: delphi(zv)czechdance.com
>> Nevite nekdo o necem, co by se tvarilo, jako jehlickova tiskarna????
>> Nejakou virtualni tiskarnu, ktera by se nainstalovala a tvarila, jako
>> tiskarna, dalo se na ni tisknout atd.
>> atd.
>>
>> Nebo jenom virtualni tiskarna??Virtualni tiskarna
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 18.3.2003 21:52:00
Acrobat PDF writer ? napr. ...
> -----Original Message-----
> From: delphi(zv)czechdance.com
> Nevite nekdo o necem, co by se tvarilo, jako jehlickova tiskarna????
> Nejakou virtualni tiskarnu, ktera by se nainstalovala a tvarila, jako
> tiskarna, dalo se na ni tisknout atd.
> atd.
>
> Nebo jenom virtualni tiskarna??
Virtualni tiskarna
[*] <delphi(zv)czechdance(tec)com> - 18.3.2003 21:36:48
Nevite nekdo o necem, co by se tvarilo, jako jehlickova tiskarna????
Nejakou virtualni tiskarnu, ktera by se nainstalovala a tvarila, jako
tiskarna, dalo se na ni tisknout atd.
atd.
Nebo jenom virtualni tiskarna??
Bronislav Klucka
Synapse a SSL
[*] Josef Koke� <kokes(zv)fsid.cvut(tec)cz> - 18.3.2003 20:38:14
Ahoj vsichni,
zkusil jsem si Synapsi a jsem moc spokojen, chodilo mi to na prvni pokus.Ale
mam problem s pripojenim pomoci HTTPS. Prislusne DLL knihovny jsem
nakopiroval do WINDOWS/SYSTEM32, ale asi neco delam spatne, porad to
nechodi.
Nemeli byste, prosim, nejaky kus kodu na ukazku, jak to ma byt? Nebo nejaky
link na DEMO? Treba jak se pripojit na https://certifikacniautorita(tec)cz/, kdy
a jak zadat username/password ?
Diky za popostrceni.
Kokes
admin: Konference .NET
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.3.2003 20:34:46
Puvodni zprava, kterou napsal Jiri Kratochvil dne 18 Mar 2003:
> bude mit konference o .net taky svuj archiv s fultextem??
No to se nevi, jestli se toho nekdo ujme. Ja to zkusit muzu ve volnych
chvilich, pokud bude prispevku tolik, aby to melo smysl...
S pozdravem
Petr Zahradnik, pocitacovy expert
=======================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 475 500 610, 475 501 627, 475 511 337
Mobilni telefon: 602 409 601, Fax: 475 511 338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
=======================================================admin: Konference .NET
[*] Jiri Kratochvil <jiri.kratochvil(zv)webzin(tec)cz> - 18.3.2003 19:30:09
Ahoj,
chtel jsem se zeptat:
bude mit konference o .net taky svuj archiv s fultextem??
Jirka
MySQL - cestina
[*] David Janko <djanko(zv)wizards(tec)cz> - 18.3.2003 18:19:09
do my.cnf pridej radek (sekce mysqld, samozrejme):
default-character-set=3Dlatin2
nebo misto latin 2 muzes dat czech ....
a mysql musi byt samozrejme s tim charsetem zkompilovana (ve stable GNU
Linux debian kde ji pouzivam je zkompilovana se vsemi charsety uz primo v
balicku, nevim jak jinde);
---
Best Regards,
David Janko
programmer & Linux system administrator
djanko(zv)infoware(tec)cz
+420 777 233 530
----- Original Message -----
From: "Filip Rozs=EDval" <kenny(zv)razdva(tec)cz>
To: "Delphi konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, March 18, 2003 3:25 AM
Subject: MySQL - cestina
> Jak mam nastavit, aby se mi dotazy radily podle ceske abecedy a ne, aby=
se
> pouzival standardni Latin1. Zkousel jsem to zmenit podle manualu, nejak=
mi
> to nejde.
>
> set option charset set czech
>
> mi vraci, ze jazyk czech nezna a kdyz jsem zkousel dir-character-set (c=
i
> jake je zneni te promene) pise mi, ze je to adresar je c:, ale zas nevi=
m,
> jak tam zadat ten spravny adresar.
>
> Takze jestli nekdo znate nejaky rozumny a osvedceny postup, jako naprik=
lad
> nejaky dva kratky radky do konfiguracniho ini souboru, nebo neco jineho
budu
> vam za radu vdecny.
>
> Filip
>
>
Pridani sloupce do Clienta
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 18.3.2003 17:37:06
Ahoj,
uplne jsem nepochopil co chces:
1. pridat vypocitavane pole do dotazu:
SELECT *, a-b AS Vypocet FROM tab ....
2. pridat "calculated fields", primo do datasetu v klientovi,=20
napr. v fields editoru viz. help "Defining a calculated field"
Pavel
PS: nepochopil jsem WHERE 0 <> 0 -- tim chces ziskat prazdny resultset ?
> From: LUKES V=E1clav=20
> rad bych vas poprosil o radu. Mam D6 Prof. a Win 2000.
>=20
> Mam u TQuery SQL.Text napsano treba toto:
> 'select * from tab where 0 <> 0'
> cimz mam na TClientDataSetu stejnou strukturu. Fajn. Ja bych=20
> ale potreboval toto zachovat a na clientovi pridat jeden=20
> sloupec. Jde to nejak ???
Pridani sloupce do Clienta
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 18.3.2003 17:08:13
Ahoj,
rad bych vas poprosil o radu. Mam D6 Prof. a Win 2000.
Mam u TQuery SQL.Text napsano treba toto:
'select * from tab where 0 <> 0'
cimz mam na TClientDataSetu stejnou strukturu. Fajn. Ja bych ale =
potreboval toto zachovat a na clientovi pridat jeden sloupec. Jde to =
nejak ???
Diky
ThousandSeparator, FloatToStr v D7
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.3.2003 15:05:02
From: "konference" <konf(zv)agnis(tec)cz>
> Funkce FloatToStr mi v Delphi7 neakceptuje oddelovac tisicu
> ThousandSeparator. DecimalSeparator funguje. V Delphi6 to fungovalo, po
> nainstalovani D7 uz to nefunguje ani v D6, takze to vypada na chybu v nejake
> spolecne dll knihovne. Nevite nekdo jestli se to da nejak opravit?
Pochybuji ze je to nejaka spolecna knihovna. Funkce FloatToStr pouziva format
ffGeneral. Podle helpu pouze ffNumber a ffCurrency pouzivaji oddelovac tisicu.
> Priklad kodu:
> ThousandSeparator:='a';
> DecimalSeparator:='b';
> FloatToStr(1234567.25);
>
> vrati v D6: 1a234a567b25
> ale po instalci D7: 1234567b25
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
YourFormatSettings: TFormatSettings =
(ThousandSeparator: ' '; DecimalSeparator: '.');
begin
WriteLn(FloatToStrF(1234567.25, ffNumber, 15, 2, YourFormatSettings));
end.
Petr Vones
Jak prilinovat Lib-soubory do Delphi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.3.2003 14:45:41
From: "Jiri Virt" <virt(zv)volny(tec)cz>
> nelinkoval jste nekdo klasicky *.lib soubor do Delphi? Jak na to?
Nedelej to.
Jak prihlasit uzivatele do systemu WIN 2000
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 18.3.2003 15:34:10
A co takhle zkusit vlastni GINU -> tedy GINA (doporucuji hledat na MSDN) je=
=20
prave ta knihovna ktera zobrazi prihlasovaci okenko a ceka na prihlaseni.=20
Lze udelat vlastni DLL knihovnu, ktera prekryje nektere funknce pro=20
prihlaseni eventuelne pro zobrazeni prave tohoto okna a na zbytek funkci=20
bude volat originalni od MS. Tim se vytvorti jakasi proxy ktera bude mit v=
=20
poli prihlasovani temer neomezene moznosti.
Zkuste se juknout treba na http://web.mit.edu/cartel/ntgina.html -> tam=20
nahradili komplet prihlasovani.
>Peru se tu s probl=E9mem, jak prihl=E1sit u=BEivatele do syst=E9mu na win
>2000 a p=F8edpokl=E1d=E1m, =BEe to bude pot=F8eba i na win XP. Jde mi o to,
>=BEe kdy=BE nazko=E8=ED p=F8ihla=B9ovac=ED dialog, cht=ECl bych n=ECjak=
programov=EC
>p=F8ihl=E1sit u=BEivatele. Na pozad=ED mi jede slu=BEba, kter=E1 to m=F9=BE=
e
>za=F8=EDdit, ale po=F8=E1d se mi to neda=F8=ED. Nem=E1te n=ECkdo=
zku=B9enosti? Petr
S pozdravem
Tomas Rosa
------------------------=3D[ pinknet on every=
screen]=3D-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://web.pinknet(tec)cz/~trosa/
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Jak prihlasit uzivatele do systemu WIN 2000
[*] Petr Varga <djvar(zv)post(tec)cz> - 18.3.03 14:53:20
No to samoz=F8ejm=EC v=EDm, =BEe to jde. Ale pot=F8ebuji to ud=EClat tak ab=
y
se o to starala moje slu=BEba. Ne win samotn=E9. Ale nejde mi to.
Nejde mi naj=EDt ani handle okna pro p=F8ihl=E1=B9en=ED. Tak=BEe se prost=
=EC
nehnu. V=EDm jak spustit proces pod zadan=FDm u=BEivatelem, ale
pot=F8eboval bych ho prost=EC p=F8ihl=E1sit do syst=E9mu...
----- P=D9VODN=CD ZPR=C1VA -----
Od: "Ludek ZITA" <konference(zv)sales(tec)cz>
P=F8edm=ECt: Re: Jak prihlasit uzivatele do systemu
Ahoj.
Ve win2000 se da nastavit automaticke
prihlasovani ood urcitym uctem.
Na to neni treba psat soft.
=20
Ludek
=20
=20
--=20
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/postpaid/
Konverze bitmapy na iconu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.3.2003 14:45:11
From: <b.klucka(zv)gentlemail.com>
> ale kdyz iconu ulozim, ma standartnich 16 barev... nevite, jak na to?
Pokud vim tak trida TIcon ve VCL stale neumi pracovat s ikonami o vice nez
16ti barvach.
Petr Vones
IdHTTP a POST
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 18.3.2003 15:16:39
Me zase hlasi EIdProtocolReplyError: 405 Method not allowed.
(odesilani HTTP POST dat na Oskarovu SMS branu)
(jeste vcera to fungovalo :o( )
R. Plzak
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Ji�� Mat�jka
Sent: Tuesday, March 18, 2003 1:32 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: IdHTTP a POST
Taky me to nejak zlobilo, detaily uz si nepamatuju, ale myslim, ze pomohlo
nainstalovat Indy 9 (v D7 jsou standardne 8cky). Ale pozor, Indy 9 maj u
nekterych komponent jine nazvy a umisteni vlastnosti a metod, takze prechod
na ne nemusi byt u rozsahlych aplikace bezproblemovy...
Jirka Matejka
----- Original Message -----
From: "Spr�vce VOS" <mad(zv)vos(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, March 18, 2003 12:53 PM
Subject: IdHTTP a POST
> Zdravim,
>
> funguje vam nekomu posilani dat pomoci metody POST pres komponentu IdHTTP
?
>
> Spravne se odesila velikost, ale promene a jejich hodnoty jiz nedorazi :(
>
> MAd
>
>
> Zprava byla proverena antivirovym systemem RAV na serveru ms.vos(tec)cz.
>
>
---
Odchoz� zpr�va neobsahuje viry.
No viruses found in the outgoing message.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.462 / Virov� b�ze: 261 - datum vyd�n�: 13.3.2003
ADMIN: Konference .NET
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 18.3.2003 15:09:55
On 18 Mar 2003 at 14:43, Petr Vones wrote:
> To je sice pravda, ale bude to jeste par let trvat ;-) Neni prece
> problem byt prihlaseny ve vice konferencich, zvlaste kdyz Win32 a .NET
> jsou opravdu dve rozdilne platformy. Narozdil od Delphi konference
> tato asi nebude prilis o nastrojich Borlandu.
V tom pripade nevidim duvod k zakladani nove, kdyz je uz jedna
fungujici na emwacu.
S pozdravem
Zbysek Hlinka
OT: Problem s posilanim SMS na FALCOM A1
[*] Ale� Va���ek�����"q��y�&���w�3 - 18.3.2003 15:01:44
Ahoj,
pouzivam GSM Voice Modem Falcom A1 (stejne jako Siemens M1) pro =
odesilani a prijem SMS zprav. Vsechno funguje celkem fajn, az na jednu =
vec:
jakmile prijde na toto zarizeni dorucenka (SMS Delivery info), neulozi =
se jako normalni SMS na SIM (jako u nokie), ale zarizeni vrati aplikaci =
retezec +CDS: ....(za predpokladu, ze predtim nastavim =
AT+CNMI=3D1,1,0,1,0) Da se nejak modem nastavit, aby takove prichozi =
zpravy ukladal normalne na SIMku?
S tim totiz souvisi dalsi problem a to ten, ze pokud prijde tato =
dorucenka, zarizeni vytuhne a odmita prijmout dalsi SMS. Musim z nej =
vytahnout SIMku a dat ji do mobilniho telefonu, kde to zase rozdycha... =
Po opetovnem vlozeni do modemu je vse OK az do doby nez prijde dalsi =
delivery info. Nevite nekdo v cem by mohl byt problem? Ty dorucenky bych =
vazne potreboval zpracovavat.
Po tomto postupu to vzdy zamrzne:
AT+CMGF=3D1
AT+CNMI=3D1,1,0,1,0
AT+CSDH=3D1
AT+CSMP=3D49,169,0,0
AT+CMGS=3D+420xxxxxxxxx
>Test (ctrl-z)
+CMGS: XX
OK
+CDS: 6,0,"+420xxxxxxxxx0303181342",145,"18/03/03 13h42m50s","18/03/03 =
13h42m55s",0
a ted uz neprijde ani jedna zprava...=20
co s tim? Neni potreba modemu zpatky poslat nejake info o tom, ze jsem =
dorucenku zpracoval?
jak zobrazit text ze stringu do TWebBrowseru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.3.2003 14:40:35
From: "EFG Developer" <developer(zv)efg(tec)cz>
> Zdravim, uz dobu se pokousim nejakzm elegantnim zpusobem zobazit html
> kod, ktery mam ve stringu, do komponenty TWebBrowser.
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=15649
ADMIN: Konference .NET
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.3.2003 14:43:12
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> A nebylo by vhodnejsi probirat .NET primo zde? Urcite by to bylo
> vseobecne uzitecnejsi. Tema Delphi Win32 tak jako tak casem vysumi,
> jako vysumel Turbo Pascal.
To je sice pravda, ale bude to jeste par let trvat ;-) Neni prece problem byt
prihlaseny ve vice konferencich, zvlaste kdyz Win32 a .NET jsou opravdu dve
rozdilne platformy. Narozdil od Delphi konference tato asi nebude prilis o
nastrojich Borlandu.
Petr Vones
Jak prihlasit uzivatele do systemu WIN 2000
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 18.3.2003 14:30:30
----- Original Message -----
From: "Petr Varga" <djvar(zv)post(tec)cz>
Peru se tu s probl�mem, jak prihl�sit u�ivatele do syst�mu na win
2000 a p�edpokl�d�m, �e to bude pot�eba i na win XP.
***********
Ahoj.
Ve win2000 se da nastavit automaticke prihlasovani ood urcitym uctem.
Na to neni treba psat soft.
Ludek
Jak prihlasit uzivatele do systemu WIN 2000
[*] Petr Varga <djvar(zv)post(tec)cz> - 18.3.03 14:09:40
Ahoj=A8.
Peru se tu s probl=E9mem, jak prihl=E1sit u=BEivatele do syst=E9mu na win
2000 a p=F8edpokl=E1d=E1m, =BEe to bude pot=F8eba i na win XP. Jde mi o to,
=BEe kdy=BE nazko=E8=ED p=F8ihla=B9ovac=ED dialog, cht=ECl bych n=ECjak pro=
gramov=EC
p=F8ihl=E1sit u=BEivatele. Na pozad=ED mi jede slu=BEba, kter=E1 to m=F9=BE=
e
za=F8=EDdit, ale po=F8=E1d se mi to neda=F8=ED. Nem=E1te n=ECkdo zku=B9enos=
ti? Petr
--=20
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/postpaid/
IdHTTP a POST
[*] Spr�vce VOS <mad(zv)vos(tec)cz> - 18.3.2003 14:23:01
Diky moc, vyzkousim to.
V napovede o necem podobnem neni ani zminka a demo na POST neni :(
MAd
----- Original Message -----
From: "Peter Turcan" <peter.turcan(zv)centrum.sk>
To: "Spr�vce VOS" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, March 18, 2003 2:08 PM
Subject: Re: IdHTTP a POST
> Ahoj Spr�vce,
>
> Dnes, (18. marec 2003, 12:53:52), si poslal mail :
>
> SV> Zdravim,
>
> SV> funguje vam nekomu posilani dat pomoci metody POST pres komponentu
IdHTTP ?
>
> SV> Spravne se odesila velikost, ale promene a jejich hodnoty jiz
nedorazi :(
>
> funguje. musi byt ale spravne strukturovana POST sprava.
> v prvom rade musi byt nastavene:
> Request.ContentType napr.
> Request.ContentType:='multipart/form-data; boundary="'+BND+'"';
>
> kde BND je:
> BND = '------=_DCL_000_000A_01C284A6.0F540F80';
>
> ale Pozor! v POST datach sa musia pridat este dve pomlcky napr.
>
> BNDI = '--------=_DCL_000_000A_01C284A6.0F540F80';
> s:=BNDI + CRLF +
> 'Content-Disposition:form-data; name="user"'+CRLF+CRLF+username+CRLF+
BNDI;
> atd..
>
> Potom to pojde. Ja som takto predaval parametre do PHP...
>
> Peter
>
>
> Zprava byla proverena antivirovym systemem RAV na serveru ms.vos(tec)cz.
>
>
Zprava byla proverena antivirovym systemem RAV na serveru ms.vos(tec)cz.
IdHTTP a POST
[*] Peter Turcan <peter.turcan(zv)centrum.sk> - 18.3.2003 14:08:26
Ahoj Spr�vce,
Dnes, (18. marec 2003, 12:53:52), si poslal mail :
SV> Zdravim,
SV> funguje vam nekomu posilani dat pomoci metody POST pres komponentu IdHTTP ?
SV> Spravne se odesila velikost, ale promene a jejich hodnoty jiz nedorazi :(
funguje. musi byt ale spravne strukturovana POST sprava.
v prvom rade musi byt nastavene:
Request.ContentType napr.
Request.ContentType:='multipart/form-data; boundary="'+BND+'"';
kde BND je:
BND = '------=_DCL_000_000A_01C284A6.0F540F80';
ale Pozor! v POST datach sa musia pridat este dve pomlcky napr.
BNDI = '--------=_DCL_000_000A_01C284A6.0F540F80';
s:=BNDI + CRLF +
'Content-Disposition:form-data; name="user"'+CRLF+CRLF+username+CRLF+ BNDI;
atd..
Potom to pojde. Ja som takto predaval parametre do PHP...
Peter
jak zobrazit text ze stringu do TWebBrowseru
[*] EFG Developer <developer(zv)efg(tec)cz> - 18.3.2003 14:06:59
Zdravim, uz dobu se pokousim nejakzm elegantnim zpusobem zobazit html
kod, ktery mam ve stringu, do komponenty TWebBrowser.
TWebBrowser umi zobrazit stranku ze souboru, ale jak to udelat ze
stringu bez pouyiti temporary souboru?
Dekuji za nakopnuti.
Petr Sikola
TWebBrowser a zmena velikosti textu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.3.2003 13:48:59
From: "Ing. Igor Vodi�ka" <vodicka(zv)sagit(tec)cz>
> Komponentu TWebBrowser pouzivam na zobrazovani lokalnich HTML souboru a
> jejich tisk, v tom neni problem. Muze mi prosim nekdo poradit, jak
> programove muzu nastavoval velikost textu na ruzne hodnoty: nejvetsi, velke,
> stredni, male, nejmensi jak mozne v IE. Pouzivam D5.
var
ZoomValue: OleVariant;
WebBrowser.ExecWB(OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, ZoomValue);
Kde ZoomValue ma hodnoty 4 az 0, vice v helpu.
Petr Vones
TWebBrowser a zmena velikosti textu
[*] Ing. Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 18.3.2003 13:42:44
Zdravim vespolek!
Komponentu TWebBrowser pouzivam na zobrazovani lokalnich HTML souboru a
jejich tisk, v tom neni problem. Muze mi prosim nekdo poradit, jak
programove muzu nastavoval velikost textu na ruzne hodnoty: nejvetsi, velke,
stredni, male, nejmensi jak mozne v IE. Pouzivam D5.
Diky
Ing. Igor Vodicka
informacni systemy
Nakladatelstvi Sagit
Tel.: 59 6786 001
HTTP://www.sagit(tec)cz/
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.462 / Virov� b�ze: 261 - datum vyd�n�: 13.3.2003
IdHTTP a POST
[*] Ji�� Mat�jka�����^�F�צ����̿ - 18.3.2003 13:31:54
Taky me to nejak zlobilo, detaily uz si nepamatuju, ale myslim, ze pomohl=
o
nainstalovat Indy 9 (v D7 jsou standardne 8cky). Ale pozor, Indy 9 maj u
nekterych komponent jine nazvy a umisteni vlastnosti a metod, takze prech=
od
na ne nemusi byt u rozsahlych aplikace bezproblemovy...
Jirka Matejka
----- Original Message -----
From: "Spr=E1vce VOS" <mad(zv)vos(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, March 18, 2003 12:53 PM
Subject: IdHTTP a POST
> Zdravim,
>
> funguje vam nekomu posilani dat pomoci metody POST pres komponentu IdH=
TTP
?
>
> Spravne se odesila velikost, ale promene a jejich hodnoty jiz nedorazi=
:(
>
> MAd
>
>
> Zprava byla proverena antivirovym systemem RAV na serveru ms.vos(tec)cz.
>
>
---
Odchoz=ED zpr=E1va neobsahuje viry.
No viruses found in the outgoing message.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.462 / Virov=E1 b=E1ze: 261 - datum vyd=E1n=ED: 13.3.2003
IdHTTP a POST
[*] Spr�vce VOS <mad(zv)vos(tec)cz> - 18.3.2003 12:53:52
Zdravim,
funguje vam nekomu posilani dat pomoci metody POST pres komponentu IdHTTP ?
Spravne se odesila velikost, ale promene a jejich hodnoty jiz nedorazi :(
MAd
Zprava byla proverena antivirovym systemem RAV na serveru ms.vos(tec)cz.
debug info + balicky
[*] Delphin <delphin(zv)post(tec)cz> - 18.3.2003 12:15:16
Problem je v tom, ze pro ladeni je treba nejenom soubor bpl, ale i soubory
dcu a dcp a Delphi musi vedet, kde jsou. Delphi normalne vi jenom o
souborech nutnych k ladeni aplikace, informace pro balicky se musi rucne
nastavit.
Po experimentovani se mi osvedcil tento postup
1) u balicku nastavit Debug Information, Local symbols, Reference info,
Definition Only
2) u balicku nastavit Output, Unit Output, DCP output directory na adresar,
kde jsou .pas k balicku, protoze defaultne se to zapisuje nekam jinam
3) u projektu nastavit Debug Source Path na adresar z bodu 2
4) Build projektu
5) Build balicku
----- Original Message -----
From: "Tomas Bihary" <delphi(zv)wige-mic(tec)cz>
To: "Delphi konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, March 18, 2003 11:47 AM
Subject: debug info + balicky
Ahoj vsichni,
mam dotaz na debug info. Souvisi to
s debugovanim aplikace s balicky.
Stava se nam casto, ze nelze
debugovat balicky, ktere jsou dynamicky
nahravane za behu aplikace (plug-iny).
Cesty jsou v techto balickach absolutni,
ale presto nelze debugovat. V logu to
zapise hlasku "No debug info", ale
pritom je v techto baliccich zaskrtnuto
veskere "debugging".
Zajimalo by me jestli delame neco
spatne, nebo zda delaji neco spatne
samotne Delphi. Dale jestli jde nejak
zjistit jestli debug info existuje (co to
vlastne je?).
Predem dekuji za jakekoliv odpovedi.
D5ENT/SP1
W2000/SP3
Pavel Vasek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.462 / Virov� b�ze: 261 - datum vyd�n�: 13.3.2003
debug info + balicky
[*] Eichler Marek <Marek.Eichler(zv)access-it(tec)cz> - 18.3.2003 11:57:22
Zdravim,
>>> delphi(zv)wige-mic(tec)cz 18.3.03 11:47 >>>
>Ahoj vsichni,
>
>mam dotaz na debug info. Souvisi to
>s debugovanim aplikace s balicky.
>
>Stava se nam casto, ze nelze
>debugovat balicky, ktere jsou dynamicky
>nahravane za behu aplikace (plug-iny).
>Cesty jsou v techto balickach absolutni,
>ale presto nelze debugovat. V logu to
>zapise hlasku "No debug info", ale
>pritom je v techto baliccich zaskrtnuto
>veskere "debugging".
V Project Options na zalozce Linker zkus zaskrtnout Include remote debug =
symbols. To by melo pomoci, alespon me to s tim funguje
S pozdravem Marek Eichler
debug info + balicky
[*] Tomas Bihary <delphi(zv)wige-mic(tec)cz> - 18.3.2003 11:47:26
Ahoj vsichni,
mam dotaz na debug info. Souvisi to
s debugovanim aplikace s balicky.
Stava se nam casto, ze nelze
debugovat balicky, ktere jsou dynamicky
nahravane za behu aplikace (plug-iny).
Cesty jsou v techto balickach absolutni,
ale presto nelze debugovat. V logu to
zapise hlasku "No debug info", ale
pritom je v techto baliccich zaskrtnuto
veskere "debugging".
Zajimalo by me jestli delame neco
spatne, nebo zda delaji neco spatne
samotne Delphi. Dale jestli jde nejak
zjistit jestli debug info existuje (co to
vlastne je?).
Predem dekuji za jakekoliv odpovedi.
D5ENT/SP1
W2000/SP3
Pavel Vasek
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.462 / Virov=E1 b=E1ze: 261 - datum vyd=E1n=ED: 13.3.2003
Synapse a posielanie mailu II
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 18.3.2003 11:17:59
Ale ne, jen jsem to psal z hlavy. Ma tam byt:
MIME.AddPartBinaryFromFile('c:\data.dbf',Part);
Ostatne v dokumentaci je to napsane, ba i pohled do zdrojaku by jiste
napovedel. ;-)
> Asi mam tam nieco posahane, lebo:
>
> Opravil som tie riadky podla navodu a
> vypisuje to k riadku :
>
> MIME.AddPartBinary('c:\data.dbf',Part)
> chybu : Nekompatibilita TSream a String.
>
> Fabik Milan
>
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Cannot attach to password database
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 18.3.2003 10:59:51
Ahoj,
na stroji u zakaznika se stava zcela vzdy zajimava vec. Ma FB1.0 server na Linuxu -
Red Hat 7 (tusim), verze Firebirda je LI-6.2.796 Firebird 1.0. Stejna verze jako u nas.
U zakaznika existuji v jednom adresari 2 gdb soubory - dve databaze. Pokud se
pripojim k jedne z nich, je vse OK. Odhlasim se, pripojim se k druhe, taky OK.
Jedine, co nejde, je byt prihlasen k obema soucasne. Pri pokusu o prihlasni k druhe
databazi vznikne Firebirdova velmi oblibena chyba Cannot attach to password
database a smytec. Dela to v libovolne aplikaci, dela to i v IBConsoli. Proste smim
byt prihlasen pouze k jedne databazi.
U nas se to nestava. Snazil jsem se na internetu najit nejake informace k teto chybe,
ale marne. Bud se pise o chybejicich licencnich souborech, coz u Firebirdu uz neni
pravda, nebo o chybne ceste k databazi - podle protokolu netbeui. To ale rovnez
neni tento pripad.
1) Vite nekdo, proc dochazi k teto chybe a zvlaste proc v teto specialni situaci.
2) Ona hlaska se obcas nepravidelne objevuje i pri beznem provozu. Opravdu nevite
o nejakem odkazu, kde by bylo popsano, o co jde a jak ten problem vyresit?
Diky
Re[2]: Rozdeleni aplikace za pouziti balicku
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 18.3.2003 10:37:07
> To AV opravdu vznika, ze neni vytvoren DM.
>
> Ale abych si to ujasnil jak mate tu aplikaci postavenou.
> Existuje nejake exe to se stara jen o nacteni balicku hlavni aplikace,
> tam je v required ten spolecny datamodul. Tento balicek hlavni
> aplikace se nacte jako prvni. Automaticky se nacte spolecny datamodul
> a hlavni aplikace (balicek) si jej vytvori a udrzuje.
> Ted mate nekolik dalsich balicku s jednotlivymi moduly a ty maji v
> required Hlavni aplikaci a spolecny datamodul.
>
> Je to spravne?
No, tak nejak to bude ;-)
aplikace.EXE - required: datamodul.bpl, spolecne.bpl
sklad.BPL - required: datamodul.bpl, spolecne.bpl
denik.BPL - required: datamodul.bpl, spolecne.bpl
...atd...
Aplikace EXE vytvori datamodul (a pripojenik DB). Balicek sklad.bpl,
denik.bpl,... se nahrava pomoci LoadPackage.
Roman
==============================
http://kouzelne.misto(tec)cz
ADMIN: Konference .NET zalozena ?????
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.3.2003 10:26:45
Puvodni zprava, kterou napsal Ludek ZITA dne 18 Mar 2003:
> Proc jsi se nas vubec ptal, kdyz od vyzvy k diskuzi do zalozeni ubehly
> pouhe 2 hodiny a 59 minut ?
No to staci, ne? Nejrychlejsi odpovedeli :-)
S pozdravem
Petr Zahradnik, pocitacovy expert
=======================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 475 500 610, 475 501 627, 475 511 337
Mobilni telefon: 602 409 601, Fax: 475 511 338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
=======================================================ADMIN: Konference .NET zalozena ?????
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 18.3.2003 10:08:57
From: "Ludek ZITA" <konference(zv)sales(tec)cz>
> Jinak souhlasim se Zbyskem.
Ja se Zbyskem nesouhlasim, protoze IMHO neni zadny problem sledovat nekolik
konferenci soucasne (urcite to rada lidi dela) a je jedno,
jestli ctu zpravy v jednom folderu nebo nekolika.
pf
Re[2]: Rozdeleni aplikace za pouziti balicku
[*] Martin Radvansky <delphicz(zv)stereo(tec)cz> - 18.3.2003 10:20:23
Dobry den
R> Hm, to ze to pada na AV bude problem nekde jinde (kdyby chybel balicek, tak
R> by to nepadalo na AV). Spise se podivej, jestli je ten dmSpol vytvoreny,
R> kdyz jej volas. Ja osobne mam balicek s datamodulem v required sekci hlavni
R> aplikace a ta ho taky vytvori (datamodule.create). Ostatni balicky se
R> nahravaji dle potreby, ale datamodul uz je vytvoreny a pripojeny k DB.
To AV opravdu vznika, ze neni vytvoren DM.
Ale abych si to ujasnil jak mate tu aplikaci postavenou.
Existuje nejake exe to se stara jen o nacteni balicku hlavni aplikace,
tam je v required ten spolecny datamodul. Tento balicek hlavni
aplikace se nacte jako prvni. Automaticky se nacte spolecny datamodul
a hlavni aplikace (balicek) si jej vytvori a udrzuje.
Ted mate nekolik dalsich balicku s jednotlivymi moduly a ty maji v
required Hlavni aplikaci a spolecny datamodul.
Je to spravne?
Dekuji
--
S pozdravem,
radvansky.martin.stereo(tec)cz
radvansky.martin(zv)stereo(tec)cz
Rozdeleni aplikace za pouziti balicku
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 18.3.2003 10:00:51
> Zdravim,
> muzu poprosit o drobne upresneni.
>
> >Ja osobne mam veci pro pripojeni (datamodul) v samostatnem balicku.
Spolecne
> >veci (formy, komponenty) pak v dalsim balicku(-iccich).
>
> Mam spolecny balicek SpolecnyDatamodul tento je pouzit v
> nekolika dalsich baliccich a je tedy v sekci required.
>
> Jelikoz jste psal, ze balicek required se nemusi loadovat, tak
> jakym zpusobem a kdy vytvorim ten datamodul.
> Pokud totiz neudelam nic tak nemuzu samozrejme pristupovat k
> datamodulu.
No uplne "nic" je spatne, nekde by melo byt datamodul.create ;-)
> Priklad:
> Balicek obsahuje jen datamodul dmSpol a jeho metody, tabulky, fields.
> V ostatnich baliccich pouzivam volani dmSpol.taUsers.Open a dalsi.
> Kompilace samozrejme probehne vporadku, ale pri vlastnim behu
> to spadne na AV => takze asi musim vytvorit instanci toho datamodulu,
> ale kdy a jak, kdyz se to nahrava automaticky?
Hm, to ze to pada na AV bude problem nekde jinde (kdyby chybel balicek, tak
by to nepadalo na AV). Spise se podivej, jestli je ten dmSpol vytvoreny,
kdyz jej volas. Ja osobne mam balicek s datamodulem v required sekci hlavni
aplikace a ta ho taky vytvori (datamodule.create). Ostatni balicky se
nahravaji dle potreby, ale datamodul uz je vytvoreny a pripojeny k DB.
Roman
==============================
http://kouzelne.misto(tec)cz
IB: SELECT ... LIMIT x,y
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 18.3.2003 10:15:39
Haj hou!
On 18 Mar 2003 at 9:56, Miroslav Evjak wrote:
> lze nejak realizovat na InterBase obdoba %subj% (jako napr. v MySQL), tj.
> vyber radku od x do y. Tusim to uz v konferenci probehlo, bohuzel to nemohu
> najit.
U InterBase nikoliv, ale Firebird od verze 1.0 ma SELECT FIRST x SKIP y
<seznam poli> FROM ...
S pozdravem
Pavel Cisar
Navidenou na Prvni Evropske Firebird Konferenci - Kveten 2003,
Fulda, Nemecko
http://www.firebird-conference.com
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Synapse a posielanie mailu II
[*] Milan F�bik <fabik(zv)kinekus.sk> - 18.3.2003 09:59:46
Asi mam tam nieco posahane, lebo:
Opravil som tie riadky podla navodu a
vypisuje to k riadku :
MIME.AddPartBinary('c:\data.dbf',Part)
chybu : Nekompatibilita TSream a String.
Fabik Milan
Tlacitko v menu baru
[*] Jan Harman <harman(zv)volny(tec)cz> - 17.3.03 16:56:42
To bych prave chtel, ale jak umistit nejake (jakekoliv) tlacitko
do Menu baru? Zatim jsem to vyresil tim ze jsem z toho udelal MDI
aplikaci a uvnitr je jeden maximalizovany form. Tlacitka jsou tam
automaticky, akorat je jich tam moc. Honza.
> a co tam dat tlacitko nebo aspon klikaci plosku a do
> jeho obsluhy dat close;
> nebo application.terminate; ?
>
>
> ----- Original Message -----
> From: "Jan Harman" <harman(zv)volny(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Monday, March 17, 2003 11:03 AM
> Subject: Tlacitko v menu baru
>
>
> > Ahoj, nakreslit neco do menu baru umim, ale
> > potreboval bych tam
> > umistit i tlacitko (Close "X"). Pouzivam aplikaci
> > FullScreen bez
> > Border. Poradite nekdo neco?
> > Moc dik. (D5, W98)
> > Honza.
> >
> > --
> > Ziskejte kvalitu, kterou si zasluhujete. Za minimalni
> > mesicni
> > poplatek vam nabizime Antivir, Antispam nebo dalsi
> > kapacitu pro
> > vas Mailbox. Vice na:
> > http://sluzby.volny(tec)cz/product/mailpaid/
> >
> >
>
>
--
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/mailpaid/
Tlacitko v menu baru
[*] Vita J. <delphi(zv)obecpohori(tec)cz> - 17.3.2003 15:54:19
a co tam dat tlacitko nebo aspon klikaci plosku a do jeho obsluhy dat close;
nebo application.terminate; ?
----- Original Message -----
From: "Jan Harman" <harman(zv)volny(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, March 17, 2003 11:03 AM
Subject: Tlacitko v menu baru
> Ahoj, nakreslit neco do menu baru umim, ale potreboval bych tam
> umistit i tlacitko (Close "X"). Pouzivam aplikaci FullScreen bez
> Border. Poradite nekdo neco?
> Moc dik. (D5, W98)
> Honza.
>
> --
> Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
> poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
> vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/mailpaid/
>
>
Web Image
[*] Jakub Dusek <jdev(zv)seznam(tec)cz> - 17.3.2003 15:35:46
Na to jde jednoduse zkombinovat Indy (nebo Synapsi) a normalni TImage,
na co specialni komponentu. Jestli je to kvuli ET tak bych se spis
ptal po OCR komponente :)
Jakub Dusek
-------------------------------
Homepage : http://dusek.webz(tec)cz
Phone : +420604615795
Icq : 86063232
Apps : Sms GateKeeper
-------------------------------
Monday, March 17, 2003, 3:32:34 PM, you wrote:
RP> Zdravim delfini,
RP> nevite nekdo o komponente, ktere bych zadal url adresu obrazku a ona by
RP> ten obrazek natahla z webu a zobrazila??? Takovy WebImage.
RP> Mejte se
RP> R. Plzak
Web Image
[*] Robert Plz�k <rpvp(zv)vagnerplast(tec)cz> - 17.3.2003 15:32:34
Zdravim delfini,
nevite nekdo o komponente, ktere bych zadal url adresu obrazku a ona by
ten obrazek natahla z webu a zobrazila??? Takovy WebImage.
Mejte se
Problem s prihlasenim k IB
[*] Robert Poncak <delphi(zv)zvlauto.sk> - 17.3.2003 15:14:09
Zdravim,
Mam taky problem.
Odinstaloval som IB6.0, nainstaloval som FB 1.5 Alfa, ktore mi nefungovalo s
tym ze nemam vytvoreny ucet(prihlasoval som sa k nemu standartne ako k IB),
tak som FB odinstaloval a nainstaloval naspat IB6.0.
Teraz mi IB vypisuje toto: Cannot attach to services manager. Co s tym? Uz
som IB odinstaloval a nainstaloval x-krat...
Pred instalaciou FB mi IB behalo bez problemov.
Win2000, D5,IB6
Vdaka
Rozliseni
[*] Jiri Novotny <novotny(zv)ftknw.upol(tec)cz> - 17.3.2003 14:39:48
Ahoj!
> Na svem stroji mam riozliseni 1280 x 1024 pixelu a napr edity na formulari
> maji FontSize := 8
> Problem mam v tom, ze kdyz svuj EXE soubor nakopiruju na stroj, kde je 800 x 600 pixelu, fonty jsou velke a kus obrazovky ani nevidim.
Asi bych to nejjednoduseji resil tak, ze pred zobrazenim formulare si
napred zjistis napr. rozmery obrazovky (Screen.Width a Screen.Height)
a podle toho upravis rozmery formulare. Ale nezapomen, ze napr.
"vyska" obrazovky muze byt zmensena o vysku Hlavniho panelu, ze na
obrazovce muze byt taky ten panel z Office atd.
Nastaveni ruzne velikosti fontu a pripadne upravy rozmeru panelu a
prvku na nem se daji resit pomoci
Form1.Scaled := true;
Form1.PixelsPerInch := Screen.PixelsPerInch;
To si dej treba od udalosti OnCreate nebo OnShow u formulare.
Rozliseni
[*] LUKES V�clav <lukes(zv)ans(tec)cz> - 17.3.2003 14:14:00
Ahoj,
mam Win 2000, D6 Prof. a rad bych vas poprosil o radu.
Na svem stroji mam riozliseni 1280 x 1024 pixelu a napr edity na =
formulari
maji FontSize :=3D 8
Problem mam v tom, ze kdyz svuj EXE soubor nakopiruju na stroj, kde je =
800 x 600 pixelu, fonty jsou velke a kus obrazovky ani nevidim.
Muzete mi poradit, co s tim ?
Diky
Z Order pri dynamickem vytvareni
[*] Jan Harman <harman(zv)volny(tec)cz> - 17.3.03 13:56:35
Ahoj
muzu nejak ovlivnit "Z Order" pri dynamickem vytvarni komponent?
Jde mi oto, ze uzivatel si muzu komponenty na formu popremistovat
a taky dat neco dopredu, neco dozadu a ja nevim jak to ulozit a
potom znovu nacist. Potreboval bych zjistit Z Order a potom uz
pomoci BringToFront vse nejak posprehazim. Dik.
Honza.
--
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/mailpaid/
Zahada s float sloupci
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 17.3.2003 13:41:00
Nazdarek,
narazil jsem na jednu zahadu : mam starsi aplikaci pracujici pres BDE s
Paradoxem a IB. Vychazej z ni nejake sestavy a to tak, ze se potrebna data
sesypou do tzv. TempTable (postaveno na TTable), ktera je typu DBase, a ma
strukturu definovanou a vytvarenou za behu (prispusobuje se strukturam
vstupnich dat). A ted ta zahada - u nekterych temp tabulek se sloupce typu
Float vytvori jako Ole; pri prohlizeni to neva, ale jakmile chci podle tech
to sloupcu filtrovat, tak to nejde (respektive se to da obejit obezlickou
napr.: "SUMA > 0+0" - jenze to mi prijde blby radit uzivatelum).
Snazil jsem se vytvareni temptabulky krokovat, ale nejak jsem se do toho
zamotal a nic z toho nebylo :-(
Setkal se s tim uz nekdo?
Zachrante mne PLEAS
Zdenek Brejsa - programator HJ-SOFT s.r.o.
Hradebni 3
56301 Lanskroun
IC: 62026631 DIC: 273-62026631
Tel./fax: 465 321096, 465 322889, 465 324795
hotline: 465 324795
Mobil Eurotel: 724 185948; T-Mobile : 603 833124
www.hjsoft(tec)cz
ICQ: 47636291
Sunapse a posielanie mailu
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 17.3.2003 12:20:01
To si musel pouzivat uz docela starou Synapsi. Uz nekolik verzi je
zcela prapsan a znacne vylepsen zpusob prace s MIME dopisy.
Uprava ale neni tezka. (a je popsana v Artiklech na webu Synapse...)
si promennou typu TMimePart. Napriklad:
var
part:TMimePart;
A pak modifikuj tvuj kod takto (vepsan jeden radek a dva dalsi
modifikovany o ten 'novy' parametr):
> Na odoslanie suboru pouzivam :
>
> Pokec:=TStringList.Create;
> Pokec.Clear;
> Pokec.Add('MAILIK');
> Pokec.Add('------------------');
> Pokec.Add(dialog_setup.e_org.text);
> Pokec.Add(dialog_setup.e_fax.text);
> MIME:=TMIMEMess.Create;
> MIME.header.from:=Dialog_setup.e_kto.text;
> MIME.header.ToList.add('mail(zv)mojmail.sk');
> MIME.header.subject:='Mailik';
Part := MIME.AddPartMultipart('Mixed', nil);
MIME.AddPartText(Pokec, Part);
MIME.AddPartBinary('c:\text.txt', Part);
> MIME.EncodeMessage;
> MIME.FinalizeHeaders;
> Nainstaloval som si novu synapse a mam problem :
> v riadku MIME.AddPartText(Pokec); mi vypisuje nedostatok aktualnzch
> parametrov. Predtym mi to fungovalo. Vie mi niekto poradit, co tam
> este 'dohodit'?
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Sunapse a posielanie mailu
[*] Milan F�bik <fabik(zv)kinekus.sk> - 17.3.2003 12:05:41
Ahoj delhi,
prosim o radu.
Na odoslanie suboru pouzivam :
Pokec:=TStringList.Create;
Pokec.Clear;
Pokec.Add('MAILIK');
Pokec.Add('------------------');
Pokec.Add(dialog_setup.e_org.text);
Pokec.Add(dialog_setup.e_fax.text);
MIME:=TMIMEMess.Create;
MIME.header.from:=Dialog_setup.e_kto.text;
MIME.header.ToList.add('mail(zv)mojmail.sk');
MIME.header.subject:='Mailik';
MIME.AddPartText(Pokec);
MIME.AddPartBinary('c:\text.txt');
MIME.EncodeMessage;
MIME.FinalizeHeaders;
SendToRaw(Dialog_setup.e_kto.text,'mail(zv)mojmail.sk',Dialog_setup.e_smtp.text
,MIME.Lines,'','');
MIME.Free;
pokec.free;
Nainstaloval som si novu synapse a mam problem :
v riadku MIME.AddPartText(Pokec); mi vypisuje nedostatok aktualnzch
parametrov.
Predtym mi to fungovalo. Vie mi niekto poradit, co tam este 'dohodit'?
Dakujem Fabik
IB/FB a cas ze serveru
[*] Tomas Uldrich <tomas.uldrich(zv)centrum(tec)cz> - 17.3.2003 12:05:23
> SELECT CURRENT_DATE FROM RDB$DATABASES ;
>
> Je to co potrebujes. Stejny trik lze pouzit na volani dalsich
> promennych a funkci
> jako je GEN_ID() apod.
>
To je to, co jsem potreboval.
SELECT CURRENT_DATE FROM RDB$DATABASE
funguje. Diky.
Ztrata konektivity IB/FB
[*] <rdanhel(zv)centrum(tec)cz> - 17.3.2003 11:26:44
______________________________________________________________
Osobne bych to resilt trosku jinak
Po ztrate komunikace zavolal jenom ForceClose coz by melo zajistit=20
vypnuti vsech coonnectu a zavreni vsech transakci i kdyz byly aktivni.=20
Dle meho nazoru. To znamena ze nejake dalsi False a true po closnuti=20
connetu neni potreba.
Jak zjistis Shutdown databaze? To volas v nejake vyjimce?
Moje reseni
Procedure PracesDB
BEGIn
try
//nejaka prace s DB a kdyz to vylitne do vyjimky tak je dole=20
server napriklad
except
ForceClose; //zavreni DB a vsech transakci, uvedeni aplikace do=20
klidu a cekani na nahozeni serveru
timer1.enabled=3Dtrue; //start timeru na pripojovani
//plus meli by se nejak zakazat vsechny akce na databazi, ja to=20
mam reseno globalni promenou SpojeniDB=3Dfalse;=20
end
end
potom procedura Timer1
begin
try
If connected:=3Dtrue
then
begin
SpojeniDB=3DTrue; timer1=3Dfalse;// a dalsi moznosti napriklad start transakce apod. Ale ja pouzivam=20
transakce bud spojene s dotazem, nebo s datasetem, takze je otviram a=20
zaviram az je to nezbytne nutne. Nemam je otevrene neustale.
end; finally
end;
end
S pozdravem Rosta Danhel
> procedure TForm.Test;> begin
> try
> IBQuery.Active:=3DFalse;> IBQuery.Active:=3DTrue;> except
> on E: Exception do begin
> IBDatabase.ForceClose;> ShowMessage(E.Message);> IBDatabase.Connected:=3DTrue;> IBTransaction.Active:=3DFalse;> end;> end;> end;>=20
> Tuhle proceduru volam po ShutDown Interbase.> Pri ShowMessage ji zase nahodim.> Nakonektovani probehne v poradku, ale ten dalsi radek
> (zavreni nejake transakce predtim otevrene) hodi tu chybu
> "Invalid transaction handle (expecting explicit transaction start)"> Co delam spatne?>=20
>=20
--------------------
Centrum(tec)cz P=F8ipojen=ED - P=F8ipojte se k internetu bez =E8ek=E1n=ED a=
zdarma! http://pripojeni.centrum(tec)cz
Ztrata konektivity IB/FB
[*] <rdanhel(zv)centrum(tec)cz> - 17.3.2003 11:23:15
______________________________________________________________
Osobne bych to resilt trosku jinak
Po ztrate komunikace zavolal jenom ForceClose coz by melo zajistit=20
vypnuti vsech coonnectu a zavreni vsech transakci i kdyz byly aktivni.=20
Dle meho nazoru. To znamena ze nejake dalsi False a tru po closnui=20
connetu neni potreba.
Jak zjistis Shutdown databaze? To volas v nejake vyjimce?
Moje reseni
Procedure PracesDB
BEGIn
try
//nejaka prace s DB a kdyz to vyltne do vyjimky tak je dole=20
server napriklad
except
ForceClose; //zavreni DB a vsech transakci, uvedeni aplikace do=20
klidu a cekani na nahozeni serveru
timer1.enabled=3Dtrue; //start timeru na pripojovani
//plus meli by se nejak zakazat vsechny akce na databazi, ja to=20
mam reseno globalni promenou SpojeniDB=3Dfalse;=20
end
end
potom procedura Timer1
begin
try
If connected:=3Dtrue
then
begin
SpojeniDB=3DTrue;
end; finally
end;
end
> procedure TForm.Test;> begin
> try
> IBQuery.Active:=3DFalse;> IBQuery.Active:=3DTrue;> except
> on E: Exception do begin
> IBDatabase.ForceClose;> ShowMessage(E.Message);> IBDatabase.Connected:=3DTrue;> IBTransaction.Active:=3DFalse;> end;> end;> end;>=20
> Tuhle proceduru volam po ShutDown Interbase.> Pri ShowMessage ji zase nahodim.> Nakonektovani probehne v poradku, ale ten dalsi radek
> (zavreni nejake transakce predtim otevrene) hodi tu chybu
> "Invalid transaction handle (expecting explicit transaction start)"> Co delam spatne?>=20
>=20
> ----- Original Message -----
> ______________________________________________________________
>=20
> Pouzivam to v nekolika aplikacich ktere museji bezet trvala. Mam to
> ale postavene na FibPlus komponentach kde je tento stav osetren
> eventem. Ale ten event nenastane v okamziku kdy se provede odpojeni
> databaze ale az v okamziku kdy aplikace provede dotaz. APlikace pak
> dokaze provest reconnect automaticky.>=20
>=20
>=20
>=20
> U IBX komponent se to da take docilit tim ze se odchyti vyjimka
> neuspesneho dotazu a provede se po ni tvrde zavreni ForceClose cele
> databaze . Nasledne na timer nebo jinou opakujici se cinnost je=20
nutno
> zjistovat jestli uz je server nehozeny napriklad pomoci connected a
> kdyz nevyhodi chybu tak je vsechno aktivni a aplikace muze=20
pokracovat.>=20
>=20
>=20
>=20
> Jediny problem ktery toto znovu pripojeni skyta jsou IBeventy ktere=20
v
> komponente FibPlus nedari radne odpojit u IBX je to v poradku.>=20
>=20
>=20
>=20
>=20
>=20
> > Ahoj, neresil jste uz nekdo ztratu spojeni s IB/FB?> > spojeni testuju pomoci IBDatabase.TestConnected a pri odpadle
> >konektivite
> > jsem si myslel, ze budu spojeni automaticky znovu navazovat, jenze
> >pri
> > zavirani aktivni transakce (IBTransaction.Active:=3DFalse) to spadn=
e
> >na
> > "Invalid transaction handle (expecting explicit transaction start)
"> >> > nev=EDte n=ECkdo jak se znova bez chyb nakonektovat a znova=20
nastartovat
> > transakci?> >> > David
>=20
>=20
>=20
>=20
>=20
>=20
>=20
>=20
>=20
--------------------
Centrum(tec)cz P=F8ipojen=ED - P=F8ipojte se k internetu bez =E8ek=E1n=ED a=
zdarma! http://pripojeni.centrum(tec)cz
IB/FB a cas ze serveru
[*] Jan Sebel�k <honza(zv)haes(tec)cz> - 17.3.2003 10:31:25
> Odes=EDlatel: Tomas Uldrich <tomas.uldrich(zv)centrum(tec)cz>
> Prechazim z MSSQL na FB a na FB mi chybi funkce, ktera vraci datum ze=20
> serveru. U MSSQL to bylo getdate().
> Je neco podobneho u FB? V dokumentaci jsem nic nenasel :(
Melo by fungovat DATE, TIME, NOW.
Honza
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
=3D HAES - RNDr. Jan Sebelik
=3D http://www.haes(tec)cz
=3D Skolici a konzultacni stredisko pro Delphi a Win32
=3D Vojtiskova 206
=3D 507 81 Lazne Belohrad
=3D tel. 493 792 931 (mobil 776 347735)
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
Variant array is locked
[*] delphin <delphinPP(zv)seznam(tec)cz> - 17.3.2003 11:06:46
Zdar !
.. urobil som si COM kniznicu, z pokusnej aplikacie volam nejaku jej metodu.
Na mojom PC (W2k,D6 Ent SP2) to v pohode bezi, na kolegovom (W2k,D5 Ent) to
vyhuci na subj., kde moze byt problem ?
.. videl som nedavno podobny prispevok - skusal som preto pridat do
spustacieho adresara D6 verziu midas.dll.. na kolegovom PC to aj tak pada..
Dik za kazdu radu...
Tlacitko v menu baru
[*] Jan Harman <harman(zv)volny(tec)cz> - 17.3.03 11:03:05
Ahoj, nakreslit neco do menu baru umim, ale potreboval bych tam
umistit i tlacitko (Close "X"). Pouzivam aplikaci FullScreen bez
Border. Poradite nekdo neco?
Moc dik. (D5, W98)
Honza.
--
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/mailpaid/
FB - vadi caste zmeny metadat
[*] <semera(zv)fofrs(tec)cz> - 17.3.2003 10:59:58
Pred casem jsem v nouzi poslal jedne firme script, ktery si vytvoril
proceduru , provedl nejake UPDATE dat , vypsal vysledek, a sam se zase
smazal.=20
=A0
Byla to jednorazova akce, ale ted jsem zjistil ze ji provadeji pomerne
casto.
=A0
Pocet zmen v tabulce je omezen, ale jak SP. Je to pouze zapis do
RDB$PROCEDURES a RDB$PROCEDURE_PARAMS nebo se zmeni jeste neco?
=A0
Analogicky CREATE TABLE EXTERNAL FILE, nasledne DROP TABLE? ( Export dat
do souboru )=20
=A0
Diky moc=20
Josef Semera =A0
grafika do vlastniho programu
[*] koukal <koukal(zv)petrkoukal(tec)cz> - 17.3.2003 10:41:35
> Dobry den.Mel bych dotaz.Potreboval bych na plochu sveho formu dostat
> nejakej vlastni obrazek a vlastni tlacitka.Proste si chci udelat
> aplikaci podle sveho vlastniho gusta a nepouzivat fadni klasiku z
> windows.Mohlo by to byt i skinovatelne ale neni to podminkou.Diky za
> kazdou radu.
> Petr
>
Dobry den !
Problem lze resit takto :
1. Vytvorit si vlastni komponenty.
2. Na form dat image a v ni kreslit ( vytvorit si vlastni graficke objekty).
3. Property form.canvas a kreslit ( vytvorit si vlastni graficke objekty).
*** pro bod 2, 3 je nutno resit obnoveni pomoci udalosti onpaint, onresize, onshow... ***
Petr Koukal
RE[3x]: Re: Jak na DBLookupComboBox s cilem .Text:
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 17.3.2003 10:50:08
> ten text a poslat ho na neexistujici id konci
> chybou (napr. KeyValue:=-1 a 0 uz je prvni zaznam
> tabulky)
> Takze porad trva problem co s tim...
Jeste me napada - KeyValue je variant. Nepomohlo by mu priradit
hodnotu null, pripadne Unassigned? Nemuzu to vyzkouset, ale zkus
to... Tj. KeyValue := null; apod.
MetaFile a tisk
[*] koukal <koukal(zv)petrkoukal(tec)cz> - 17.3.2003 10:47:35
> Zdravim vsechny!
> Mohl byste mi nekdo vysvetlit nasl.vetu?
> "Vytvorte metasoubor pouzitim handlu tiskarny jako referencniho zarizeni."
>
> V podstate mi jde o to,ze ten metasoubor chci pouzit jako nahled na
> tisk.Jestli jsem to pochopil dobre,tak potom budu tisknout ten
> metasoubor,ale vubec nevim jak na to.Proste potrebuju vytisknout grafiku na
> pozadi,presto text a cast textu jeste rotovat o 90/270stupnu...Pokud
> existuje lepsi nebo jednodussi reseni,budu jen rad...
>
> Pokousel jsem se o to pouzitim QuickReportu3,ale mel jsem problemy s
> rozlisenim obrazku v pozadi.
>
> Diky za kazdou radu. HonzaS
>
>
Dobry den!
Na www.builder(tec)cz je serial o tisku.
Zdravim
Petr Koukal
NMFTP - nedochazi nahodou pri spusteni vice instan
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 17.3.2003 10:40:06
> chci se zeptat. M=E1me naprogramovanou aplikaci v Delphi 6, kter=E1 b�=FE=
=ED
> na 2000 serveru. Stahuje automaticky soubory po zadan=E9m =ABasov=E9m
> intervalu z ftp. Obsahuje komponentu NMFTP. Doposud jsme spou=E1t�li
> jedinou instanci aplikace a v=E1e b�=FEelo v pohod�. Byli jsme v=E1ak nu=
ceni
> trochu aplikaci upravit a na z=E1klad� zadan=FDch parametr=EF (ftp adres=
a,
> ftp adres=E1=D9e...) a b�=FE=ED nyn=ED dv� instance. =A6as od=ABasu (cca=
2x t=FDdn�)
> ale jedna z aplikac=ED tot=E1ln� zatuhne a nejde sest=D9elit ani p=D9=ED=
kazem
> kill... Chybu nijak nepdhal=EDme, je to n=E1hodn�... Nev=ED n�kdo, zda j=
e
> komponenta spolehliv=E1, nestalio se n�komu, =FEe by se ovliv=C8ovali,
> aplikace padala nebo n�co podobn=E9ho?
NM komponenty opravdu spolehlive nejsou. ;-)
-- Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
IB/FB a cas ze serveru
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 17.3.2003 10:42:53
Haj hou!
On 17 Mar 2003 at 9:41, Tomas Uldrich wrote:
> Prechazim z MSSQL na FB a na FB mi chybi funkce, ktera vraci datum ze
> serveru. U MSSQL to bylo getdate().
>
> Je neco podobneho u FB? V dokumentaci jsem nic nenasel :(
Napr. kontextova promenna CURRENT_TIMESTAMP nebo CURRENT_DATE.
Ze serveru se da dostat pouze prikazem SELECT, nejlepe ktery cte z tabulky
ktera ma jeden radek. V kazde databazi je takovou tabulkou RDB$DATABASES
(ma vzdy prave jeden zaznam), takze prikaz:
SELECT CURRENT_DATE FROM RDB$DATABASES ;
Je to co potrebujes. Stejny trik lze pouzit na volani dalsich promennych a funkci
jako je GEN_ID() apod.
S pozdravem
Pavel Cisar
Navidenou na Prvni Evropske Firebird Konferenci - Kveten 2003,
Fulda, Nemecko
http://www.firebird-conference.com
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
IB/FB a cas ze serveru
[*] <semera(zv)fofrs(tec)cz> - 17.3.2003 10:34:06
CURRENT_TIME, CURRENT_TIMESTAMP
> Prechazim z MSSQL na FB a na FB mi chybi funkce, ktera vraci datum ze
> serveru. U MSSQL to bylo getdate().
NMFTP - nedochazi nahodou pri spusteni vice instan
[*] <jimysforum(zv)centrum(tec)cz> - 17.3.2003 10:13:58
Ahoj,
chci se zeptat. M=E1me naprogramovanou aplikaci v Delphi 6, kter=E1 b=EC=
=BE=ED=20
na 2000 serveru. Stahuje automaticky soubory po zadan=E9m =E8asov=E9m=20
intervalu z ftp. Obsahuje komponentu NMFTP. Doposud jsme spou=B9t=ECli=20
jedinou instanci aplikace a v=B9e b=EC=BEelo v pohod=EC. Byli jsme v=B9=
ak=20
nuceni trochu aplikaci upravit a na z=E1klad=EC zadan=FDch parametr=F9 =
(ftp=20
adresa, ftp adres=E1=F8e...) a b=EC=BE=ED nyn=ED dv=EC instance. =C8as =
od=E8asu (cca 2x=20
t=FDdn=EC) ale jedna z aplikac=ED tot=E1ln=EC zatuhne a nejde sest=F8el=
it ani=20
p=F8=EDkazem kill... Chybu nijak nepdhal=EDme, je to n=E1hodn=EC... Nev=
=ED n=ECkdo,=20
zda je komponenta spolehliv=E1, nestalio se n=ECkomu, =BEe by se=20
ovliv=F2ovali, aplikace padala nebo n=ECco podobn=E9ho?
D=EDky.
Jirka
--------------------
Centrum(tec)cz P=F8ipojen=ED - P=F8ipojte se k internetu bez =E8ek=E1n=ED a=
zdarma! http://pripojeni.centrum(tec)cz
Shutdown aj po lockworkstation
[*] Robert Suska <SuskaR(zv)seznam(tec)cz> - 17.3.2003 10:09:07
Ahojte!
Mam nasledovny problem. Robim program ktory vie vypnut pc po nejakom case a
mam v nom funkciu ktora vie po nejakom case locknut screen na heslo pre Win
NT ... ale!!! Zasadny problem nastava vtedy ze ked mi program lockne screen
a akurat vtedy ma prebehnut operacia shutdown tak neprebehne len prihlasi
usera a dost.... Mal by som jeden napad ako by to asi slo ale neviem ci by
to slo a ak ano tak to neviem zrealizovat. Proste spustit program pod inym
userom napr. System a potom by to slo. Takze ak to takto pojde tak ako
docielim aby som program spustil pod inym userom napr. konkretne pod userom
System.
Dakujem za nakopnutie
Robo
************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
************************************