Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
desetinny oddelovac
[*] Ing. Mgr. Michal =?iso-8859-2?Q?=A9ef=E8=EDk?= <mikese(zv)benefitcz(tec)cz> - 12.6.2001 07:59:23
Volny wrote:
> Please help, zjistil sem ze funkce StrToFloat a FloatToStr pouzivaji
> implicitni oddelovac desetinnych mist windows. Muzete mi nekdo napsat kousek
> kodu jak ho ziskam ? Asi z registru ale s tim neumim.
>
> valik
> ICQ 54152896
Nastaveni oddelovace je ulozeno v systemove promenne DecimalSeparator
Pridani noveho pole tabulky za behu (FF2)
[*] Miroslav Ondrisek <ondrisek(zv)atlas(tec)cz> - 12.6.2001 08:07:33
Ahoj,
pro restrukturalizaci tabulky si precti strany 562-563 manualu, od strany
574 zacinaji prikazy pro zmenu TffDictionary. U te restrukturalizace si
poradne precti poznamky k aFieldMap pro prevod stavajicich dat do nove
struktury.
Pro dotazy k FF2 doporucuji se prihlasit do ceske konference o FF2, take na
serveru clexpert(tec)cz (bezi na nem i tato konf. Delphi).
Dotazy priste prosim bez HTML formatovani
Cau Mira
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Va#ek #erven�
Sent: Friday, June 08, 2001 1:58 PM
To: Delphi konference
Subject: Pridani noveho pole tabulky za behu (FF2)
Ahoj.
Potreboval bych poradit, jak za behu programu pridam nove pole do tabulky
(FlashFiler 2)?
Bez uspechu jsem zkousel:
with ffTableReport.FieldDefs.AddFieldDef do
begin
Name := 'poznamka';
DataType := ftString;
Size:= 255;
Required := False;
end;
Je potreba toto jeste nejak "potvrdit" ve smyslu ffTableReport.CreateTable
?
Nebo to je uplne spatny postup?
Diky za rady
Vasek Cerveny
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.252 / Virov� b�ze: 125 - datum vyd�n�: 9.5.2001
Trigger pro kontrolu vkladane hodnoty
[*] Ing. Mgr. Michal =?iso-8859-2?Q?=A9ef=E8=EDk?= <mikese(zv)benefitcz(tec)cz> - 12.6.2001 08:08:43
Hazuka Filip wrote:
> Ahoj vse.
> Uz nekolik dni se trapim s vytvorenim triggeru, ktery by mel zabranit
> vlozeni hodnoty z ciselniku, kterou uz ale nekdo pred tim smazal a v
> ciselniku v aplikaci jeste je.
>
Nebylo by lepsi ponechat tuto konrolu na nejnizsi mozne urovni a tedy
vyuzit relacnich zavislosti, neco jako:
ALTER TABLE [dbo].[Jmena] ADD
FOREIGN KEY
(
[Funkce]
) REFERENCES [dbo].[CiselnikFunkce] (
[Funkce]
)
GO
Trigger pro kontrolu vkladane hodnoty
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 12.6.2001 08:11:12
> Ahoj vse.
> Uz nekolik dni se trapim s vytvorenim triggeru, ktery by mel zabranit
> vlozeni hodnoty z ciselniku, kterou uz ale nekdo pred tim smazal a v
> ciselniku v aplikaci jeste je.
> Mam jednu tabulku Jmena a ciselnik Funkce. Vypadaji asi nasledovne:
Na trigger bych se vykaslal a pouzil bych deklarativni omezeni
vztahu mezi tabulkami - "constraints" (vazby pomoci primarnich a cizich
klicu)
- ty se postaraji o vsechno za me bez programovani
Keep mailing :-)
=======================
Ing. Hynek Svato#
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================AssignFile -> ? jinak ?
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 12.6.2001 08:23:55
> >> programek je zdouhavy a tim brzdi cely system. Resp.
> >> kdyz pracuje tak uz zadny vyzualni objekt nepracuje
>
> > Zkus Application.ProcessMessages do smycky. Mozna to pomuze.
>
> Keby to robil za kazdym znakom, tak sa nedopocita vysledku:
>
> procedure TForm1.Button1Click(Sender: TObject);
> var i:integer;
> begin
> for i:=1 to 50000 do
> begin
> label1.caption := IntToStr(i);
> if (i mod 5000) = 0 then // kazdy pattisici cyklus
> Application.ProcessMessages;
> end
> end;
>
Ja na taketo ucely zvyknem pouzivat funkciu GetTickCount:
var
CurrentTicks: DWord;
OldTicks: DWord;
const
SynchronizeDelay = 500; // ako casto volat ProcessMessages v
milisekundach (priblizne)
...
pred spustenim slucky nastavim uvodnu hodnotu OldTicks
OldTicks := GetTickCount();
....
A v slucke zistujem:
CurrentTicks := GetTickCount();
if OldTicks + SynchronizeDelay < CurrentTicks then
begin
Application.ProcessMessages();
OldTicks := CurrentTicks;
end;
Ale aj tak, najcistejsie by bolo vytvorit dotycny
exponovany cyklus v samostatnom threade.
Nie je to take narocne, treba si pozriet
priklady z Delphi.
Vlkovic
Ako sa da zmenit tvar hint
[*] Robert Suska <robert(zv)korak.sk> - 12.6.2001 08:42:49
Ako zmenim tvar hintu zo svtorceka na kluzok alebo na nejaky iny obj.
Dakujem
Robo
IP Adress
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 12.6.2001 08:47:25
----- Original Message -----
From: "Pavol Stolc" <pstolc(zv)sc.sknet.sk>
> Vytvoril som komponentu pre zadavanie IP adresy (s pomocou JVCL). Je to
> delphi wrapper systemovej triedy "SysIPAddress32" a je odvodena od delphi
> triedy TWinControl. Ak prelozim kod pod D3 alebo D4 (to prave potrebujem),
> neda sa fokus z tejto komponenty posunut klavesou TAB. V D5 (asi aj D6) to
> funguje. Preco? Je na to vysvetlenie? Suvisi to nejako s VCL? Je to chyba
> prekladaca? Ako to napravit?
Ahoj.
Objevil jsem IMHO zavaznejsi problem, pokud zadavas nektere z cisel kratsi
nez 3 znaky (treba 1 z 192.168.1.5) pak se neda po zadani toho tretiho cisla
prejit na dalsi pozici sipkou doprava, jak je to obvykle ve vsech
formularich co ve Win znam. A hlavne je to neprijemne, protoze pri zadavani
25.25.25.25 musis 3x hrabnout stridave na klavesnici a mys.
Ludek
Cteni operacni pameti
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 12.6.2001 08:59:00
> patrne jde o zapis do adresoveho prostoru ciziho procesu pomoci API
> funkce WriteProcessMemory. To ovsem nema nic spolecneho s pristupem do
> fyzicke RAM, protoze pro aplikace tento pojem neexistuje.
> Petr Vones, amatersky programator
Ahoj,
s tou RAM se omlouvam, myslel jsem na pametovy prostor a psal
jsem neco jineho. Dosud jsem zil v domeni, ze system
(prinejmensim NT a W2k) chrani pamet pridelenou procesu tak,
aby se tam jiny proces nedostal. Docela by me zajimalo, zda
mohu nejak zabranit, aby mi nekdo staral v datech ulozenych v
pameti, nebo je treba takova data v pameti nenechavat polehavat
nezasifrovana.
Jiri Binder
CRC
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 12.6.2001 09:02:45
> P�edm�t: CRC
> nemate niekto nejaku vykonnu a spolahlivu CRC funkciu na
> subory (streamy)
> ????
> Pavol Kaka�ka
Ahoj,
zkus nasledujici unit, pocita CRC32 docela slusnym tempem (poslal bych to
jako prilohu, ale se to nesmi ...).
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
**************************************************************
unit CRC;
(**********************************************************************)
interface
uses
Classes;
(**********************************************************************)
function CalcFile32(Fn : string) : integer;
(**********************************************************************)
implementation
uses
SysUtils;
type
TCRC32 = class(TObject)
public
FCRC : integer;
procedure CRC32_Calc(const Data; DataSize : integer);
end;
(**********************************************************************)
// forwardy
function CalcStream32(const Stream : TStream; StreamSize : integer) :
integer; forward;
function CRC32_COMP(CRC : integer; Data : Pointer; DataSize : integer) :
integer; forward;
(**********************************************************************)
(* CalcFile32
(**********************************************************************)
function CalcFile32(Fn : string) : integer;
var
S : TFileStream;
begin
S := TFileStream.Create(Fn, fmOpenRead or fmShareDenyNone);
try
Result := CalcStream32(S, S.Size);
finally
S.Free;
end;
end;
(**********************************************************************)
(* CalcStream32
(**********************************************************************)
function CalcStream32(const Stream : TStream; StreamSize : integer) :
integer;
const
maxBufSize = 1024 * 4;
var
Buf : Pointer;
BufSize : integer;
Hash : TCRC32;
begin
Hash := TCRC32.Create;
with Hash do
begin
try
Buf := AllocMem(maxBufSize);
FCRC := -1;
if StreamSize < 0 then
begin
Stream.Position := 0;
StreamSize := Stream.Size;
end;
repeat
BufSize := StreamSize;
if BufSize > maxBufSize then
begin
BufSize := maxBufSize;
end;
BufSize := Stream.read(Buf^, BufSize);
if BufSize <= 0 then
begin
Break;
end;
CRC32_Calc(Buf^, BufSize);
dec(StreamSize, BufSize);
until BufSize <= 0;
FCRC := not FCRC;
Result := FCRC;
finally
Free;
ReallocMem(Buf, 0);
end;
end;
end;
(**********************************************************************)
(* TCRC32.CRC32_Calc
(**********************************************************************)
procedure TCRC32.CRC32_Calc(const Data; DataSize : integer); assembler;
register;
asm
PUSH EAX
MOV EAX,[EAX].TCRC32.FCRC
CALL CRC32_COMP
POP EDX
MOV [EDX].TCRC32.FCRC,EAX
end;
(**********************************************************************)
(* CRC32_COMP
(**********************************************************************)
function CRC32_COMP(CRC : integer; Data : Pointer; DataSize : integer) :
integer; assembler;
asm
AND EDX,EDX
JZ (zv)Exit
AND ECX,ECX
JLE (zv)Exit
PUSH EBX
PUSH EDI
XOR EBX,EBX
LEA EDI,CS:[OFFSET (zv)CRC32]
(zv)Start: MOV BL,AL
SHR EAX,8
XOR BL,[EDX]
XOR EAX,[EDI + EBX * 4]
INC EDX
DEC ECX
JNZ (zv)Start
POP EDI
POP EBX
(zv)Exit: RET
DB 0, 0, 0, 0, 0 // Align Table
(zv)CRC32: DD 000000000h, 077073096h, 0EE0E612Ch, 0990951BAh
DD 0076DC419h, 0706AF48Fh, 0E963A535h, 09E6495A3h
DD 00EDB8832h, 079DCB8A4h, 0E0D5E91Eh, 097D2D988h
DD 009B64C2Bh, 07EB17CBDh, 0E7B82D07h, 090BF1D91h
DD 01DB71064h, 06AB020F2h, 0F3B97148h, 084BE41DEh
DD 01ADAD47Dh, 06DDDE4EBh, 0F4D4B551h, 083D385C7h
DD 0136C9856h, 0646BA8C0h, 0FD62F97Ah, 08A65C9ECh
DD 014015C4Fh, 063066CD9h, 0FA0F3D63h, 08D080DF5h
DD 03B6E20C8h, 04C69105Eh, 0D56041E4h, 0A2677172h
DD 03C03E4D1h, 04B04D447h, 0D20D85FDh, 0A50AB56Bh
DD 035B5A8FAh, 042B2986Ch, 0DBBBC9D6h, 0ACBCF940h
DD 032D86CE3h, 045DF5C75h, 0DCD60DCFh, 0ABD13D59h
DD 026D930ACh, 051DE003Ah, 0C8D75180h, 0BFD06116h
DD 021B4F4B5h, 056B3C423h, 0CFBA9599h, 0B8BDA50Fh
DD 02802B89Eh, 05F058808h, 0C60CD9B2h, 0B10BE924h
DD 02F6F7C87h, 058684C11h, 0C1611DABh, 0B6662D3Dh
DD 076DC4190h, 001DB7106h, 098D220BCh, 0EFD5102Ah
DD 071B18589h, 006B6B51Fh, 09FBFE4A5h, 0E8B8D433h
DD 07807C9A2h, 00F00F934h, 09609A88Eh, 0E10E9818h
DD 07F6A0DBBh, 0086D3D2Dh, 091646C97h, 0E6635C01h
DD 06B6B51F4h, 01C6C6162h, 0856530D8h, 0F262004Eh
DD 06C0695EDh, 01B01A57Bh, 08208F4C1h, 0F50FC457h
DD 065B0D9C6h, 012B7E950h, 08BBEB8EAh, 0FCB9887Ch
DD 062DD1DDFh, 015DA2D49h, 08CD37CF3h, 0FBD44C65h
DD 04DB26158h, 03AB551CEh, 0A3BC0074h, 0D4BB30E2h
DD 04ADFA541h, 03DD895D7h, 0A4D1C46Dh, 0D3D6F4FBh
DD 04369E96Ah, 0346ED9FCh, 0AD678846h, 0DA60B8D0h
DD 044042D73h, 033031DE5h, 0AA0A4C5Fh, 0DD0D7CC9h
DD 05005713Ch, 0270241AAh, 0BE0B1010h, 0C90C2086h
DD 05768B525h, 0206F85B3h, 0B966D409h, 0CE61E49Fh
DD 05EDEF90Eh, 029D9C998h, 0B0D09822h, 0C7D7A8B4h
DD 059B33D17h, 02EB40D81h, 0B7BD5C3Bh, 0C0BA6CADh
DD 0EDB88320h, 09ABFB3B6h, 003B6E20Ch, 074B1D29Ah
DD 0EAD54739h, 09DD277AFh, 004DB2615h, 073DC1683h
DD 0E3630B12h, 094643B84h, 00D6D6A3Eh, 07A6A5AA8h
DD 0E40ECF0Bh, 09309FF9Dh, 00A00AE27h, 07D079EB1h
DD 0F00F9344h, 08708A3D2h, 01E01F268h, 06906C2FEh
DD 0F762575Dh, 0806567CBh, 0196C3671h, 06E6B06E7h
DD 0FED41B76h, 089D32BE0h, 010DA7A5Ah, 067DD4ACCh
DD 0F9B9DF6Fh, 08EBEEFF9h, 017B7BE43h, 060B08ED5h
DD 0D6D6A3E8h, 0A1D1937Eh, 038D8C2C4h, 04FDFF252h
DD 0D1BB67F1h, 0A6BC5767h, 03FB506DDh, 048B2364Bh
DD 0D80D2BDAh, 0AF0A1B4Ch, 036034AF6h, 041047A60h
DD 0DF60EFC3h, 0A867DF55h, 0316E8EEFh, 04669BE79h
DD 0CB61B38Ch, 0BC66831Ah, 0256FD2A0h, 05268E236h
DD 0CC0C7795h, 0BB0B4703h, 0220216B9h, 05505262Fh
DD 0C5BA3BBEh, 0B2BD0B28h, 02BB45A92h, 05CB36A04h
DD 0C2D7FFA7h, 0B5D0CF31h, 02CD99E8Bh, 05BDEAE1Dh
DD 09B64C2B0h, 0EC63F226h, 0756AA39Ch, 0026D930Ah
DD 09C0906A9h, 0EB0E363Fh, 072076785h, 005005713h
DD 095BF4A82h, 0E2B87A14h, 07BB12BAEh, 00CB61B38h
DD 092D28E9Bh, 0E5D5BE0Dh, 07CDCEFB7h, 00BDBDF21h
DD 086D3D2D4h, 0F1D4E242h, 068DDB3F8h, 01FDA836Eh
DD 081BE16CDh, 0F6B9265Bh, 06FB077E1h, 018B74777h
DD 088085AE6h, 0FF0F6A70h, 066063BCAh, 011010B5Ch
DD 08F659EFFh, 0F862AE69h, 0616BFFD3h, 0166CCF45h
DD 0A00AE278h, 0D70DD2EEh, 04E048354h, 03903B3C2h
DD 0A7672661h, 0D06016F7h, 04969474Dh, 03E6E77DBh
DD 0AED16A4Ah, 0D9D65ADCh, 040DF0B66h, 037D83BF0h
DD 0A9BCAE53h, 0DEBB9EC5h, 047B2CF7Fh, 030B5FFE9h
DD 0BDBDF21Ch, 0CABAC28Ah, 053B39330h, 024B4A3A6h
DD 0BAD03605h, 0CDD70693h, 054DE5729h, 023D967BFh
DD 0B3667A2Eh, 0C4614AB8h, 05D681B02h, 02A6F2B94h
DD 0B40BBE37h, 0C30C8EA1h, 05A05DF1Bh, 02D02EF8Dh
DD 074726F50h, 0736E6F69h, 0706F4320h, 067697279h
DD 028207468h, 031202963h, 020393939h, 048207962h
DD 06E656761h, 064655220h, 06E616D64h, 06FBBA36Eh
end;
(**********************************************************************)
end.
Pouziti seriove linky z Delphi
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.6.2001 09:19:54
> > > Nemusi a casto ani nie je, viz napr. Centronix. Nie je tam ziadna
> > > synchronizacia a funguje.
> >
> > To je vtip ? Na co jsou potom signaly jako ACK, STROBE, BUSY ?
>
> Pozor, to su riadiace signaly, nie synchronizacne. Asynchronna komunikacia
> tiez byva riadena (napr. riadena vysielacom, prijimacom, handshake).
Takze RAMka v PC s CPU take komunikuje asynchronne :-)
D> Toman
Pouziti seriove linky z Delphi
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.6.2001 09:22:22
> Ty si mylis riadenie so synchronizaciou. Zober si klopny obvod napr. 7474.
> Je to synchronny klopny obvod typu D. Preco je KO synchronny? Pretoze
> je tam hodinovy vstup C a udaj na vstupe D sa prepise na vystup az
> vzostupnou hranou signalu C
Pokud tedy bude tiskarna vybavena na vstupu klopnym obvodem a na jeho CLK
vstup se privede _STROBE_ z PC bude komunikace podle tebe synchronni?
D> Toman
Pouziti seriove linky z Delphi
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.6.2001 09:35:03
> Ano, zda sa mi, ze tato definicia (aspon doposial) najlepsie vystihuje
> podstatu synchronnej komunikacie. Synchronna komunikacia je
> RIADENA synchronizacnym signalom v tom zmysle, ze sychronizacny
> signal presne urcuje, kedy moze ku komunikacii dojst. Typicky
> priklad procesor-pamet. Komunikacia je riadena hodinovym signalom
> (CLK).
>Ku komunikacii dojde povedzme LEN pri nabehu CLK signalu.
> Plus samozrejme musia byt splnene aj dalsie podmienky, nepodstatne
> z hladiska synchronizacie, napr. aktivny signal citania (RD) alebo zapisu
> (WR) do pameti a pod. Cize nestaci len nastavit signal RD alebo WR
> na rozdiel od asynchronnej komunikacie.
No jestli mas ve svem pocitaci statickou ramku tak zrejme pouzivas ZX-81cku
:-)
D. Toman
Trigger pro kontrolu vkladane hodnoty
[*] Ladislav Nagy <delphi-konference(zv)bcpraha(tec)com> - 12.6.2001 09:57:36
Zdravim,
v triggeru pocitas se zmenou prave jednoho zaznamu. Mozna, ze v tomto
pripade tomu tak v aplikaci je.
Obecne dororucuji delat triggery na aplikaci nezavisle, tedy pocitat s tim,
ze uzivatel mohl zmenit vice zaznamu.
Pokud se Ti do toho nechce, tak alespon v triggeru osetruj, ze kdyby cirou
nahodou jich zmenil vic, tak posli aplikaci z triggeru vyjimku a aplikace at
provede co chce, treba rollback.
Dale bych Ti doporucil tabulku CiselnikFunkce rozsirit o umele ID_Funkce a
do tabulky Jmena ukladat ID_Funkce a ne Funkce.
Trigger bych resil nasledujicim zpusobem:
CREATE TRIGGER [KontrolaFunkce] ON [Jmena]
FOR INSERT, UPDATE
AS
BEGIN
IF (0 < (select count(*)
from inserted left outer join CiselnikFunkce on
(inserted.Funkce = CiselnikFunkce.Funkce)
where CiselnikFunkce.Funkce IS NULL))
RAISERROR ('Nelze vkl�dat funkci, kter� neexistuje v ��seln�ku', 16,
1)
-- Klient at se rozhodne co s tim a zavola treba Rollback
END
S pozdravem, Lada
_______________________________________________
Mgr. Ladislav Nagy
Baader Computer, Hradebn� 287/22, 370 01 C. Budejovice
Tel.: +420-38-6354553,-4; Fax: +420-38-6354556
Baader Computer, Sokolsk� 66, 120 00 Praha 2
Tel.: +420-2-24941962,-3; Fax: +420-2-24942564
Mobil: +420-606-612717
OLEEE, OLE a excel na pozadi,zmena barvy,pisma atd
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 12.6.2001 10:15:20
Ahoj kluci potrebuju za pomoci OLE vytvorit dokument v excelu, a ted dotazy.
At uz to mam v kupe. Nevim jak:
1)Spustit a ulozit xls na pozadi.
2)Zmenit pismo co to tucnosti alespon,to by stacilo,ale bodla by se i barva
a velikost(Word i Excel)
3)Zkousel jsem hledat help ve wordu ale nejak jsem nebyl uspesnej, ci lepe
receno mam tucha ze W a Excel2000 ma ten visual basic trochu jinej,nebo mu
proste nerozumim...muzete me nakopnout?(obrazne)
4)Nasel jsem ve stary konferenci zaznam o pridavani dalsiho textu,ale nejak
jsem ho nepochopil....
5)Jo a jak pridam dalsi sesit do dokumentu Excel?
6)Nevim co mam pri createoleobject pouzit v excelu zda
excel.application,nebo excel.sheet,jak jsem browsil registry tak si nejsem
jistej....neco mi rika ze bude potreba application...
NERIKAM ZE VSECHNO TOHLE POTREBUJI HNED ALE CHCI TO POCHOPIT
KOMPLEXNE,NEHLEDE K TOMU ZE BYCH SE NA TO ZA PAR DNI STEJNE URCITE
ZEPTAL....A PAK DOUFAL JSEM ZE SE TU OBJEVI NEJAKEJ ZAPOMENUTEJ OLE BUH CO
TO NAM TUPCUM (tedy me tupcovi budu mluvit za sebe) KONECNE VYSVETLI
Aldik Pavel alias Talpa (amater ale snazivej D5 Ent W98)Zatuhnuti DELPHI
[*] Bednar��k Dalibor - 12.6.2001 10:23:06
Ahoj,
nainstaloval jsem si delphi a po spusteni mi zatuh
ne. Zustane to viset hned na LOGU Delphi.
Mam to na poci
taci Pentium, 64MB, Win98.
Nevite nekdo co s tim?
Di
k
Dalibor
Cim by mohlo vznikat Cannot focus a disabled or wi
[*] Kru��k Tom������+�8��k)�g���� - 12.6.2001 10:40:57
Ahoj
chtel jsem se zeptat jestli nekdo nevi cim by mohla byt zpusobena hlaska
"Cannot focus a disabled or invisible window".
Hlasi mi ji aplikace pri provadeni POST do Interbase pripojen� z AppServeru
pomoci DCOMConnection. Tesne pred tim POST je proveden OPEN, INSERT a
prirazeni hodnot do jednotlivych Fields.
Pricemz jedine komponenty na jsou ClientDataSet, DataSource a
DCOMConnection. a form je normalne viditelny.
S pozdravem / Best regards
Tomas KRUZIK
(CZECH REPUBLIC)
e-mail: t.kruzik(zv)msp.mesit(tec)cz
tkruzik(zv)atlas(tec)cz
Cellular: 0603-947060
ICQ: 99789730
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.260 / Virov� b�ze: 131 - datum vyd�n�: 6.6.2001
Cim by mohlo vznikat Cannot focus a disabled or wi
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 12.6.2001 11:00:17
S databazou to nema nic spolozne. (Aspon nie priamo) Tato hlaska sa ukazuje
ked sa snazis nastavit fokus na okno (prvok) ktory ho v danu chvilu nemoze
prijat. Dost casto sa to stava pri pouziti:
if AnyComponent.CanFocus then
AnyComponent.SetFocus
kde v urcitych pripadoch funkcia CanFockus vrati spatnu hodnotu!!! - chyba
VCL Da sa to opravit.
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
----- Original Message -----
From: "Kru��k Tom�#" <t.kruzik(zv)msp.mesit(tec)cz>
>chtel jsem se zeptat jestli nekdo nevi cim by mohla byt zpusobena hlaska
"Cannot focus a disabled or invisible window".
Hlasi mi ji aplikace pri provadeni POST do Interbase pripojen� z AppServeru
pomoci DCOMConnection. Tesne pred tim POST je proveden OPEN, INSERT a
prirazeni hodnot do jednotlivych Fields.
Pricemz jedine komponenty na jsou ClientDataSet, DataSource a
DCOMConnection. a form je normalne viditelny.
Jak odstrelit neaktivniho uzivatele od IB
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 12.6.2001 11:11:41
Ahoj,
prave resim problem s "odstrelovanim" neaktivnich uzivatelu od
databaze. napr. uzivatele, ktery uspi masinu se spustenou
aplikaci pripojenou k IB a s otevrenym zaznamem a odejde domu.
Neaktivni aplikaci nejak zjistim, i kdyz i zde je problem s tim, ze
jeden uzivatel muze byt prihlasen vicekrat. Nevim vsak jak ho
odpojit od IB a jeste lepe jak mu navic uzavrit i aplikaci. Jedine co
me napadlo je, aby se na klientovi spolu s aplikaci vzdy spoustel
dalsi program - hlidac, ktery by pravidelne kontroloval zda neni
uzivatel na odstrel a v kladnem pripade by se pokusil aplikaci
uzavrit.
Nejde mi o reseni typu nepouzivat data-aware komponenty,
protoze je temer nepouzivam, ale stejne potrebuji, aby v nekterych
situacich provadel urcite operace se zaznamem pouze jeden
uzivatel.
Pokud by se nekdo chtel podelit o nejaky osvedceny postup, tak
predem dekuji.
Jiri Binder
Ako sa da zmenit tvar hint
[*] T. Hejduk <tommasini(zv)atlas(tec)cz> - 12.6.2001 11:15:23
Ahoj
najdi si stranku www.torry.net
a spust vyhledavani - klicove slovo HINT.
je tam komponenta "FormBtnHint v.1.01".
Tomas Hejduk
-----Original Message-----
Ako zmenim tvar hintu zo svtorceka na kluzok alebo na nejaky iny obj.
Dakujem
Robo
Zatuhnuti DELPHI
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 12.6.2001 11:52:57
To vypada na graficku kartu, aku mas? Skus si vypnut hardwarovu podporu.
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
----- Original Message -----
From: Bednar��k Dalibor
>nainstaloval jsem si delphi a po spusteni mi zatuhne. Zustane to viset hned
na LOGU Delphi.
>Mam to na pocitaci Pentium, 64MB, Win98.
>Nevite nekdo co s tim?Ako sa da zmenit tvar hint
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 12.6.2001 11:53:59
From: "Robert Suska" <robert(zv)korak.sk>
> Ako zmenim tvar hintu zo svtorceka na kluzok alebo na nejaky iny obj.
Asi tak ze si napises vlastny :) . Pozri sa THintWindow.
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
Zatuhnuti DELPHI
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 12.6.2001 12:03:29
To se mi stavalo, kdyz jsem mel nejakou ulohu zavislou na Engine, ktery nebyl nastartovan - myslim tim databazovy stroj pro FF.
Pavel
Ahoj,
nainstaloval jsem si delphi a po spusteni mi zatuhne. Zustane to viset hned na LOGU Delphi.
Mam to na pocitaci Pentium, 64MB, Win98.
Nevite nekdo co s tim?
Dik
Dalibor
Systemove prostredky
[*] Danny <delphiforum(zv)atlas(tec)cz> - 12.6.2001 12:06:59
Asi tak 8 PageControlu (ruzne v sobe) a pak hromadu comboboxu, editboxu,
radiogroupu, labelu, pak asi 5x Image ... fakt nic nestandardniho nebo
zbesilyho. Ten novej formular je dost podobnej tem predchozim a vlastne
vychazi i ze stejnyho predka, takze to opravdu nechapu. Behem aplikace se
vzdy otevre pouze jeden formular. Jsou to totiz jakesi ovladace pro urcita
zarizeni a podle toho, ktere je ke compu pripojene, tak se otevre prislusny
formular. Komunikaci se zarizenim pres seriovou linku zajistuje prave
predek, takze to je u vsech ovladacu stejne.
Nemam sebemensi poneti, proc to dela problemy.
A bohuzel z meho popisu nebude asi nikdo moc moudry
Za kazdou pripominku ale dekuju.
Danny
> From: "Danny" <delphiforum(zv)atlas(tec)cz>
> > mam aplikaci, ktera doposud behala uplne normalne. Pridal jsem
> dalsi Form a
> > najednou klesly systemove a uzivatelske prostredky o 30% na 1 - 7% !!!
>
> Ahoj,
>
> a co jsi na ten formular dal ?
>
> Petr Vones, amatersky programator
>Export z DB do Excelu (Rozvijej se poupatko!)
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 12.6.2001 12:08:11
Dobry ja bych chtel,ale jestli jsem to dobre pochopil radeji OLE,jiz jsem
neco vypotil,ale jeste mi prozradte,nejsou macra (visual basic) ve Word2000
a Excel2000 jiny nez Word95,Excel95?Jak je to s univerzalnosti?
Aldik Pavel alias Talpa (amater ale snazivej D5 Ent W98)
----- Original Message -----
From: Erik Salaj <winsoft(zv)stonline.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, June 11, 2001 4:15 PM
Subject: Re: Export z DB do Excelu
> > Ahoj kluci muzete mi nekdo ukazat jak exportujete data z databaze do
> > excelu?Vubec nevim jak na to Diky
>
> http://www.cybermagic.co.nz/winsoft/adofaq.htm#Q3.5
>
> Erik
>
>
>
Rotace obr�zku
[*] Peter Surovy <surovy(zv)home.sk> - 12.6.2001 11:10:20
Zdravim ja mam tuto proceduru a funguje perfektne pre vsetky kvadranty:
procedure RotatePt(PX, PY: Double; Angle: Double; var X, Y: Double);
var TempX, TempY: Double;
begin
TempX := (X - PX) * Cos(Angle) - (Y - PY) * Sin(Angle);
TempY := (X - PX) * Sin(Angle) + (Y - PY) * Cos(Angle);
X:= TempX + PX;
Y:= TempY + PY;
end;
kde [PX; PY] jsou souradnice stredu otaceni, Angle je uhel otaceni (v
radianech), [X; Y] souradnice otaceneho bodu.
----- Original Message -----
From: "Michal K�rka" <kurkami(zv)volny(tec)cz>
To: "Delphi Konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, June 10, 2001 4:54 PM
Subject: Rotace obr�zku
> Dobr� den,
> pot�ebuji poradit, zda nezn�te n�jakou #ikovn�j#� cestu, jak rotovat body
> na obr�zku o libovoln� �hel. Procedura, kterou jsem s�m vytvo�il mi
p�ipad�
> p�inejmen#�m pon�kud t��kop�dn�.
>
> D�ky za ka�dou radu
> Mike
>
> type tbody = array of tpoint;
> ...
> procedure rotace(var body: tbody; otoceni: integer);
> var bod: integer;
> c, uhel: real;
> begin
> for bod := 0 to high(body) do
> with body[bod] do
> begin
> c := sqrt(sqr(x) + sqr(y));
> if c > 0 then
> begin
> uhel := arccos(x / c);
> uhel := uhel + degtorad(otoceni);
> if (x < 0) and (y < 0) then uhel := uhel + pi / 2;
> if (x > 0) and (y < 0) then uhel := uhel - pi / 2;
> if (x < 0) and (y > 0) then uhel := uhel - 2 * pi;
> x := round(c * cos(uhel));
> y := round(c * sin(uhel));
> end;
> end;
> end;
>
>Zatuhnuti DELPHI
[*] "Petr Slab�"����V#���#����j�� - 12.6.2001 12:18:00
Me se to stavalo, kdyz jsem mel video kartu s S3 chipem. Bylo nutno
snizit akceleraci videa v nastaveni windows.
Petr
>*********** REPLY SEPARATOR ***********
>
>On 12.6.2001 at 12:03 Pavel ZIDEK wrote:
>To se mi stavalo, kdyz jsem mel nejakou ulohu zavislou na Engine, ktery
>nebyl nastartovan - myslim tim databazovy stroj pro FF.
>Pavel
>
>Ahoj,
>nainstaloval jsem si delphi a po spusteni mi zatuhne. Zustane to viset
>hned na LOGU Delphi.
>Mam to na pocitaci Pentium, 64MB, Win98.
>Nevite nekdo co s tim?
>
>Dik
>
> Dalibor
Pouziti seriove linky z Delphi
[*] Erik Salaj <winsoft(zv)stonline.sk> - 12.6.2001 12:24:45
> Ale vzdyt tvuj argument moji tezi nijak nevyvraci! jeden pocitac je
> synchronni s CLK signalem, druhy pocitac je sychronni s tim samym
> CLK signalem. Jsou synchroni s tim SIGNALEM, ne vzajemne na sobe.
Dva synchronne systemy ak su synchronne s tym istym CLK signalom,
tak SU voci sebe synchronne. To je vlastne dovod toho spolocneho
CLK signalu - synchronizovat vsetky subsystemy na neho pripojene.
Synchronny system je napriklad orchester. Su tam hudobnici, hrajuci
na hudobne nastroje a je tam jeden dirigent, ktory udava takt.
Vysledkom je, ze hudobnici hraju rovnakym tempom urcovanym
dirigentom (nie kazdy svojim) a ta skladba sa da pocuvat.
Podobne aj komunikacia je synchronna vtedy, ked je nejaky
"dirigent" na ktoreho pozera vysielac aj prijimac a komunikacia
mezi nimi je taktovana tymto "dirigentom". Napr. si pozri ako
je to v pripade USARTU (ked uz si ho spominal) pri synchronnej
komunikacii. Takymto "dirigent-om" je v pripade USART-u 8251
signal SYN. Casto sa synchronizacny signal oznacuje aj CLK
alebo C.
Erik
Zatuhnuti DELPHI
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 12.6.2001 12:28:57
no, todle delalo kolegini v 16-bitove grafice. teda jako nastavenej
rezim hicolor. pomohlo nastavit truecolor. zkus to, mozna...
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/RadioGroup
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 12.6.2001 12:28:23
Ja myslim, ze jde. Nekde jsem to videl. Ted nevim stranku, ale az budu doma
tak ti ji poslu.
Filip
> Ahoj,
>
> zakazat pouze nejakou polozku v RadioGroup asi nejde, co?
>
> Danny
ZEOS komponenty
[*] Tomas Vida <vida(zv)uniware(tec)cz> - 12.6.2001 12:54:05
Toto je zprava ve formatu MIME obsahujmcm vmce hastm.
Dobry den,
je zde nekdo, kdo ma zkusenosti se ZEOS komponentami?
Dekuji
tomas
---
Tomas Vida
Uniware s.r.o., Purkynova 6, Ostrava 1
Tel.: 069 - 612 51 47, 611 54 51 ICQ: 14587695
FTP a prikaz LIST
[*] Petr E�ner <petr.esner(zv)atlas(tec)cz> - 12.6.2001 12:57:53
Ahoj,
neuspesne se potykam s parsovanim vysledku prikazu LIST na ruznych FTP
serverech. Neznate nekdo nejaky spolehlivy algoritmus, kterym lze prevest
vystup LISTu na jmena souboru, velikosti atd.? (jde mi jen o UNIXove
servery, ostatni uz jsem jakz takz rozchodil)
Nic jsem nikde nenasel a nektere servery vraci vyslovene svincik, ted se
treba jeden rozhodl vracet jmena mesicu v cestine takze moje rozpoznavani
podle jmen mesicu v ang. je opet k nicemu :-(
Predem diky za nakopnuti
--
Petr E#ner, petr.esner(zv)atlas(tec)cz
ICQ# 105826792
Univerz�ln� free editor pro program�tory:
Programmer's Wizard 2, http://pwiz.hyperlink(tec)cz/IB6 log file servera
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 12.6.2001 12:58:26
Haj hou!
On 11 Jun 2001,, Roland Turcan (RoTurSoft) wrote:
> PC1 (Client) Mon Jun 11 12:14:16 2001
> Control services error 1061
>
> Co znamena to druhe hlasenie, vsetko mi funguje OK a kde najdem popisy
> tychto kodov chyb.
Tento kod nema nic spolecneho s IB samotnou, ale s Windows
services. Odpoved tedy treba hledat v MSDN.
Hodne zdaru
Pavel Cisar <pcisar(zv)borland(tec)cz>
Borland s.r.o.IB6 log file servera
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.6.2001 13:29:31
> PC1 (Client) Mon Jun 11 12:14:16 2001
> Control services error 1061
>
1061 = ERROR_SERVICE_CANNOT_ACCEPT_CTRL
nekdo chtel neco po nejake sluzbe a ta nebyla schopna zpracovat dany
pozadavek (zeby nemala registrovany CTRL handler ??)
D. Toman
FTP a prikaz LIST
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.6.2001 13:51:48
> neuspesne se potykam s parsovanim vysledku prikazu LIST na ruznych FTP
> serverech. Neznate nekdo nejaky spolehlivy algoritmus, kterym lze prevest
> vystup LISTu na jmena souboru, velikosti atd.? (jde mi jen o UNIXove
> servery, ostatni uz jsem jakz takz rozchodil)
no podle mych zkusenosti existuje nekolik rozsirenych typu listingu a
nezbyva nez napsat nejaky vice ci mene inteligentni parsovac a ladit a
ladit.
> Nic jsem nikde nenasel a nektere servery vraci vyslovene svincik, ted se
> treba jeden rozhodl vracet jmena mesicu v cestine takze moje rozpoznavani
> podle jmen mesicu v ang. je opet k nicemu :-(
Ja rozlisuju techto 7 typu (pokud evidujes neco vyznamneho jineho dej
vedet):
// Type 1
//STANDARD UNIX and Microsoft FTP
//drwxrwxrwx 1 owner group 0 Aug 28 14:41 pokus
//STANDARD UNIX and Type 1
//Microsoft FTP var 2
//d--------- 1 owner group 0 Sep 23 1996 deskapps
// Type 2
//ftp.firstnet(tec)cz DIRECTORY (nejakej Apple ci co)
//drwxrwxrwx folder 10 Jun 2 14:25 pub
//ftp.firstnet(tec)cz FILE
//-------r-- 0 41909 41909 May 23 18:01 Czechd4.sit
// Type 3
//ftp.firstnet(tec)cz FILE var2
//-------r-- 326 1498614 1498940 Aug 28 1996 FCMAC.sit
//ftp.firstnet(tec)cz DIRECTORY var 2
//drwxrwxrwx folder 4 Oct 7 1996 CzechWeb 1.1 Demo
//TYPE 4 MS IIS 4.0 DOS List FTP
// 05-29-98 01:02PM <DIR> Drivers
// 05-29-98 01:02PM 65254 soubor.txt
//---------------
// TYPE 5 Novell FTP ?
//total 0
//d [R----F--] 0 512 May 25 16:02 directrory
//- [R----F--] 0 6521 May 25 16:05 filename
//-----------------
//AnonFTP - :-( FUJ -> EPLF format
//+i8388621.8451,m893996617,r,s216837,<TAB>qmail-1.02.gz
//+i8388621.92960,m898152230,/,<TAB>precompiled
//
// EPLF Easily Parsed LIST Format
// line zacina vzdy +
// i file identifier (dva file se stejnym id jsou stejne)
// m date = pocet sekund po 1970 GMT
// s size
// / directory (muze byt pouzito CWD)
// r file (muze byt pouzito RETR)
//---------------------
// TYPE 7
//d-------- 2 root 512 Jan 6 1997 bin
//d-------- 2 root 512 Jan 2 13:22 xysysy
====
pak jeste musis definovat radky, ktere je treba vzdy ignorovat (ruzne Total:
xy, atd)
D. Toman
Ulozenie komponenty z Clipboardu na form v run tim
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 12.6.2001 14:08:38
Mozno ze to co chem je neobvykle ale ja to velmi potrebujem
V run time chcem komponentu ulozit do Clopboard <CTRL-C> a opacne, z
Clipboardu ulozit na form <Ctrl-V>.
Ulozit do Clipboardu ide - to som vyriesil
Problem je z Clipboardu ulozit na form (run time)
Ulozenie komponenty do Clipboardu:
Clipboard.astext:=ComponentToString(Component: TComponent):
Opacne ale to neide.
Nizsie uveden procedury su z helpu:
Za kazdu pomoc dakujem.
function ComponentToString(Component: TComponent): string;
var
BinStream:TMemoryStream;
StrStream: TStringStream;
s: string;
begin
BinStream := TMemoryStream.Create;
try
StrStream := TStringStream.Create(s);
try
BinStream.WriteComponent(Component);
BinStream.Seek(0, soFromBeginning);
ObjectBinaryToText(BinStream, StrStream);
StrStream.Seek(0, soFromBeginning);
Result:= StrStream.DataString;
finally
StrStream.Free;
end;
finally
BinStream.Free
end;
end;
function StringToComponent(Value: string): TComponent;
var
StrStream:TStringStream;
BinStream: TMemoryStream;
begin
StrStream := TStringStream.Create(Value);
try
BinStream := TMemoryStream.Create;
try
ObjectTextToBinary(StrStream, BinStream);
BinStream.Seek(0, soFromBeginning);
Result := BinStream.ReadComponent(nil);
finally
BinStream.Free;
end;
finally
StrStream.Free;
end;
end; Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.tungli.host.sk (NEW SQL REPORT BUILDER)
http://www.nexus.hu/tungli
Ako sa da zmenit tvar hint
[*] Petr E�ner <petr.esner(zv)atlas(tec)cz> - 12.6.2001 14:11:51
Ahoj,
> Ako zmenim tvar hintu zo svtorceka na kluzok alebo na nejaky iny obj.
Musis si vytvorit vlastni okno pro zobrazeni hintu odvozenim od THintWindow
a priradit tvou novou tridu do globalni promenne HintWindowClass.
A co se tyka ruznych tvaru hintu, da se to udelat napr. pomoci regionu a
funkce SetWindowRgn.
Mrkni do napovedy na tema THintWindow ;-)
--
Petr E#ner, petr.esner(zv)atlas(tec)cz
ICQ# 105826792
Univerz�ln� free editor pro program�tory:
Programmer's Wizard 2, http://pwiz.hyperlink(tec)cz/Dispinterface, eventy v COM aplikaci
[*] Kasal V�t <vkasal(zv)ciglersw(tec)cz> - 12.6.2001 14:37:34
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible. Ahoj,
snazim se vytvorit mensi COM aplikaci v Delphi 5. Pri pridani dispinterface
pomoci wizarda prestane projekt byt prelozitelny:
radku v kodu:
TCoMyClass = class(TAutoObject, DispInterface1)
je prirazeno chybov� hlaseni (tykajici se typu DispInterface1):
[Error] Unit2.pas(9): Interface type required
Zna nekdo pricinu potazmo metodu jak problem odstranit?
Dekuji
V�t Kasal
DCOM W2000 - W98
[*] mstevlik(zv)gamo.sk - 12.6.2001 15:27:28
Caute all,
Podarilo sa mi vyriesit prepojenie dvoch masin z W2000 SP2 a teraz by
som potreboval prepojit pomocou DCOM W98SK_2 voci W2000 SP2
Mam vytvoreny Klient.exe kt sa pouziva COM objekt v Server.exe, kt je
umiesteny na tych W2000.
Na oboch masinach sa zabavam z dcomcnfg.exe, ale uz som asi vycerpal vsetky
moznosti :(
Klient.exe mi vypisuje "Interface not supported" i ked mi Server.exe na
W2000 spusti. Klient.exe pouziva fciu CreateRemote s parametrom nazvu
masiny W2000 (skusam zadavat i IP W2000 masiny)
Viete mi niekto napisat, kde moze byt problem, alebo ako nastavit
dcomcnfg na oboch masinach?
Potom by som rad vyriesil i prepojenie dvoch W9X (s nainstalovanou podporou
DCOM a dcomcnfg)
Vopred dik
Stevlik Marian
ISYS-KOM programator
GAMO a.s., Banska Bystrica
+421 88 413 7935, 413 2942
mstevlik(zv)gamo.sk
+421 905 462 010
ICQ: 38493645
desetinny oddelovac
[*] pisingr(zv)volny(tec)cz - 12.6.2001 15:43:29
Desetiny oddelovac jde nastavit takto:
DecimalSeparator:='.';
Toto je nastaveni na tecku.
S pozdravem Pisingr
> Volny wrote:> Please help, zjistil sem ze funkce StrToFloat a
> FloatToStr pouzivaji> implicitni oddelovac desetinnych mist windows.
> Muzete mi nekdo napsat kousek> kodu jak ho ziskam ? Asi z registru ale
> s tim neumim.>> valik> ICQ 54152896Nastaveni oddelovace je ulozeno v
> systemove promenne DecimalSeparator
Pouziti seriove linky z Delphi
[*] Erik Salaj <winsoft(zv)stonline.sk> - 12.6.2001 16:01:02
> Rad se necham poucit, jak lze realizovat proces komunikace bez pouziti
> synchronizacnich prostredku.
Nastuduj si Centronics.
> > To nemas pravdu, prvy UART to asynchronne posle druhy to
> > asychronne prijme.
>
> Mam tomu rozumet tak, ze nezalezi na tom, jestli ten druhy UART detekuje
> zacatek slova ?
Mas tomu rozumiet tak, ze tie UARTY nie su synchronizovane
synchronizacnym signalom.
> > To, co tu nazyvas synchronizaciou je vstup informacie. Ziadna
> > sychronizacia
> > medzi telefonom a ustrednou to nie je.
>
> Ze si jeji existenci neuvedomujes neznamena, ze neni.
Ze si myslis, ze tam synchronizacia je, este neznamena, ze tam aj je.
Ale ak tam je, ukaz kde, pretoze ja ju tam nikde nevidim.
Erik
Pouziti seriove linky z Delphi
[*] Erik Salaj <winsoft(zv)stonline.sk> - 12.6.2001 16:01:47
> > Paralelne rozhranie tlaciarne Centronix je asynchronne.
>
> Jiste :-) A signal _STROBE_ je na nem asi pro srandu kralikum, ne?
Vysvetli mi, ako tymto signalom mozes synchronizovat (riadit) vysielac?
> V STD rezimu portu se nepouziva [pri komunikaci s tiskarnou ani IRQ
(vlastne
> se temer nic necte - krome signalu, kterymi tiskarna hlasi chybove stavy)
> V ECP/EPP rezimu se jiz pouziva IRQ a DMA prenosy - ale komunikace s
> tiskarnou je vzdy silne synchronni - pouzivaja se vzdy nejaky drat jako
> hodiny.
Klasicky Centronics ziadny ECP ani EPP rezim nema. Dnesne paralelne porty
PC-ciek to umoznuju (ale nikde som nevidel nazyvat to Centronics-om,
takze bolo by asi lepsie sa bavit o Centronicse a nemixovat sem nieco ine).
Z Intel dokumentacie zacitujem nieco k ECP:
"ECP is a high performance peripheral interface mode. This mode uses
an asynchronous automatic handshake to transfer data over the parallel
port interface."
Hladal som tam aj "synchronous" ale nikde ani stopa.
> > Myslim, ze aj vecsina ostatnych rozhrani, co spominas je asynchronna.
>
> bavis-li se o rozhranich, musis se na komunikaci divat z jejich pohledu.
Ne
> z pohledu vyssich vrstev (kde muzes rict - sitovka precte packet a pak
> vyvola preruseni (asynchronni udalost)). Z toho pohledu je pravdepodobne
> klasicky Eth synchronni (predpokladam, ze do vysilanych dat je modulovan
CLK
> signal)
Ak tam taka informacia je (nemusi to byt fyzicky extra vodic),
na zaklade ktorej vysielac s prijimacom synchronne komunikuju
tak ano, vtedy takato komunikacia je synchronna.
> > > Asynchronni je napriklad bezna komunikace pres COM PC.
> >
> > No hura, aspon v niecom sa zhodneme (po dlhej a namahavej diskusii).
>
> je asynchronni - ale ne proto, ze radic vyvolava preruseni po precteni
bytu
> (konec koncu to preruseni jde zakazat - pak by to byla podle nekterych
> synchronni linka?? :-) )
Tie prerusenia som spominal v tej suvislosti, ze umoznuju asynchronne
volania v synchronnom CPU. Ako bez preruseni by si v CPU realizoval
asynchronne volanie?
Erik
resulty z OpenDialogu ;cesty k Office
[*] Hurricane <hurricane(zv)quick(tec)cz> - 12.6.2001 17:10:59
Zdravim
Mam OpenDialog a potrebuju nejak zjistovat na ktery cudlik uzivatel kliknul
(jestli Otevri nabo Storno). Vraci tento dialog nejake modalni resulty
podobne jako Application.MessageBox? Jinymi slovy: V procedure nejdriv
otevru dialog a do promene FilNam nasypu FileName z toho dialogu. Ten se pak
zavre a vykonaji se urcite prikazy, ktere pracuji uz jen s tou textovou
promenou FilNam. Problem je prave v tom, ze se to provede, i kdyz uzivatel
dialog stornoval.
-------------------
Tohle jsme nedavno uz psal, ale bud to nedorazilo (mel jsem problemy s
postovnim serverem), nebo jsem to poslal z jine adresy, nebo jsme si toho
nevsimnul:
JAk jsme se nedavno ptal, jak automaticky zjistovat umisteni Office, tak
jsem dosel k tomuto zaveru. Presne to co potrebuji se nachazi v registru v
HKLM\Software\Microsoft\Office\8.0\, polozka BinDirPath. Problem je ale v
tom 8.0 (cislo verze).
Jedno reseni, ktere me napadlo, je nasypat obsah
HKLM\Software\Microsoft\Office\ do StringListu a z nej otevrit ten posledni
(ma nejvyssi cislo). Ale nevim jak, to nasypat do StringListu.
Dalsi reseni, kteremy bych se ale radsi vyhnul, je postupne testovat cisla
jako napr. 10.0, 9.0, 8.0 a 7.0. Akorat ze asi nikdo nevi, jestli MS dava
vsem buildum stejneho Office stejna cisla. (napr. ze by prvni Off97 mely 8.0
a posledni build 8.2). A tak bych vas chtel vsechny poprosit, jestli by jste
mi mohli poslat tohle cislo verze Office, ktere mate v registru (samozrejme
pouze pokud mate office :-) a s tim i obchodni nazev vasi verze (95, 97,
2000, XP, ???). Byl bych vam za to mooc vdecny.
Moje druha otazka zni, nenapada vas jeste nejake jine reseni?
-----------------
A jeste jedna malickost. ToolBar97 i ToolBar2K obsahuje funkce pro nacteni
pozice Toolbaru z registru (ini souboru) pri spusteni programu a jeji
ulozeni pri ukonceni programu . Pouziti je naprosto trivialni a funguje
to super. Pisu to proto, ze uz TB97 pouzivam peekne dlouho a vsiml jsem si
toho az ted. Dost mozna nejsem sam..
----------------
Diky Xkrat kazdemu, kdo poradi
Hurricane
Re[2]: IP Adress
[*] Stanislav PETR <glux(zv)centrum(tec)cz> - 12.6.2001 17:51:18
LZ> Ahoj.
LZ> Objevil jsem IMHO zavaznejsi problem, pokud zadavas nektere z cisel kratsi
LZ> nez 3 znaky (treba 1 z 192.168.1.5) pak se neda po zadani toho tretiho cisla
LZ> prejit na dalsi pozici sipkou doprava, jak je to obvykle ve vsech
LZ> formularich co ve Win znam. A hlavne je to neprijemne, protoze pri zadavani
LZ> 25.25.25.25 musis 3x hrabnout stridave na klavesnici a mys.
Ja to resim tak, ze pisu 025.025.025.025. Jednoduchy a funkcni.Re[2]: IP Adress
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 12.6.2001 18:24:48
----- Original Message -----
From: "Stanislav PETR" <glux(zv)centrum(tec)cz>
> LZ> Ahoj.
> LZ> Objevil jsem IMHO zavaznejsi problem, pokud zadavas nektere z cisel
kratsi
> LZ> nez 3 znaky (treba 1 z 192.168.1.5) pak se neda po zadani toho tretiho
cisla
> LZ> prejit na dalsi pozici sipkou doprava, jak je to obvykle ve vsech
> LZ> formularich co ve Win znam. A hlavne je to neprijemne, protoze pri
zadavani
> LZ> 25.25.25.25 musis 3x hrabnout stridave na klavesnici a mys.
>
> Ja to resim tak, ze pisu 025.025.025.025. Jednoduchy a funkcni.
>
Ahoj.
Ok. Nic proti tomu, ale urcite se shodneme, ze konstruovat komponentu, ktera
ma odlisne chovani nez na ktere muze byt uzivatel z Windowsich dialogu
zvykly ma vyznam jen tehdy, pokud bude jeji ovladani lepsi, intuitivnejsi
nebo bude lepe odpovidat nejakym dalsim souvislostem zpracovani dat na
konkretnim formulari. Proto jsem na problem upozornil.
Ludek
cela databaze jen v pameti
[*] Milan ��ek - 12.6.2001 18:53:07
ahoj,
chci se zeptat, jestli existuje nejaka komponenta typu RxMemoryData, ale pro
vice tabulek. Nejaka takova databaze jen v pameti. Dobry by bylo, kdyby sly
vsechny data vyexportit do jednoho souboru, ale to uz je detail...
Diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Nazev promenne do Stringu
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 12.6.2001 19:07:01
Ahoj kluci,mam aktivni obdobi,takze zas neco,jak prevedu nazev promenne do
stringu?
Mam
Alda:Integer;
X:String;
a potrebuji
X:='Alda';
Aby bylo jasno nejde mi o IntToString!!!!Ale jde mi o ten nazev..
Snad me nekdo pochopi.
Aldik Pavel alias Talpa (amater ale snazivej D5 Ent W98)
Generator
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 12.6.2001 19:50:47
Ahoj kluci jeste neco, potreboval bych neco co by mi zakodovalo heslo a
nasledne rozheslovalo,to heslo v zakodovane podobe by bylo v tabulce a pri
prihlasovani by se rozkodovalo...
Diky
Aldik Pavel alias Talpa (amater ale snazivej D5 Ent W98)Rect focusu u CheckBox?
[*] Milan ��ek - 12.6.2001 19:54:31
ahoj,
nedari se mi zjistit Rect ohraniceni (focusu) u checkBoxu.
CheckBox1.ClientRect je sirsi (jak upravim?). Dalsi problem je, ze fce
Canvas.DrawFocusRect(CheckBox1.ClientRect); mi ten focus vykresli pod ten
checkbox, takze neni vubec videt. :(
Diky.
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Tisk formulare
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 12.6.2001 19:57:06
> chtel jsem se zeptat. Tisknu si Formular pres klasickej
> Form.print
> a presto ze mam nastaveno na formulari treba i white pozadi, tak mi to na
> papir natiskne mirne tmavejsi oblast celeho formulare.
form.brush.style:=bsClear;
Roman
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
TForm.free
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 12.6.2001 20:07:37
> > Jen kratkej dotaz, pokud uvolnim formular pomoci Form.free, uvolni se i
> > vsechny objekty(obrazky, tabulky...) na formulari?
> Ano, uvolni.
btw. radeji pouzij form.release /viz. napoveda TObject.Free :-)/
Roman
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
Generator
[*] brant(zv)dcomm(tec)cz - 12.6.2001 21:09:42
Zcela primitivni a nevhodny, lec fungujici zpusob je tento:
var PswCrypted: string;
PswDecrypted: string;
...precteni PswCrypted z tabulky...
PswDecrypted:='';
for i:=1 to Length(PswCrypted) do
PswDecrypted:= PswDecrypted + chr(ord(PswCrypted[i]) xor 123);
...a je to. Pisu to z hlavy, takze sorry for pripadne errors.
Jo a sifrovani zcela stejne, xor je symetricka funkce.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
ICQ #68652380
D&COMM s.r.o.
Korunova�n� 6
170 00 Praha 7
Ahoj kluci jeste neco, potreboval bych neco co by mi zakodovalo heslo a
nasledne rozheslovalo,to heslo v zakodovane podobe by bylo v tabulce a pri
prihlasovani by se rozkodovalo...
Diky
Aldik Pavel
OT: Je snad C++ Buider smejd???
[*] Miroslav Novosad <mirnov(zv)atlas(tec)cz> - 12.6.2001 21:14:31
Ahoj,
zarazila me jedna z diskusi na serveru Zive
http://www.zive(tec)cz/h/Developerdaily/F.asp?ARI=100484&HID=1
Pripojuji kopii jedne reakce na clanek a reakci na ni. M�l jsem za to,
ze kompilatory Borlandu patri mezi spicku vyvojovych nastroju. Jak to
teda je?
Vim, ze jsou tady i "ceckari". Nemohl by se k tomu nekdo vyjadrit?
Diky.
Miroslav Novosad
mirnov(zv)atlas(tec)cz
Kopie z Zive:
HAHA =================================================
"Tim nechci rici, ze Visual C++ je horsi nez napr. C++ Builder. Naopak,
vysledne aplikace jsou vykonnejsi. Tim mam na mysli napr. narok na
systemove zdroje a pamet, rychlost kodu apod."
HAHA
Re: HAHA ===============================================
Delal sem pokus na schopnost optimalizace ruznejch kompilatoru. Je
opravdu velkej rozdil mezi kompilatorama co kompilujou docela dobre
(Visual C++, Intel C++, GNU C (Cygwin)), tema co optimalizujou trochu
hur (Metrowerks - CodeWarrior) a tema co neoptimalizujou skoro vubec
(Borland C++ a jeste hur Delphi). Pokus sem delal jako vypocet
Mandelbrotu ve fixed a float matematice. Vysledky prvnich 3 byli +/- vo
par procent srovnatelny, Metrowerks byl tak vo 50% pomalejsi a Borland
klidne i 2 - 3x pomalejsi.
Kompilator vod Borlandu pravdepodobne podporuje vic ISO standard C++,
ale co se tyce optimalizaci je to totalni shit. Hral sem si s nastavenim
prekladu u vsech prekladacu dost dlouho a dokumentaci sem cet. Vim, ze
by se nasli jiny testy, kde by vysledek nemusel bejt tak zdrcujici, ale
presto...
Takze: HAHA
===========================================================
Pouziti seriove linky z Delphi
[*] Erik Salaj <winsoft(zv)stonline.sk> - 12.6.2001 21:17:48
> > STROBE ani ACK nie su synchronizacne signaly.
> >
>
> A DATA0..DATA7 nejsou datove vodice.
> _STROBE_ pouzije vysilac (PCcko) k tomu aby oznamilo, ze data na sbernici
> jsou platna - cili se nejedna o synchronizaci?
>
> _ACK_ pouzije tiskarna k tomu, aby rekla, ze data prijala (vysilac tedy
muze
> pokracovat).
Z hladiska komunikacie je synchronizacnym signalom taky, ktory tuto
komunikaciu synchronizuje (t.j. robi ju synchronnou). Teda riadi
rovnako vysielac ako aj prijimac tak, ze si infromacie vymienaju
len v presne urcenych ukamihoch urcenych tymto synchronizacnym
signalom. Ani STROBE ani ACK toto nerobi, takze to NIE SU
synchronizacne signaly z hladiska komunikacie vysielac-prijimac
ale iba riadiace signaly.
Skus si to najprv nastudovat v nejakej odbornej literature a potom
sa o tom bavit. Nezabudni sa pochvalit, az tam najdes napisane nieco,
s cim nemam pravdu (ale aj presne uved v com a kde to je).
Erik
Jak zjisti n�zev po��ta�e ?
[*] Martin Ben <martin.ben(zv)worldonline(tec)cz> - 12.6.2001 21:24:16
function GetComputerName : String;
var
R: TRegIniFile;
begin
R:=TRegIniFile.Create('');
try
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey('System\CurrentControlSet\Control\ComputerName',false);
Result:=R.ReadString('ComputerName', 'ComputerName','?');
R.Free;
except
Result:='?';
end;
end;
Martin Ben
martinben(zv)quick(tec)cz
Export pres OLE do nevizual Excelu
[*] Martin Ben <martin.ben(zv)worldonline(tec)cz> - 12.6.2001 21:24:26
Ja to resim takto:
var
Excel: Variant;
begin
try
Excel:=GetActiveOleObject('Excel.application');
except
Excel:=CreateOleObject('Excel.application');
end;
Excel.WorkBooks.Add;
{databaze}.First;
while not {databaze}.Eof do
begin
Excel.Cells[1,1].Value:=1;
{databaze}.Next;
end;
Excel.DisplayAlerts:=False; //pred zavrenim neukaze vyzvu k ulozeni
souboru
Excel.Quit; //zavre Excel
end;
//ulozeni sesitu
if SaveDlg.Execute then Excel.ActiveWorkbook.SaveAs(SaveDlg.FileName);
//zobrazeni Excelu
Excel.Visible := True;
//uprava pisma
Excel.Cells[1,1].Font.Bold:=true;
//formaty bunek
Excel.Cells[1,1].NumberFormat:='0'; //integer
Excel.Cells[1,1].NumberFormat:='(zv)';
Excel.Cells[1,1].NumberFormat:='d/m/yyyy'; //date
Dalsi upravy si najdes v helpu nebo zjistis pomoci makra.
Martin Ben
martinben(zv)quick(tec)cz
Pouziti seriove linky z Delphi
[*] Erik Salaj <winsoft(zv)stonline.sk> - 12.6.2001 21:38:50
> >Ku komunikacii dojde povedzme LEN pri nabehu CLK signalu.
> > Plus samozrejme musia byt splnene aj dalsie podmienky, nepodstatne
> > z hladiska synchronizacie, napr. aktivny signal citania (RD) alebo
zapisu
> > (WR) do pameti a pod. Cize nestaci len nastavit signal RD alebo WR
> > na rozdiel od asynchronnej komunikacie.
>
> No jestli mas ve svem pocitaci statickou ramku tak zrejme pouzivas
ZX-81cku
> :-)
Myslim, ze to teraz nie je podstatne aku ma kto RAMku v pocitaci. Synchronne
byvaju CACHE pamete. To mas ako ked malym detom vysvetlujes, ze jedno
jablko a jedno jablko su dve jablka. A tie jablka tam nie su podstatne ale
ta
operacia scitania.
Erik
Pouziti seriove linky z Delphi
[*] Erik Salaj <winsoft(zv)stonline.sk> - 12.6.2001 21:40:47
> > Pozor, to su riadiace signaly, nie synchronizacne. Asynchronna
komunikacia
> > tiez byva riadena (napr. riadena vysielacom, prijimacom, handshake).
>
> Takze RAMka v PC s CPU take komunikuje asynchronne :-)
A preco by nemohla? Zalezi ako je to spravene, komunikovat
sa da sychronne i asynchronne.
Erik
Pouziti seriove linky z Delphi
[*] Erik Salaj <winsoft(zv)stonline.sk> - 12.6.2001 21:55:19
> > Ty si mylis riadenie so synchronizaciou. Zober si klopny obvod napr.
7474.
> > Je to synchronny klopny obvod typu D. Preco je KO synchronny? Pretoze
> > je tam hodinovy vstup C a udaj na vstupe D sa prepise na vystup az
> > vzostupnou hranou signalu C
>
> Pokud tedy bude tiskarna vybavena na vstupu klopnym obvodem a na jeho CLK
> vstup se privede _STROBE_ z PC bude komunikace podle tebe synchronni?
Komunikacia pomocou asynchronneho rozhrania nikdy nebude synchronna. Ani
ked tam das desat klopnych obvodov. Asynchronne rozhranie synchronnu
komunikaciu neumoznuje, inak by sa volalo synchronne.
Erik
Registry pri ukonceni Windowsu
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 12.6.2001 22:13:58
Dobry den,
mam aplikaci, ktera se ukoncuje az pri ukonceni Windowsu ale potrebuji
ulozit nektere nastaveni do registru.
Ukladani jsem dal do CloseQuery. Pri klasickem ukonceni (Alt+F4, klik na
krizek a pod) se udaje ulozi, ale pokud koncej Windowsy, tak to zdechne
prave na ukladani udaju... Je mozne, ze by si Windowsy registry nejak
blokovaly? Nebo lze nejak oblouzit ukonovani windowsu drive nez bude
CloseQuery?
Dekuji
Zdenek
Vymazanie nepouzitych dome v IB6.
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 12.6.2001 22:19:44
Zdravim.
Pouzil som nasledujuci prikaz na vymazanie vsetkych nepouzitych domen z
databazy a poskodilo mi to tabulku.
delete from RDB$FIELDS WHERE RDB$FIELD_NAME NOT IN (SELECT RDB$FIELD_SOURCE
FROM rdb$RELATION_FIELDS);
Je tam nieco zle, alebo to nemozem takto robit.
Dakujem.
Roland.Na kazdy Field novu domenu alebo jednu pre rovnake
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 12.6.2001 22:19:59
Zdravim.
Mam v tabulkach IB6 rovnake polia varchar(30),integer,... ktore sice nemaju
nic
spolocneho iba typ a rozmer. Ma vyznam vytvorit jednu domenu a vsetky
rovnake fieldy priradit tej domene ?
Dakujem.
Roland.
activate window, but don't set focus to window; Do
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 12.6.2001 22:45:38
Zdravim.
Mam MDI aplikaciu, kde Child vola okno fsNormal, ktore je StayOnTop. Okno
je
na vrchu, ale ak otvorim druheho childa a ten otvori svoj StayOnTop okno
fsNormal, tak je vyssie ako prve StayOnTop. Ak vsak prepanem na prveho
childa chcem aby som aktivoval (dal na vrch) aj info okno StayOnTop. Do
OnActivate som uz skusal:
if Assigned(frmOkno1Info)
then SetForegroundWindow(frmOkno1Info.Handle); file://*nastavi aj focus
do okna
if Assigned(frmOkno1Info)
then PostMessage(frmOkno1Info.Handle, WM_SETFOCUS,0,0); file://*nastavi aj
focus
do okna
if Assigned(frmOkno1Info)
then PostMessage(frmOkno1Info.Handle, WM_ACTIVATE,0,0); file://*nic sa tu
nedeje
s oknom.
Ale ja ziadny focus nechcem, len aby okno frmOkno1Info bolo uplne navrchu
oproti rovnakym oknam.
dalej som uz skusal aj toto:
if Assigned(frmCMestaInfo) then
if frmCMestaInfo.Visible then
begin
SetForegroundWindow(frmCMestaInfo.Handle);
SetForegroundWindow(self.Handle);
end else FreeAndNil(frmCMestaInfo);
ale toto mi zacykluje lebo SetForegroundWindow(self.Handle); vola zase
OnActivate.
Dakujem.
Roland.
MS SQL 7 klient problem
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 12.6.2001 22:49:44
Pristup na SQL servera sa mi z jednej NT4/SP5 stanice zrazu strasne
spomalil. Chrasti to diskom, ako ked Windows swapuju.
Neni to problem aplikacie, lebo aj Enterprise Manager sa chova presne
rovnako. Kliknem na 'Users', 10 sekund chrasti diskom a potom zaobrazi
zoznam. Kliknem na 'Tables', zase 10 sekund chrasti diskom a zobrazi zoznam.
Uzivatel sa samozrejme zaprisahava, ze nic nemenil, neinstaloval, neviroval,
ze sa to spomalilo 'samo'. Je pravda, ze tu aplikaciu startoval tak raz do
tyzdna, ale teraz ju potrebuje niekolkokrat denne :-(
Pristup k serveru je nastaveny po TCP/IP, na default porte.
OLEEE, OLE a excel na pozadi,zmena barvy,pisma atd
[*] Tom� Hol� - 12.6.2001 23:36:51
ja se ted snazim delat neco podobneho, ale pouzivam komponenty z palety
servers
ale myslim, ze oba postpy jsou dosti podobne, ne ?
je to dost prace,
ale kdyz koukas do helpu k VBA - ( musi byt nainstalovany - soucast MS
Officce - tusim napoveda pro VBA - ale nevim to jiste )
C:\Program Files\Microsoft Office\Office\1029\VBAXL9.CHM
do zdrojaku, kde jsou definice vsech funkci:
C:\Program Files\Borland\Delphi5\Ocx\Servers\excel2000.pas
a pak na makra v excelu :
pust si excel zapni zaznam makra udelej akci, ktera te zajima, vypni zaznam
makra a koukni na zdrojak VBA
a da se to z toho dat celkem slusne dohromady
behem posl. vikendu se mi podarilo ulozit do excelu par tabulek a udelat i
graf :)
naky info je i na http://www.djpate.freeserve.co.uk/AutoExcl.htm s
prikladem, z toho jsem presne prevzal pripojeni a odpojeni serveru
ale nic jineho jsem bohuzel nenasel :((
Otrazka pro ostatni ?
1. jake jsou vyhody / nevyhody pouziti komponent z palety SERVERS oproti
starsimu postupu pres CreateOleObject ???
2. nevite nekdo o nejakem velice poucnem a hlavne obsahlem zdrojaku, kde je
ukazka jak pouzivat jedn metody Ole serveru Excelu a mozna i wordu, sam jsem
prolezal inet, a moc jsem toho nenasel :((
dobrou noc, a dik
TH
----- Original Message -----
From: "Ales Pavel" <Bejcek(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, June 12, 2001 10:15 AM
Subject: OLEEE, OLE a excel na pozadi,zmena barvy,pisma atd.> Ahoj kluci potrebuju za pomoci OLE vytvorit dokument v excelu, a ted
dotazy.
>
Stale se zvetsujici win386.swp
[*] Petr Vasicek <pvasicek(zv)operamail(tec)com> - 12.6.2001 18:53:02 -0400
Zdravim,
napsal jsem tu pred nedavnem o ubytku systemovych prostredku v me aplikaci.
Na radu(dekuji) jsem zacal vytvaret a soucasne uvolnovat vsechny formulare az
v prubehu programu tak, ze zustavaji pak vytvorene jen pouzivane formulare.
Ubytek sys. prostredku se tak zastavil.
Stale mam ovsem problem s porad se zvetsujicim win386.swp, jenz po 2 hodinach
uzivani programu mel asi 160MB a pravdepodobne by sel i dal. Kdyz jsem udelal
test a zmensil jsem misto na disku na minimum tak se po case, kdy win386.swp
"dorostl" tak, ze na disku zbylo pouze asi 300kB, zacaly objevovat hlasky o
nedostatku pameti, ktere zmizely, az jsem uvolnil misto na disku a ten swapac
se mohl rozrustat dal.
Nevim, cim by to mohlo byt, pokud by nekdo z vas mel tuseni cim to je a jak
se to da resit, PROSIM napiste. Jeste bych chtel upresnit, ze v prubehu
programu uz nedeklaruji zadne nove promenne, pouze nahravam nove hodnoty do
existujicich promennych.
Dekuji moc za vasi pomoc
Petr Vasicek(D5,W98)
-------------------------------------------
The Fastest Browser on Earth now for FREE!!
Download Opera 5 for Windows now! Get it at
http://www.opera.com/download/
-------------------------------------------
Pouziti seriove linky z Delphi
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 13.6.2001 02:04:56
> Nastuduj si Centronics.
Dekuji za radu, stalo se jiz pred radou let.
>
> > > To nemas pravdu, prvy UART to asynchronne posle druhy to
> > > asychronne prijme.
> >
> > Mam tomu rozumet tak, ze nezalezi na tom, jestli ten druhy
> UART detekuje
> > zacatek slova ?
>
> Mas tomu rozumiet tak, ze tie UARTY nie su synchronizovane
> synchronizacnym signalom.
Diky za vysvetleni, bohuzel je chybne. Jak se lze snadno presvedcit studiem
prislusnych datasheetu, UARTy se synchronizuji vlastnimi internimi hodinami,
zacatek synchronizace je dan sestupnou hranu START bitu. Pokud by
prijimajici UART nevzorkoval vstup synchronne s vysilacem, prijal by
nesmysly.
>
> > > To, co tu nazyvas synchronizaciou je vstup informacie. Ziadna
> > > sychronizacia
> > > medzi telefonom a ustrednou to nie je.
> >
> > Ze si jeji existenci neuvedomujes neznamena, ze neni.
>
> Ze si myslis, ze tam synchronizacia je, este neznamena, ze tam aj je.
> Ale ak tam je, ukaz kde, pretoze ja ju tam nikde nevidim.
Obavam se, ze se mi to ani pres veskerou snahu nepovede.
>
> Erik
Pouziti seriove linky z Delphi
[*] Erik Salaj <winsoft(zv)stonline.sk> - 13.6.2001 02:14:11
> > Ty si mylis riadenie so synchronizaciou. Zober si klopny obvod napr.
7474.
> > Je to synchronny klopny obvod typu D. Preco je KO synchronny? Pretoze
> > je tam hodinovy vstup C a udaj na vstupe D sa prepise na vystup az
> > vzostupnou hranou signalu C. Okrem toho ma tento obvod dva asynchronne
> > riadiace vstupy R a S (nulovanie a nastavenie vystupu). Preco
asynchonne?
> > Lebo nastavia/vynuluju vystup bez ohladu na hodinovy vstup C.
>
> Ale nepletu, data jsou zapisovana SYNCHRONNE signalem STROB, je mi lito.
> (Nejak to koliduje s Tvym nasledujicim vysvetlenim 7474 ????????)
> Rizeni je provadeno pomoci ACK a BUSY.
Cize potom kazdy zapis dat nejakym riadiacim signalom je synchronny
(alebo vidis nejaky rozdiel medzi STROB a WR pri zapise do RAMky)?
A citanie takisto?
Potom naco potrebujem CLK signal pre synchronnu RAMku, ak by WR
signal zapisoval data synchronne?
> Vem si klasickou zbernici - I2C, data jsou platna na SDA pri SCL v H.
> Pokud by vse zavyselo na casu, nebylo by mozne prodluzovat periodu SCL,
> ale bohuzel tohle jde a je to primo pozadovano pro pomalejsi periferie.
> (fakt je mi lito, ale takhle po specifikuje Philips)
Nemam cas teraz studovat vsetky rozhrania, co si vymyslis. Myslim,
ze kriterium synchronnosti uz som vysvetlil dost jasne. Plati rovnako
pre vsetky rozhrania.
> Ale prave ze budu. Pokud si vemes treba Manchester, tak Ti musi dojit
> nesmyslnost Tveho tvrzeni.
Ziadna nezmyselnost mojich tvrdeni mi zatial nedosla.
> Zde jsou prave ty 0 a 1 prevedeny na sled prechodu 0->1 a 1->0, a vubez
zde
> nezalezi na casu.
> Vlastni prenosova rychlost - hodiny CLK se obnovuji prave z tohoto
signalu.
Viem si predstavit system, ked synchronizacna informacia je zakodovana
v prenasanom zazname (nie som si isty, ale zda sa mi, ze sa to nazyva
samosynchronizacia). Podstatne je, ci tam taka informacia je a ci sa
pouziva na synchronizaciu vysielacej aj prijimacej strany. Na case
ako takom nezalezi (kolko co trva), zalezi len na tom, aby vysielac
i prijimac podla syn. signalu komunikovali v rovnakom case.
Erik
DB aplikace s textovymi soubory
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 13.6.2001 05:43:36
Textovy dataset (bez BDE) byl resen v Mistrovstvi v Delphi3, jinak SDF
dataset byl na poslednim CHIPu.
Radeji bych ti ale doporucival TDBF komponentu - prace s DBF vcetne
indexu bez BDE. Bude to mnohem rychlejsi nez prace s textovymi
soubory, kde indexy nepouzijes.
Podivej se na http://tdbf.casdb.com/
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
8.6.2001 XOR:
> Proto Vas snazne prosim o radu - nemate nekdo povedomi
> o nejake komponente nebo reseni, ktere by namisto db tabulek
> vyuzivalo k praci s daty textove soubory (DAT, SDF?).
> Pripadne jsem ochoten za radu na funkcni reseni i zaplatit. Export z DB do Excelu (Rozvijej se poupatko!)
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 13.6.2001 05:49:16
Na Word95 a Excell95 a Visual Basic pro aplikace zapome�. Ty jej
neobsahuji.
Navic, pokud budes do Excelu exortovat velkou tabulku, bude to pres
OLE pomale. Rychlejsi to mas pres vytvoreni XLS soubrou a pres
ShellExecute jej otevrit v Excelu.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
12.6.2001 Ales Pavel:
> Dobry ja bych chtel,ale jestli jsem to dobre pochopil radeji OLE,jiz jsem
> neco vypotil,ale jeste mi prozradte,nejsou macra (visual basic) ve Word2000
> a Excel2000 jiny nez Word95,Excel95?Jak je to s univerzalnosti?resulty z OpenDialogu ;cesty k Office
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 13.6.2001 05:56:50
Pokud pouzijes standardni konstrukci
If OpenDialog.Execute then ...
tak ti vrati True pro OK a False pro vsechno ostatni.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
12.6.2001 Hurricane:
> Mam OpenDialog a potrebuju nejak zjistovat na ktery cudlik uzivatel kliknul
> (jestli Otevri nabo Storno). Vraci tento dialog nejake modalni resulty
> podobne jako Application.MessageBox? Jinymi slovy: V procedure nejdriv
Stale se zvetsujici win386.swp
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 13.6.2001 06:01:18
Daleko vyhodnejsi je SWAP file nastavit na pevnou velikost, napr. 200
MB (o velikosti se vzdy vedou velke diskuze :-) ).
Takze, napred jej uplne zakaz, defragmentuj dis a pak jej vytvor s
pevnou velikosti (Norton SpeeDisk umi defragmentovat i SwapFile).
Co se tyka volneho mista na disku s Windows, s tim moc neexperimentuj.
Windows, pokud maji malo mista na disku se zacnou chovat velice
nepredvidatelne, mohlo by se ti stat, ze prijdes o dulezita data,
ktera Win mohou prepsat, nebo odstranit, aby si udelely vic mista :-)
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
13.6.2001 Petr Vasicek:
> Stale mam ovsem problem s porad se zvetsujicim win386.swp, jenz po 2 hodinach
> uzivani programu mel asi 160MB a pravdepodobne by sel i dal. Kdyz jsem udelal
> test a zmensil jsem misto na disku na minimum tak se po case, kdy win386.swp
> "dorostl" tak, ze na disku zbylo pouze asi 300kB, zacaly objevovat hlasky o
> nedostatku pameti, ktere zmizely, az jsem uvolnil misto na disku a ten swapac
> se mohl rozrustat dal.Ulozenie komponenty z Clipboardu na form v run tim
[*] Pavel K�ehula <pavel.krehula(zv)nlm(tec)cz> - 13.6.2001 07:35:51
Zdar,
| Mozno ze to co chem je neobvykle ale ja to velmi potrebujem
|
| V run time chcem komponentu ulozit do Clopboard <CTRL-C> a opacne, z
| Clipboardu ulozit na form <Ctrl-V>.
| Ulozit do Clipboardu ide - to som vyriesil
| Problem je z Clipboardu ulozit na form (run time)
|
pouzivam toto:
uses
libintf;
procedure TZFormDesigner.CopySelection;
var
S: TMemoryStream;
W: TWriter;
I: Integer;
begin
S := TMemoryStream.Create;
try
W := TWriter.Create(S, 1024);
try
W.Root := FForm;
W.WriteComponent( Component );
end;
W.WriteListEnd;
finally
W.Free;
end;
CopyStreamToClipboard( S );
finally
S.Free;
end;
end;
procedure TZFormDesigner.PasteSelection;
var
S: TStream;
R: TReader;
AParent: TComponent;
i: integer;
c: TControl;
rr: TRect;
begin
AParent := Form;
S := GetClipboardStream;
try
R := TReader.Create(S, 1024);
try
R.OnSetName := ReaderSetName;
R.ReadComponents( Form, AParent, ComponentRead );
finally
R.Free;
end;
finally
S.Free;
end;
end;
Pavel
Systemove prostredky
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 13.6.2001 07:36:02
> > From: "Danny" <delphiforum(zv)atlas(tec)cz>
> > > mam aplikaci, ktera doposud behala uplne normalne. Pridal jsem
> > dalsi Form a
> > > najednou klesly systemove a uzivatelske prostredky o 30% na 1 - 7% !!!
> >
zkus odstranit vsechny ostatni formulare, at zjistis, jestli ti to dela ten
novy formular
nebo kombinace formularu mezi sebou
potrebny formular vytvaris za behu aplikace, nebo jsou vytvoreny vsechny a
zobrazujes jen jeden ?
asi jsem moc nepomohl
pavel
IP Adress
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 13.6.2001 07:41:18
> cisel kratsi
> nez 3 znaky (treba 1 z 192.168.1.5) pak se neda po zadani toho
> tretiho cisla
> prejit na dalsi pozici sipkou doprava, jak je to obvykle ve vsech
> formularich co ve Win znam. A hlavne je to neprijemne, protoze
> pri zadavani
> 25.25.25.25 musis 3x hrabnout stridave na klavesnici a mys.
>
Mam pocit, ze tak se to chova i ve stadardnim okne nastaveni TCP/IP ve Win
9x, coz se da obejit tim, ze doplnis uvodni nuly (casem si na to zvyknes :)
T.
IB: default value; IBtable: BeforePost
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 13.6.2001 07:44:55
Ahoj,
pri zakladani databaze jsem vytvoril domenu:
CREATE DOMAIN dExportovat as varchar(1) character set NONE
DEFAULT 'y' NOT NULL CHECK (Value in ('y','n'));
Ta je pak pouzita v tabulkach.
Domnival jsem se, ze pak pri zalozeni noveho zaznamu budou prislusna
policka rovnou obsahovat hodnotu 'y', aniz bych se o to musel starat.
Kupodivu se tak nedeje - ani v me aplikaci, ani pri pristupu pres IB
consoli. Netusite nekdo, v cem by mohl byt problem?
U stejne tabulky jsem pak narazil na dalsi potiz: kdyz se totiz
nedoplnovala defaultni hodnota, chtel jsem ji dosadit "rucne" u
tIBtable v udalosti BeforePost. Jenze ta se ne a ne vykonat - ani pri
programovem volani metody Post, ani kdyz uzivatel klepne na
navigatoru na tlacitko pro potvrzeni zaznamu (coz by samozrejme melo
byt totez). Ostatni udalosti (AfterInsert apod.) funguji. Nenapada
vas, jaky tady je zadrhel?
Diky, dost by mi to pomohlo.
Karel Rys
Vymazanie nepouzitych dome v IB6.
[*] Leos Urban <Leos.Urban(zv)iol(tec)cz> - 13.6.2001 07:50:48
Ja bych pro tyto veci pouzival
DROP DOMAIN a ALTER TABLE, primy zapis do systemovych tabulek asi neni
bezpecna a doporucena cesta k reseni...
Leos
IB: default value; IBtable: BeforePost
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 13.6.2001 07:54:39
On 13 Jun 2001, at 7:44, Karel Rys wrote:
> CREATE DOMAIN dExportovat as varchar(1) character set NONE
> DEFAULT 'y' NOT NULL CHECK (Value in ('y','n'));
> Domnival jsem se, ze pak pri zalozeni noveho zaznamu budou prislusna
> policka rovnou obsahovat hodnotu 'y', aniz bych se o to musel starat.
> Kupodivu se tak nedeje - ani v me aplikaci, ani pri pristupu pres IB
> consoli.
To funguje kdyz provedete SQL prikaz "INSERT INTO ..." bez
uvedeni hodnoty pro atribut typu dExportovat. Samozrejme i z
IBconsole. Ale Delphi si to kontroluji samy a default hodnotu
neberou v uvahu. Proto take si asi IBconsole stezuje kdyz vkladate
data ne pres SQL prikazy ale do gridu Table-data.
Z.Kalhous
OLEEE, OLE a excel na pozadi,zmena barvy,pisma atd
[*] Pavel Gazda <Pavel.Gazda(zv)seznam(tec)cz> - 13.6.2001 07:58:53
Ja to delam takto, treba ti to pomuze
> 1)Spustit a ulozit xls na pozadi.
try
XLS := TXLS.Create;
XLS.Application := TExcelApplication.Create(nil);
XLS.Workbook := TExcelWorkbook.Create(nil);
XLS.Worksheet := TExcelWorksheet.Create(nil);
XLS.LCID := LOCALE_USER_DEFAULT; //GetUserDefaultLCID;
except
.....
try
XLS.Application.ConnectKind := ckNewInstance;
XLS.Application.Connect;
XLS.Workbook.ConnectTo(XLS.Application.Workbooks.Add(TOleEnum(xlWBATWorkshee
t), LS.LCID));
XLS.Worksheet.ConnectTo(XLS.Workbook.Worksheets[1] as _Worksheet);
except
....
try
XLS.Application.ScreenUpdating[XLS.LCID] := False;
XLS.Application.Visible[XLS.LCID]:= False;
XLS.Worksheet.Name := Name;
except
> 2)Zmenit pismo co to tucnosti alespon,to by stacilo,ale bodla by se i
barva
> a velikost(Word i Excel)
try
with XLS.Worksheet.Range[StrBeginCell, StrEndCell].Font do
begin
if String(FontName) <> '' then
Name := String(FontName);
if FontSize <> 0 then
Size := FontSize;
if FontColor <> 0 then
ColorIndex := FontColor;
Bold := FontBold <> 0;
Italic := FontItalic <> 0;
Underline := FontUnderline <> 0;
end;
except
.....> 5)Jo a jak pridam dalsi sesit do dokumentu Excel?
Nevim
Jednou jsem to zkousel a nepodarilo se mi to.
Zatim to nepotrebuji.
pavel
Stale se zvetsujici win386.swp
[*] Karel Horky <horkyk(zv)razdva(tec)cz> - 13.6.2001 08:26:58
----- Original Message -----
From: "Petr Vasicek" <pvasicek(zv)operamail.com>> Stale mam ovsem problem s porad se zvetsujicim win386.swp, jenz po 2
hodinach
> uzivani programu mel asi 160MB a pravdepodobne by sel i dal. Kdyz jsem
udelal
Pokud chces omezit velikost swapfile, muzes si ve Vlastnostech systemu,
zalozka Vykon pod tlacitkem Virtualni pamet nastavit radiobuton na Virtualni
pamet nastavi uzivatel. Vyberes si nejrychlejsi disk a nastavis nejmensi a
nejvetsi velikost na stejnou hodnotu. Priblizne od velikosti RAM az po
dvojnasobek kapacity RAM (64 MB RAM -> 64-128 MB swap). Zapises, nechas
zresetovat a s velikosti swapu mas klid.
------
S pozdravem Karel Horky
horkyk(zv)razdva(tec)cz
OT: Je snad C++ Buider smejd???
[*] Lubo Fule <fule(zv)ekosoft.sk> - 13.6.2001 08:29:28
Programujem vo Visual C++ (MS) a mozem potvrdit, ze kompilator je dost
dobry, nakoniec pokial viem, tak vacsina nizkourovnovych aplikacii pre
Windows sa pise vo VC++. Programovanie v C++ Builder-i je samozrejme ovela
jednoduchsie a produktivnejsie, ale kompilator v porovnani s konkurenciou
skutocne nestoji za vela. Mam pocit, ze Borland skor preferuje Pascalovske
kompilatory (Delphi, Kylix). Na napr. zlozite matematicke vypocty alebo
grafiku, kde je potrebny velmi rychly vysledny kod sa Borlandovske
kopilatory nehodia a ani sa na to vo vacsine pripadou nepouzivaju. Ked vsak
potrebujem rychlo napisat nejaky program, kde nie su ziadne zlozite vypocty
alebo databazovy program, tak nie je nad Delphi. Pripadne, ked potrebujem
vykonny kod, tak si ho napisem vo VC++ ako DLL a volam z Delphi (takymto
sposobom som pisal aj ODBCe - vykonna cast je v DLL a v Delphi su iba
volania).
L.
> Vim, ze jsou tady i "ceckari". Nemohl by se k tomu nekdo vyjadrit?
>
> Diky.
>
> Re: HAHA ===============================================
> Delal sem pokus na schopnost optimalizace ruznejch kompilatoru. Je
> opravdu velkej rozdil mezi kompilatorama co kompilujou docela dobre
> (Visual C++, Intel C++, GNU C (Cygwin)), tema co optimalizujou trochu
> hur (Metrowerks - CodeWarrior) a tema co neoptimalizujou skoro vubec
> (Borland C++ a jeste hur Delphi). Pokus sem delal jako vypocet
> Mandelbrotu ve fixed a float matematice. Vysledky prvnich 3 byli +/- vo
> par procent srovnatelny, Metrowerks byl tak vo 50% pomalejsi a Borland
> klidne i 2 - 3x pomalejsi.
>
> Kompilator vod Borlandu pravdepodobne podporuje vic ISO standard C++,
> ale co se tyce optimalizaci je to totalni shit. Hral sem si s nastavenim
> prekladu u vsech prekladacu dost dlouho a dokumentaci sem cet. Vim, ze
> by se nasli jiny testy, kde by vysledek nemusel bejt tak zdrcujici, ale
> presto...
default value; IBtable: BeforePost
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 13.6.2001 08:38:51
> Domnival jsem se, ze pak pri zalozeni noveho zaznamu budou prislusna
> policka rovnou obsahovat hodnotu 'y', aniz bych se o to musel starat.
DEFAULT ti doplni az server pri pokusu o ulozeni do databaze
> U stejne tabulky jsem pak narazil na dalsi potiz: kdyz se totiz
> nedoplnovala defaultni hodnota, chtel jsem ji dosadit "rucne" u
> tIBtable v udalosti BeforePost.
ta se vykona (mela by se vykonat) tesne pred ulozenim dat na server,
takze ti to ty hodnoty taky nenabidne. ja to delam v onNewRecord, nebo
jaxe to menuje, provede se pri vytvareni nove vety, jeste nez se
zobrazi.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/RadioGroup
[*] Hazuka Filip <filip.hazuka(zv)multivac(tec)cz> - 13.6.2001 08:51:29
Ahoj,
tady ti posilam slibeny odkaz, kde najdes podle mne i to, jak se daji
disablovat jednotlive polozky v RadioGrupu.
http://www.lmc-mediaagentur.de/dpool.htm Tohle je podle me supr stranka. Da
se tam toho najit spoustu.
Zdrav�
Filip
default value; IBtable: BeforePost
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 13.6.2001 08:52:53
Petr Palicka dne 13 Jun 2001, v 8:38:
> > Domnival jsem se, ze pak pri zalozeni noveho zaznamu budou prislusna
> > policka rovnou obsahovat hodnotu 'y', aniz bych se o to musel
> > starat.
>
> DEFAULT ti doplni az server pri pokusu o ulozeni do databaze
No prave ze nedoplni - vyhodi vyjimku, ze pole Exportovat obsahuje
NULL.
Odpoledne to vyzkousim: muze byt rozdil v tom, kdyz nadefinuji
DEFAULT VALUE u domeny a tim, kdyz ji nadefinuji primo pri vytvareni
tabulky?
> > U stejne tabulky jsem pak narazil na dalsi potiz: kdyz se totiz
> > nedoplnovala defaultni hodnota, chtel jsem ji dosadit "rucne" u
> > tIBtable v udalosti BeforePost.
>
> ta se vykona (mela by se vykonat) tesne pred ulozenim dat na server,
> takze ti to ty hodnoty taky nenabidne. ja to delam v onNewRecord, nebo
> jaxe to menuje, provede se pri vytvareni nove vety, jeste nez se
> zobrazi.
Copak o to, ze mi to nenabidne ty hodnoty, ale ona se ta udalost
nevykona, v tom je ta potiz. Protoze takhle musim hlidat tech
udalosti vic - pisu to ted z hlavy - urcite onNewRecord a onEdit.
Karel Rys
OT: Je snad C++ Buider smejd???
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.6.2001 09:02:30
> Re: HAHA ===============================================
> Delal sem pokus na schopnost optimalizace ruznejch kompilatoru. Je
> opravdu velkej rozdil mezi kompilatorama co kompilujou docela dobre
> (Visual C++, Intel C++, GNU C (Cygwin)), tema co optimalizujou trochu
> hur (Metrowerks - CodeWarrior) a tema co neoptimalizujou skoro vubec
> (Borland C++ a jeste hur Delphi).
Nemam tu zkusenost, ze by obecne byl Delphi kod pomalejsi nez Cckovy kod.
Naopak jsem parkrat videl na vlastni oci (i videl nejaka porovnani v
casopisech) kdy rozdily mezi CCkovym kodem a kodem Borlan Turbo Pascal 7
(neoptimalizoval) byly nepatrne nebo byl BTP rychlejsi
Samozrejme zalezi na spouste veci (mam pocit, ze matematika neni silnou
strankou Borlandich kompilatoru), kod psany v Ccku neni mozne otrocky
prepsat do pascalu bez ujmy na vykonu
>Pokus sem delal jako vypocet
> Mandelbrotu ve fixed a float matematice. Vysledky prvnich 3 byli +/- vo
> par procent srovnatelny, Metrowerks byl tak vo 50% pomalejsi a Borland
> klidne i 2 - 3x pomalejsi.
>
> Kompilator vod Borlandu pravdepodobne podporuje vic ISO standard C++,
> ale co se tyce optimalizaci je to totalni shit. Hral sem si s nastavenim
> prekladu u vsech prekladacu dost dlouho a dokumentaci sem cet. Vim, ze
> by se nasli jiny testy, kde by vysledek nemusel bejt tak zdrcujici, ale
> presto...
Co takhle juknout do vysledneho kodu a zjistit proc je to pomalejsi?
D. Toman
OT: Je snad C++ Buider smejd???
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.6.2001 09:04:57
> Programujem vo Visual C++ (MS) a mozem potvrdit, ze kompilator je dost
> dobry, nakoniec pokial viem, tak vacsina nizkourovnovych aplikacii pre
> Windows sa pise vo VC++.
Proc asi - MS zarucuje, ze to bude chodit jen pokud pouzijes MS VC++. Navic
SDK, DDK a spol obsahuji header fily, examply prave jen pro MS VC++.
Taky bych radsi psal drivery v Delphi :-(
D. Toman
jas a kontrast image
[*] Valenta Patrik <valentapat(zv)volny(tec)cz> - 13.6.2001 09:19:46
Prohledal jsem snad cele torry ale nenasel jsem nic free. Nevite nekdo o
FREE komponente
se zakl. funkcemi s bitmapou .. staci Jas, Kontrast, event. Gamma kor.
e-mail : valentapat(zv)volny(tec)cz
ICQ: 54152896
IP Adress
[*] Lud�k ZITA <konference(zv)sales(tec)cz> - 13.6.2001 09:23:02
----- Original Message -----
From: "Tomas Vladik" <tom.vladik(zv)swadvice(tec)cz>> > cisel kratsi
> > nez 3 znaky (treba 1 z 192.168.1.5) pak se neda po zadani toho
> > tretiho cisla
> > prejit na dalsi pozici sipkou doprava, jak je to obvykle ve vsech
> > formularich co ve Win znam. A hlavne je to neprijemne, protoze
> > pri zadavani
> > 25.25.25.25 musis 3x hrabnout stridave na klavesnici a mys.
> >
>
> Mam pocit, ze tak se to chova i ve stadardnim okne nastaveni TCP/IP ve
Win
> 9x, coz se da obejit tim, ze doplnis uvodni nuly (casem si na to zvyknes
:)
Ahoj.
Zkus si to, chova se to tak jak jsem popisoval, t.j. zadam treba 1 a sipkou
vpravo jsem na dalsim miste.
Ludek
Generator
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 13.6.2001 09:28:50
> Ahoj kluci jeste neco, potreboval bych neco co by mi zakodovalo heslo a
> nasledne rozheslovalo,to heslo v zakodovane podobe by bylo v
> tabulce a pri
> prihlasovani by se rozkodovalo...
>
Muzes si napr. ulozit jenom hash z hesla (vytvoreny napr. pomoci algoritmu
MD5). Sice to uz nikdy nerozkodujes, ale to nevadi. Heslo zadane uzivatelem
opet zahashujes a porovnas s ulozenym hashem.
T.
FTP a prikaz LIST
[*] Petr E�ner <petr.esner(zv)atlas(tec)cz> - 13.6.2001 09:33:43
Ahoj,
omlouvam se, jeste jednou se vracim k parsovani vysledku LIST prikazu. Dosel
jsem k tomuto problemu: na unixech byvaji ruzne odkazy, ktere vypadaji nejak
takto:
l--------- 1 owner group 0 May 13 17:30 content ->
/pub/devel/content
Problem je v tom, ze kdyz je prvnim znakem L, zjistim sice, ze jde o odkaz,
nicmene ztraci se nekde informace o tom, zda je dany objekt soubor nebo
adresar (treba jako na prikladu vyse..)
Predem diky za nakopnuti
--
Petr E#ner, petr.esner(zv)atlas(tec)cz
ICQ# 105826792
Univerz�ln� free editor pro program�tory:
Programmer's Wizard 2, http://pwiz.hyperlink(tec)cz/
Nazev promenne do Stringu
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 13.6.2001 09:35:45
> Ahoj kluci,mam aktivni obdobi,takze zas neco,jak prevedu nazev
> promenne do
> stringu?
To snad ani u skalarnich typu ani nejde. Nechapu k cemu by to bylo dobre,
ze by nejaka poklesla programovaci technika?
Takove veci maji vyznam u objektu, kde muzes potrebovat zjistit jmeno
tridy, ale u integeru???????????
T.
Replikace MS SQL 7 - MSDE
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 13.6.2001 09:58:04
Ahoj,
musim dat dohromady replikaci dat mezi centralou a pobockami. V centru je MS
SQL server 7, na pobockach bezi MSDE s databazi, ktera je podmnozinou
databaze na serveru (jak tabulky, tak zaznamy). Replikovat potrebuji
obousmerne, tj. zmeny se mohou provadet jak v centru, tak na pobockach. Ma
nekdo zkusenosti s resenim podobne ulohy a byl by ochoten ztratit sluvko ?
Predem diky
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Dispinterface, eventy v COM aplikaci
[*] Ond�ej Male�ek <ondrej.malecek(zv)radom-cz(tec)cz> - 13.6.2001 09:59:35
FW: Dispinterface, eventy v COM aplikaci> TCoMyClass = class(TAutoObject,
DispInterface1)
>
>je prirazeno chybov� hlaseni (tykajici se typu DispInterface1):
>
> [Error] Unit2.pas(9): Interface type required
Zrejme neni DispInterface1 v odpovidajicim *.pas deklarovano jako potomek
IDispatch. Pokud mas ten *.pas generovany automaticky z editoru tlb, tak
muze byt problem v tom, ze v projektu pouzivas nejakou jinou kopii toho
vygenerovaneho *.pas nez naposledy generovanou.
Ondrej
resulty z OpenDialogu
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 13.6.2001 08:07:59 met-1
> Mam OpenDialog a potrebuju nejak zjistovat na ktery cudlik uzivatel kliknul
> (jestli Otevri nabo Storno). Vraci tento dialog nejake modalni resulty
Jestli jsem to dobre pochopil, tak reseni je zde:
if OpenDialog1.Execute then begin
// uzivatel pouzil Otevrit
end
else begin
// kliknuti na Storno
end;
Jirka.Zatuhnuti DELPHI
[*] Ren� Spi��k - 13.6.2001 10:17:24
No mi to delalo taky a po nainstalovani Service Packu to jelo bez
problemu.
Rene
============================================================
Ren� Spi#�k (Raptor)
telefon : +420 656 706203 mobil: +420 0605 876 088
e-mail : xraptor(zv)email(tec)cz, raptor(zv)amenit(tec)cz
WWW : http://go.to/paradise77
ICQ# : 36212494
============================================================
-----Original Message-----
From: Bednar��k Dalibor [mailto:dalibor(zv)torola(tec)cz]
Sent: Tuesday, June 12, 2001 10:23 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Zatuhnuti DELPHI
Ahoj,
nainstaloval jsem si delphi a po spusteni mi zatuhne. Zustane to
viset hned na LOGU Delphi.
Mam to na pocitaci Pentium, 64MB, Win98.
Nevite nekdo co s tim?
Dik
Dalibor
Dispinterface, eventy v COM aplikaci
[*] Kasal V�t <vkasal(zv)ciglersw(tec)cz> - 13.6.2001 10:21:52
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Pravda je, �e Dispinterface1 nen� definovan� jako potomek IDispatch, ale
jednoduch�m kl��ov�m slovem dispinterface. V�znamu tohoto kl��ov�ho slova
jsem se nedohledal, chyba je z�ejm� skryta pr�v� v n�m. Ve verzi pou�it�ho
*.pas probl�m patrn� nebude, neb u dual nebo custom interfejs� se v#e chov�
korektn�.
V�t Kasal
>>TCoMyClass = class(TAutoObject,DispInterface1)
>>
>>je prirazeno chybov� hlaseni (tykajici se typu DispInterface1):
>>
>> [Error] Unit2.pas(9): Interface type required
>Zrejme neni DispInterface1 v odpovidajicim *.pas deklarovano jako potomek
>IDispatch. Pokud mas ten *.pas generovany automaticky z editoru tlb, tak
>muze byt problem v tom, ze v projektu pouzivas nejakou jinou kopii toho
>vygenerovaneho *.pas nez naposledy generovanou.
>
>Ondrej
Polozka kalendare v Outlooku
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 13.6.2001 10:25:37
Nemate nekdo zkusenosti s programovym vytvarenim ukolu v kalendari Outlooku?
Diky
Libor Krayzel
AIS, projektant IS
#esk� televize, televizn� studio Ostrava
Tel.: 069-6201375
E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz
WWW: http://www(tec)czech-tv(tec)cz
FTP a prikaz LIST
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.6.2001 10:32:09
> l--------- 1 owner group 0 May 13 17:30 content ->
> /pub/devel/content
>
> Problem je v tom, ze kdyz je prvnim znakem L, zjistim sice, ze jde o
odkaz,
> nicmene ztraci se nekde informace o tom, zda je dany objekt soubor nebo
> adresar (treba jako na prikladu vyse..)
Ve vypisu se to nepozna. Ale nicemu to nevadi. Stejne je treba pri nacitani
odkazu na FTP nejprve zkusit CD (change dir) a poklud selze tak zkusit
nacist odkaz jako file.
D. Toman
mazanie neprazdnych adresarov
[*] <tomino(zv)army.sk> - 13.6.2001 10:40:25
Zdravim,
Problem : Potrebujem na Win2000 bez opytania zmazat zadany adresar vratane jeho obsahu.
Otazka :
Existuje v Delphi alebo API neaka funkcia na mazanie non empty adresarov ?
Ak nie, - akou funkciou zmazem hidden adresar alebo subor ?
Dakujem.
S pozdravom Tomino
DB aplikace s textovymi soubory
[*] jd.software(zv)basoft.ch - 13.6.2001 10:43:10
This is a multi-part message in MIME format.
Musi to byt textove soubory? Potrebujes to pro vlastni aplikaci nebo ctes cizi
soubory?
Pokud se jen chces vyhnout pouzivani BDE, tak pouzi TClientDataSet. Tato
komponenta
je tusim k dispozici az v Delphi C/S. Soubory sice nejsou textove, ale binarni.
Ale velkou
vyhodou je, ze muzes pouzivat i indexy a dokonce funguji i transakce (da se to
tiz nastavit, zda
se maji zmeny logovat).
Petr
8.6.2001 XOR:
> Proto Vas snazne prosim o radu - nemate nekdo povedomi
> o nejake komponente nebo reseni, ktere by namisto db tabulek
> vyuzivalo k praci s daty textove soubory (DAT, SDF?).
> Pripadne jsem ochoten za radu na funkcni reseni i zaplatit."
This e-mail may contain confidential material. It is intended only for
the person or entity which it is addressed to. Any review,
retransmission, dissemination or other use of this information by
persons or entities other than the intended recipient is prohibited. If
you received this e-mail in error, please immediately notify the sender
or The Swiss Raiffeisen Group and delete the material from any and all
computers it may be stored on.
Any views or opinions expressed in this e-mail are those of the sender
and do not necessarily coincide with those of The Swiss Raiffeisen
Group. Therefore this e-mail does not represent a binding agreement nor
an offer to deal.
E-mail transmission cannot be guaranteed to be secure or error-free.
Information could be intercepted, corrupted, lost, destroyed,
incomplete or may contain viruses. Neither The Swiss Raiffeisen Group
nor the sender can accept any liability for any kind of damage as the
result of viruses or transmission errors.
"Zatuhnuti DELPHI
[*] Peter Surovy <surovy(zv)home.sk> - 13.6.2001 09:45:12
Ak si si nainstaloval Delphi III tak je to na 99 percent graficka karta
skus znizit hardwarovu akceleraciu, rozsah farieb ale ak mas nejaku novsiu
S3 pravdepodobne Ti to bude slapat iba na 16 farbach a danom rozliseni.
Skus si zohnat inu kartu moze byt aj ina s3.
Inak nic v zlom keby si si pozrel FAQ na stranke kde si sa prihlasoval do
tejto konferencie bol by si to mal hned a nemusel si cakat na odpovede.
Ing. Peter Surovy
Ahoj,
nainstaloval jsem si delphi a po spusteni mi zatuhne. Zustane to viset hned
na LOGU Delphi.
Mam to na pocitaci Pentium, 64MB, Win98.
Nevite nekdo co s tim?
Dik
Dalibor
Browse Box
[*] Hejna Martin, PRAHA <hejnam(zv)praha(tec)comsoft(tec)cz> - 13.6.2001 10:58:26
Ahojte chtel jsem se zeptat jestli nahodou nekdo nevite jak
lze pouzivat BrowseBox nebo SelectFolder (takovy ten co obsahuje pouze strom
a adresarema a dve tlacitka). Udelal bych si ho klidne sam
ale nevim jakym zpusobem mam v rozumnem case prohlednout
dany disk s adresarema (trva to hrozne dlouho). Pokud prohlednu
vzdy jen jednu uroven, tak se mi zase nezobrazuji v TreeView
iknonky (+/-) na colapse pokud uz du jednu uroven do hloubky
trva to v pripade adresare Win\System uz neumerne dlouho.
Vypozoroval jsem, ze strom s adresarama (stejny je uzit
i v pruzkumnikovi ma jmeno SysTreeView32 a executable module
je COMCTL32.DLL ale nevim jak ho spustit.
Pripadne zda neexistuje neco FinfDirst/FindNext pouze na
adresare.
Martin Hejna
DB aplikace s textovymi soubory
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 13.6.2001 10:59:48
Ahoj
Jen na doplneni. V D5 se da obsah ClientDataSetu ulozit jako XML soubor,
tedy text se specialni strukturou. Je tam ale drobny problem, varianta XML
neumi ukladat prazdne tabulky. Mozna D6 uz bude v poradku. Jinak se to da
obejit tak, ze kdyz je v tabulce 0 vet proste soubor smazu a pred otevrenim
si tabulku vytvorim. Jaromir Cermak
-----Original Message-----
From: jd.software(zv)basoft.ch [mailto:jd.software(zv)basoft.ch]
Musi to byt textove soubory? Potrebujes to pro vlastni aplikaci nebo ctes
cizi
soubory?
Pokud se jen chces vyhnout pouzivani BDE, tak pouzi TClientDataSet. Tato
komponenta
je tusim k dispozici az v Delphi C/S. Soubory sice nejsou textove, ale
binarni.
Ale velkou
vyhodou je, ze muzes pouzivat i indexy a dokonce funguji i transakce (da se
to
tiz nastavit, zda
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.251 / Virov� b�ze: 124 - datum vyd�n�: 26.4.2001
Browse Box
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 13.6.2001 11:07:38
Ahoj
----- Original Message -----
From: "Hejna Martin, PRAHA" <hejnam(zv)praha.comsoft(tec)cz>> Ahojte chtel jsem se zeptat jestli nahodou nekdo nevite jak
> lze pouzivat BrowseBox nebo SelectFolder (takovy ten co obsahuje pouze
strom
V RxLibrary ja tato funkcnost riesena, tusim je tam komponenta s menom
DirectoryEdit.
> a adresarema a dve tlacitka). Udelal bych si ho klidne sam
> ale nevim jakym zpusobem mam v rozumnem case prohlednout
> dany disk s adresarema (trva to hrozne dlouho). Pokud prohlednu
V zidnom pripade nepotrebujes prehladavat cely disk
> vzdy jen jednu uroven, tak se mi zase nezobrazuji v TreeView
> iknonky (+/-) na colapse pokud uz du jednu uroven do hloubky
Na TreeNdeo si mozes nastavit property HasChildren ktora ti to + urobi a az
po kliknuti na to sa moze adresar prehladat a ikona upravit, alebo mozes
prehladat FindFirstom vzdy o poduroven viac. Staci ak sa v danom foldry
nechadza jeden subor, nemusis hladat dalej.
> trva to v pripade adresare Win\System uz neumerne dlouho.
> Vypozoroval jsem, ze strom s adresarama (stejny je uzit
> i v pruzkumnikovi ma jmeno SysTreeView32 a executable module
> je COMCTL32.DLL ale nevim jak ho spustit.
> Pripadne zda neexistuje neco FinfDirst/FindNext pouze na
> adresare.
FindFirst a FindNext dokaze samozrejme hladat akekolvek subory podla
zadanych Atribotv. Prepsny popis atributov najdes v Helpe.
Ale je to asi takto I := FindFirst(AFolder + '\*.*', faDirectory, SR);
Nezabudni na FindClose!
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
jas a kontrast image
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 13.6.2001 11:10:00
Ahoj,
zkus http://gfody.com/
Vaclav Sazima
Valenta Patrik wrote:
>
> Prohledal jsem snad cele torry ale nenasel jsem nic free. Nevite nekdo o
> FREE komponente
> se zakl. funkcemi s bitmapou .. staci Jas, Kontrast, event. Gamma kor.
> e-mail : valentapat(zv)volny(tec)cz
> ICQ: 54152896
Pouziti seriove linky z Delphi
[*] Erik Salaj <winsoft(zv)stonline.sk> - 13.6.2001 11:15:49
> > Nastuduj si Centronics.
>
> Dekuji za radu, stalo se jiz pred radou let.
Mozno je nacase si to zopakovat. Alebo aspon prezrad literaturu,
v ktorej sa teda mozem docitat, ze Contronics je synchronne rozhranie.
> > Mas tomu rozumiet tak, ze tie UARTY nie su synchronizovane
> > synchronizacnym signalom.
>
> Diky za vysvetleni, bohuzel je chybne. Jak se lze snadno presvedcit
studiem
> prislusnych datasheetu, UARTy se synchronizuji vlastnimi internimi
hodinami,
> zacatek synchronizace je dan sestupnou hranu START bitu. Pokud by
> prijimajici UART nevzorkoval vstup synchronne s vysilacem, prijal by
> nesmysly.
A teda obvody, ktore sa nazyvaju asynchronne prijimace/vysielace
komunikuju synchronne, vsak? ;-)
> > > > To, co tu nazyvas synchronizaciou je vstup informacie. Ziadna
> > > > sychronizacia
> > > > medzi telefonom a ustrednou to nie je.
> > >
> > > Ze si jeji existenci neuvedomujes neznamena, ze neni.
> >
> > Ze si myslis, ze tam synchronizacia je, este neznamena, ze tam aj je.
> > Ale ak tam je, ukaz kde, pretoze ja ju tam nikde nevidim.
>
> Obavam se, ze se mi to ani pres veskerou snahu nepovede.
Ja si to tiez myslim, a bude to tym, ze tam nie je.
Erik
Pruvodce grafem
[*] Parizsky Ladislav <Ladislav.Parizsky(zv)access-it(tec)cz> - 13.6.2001 11:46:16
Cau,
delam programek kde bych poteboval z poli tabulek vygenerovat graf. Je nejaky jednoduchy zpusob jak dat uzivately vybrat jaky graf bude chtit vytisknout (neco podobneho jako v excelu) ?
dik Ladap
OLE - Word
[*] Daniel Dedek <Dedek(zv)ds(tec)cz> - 13.6.2001 11:46:49
Ahoj,
uz dva dny se trapim takouvou blbosti - potrebuju vlozit text to
wordovyho dokumentu. Mam ho otevrenej, umim milion veci, ale to
nejzakladnejsi se mi proste nejak nedari. Metody jako
Selection.TypeText, pripadne InsertBefor, InsertAfter ap. mi Ole
Automation objekt odmita. Muzete mi prosim nekdo poradit?
Dik Dan
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.256 / Virov� b�ze: 129 - datum vyd�n�: 31.5.2001
Identifikacia CD
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 13.6.2001 11:56:35
Cau,
v zivote som s tym nerobil takze sa chcem opytat. Je mozne nejak jednoznacne
identifikovat CD medium? Ma to nieco ako seriove cislo? Ak ano tak ako sa da
vysosat?
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
resulty z OpenDialogu ;cesty k Office
[*] Ji�� HAVELKA����*���zY�W�#�� - 13.6.2001 11:59:37
----- Original Message -----
From: Hurricane <hurricane(zv)quick(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, June 12, 2001 5:10 PM
Subject: resulty z OpenDialogu ;cesty k Office
> Zdravim
>
> Mam OpenDialog a potrebuju nejak zjistovat na ktery cudlik uzivatel
kliknul
> (jestli Otevri nabo Storno). Vraci tento dialog nejake modalni resulty
function Execute: Boolean; override;
Description
Execute opens the file-selection dialog, returning True when the user
selects a file and clicks Open. If the user clicks Cancel, Execute returns
False.
> JAk jsme se nedavno ptal, jak automaticky zjistovat umisteni Office, tak
Zkuste se podivat do
'HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths'
treba na 'Winword.exe\Path'
S pozdravem Jiri HAVELKA
Systemove prostredky
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 13.6.2001 12:10:39
> Na tom novem formulari mam jakesi 4 mrizky, ktery jsou tvoreny comp.
TPanel
> (5*8 "bunek"), tedy na formulari mam 160 Panelu. Kdyz jsem je vyhodil, tak
> jsem usetril asi 10% sys. prostredku. Zkusil jsem vsechny Panely nahradit
> komponentou TStaticText, ale sys. prostredky zase spadly tak kde byly
> puvodne.
TStaticText zerie handly ako divy :-(
> Podotykam, ze musim dodrzet jisty vzhled z jine aplikace, takze potrebuju
> nutne aby ta moje mrizka byla slozena z neceho, co se Panelu podoba. Tim
je
> asi vyloucene pouziti Gridu ???
> Muze to souviset z W98 SE? Na W2k jsem to zatim nezkousel.
Jedine ze by si si to vykresloval sam? Preco to musi byt ako TPanel,
predpokladam ze Ti ide o ramceky, alebo nie?
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
Dispinterface, eventy v COM aplikaci
[*] Ond�ej Male�ek <ondrej.malecek(zv)radom-cz(tec)cz> - 13.6.2001 12:17:50
RE: Dispinterface, eventy v COM aplikaci>Pravda je, �e Dispinterface1 nen�
definovan� jako potomek IDispatch, ale jednoduch�m kl��ov�m >slovem
dispinterface. V�znamu tohoto kl��ov�ho slova jsem se nedohledal, chyba je
z�ejm� skryta >pr�v� v n�m. Ve verzi pou�it�ho *.pas probl�m patrn� nebude,
neb u dual nebo custom interfejs� se >v#e chov� korektn�.
No, ja to pouzivam tak, ze v editoru tlb mam rozhrani zalozeno pomoci New
Interface (nikoli New Disp. interface) a ve vlastnostech pak u nej mam
Parent Interface = IDispatch => ve vygenerovanem *.pas mam potom tohle
rozhrani deklarovano:
Irozhrani = interface(IDispatch)
...
metody
...
end;
tedy toto rozhrani bude implementovat IDispatch, o cemz svedci i to ze v
trida ve ktere je implementovano je deklarovana jako: Trozhrani =
lass( TAutoObject, Irozhrani). dispinterface by sice asi melo byt vicemene
to same, ale proc Ti to nejde teda nevim.
Ondrej
default value; IBtable: BeforePost
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 13.6.2001 12:39:44
> > DEFAULT ti doplni az server pri pokusu o ulozeni do databaze
> No prave ze nedoplni
ale doplni, ale opravdu az server
> vyhodi vyjimku, ze pole Exportovat obsahuje NULL.
to dela delphi :(, mel jsem s tim problemy, pokud je polozka not null,
tak delphi si automaticky nahodi required na true a vyzaduji zadani
hodnoty. pokud mas zadany jednotlivy tfieldy, tak jim to required dej
false, jinak jedine onNewRecord.
> Odpoledne to vyzkousim: muze byt rozdil v tom, kdyz nadefinuji
> DEFAULT VALUE u domeny a tim, kdyz ji nadefinuji primo pri vytvareni
> tabulky?
to je imho jedno.
> > > U stejne tabulky jsem pak narazil na dalsi potiz: kdyz se totiz
> > > nedoplnovala defaultni hodnota, chtel jsem ji dosadit "rucne" u
> > > tIBtable v udalosti BeforePost.
no, pokud se nepletu, tak IBTable se moc neporucuje pouzivat, pouzij
spise IBDataSet.
> Copak o to, ze mi to nenabidne ty hodnoty, ale ona se ta udalost
> nevykona, v tom je ta potiz.
delphi ti zarve driv nez se udalost vola, zrejme nejprve validuji
polozky a teprve potom volaji BeforePost.
ja osobne nezadavam pole (TFields), takze nemam moznost required zmenit.
proto pouzivam onNewRecord a to mi staci (pro naplneni polozek
prednastavenou hodnotou. pokud je nabizena hodnota zavisla na nejakem
jinem drive vyplnenem poli, pouzivam onColExit (u DBGridu), nebo co to
tam je.
stejne tak je skoda, ze nefunguji constraints. je tam na to vlastnost
(property), ale omezeni si to ze serveru nenatahne, takze kontrolu zase
necham bud na serveru, nebo ji musim zprogramovat sam. to uz delam
BeforePost a funguje to.
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/Problem s PDF.OCX
[*] daniel.hrna(zv)sme(tec)cz - 13.6.2001 12:40:41
D5Pro:
Spustim program, ktery v sobe ma pouzivani PDF formatu.
(Library Acrobat ActiveX componenta).
Na PC, kde jsem kompiloval byla verze Adobe AR 4.0.
Program bezi korektne a ukoncuje se v poradku na Win NT4, 2k, W98.
Pokud spustim program na W95 (95B) program bezi korektne a pri ukonceni za
sebou zanech hlasku:
"Program provedl neplatnou operaci a bude ukoncen."
V detailech pak je:
..... v modulu PDF.OCX
Co je to za chyba a jak ji resit. Nemate nekdo zkusenost nebo radu.
Moc dik.
Dan.Systemove prostredky
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 13.6.2001 12:41:59
> O ramecky mi jde, to ano. Delam ale jakousi zjednodusenou verzi jine uz
> delsi dobu existujici aplikace a jednim z pozadavku je totozny vzhled. A
jak
> si asi uz domyslis, tak v te puvodni aplikaci jsou pouzity Panely. Nemam
na
> vybranou. Stejny vzhled je podminkou. StaticText mi prisel celkem stejnej,
> ale kdyz rikas, ze moc vhodny neni, tak uz nevim, co pouzit. Mozna bunky
> udelat plochou komponenty Tlabel a ohranicit to pouzitim TBevel, co?
> Dal potrebuju reagovat na udalost OnClick kazde bunky. Vykreslovat se s
tim
> nechci.
Mozno by bolo najjednoduchsie podedit si TCustomLabel a ramcek vykreslit.
Priklady na vykreslovanie v Canvasu najdes aj vo VCLke aj prilozenych demo
prikladoch k Delphi. Je to v celku jednoduche. Usetris tym reziu na pocet
komponent.
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
OT - goniometria
[*] Peter Surovy <surovy(zv)home.sk> - 13.6.2001 11:42:15
Sorry za OT ale stretol som sa s tymto problemom pri programovani a
mozno niekto uz nieco podobne riesil:
Ako sa zobrazi kruznica v 45 stupnovom nadhlade?
Resp : ked stvorec sa v 3d view zobrazi ako lichobeznik s y stranou v
polovicnej dlzke a pod 45 stupn. uhlom ako donho teraz nakreslim vpisanu
kruznicu ktora prechadza stredmi vsetkych 4 stran.
Vdaka.
______________________
Ing. Peter Surovy
surovy(zv)home.sk
#ICQ 119 605 423
OT: Proxy servery
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 13.6.2001 13:12:11
ahoj,
dostal jsem se do problemu. Moje aplikace posila http pozadavky - ty si vytvarim. Pokud vceste stoji proxy, tak to jeste zvladam. Nyni ale mam problem, protoze v ceste mi stoji razem 2proxy servery. Za ten prvni to pochopitelne dostanu, ale jak dal? Jde to vubec???
k prvnimu proxy v ceste pristup nemam, k druhemu ano. Nebylo by resenim na druhem proxy vytvorit mapovany port? Moc tomu nerozumim, tak sorry pokud to motam dohromady :)
diky
Milan Cizek, D5 Ent
______________________________________________________________________
Soutez HAM! o TV a 5 discmanu cely cerven na www.mcdonalds(tec)cz
Pruvodce grafem
[*] Tomas Bozik <tomas_bozik(zv)pobox.sk> - 13.6.2001 13:31:46
zeby TChart???
> Cau,
> delam programek kde bych poteboval z poli tabulek vygenerovat graf. Je
nejaky jednoduchy zpusob jak dat uzivately vybrat jaky graf bude chtit
vytisknout (neco podobneho jako v excelu) ?
>
> dik Ladap
>
____________________________________
P. S. V. P. U.
http://www.pobox.sk/
Proxy servery
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 13.6.2001 13:52:05
>dostal jsem se do problemu. Moje aplikace posila http pozadavky -
>ty si vytvarim. Pokud vceste stoji proxy, tak to jeste zvladam.
>Nyni ale mam problem, protoze v ceste mi stoji razem
>2proxy servery. Za ten prvni to pochopitelne dostanu, ale jak dal? Jde to
vubec???
Prvni proxy server musi byt nakonfigurovan tak, aby posilal pozadavky tomu
druhemu. Jinak to nejde (bavime-li se o HTTP/FTP Proxy).
>k prvnimu proxy v ceste pristup nemam, k druhemu ano. Nebylo
>by resenim na druhem proxy vytvorit mapovany port? Moc tomu nerozumim, tak
sorry pokud to motam dohromady :)
na druhem sice muzes vyrobit mapovany port ale asi Ti to moc nepomuze
protoze budes schopen komunikovat jen s predem nastavenym WWW serverem
(druhy konec mapovaneho linku). A to jeste vzniknou problemy s virtualnimi
WWW servery (hlavicka Host:, kterou budes muset nastavit na skutecne jmeno
ciloveho WWW serveru - coz zase nemusi propustit ta prvni proxy)
D> Toman
FreeReport
[*] Bednar��k Dalibor - 13.6.2001 13:52:52
Mate nekdo zkusenosti s FreeReportem?
Pouzivate ho nekdo
aktivne?
Zajimaji me zkusensti, atd.
Na prvni pohled
se mi zda dost dobry.
Diky moc ..Dalibor
OT: IB again
[*] starka <starka(zv)ticketpro(tec)cz> - 13.6.2001 14:04:58
Dobry den,
netusite nekdo, proc se mi nedari do database zalozene s character setem
'none'
do jednotlivych sloupecku tabulky zalozenych s rozdilnym character setem
(konkretne
'win1250') vlozit ceske znaky? Konkretne to nejde ani z delphi, ani z
IBconsole, ani
z IBExperta ani... A porad to povida neco o "arithmetic exception, numeric
overflow, or string truncation. Cannot transliterate characters betweem
character
sets".
Diky za kazdy napad Jarda
Panel ( CoolBar nebo ControlBar ) ?
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 13.6.2001 14:09:57
> Jaky mam pouzit nastroj kdyz chci, vytvorit podobny panel tlacitek jako
TControlBar + TToolBar. Obsluha by mela vypadat asi takto:
{====================== Toolbars docking =====================}
procedure Tf_Main.CtrlBar_MainGetSiteInfo(Sender: TObject;
DockClient: TControl; var InfluenceRect: TRect; MousePos: TPoint;
var CanDock: Boolean);
begin
CanDock := (DockClient is TToolBar)// and (DockClient.Name <> 'toolBar_Menu');
end;
procedure Tf_Main.CtrlBar_MainDockDrop(Sender: TObject;
Source: TDragDockObject; X, Y: Integer);
begin
with (Sender as TControlBar) do
BevelEdges := [beLeft, beRight, beTop, beBottom]
end;
procedure Tf_Main.CtrlBar_MainUnDock(Sender: TObject; Client: TControl;
NewTarget: TWinControl; var Allow: Boolean);
begin
with (Sender as TControlBar) do
if ControlCount = 1 then
BevelEdges := []
end;
procedure Tf_Main.toolBarStartDock(Sender: TObject;
var DragObject: TDragDockObject);
begin
DragObject := TToolDockObject.Create(Sender as TToolBar);
CustomDockObject := DragObject
end;
procedure Tf_Main.toolBarEndDock(Sender, Target: TObject; X, Y: Integer);
begin
CustomDockObject.Free;
CustomDockObject := nil
end;
Dalsi dotazy popr. na soukr. mail
S pozdravem
Milan Tome#
Vedouc� v�vojov�ho t�mu Windows
Softwarehouse HAiDA s.r.o.
Nov� Bor
tel: 0424/722291, 0424/222284
email: Milan.Tomes(zv)haida(tec)cz
OT: IB again
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 13.6.2001 14:09:40
> netusite nekdo, proc se mi nedari do database zalozene s character
> setem 'none' do jednotlivych sloupecku tabulky zalozenych s rozdilnym
> character setem (konkretne 'win1250') vlozit ceske znaky?
Charset musi byt nastaven jednak v databazi, jednak pro
connection. V IBX je to po dvojkliku na komponente TDatabase, v
IBConsoli a spol. patrne pri registraci databaze.
David Lebeda
posilani SMS
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 13.6.2001 14:35:14
----- Original Message -----
From: "Danny" <delphiforum(zv)atlas(tec)cz>
> chtel jsem si napsat program, ktery by mi umoznil vytvaret si skupiny lidi
a
> tem pak hromadne zasilat SMSky (nejlepe pres brany operatoru).
> Pak me ale napadlo, ze se mezi vami urcite najde nekdo, kdo si s tim uz
> davno poradil. Jestli ano a dotycny bude ochoten poskytnout vysledek sve
> prace, budu mu velmi zavazan.
> Mel jsem kdysi nejaky produkt Kubik SMS DreamCom v.2 a tam to bylo dobre
> reseny. Bohuzel jsem si to preinstaloval verzi 3 a ta mi nechodi :-(
Tak zdrojaky momentalne nemam, ale KubikSMSDC ma momentalne dve verzie.
Poslednu Free 2.07 a od verzie 3.x je to platene. Ked si stiahnes 2.07 tak
tam mas vsetko co potrebujes a zdarma. :-)
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
IB again
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 13.6.2001 14:36:32
> netusite nekdo, proc se mi nedari do database zalozene s
> character setem 'none'
> do jednotlivych sloupecku tabulky zalozenych s rozdilnym
> character setem (konkretne 'win1250') vlozit ceske znaky?
> Konkretne to nejde ani z delphi, ani z
> IBconsole, ani z IBExperta ani...
musis si nastavit v jakym charset komunikujes.
v delpi poklepej na komponentu IBDataBase
v IBConsoli je to nekde v opsnech
v IExpertovi se to dela myslim pri registraci GDB
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/Pruvodce grafem
[*] Parizsky Ladislav <Ladislav.Parizsky(zv)access-it(tec)cz> - 13.6.2001 14:41:46
Jasne ze TChart, ale me jde spish o to zda ma v sobe nakyho wizarda nebo tak neco, pripadne jak ho spustit.
Ladap
>>> tomas_bozik(zv)pobox.sk 13.6.01 13:31 >>>
zeby TChart???
> Cau,
> delam programek kde bych poteboval z poli tabulek vygenerovat graf. Je
nejaky jednoduchy zpusob jak dat uzivately vybrat jaky graf bude chtit
vytisknout (neco podobneho jako v excelu) ?
>
> dik Ladap
>
____________________________________
P. S. V. P. U.
http://www.pobox.sk/
DB aplikace s textovymi soubory
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 13.6.2001 15:39:02
Skus pouzit TMemDataset
http://delphi.e-indexit.com/
skus kbmMemTable je to fakt super! Umoznuje transakcie,indexy,filtraciu
a je to free a velmi slusny je aj support
> Proto Vas snazne prosim o radu - nemate nekdo povedomi
> o nejake komponente nebo reseni, ktere by namisto db tabulek
> vyuzivalo k praci s daty textove soubory (DAT, SDF?).
> Pripadne jsem ochoten za radu na funkcni reseni i zaplatit.
> MS SQL server a Internet
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 13.6.2001 15:53:06
Mam nasledujici problem:
Na nekterych pocitacich, kde je nainstalovano MSDE se chce pri startu
serveru spoustet i pripojeni k Internetu. Na jinych pocitacich ne, ac maji
rovnez vytacene pripojeni k Internetu. Urcite to zavisi na nejakoem
nastaveni. Nevite nekdo na jakem? A na nekterych pokud mezi server se naopak
neda k Internetu pres vytacene pripojeni pripojit.
J. N�dhera
CSH spol. s r.o.
Velflikova 10, 160 00 Praha 6
tel: 02/2431 2344-5, fax: 02/652 28 92
Nedbalova 14, 701 00 Ostrava
tel: 069/663 56 87
e-mail: nadhera(zv)csh(tec)cz WWW: http://www.csh(tec)cz
default value; IBtable: BeforePost
[*] Radek KALA <Kala(zv)Atlas(tec)cz> - 13.6.2001 15:55:58
>
> > > Domnival jsem se, ze pak pri zalozeni noveho zaznamu budou prislusna
> > > policka rovnou obsahovat hodnotu 'y', aniz bych se o to musel
> > > starat.
> >
> > DEFAULT ti doplni az server pri pokusu o ulozeni do databaze
>
> No prave ze nedoplni - vyhodi vyjimku, ze pole Exportovat obsahuje
> NULL.
Ale ano doplni a tu vyjimku ti nevyhodi Interbase, ale Delphi,
protoze Field ma nastaveno IsRequire ( nebo tak nejak se to
jmenuje, takze tam kde to chces nechat na server aby si to doplnil,
musis jit do definice fieldu a vypnout si to. Pak to projde
>
> Odpoledne to vyzkousim: muze byt rozdil v tom, kdyz nadefinuji
> DEFAULT VALUE u domeny a tim, kdyz ji nadefinuji primo pri vytvareni
> tabulky?
To rozdil neni
>
> > > U stejne tabulky jsem pak narazil na dalsi potiz: kdyz se totiz
> > > nedoplnovala defaultni hodnota, chtel jsem ji dosadit "rucne" u
> > > tIBtable v udalosti BeforePost.
> >
> > ta se vykona (mela by se vykonat) tesne pred ulozenim dat na server,
> > takze ti to ty hodnoty taky nenabidne. ja to delam v onNewRecord, nebo
> > jaxe to menuje, provede se pri vytvareni nove vety, jeste nez se
> > zobrazi.
>
> Copak o to, ze mi to nenabidne ty hodnoty, ale ona se ta udalost
> nevykona, v tom je ta potiz. Protoze takhle musim hlidat tech
> udalosti vic - pisu to ted z hlavy - urcite onNewRecord a onEdit.
>
Ze stejneho duvodu se neprovede beforepost, protoze jeste predtim
to delphi zarazi protoze neni vyplnen field, ktery musi byt.
Takze jsou jen dve moznosti
1. Vypnout rucne povinnost
2. Delat to OnNewRecord
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
Replikace MS SQL 7 - MSDE
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 13.6.2001 16:11:12
Ji�� Foldyna dne 13 Jun 2001, v 9:58:
> musim dat dohromady replikaci dat mezi centralou a pobockami. V
> centru je MS SQL server 7, na pobockach bezi MSDE s databazi, ktera
> je podmnozinou databaze na serveru (jak tabulky, tak zaznamy).
> Replikovat potrebuji obousmerne, tj. zmeny se mohou provadet jak v
> centru, tak na pobockach. Ma nekdo zkusenosti s resenim podobne
> ulohy a byl by ochoten ztratit sluvko ?
No pokusim se, lec nevim, zda to nejak zvlast pomuze :-)
- tabulky jsem si rozdelil do dvou skupin podle toho, zda je ci neni
pripustne, aby v jednom zaznamu byla mezi dvema exporty upravena data
soucasne na vice pobockach. Pripustne to je (v nasi situaci) napr. v
evidenci zasob, nepripustne je to napr. u prodejnich dokladu.
- tam, kde se smi delat zmeny na vice pobockach soucasne, uchovavam
stav (zasoby) tak, jak byl pri poslednim exportu. Pri dalsim exportu
se potom (rafinovanym SQL dotazem...) zjisti rozdily v techto
tabulkach (je treba osetrit i pripady, kdy v jedne ci druhe tabulce
zaznam neni) a posle se tento rozdil. Na cilove pobocce (pobockach)
se tento soubor "pricte" k jejich stavajici zasobe. Rekl bych, ze to
funguje celkem dobre.
- tam, kde se zmeny smi provadet jen na jedne pobocce, si u dokladu
(v hlavicce dokladu - tj. jen v tabulce master) uchovavam info o tom,
zda je treba doklad exportovat, a take datum a cas posledni zmeny na
dane pobocce. Pri exportu pak tyto priznaky mazu. Kdyz se data
importuji na ostatni pobocky, porovnava se v pripade kolizi datum a
cas importovanych dat s temi, ktera tam uz jsou, a ponecham jen
nejnovejsi verzi. Teoreticky by nemelo dochazet k zadnym problemum, v
praxi k nim obcas dochazi (soucasne upravi adresu odberatele na dvou
pobockach apod.). take to funguje celkem dobre, je treba dat obrovsky
pozor na spravne poradi pri importu kvuli vsem moznym vazbam master-
detail.
Karel Rys
PS: A ted se doufam dovim, ze to databaze nejak umi sama od sebe...
Ja tohle delal nad paradoxovymi tabulkami a pro IB to budu teprve
predelavat, takze pripadne namety na zlepseni uvitam!Zatuhnuti DELPHI
[*] Radek Cervinka <radek.cervinka(zv)centrum(tec)cz> - 13.6.2001 16:12:14
Ahoj,
Pokud mas tu S3 a Win 9x tak misto toho aby jsi snizoval hardwarovou
akceleraci napis do system.ini tohle:[display]
BusThrottle=On
Radek
Ahoj,
nainstaloval jsem si delphi a po spusteni mi zatuhne. Zustane to viset
hned na LOGU Delphi.
Mam to na pocitaci Pentium, 64MB, Win98.
Nevite nekdo co s tim?
Dik
Dalibor
Ako sa da zmenit tvar hint
[*] JIM Design <jim.design(zv)iol(tec)cz> - 13.6.2001 16:28:51
ahoj,
od P.Vonese z 29.12.99
----
unit HintWindowFixD5;
interface
uses
Windows, Messages, Classes, Forms, Controls;
type
THintWindowFix = class(THintWindow)
private
procedure HintFontChanged(Sender: TObject);
protected
procedure Paint; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;
implementation
{ THintWindowFix }
constructor THintWindowFix.Create(AOwner: TComponent);
begin
inherited;
Screen.HintFont.OnChange := HintFontChanged;
end;
destructor THintWindowFix.Destroy;
begin
Screen.HintFont.OnChange := nil;
inherited;
end;
procedure THintWindowFix.HintFontChanged(Sender: TObject);
begin
Canvas.Font := Screen.HintFont;
end;
procedure THintWindowFix.Paint;
var
R: TRect;
begin
R := ClientRect;
Inc(R.Left, 2);
Inc(R.Top, 2);
DrawText(Canvas.Handle, PChar(Caption), -1, R, DT_LEFT or DT_NOPREFIX or
DT_WORDBREAK or DrawTextBiDiModeFlagsReadingOnly);
end;
initialization
HintWindowClass := THintWindowFix;
end.
----
M.Jirman
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Ako zmenim tvar hintu zo svtorceka na kluzok alebo na nejaky iny obj.
Dakujem
Robo
IB: Replikacia
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 13.6.2001 17:33:58
Ahoj,
nas projekt (D3-D5, IB5-IB6) vyzaduje replikacie, preto hladame vhodny
nastroj. Kto moze nieco ponuknut alebo doporucit?
Zatial vieme o IBReplicator od Synectics (dost drahe pre zakaznika) a
Replication Manager od SoftLab (este v plienkach).
Pavol Stolc
pstolc(zv)sc.sknet.sk
MS SQL 7 klient problem
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 13.6.2001 18:09:53
> Pristup na SQL servera sa mi z jednej NT4/SP5 stanice zrazu strasne
> spomalil. Chrasti to diskom, ako ked Windows swapuju.
Tak uz je to jasne, bola to pekne DEBILNA pricina. Niekto zapol v ODBC
logovanie vsetkych SQL prikazov, takze aby sa mi aplikacia rozbehla, musela
najprv vyrobit 51 megovy log :-)
Je to masina vo vyrobe, takze je dost problem dostat do nej cokolvek. Ale
dnes sa mi tam podarilo prepasovat Filemon.exe a hned bolo jasne, co sa
deje.
bye
vmlich http://www.winrar(tec)cz
Proxy servery
[*] Milan Schembera <milan(zv)missoftware(tec)cz> - 13.6.2001 18:35:14
> -----Original Message-----
> From: Milan #ݿek
> dostal jsem se do problemu. Moje aplikace posila http
> pozadavky - ty si vytvarim. Pokud vceste stoji proxy, tak to
> jeste zvladam. Nyni ale mam problem, protoze v ceste mi stoji
> razem 2proxy servery. Za ten prvni to pochopitelne dostanu,
> ale jak dal? Jde to vubec???
>
> k prvnimu proxy v ceste pristup nemam, k druhemu ano. Nebylo
> by resenim na druhem proxy vytvorit mapovany port? Moc tomu
> nerozumim, tak sorry pokud to motam dohromady :)
Tomu nerozumim. Jak se dostanes za prvni proxy, kdyz k ni nemas pristup ?
Pokud mas nakonfigurovany prohlizec, tak bych se mrknul tam, ktera proxy je
nastavena a hlavne jaky port.
Je ta cesta naroutovana takhle ?
TY <-> 3128 Proxy1 <-> 3128 Proxy2 <-> 80 HTTP Server ?
Nebo tomu nerozumim.
end ohekzeh minarp a mevardzop S
arebmehcS naliM .rDCP
ERAWTFOSSIM
444449/8060 .let
zc.erawtfossim.www\\:ptth
posilani SMS
[*] Volny <valentapat(zv)volny(tec)cz> - 13.6.2001 18:42:11
stahni si posledni verzi. Musis se tam ale zaregistrina u ntmsms.com viz
help
----- Original Message -----
From: "Danny" <delphiforum(zv)atlas(tec)cz>
To: "Delphi konference" <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, March 13, 2001 2:03 PM
Subject: posilani SMS
> Ahoj lidi,
> chtel jsem si napsat program, ktery by mi umoznil vytvaret si skupiny lidi
a
> tem pak hromadne zasilat SMSky (nejlepe pres brany operatoru).
> Pak me ale napadlo, ze se mezi vami urcite najde nekdo, kdo si s tim uz
> davno poradil. Jestli ano a dotycny bude ochoten poskytnout vysledek sve
> prace, budu mu velmi zavazan.
> Mel jsem kdysi nejaky produkt Kubik SMS DreamCom v.2 a tam to bylo dobre
> reseny. Bohuzel jsem si to preinstaloval verzi 3 a ta mi nechodi :-(
> Diky.
> Danny
>
>Proxy servery
[*] Milan ��ek - 13.6.2001 20:02:49
na druhem sice muzes vyrobit mapovany port ale asi Ti to moc nepomuze
> protoze budes schopen komunikovat jen s predem nastavenym WWW serverem
> (druhy konec mapovaneho linku). A to jeste vzniknou problemy s virtualnimi
> WWW servery (hlavicka Host:, kterou budes muset nastavit na skutecne jmeno
> ciloveho WWW serveru - coz zase nemusi propustit ta prvni proxy)
ahoj,
no ja chapu pojem mapovany port tak, ze pokud dostane ten proxy (na kterym
je namapovano) pozadavek na ten port, tak ho bezrozpaku automaticky preposle
rovnou klientovi. Nebo ne?
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Proxy servery
[*] Milan ��ek - 13.6.2001 20:45:46
> Tomu nerozumim. Jak se dostanes za prvni proxy, kdyz k ni nemas pristup ?
> Pokud mas nakonfigurovany prohlizec, tak bych se mrknul tam, ktera proxy
je
> nastavena a hlavne jaky port.
>
> Je ta cesta naroutovana takhle ?
> TY <-> 3128 Proxy1 <-> 3128 Proxy2 <-> 80 HTTP Server ?
>
> Nebo tomu nerozumim.
Ja-SQUID:8080-WinRoute:3128-80
na tom WR bych vytvoril ten mapovany port.
Pouzivam komponentu GpHTTPproxy, ktera umoznuje nastavit dalsi Next-hop
Proxy (to je SQUID)... ale dal?Cteni z portu
[*] Martin Kr� <MKrc(zv)seznam(tec)cz> - 13.6.2001 20:48:14
Me slo take o herni ucely. Chtel bych udelat real-timovou strategii pro dva
hrace
u jednoho pocitace (rozdelena obrazovka).
Martin Krc
Koroner(zv)quick(tec)cz
----- Original Message -----
From: "Danny" <delphiforum(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, June 11, 2001 4:18 PM
Subject: RE: Cteni z portu
> Dovedu si docela dobre predstavit hru, ve ktere by si mohl strilet obema
> rukama nezavisle a kazdy zamerovac by si ovladal jednou mysi (rukou).
> Treba k tomu. (samozrejme, ze nevim, k cemu to potrebuje autor).
> Danny
>
> > Cau
> > tak to opravdu nejde.
> > strasne by me zajimalo k cemu je to dobry
> > diky
> > Tomas Hejduk
> >
> > -----Original Message-----
> >
> >
> > Jak mohu udelat program, ktery bude reagovat na druhou mys,
> > kterou pripojim
> > na COM1 (prvni je na PS2)? Jde to vubec?
> >
> > Dekuji za odpoved!
> >
> > Martin Krc
> > Koroner(zv)quick(tec)cz
> >
>
>Cteni operacni pameti
[*] Martin Krc <MKrc(zv)seznam(tec)cz> - 13.6.2001 20:50:42
A neda se nahodou pristupovat k pameti primo pomoci Assembleru?
Tam prece jsou metody pro cteni dat z urcite adresy.
Martin Krc
Koroner(zv)quick(tec)cz
----- Original Message -----
From: "Jiri Binder" <j.binder(zv)albacon(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, June 12, 2001 8:59 AM
Subject: Re: Cteni operacni pameti
> > patrne jde o zapis do adresoveho prostoru ciziho procesu pomoci API
> > funkce WriteProcessMemory. To ovsem nema nic spolecneho s pristupem do
> > fyzicke RAM, protoze pro aplikace tento pojem neexistuje.
> > Petr Vones, amatersky programator
>
> Ahoj,
> s tou RAM se omlouvam, myslel jsem na pametovy prostor a psal
> jsem neco jineho. Dosud jsem zil v domeni, ze system
> (prinejmensim NT a W2k) chrani pamet pridelenou procesu tak,
> aby se tam jiny proces nedostal. Docela by me zajimalo, zda
> mohu nejak zabranit, aby mi nekdo staral v datech ulozenych v
> pameti, nebo je treba takova data v pameti nenechavat polehavat
> nezasifrovana.
>
> Jiri Binder
> Resource meter pod Win2k?
[*] Milan ��ek - 13.6.2001 21:10:25
ahoj,
chci se zeptat, nevite nekdo o necem jako Meric sys.prostredku ve Win95/98,
aby to slapalo ve Win2k? Pretahnout to nejde, jelikoz to taha fce z
kernel32.dll :(
diky
S pozdravem Milan Cizek, amatersky programator, D5 Ent (SP1)
Win2k (SP1) a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Je snad C++ Buider smejd???
[*] Hurricane <hurricane(zv)quick(tec)cz> - 13.6.2001 21:22:47
Zdravim
Tak tohle slysim poprve. Co vim, tak jakekoliv programovani od MS je shit,
zminovany Metrowerks neznam a jak je to s borlandem vime vsichni dobre.
Rozdil mezi Delphi a C++ Builder (=Borlandu) je v tom, ze C++ Builderove
programy jsou o dost mensi ale za to se zase hodne pomalu kompilujou (radove
treba i 5 - 10 sec.) Slysel jsem, ze programy v C++ Builderu jsou rychlejsi
nez v delphi. Ale ne o moc. Jak jiste vsichni vite, v C++ (obecne, od MS i
od Borlandu) se delaji rozsahlejsi a vetsi projekty (Office, Windowsove
aplikace,..). To bude nejspis prave z toho duvodu, ze C++ kompilator lepe
vyrabi vysledne EXE. Mozna taky proto, ze MS Visual C++ je to nejlepsi, v
cem muze MS programovat. V Delphi psat urcite nebude.
Hurricane
----- Original Message -----
> zarazila me jedna z diskusi na serveru Zive
> http://www.zive(tec)cz/h/Developerdaily/F.asp?ARI=100484&HID=1
>
> Pripojuji kopii jedne reakce na clanek a reakci na ni. M�l jsem za to,
> ze kompilatory Borlandu patri mezi spicku vyvojovych nastroju. Jak to
> teda je?
>
> Kopie z Zive:
> HAHA =================================================
> "Tim nechci rici, ze Visual C++ je horsi nez napr. C++ Builder. Naopak,
> vysledne aplikace jsou vykonnejsi. Tim mam na mysli napr. narok na
> systemove zdroje a pamet, rychlost kodu apod."
>
> HAHA
>
>
> Re: HAHA ===============================================
> Delal sem pokus na schopnost optimalizace ruznejch kompilatoru. Je
> opravdu velkej rozdil mezi kompilatorama co kompilujou docela dobre
> (Visual C++, Intel C++, GNU C (Cygwin)), tema co optimalizujou trochu
> hur (Metrowerks - CodeWarrior) a tema co neoptimalizujou skoro vubec
> (Borland C++ a jeste hur Delphi). Pokus sem delal jako vypocet
> Mandelbrotu ve fixed a float matematice. Vysledky prvnich 3 byli +/- vo
> par procent srovnatelny, Metrowerks byl tak vo 50% pomalejsi a Borland
> klidne i 2 - 3x pomalejsi.
>
> Kompilator vod Borlandu pravdepodobne podporuje vic ISO standard C++,
> ale co se tyce optimalizaci je to totalni shit. Hral sem si s nastavenim
> prekladu u vsech prekladacu dost dlouho a dokumentaci sem cet. Vim, ze
> by se nasli jiny testy, kde by vysledek nemusel bejt tak zdrcujici, ale
> presto...Generator ROZVEDENI.......
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 13.6.2001 21:39:59
......PLEASE, asi jsem natvrdlej ale jedinne slovo co jsem ti rozumnel je
HESLO,pak tam zaznelo HASH(to zavani drogama).Jestli tomu rozumim tak po
zahashovani stejneho slova vznikne stejnej retezec? A ted jeste takova
drobnost co je to algoritmus MD5 a kde ho seberu...
Aldik
----- Original Message -----
From: Tomas Vladik <tom.vladik(zv)swadvice(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, June 13, 2001 9:28 AM
Subject: RE: Generator
> > Ahoj kluci jeste neco, potreboval bych neco co by mi zakodovalo heslo a
> > nasledne rozheslovalo,to heslo v zakodovane podobe by bylo v
> > tabulce a pri
> > prihlasovani by se rozkodovalo...
> >
>
> Muzes si napr. ulozit jenom hash z hesla (vytvoreny napr. pomoci
algoritmu
> MD5). Sice to uz nikdy nerozkodujes, ale to nevadi. Heslo zadane
uzivatelem
> opet zahashujes a porovnas s ulozenym hashem.
>
> T.
>
>Generator
[*] Ales Pavel <Bejcek(zv)centrum(tec)cz> - 13.6.2001 21:42:56
POHODA POHODA ONO STEJNE V PARADOXU O BEZPECNOSTI NEMUZE BYT ANI REC......
Jeste mi vysvetli cos to stim vyvadel....fakt dobry....taky bych to chtel
umet takhle zamotat...
Aldik Pavel alias Talpa (amater ale snazivej D5 Ent W98)
----- Original Message -----
From: <brant(zv)dcomm(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, June 12, 2001 9:09 PM
Subject: RE: Generator
> Zcela primitivni a nevhodny, lec fungujici zpusob je tento:
>
> var PswCrypted: string;
> PswDecrypted: string;
>
> ...precteni PswCrypted z tabulky...
> PswDecrypted:='';
> for i:=1 to Length(PswCrypted) do
> PswDecrypted:= PswDecrypted + chr(ord(PswCrypted[i]) xor 123);
>
> ...a je to. Pisu to z hlavy, takze sorry for pripadne errors.
> Jo a sifrovani zcela stejne, xor je symetricka funkce.
>
> RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
> ICQ #68652380
>
> D&COMM s.r.o.
> Korunova�n� 6
> 170 00 Praha 7
>
>
> Ahoj kluci jeste neco, potreboval bych neco co by mi zakodovalo heslo a
> nasledne rozheslovalo,to heslo v zakodovane podobe by bylo v tabulce a pri
> prihlasovani by se rozkodovalo...
>
> Diky
> Aldik Pavel
>
>
>Registry pri ukonceni Windowsu
[*] Hurricane <hurricane(zv)quick(tec)cz> - 13.6.2001 21:44:27
Zdarvim
Zkontroluj si svuj kod. Mam v OnCloseQuery hoodne zapisovani do registru a
bez sebemensich problemu to funguje uz dva roky. Na zacatku OnCloseQuery se
otevira Message s otazkou a po jejim odkliknuti se uklada do registru a pak
se aplikace ukonci. Prave jsem to vyzkousel na dvou instancich tehoz
programu (jeden s dialogem na konci, druhy bez). Po potvrzeni restartovani
to na me vyplivlo dialog z toho jednoho programu a po odkliknuti se
restartovaly widle. Naposte bez problemu. Nejspis tam mas nekde chybu. Nebo
zapisujes do casti registru, do ktere uz nemuzes, ja zapisuju jen do HKCR. V
pripade zajmu, muzu poslat cast meho kodu (proceduru OnCloseQuery). Mam tam
totiz takovou klicku se tou promenou, ktera muze zrusit ukonceni aplikace,
ale nemyslim si, ze by to spolu souviselo.
Hurricane
----- Original Message -----
> mam aplikaci, ktera se ukoncuje az pri ukonceni Windowsu ale potrebuji
> ulozit nektere nastaveni do registru.
> Ukladani jsem dal do CloseQuery. Pri klasickem ukonceni (Alt+F4, klik na
> krizek a pod) se udaje ulozi, ale pokud koncej Windowsy, tak to zdechne
> prave na ukladani udaju... Je mozne, ze by si Windowsy registry nejak
> blokovaly? Nebo lze nejak oblouzit ukonovani windowsu drive nez bude
> CloseQuery?resulty z OpenDialogu
[*] Hurricane <hurricane(zv)quick(tec)cz> - 13.6.2001 21:49:05
Zdravim
Tohle by nefungovalo. Potreboval bych asi neco jako tohle:
case OpenDialog1.Execute of
mrOK: //stisknuto OK
mrStorno: //stisknuto storno
end;
Nebo jinak
if (OpenDialog1.Execute) = mrOK then
begin
// uzivatel pouzil Otevrit
end
else
begin
// kliknuti na cokoliv jineho
end;
Hurricane
----- Original Message -----
> > Mam OpenDialog a potrebuju nejak zjistovat na ktery cudlik uzivatel
kliknul
> > (jestli Otevri nabo Storno). Vraci tento dialog nejake modalni resulty
> Jestli jsem to dobre pochopil, tak reseni je zde:
>
> if OpenDialog1.Execute then begin
> // uzivatel pouzil Otevrit
> end
> else begin
> // kliknuti na Storno
> end;Vytvoreni aliasu
[*] Honza Lisal <honza.lisal(zv)lisoftware(tec)cz> - 13.6.2001 21:49:59
Ahoj,
zajimalo by me, jak musim nastavit Install Shield, aby mi vytvoril stejny
alias, ktery pouzivam na jinem pocitaci - aby mi chodil program s databazi
jinde.
Diky, Honza
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.236 / Virov� b�ze: 114 - datum vyd�n�: 5.3.2001
Replikace MS SQL 7 - MSDE
[*] Viliam Mlich <vmlich(zv)mbox.vol(tec)cz> - 13.6.2001 21:53:50
>Replikovat potrebuji obousmerne, tj. zmeny se mohou
> provadet jak v centru, tak na pobockach.
Skusenosti nemam, ale napada ma, ci by sa nejako nedal pouzit 'transaction
log'.
Momentalne mi robi len problemy. Neodfajkol som, ze sa ma automaticky
shrinkovat a u jednej databazy mi narastol do 2 giga :-( Dalsi rast sa
zastavit da, ale skratenie som dosiahol len tak, ze som si tabulky
vyexportoval do pomocnej databaze, original som zrusil, znovu zalozil a
naimportoval tabulky z pomocnej databaze. Zabudol som pri tom na pristupove
prava, ale nastastie toho bolo malo, rucne som to nabuchal rychlejsie, nez
by som zistoval, ako to odlozit a obnovit.
bye
vmlich http://www.winrar(tec)cz
resulty z OpenDialogu ;cesty k Office
[*] Hurricane <hurricane(zv)quick(tec)cz> - 13.6.2001 21:54:55
Zdravim
Aha, tak proto. Driv jsem pouzival takovouhle konstrukci:
if OpenDialog1.Execute then
begin
promenna := OpenDialog1.FileNAme;
///// dalsi kod s pouzitim promene
end;
Pozdeji jsem to predelal na
if OpenDialog1.Execute then promenna := OpenDialog1.FileNAme;
/// dalsi kod s pouzitim promene
Takze kod v prvnim pripade se provede jen po OK?
Hurricane
----- Original Message -----
> Pokud pouzijes standardni konstrukci
> If OpenDialog.Execute then ...
> tak ti vrati True pro OK a False pro vsechno ostatni.
> 12.6.2001 Hurricane:
> > Mam OpenDialog a potrebuju nejak zjistovat na ktery cudlik uzivatel
kliknul
> > (jestli Otevri nabo Storno). Vraci tento dialog nejake modalni resulty
> > podobne jako Application.MessageBox? Jinymi slovy: V procedure nejdriv
Problem s PDF.OCX
[*] Hurricane <hurricane(zv)quick(tec)cz> - 13.6.2001 21:59:52
Zdravim
Na novejsich systemech je zrejme nainstalovany novejsi Acrobat a tudiz i
novejsi Active X komponenta (pdf.ocx), nez na to W95 stroji. Nainstalovani
novejsiho Acrobatu na ty W95 by to melo vyresit. Pokud tomu tak je, tipoval
bych to asi na obecnou zastaralost W95. Muj nazor je ten, ze v dnesni dobe
uz neni potreba aplikace testovat na kompatibilitu s W95.
Hurricane
----- Original Message -----
> Spustim program, ktery v sobe ma pouzivani PDF formatu.
> (Library Acrobat ActiveX componenta).
>
> Na PC, kde jsem kompiloval byla verze Adobe AR 4.0.
> Program bezi korektne a ukoncuje se v poradku na Win NT4, 2k, W98.
>
> Pokud spustim program na W95 (95B) program bezi korektne a pri ukonceni za
> sebou zanech hlasku:
>
> "Program provedl neplatnou operaci a bude ukoncen."
> V detailech pak je:
> ..... v modulu PDF.OCX
>
>
> Co je to za chyba a jak ji resit. Nemate nekdo zkusenost nebo radu.zakriptovanie
[*] Jan Tungli <Jan.Tungli(zv)datapac.sk> - 13.6.2001 22:03:56
Potrebujem nejaku proceduru , na zakriptovanie a odkriptovanie stringu
(najlepsie assamblerovsku) aby to bolo rychle. Idealne by bolo keby aj
trosku vedel komresovat, ked chcem.
Dakujem
Jan Tungli
email: jan.tungli(zv)seznam(tec)cz
tungli(zv)datapac.sk
http://www.tungli.host.sk (NEW SQL REPORT BUILDER)
http://www.nexus.hu/tungli