Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Zmena serioveho cisla harddisku
[*] Vetrak <vetrak(zv)datalock.sk> - 15.12.2000 09:42:04
Dobre, poskytnem par doplnujucich udajov, aj ked nechcem robit zbytocnu
reklamu.
Produkt sa pouziva ako jednoucelove zariadenie, kde po zaplateni prislusnej
sumy sa nieco udeje ( nejde o hazard ).
Specialne zariadenie na LPT je prave mincovnik od NCR, komunikuje sa s nim
cez prislusne 4 piny na lpt porte, ktore sa normalne pouzivaju na
komunikaciu z tlaciarnou. Bohuzial kazdy mincovnik je iny priamo z vyroby a
ani po nastavovani sa nedaju mincovniky dostat do rozumnych tolerancii
dlzky signalov ... a to aj pri opakovanom vhodeni tej istej minci do toho
isteho mincovnika je dlzka impulzu rozna).
Na to sa ale nestazujem, problem sa da riesit softom a pomerne elegantne,
tu len podotknem, ze soft musi zaregistrovat kazdu padnutu mincu do
mincovnika, takze komunikacia na LPT je tak na hrane moznosti systemu a
dalsiu si tam nemozem dovolit.
Dalsia podmienka bola, aby sa cele zariadenie a hlavne soft spamatal aj po
vypadku prudu a pokracoval v cinnosti, ako keby sa nic nestalo.
Ako hardware sa pouzivaju najlacnejsie maticne dosky ( argument su naklady
na vyrobu ) bez zbytocnych doplnkov, cize USB neexistuje, LPT je len jedno,
klasicka klavesnica neexistuje, len 4 tlacitka, HW kluc sa neoplati pre
zvysene naklady, typ procesora je rozny, typ BIOSu je rozny, sietova karta
neexistuje... ide len o to, aby to fungovalo relativne bez problemov.
Cele je to postavene na tom, ze vyrobne naklady musia byt nizke, predajna
cena tiez, pocet kusov velky. Zariadenie dokaze okopirovat a zostavit aj
priemerne
vzdelany foxterier, dusu tomu dava az soft. A sme pri probleme.
Pokial niekto z Vas funguje ako spravca velkej siete a bol nuteny rozbehat
viac ako 10 PC urcite bude hladat sposob ako si urychlit robotu.
Bezny je prave sposob, kedy ozivim jednu masinu, na disky dalsich
rozkopirujem a dokonfigurujem.
Samozrejme musim mat vsetko poriesene licencne - nechcem tu ale rozprudit
diskusiu na tuto temu, v konferencii jej bolo dost.
Rovnaky postup ale moze pouzit aj niekto iny, kde to uz nie je v mojom
zaujme, prave preto hladam sposob, ako identifikovat kazdu masinu, na ktorej
to moze alebo nemoze bezat. A ak nemoze bezat v plnom rezime, nech sa to
aspon predvedie - marketing tu ale vysvetlovat nebudem.
A nemozem sa spolahnut na zapisy do registrov, identifikaciu OS, zapis po
prvom spusteni ... to su vsetko informacie, ktore sa prenesu pri kopirovani
z masiny do masiny.
Na internete som nasiel nasledovnu informaciu :
other information that may be checked:
- BIOS date
- IDE HDD controller information
( unique for each IDE HDD, but hard to get under Win32 ) // toto by
bolo asi najvhodnejsie, nema niekto nieco naprogramovane, alebo aspon nejake
info
- volume serial number
- boot sector of drive C:
- equipment word from BIOS data
- CMOS values
- file length
- control sum of file
- file name
- size of current drive
- current directory
- number of first cluster of file
- partition table
- OS version
- presence of some drivers
Pouzil som kombinaciu niektorych metod, ale je to hlavne postavene na serial
number harddisku. Cislo sa prideli pri formatovani a malo by byt jedinecne.
Pokial ho ale dokaze zapisat cast OS, da sa to aj inym softom. Preto bol aj
povodny prispevok do konferencie.
Ak si uz niekto da tu namahu, ze krekne kod, dobre - stalo sa.
Ale neexistuje nejaka utilita volne pohodena a volne dostupna, kde sa bez
velkeho rozmyslania da zmenit toto cislo ???
Prave preto som sa obratil na Vas, viac hlav, viac znalosti...
D.
PS: Dufam, ze ospravedlnite velkost prispevku.nevyhody packed recordu
[*] Kriz Pavel, TDS <tds(zv)volny(tec)cz> - 15.12.2000 09:42:03
> > No a pak se zarovnani zmeni (napriklad jako pri prechodu
> > D4 -> D5 ze 4 na 8 byte) a jste v ... (problemech (:-)
>
> V takovych recordech se samozrejme pouziva zasadne napriklad
> longint, a ne platformove zavisly integer, ze?
Rec nebyla o SizeOf(datovy typ), ale o Aligned Record Fields, tedy o
SizeOf(record) vs. SizeOf(packed record) pri {$A+}.
Pavel Kriz
> Zbysek Hlinka
>
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
IIS4.0+ASP+Access
[*] Delphi <Delphi(zv)scio(tec)cz> - 15.12.2000 09:50:49
Je mozne, ze je problem tady, ale proc to spadlo i v 6 hodin rano, kdy
tu databazi zarucene nikdo nemel otevrenou? Da se primy pristum do
databaze obejit prilinkovanim nekam jinam a pouzivanim teto "nove"
databaze?
Navic mam experimentalne overeno, ze ASP pristupovaly i do databaze,
ktera byl otevrena primo v Accessu.
Honza
> Nemoze to suvisiet s LDB suborom, presnejsie s pravami
> na zapis a vytvaranie suborov v adresari kde je access databaza?
> Ja som mal tento problem a prejavovalo sa to tym, ze ked som
> otvoril databazu v Accesse, tak neslo ju otvorit a citat pomocou
> ASP (pretoze viacuzivatelsky pristup si vyzaduje pristup
> na LDB subor). Ak databaza v Accesse nebola otvorena,
> tak to chodilo, pretoze ASP otvorilo databazu v exkluzivnom
> mode (cize LDB nebolo potrebne). Tato chyba by sa
> vyhradne na ASP strankach (bez Accessu) prejavila asi
> iba v pripade, keby viaceri uzivatelia sucasne pristupovali
> k databaze, cize viacmenej nahodne.
>
> Erik
> Uvolnovani objektu z TObjectList
[*] Tomas Skoda <tomas.skoda(zv)jdsoftware.sk> - 15.12.2000 10:20:38
Ahoj
myslim, ze nevyuzivas vsetkych moznosti TObjectList-u. TObjectList mozes
vytvarat volanim specialneho konstruktora Create(AOwnsObjects: Boolean). Ak
AOwnsObjects nastavis na True potom pri volani metody TObjectList.Free sa
zrusia vsetky nim "vlastnene" objekty.
Tomas.
> Mam objekt, ktery vytvorim a vlozim do TObjectList, v prubehu
> programu s timto objektem pracuji a na konci jej chci uvolnit.
> Pouzivam tuto proceduru:
>
> procedure FreeSectionItem(List: TObjectList);
> var
> SI: TSectionItem;
> i: integer;
> begin
> for i := List.Count-1 downto 0 do
> begin
> SI := TSectionItem(List[i]);
> SI.Free; // tady se povede uvolnit v pohode
> end;
> List.Free; // tady to lehne
> end;
>
> Pokud se snazim uvolnit TObjectList tak to zahlasi chybu "Access
> violation at address 00ed6ee8. Read of address 00ed6ee8."
>klavesa Tab
[*] Michal Madle <mmadle(zv)seznam(tec)cz> - 15.12.2000 10:35:28
Tohle sice nebude reagovat pouze na Tab, ale na jakoukoli zmenu aktivniho
objektu.
Zkus udelat tu akci v udalosti OnEnter - ta se vola, pokud se objekt aktivuje.
Udalost OnExit se vola, pokud se opousti objekt.
At 08:24 15.12.2000 +0100, you wrote:
procedure TEdit.KeyPress(var Key: Char);
begin
if (Key = #13) then {stisk Tab}
begin
{zde si delej co chces}
end;
end;
----- Original Message -----
From: Stanislav Vit�sek <vitasek(zv)nspuh(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, December 14, 2000 1:46 PM
Subject: klavesa Tab
> Cau lidi,
>
> v D4 mam na formulari hromadu Edit komponent. Pred prechodem na dalsi
> Edit potrebuji jeste automaticky provest nejake akce (napr. otevrit
> OpenDialog aby se nazev vybraneho souboru vlozil do Editu na ktery se
> prepinam). Toto mi funguje s ENTERem odchytavanym FormKeyPress, ale
> Tab procedurou KeyDown neodchytnu, jenom KeyUp, ale to uz ma fokus
> dalsi Edit takze ho vracim zpet "nasilim". Fokus skace jak prasteny.
> Ptam se: "Existuje zpusob jak donutil Tab, aby delal co chci ja?"
> Vreli d�k za napady.
>
> Vitasek Sta�a
> Michal Madle
---------------------------------------------------
<mailto:tumi(zv)mail(tec)cz>tumi(zv)mail(tec)cz
contact me via <http://www.effata.net/>EFFATA.NET; my EID - tumi(zv)effata.net
---------------------------------------------------
FlashFiler 2
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 15.12.2000 10:37:11
Zdravim,
od 14.12.2000 na http://www.turbopower.com/products/flashfiler/ se nabizi nova verze FlashFiler verze 2, kde je i SQL.
Pavel ZIDEK
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz
http://www.kopr(tec)cz/w-delphi.htm http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~Zmena serioveho cisla harddisku
[*] SSOU Vodochody s.r.o. <ssouvodochody(zv)mbox.vol(tec)cz> - 15.12.2000 10:51:17
Kdysi jsem to cislo HDD v dosu cetl pres standardni pristup k sektorum.
Stejnym zpusobem by mel fungovat i zapis, takze kdyz na jednom PC cislo
nactu a na druhem PC zapisu, bude toto cislo identicke (myslim dost
trivialni a napise to kazdy blbec).
Pro ochranu takoveho zarizeni by mozna stalo za uvahu vytvorit primitivni
ISA kartu, na ktere by bylo jen par soucastek (napriklad JEDNOCIP '51). V
nem jednoduchy program, ktery odpovi na "dotaz po zbernici" nejakym
dohodnutym zpusobem - napriklad mu program posle nahodny retezec a jednocip
ho zasifrovany posle zpet. Pokud to sedi, jede program OK, pokud ne, chova
se jako DEMO. Naklady tak 300-400 Kc na desku a pri blokaci jednocipu proti
zpetnemu nacteni programu je to i relativne bezpecne. ISA slot tam snad
nejaky volny vzdycky mas ne ? Alespon takhle bych to udelal ja.
VW
----- Original Message -----
From: Vetrak <vetrak(zv)datalock.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, December 15, 2000 9:42 AM
Subject: Re: Zmena serioveho cisla harddisku
> Dobre, poskytnem par doplnujucich udajov, aj ked nechcem robit zbytocnu
> reklamu.
>
> Produkt sa pouziva ako jednoucelove zariadenie, kde po zaplateni
prislusnej
> sumy sa nieco udeje ( nejde o hazard ).
>
> Specialne zariadenie na LPT je prave mincovnik od NCR, komunikuje sa s nim
> cez prislusne 4 piny na lpt porte, ktore sa normalne pouzivaju na
> komunikaciu z tlaciarnou. Bohuzial kazdy mincovnik je iny priamo z vyroby
a
> ani po nastavovani sa nedaju mincovniky dostat do rozumnych tolerancii
> dlzky signalov ... a to aj pri opakovanom vhodeni tej istej minci do toho
> isteho mincovnika je dlzka impulzu rozna).
> Na to sa ale nestazujem, problem sa da riesit softom a pomerne elegantne,
> tu len podotknem, ze soft musi zaregistrovat kazdu padnutu mincu do
> mincovnika, takze komunikacia na LPT je tak na hrane moznosti systemu a
> dalsiu si tam nemozem dovolit.
> Dalsia podmienka bola, aby sa cele zariadenie a hlavne soft spamatal aj po
> vypadku prudu a pokracoval v cinnosti, ako keby sa nic nestalo.
>
> Ako hardware sa pouzivaju najlacnejsie maticne dosky ( argument su naklady
> na vyrobu ) bez zbytocnych doplnkov, cize USB neexistuje, LPT je len
jedno,
> klasicka klavesnica neexistuje, len 4 tlacitka, HW kluc sa neoplati pre
> zvysene naklady, typ procesora je rozny, typ BIOSu je rozny, sietova karta
> neexistuje... ide len o to, aby to fungovalo relativne bez problemov.
>
> Cele je to postavene na tom, ze vyrobne naklady musia byt nizke, predajna
> cena tiez, pocet kusov velky. Zariadenie dokaze okopirovat a zostavit aj
> priemerne
> vzdelany foxterier, dusu tomu dava az soft. A sme pri probleme.
>
> Pokial niekto z Vas funguje ako spravca velkej siete a bol nuteny rozbehat
> viac ako 10 PC urcite bude hladat sposob ako si urychlit robotu.
> Bezny je prave sposob, kedy ozivim jednu masinu, na disky dalsich
> rozkopirujem a dokonfigurujem.
> Samozrejme musim mat vsetko poriesene licencne - nechcem tu ale rozprudit
> diskusiu na tuto temu, v konferencii jej bolo dost.
>
> Rovnaky postup ale moze pouzit aj niekto iny, kde to uz nie je v mojom
> zaujme, prave preto hladam sposob, ako identifikovat kazdu masinu, na
ktorej
> to moze alebo nemoze bezat. A ak nemoze bezat v plnom rezime, nech sa to
> aspon predvedie - marketing tu ale vysvetlovat nebudem.
> A nemozem sa spolahnut na zapisy do registrov, identifikaciu OS, zapis po
> prvom spusteni ... to su vsetko informacie, ktore sa prenesu pri
kopirovani
> z masiny do masiny.
>
> Na internete som nasiel nasledovnu informaciu :
>
> other information that may be checked:
>
> - BIOS date
> - IDE HDD controller information
> ( unique for each IDE HDD, but hard to get under Win32 ) // toto by
> bolo asi najvhodnejsie, nema niekto nieco naprogramovane, alebo aspon
nejake
> info
> - volume serial number
> - boot sector of drive C:
> - equipment word from BIOS data
> - CMOS values
> - file length
> - control sum of file
> - file name
> - size of current drive
> - current directory
> - number of first cluster of file
> - partition table
> - OS version
> - presence of some drivers
>
> Pouzil som kombinaciu niektorych metod, ale je to hlavne postavene na
serial
> number harddisku. Cislo sa prideli pri formatovani a malo by byt
jedinecne.
> Pokial ho ale dokaze zapisat cast OS, da sa to aj inym softom. Preto bol
aj
> povodny prispevok do konferencie.
> Ak si uz niekto da tu namahu, ze krekne kod, dobre - stalo sa.
>
> Ale neexistuje nejaka utilita volne pohodena a volne dostupna, kde sa bez
> velkeho rozmyslania da zmenit toto cislo ???
> Prave preto som sa obratil na Vas, viac hlav, viac znalosti...
>
> D.
>
> PS: Dufam, ze ospravedlnite velkost prispevku.
>
>Zmena serioveho cisla harddisku
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 15.12.2000 11:12:39
14.12.2000 Dalibor Toman :
> Otazka je nasledovna - staci takato ochrana, neda sa cislo harddisku (
> ktore sa prideli po formatovani ) jednoducho prepisat na ine ?
Tady je to i s trochou teorie a s funkci ChangeVolumeSerialNumber
The volume serial number is stored in bytes 39-42 of the boot sector
on the disk. So, the basic approach looks like this:
type
TSector = array[0..511] of Byte;
procedure ChangeVolumeSerialNumber(Drive: Char;
SerialNumber: LongWord);
var
Boot: TSector;
begin
ReadBoot(Drive, Boot);
Move(SerialNumber, Boot[39], SizeOf(SerialNumber));
WriteBoot(Drive, Boot) end;
A complication occurs, however, because reading and writing the boot
sector in NT requires completely different code from that used in
reading and writing the boot sector in Win95/98.
So here's the complete code, taking into account the differences
between NT and Win95/98:
type
TSector = array[0..511] of Byte;
procedure ReadBootNT(Drive: Char; var Boot: TSector);
var
BytesRead: Cardinal;
H: THandle;
begin
H := CreateFile(PChar(Format('\\.\%s:', [UpCase(Drive)])),
GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if H = INVALID_HANDLE_VALUE then
raise Exception.Create(SysErrorMessage(GetLastError));
try
if not ReadFile(H, Boot, SizeOf(Boot), BytesRead, nil)then
raise Exception.Create(SysErrorMessage(GetLastError));
finally
CloseHandle(H) end end;
procedure WriteBootNT(Drive: Char; var Boot: TSector);
var
BytesWritten: Cardinal;
H: THandle;
begin
H := CreateFile(PChar(Format('\\.\%s:', [UpCase(Drive)])),
GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if H = INVALID_HANDLE_VALUE then
raise Exception.Create(SysErrorMessage(GetLastError));
try
if not WriteFile(H, Boot, SizeOf(Boot), BytesWritten, nil)then
raise Exception.Create(SysErrorMessage(GetLastError));
finally
CloseHandle(H) end end;
type
TDiocRegisters = record
EBX, EDX, ECX, EAX, EDI, ESI, Flags: LongWord end;
TVWin32CtlCode = (ccNone, ccVWin32IntIoctl, ccVWin32Int25,
ccVWin32Int26, ccVWin32Int13);
function VWin32(CtlCode: TVWin32CtlCode;
var Regs: TDiocRegisters): Boolean;
var
Device: THandle;
Count: LongWord;
begin
Device := CreateFile('\\.\VWIN32', 0, 0, nil, 0,
FILE_FLAG_DELETE_ON_CLOSE, 0);
if Device = INVALID_HANDLE_VALUE then
raise Exception.Create(SysErrorMessage(GetLastError));
try
Result := DeviceIoControl(Device, Ord(CtlCode), (zv)Regs,
SizeOf(Regs), (zv)Regs, SizeOf(Regs), Count, nil);
finally
CloseHandle(Device) end end;
procedure ReadBoot95(Drive: Char; var Boot: TSector);
var
Regs: TDiocRegisters;
begin
with Regs do begin
EAX := Ord(UpCase(Drive)) - Ord('A');
EBX := LongWord((zv)Boot);
ECX := 1;
EDX := 0 end;
if not VWin32(ccVWin32Int25, Regs) then
raise Exception.Create(SysErrorMessage(GetLastError)) end;
procedure WriteBoot95(Drive: Char; var Boot: TSector);
var
Regs: TDiocRegisters;
begin
with Regs do begin
EAX := Ord(UpCase(Drive)) - Ord('A');
EBX := LongWord((zv)Boot);
ECX := 1;
EDX := 0 end;
if not VWin32(ccVWin32Int26, Regs) then
raise Exception.Create(SysErrorMessage(GetLastError)) end;
procedure ChangeVolumeSerialNumber(Drive: Char;
SerialNumber: LongWord);
var
Boot: TSector;
begin
case Win32Platform of
VER_PLATFORM_WIN32_WINDOWS:
ReadBoot95(Drive, Boot);
VER_PLATFORM_WIN32_NT:
ReadBootNT(Drive, Boot) end;
Move(SerialNumber, Boot[39], SizeOf(SerialNumber));
case Win32Platform of
VER_PLATFORM_WIN32_WINDOWS:
WriteBoot95(Drive, Boot);
VER_PLATFORM_WIN32_NT:
WriteBootNT(Drive, Boot)
end
end;
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Prosba restartovac WinNT
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 15.12.2000 11:14:18
15.12.2000 Roman �ev��k :
> JA BYCH MEL O NEJ TAKE ZAJEM...PROSIM
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Raul Endymion
> Sent: Friday, December 15, 2000 9:05 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: OT: Prosba restartovac WinNT
> Dobr� den,
> Mohla by mi ta dobra duse co mi poslala restartovac windows NT na
> dalku ho poslat jeste jednou ? Dekuji
> --
> S pozdravem,
> Raul
> raul.endymion(zv)bsdi.infima(tec)cz
www.sysinternals.com je tam free balik takovychto utilitek s nazvem PCTools
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Volani externiho programu.
[*] makovec(zv)ilf(tec)cz - 15.12.2000 11:20:02
Omlouvam se za zdrzovani, ale nemuzu si vzpomenout, jak z programu spustim
(volam) jiny program. S Delphi spise zacinam a v Borlandu to bylo jinak -
Exec ('cesta\program', parametry).
Predem Dekuju za pomoc.
Jaromir Makovec
mailto:makovec(zv)ilf(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.219 / Virov� b�ze: 103 - datum vyd�n�: 5.12.2000
Uvolnovani objektu z TObjectList
[*] Kriz Pavel, TDS <tds(zv)volny(tec)cz> - 15.12.2000 11:45:44
> Mam objekt, ktery vytvorim a vlozim do TObjectList, v prubehu
> programu s timto objektem pracuji a na konci jej chci uvolnit.
> Pouzivam tuto proceduru:
>
> procedure FreeSectionItem(List: TObjectList);
> var
> SI: TSectionItem;
> i: integer;
> begin
> for i := List.Count-1 downto 0 do
> begin
> SI := TSectionItem(List[i]);
> SI.Free; // tady se povede uvolnit v pohode
> end;
> List.Free; // tady to lehne
> end;
>
> Mam v tom kodu nejakou chybu nebo co delam spatne?
Je tam chyba:
1) TObjectList polozky implicitne uvolnuje sam, takze staci udelat
List.Free
2) A protoze on je v List.Free uvolnuje, pokousi se znovu uvolnit polozky,
ktere uz neexistuji,
takze kdyz neco budu uvolnovat rucne, musim vynulovat take ten pointer:
for i := List.Count-1 downto 0 do
begin
SI := TSectionItem(List[i]);
SI.Free; // tady se povede uvolnit v pohode
List.Items[i] := nil; //tady to tu chybelo
end;
List.Free; // tedu uz to tu nelehne
Pavel Kriz
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Libor Stujan
> Sent: Friday, December 15, 2000 9:17 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Uvolnovani objektu z TObjectList
Prosba restartovac WinNT
[*] Brano Vislocky <delphi(zv)jdsoftware.sk> - 15.12.2000 11:45:35
[P��loha v souboru: WinReboot.pas]
Tu to je ....
brano
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Roman �ev��k
> Sent: Friday, December 15, 2000 10:30 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Prosba restartovac WinNT
>
>
> JA BYCH MEL O NEJ TAKE ZAJEM...PROSIM
>
>
>
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Raul Endymion
> Sent: Friday, December 15, 2000 9:05 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: OT: Prosba restartovac WinNT
>
>
> Dobr� den,
>
> Mohla by mi ta dobra duse co mi poslala restartovac windows NT na
> dalku ho poslat jeste jednou ? Dekuji
>
> --
> S pozdravem,
> Raul
> raul.endymion(zv)bsdi.infima(tec)cz
>
>
>Lookup Field s dvema klici ?
[*] Vit Tichy <vitek(zv)softok(tec)cz> - 15.12.2000 11:46:15
Nazdar,
Funguje vam nekomu subj. ?
Mam na mysli, kdyz KeyFields a LookupKeyField neni nez jeden sloupec.
Podle manualu by melo fungovat i vice sloupcu oddelenych strednikem,
delphi vsak vezme cely retezec (napr:. 'SLOUPEC1;SLOUPEC2') a tvrdi,
ze tento field nezna ?
--
Best regards,
vt
Delphi Open Tools API
[*] Jiri Binder <j.binder(zv)albacon(tec)cz> - 15.12.2000 11:49:06
> From: "Ondrej Krajicek" <xkrajic(zv)ics.muni(tec)cz>
> > Je mozne rozsirit help system Delphi tak,
> > aby v editoru pri stisku jiste klavesy
> > misto vlastniho helpu Delphi zavolalo IDE
> > v zavislosti na kontextu (napr. kurzor je
> > nad tokenem CreateFile) jiny program
> > (v mem pripade Platform SDK Documentation) ?
>
> Ahoj,
>
> mozne to na 99% je, tusim ze pro JCL se psal nejaky doplnek pro
> zacleneni CHM helpu do Delphi. Momentalne nevim kde je tomu konec.
> Jinak o OpenToolsAPI by mela byt i nejaka prednaska v Belohrade. Dale
> se muzes podivat na OTA FAQ (http://www.gexperts.org/opentools)
>
> Petr Vones, amatersky programator
>
Na Borland Comunity je tez nekolik clanku
http://community.borland.com/article/0,1410,21114,00.html
Jiri Binder
Duplicate resources?
[*] brant(zv)dcomm(tec)cz - 15.12.2000 11:49:56
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.
Uz jsem to vyresil, ale stejne nevim, proc to tak je. Pricina je nekde
jinde. Mam unit ITRKernel, ktery obsahuje dulezite funkce pouzivane ve vice
projektech. V jedne procedure jsem potreboval cislo verze. To je jako
konstanta v unitu SITRFunct. Tak mam v ITRKernel napsano:
unit ITRKernel;
interface
uses
Windows, Classes, Forms, Dialogs, DBTables, Controls, DB, Graphics, Math,
SysUtils, SyncObjs, mvremote, inifiles, mv const, mv dll, DMMapUnit,
grids,
MessageShowUnit, shlobj, stdctrls;
(deklarace hlavicek funkci)
procedure SetMailInfo(MsgTable:TTable; MailItems: TMailItems;
TargetSubjLbl: TLabel; TargetMemo: TMemo); ----> to je posledni funkce, ve
ktere se pouziva to cislo verze
var G2: TParametry2;
ChybySeznam: TChybySeznam;
f: text;
Prodleva: TEvent;
ShowVelocity:boolean; --------> globalni promenne
implementation
uses ITRKernel2, SITRFunct;<----- tady je to kriticke misto, kde je pridan
unit SITRFunct
procedure SetMailInfo(MsgTable:TTable; MailItems: TMailItems; TargetSubjLbl:
TLabel; TargetMemo: TMemo);
var MText: string;
begin
if MsgTable = nil then
begin
-----> a zde se pouziva promenna CSITRVersion:
TargetSubjLbl.Caption:='Infotracs ' + CSITRVersion + ': ' +
MailItems.MsgKind + ' ' + MailItems.CarSign;
Hlavicka SITRFunct.pas vypada takto:
unit SITRFunct;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ITRKernel, Menus, StdCtrls, ExtCtrls, Math, Db, DBTables,
FileCtrl, ComCtrls, SITRKritChyba, IniFiles, Grids, DBGrids;
const CSITRVersion= '1.6.9'; <--------- to je ta konstanta
CProgramName= 'InfoTracs 95 - SERVER';
type
TSITRFunctForm = class(TForm)
(....)
var SITRFunctForm: TSITRFunctForm;
GParam: TParametry;
implementation
uses SITRMainMenu;
{$R *.DFM}
(...)
Kdyz z toho kritickeho mista v ITRKernel vyhodim SITRFunct, jede vsechno OK,
ovsem nemam k dispozici to cislo verze (to ovsem lze ozelet). Ale stejne by
me zajimalo, jak je to mozne.
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
D&COMM s.r.o
Korunova�n� 6
Praha 7
Problemom moze byt, ze mas v projekte pouzite dve rozne formulare s rovnakym
nazvom. V tvojom pripade zrejme mas v niektorom subore uses SAbout a v inom
(alebo tom istom) uses About a v oboch je formular TAboutBox (podobne pre
TParametryBox). Ak schces skutocne v projekte pouzivat obidva formulare,
musis jeden z nich premenovat.
----- Original Message -----
From: <brant(zv)dcomm(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, December 14, 2000 5:26 PM
Subject: Duplicate resources?
Ahoj,
uz jsem z toho gumovej. Vcera jsem prekladal projekt zcela bez problemu.
Dnes to hlasi tohleto (podotykam, ze jsem vubec nic nemenil):
[Error] WARNING. Duplicate resource(s):
[Error] Type 10 (RCDATA), ID TABOUTBOX:
[Error] File C:\projekty\sitr\SAbout.DFM resource kept; file
C:\projekty\sitr\About.DFM resource discarded.
[Error] Type 10 (RCDATA), ID TPARAMETRYBOX:
[Error] File C:\projekty\sitr\SparamsQTRACS.DFM resource kept; file
C:\projekty\sitr\params.DFM resource discarded.
Zmena serioveho cisla harddisku
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 15.12.2000 12:01:34
>Ospravedlnujem sa, bohuzial paralelny port je vyuzity na komunikaciu so
>specialnym zariadenim.
>
>HW kluc bol prvy rozumny napad, bohuzial je nepouzitelny, vid. vyssie.
za par korun je mozne doinstalovat dalsi LPT na nezavisle karte...
>Nejde ani tak o hacknutie programu, na to su celkom rozumne ochrany, ale
>naozaj o tazkost
>zmeny cisla harddisku.
pokud pouzivas to cislo co se vygeneruje pri formatovani - pak samozrejme
neni problem jej zmenit. Staci nabootovat do DOSu spustit nejaky diskeditor
a libovolne si jej upravit. Tusim, ze HD jako takovy ma pristupne seriove
cislo (vypalene vyrobcem do firmwaru) a to se zmenit neda. Ale asi bude
problem jej precist pod Windows
D. Toman
klavesa Tab
[*] "Mirek Drej�ek" <drejcek(zv)schkocr(tec)cz> - 15.12.2000 12:06:08
S timhle nemuzu souhlasit. Nevim jestli delam neco spatne, ale KeyPress mi proste na Tab nereaguje.
Ja osobne bych pouzil OnExit. Zkontrolovat a jestli je neco spatne, pak dat fokus zpet.
Pripadne mi to jako nejjednodussi reseni.
Mirek Drejcek.
*********** REPLY SEPARATOR ***********
On 15.12.2000 at 8:24 Pavel ZIDEK wrote:
>procedure TEdit.KeyPress(var Key: Char);
>begin
> if (Key = #13) then {stisk Tab}
> begin
> {zde si delej co chces}
> end;
>end;
>
>----- Original Message -----
>From: Stanislav Vit�sek <vitasek(zv)nspuh(tec)cz>
>To: <delphi-l(zv)fwd(tec)cz>
>Sent: Thursday, December 14, 2000 1:46 PM
>Subject: klavesa Tab
>
>
>> Cau lidi,
>>
>> v D4 mam na formulari hromadu Edit komponent. Pred prechodem na dalsi
>> Edit potrebuji jeste automaticky provest nejake akce (napr. otevrit
>> OpenDialog aby se nazev vybraneho souboru vlozil do Editu na ktery se
>> prepinam). Toto mi funguje s ENTERem odchytavanym FormKeyPress, ale
>> Tab procedurou KeyDown neodchytnu, jenom KeyUp, ale to uz ma fokus
>> dalsi Edit takze ho vracim zpet "nasilim". Fokus skace jak prasteny.
>> Ptam se: "Existuje zpusob jak donutil Tab, aby delal co chci ja?"
>> Vreli d�k za napady.
>>
>> Vitasek Sta�a
>>Zmena serioveho cisla harddisku
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 15.12.2000 12:06:58
> Ale neexistuje nejaka utilita volne pohodena a volne dostupna, kde sa
> bez velkeho rozmyslania da zmenit toto cislo ??? Prave preto som sa
> obratil na Vas, viac hlav, viac znalosti...
Ahoj,
seriove cislo pravdepodobne zmenit pujde. Delal jsem kdysi v DOSu
programek na formatovani disket; tam jsem seriove cislo zapisoval do
Boot sektoru na pozici 24 hex, byla to 4 byty dlouha polozka, hned za
ni nasledovalo 11 bytu Volume Label. U pevneho disku to hadam bude
obdobne.
Karel Rys
Zmena serioveho cisla harddisku
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 15.12.2000 12:06:36
>> PS: hackeri hacknou stejne vsechno ...
>
>a protoze nejsme novinari, nebudeme si plest pojmy
>hacker x cracker
>:)
>
>hacker je profik, ktery pokud se na necistych vecech neco nauci u nich
>nezustane a nedela je pro ucel poskozovani a eprohlasuje o sobe ze je
>hacker, nebot hacke musi byt za hackera uznavan ostatnimi odborniky.
>
>zatimco cracker u necistych veci setrva a zamerne se nabourava a
>poskozuje a s oblibou o sobe tvrdi, ze je hacker
>
>:)
>
>dekuji PeC(zv)
samozrejme vim, ze ta dve slova mela kdysi jiny vyznam... Podle me je to
uplne jedno (bavime-li se o pocitacich). Urcite nenajdete zadneho svateho
hackera, ktery se nikdy nezproneveril puvodnim hackerskym idealum..
A az se Ti stane, ze Ti nekdo crackne nejaky Tvuj program bude Ti uplne
jedno jestli to byl hacker nebo cracker.....
D. Toman
InstalShield a seriove cislo
[*] Jano <jj_delphi(zv)ke.ubp.sk> - 15.12.2000 12:09:39
>> Zavisi od verzie InstallShieldu, ale s instalacnymi scriptami
>> si poradis
>> velmi rychlo, pouzit napr. ISDCC ver1.22,
>
>Kde to najdu?
Ahoj,
Home Page: http://www.tardis.ed.ac.uk/~adq
hladaj v sekcii "Projects"
alebo priamo linky na subory:
=====================
isDcc
A decompiler for compiled installshield scripts.
Download (56,309 bytes)
http://www.tardis.ed.ac.uk/~adq/projects/isdcc/isdcc122.zip
WISE Installer Decompiler
A decompiler for compiled WISE installation executables and scripts.
Download exwise (111,846 bytes)
http://www.tardis.ed.ac.uk/~adq/projects/wise/exwise05.zip
Download wise format docs (5,075 bytes)
http://www.tardis.ed.ac.uk/~adq/projects/wise/wiseformats05.zip
Neviem, teraz najst popis na zorientovanie sa v kompilovanom instalacnom
scripte, ale toto je messageboard zaoberajuca sa "reverse engineeringom":
http://fraviaMB.cjb.net
ak Ti to nepomoze, ozvi sa a skusim to este pohladat
Jano
Volani externiho programu.
[*] Jaroslav Hodal <daark.delphi(zv)email(tec)cz> - 15.12.2000 12:15:46
Pokud neni potreba kontrola nad tou spustenou aplikaci tak napr.
WinExec - jednodussi
ShellExecute - slozitejsi
pokud kontrola potreba je, tak pomoci CreateProcess a WaitForSingleObject
S pozdravem Jaroslav Hodal
--- puvodni text od delphi-l(zv)fwd(tec)cz:
> Omlouvam se za zdrzovani, ale nemuzu si vzpomenout, jak z programu spustim
> (volam) jiny program. S Delphi spise zacinam a v Borlandu to bylo jinak
-
> Exec ('cesta\program', parametry).
> Predem Dekuju za pomoc.
>
> Jaromir Makovec
> mailto:makovec(zv)ilf(tec)cz
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.219 / Virov� b�ze: 103 - datum vyd�n�: 5.12.2000
>
>
EMAIL.CZ - Vase posta je vzdy s Vami
http://www.email(tec)cz
Dotaz & Zadost
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 15.12.2000 12:19:15
>
> Cau,
> Dik za napsani, ale ja nemuzu najit adresar fastnet, ani
> internet. Mam D5 Standard.
>
Jestli mas Standard, tak je ani nehledej..
Zkus se podivat na Delphi Super Page, nebo na http://www.torry.ru, treba tam
neco najdes.
Ota Maly
PaPouch elektronika
http://www.papouch.com
Uvolnovani objektu z TObjectList
[*] Libor Stujan <listuj(zv)centrum(tec)cz> - 15.12.2000 13:30:42
Jo tak to je presne ono, tak jeste priradit nil k te polozce. OK.
To, ze TObjectList ma Create(OwnerObjects) jsem vedel, ale radeji
jsem si to chtel uvolnit sam, preci jen dalsi objekt, ktery jsem
uvolnoval, ma v destruktoru dalsi kod a nebyl jsem si 100%-ne
jisty zda se provede i "implicitne".
Takze diky.
> Mam objekt, ktery vytvorim a vlozim do TObjectList, v prubehu
> programu s timto objektem pracuji a na konci jej chci uvolnit.
> Pouzivam tuto proceduru:
>
> procedure FreeSectionItem(List: TObjectList);
> var
> SI: TSectionItem;
> i: integer;
> begin
> for i := List.Count-1 downto 0 do
> begin
> SI := TSectionItem(List[i]);
> SI.Free; // tady se povede uvolnit v pohode
> end;
> List.Free; // tady to lehne
> end;
>
> Mam v tom kodu nejakou chybu nebo co delam spatne?
Je tam chyba:
1) TObjectList polozky implicitne uvolnuje sam, takze staci
udelat
List.Free
2) A protoze on je v List.Free uvolnuje, pokousi se znovu uvolnit
polozky,
ktere uz neexistuji,
takze kdyz neco budu uvolnovat rucne, musim vynulovat take ten
pointer:
for i := List.Count-1 downto 0 do
begin
SI := TSectionItem(List[i]);
SI.Free; // tady se povede uvolnit v pohode
List.Items[i] := nil; //tady to tu chybelo
end;
List.Free; // tedu uz to tu nelehne
Pavel Kriz
*****************
Libor Stujan
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
**************
K chatov�n� je tu http://www.XChat(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
jak se odkazovat na promenou se stringem?
[*] Jiri Hostinsky <hostinsky(zv)teska(tec)cz> - 15.12.2000 13:32:46
----- Original Message -----
From: Martin Pe�ava <jimx(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, December 14, 2000 6:16 PM
Subject: Re: jak se odkazovat na promenou se stringem?> ja to resil tak, ze sem ty edity tvoril az za behu programu dynamicky a
> ukladal si je do pole...
To me zajima
Kdysi jsem to zkusil, ale pokud bylo polozek trochu vic (> 10) nebo nektere
byly pod dolnim krajem,
po nahozeni (create, showmodal) se formular rozblikal a utisil se za par
vterin, az vsechno nacmaral a nastrkal na spravne pozice. Radsi jsem to
zahodil.
Jak to delas, aby form naskocil hned (aspon priblizne jako napsany z IDE) ?
Jiri Hostinsky
Volani externiho programu.
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 15.12.2000 13:45:37
Treba
WinExec(PChar('cesta\program'), SW_NORMAL);
Michal
-----Original Message-----
From: makovec(zv)ilf(tec)cz [mailto:makovec(zv)ilf(tec)cz]
Sent: Friday, December 15, 2000 11:20 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Volani externiho programu.
Omlouvam se za zdrzovani, ale nemuzu si vzpomenout, jak z programu spustim
(volam) jiny program. S Delphi spise zacinam a v Borlandu to bylo jinak -
Exec ('cesta\program', parametry).
Predem Dekuju za pomoc.
Jaromir Makovec
mailto:makovec(zv)ilf(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.219 / Virov� b�ze: 103 - datum vyd�n�: 5.12.2000
Hledani a preskoky v binarnim souboru
[*] Tom� Kru��k \(el. adresa\) <t.kruzik(zv)msp.mesit(tec)cz> - 15.12.2000 13:50:35
Ahoj vsem,
chtel jsem timto pozadat o pomoc s takovymto problemem:
Mam binarni soubor v kterem se nachazi nekoli urcitych priznaku (rekneme
PRIZNAK='LPM052'). Ja bych potreboval prohledat tento soubor a zjistit
pozici priznaku v tomto souboru, pricemz nechci prochazet soubor bajt po
bajtu a zjistovat jestli nacteny bajt neobsahuje priznak.
Bodlo by me nejake vyhledavani jako napriklad SEEK, ale ten prechazi pouze
na urcitou zadanou pozici v souboru nebo se mylim?
S pozdravem / Best regards
Tom� Kru��k
t.kruzik(zv)msp.mesit(tec)cz
tel.:0632-522632
mobil: 0603-947060
ICQ: 99789730
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.219 / Virov� b�ze: 103 - datum vyd�n�: 5.12.2000
Kopie v QuickReportu
[*] Radek KALA <Kala(zv)atlas(tec)cz> - 15.12.2000 14:03:12
D5 pro, update QR i s update.
Mam problem, mam report v QR a chci tisknout t�i kopie, zkousim
to takto
Faktura_P.PrinterSettings.Copies := 3;
Faktura_P.Print;
a ono nic, vyjede jen jedna.
Co prosim s tim ???
Dekuji.
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
Zmena serioveho cisla harddisku
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 15.12.2000 14:48:08
Nejsem si 100% jistej, ale mam pocit, ze prepsat cislo disku de
napriklad v Diskeditu z Norton Utilities; kdyz vis, kde je zapsany...
(asi nekde na zacatku, uz sem se primo na disku dlouho nehrabal, tak si
to nepamatuju)
Nekde sem ale jeste videl jednu ochranu, ze kdyz by se ten program
spustil poprve, tak by se podival na datum a cas vytvoreni adresare, kde
je instalovanej, to by si nekam ulozil (nejlepe nekam do EXE) a to by
potom kontroloval...
Ale spis de o to, ze kdyz clovek nevi proc to nejde kopirovat, tak se to
blbe hleda. Tzn. i kdyz tam das treba zjistovani cisla toho disku a
nikomu nereknes, ze je to takhle "chraneny", tak to vetsinou nikoho
nenapadne aby to zkousel... Napadne to jenom toho, kdo si v debugeru
bude projizdet ten kod... cili cracker... A ten uz to (vzdycky) nejak
dokaze obejit, at uz je tam jakakoliv ochrana. Ale normalni uzivatele
vcetne tech stredne pokrocilich nic takovyho delat nebudou...
Tak tak nak... :-), zdar,
Vetrak wrote:
>
> Dobre, poskytnem par doplnujucich udajov, aj ked nechcem robit zbytocnu
> reklamu.
>
> Produkt sa pouziva ako jednoucelove zariadenie, kde po zaplateni prislusnej
> sumy sa nieco udeje ( nejde o hazard ).
>
> Specialne zariadenie na LPT je prave mincovnik od NCR, komunikuje sa s nim
> cez prislusne 4 piny na lpt porte, ktore sa normalne pouzivaju na
> komunikaciu z tlaciarnou. Bohuzial kazdy mincovnik je iny priamo z vyroby a
> ani po nastavovani sa nedaju mincovniky dostat do rozumnych tolerancii
> dlzky signalov ... a to aj pri opakovanom vhodeni tej istej minci do toho
> isteho mincovnika je dlzka impulzu rozna).
> Na to sa ale nestazujem, problem sa da riesit softom a pomerne elegantne,
> tu len podotknem, ze soft musi zaregistrovat kazdu padnutu mincu do
> mincovnika, takze komunikacia na LPT je tak na hrane moznosti systemu a
> dalsiu si tam nemozem dovolit.
> Dalsia podmienka bola, aby sa cele zariadenie a hlavne soft spamatal aj po
> vypadku prudu a pokracoval v cinnosti, ako keby sa nic nestalo.
>
> Ako hardware sa pouzivaju najlacnejsie maticne dosky ( argument su naklady
> na vyrobu ) bez zbytocnych doplnkov, cize USB neexistuje, LPT je len jedno,
> klasicka klavesnica neexistuje, len 4 tlacitka, HW kluc sa neoplati pre
> zvysene naklady, typ procesora je rozny, typ BIOSu je rozny, sietova karta
> neexistuje... ide len o to, aby to fungovalo relativne bez problemov.
>
> Cele je to postavene na tom, ze vyrobne naklady musia byt nizke, predajna
> cena tiez, pocet kusov velky. Zariadenie dokaze okopirovat a zostavit aj
> priemerne
> vzdelany foxterier, dusu tomu dava az soft. A sme pri probleme.
>
> Pokial niekto z Vas funguje ako spravca velkej siete a bol nuteny rozbehat
> viac ako 10 PC urcite bude hladat sposob ako si urychlit robotu.
> Bezny je prave sposob, kedy ozivim jednu masinu, na disky dalsich
> rozkopirujem a dokonfigurujem.
> Samozrejme musim mat vsetko poriesene licencne - nechcem tu ale rozprudit
> diskusiu na tuto temu, v konferencii jej bolo dost.
>
> Rovnaky postup ale moze pouzit aj niekto iny, kde to uz nie je v mojom
> zaujme, prave preto hladam sposob, ako identifikovat kazdu masinu, na ktorej
> to moze alebo nemoze bezat. A ak nemoze bezat v plnom rezime, nech sa to
> aspon predvedie - marketing tu ale vysvetlovat nebudem.
> A nemozem sa spolahnut na zapisy do registrov, identifikaciu OS, zapis po
> prvom spusteni ... to su vsetko informacie, ktore sa prenesu pri kopirovani
> z masiny do masiny.
>
> Na internete som nasiel nasledovnu informaciu :
>
> other information that may be checked:
>
> - BIOS date
> - IDE HDD controller information
> ( unique for each IDE HDD, but hard to get under Win32 ) // toto by
> bolo asi najvhodnejsie, nema niekto nieco naprogramovane, alebo aspon nejake
> info
> - volume serial number
> - boot sector of drive C:
> - equipment word from BIOS data
> - CMOS values
> - file length
> - control sum of file
> - file name
> - size of current drive
> - current directory
> - number of first cluster of file
> - partition table
> - OS version
> - presence of some drivers
>
> Pouzil som kombinaciu niektorych metod, ale je to hlavne postavene na serial
> number harddisku. Cislo sa prideli pri formatovani a malo by byt jedinecne.
> Pokial ho ale dokaze zapisat cast OS, da sa to aj inym softom. Preto bol aj
> povodny prispevok do konferencie.
> Ak si uz niekto da tu namahu, ze krekne kod, dobre - stalo sa.
>
> Ale neexistuje nejaka utilita volne pohodena a volne dostupna, kde sa bez
> velkeho rozmyslania da zmenit toto cislo ???
> Prave preto som sa obratil na Vas, viac hlav, viac znalosti...
>
> D.
>
> PS: Dufam, ze ospravedlnite velkost prispevku.
--
Martin Pe�ava
/--------------------------------------------------------------\
| E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
| WebMaster of |
|http://miss.jimx.net - Neofici�ln� str�nka MISS �R a CyberMiss|
\--------------------------------------------------------------/jak se odkazovat na promenou se stringem?
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 15.12.2000 14:57:34
Uz si to moc nepamatuju, ale mam pocit, ze to bylo nejak takhle:
type
TFrm = TForm
...
Edits : array[1..20] of TEdit;
end;
procedure TFrm.OnCreate;
var i : integer;
begin
for i:=1 to 20 do begin
Edits[i]:=TEdit.Create(TFrm);
with Edits[i] do begin
left:=...; top:=...;
text:=...;
parent:=TFrm;
end;
end;
end;
procedure TFrm.OnDestroy;
var i : Integer;
begin
for i:=1 to 20 do Edits[i].Destroy;
end;
Jiri Hostinsky wrote:
>
> To me zajima
>
> Kdysi jsem to zkusil, ale pokud bylo polozek trochu vic (> 10) nebo nektere
> byly pod dolnim krajem,
> po nahozeni (create, showmodal) se formular rozblikal a utisil se za par
> vterin, az vsechno nacmaral a nastrkal na spravne pozice. Radsi jsem to
> zahodil.
>
> Jak to delas, aby form naskocil hned (aspon priblizne jako napsany z IDE) ?
>
> Jiri Hostinsky
--
Martin Pe�ava
/--------------------------------------------------------------\
| E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
| WebMaster of |
|http://miss.jimx.net - Neofici�ln� str�nka MISS �R a CyberMiss|
\--------------------------------------------------------------/Vyjimky a COM
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 15.12.2000 15:33:58
Uz sem na to prisel (ale omyli me malem pred tim), diky, presne tak,
standardne se generuje vsechno jako STDCALL, musi se Type Library
Editor prepnout, aby generoval vsechno jako SAFECALL, a navic musi
objekt implementujici rozhrani byt zdeden od TAutoObject (nebo ne od
TInterfacedObject, ten neumi predavat vyjimky), a v "initialization"
sekci se musi pro kazdy tento objekt vytvorit AutoObjectFactory. DCOM
je dost prisnej propletenec :)))
Petr Fischer
> Ahoj,
>
> osobne nemam ziadne programatorske skusenosti s COM/DCOM, ale prave na
> "prenos" vynimiek medzi dvomi procesmi by mala sluzit specialna
> volacia konvencia SAFECALL
>
> procedure TMyObject.DoSomething(XYZ: TXYZ); safecall;
>
> Tomas
>
> > -----Original Message-----
> > Behalf Of Petr Fischer
> >
> > Zdravim,
> >
> > z DCOM serveru predam na klienta interface (IUnknown ->
> > IMyInterface) v jehoz jedne metode vyvolam vyjimku (nic jineho, jen
> > raise Exception.Create), ale ona mi na klienta vubec neproplave.
> > Objekt ktery implementuje IMyInterface je zdeden od
> > TInterfacedObject. Mozna delam nejake veci blbe, ale zajima me, co
> > mam zaridit, aby proplouvaly vyjimky z metod IMyIntercace na
> > klienta.
> >
> > Petr Fischer
> >
> > P.S. Dotaz je mozna moc strucny, pripadne upresnim...
> >
> > Delphi 5 (SP1), Win2000
> >
> >
>
IIS4.0+ASP+Access
[*] Erik Salaj <winsoft(zv)napri.sk> - 15.12.2000 16:20:05
> Dale souhlasim s prispevkem, ktery nasledoval, a jak jsem napsal hnde v
> prvnim prispevku, pristup na Access opravdu neni vhodny, protoze to neni
> staveno na pristup vice uzivatelu pres ASP, ja osobne bych z takove
> konfigurace couval a presel na nejaky vhodnejsi databazovy nastroj, ale to
> zalezi jestli jej mate k dispozici.
Access je podla mna velmi dobre riesenie pre mensie ASP aplikacie. Je
potrebne
presnejsie definovat, co je to viac uzivatelov a zohladnit aj uplne iny
system prace
ASP aplikacii oproti klasickym aplikaciam.
Erik
IIS4.0+ASP+Access
[*] Erik Salaj <winsoft(zv)napri.sk> - 15.12.2000 16:41:56
> Je mozne, ze je problem tady, ale proc to spadlo i v 6 hodin rano, kdy
> tu databazi zarucene nikdo nemel otevrenou? Da se primy pristum do
To neviem.
> databaze obejit prilinkovanim nekam jinam a pouzivanim teto "nove"
> databaze?
Nerozumiem, preco by sa mal obchadzat pristup priamo do databazy.
Ja som problem vyriesil tak, ze databazu som dal do zvlastneho
adresara a nastavil som nan pravo na citanie/zapis pre inet uzivatela.
> Navic mam experimentalne overeno, ze ASP pristupovaly i do databaze,
> ktera byl otevrena primo v Accessu.
Mozno ide o iny problem.
Erik
FlashFiler 2
[*] Ing. Petr �vejda <lingvista(zv)lingvista(tec)cz> - 15.12.2000 17:05:19
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
zn�te n�kdo cenu pro Ceskou republiku?
Klame me zrak, nebo je cena 499 (399) dolaru?
Zajima me vsak cena upgrade z jednicky v korunach.
Diky
Petr
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Pavel ZIDEK
Sent: Friday, December 15, 2000 10:37 AM
To: Konference DELPHI forum
Subject: FlashFiler 2
Zdravim,
od 14.12.2000 na http://www.turbopower.com/products/flashfiler/ se nabizi
nova verze FlashFiler verze 2, kde je i SQL.
Pavel ZIDEK
Pekny den (rano, vecer i noc) preje
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
KOPR software Pavel ZIDEK mailto:kopr(zv)kopr(tec)cz
http://www.kopr(tec)cz/w-delphi.htm http://www.kopr(tec)cz
~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~Zmena serioveho cisla harddisku
[*] Hurricane <hurricane(zv)quick(tec)cz> - 15.12.2000 17:20:10
Zdravim
LPT HW klic je preci pruchozi, nebo je to tak specialni, ze to nejde?
Existujou i HW klice pro COM a USB. USB je dnes dobrou alternativou. a USB
portu je vzdy dost.
Hurricane
----- Original Message -----
From: "Vetrak" <vetrak(zv)datalock.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, December 14, 2000 7:05 PM
Subject: Re: Zmena serioveho cisla harddisku
> Ospravedlnujem sa, bohuzial paralelny port je vyuzity na komunikaciu so
> specialnym zariadenim.
>
> HW kluc bol prvy rozumny napad, bohuzial je nepouzitelny, vid. vyssie.
>
> Nejde ani tak o hacknutie programu, na to su celkom rozumne ochrany, ale
> naozaj o tazkost
> zmeny cisla harddisku.
>
> Viem, ze takato ochrana prinasa problemy, bohuzial u niektoreho typu
> zakaznikov je posunuta
> hranica - nepripustne -
>
> D.
>
> ----- Original Message -----
> From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Thursday, December 14, 2000 5:08 PM
> Subject: Re: Zmena serioveho cisla harddisku
>
>
> >
> > >Otazka je nasledovna - staci takato ochrana, neda sa cislo harddisku (
> > ktore sa prideli po formatovani ) jednoducho prepisat na ine ?
> > >Ake informacie sa daju este vytiahnut celkom bezbolestne o hardware PC
(
> > mali by byt samozrejme jedinecne ).
> >
> > uz to tady bylo asi 100x.
> > Zadna ochrana neni 100procentni a jedine co je jiste je, ze to prinasi
> > problemy tomu kdo si za program zaplatil. Ten kdo program ukradne
> > (opatchuje, atd) ma paradoxne mene problemu (a nebo se s nimi spise
smiri)
> > nez platici uzivatel.
> >
> > Jakekoliv ochrany, ktere zamezuji preneseni programu na jiny pocitac, ci
> > znemoznuji pouzivani programu po vymene disku (nebo jeho
preformatovani),
> > procesoru ci cehokoliv jineho jsou _nepripustne_.
> >
> > Cili je treba zvazit, zda ochrana je na miste. Pokud dejme tomu
prodavas
> > jeden kus programu za milion Kc a prodas ho jednou do roka, pak
samozrejme
> > ochrana na miste je - ale adekvatni (cil HW klic, kterym zabezpecim
> > nezavislost na konstelaci HW v PC). V ostatnich pripadech se vyplati
> ochranu
> > viz vyse nepouzivat.
> >
> > PS: hackeri hacknou stejne vsechno ...
> >
> >
> > D. Toman
> >
>
>Zmena serioveho cisla harddisku
[*] Hurricane <hurricane(zv)quick(tec)cz> - 15.12.2000 17:40:56
Zdravim
Ja si IMHO myslim, ze slozita a tezko prekonatelna ochrana spociva v
kombinaci velke spousty jednoduchych veci. (verze OS, datum BIOSu,...) Taky
si myslim, ze je bezpodminecne nutne, aby to bylo zavisle na HW ochrane
spolu s SW kontrolnim souctem. Tzn., ze se vezme odnekud z HW unikatni cislo
a podle nejakeho algoritmu se zkombinuje s cislem napr verze OS a to se
ulozi do souboru. Cracker nebude mit stejny SW a HW. Ted me napadlo, co
treba napsat si vlastni BIOS. Ne pochopitelne cely, ale jen v nem upravit
nejakou cast, napr. do nevyuzite casti CMOS pameti (urcite se najde) zapsat
nejake cislo, ktere soft bude cist. Rekl bych, ze potencionalni cracker BIOS
kopirovat nebude. Nemaj nahodou CPU svoje ID? A nebo uplne jinak, co treba
pouzit to ID HDD k opacnemu ucelu. Vezmi napr. verzi OS, zkombinuj ji s
aktualnim datem a jeste nejakym unikatnim cislem a vysledek zapis jako ID
HDD a zaroven do souboru. Program potom bude testovat jedno i druhe cislo a
zaroven aktualni datum. Pokud by ty mincovniky nepotrebovaly datum, slo by
urcite ty desky upravit tak, aby nebezel RTC obvod. Kdyz to navic zamotas
tak, ze nastavis datum, zaheslujes BIOS a RTC odpojis a nenechas crackera
datum zjistit, cracker nema sanci. ID HDD, cislo v souboru a datum si potom
nebudou odpovidat. Misto toho nemeniciho data by asi slo pouzit zapsane
cislo v BIOSu, jak sem psal vyse.
Hurricane
----- Original Message -----
From: "Vetrak" <vetrak(zv)datalock.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, December 15, 2000 9:42 AM
Subject: Re: Zmena serioveho cisla harddisku
> Dobre, poskytnem par doplnujucich udajov, aj ked nechcem robit zbytocnu
> reklamu.
>
> Produkt sa pouziva ako jednoucelove zariadenie, kde po zaplateni
prislusnej
> sumy sa nieco udeje ( nejde o hazard ).
>
> Specialne zariadenie na LPT je prave mincovnik od NCR, komunikuje sa s nim
> cez prislusne 4 piny na lpt porte, ktore sa normalne pouzivaju na
> komunikaciu z tlaciarnou. Bohuzial kazdy mincovnik je iny priamo z vyroby
a
> ani po nastavovani sa nedaju mincovniky dostat do rozumnych tolerancii
> dlzky signalov ... a to aj pri opakovanom vhodeni tej istej minci do toho
> isteho mincovnika je dlzka impulzu rozna).
> Na to sa ale nestazujem, problem sa da riesit softom a pomerne elegantne,
> tu len podotknem, ze soft musi zaregistrovat kazdu padnutu mincu do
> mincovnika, takze komunikacia na LPT je tak na hrane moznosti systemu a
> dalsiu si tam nemozem dovolit.
> Dalsia podmienka bola, aby sa cele zariadenie a hlavne soft spamatal aj po
> vypadku prudu a pokracoval v cinnosti, ako keby sa nic nestalo.
>
> Ako hardware sa pouzivaju najlacnejsie maticne dosky ( argument su naklady
> na vyrobu ) bez zbytocnych doplnkov, cize USB neexistuje, LPT je len
jedno,
> klasicka klavesnica neexistuje, len 4 tlacitka, HW kluc sa neoplati pre
> zvysene naklady, typ procesora je rozny, typ BIOSu je rozny, sietova karta
> neexistuje... ide len o to, aby to fungovalo relativne bez problemov.
>
> Cele je to postavene na tom, ze vyrobne naklady musia byt nizke, predajna
> cena tiez, pocet kusov velky. Zariadenie dokaze okopirovat a zostavit aj
> priemerne
> vzdelany foxterier, dusu tomu dava az soft. A sme pri probleme.
>
> Pokial niekto z Vas funguje ako spravca velkej siete a bol nuteny rozbehat
> viac ako 10 PC urcite bude hladat sposob ako si urychlit robotu.
> Bezny je prave sposob, kedy ozivim jednu masinu, na disky dalsich
> rozkopirujem a dokonfigurujem.
> Samozrejme musim mat vsetko poriesene licencne - nechcem tu ale rozprudit
> diskusiu na tuto temu, v konferencii jej bolo dost.
>
> Rovnaky postup ale moze pouzit aj niekto iny, kde to uz nie je v mojom
> zaujme, prave preto hladam sposob, ako identifikovat kazdu masinu, na
ktorej
> to moze alebo nemoze bezat. A ak nemoze bezat v plnom rezime, nech sa to
> aspon predvedie - marketing tu ale vysvetlovat nebudem.
> A nemozem sa spolahnut na zapisy do registrov, identifikaciu OS, zapis po
> prvom spusteni ... to su vsetko informacie, ktore sa prenesu pri
kopirovani
> z masiny do masiny.
>
> Na internete som nasiel nasledovnu informaciu :
>
> other information that may be checked:
>
> - BIOS date
> - IDE HDD controller information
> ( unique for each IDE HDD, but hard to get under Win32 ) // toto by
> bolo asi najvhodnejsie, nema niekto nieco naprogramovane, alebo aspon
nejake
> info
> - volume serial number
> - boot sector of drive C:
> - equipment word from BIOS data
> - CMOS values
> - file length
> - control sum of file
> - file name
> - size of current drive
> - current directory
> - number of first cluster of file
> - partition table
> - OS version
> - presence of some drivers
>
> Pouzil som kombinaciu niektorych metod, ale je to hlavne postavene na
serial
> number harddisku. Cislo sa prideli pri formatovani a malo by byt
jedinecne.
> Pokial ho ale dokaze zapisat cast OS, da sa to aj inym softom. Preto bol
aj
> povodny prispevok do konferencie.
> Ak si uz niekto da tu namahu, ze krekne kod, dobre - stalo sa.
>
> Ale neexistuje nejaka utilita volne pohodena a volne dostupna, kde sa bez
> velkeho rozmyslania da zmenit toto cislo ???
> Prave preto som sa obratil na Vas, viac hlav, viac znalosti...
>
> D.
>
> PS: Dufam, ze ospravedlnite velkost prispevku.
>
>Zmena serioveho cisla harddisku
[*] Hurricane <hurricane(zv)quick(tec)cz> - 15.12.2000 17:43:45
Zdravim
To je vyborny napad. Existuji cipy, u kterych prepalis pojistku a potom
nejdou vycist data. Potom mas vlastne unikatni HW klic. Myslim, ze zapojeni
teto karty je vcelku trivialni.
Hurricane
----- Original Message -----
From: "SSOU Vodochody s.r.o." <ssouvodochody(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, December 15, 2000 10:51 AM
Subject: Re: Zmena serioveho cisla harddisku
> Kdysi jsem to cislo HDD v dosu cetl pres standardni pristup k sektorum.
> Stejnym zpusobem by mel fungovat i zapis, takze kdyz na jednom PC cislo
> nactu a na druhem PC zapisu, bude toto cislo identicke (myslim dost
> trivialni a napise to kazdy blbec).
>
> Pro ochranu takoveho zarizeni by mozna stalo za uvahu vytvorit primitivni
> ISA kartu, na ktere by bylo jen par soucastek (napriklad JEDNOCIP '51). V
> nem jednoduchy program, ktery odpovi na "dotaz po zbernici" nejakym
> dohodnutym zpusobem - napriklad mu program posle nahodny retezec a
jednocip
> ho zasifrovany posle zpet. Pokud to sedi, jede program OK, pokud ne, chova
> se jako DEMO. Naklady tak 300-400 Kc na desku a pri blokaci jednocipu
proti
> zpetnemu nacteni programu je to i relativne bezpecne. ISA slot tam snad
> nejaky volny vzdycky mas ne ? Alespon takhle bych to udelal ja.IIS4.0+ASP+Access
[*] JIM Design <jim.design(zv)iol(tec)cz> - 15.12.2000 21:11:15
Ahoj,
ja ASP skripty s Access2000 normalne pisu, ale pouzivam jen projekcni
prikazy, protoze mi (taky nevim z jakeho duvodu - pouzivam jak v praci pri
vyvoji, tak na webhostingu IIS 5) INSERT slapal jen nekdy (nebo snad
nikdy?!?) a psalo to?
JET Error - Operation must use an updatable Query
pri pouzivani tohoto conn stringu
var x= Server.MapPath("/db.mdb");
var oConn = Server.CreateObject("ADODB.Connection");
var dsn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + x + ";Persist
Security Info=False";
oConn.Open (dsn);
chybu jsem vyresil tak ze tam kde potrebuju insertovat pouzivam MSSQL -
stejne potrebuju prislozitejsich INSERTECH pouzivat ulozene procedury.
M.Jirman
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Delphi Newsgroup
Sent: Thursday, December 14, 2000 8:03 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: IIS4.0+ASP+Access
Me to dela obcas taky, ale je to pouze tim, ze provedu zapis primo do
databaze pomoci Accessu 2000.
Pokud pouzivam jakykoliv SQL dotazy, tak neni problem...
Michal HAMPL
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Delphi
Sent: Thursday, December 14, 2000 5:24 PM
To: 'delphi-l(zv)fwd(tec)cz'
Subject: RE: IIS4.0+ASP+Access
> Je to OT ale proc ne, pokud je tam vetsi zatez, tak zapomente
> na Access, ten
> neni staveny na tohle nasazeni.
Co je to vetsi zatez? V jednom okamziku do databaze pristupuje max. 5
lidi, ale vetsinu casu nikdo :-)
> Dela to pouze tahle jedina stranka? Nebo i jine pristupujici
> na databazi?
Od okamziku, kdy se to stane, to delaji vsechny asp stranky,
principialne to dokaze "shodit" libovolna stranka, prave proto bych
hledal chybu v IIS.
> Zkusil jste si tahat data z jineho zdroje? Treba TXT souboru? Je ODBC
> nastaveno korektne a pod.?!? Musite byt vice presnejsi.
Databaze ma pomerne komplikovanou strukturu, takze txt soubory
neprichazi v uvahu.
Podle me je nastaveno korektne vse, problem je v tom, ze se to chova
absoltne nederministicky (vetsinu casu to funguje, a pak se to v 6 hodin
rano sesype pri nejakem zbloudilem pristupu na libovolnou stranku)
Diky za odpoved
Honza
> David H.
>
> > -----Original Message-----
> > From: owner-delphi-l(zv)fwd(tec)cz
> [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> > Delphi
> > Sent: Thursday, December 14, 2000 1:08 PM
> > To: 'delphi-l(zv)fwd(tec)cz'
> > Subject: OT: IIS4.0+ASP+Access
> >
> >
> > Ahoj,
> > omlouvam se za OT, ale situace zacina byt kriticka:
> > na nasem webu provozujeme objednavkovou aplikaci (viz subj.), ktera
> > zcela nedeterministicky shazuje www server nebo haze nic nerikajici
> > hlasky typu "Unexpected_error HTTP/1.0" nebo "A trappable
> error occurred
> > in an external object. The script cannot continue
> running.", a to i pri
> > pouhem nacteni uvodni stranky (zadne informace od
> uzivatele, pouze cteni
> > z databaze).
> > Chyba bude pravdepodobne v nejakem nastaveni IIS (nasel jsem clanky
> > tykajici se tohoto problemu na msdn.microsoft.com, ale nic
> nepomohlo).
> > Uvitam jakekoli napady, pripadna vypomoc na miste bude ohodnocena
> > financne.
> >
> > Diky
> > Honza
> >
>
SHFileOperation - nevim syntaxi
[*] JIM Design <jim.design(zv)iol(tec)cz> - 15.12.2000 21:11:13
Zdravim,
nejsem moc zbehly v API funkcich a nejak mi nefunguje:
SHFileOperation(_SHFILEOPSTRUCTA(0,FO_DELETE,PChar('c:\vse\*.*'),nil,FOF_SIL
ENT));
(potrebuju smazat adresar c:\vse)
a pise to u hned za '0' :
')' expected but ',' found.
a 2x too many actual parameters
Nevite nekdo co mam spatne?
Diky
M.Jirman
OT logicky analyzator
[*] Petr Ma��k <rtepema(zv)mbox.vol(tec)cz> - 15.12.2000 21:12:33
Omlouvam se za OT, potreboval bych logicky analyzator z kompletu zanikle
firmy ADON AN M102 pripadne s ovladaci pro TP. Pripadne informace na muj
soukromy mail.
Diky vsem predem !
Petr Ma��k
rtepema(zv)mbox.vol(tec)cz
Zmena serioveho cisla harddisku
[*] Mirek Junek <mirek.junek(zv)worldonline(tec)cz> - 15.12.2000 21:19:37
Ahoj,
jedna malickost - existuji i mincovniky s paralelnim vystupem, kde kazdy
drat predstavuje jednu z naprogramovanych minci, takze by to slo v pohode
povesit na LPT (tam mas k dispozici minimalne 5 vstupnich dratu) a neni to
zavisle na casovani (jestli jsem to dobre pochopil).
Jinak souhlasim se vsemi, kdo te odrazuji od detekce HW pro ochranu
programu, protoze to je opravdu jen metla na poctive uzivatele, kteri si
napr. cas od casu poridi vetsi disk nebo rychlejsi CPU.
Hodne zdaru
Mirek
| Dobre, poskytnem par doplnujucich udajov, aj ked nechcem robit zbytocnu
| reklamu.
|
| Produkt sa pouziva ako jednoucelove zariadenie, kde po zaplateni
prislusnej
| sumy sa nieco udeje ( nejde o hazard ).
|
| Specialne zariadenie na LPT je prave mincovnik od NCR, komunikuje sa s nim
| cez prislusne 4 piny na lpt porte, ktore sa normalne pouzivaju na
| komunikaciu z tlaciarnou. Bohuzial kazdy mincovnik je iny priamo z vyroby
a
| ani po nastavovani sa nedaju mincovniky dostat do rozumnych tolerancii
| dlzky signalov ... a to aj pri opakovanom vhodeni tej istej minci do toho
| isteho mincovnika je dlzka impulzu rozna).
| Na to sa ale nestazujem, problem sa da riesit softom a pomerne elegantne,
| tu len podotknem, ze soft musi zaregistrovat kazdu padnutu mincu do
| mincovnika, takze komunikacia na LPT je tak na hrane moznosti systemu a
| dalsiu si tam nemozem dovolit.
| Dalsia podmienka bola, aby sa cele zariadenie a hlavne soft spamatal aj po
| vypadku prudu a pokracoval v cinnosti, ako keby sa nic nestalo.
|
| Ako hardware sa pouzivaju najlacnejsie maticne dosky ( argument su naklady
| na vyrobu ) bez zbytocnych doplnkov, cize USB neexistuje, LPT je len
jedno,
| klasicka klavesnica neexistuje, len 4 tlacitka, HW kluc sa neoplati pre
| zvysene naklady, typ procesora je rozny, typ BIOSu je rozny, sietova karta
| neexistuje... ide len o to, aby to fungovalo relativne bez problemov.
|
| Cele je to postavene na tom, ze vyrobne naklady musia byt nizke, predajna
| cena tiez, pocet kusov velky. Zariadenie dokaze okopirovat a zostavit aj
| priemerne
| vzdelany foxterier, dusu tomu dava az soft. A sme pri probleme.
|
| Pokial niekto z Vas funguje ako spravca velkej siete a bol nuteny rozbehat
| viac ako 10 PC urcite bude hladat sposob ako si urychlit robotu.
| Bezny je prave sposob, kedy ozivim jednu masinu, na disky dalsich
| rozkopirujem a dokonfigurujem.
| Samozrejme musim mat vsetko poriesene licencne - nechcem tu ale rozprudit
| diskusiu na tuto temu, v konferencii jej bolo dost.
|
| Rovnaky postup ale moze pouzit aj niekto iny, kde to uz nie je v mojom
| zaujme, prave preto hladam sposob, ako identifikovat kazdu masinu, na
ktorej
| to moze alebo nemoze bezat. A ak nemoze bezat v plnom rezime, nech sa to
| aspon predvedie - marketing tu ale vysvetlovat nebudem.
| A nemozem sa spolahnut na zapisy do registrov, identifikaciu OS, zapis po
| prvom spusteni ... to su vsetko informacie, ktore sa prenesu pri
kopirovani
| z masiny do masiny.
|
| Na internete som nasiel nasledovnu informaciu :
|
| other information that may be checked:
|
| - BIOS date
| - IDE HDD controller information
| ( unique for each IDE HDD, but hard to get under Win32 ) // toto by
| bolo asi najvhodnejsie, nema niekto nieco naprogramovane, alebo aspon
nejake
| info
| - volume serial number
| - boot sector of drive C:
| - equipment word from BIOS data
| - CMOS values
| - file length
| - control sum of file
| - file name
| - size of current drive
| - current directory
| - number of first cluster of file
| - partition table
| - OS version
| - presence of some drivers
|
| Pouzil som kombinaciu niektorych metod, ale je to hlavne postavene na
serial
| number harddisku. Cislo sa prideli pri formatovani a malo by byt
jedinecne.
| Pokial ho ale dokaze zapisat cast OS, da sa to aj inym softom. Preto bol
aj
| povodny prispevok do konferencie.
| Ak si uz niekto da tu namahu, ze krekne kod, dobre - stalo sa.
|
| Ale neexistuje nejaka utilita volne pohodena a volne dostupna, kde sa bez
| velkeho rozmyslania da zmenit toto cislo ???
| Prave preto som sa obratil na Vas, viac hlav, viac znalosti...
|
| D.
|
| PS: Dufam, ze ospravedlnite velkost prispevku.
|
|FlashFiler 2
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 15.12.2000 21:21:14
Puvodni zprava, kterou napsal Ing. Petr �vejda dne 15 Dec 00,:
> zn�te n�kdo cenu pro Ceskou republiku?
>
> Klame me zrak, nebo je cena 499 (399) dolaru?
>
> Zajima me vsak cena upgrade z jednicky v korunach.
499 je cena noveho produktu, upgrade je levnejsi. FF2 jeste
neni dodavan, slibuji do konce roku... ceny beznym mailem
mimo konferenci.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon/fax: 047-5500610, telefon/fax: 047-5501627 ===
=== telefon GSM: 0602-409601, ICQ: 21215917 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================EasyUpdate
[*] Hurricane <hurricane(zv)quick(tec)cz> - 15.12.2000 21:31:50
Zdravim
Chtel bych do sveho programu pridat funkci pro jednodichy update z IT.
Existuje nejaka komponenta, ktera to jednoduse zaridi za me, nebo si to
musim sepsat cely sam?
Pokud komponenta neni, mam tyto otazky:
1) jak zjistim, jestli je pristupny jisty soubor na IT
(http://www.aaa(tec)cz/file.exe), tedy jestli jsem ON-LINE
2) jak z urcite adresy v IT zjistim text (nejspis z nejakeho souboru)
3) mate nekdo nejake poznatky, jak nejlepe zaridit zamenu bezici aplikace za
prave stazenou? Ja sem to vymyslel pomoci dalsiho programku, polozky RunOnce
v registru a restartovani widli, ale myslim, ze byto melo jit i jednoduseji.
Diky vsem za radu.
Hurricane
file commander pro DOS?? Ha ha
[*] Ale� Pavel - 15.12.2000 23:59:47
OT:
Zdravim zakladni skolu.....
No tim dos rezimem FARa si nejsem tak jistej, v DOSu nechodi, marna
slava, tvari se jak dosovskej, ale je to WIN32 aplikace. Zdani klame.
No a uz je opravdu ponekud zastaralej. Hlavne si vsimni te chyby, ktera tam
trva jiz leta. Zkusil jsi prepnout z cestiny na anglictinu a obracene
prikazem keyb cz, nebo keyb us? Zkus to zajimava zkusenost!!!
Nebo si zkus ulozit nastaveni velikosti okna stim jsem zapolil leta, nevim
jak je to ted, mozna se vylepsil nevim....
Zase je to ale dobra hracicka pro kutily, hlavne kdyz si chces hrat s
jazykem a nacpat si tam vlastni hlasky do popisu, to si opravdu clovek muze
vyhrat.... FTP pristup se hodi, ac je to reseno ponekud postarsim stylem,
ale radeji bych pockal az prijde novy Salamander, ten uz je zastupcem nove
generace... Podle meho si s Farem pohraji lide starsi, kteri se jiz neradi
orientuji na neco noveho a s laskou vzpominaji na stareho dobreho nortona.
Ten pouzivam jeste dnes, protoze ten opravdu chodi pod dosem a jsem moc
linej na radkovy provoz....
Ales Pavel
Amater vsech amateru
Kukacka mi kukla 24krat
a jiny ptaky krome kachny na cerno
se zelim odmitam znat.....
----- Original Message -----
From: Spravce site ZSU <admin(zv)zsuprkova.pvtnet(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, December 08, 2000 12:21 PM
Subject: Re: file commander
> Tak jest! Na FAR nedam dopustit, je to zatim nejlepsi filecommander,
> kterej jsem videl :o))) A hlavne to jde spoustet v DOSovym rezimu, coz u
> ma siti dost ocenuju, pac tady (jako spravny statni zarizeni) mame
> prehistorickej DOSovej software...
>
> S pratelskym pozdravem
>
> -----
> Radovan Vojtek - Spravce site
> Zakladni skola, Uprkova ul. 1
> 500 09, Hradec Kralove
> CZECH REPUBLIC
> tel.: +420(49)5270294
> mobil: +420(604)849231
> #ICQ: 63924162
> -----
>
> ----- Original Message -----
> From: <MDvorak(zv)csas(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Friday, December 08, 2000 6:30 AM
> Subject: RE: file commander
>
>
> > Ale FAR vsechno tohle prece umi !!!!
> >
> > M. Dvorak
> >
> > >>BTW, nevi nekdo o nejakem dobrem commanderu, kterym bych mohl FAR
> (1.52)
> > >>nahradit - u vsech co jsem zkousel mi chybi zejmena historie
> adresaru,
> > >>editovanych/prohlizenych souboru a moznost snadno se pohybovat mezi
> > ruznymi
> > >>adresari - tedy vse, co podstatnou merou zrychluje praci s
> pocitacem.
> >
>
> ---
> Odchozi zprava neobsahuje viry.
> Outgoing message does not contain any viruses
> SUPERVISOR (zv) ZSU Network
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.219 / Virov� b�ze: 103 - datum vyd�n�: 6-12-00
>
>
IIS4.0+ASP+Access
[*] Erik Salaj <winsoft(zv)napri.sk> - 16.12.2000 00:19:07
> ja ASP skripty s Access2000 normalne pisu, ale pouzivam jen projekcni
> prikazy, protoze mi (taky nevim z jakeho duvodu - pouzivam jak v praci pri
> vyvoji, tak na webhostingu IIS 5) INSERT slapal jen nekdy (nebo snad
> nikdy?!?) a psalo to?
>
> JET Error - Operation must use an updatable Query
>
> pri pouzivani tohoto conn stringu
>
> var x= Server.MapPath("/db.mdb");
> var oConn = Server.CreateObject("ADODB.Connection");
> var dsn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + x + ";Persist
> Security Info=False";
> oConn.Open (dsn);
>
> chybu jsem vyresil tak ze tam kde potrebuju insertovat pouzivam MSSQL -
> stejne potrebuju prislozitejsich INSERTECH pouzivat ulozene procedury.
To je presne ten problem s LDB, ktory som spominal. Jednoducho inet
uzivatel nema pravo zapisu do databazy alebo LDB suboru.
Erik
EasyUpdate
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 16.12.2000 01:43:35
Skus pozret na www.tmssoftware.com TWEBUpdate. Je to free pre non-commercial
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Hurricane
> Sent: Friday, December 15, 2000 9:32 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: EasyUpdate
>
>
> Zdravim
>
> Chtel bych do sveho programu pridat funkci pro jednodichy update z IT.
> Existuje nejaka komponenta, ktera to jednoduse zaridi za me, nebo si to
> musim sepsat cely sam?
> Pokud komponenta neni, mam tyto otazky:
>
> 1) jak zjistim, jestli je pristupny jisty soubor na IT
> (http://www.aaa(tec)cz/file.exe), tedy jestli jsem ON-LINE
>
> 2) jak z urcite adresy v IT zjistim text (nejspis z nejakeho souboru)
>
> 3) mate nekdo nejake poznatky, jak nejlepe zaridit zamenu bezici
> aplikace za
> prave stazenou? Ja sem to vymyslel pomoci dalsiho programku,
> polozky RunOnce
> v registru a restartovani widli, ale myslim, ze byto melo jit i
> jednoduseji.
>
> Diky vsem za radu.
> Hurricane
>
>
> SHFileOperation - nevim syntaxi
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 16.12.2000 04:58:45
ja vim,
musis totiz nadefinovat promennou typu _SHFILEOPSTRUCTA - je to record,
jehoz polozky naplnis tema jednotlivejma hodnotama a predas ji jako parametr
ty funkci:
var opstruct: _SHFILEOPSTRUCTA;
.
.
.
opstruct.neco=neco;
atd...
SHFileOperation(opstruct);
myslim, ze v te strukrure vraci ta funkce i nejake vysledky...
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
----- Original Message -----
From: "JIM Design" <jim.design(zv)iol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, December 15, 2000 9:11 PM
Subject: SHFileOperation - nevim syntaxi
> Zdravim,
>
> nejsem moc zbehly v API funkcich a nejak mi nefunguje:
>
>
SHFileOperation(_SHFILEOPSTRUCTA(0,FO_DELETE,PChar('c:\vse\*.*'),nil,FOF_SIL
> ENT));
> (potrebuju smazat adresar c:\vse)
>
> a pise to u hned za '0' :
> ')' expected but ',' found.
> a 2x too many actual parameters
>
> Nevite nekdo co mam spatne?
>
> Diky
> M.Jirman
Prosba restartovac WinNT
[*] Martin <martin(zv)sneznik(tec)cz> - 16.12.2000 09:46:35
ja bych se take pripojil k zadosti.dekuji.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Roman �ev��k
Sent: Friday, December 15, 2000 10:30 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Prosba restartovac WinNT
JA BYCH MEL O NEJ TAKE ZAJEM...PROSIM
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Raul Endymion
Sent: Friday, December 15, 2000 9:05 AM
To: delphi-l(zv)fwd(tec)cz
Subject: OT: Prosba restartovac WinNT
Dobr� den,
Mohla by mi ta dobra duse co mi poslala restartovac windows NT na
dalku ho poslat jeste jednou ? Dekuji
--
S pozdravem,
Raul
raul.endymion(zv)bsdi.infima(tec)cz
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.214 / Virov� b�ze: 101 - datum vyd�n�: 16.11.2000
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.214 / Virov� b�ze: 101 - datum vyd�n�: 16.11.2000
Zmena serioveho cisla harddisku
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 16.12.2000 11:50:43
On 15 Dec 2000, at 17:40, Hurricane wrote:
> verze OS a to se ulozi do souboru. Cracker nebude mit stejny SW a HW.
> Ted me napadlo, co treba napsat si vlastni BIOS. Ne pochopitelne cely,
> ale jen v nem upravit nejakou cast, napr. do nevyuzite casti CMOS
> pameti (urcite se najde) zapsat nejake cislo, ktere soft bude cist.
> Rekl bych, ze potencionalni cracker BIOS kopirovat nebude. Nemaj
Proboha, kam na ty napady chodis? Existuje cela rada BIOSu,
nemluve o tom, ze nekteri vyrobci zeleza BIOS vubec nepouzivaji,
ale startuji pocitac pomoci utilit ulozenych ve zvlastni oblasti na HD
(Compaq). No a kdyz napadne jineho sikulu obsadit stejny prostor
svymi hratkami, ma chudak uzivatel o zabavu pos(ta)rano.
Navic se snadno muze stat, ze OS cely BIOS ihned po startu
zahodi a nahradi ho vlastnimi utilitami.
> nahodou CPU svoje ID?
Ne. Jen nektere.
> A nebo uplne jinak, co treba pouzit to ID HDD k
> opacnemu ucelu. Vezmi napr. verzi OS, zkombinuj ji s aktualnim datem a
> jeste nejakym unikatnim cislem a vysledek zapis jako ID HDD a zaroven
A co budes delat v okamziku, az uzivatel upgraduje OS?
S pozdravem
Zbysek Hlinka
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
OT: termin pro nelegalni nedestruktivni zmeny prog
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 16.12.2000 11:50:43
On 14 Dec 2000, at 21:40, Hurricane wrote:
> Diky za snahu, ale s to pocesteni byl asi spatny priklad. Kdyz napr. z
> adware programu odstranim ten banner, nebo napr. v Explorer.exe uplne
> prehazim nabidku start, myslim, ze se nejedna o lokalizaci. :-)
Pokud vymenis ikonku (pokud to ovsem nebude nejaka urcujici
ikonka, jako napriklad ze bys vymenil logo vyrobce za sve logo)
nebo si prelozis nejake texty, pak lze hovorit o lokalizaci. Pokud
zprehazis poradi v menu, pak to lze za urcitych okolnosti stale
jeste povazovat za lokalizaci. Pokud ale nejaky resource odstranis,
pak uz prekracujes autorska prava, nemluve o tom, ze se program
muze zhroutit. Zkratka zalezi na tom, jake upravy tam udelas.
> Subject: Re: OT: termin pro nelegalni nedestruktivni zmeny programu
>
> > > Nevite nekdo jak se nazyva cinnost, kdyz menim resourcy EXEace tak
> > > aby mi vice vyhovovaly? Nejedna se o destruktivni cinnost ani o
> > > hacking, apod. Nic za ucelem zisku. Jenom se mi napr. nelibi ikona
> > > toho programu, tak si namaluju vlastni, nabouram se do EXE a ikonu
> > > zmenim. Je to totez, kdyz vezmu anglicky soft a zmenou resourcu v
> > > EXE ho pocestim. Predpokladam, ze tato cinnost neni legalni,
> > > protoze jinak by autor rozdaval zdrojaky. Vite to nekdo?
> >
> > Lokalizace. :-)
S pozdravem
Zbysek Hlinka
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Zmena serioveho cisla harddisku
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 16.12.2000 12:04:14
>
> Ja si IMHO myslim, ze slozita a tezko prekonatelna ochrana spociva v
> kombinaci velke spousty jednoduchych veci. (verze OS, datum BIOSu,...) Taky
> si myslim, ze je bezpodminecne nutne, aby to bylo zavisle na HW ochrane
> spolu s SW kontrolnim souctem. Tzn., ze se vezme odnekud z HW unikatni cislo
> a podle nejakeho algoritmu se zkombinuje s cislem napr verze OS a to se
> ulozi do souboru. Cracker nebude mit stejny SW a HW. Ted me napadlo, co
> treba napsat si vlastni BIOS. Ne pochopitelne cely, ale jen v nem upravit
> nejakou cast, napr. do nevyuzite casti CMOS pameti (urcite se najde) zapsat
> nejake cislo, ktere soft bude cist. Rekl bych, ze potencionalni cracker BIOS
> kopirovat nebude. Nemaj nahodou CPU svoje ID? A nebo uplne jinak, co treba
> pouzit to ID HDD k opacnemu ucelu. Vezmi napr. verzi OS, zkombinuj ji s
> aktualnim datem a jeste nejakym unikatnim cislem a vysledek zapis jako ID
> HDD a zaroven do souboru. Program potom bude testovat jedno i druhe cislo a
> zaroven aktualni datum. Pokud by ty mincovniky nepotrebovaly datum, slo by
> urcite ty desky upravit tak, aby nebezel RTC obvod. Kdyz to navic zamotas
> tak, ze nastavis datum, zaheslujes BIOS a RTC odpojis a nenechas crackera
> datum zjistit, cracker nema sanci. ID HDD, cislo v souboru a datum si potom
> nebudou odpovidat. Misto toho nemeniciho data by asi slo pouzit zapsane
> cislo v BIOSu, jak sem psal vyse.
>
za prve si musis rozmyslet co pises - jestli nejaky uzitecny program nebo jeho ochranu :-). Neni problem prelstit obyc zakaznika tak, aby nebyl schopen prenest software na jiny pocitac. Pri tom bych ale volil neco co neni zavisle na dilech PC, ktere se casto meni z duvodu upgradu (zakaznik muze vymenit v podstate vsechno :-)). Pochopil jsem, ze v t omto pripade se jedna o specialni pripad - dodavaji se jiz hotove pocitace. Tim je situace jednodussi.
Pokud chces psat ochranu proti hackerum./crackerum pak jedine co mohou rici je - nema to smysl.
D. Toman
ODBC datasource name
[*] Ji�� Kubelka���Z��밄��v��w - 16.12.2000 12:36:34
Ahoj,
nevite nekdo jak se da programove vytvaret nove ODBC datasource name?
Potreboval bych vytvorit pripojeni na Sybase ASA server pres ODBC
jenze nevim jak udelat nahradu rucniho vytvoreni noveho DSN.
Za pomoc velice dekuji ..
D5 C/S + Sybase SQL Server + W2000
--
S pozdravem
Ji�� Kubelka Als.FofrsIT(zv)worldonline(tec)cz
Tel.: +420 603 521336
Zmena serioveho cisla harddisku
[*] L. ZITA <konference(zv)sales(tec)cz> - 16.12.2000 15:13:04
----- Original Message -----
From: "Vetrak" <vetrak(zv)datalock.sk>> Dobre, poskytnem par doplnujucich udajov, aj ked nechcem robit zbytocnu
> reklamu.
>
> Produkt sa pouziva ako jednoucelove zariadenie, kde po zaplateni
prislusnej
> sumy sa nieco udeje ( nejde o hazard ).
>
> Specialne zariadenie na LPT je prave mincovnik od NCR, komunikuje sa s nim
> cez prislusne 4 piny na lpt porte, ktore sa normalne pouzivaju na
> komunikaciu z tlaciarnou. Bohuzial kazdy mincovnik je iny priamo z vyroby
a
> ani po nastavovani sa nedaju mincovniky dostat do rozumnych tolerancii
> dlzky signalov ... a to aj pri opakovanom vhodeni tej istej minci do toho
> isteho mincovnika je dlzka impulzu rozna).
> Na to sa ale nestazujem, problem sa da riesit softom a pomerne elegantne,
> tu len podotknem, ze soft musi zaregistrovat kazdu padnutu mincu do
> mincovnika, takze komunikacia na LPT je tak na hrane moznosti systemu a
> dalsiu si tam nemozem dovolit.
> Dalsia podmienka bola, aby sa cele zariadenie a hlavne soft spamatal aj po
> vypadku prudu a pokracoval v cinnosti, ako keby sa nic nestalo.
>
> Ako hardware sa pouzivaju najlacnejsie maticne dosky ( argument su naklady
> na vyrobu ) bez zbytocnych doplnkov, cize USB neexistuje, LPT je len
jedno,
> klasicka klavesnica neexistuje, len 4 tlacitka, HW kluc sa neoplati pre
> zvysene naklady, typ procesora je rozny, typ BIOSu je rozny, sietova karta
> neexistuje... ide len o to, aby to fungovalo relativne bez problemov.
>
> Cele je to postavene na tom, ze vyrobne naklady musia byt nizke, predajna
> cena tiez, pocet kusov velky. Zariadenie dokaze okopirovat a zostavit aj
> priemerne
> vzdelany foxterier, dusu tomu dava az soft. A sme pri probleme.
>
Ahoj.
Tak pouzij ISOvou sitovku. napr. PLANET ENW-2400P-TFAPL001 karta ISA
10/20Mbps full duplex STP/UTP, PnP
za 380 Kc bez DPH. A to jsem nikde nehledal levnejsi, nehlede na to , ze
nejake stare sitovky by se
daly urcite koupit za par korun.
Ta ma opravdu jedinecne seriove cislo a nejde ho zmenit.
Pokud Ti ovsem ochrana nestoji za cca 400 Kc/kus pak nevim co vlastne chces
chranit a jake skody Ti tedy vubec
kradenim SW muzou vzniknout.
Mozna by bylo lepsi zamyslet se nad zpusobem distribuce. Vzhledme k tomu, ze
zarizeni je na mince, bude asi
verejne dostupne, takze muzes kdykoliv pirata "chytit za ruku". Takze
zaplombovat a do kupni smlouvy zanest
tucnou pokutu za poruseni plomby. Treba Ti jeden dva chyceni zaplati skodu
za vsechny ostatni. Ostatne u
(vy)hernich automatu je to myslim celkem bezna zalezitost.
Ludek
Popup bez ukryti ZASE NIC
[*] Hurricane <hurricane(zv)quick(tec)cz> - 16.12.2000 19:28:28
Zdravim
Zkus dat po kliknuti hned zase rozbaleni toho popupu a zavreni do
OnMouseOut.
Hurricane
----- Original Message -----
> Ahoj potreboval bych aby po odkliknuti popup nezavrelo, ale aby se zavrelo
> az po opusteni mysi zabirane plochy popup ! Nevite jak se to udela? Dekuji
> za kazdou radu
OT: termin pro nelegalni nedestruktivni zmeny prog
[*] Hurricane <hurricane(zv)quick(tec)cz> - 16.12.2000 19:40:29
Zdravim
Trefa, jako navstivenku tam necham puvodni logo vyrobce, na kterym je
napsany "Remaked by Hurricane". Kdyz to zkonkretizuju, tak jde napr o to, ze
jsem v browseui.dll smazal cernobile obrazky, ktere se zobrazuji v toolbaru
okna a nahradil je temi barevnymi. To same s iexplorerem a MSOE. Pak sem
treba zvetsil standardni open dialog pres celou obrazovku, smazal polozku
spustit ze Start menu, protoze ji nepouzivam a dalsi podobne veci. Jak
rikam, vzdycky ale zanecham svoji vizitku.
Hurricane
----- Original Message -----
Subject: Re: OT: termin pro nelegalni nedestruktivni zmeny programu
> > Diky za snahu, ale s to pocesteni byl asi spatny priklad. Kdyz napr. z
> > adware programu odstranim ten banner, nebo napr. v Explorer.exe uplne
> > prehazim nabidku start, myslim, ze se nejedna o lokalizaci. :-)
>
> Pokud vymenis ikonku (pokud to ovsem nebude nejaka urcujici
> ikonka, jako napriklad ze bys vymenil logo vyrobce za sve logo)
> nebo si prelozis nejake texty, pak lze hovorit o lokalizaci. Pokud
> zprehazis poradi v menu, pak to lze za urcitych okolnosti stale
> jeste povazovat za lokalizaci. Pokud ale nejaky resource odstranis,
> pak uz prekracujes autorska prava, nemluve o tom, ze se program
> muze zhroutit. Zkratka zalezi na tom, jake upravy tam udelas.Zmena serioveho cisla harddisku
[*] Hurricane <hurricane(zv)quick(tec)cz> - 16.12.2000 19:46:34
Zdravim
> Navic se snadno muze stat, ze OS cely BIOS ihned po startu
> zahodi a nahradi ho vlastnimi utilitami.
>
> > nahodou CPU svoje ID?
>
> Ne. Jen nektere.
>
> > A nebo uplne jinak, co treba pouzit to ID HDD k
> > opacnemu ucelu. Vezmi napr. verzi OS, zkombinuj ji s aktualnim datem a
> > jeste nejakym unikatnim cislem a vysledek zapis jako ID HDD a zaroven
>
> A co budes delat v okamziku, az uzivatel upgraduje OS?
Ja ale mluvim konkretne jen o tomto pripadu, kdy se do zarizeni zamontuje
jeden HW a uzivatel ho menit NEBUDE. Pro normalni pouziti je to samozrejme
nepouzitelne. U normalnich PC je defakto jedinym funkcim zpusobem ochrany HW
klic.
Hurricane
Rozli�en�
[*] Ondrej Skipala <OSkip(zv)seznam(tec)cz> - 16.12.2000 21:16:07
Pot�eboval bych p�epnout rozli�en� p��mo p��kazem v programu. Nap�. na 800x600x32 nev�te n�kdo takov� p��kaz? jak se odkazovat na promenou se stringem?
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 16.12.2000 22:10:06
Ahoj,
ten destructor by tam snad nemusel byt,
kdyz ma Edit ownera. Nebo se pletu ?
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Martin Pe�ava
> Sent: Friday, December 15, 2000 2:58 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: jak se odkazovat na promenou se stringem?
>
> Uz si to moc nepamatuju, ale mam pocit, ze to bylo nejak takhle:
>
> type
> TFrm = TForm
> ...
> Edits : array[1..20] of TEdit;
> end;
>
> procedure TFrm.OnCreate;
> var i : integer;
> begin
> for i:=1 to 20 do begin
> Edits[i]:=TEdit.Create(TFrm);
> with Edits[i] do begin
> left:=...; top:=...;
> text:=...;
> parent:=TFrm;
> end;
> end;
> end;
>
> procedure TFrm.OnDestroy;
> var i : Integer;
> begin
> for i:=1 to 20 do Edits[i].Destroy;
> end;
>
> Jiri Hostinsky wrote:
> >
> > To me zajima
> >
> > Kdysi jsem to zkusil, ale pokud bylo polozek trochu vic (> 10)
> nebo nektere
> > byly pod dolnim krajem,
> > po nahozeni (create, showmodal) se formular rozblikal a utisil se za par
> > vterin, az vsechno nacmaral a nastrkal na spravne pozice. Radsi jsem to
> > zahodil.
> >
> > Jak to delas, aby form naskocil hned (aspon priblizne jako
> napsany z IDE) ?
> >
> > Jiri Hostinsky
>
> --
> Martin Pe�ava
>
> /--------------------------------------------------------------\
> | E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
> | WebMaster of |
> |http://miss.jimx.net - Neofici�ln� str�nka MISS �R a CyberMiss|
> \--------------------------------------------------------------/
>Rozli�en�
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 16.12.2000 22:10:07
Ahoj,
viz starsi prispevek a la Petr Vones:
[PV]
Stahni si JCL (http://delphi-jedi.org/Jedi:CODELIBJCL), tam v unitu
JclMiscel
najdes mimo jine funkci:
function SetDisplayResolution(XRes, YRes: DWORD): Longint;
Petr Vones, amatersky programator
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Ondrej Skipala
> Sent: Saturday, December 16, 2000 9:16 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Rozli�en�
>
>
> Pot�eboval bych p�epnout rozli�en� p��mo p��kazem v programu.
> Nap�. na 800x600x32 nev�te n�kdo takov� p��kaz?
>Popup bez ukryti ZASE NIC
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 16.12.2000 22:10:04
Ahoj,
obecne bych rekl, ze je to dost nestadardni chovani.
Uzivatele nemaji radi SW kde se musi ucit nejakemu
zvlastnimu chovani. Kdybys napriklad ve sve aplikaci
pouzival pro kopirovani do schranky CTRL+V tak by
asi nikdo nebyl nadseny. Urcite by to slo resit jinak.
Na co to potrebujes?
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Hurricane
> Sent: Saturday, December 16, 2000 7:28 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Popup bez ukryti ZASE NIC
>
>
> Zdravim
>
> Zkus dat po kliknuti hned zase rozbaleni toho popupu a zavreni do
> OnMouseOut.
>
> Hurricane
> ----- Original Message -----
> > Ahoj potreboval bych aby po odkliknuti popup nezavrelo, ale aby
> se zavrelo
> > az po opusteni mysi zabirane plochy popup ! Nevite jak se to
> udela? Dekuji
> > za kazdou radu
>
> ExtractIconEx
[*] Hurricane <hurricane(zv)quick(tec)cz> - 17.12.2000 01:48:23
Zdravim
Mate nekdo funkcni priklad na fci ExtractIconEx? Nejak se mi nedari to
rozchodit.
Diky
Hurricane
Problem menu v MDI vs maximized
[*] Filip Hochman <filip.hochman(zv)atlas(tec)cz> - 17.12.2000 12:16:25
Ahoj,
uz se to tu resilo, ale vysledek je mi neznamy.
MDI aplikace, kde childovska okna pripojuji sva menu
k hlavnimu zpusobuje, ze pokud je hlavni okno maximalizovano,
mizi butony childovskeho okna pro min, max, close ve W9x,
ve W2000 je close jakoby disabled, ale funguje.
Petr Vones kdysi radil:
Je to chyba VCL. Podivej se na Borlandi newsy do
borland.public.attachments,
a hledej MDIFixes. Je tam popsano nekolik oprav na MDI ve VCL.
Omlouvam se, ale zatim jsem nic nenasel.
Dik za pomoc, Filip. D5, W2000p
Re[2]: file commander pro DOS?? Ha ha
[*] Martin Zlomek <martin.zlomek(zv)email(tec)cz> - 17.12.2000 13:48:43
Zravim Prof. P.D. Pavla, CSc.
Friday, December 15, 2000, 11:59:47 PM:
> OT:
> Zdravim zakladni skolu.....
> No tim dos rezimem FARa si nejsem tak jistej, v DOSu nechodi, marna
> slava, tvari se jak dosovskej, ale je to WIN32 aplikace. Zdani klame.
> No a uz je opravdu ponekud zastaralej. Hlavne si vsimni te chyby, ktera tam
> trva jiz leta. Zkusil jsi prepnout z cestiny na anglictinu a obracene
> prikazem keyb cz, nebo keyb us? Zkus to zajimava zkusenost!!!
Mozna by bylo lepsi pouzivat jiny program na psani cesky (cti [�esky])
(pro zajemce mam cca 15kB rezidentik, zere cca 13.5 kB mem (po spusteni v
autoexecu jede i v "dos" rezimu ve Windoze) - BTW. zvlada latin 2 i kameniky).> Nebo si zkus ulozit nastaveni velikosti okna stim jsem zapolil leta, nevim
> jak je to ted, mozna se vylepsil nevim....
Jelikoz FAR jede v "dos" rezimu, tak za to nemuze.
Jak jsem zjistil, tak "dosove" palikace se spousti pres conagent.exe
(\WINDOWS\SYSTEM\CONAGENT.EXE). Zkuste nastavit vlastnosti tohoto
programu (prave mysitko->vlastnosti, vytvori se soubor conagent.pif) a
melo by se to projevit i u FARa a podobnych programu.
> Zase je to ale dobra hracicka pro kutily, hlavne kdyz si chces hrat s
> jazykem a nacpat si tam vlastni hlasky do popisu, to si opravdu clovek muze
> vyhrat.... FTP pristup se hodi, ac je to reseno ponekud postarsim stylem,
> ale radeji bych pockal az prijde novy Salamander, ten uz je zastupcem nove
> generace... Podle meho si s Farem pohraji lide starsi, kteri se jiz neradi
> orientuji na neco noveho a s laskou vzpominaji na stareho dobreho nortona.
Nejen starsi lide, mne je 18. Doporuduji precist si HELP a zjistite,
co vsechno FAR umi. Take rad vzpominam na Nortona, jenze pro Windoze
jsou jeho moznosti ponekud omezene. Nemyslim, ze jenom proto, ze FAR
vypada jako Norton, musi to byt neco archaickeho. Ale mate pravdu,
FAR ma stejne ovladani (u toho, co podedil) a klavesove zkratky, na
ktere si vetsina "konzervativnich" uzivatelu zvykla.
Vyzkousel jsem vice manageru (od Salamadra az po WinCommander), ale
jejich moznosti jsou, podle me, nedostacujici a ovladani funkci az prilis
windozovske, takze jsem je mel nainstalovane tak dlouho, jako linuxari
program Windoze (pokud jej vubec nekdy instalovali) :-).
Proste mne nevyhovuji. Jedine, co mne u FARa vadi, je, ze
neumi kopirovat na pozadi (aspon o tom nevim). Ale koho obtezuje spustit
proste dalsi okno. Vadi to snad jenom tem, kteri maji malo pameti
(FAR zere se vsim vsudy cca 5MB mem).
> Ten pouzivam jeste dnes, protoze ten opravdu chodi pod dosem a jsem moc
> linej na radkovy provoz....
> Ales Pavel
> Amater vsech amateru
> Kukacka mi kukla 24krat
> a jiny ptaky krome kachny na cerno
> se zelim odmitam znat.....
Ja znam jeste tucnaky.
--
Martin Zlomek
martin.zlomek(zv)email(tec)cz
EasyUpdate
[*] Hurricane <hurricane(zv)quick(tec)cz> - 17.12.2000 15:22:19
Zdravim
Diky za tip, ale moc se mi to nehodi. Pripada mi to zbytecne slozity a
stejnak me me to nezbavi nutnosti napsat si programek, ktery zaridi
nahrazeni meho programu tim prave stazenym. Tahle komponenta jenom
kontroluje verze a stahuje do nejakeho adresare. Kdybych nic lepsiho nebylo,
asi bych to pouzil, ale byl bych vdecny za nejake poznatky okolo tohoto
problemu.
Hurricane
----- Original Message -----
> Skus pozret na www.tmssoftware.com TWEBUpdate. Je to free pre
non-commercial
> > -----Original Message-----
> > Chtel bych do sveho programu pridat funkci pro jednoduchy update z IT.
> > Existuje nejaka komponenta, ktera to jednoduse zaridi za me, nebo si to
> > musim sepsat cely sam?
> > Pokud komponenta neni, mam tyto otazky:
> >
> > 1) jak zjistim, jestli je pristupny jisty soubor na IT
> > (http://www.aaa(tec)cz/file.exe), tedy jestli jsem ON-LINE
> >
> > 2) jak z urcite adresy v IT zjistim text (nejspis z nejakeho textoveho
souboru)
> >
> > 3) mate nekdo nejake poznatky, jak nejlepe zaridit zamenu bezici
> > aplikace za
> > prave stazenou? Ja sem to vymyslel pomoci dalsiho programku,
> > polozky RunOnce
> > v registru a restartovani widli, ale myslim, ze byto melo jit i
> > jednoduseji.
> >
> > Diky vsem za radu.
> > Hurricane
Ako pracuje funkcia "random()" ?
[*] x5delphi <x5delphi(zv)yahoo(tec)com> - 17.12.2000 15:34:16
Ahojte,
Zaujimalo by ma, ako vlastne funguje tato funkcia.
Nemyslim, ako sa pouziva. ;-)
Hladal som ju aj v src, ale nenasiol som nic.
dik za kazdu radu
vachi
_________________________________________________________
Do You Yahoo!?
Get your free (zv)yahoo.com address at http://mail.yahoo.com
Backspace v IE / WMKeyDown ????
[*] Jan Rychtar <hojan(zv)sin.cvut(tec)cz> - 17.12.2000 15:55:00
A nepomohlo by, zaregistrovat si v te dll globalni hook na klavesnici?
Jan Rychtar
>v prazdem projektu to funguje, ale v IE uz ne. Ja fakt nevim co s tim.
>Tam message vubec neprijde.
>
>Ales
Backspace v IE / WMKeyDown ????
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.12.2000 16:44:28
From: "Jan Rychtar" <hojan(zv)sin.cvut(tec)cz>
> >v prazdem projektu to funguje, ale v IE uz ne. Ja fakt nevim co s tim.
> >Tam message vubec neprijde.
Ahoj,
pokud se ti to projevuje v IE5, tak by to mohl byt tenhle problem:
http://community.borland.com/article/0,1410,6302,00.html
Petr Vones, amatersky programator
OT: rozdil CD Win2k Prof. a Upgrade
[*] Milan ��ek - 17.12.2000 18:03:11
ahoj,
potreboval bych zjistit, jak se od sebe daji rozpoznat CD: MS Windows2000
Prof. a MS Windows2000 Prof. UPGRADE.
U upgradoveho CD je zapotrebi pri instalaci vlozit NT3.51,4.0,Win95 nebo
Win98. Adresare CD\I386 ale vykazuji uplne stejnou velikost, a soubory
vypadaji na venek take uplne shodne.
Jak bezpecne zjistim, o jake ze jde CD???
S pozdravem Milan Cizek, amatersky programator, D5 Ent
Win2k a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.219 / Virov� b�ze: 103 - datum vyd�n�: 5.12.2000
EasyUpdate
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 17.12.2000 18:14:07
Skus sa na to pozriet trochu lepsie...
vie to nahradit stiahnutu verziu spacovanu v *.cab za prave beziaci EXE
subor.
Kod nutny k rozchodeniu :
object WebUpdate: TWebUpdate
FTPPassive = False
ExtractCAB = False
Host = 'www.XXX.sk'
Password = '*****'
Port = 21
UpdateType = httpUpdate
UpdateConnect = wucConnectPrompt
UpdateUpdate = wuuPromptOnce
URL = 'http://www.XXX.sk/DownAppl/update.inf'
DateFormat = 'dd.mm.yyyy'
DateSeparator = '.'
UserID = '*****'
LastURLEntry.Save = False
PostUpdateInfo.Enabled = False
OnFileProgress = WebUpdateFileProgress
OnAppRestart = WebUpdateAppRestart
Left = 214
Top = 414
end
procedure TMainForm.WebUpdateAppRestart(Sender: TObject;
var allow: Boolean);
begin
allow:=messagedlg('Nakopiroval som novy EXE. Restartovat aplikaciu
?',mtConfirmation,[mbYes,mbNo],0)=mrYes;
if allow then
Close;
end;
procedure TMainForm.WebUpdateFileProgress(Sender: TObject;
filename: String; pos, size: Integer);
begin
progressbar1.max:=size;
progressbar1.position:=pos;
end;
procedure TMainForm.StiahninovyEXEzWWW1Click(Sender: TObject);
begin
try
ProgressBar1.Visible:=True;
WebUpdate.DoUpdate;
except;
ProgressBar1.Visible:=False;
end;
ProgressBar1.Visible:=False;
end;****************************************** update.inf
[update]
newversion=1,0,0,35
localversion=XXX.exe
[action]
msg=Automaticky update
query=Toto je update na verziu 1.0.0.35. Pokracovat?
[application]
appupdate=1
appname=XXX.exe
appcomps=XXX.cab
[files]
count=1
[file1]
url=http://www.XXX.sk/DownAppl/XXX.cab
newversion=1,0,0,35
localversion=dub_ff.exe
targetdir={APP}> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Hurricane
> Sent: Sunday, December 17, 2000 3:22 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: EasyUpdate
>
>
> Zdravim
>
> Diky za tip, ale moc se mi to nehodi. Pripada mi to zbytecne slozity a
> stejnak me me to nezbavi nutnosti napsat si programek, ktery zaridi
> nahrazeni meho programu tim prave stazenym. Tahle komponenta jenom
> kontroluje verze a stahuje do nejakeho adresare. Kdybych nic
> lepsiho nebylo,
> asi bych to pouzil, ale byl bych vdecny za nejake poznatky okolo tohoto
> problemu.
>
> Hurricane
> ----- Original Message -----
>
> > Skus pozret na www.tmssoftware.com TWEBUpdate. Je to free pre
> non-commercial
>
> > > -----Original Message-----
>
> > > Chtel bych do sveho programu pridat funkci pro jednoduchy update z IT.
> > > Existuje nejaka komponenta, ktera to jednoduse zaridi za me,
> nebo si to
> > > musim sepsat cely sam?
> > > Pokud komponenta neni, mam tyto otazky:
> > >
> > > 1) jak zjistim, jestli je pristupny jisty soubor na IT
> > > (http://www.aaa(tec)cz/file.exe), tedy jestli jsem ON-LINE
> > >
> > > 2) jak z urcite adresy v IT zjistim text (nejspis z nejakeho textoveho
> souboru)
> > >
> > > 3) mate nekdo nejake poznatky, jak nejlepe zaridit zamenu bezici
> > > aplikace za
> > > prave stazenou? Ja sem to vymyslel pomoci dalsiho programku,
> > > polozky RunOnce
> > > v registru a restartovani widli, ale myslim, ze byto melo jit i
> > > jednoduseji.
> > >
> > > Diky vsem za radu.
> > > Hurricane
>
>jak se odkazovat na promenou se stringem?
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 17.12.2000 18:53:17
Jak sem rikal, moc si to nepamatuju... a pro jistotu sem ho tam
napsal... stejne to vzdycky delam metodou pokus omyl... asi mas
pravdu...
Pavel Malinsk� wrote:
>
> Ahoj,
>
> ten destructor by tam snad nemusel byt,
> kdyz ma Edit ownera. Nebo se pletu ?
>
> S pozdravem
> =====================================
> > Pavel Malinsky; spiderland(zv)iol(tec)cz <
> >===================================<
>
> >
> > Uz si to moc nepamatuju, ale mam pocit, ze to bylo nejak takhle:
> >
> > type
> > TFrm = TForm
> > ...
> > Edits : array[1..20] of TEdit;
> > end;
> >
> > procedure TFrm.OnCreate;
> > var i : integer;
> > begin
> > for i:=1 to 20 do begin
> > Edits[i]:=TEdit.Create(TFrm);
> > with Edits[i] do begin
> > left:=...; top:=...;
> > text:=...;
> > parent:=TFrm;
> > end;
> > end;
> > end;
> >
> > procedure TFrm.OnDestroy;
> > var i : Integer;
> > begin
> > for i:=1 to 20 do Edits[i].Destroy;
> > end;
> >
--
Martin Pe�ava
/--------------------------------------------------------------\
| E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
| WebMaster of |
|http://miss.jimx.net - Neofici�ln� str�nka MISS �R a CyberMiss|
\--------------------------------------------------------------/Carovy kod x Delphi5
[*] Mirek <dmiroslav(zv)seznam(tec)cz> - 17.12.2000 21:31:07
Ahoj, mam prosbu. Delam aplikaci, kde bych potreboval vyuzit ctecku caroveho kodu, ale absolutne nevim jak to SW osetrit.
Pomuze mi nekdo???
Predem diky
Mirek Drancak
Data CD & Audio CD
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 17.12.2000 22:04:45
Ahoj,
nevite nekdo jak rozlisit %subj% ?
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203 ExtractIconEx
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 17.12.2000 22:04:50
Ahoj,
nejak takhle:
var
LargeIcon,SmallIcon: HICON;
Icon: TIcon;
Soubor: String;
Index: Integer;
begin
Icon:= TIcon.Create;
Soubor:= 'soubor.xxx';
Index:= 0;
ExtractIconEx(PChar(Soubor),Index,LargeIcon,SmallIcon,1);
FExtItem[Last].Icon.Handle:= SmallIcon;
[...]
Icon.Free;
end;
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Hurricane
> Sent: Sunday, December 17, 2000 1:48 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: ExtractIconEx
>
>
> Zdravim
>
> Mate nekdo funkcni priklad na fci ExtractIconEx? Nejak se mi nedari to
> rozchodit.
>
> Diky
> Hurricane
>
> OT: Dynamicke pridelovanie IP
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 17.12.2000 22:31:04
Ahoj,
mam otazku z oblasti konfiguracie IP.
S notebookom sa pripajam do mnohych roznych sieti ktore vo vacsine podporuju
DHCP, na rozdiel od mojej domacej peer-to-peer siete. Notebook s W2000 ma
nastavenie ziskat IP adresu z DHCP servera. Domace PC s W98 ma IP adresu
nastavenu pevne na 192.168.0.1. Potreboval by som aby W2000 po pripojeni do
domacej siete, ked zisti ze nenajde server DHCP, si nastavil mnou definovanu
adresu, trebars 192.168.0.2. V sucastnosti sa nastavi nejaka adresa triedy
B? s maskou 255.255.0.0. Da sa toto nejako zmenit? Mozem definovat IP adresu
ktora sa ma pridelit v pripade ak sa nenajde DHCP server? (W2000)
Dik za pomoc, Pavol Stolc
pstolc(zv)sc.sknet.sk
Predavani parametru do UDF v IB6
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 17.12.2000 22:55:59
Ahoj,
> function UDF_POKUS(S1,S2:integer):PChar; export;
...
> declare external function UDF_POKUS
> integer,
v Delphi treba definovat funkciu ako cdecl a v IB treba definovat parameter
ako integer by value
function UDF_POKUS(S1,S2:integer):PChar; cdecl; export;
...
declare external function UDF_POKUS
integer by value,
Pavol Stolc
pstolc(zv)sc.sknet.sk
EasyUpdate
[*] Hurricane <hurricane(zv)quick(tec)cz> - 17.12.2000 23:21:46
Zdravim
Jo, mas pravdu, spatne sem cetl help. Stahnul jsem si demo, ale to mi i po
druhem pokusu spadlo, takze duvera na bode 0. Jeste to jednou zkusim.
Hurricane
----- Original Message -----
From: "Ing. Patrik Tesar" <tesar(zv)rainside.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, December 17, 2000 6:14 PM
Subject: RE: EasyUpdate
> Skus sa na to pozriet trochu lepsie...
>
> vie to nahradit stiahnutu verziu spacovanu v *.cab za prave beziaci EXE
> subor.
>
> Kod nutny k rozchodeniu :
>
> object WebUpdate: TWebUpdate
> FTPPassive = False
> ExtractCAB = False
> Host = 'www.XXX.sk'
> Password = '*****'
> Port = 21
> UpdateType = httpUpdate
> UpdateConnect = wucConnectPrompt
> UpdateUpdate = wuuPromptOnce
> URL = 'http://www.XXX.sk/DownAppl/update.inf'
> DateFormat = 'dd.mm.yyyy'
> DateSeparator = '.'
> UserID = '*****'
> LastURLEntry.Save = False
> PostUpdateInfo.Enabled = False
> OnFileProgress = WebUpdateFileProgress
> OnAppRestart = WebUpdateAppRestart
> Left = 214
> Top = 414
> end
>
> procedure TMainForm.WebUpdateAppRestart(Sender: TObject;
> var allow: Boolean);
> begin
> allow:=messagedlg('Nakopiroval som novy EXE. Restartovat aplikaciu
> ?',mtConfirmation,[mbYes,mbNo],0)=mrYes;
> if allow then
> Close;
> end;
>
> procedure TMainForm.WebUpdateFileProgress(Sender: TObject;
> filename: String; pos, size: Integer);
> begin
> progressbar1.max:=size;
> progressbar1.position:=pos;
> end;
>
> procedure TMainForm.StiahninovyEXEzWWW1Click(Sender: TObject);
> begin
> try
> ProgressBar1.Visible:=True;
> WebUpdate.DoUpdate;
> except;
> ProgressBar1.Visible:=False;
> end;
> ProgressBar1.Visible:=False;
> end;
>
> ****************************************** update.inf
> [update]
> newversion=1,0,0,35
> localversion=XXX.exe
>
> [action]
> msg=Automaticky update
> query=Toto je update na verziu 1.0.0.35. Pokracovat?
>
> [application]
> appupdate=1
> appname=XXX.exe
> appcomps=XXX.cab
>
> [files]
> count=1
>
> [file1]
> url=http://www.XXX.sk/DownAppl/XXX.cab
> newversion=1,0,0,35
> localversion=dub_ff.exe
> targetdir={APP}
>
> > -----Original Message-----
> > From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> > Hurricane
> > Sent: Sunday, December 17, 2000 3:22 PM
> > To: delphi-l(zv)fwd(tec)cz
> > Subject: Re: EasyUpdate
> >
> >
> > Zdravim
> >
> > Diky za tip, ale moc se mi to nehodi. Pripada mi to zbytecne slozity a
> > stejnak me me to nezbavi nutnosti napsat si programek, ktery zaridi
> > nahrazeni meho programu tim prave stazenym. Tahle komponenta jenom
> > kontroluje verze a stahuje do nejakeho adresare. Kdybych nic
> > lepsiho nebylo,
> > asi bych to pouzil, ale byl bych vdecny za nejake poznatky okolo tohoto
> > problemu.
> >
> > Hurricane
> > ----- Original Message -----
> >
> > > Skus pozret na www.tmssoftware.com TWEBUpdate. Je to free pre
> > non-commercial
> >
> > > > -----Original Message-----
> >
> > > > Chtel bych do sveho programu pridat funkci pro jednoduchy update z
IT.
> > > > Existuje nejaka komponenta, ktera to jednoduse zaridi za me,
> > nebo si to
> > > > musim sepsat cely sam?
> > > > Pokud komponenta neni, mam tyto otazky:
> > > >
> > > > 1) jak zjistim, jestli je pristupny jisty soubor na IT
> > > > (http://www.aaa(tec)cz/file.exe), tedy jestli jsem ON-LINE
> > > >
> > > > 2) jak z urcite adresy v IT zjistim text (nejspis z nejakeho
textoveho
> > souboru)
> > > >
> > > > 3) mate nekdo nejake poznatky, jak nejlepe zaridit zamenu bezici
> > > > aplikace za
> > > > prave stazenou? Ja sem to vymyslel pomoci dalsiho programku,
> > > > polozky RunOnce
> > > > v registru a restartovani widli, ale myslim, ze byto melo jit i
> > > > jednoduseji.
> > > >
> > > > Diky vsem za radu.
> > > > Hurricane
> >
> >
>rozdil CD Win2k Prof. a Upgrade
[*] Hurricane <hurricane(zv)quick(tec)cz> - 17.12.2000 23:25:57
Zdravim
No, nejspis to na tom CD bude napsane, nebo ne? :-)
Co se tyce velikosti I386. Ty instalacky (Prof. a Upgrade) jsou identicke az
na dve malickosti. Jedna je v cene a druhe v kontrole existence starsi
verze. To ze jsou ty adresare stejne je logicke. I kdyz provadis upgrade,
vse se kopiruje znovu. Z puvodniho OS tam nic nezbyde, mozna tak nastaveni
UI. Taky bych rekl, ze to bude v licencni smlouve, ktera na to mCD taky
nekde je.
Hurricane
----- Original Message -----
ahoj,
potreboval bych zjistit, jak se od sebe daji rozpoznat CD: MS Windows2000
Prof. a MS Windows2000 Prof. UPGRADE.
U upgradoveho CD je zapotrebi pri instalaci vlozit NT3.51,4.0,Win95 nebo
Win98. Adresare CD\I386 ale vykazuji uplne stejnou velikost, a soubory
vypadaji na venek take uplne shodne.
Jak bezpecne zjistim, o jake ze jde CD???Ako pracuje funkcia "random()" ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 17.12.2000 23:57:19
From: "x5delphi" <x5delphi(zv)yahoo.com>
> Zaujimalo by ma, ako vlastne funguje tato funkcia.
> Nemyslim, ako sa pouziva. ;-)
> Hladal som ju aj v src, ale nenasiol som nic.
Ahoj,
tato funkce patri mezi tzv. 'compiler magic'. Podivej se do System.pas na:
procedure _RandInt;
procedure _RandExt;
Petr Vones, amatersky programator
Carovy kod x Delphi5
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 18.12.2000 00:05:23
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Citacku ciaroveho kodu nemusis vobec osetrovat.
Ono sa to napoji na klavesnicu a funguje to akoby si natukal cisla z
klavesnice
to je vsetko... Sam som sa divil, ake je to jednoduche.
P.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Mirek
Sent: Sunday, December 17, 2000 9:31 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Carovy kod x Delphi5
Ahoj, mam prosbu. Delam aplikaci, kde bych potreboval vyuzit ctecku
caroveho kodu, ale absolutne nevim jak to SW osetrit.
Pomuze mi nekdo???
Predem diky
Mirek Drancak
ExtractIconEx
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.12.2000 00:50:47
From: "Hurricane" <hurricane(zv)quick(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
> Mate nekdo funkcni priklad na fci ExtractIconEx? Nejak se mi nedari to
> rozchodit.
Ahoj,
http://www.delphi(tec)cz/soubor.asp?rok=1999&mesic=dec&den=02&soubor=dlfaaach.htm
Petr Vones, amatersky programator
Predavani parametru do UDF v IB6
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 18.12.2000 01:28:45
From: "Pavol Stolc" <pstolc(zv)sc.sknet.sk>
> function UDF_POKUS(S1,S2:integer):PChar; cdecl; export;
^^^^^^
Ahoj,
Jen poznamka, v 32bit Delphi nema direktiva export zadny vyznam a tudiz ji
neni treba pouzivat.
Petr Vones, amatersky programator
Znovu preskoky a hledani v binarnim souboru
[*] Tom� Kru��k \(el. adresa\) <t.kruzik(zv)msp.mesit(tec)cz> - 18.12.2000 06:24:10
Ahoj vsem,
jelikoz zatim nikdo nereagoval na muj prvni dotaz zkousim to opet. Chtel
jsem timto pozadat o pomoc s takovymto problemem:
Mam binarni soubor v kterem se nachazi nekoli urcitych priznaku (rekneme
PRIZNAK='LPM052'). Ja bych potreboval prohledat tento soubor a zjistit
pozici priznaku v tomto souboru, pricemz nechci prochazet soubor bajt po
bajtu a zjistovat jestli nacteny bajt neobsahuje priznak.
Bodlo by me nejake vyhledavani jako napriklad SEEK, ale ten prechazi pouze
na urcitou zadanou pozici v souboru nebo se mylim?
Soubor muze mit od 4MB do 16MB tudiz by byl problem nacist jej cely do
pameti (na mene vykonnych PC by uz nepracoval v RealTime).
Jinak mam D5 Ent. a W98.
S pozdravem / Best regards
Tom� Kru��k
t.kruzik(zv)msp.mesit(tec)cz
tel.:0632-522632
mobil: 0603-947060
ICQ: 99789730
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.219 / Virov� b�ze: 103 - datum vyd�n�: 5.12.2000
richedit z RX
[*] Uniplet T�eb�� - elektronika - 18.12.2000 07:22:04
Caute
chci se zeptat jestli z vas nekdo nevi o nejake komponente pro psani textu, ktera by soucasne umoznovala vkladani
obrazku ale i nastaveni okraju, zatim se mi totiz podarilo sehnat akorat komponenty, ktere umi vzdy jenom jednu vec.
DIK QR a tisk
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 18.12.2000 07:56:48
Ahoj
Mam sestavu vytvorenou v QR a vychazi presne na stranku A4.
Kdyz ji tisknu na Laserovce ci inkoustovce neni problem.
Ale pokud ji tisknu na jehlickove, tak mi ji u konce kousek nevytiskne.
Vysledek je ruzny pokud na stejnou tiskarnu pouziju jiny ovladac.
Muzete mi prosim poradit, jak to vyresit...
Predem dekuji
(velice nalehave)
Znovu preskoky a hledani v binarnim souboru
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 18.12.2000 08:14:07
>Mam binarni soubor v kterem se nachazi nekoli urcitych priznaku (rekneme
>PRIZNAK='LPM052'). Ja bych potreboval prohledat tento soubor a zjistit
>pozici priznaku v tomto souboru, pricemz nechci prochazet soubor bajt po
>bajtu a zjistovat jestli nacteny bajt neobsahuje priznak.
>Bodlo by me nejake vyhledavani jako napriklad SEEK, ale ten prechazi pouze
>na urcitou zadanou pozici v souboru nebo se mylim?
nic jineho nez cteni souboru bajt po bajtu Ti nepomuze. Zadne funkce
systemu, ktera to udela za Tebe neexistuje (a pokud by existovala stejne by
cetla soubor bajt po bajtu)
D. Toman
USB na LPT
[*] Michal K�s <kus(zv)tangosw(tec)cz> - 18.12.2000 08:20:12
Ahoj,
nema nekdo tuseni, jak ve Win ME pripojit USB tiskarnu tak,
aby byla dostupna jako LPTx. Bez toho na ni DOS nic nevytiskne.
Diky
Michal Kus
Carovy kod x Delphi5
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 18.12.2000 08:25:50
...ovsem jen pokud mas ctecku delanou na napojeni na klavesnici..
Existuji i ctecky, ktere se pripojuji na seriovy port. Tem doporucuji
se vyhnout.
> > Citacku ciaroveho kodu nemusis vobec osetrovat. Ono sa to napoji
> > na klavesnicu a funguje to akoby si natukal cisla z klavesnice to
> > je vsetko... Sam som sa divil, ake je to jednoduche.
> Ahoj, mam prosbu. Delam aplikaci, kde bych potreboval vyuzit ctecku
> caroveho kodu, ale absolutne nevim jak to SW osetrit.
> Pomuze mi nekdo???
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
Tiskove fronty
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 18.12.2000 09:04:51
Ahoj vsichni
Mam nasledujici problem. Mam program, ktery automaticky tiskne (bez zasahu
uzivatele) nove doklady na tiskarnu. Vse by melo fungovat tak, ze nekde
vznikne doklad, zaradi se do databaze.
Program pro tisk sedi na jinem pocitaci s Windows NT, kontroluje nove
doklady a tiskne je na sitovou tiskarnu. Vytisknute doklady oznaci. Program
je v D5 ent sp1, vyuziva QuickReport standard. Problem je, ze se nekdy
dokument nevytiskne. Ale v databazi se oznaci jako vytisteny. To, zda byl
vytisten zjistujeme tak, ze nastavime priznak vytisteni pri tisku posledniho
labelu na sestave.
Nevite nekdo co s tim? Da se nejak spolehlive zjistit, ze byl doklad zarazen
do fronty? Vim, ze tiskarna je Laserova od HP. Neco podobneho jsem,
pozoroval u jehlickove Epson FX 1170. Kdyz jsem ji vypnul a poslal na ni
tisk z Outlooku, tisk probehl, uloha se zaradila do fronty a zase zmizela,
ale nic se nevytisklo.
Dala by se veta ozna�it a� v okam�iku za�azeni do fronty? Nebo dalo by se
zjistit, jestli se doklad urcite vytiskl? Jaromir Cermak Tvorba componenty
[*] �ejka Pavel <cejka(zv)proteco(tec)cz> - 18.12.2000 09:19:21
Ahoj,
vytvoril jsem si vlastni komponentu, ktera ma jednu z polozek seznam TList recordu
TItem = record
Number : integer;
Text : string;
end;
Potredoval bych poradit jak muzu toto polozku zpistupnit jako property, aby sel seznam tvorit z objekt inspektoru.
W95, D3
Diky Pavel
Cteni *.dfm souboru z jineho programu
[*] �ejka Pavel <cejka(zv)proteco(tec)cz> - 18.12.2000 09:24:10
Ahoj,
muzete mi nekdo poradit, jak nacist formular z *.dfm souboru z meho programu, tak jak to dela delphi pri otevreni projektu. ( Chtel bych si sestavit grafickou podobu formulare v delphi a potom spustit svuj program a ze souboru *.dfm ji nacist ).
W95, D3
Dik Pavel
USB na LPT
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.12.2000 09:26:03
18.12.2000 Michal K�s :
> Ahoj,
> nema nekdo tuseni, jak ve Win ME pripojit USB tiskarnu tak,
> aby byla dostupna jako LPTx. Bez toho na ni DOS nic nevytiskne.
> Diky
> Michal Kus
Zkus zachytit zasuvku pro tisk
Dalsi moznost (v podstate to same) je prikaz Net Use LPT1:
\\Pocitac\Tiskarna
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
OT: Synapse TCP/IP library LIST
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 18.12.2000 09:41:08
Dovolte maly off-topic:
Vsechny priznivce me TCP/IP knihovny Synapse zvu do nove
konference venovane prave nejen Synapsi, ale i 'mezinarodnim'
diskuzim ohledne programovani v TCP/IP. :-)
Vice na strankach Synapse (viz podpis...)
Dekuji vsem ostatnim za nezabiti.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
OT: Re: Dynamicke pridelovanie IP
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 18.12.2000 09:42:26
Jednou uz to tu nekdo psal, a jestli si to dobre pamatuju, slo o to, ze
si mas nastavit nejdriv v Siti pouzivani DHCPcka, exportovat urcitou
cast registru, kde je to ulozeny, pak nastavit pevnou IP, zase
exportovat do jinyho fajlu a pred startem woken volit, ze kteryho fajlu
se to zase zpatky importne do registru. Jenom nevim, jak to naimportovat
jeste pred tim startem a po startu woken uz je asi pozde... jedine dalsi
restart. Ale treba navaze (a pomuze) nekdo jinej. A nebo zkus prohledat
konfu...
Pavol Stolc wrote:
>
> Ahoj,
>
> mam otazku z oblasti konfiguracie IP.
>
> S notebookom sa pripajam do mnohych roznych sieti ktore vo vacsine podporuju
> DHCP, na rozdiel od mojej domacej peer-to-peer siete. Notebook s W2000 ma
> nastavenie ziskat IP adresu z DHCP servera. Domace PC s W98 ma IP adresu
> nastavenu pevne na 192.168.0.1. Potreboval by som aby W2000 po pripojeni do
> domacej siete, ked zisti ze nenajde server DHCP, si nastavil mnou definovanu
> adresu, trebars 192.168.0.2. V sucastnosti sa nastavi nejaka adresa triedy
> B? s maskou 255.255.0.0. Da sa toto nejako zmenit? Mozem definovat IP adresu
> ktora sa ma pridelit v pripade ak sa nenajde DHCP server? (W2000)
>
> Dik za pomoc, Pavol Stolc
> pstolc(zv)sc.sknet.sk
--
Martin Pe�ava
/--------------------------------------------------------------\
| E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
| WebMaster of |
|http://miss.jimx.net - Neofici�ln� str�nka MISS �R a CyberMiss|
\--------------------------------------------------------------/OT: Re: Carovy kod x Delphi5
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 18.12.2000 09:44:40
... a muzu vedet, jak se pozna, jestli ty cisla sou ze ctecky nebo z
klavesnice???
>Citacku ciaroveho kodu nemusis vobec osetrovat.
>Ono sa to napoji na klavesnicu a funguje to akoby si natukal cisla z
>klavesnice to je vsetko... Sam som sa divil, ake je to jednoduche.
--
Martin Pe�ava
/--------------------------------------------------------------\
| E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
| WebMaster of |
|http://miss.jimx.net - Neofici�ln� str�nka MISS �R a CyberMiss|
\--------------------------------------------------------------/OT: Dynamicke pridelovanie IP
[*] Milan ��ek <Cizek.Milan(zv)seznam(tec)cz> - 18.12.2000 09:48:18
A nebylo by jednodussi si vytvorit 2 HW profily (s DHCP, s pevnou IP) a pri startu OS si pak jeden z nich vybrat?
S pozdravem Milan Cizek, amatersky programator
> Ahoj,
>
> mam otazku z oblasti konfiguracie IP.
>
> S notebookom sa pripajam do mnohych roznych sieti ktore vo vacsine podporuju
> DHCP, na rozdiel od mojej domacej peer-to-peer siete. Notebook s W2000 ma
> nastavenie ziskat IP adresu z DHCP servera. Domace PC s W98 ma IP adresu
> nastavenu pevne na 192.168.0.1. Potreboval by som aby W2000 po pripojeni do
> domacej siete, ked zisti ze nenajde server DHCP, si nastavil mnou definovanu
> adresu, trebars 192.168.0.2. V sucastnosti sa nastavi nejaka adresa triedy
> B? s maskou 255.255.0.0. Da sa toto nejako zmenit? Mozem definovat IP adresu
> ktora sa ma pridelit v pripade ak sa nenajde DHCP server? (W2000)
>
> Dik za pomoc, Pavol Stolc
> pstolc(zv)sc.sknet.sk
>
> Posilani emailu
[*] Kralik Michal <xkrali07(zv)stud.fee.vutbr(tec)cz> - 18.12.2000 09:55:17
Zdravim,
nemohl byste me nekdo doporucit nejakou spolehlivou komponentu na posilani
emailu?
Pozadavky:
- musi fungovat vsude
- jednoduchost
- uzivatel zada pouze userID popr. heslo
- demo vyhodou :-)
Zkousel jsem ruzny SMTP, demo od Borlandu (Fastnet), ale vetsinou to selze
na chybe 'Could not connect', i kdyz smtp server i userid zadano spravne.
(zkouseno na siti ve skole).
Nemuze to byt zpusobeno proxy serverem?
Doma mi to na dialupu posle email akorat z
smtpserveru smtp.volny(tec)cz na adresy x(zv)volny(tec)cz, jinak to pise 'bad
recipients' nebo neco takovyho.
Dekuji za kazdou radu.
Michal
Ako pracuje funkcia "random()" ?
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 18.12.2000 09:56:07
Ahoj
Vice obecnych informaci o generovani nahodnych cisel a generatorech pro
ruzna statisticka rozdeleni najdes na adrese http://www.fi.muni(tec)cz/zkusto/ v
casti venovane simulacim. Je to shrnuti prislusne prednasky ze Simulaci na
Masarykove univerzite. Vetsina dokumentu na teto strance je v Postscriptu
nebo DVI formatu (vystup z LATEXU) a zazipovana programem GZip. Jinak velmi
dobry zdroj informaci, pro ty kdo si chteji osvezit znalosti ze skoly nebo
se dozvedet neco z latky studia Informatiky. Zvlaste doporucuji Umelou
inteligenci, Grafiku (algoritmy kresleni 2D a 3D objektu, viditelnost,
stinovani), prekladace, ... Jaromir Cermak
-----Original Message-----
From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
Sent: Sunday, December 17, 2000 11:57 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Ako pracuje funkcia "random()" ?
From: "x5delphi" <x5delphi(zv)yahoo.com>
> Zaujimalo by ma, ako vlastne funguje tato funkcia.
> Nemyslim, ako sa pouziva. ;-)
> Hladal som ju aj v src, ale nenasiol som nic.
Ahoj,
tato funkce patri mezi tzv. 'compiler magic'. Podivej se do System.pas na:
procedure _RandInt;
procedure _RandExt;
Petr Vones, amatersky programator
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.215 / Virov� b�ze: 101 - datum vyd�n�: 16.11.2000
OT: Ako pracuje funkcia "random()" ?
[*] azeleny(zv)csas(tec)cz - 18.12.2000 09:57:39
DDV,
na SUNech to bylo tak, ze /dev/random (doufam se tak to zarizeni jemnovalo)
byl zdrojem nahodnych hodnot tranzistor s bazi v "luftu". Vzhledem k
rozlicnemu elmag. vlneni uvnitr PC to slouzilo jako velmi dobry generator
nahodnych hodnot. Na PC je to tusim zcela SW vec, ale v CHIPu asi pred 2
lety vysla serie clanku o generatorech nahodnych hodnot, vcetne dobreho
popisu "matematiky", ktera to realizuje. Zkus se podivat na web do archivu
CHIPu (alespon si myslim, ze to byl CHIP).
a.
P.S.: Pro profesionalni genratory se pouzivaji zarizeni za statisice, kde se
berou tusim sumve proudy kremikoveho (ci jakeho) krystalu.
> Ahojte,
> Zaujimalo by ma, ako vlastne funguje tato funkcia.
> Nemyslim, ako sa pouziva. ;-)
> Hladal som ju aj v src, ale nenasiol som nic.richedit z RX
[*] Kriz Pavel, TDS <tds(zv)volny(tec)cz> - 18.12.2000 10:03:01
Nastaven� okraju mezi cim?
Pavel Kriz
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Uniplet T�eb�� - elektronika
Sent: Monday, December 18, 2000 7:22 AM
To: Delphi konference
Subject: richedit z RX
Caute
chci se zeptat jestli z vas nekdo nevi o nejake komponente pro psani
textu, ktera by soucasne umoznovala vkladani
obrazku ale i nastaveni okraju, zatim se mi totiz podarilo sehnat akorat
komponenty, ktere umi vzdy jenom jednu vec.
DIK
Data CD & Audio CD
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 18.12.2000 10:08:21
Ahoj,
Audio CD ma SN 8 znaku, datove vic.
Ales
> -----Original Message-----
> From: Pavel Malinsk� [mailto:spiderland(zv)iol(tec)cz]
> Subject: Data CD & Audio CD
>
> nevite nekdo jak rozlisit %subj% ?Posilani emailu
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 18.12.2000 10:16:15
Zdravim.
Co ja takmuzu rict jineho nez: "zkusil jsi moji Synapsi?" :-)
> Zdravim,
> nemohl byste me nekdo doporucit nejakou spolehlivou komponentu na
> posilani emailu? Pozadavky: - musi fungovat vsude - jednoduchost -
> uzivatel zada pouze userID popr. heslo - demo vyhodou :-)
Ale nejaky spravce v kazdem pripade musi nekde nejak nastavit
adresu SMTP serveru.
> Zkousel jsem ruzny SMTP, demo od Borlandu (Fastnet), ale vetsinou to
> selze na chybe 'Could not connect', i kdyz smtp server i userid zadano
> spravne. (zkouseno na siti ve skole). Nemuze to byt zpusobeno proxy
> serverem?
Mas overeno, ze v te skolni siti mas pristupny skolni postovni
server pres SMTP protokol? Pokud se snazis napojit na nejaky jiny
SMTP server, je mozne ze to neproleze pres firewall.
> Doma mi to na dialupu posle email akorat z smtpserveru
> smtp.volny(tec)cz na adresy x(zv)volny(tec)cz, jinak to pise 'bad recipients'
> nebo neco takovyho. Dekuji za kazdou radu.
A existuje adresa x(zv)volny(tec)cz??? ta hlaska znamena, ze jsi zadal
spatnou adresu prijemnce...
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
TTable v pameti
[*] Tono Kukura <akukura(zv)microstep-hdo.sk> - 18.12.2000 10:52:03
Ahojte,
viete mi niekto poradit. Potrebujem nacitat par tabuliek do pameti a tam pracovat s nimi. Po ukonceni aplikacie to opat ulozit do *.mdb.
Ide o tom ze potrebujem mat rychlu odozvu na dotazy a praca z diskom mi vadi.
Dik
OT: Re: Carovy kod x Delphi5
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.12.2000 10:54:20
18.12.2000 Martin Pe�ava :
> ... a muzu vedet, jak se pozna, jestli ty cisla sou ze ctecky nebo z
> klavesnice???
>>Citacku ciaroveho kodu nemusis vobec osetrovat.
>>Ono sa to napoji na klavesnicu a funguje to akoby si natukal cisla z
>>klavesnice to je vsetko... Sam som sa divil, ake je to jednoduche.
A k cemu to potrebujes vedet ? Obsluha stoji v policku pro zadani
cisla, tak je prece jedno, jestli to cislo nacte z ctecky nebo jsetli
jej natuka rucne. Vysledek na obrazovce je tentyz. Nebo chces trestat
ty, co nepouzivaji ctecku ?
Ja jsem kdysi mel pripad, ze existovaly vnitrni cisla a carove kody.
Resil tak, ze se vse zadavalo do stejneho 'okenka' a programove jsem
zkontroloval, jestli obsluha zadala interni cislo nebo carovy kod. Pro
obsluhu maximalne jednoduche.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
OT: Re: Dynamicke pridelovanie IP
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 18.12.2000 10:56:20
18.12.2000 Martin Pe�ava :
> Jednou uz to tu nekdo psal, a jestli si to dobre pamatuju, slo o to, ze
> si mas nastavit nejdriv v Siti pouzivani DHCPcka, exportovat urcitou
> cast registru, kde je to ulozeny, pak nastavit pevnou IP, zase
> exportovat do jinyho fajlu a pred startem woken volit, ze kteryho fajlu
> se to zase zpatky importne do registru. Jenom nevim, jak to naimportovat
> jeste pred tim startem a po startu woken uz je asi pozde... jedine dalsi
> restart. Ale treba navaze (a pomuze) nekdo jinej. A nebo zkus prohledat
> konfu...
> Pavol Stolc wrote:
>>
>> Ahoj,
>>
>> mam otazku z oblasti konfiguracie IP.
>>
>> S notebookom sa pripajam do mnohych roznych sieti ktore vo vacsine podporuju
>> DHCP, na rozdiel od mojej domacej peer-to-peer siete. Notebook s W2000 ma
>> nastavenie ziskat IP adresu z DHCP servera. Domace PC s W98 ma IP adresu
>> nastavenu pevne na 192.168.0.1. Potreboval by som aby W2000 po pripojeni do
>> domacej siete, ked zisti ze nenajde server DHCP, si nastavil mnou definovanu
>> adresu, trebars 192.168.0.2. V sucastnosti sa nastavi nejaka adresa triedy
>> B? s maskou 255.255.0.0. Da sa toto nejako zmenit? Mozem definovat IP adresu
>> ktora sa ma pridelit v pripade ak sa nenajde DHCP server? (W2000)
>>
>> Dik za pomoc, Pavol Stolc
>> pstolc(zv)sc.sknet.sk
To snad ne! W2K umi menit IP adresu 'za pochodu', takze neni treba ani
jeden restart a klidne si muzu za behu menit IP adresu podle potreby.
Vytvoreni 2 profilu mi pripada jako lepsi reseni.
------
ing. Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
Carovy kod x Delphi5
[*] azeleny(zv)csas(tec)cz - 18.12.2000 10:58:46
Chtre ctecky umi nadefinovat makro pred nactenim kodu a po nacteni (vhodne
treba pro vypnuti cestiny a opetovne zapnutr).
For veci je v tom, ze se NEPOZNA zda je to z ctecky nebo klavesnice (napr
necitelny kod lze naklepat rucne a z hleiska programu je to transparenti).
a.
> -----Original Message-----
> From: Martin Pe�ava [mailto:jimx(zv)volny(tec)cz]
> Sent: Monday, December 18, 2000 9:45 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: OT: Re: Carovy kod x Delphi5
>
>
> ... a muzu vedet, jak se pozna, jestli ty cisla sou ze ctecky nebo z
> klavesnice???
>
> >Citacku ciaroveho kodu nemusis vobec osetrovat.
> >Ono sa to napoji na klavesnicu a funguje to akoby si natukal cisla z
> >klavesnice to je vsetko... Sam som sa divil, ake je to jednoduche.
>
> --
> Martin Pe�ava
>
> /--------------------------------------------------------------\
> | E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
> | WebMaster of |
> |http://miss.jimx.net - Neofici�ln� str�nka MISS �R a CyberMiss|
> \--------------------------------------------------------------/
> ODBC datasource name
[*] Karel Vlcek <vlcekk(zv)hotmail(tec)com> - 18.12.2000 10:04:34
Ahoj,
nevim jestli je to to prave. Ja to delam pri instalaci definovanim DSN v
registry. Teoreticky by to melo fungovat i za behu programu.
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\"DNS_NAME"]
"Driver"="C:\\Program Files\\Sybase\\Adaptive Server Anywhere
6.0\\win32\\dbodbc6.dll"
"UID"="User name"
"PWD"="Password"
"Description"=""
"DatabaseName"="Jmeno databaze"
"EngineName"="Jmeno serveru"
"AutoStop"="Yes"
"Integrated"="NO"
"CommLinks"="TCPIP{}"
"Start"="C:\\Program Files\\Sybase\\Adaptive Server Anywhere
6.0\\win32\\dbeng6.exe"
Karel
----Original Message Follows----
From: Ji�� Kubelka <Als.FofrsIT(zv)worldonline(tec)cz>
Reply-To: delphi-l(zv)fwd(tec)cz
To: delphi-l(zv)fwd(tec)cz
Subject: ODBC datasource name
Date: Sat, 16 Dec 2000 12:36:34 +0100
Ahoj,
nevite nekdo jak se da programove vytvaret nove ODBC datasource name?
Potreboval bych vytvorit pripojeni na Sybase ASA server pres ODBC
jenze nevim jak udelat nahradu rucniho vytvoreni noveho DSN.
Za pomoc velice dekuji ..
D5 C/S + Sybase SQL Server + W2000
--
S pozdravem
Ji�� Kubelka Als.FofrsIT(zv)worldonline(tec)cz
Tel.: +420 603 521336
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.TTable v pameti
[*] Karel Vlcek <vlcekk(zv)hotmail(tec)com> - 18.12.2000 10:10:21
Ahoj
Napr. v RX je MemTable. Daji se najit i samostatne na DSP.
Karel
----Original Message Follows----
From: "Tono Kukura" <akukura(zv)microstep-hdo.sk>
Reply-To: delphi-l(zv)fwd(tec)cz
To: <delphi-l(zv)fwd(tec)cz>
Subject: TTable v pameti
Date: Mon, 18 Dec 2000 10:52:03 +0100
Ahojte,
viete mi niekto poradit. Potrebujem nacitat par tabuliek do pameti a tam
pracovat s nimi. Po ukonceni aplikacie to opat ulozit do *.mdb.
Ide o tom ze potrebujem mat rychlu odozvu na dotazy a praca z diskom mi
vadi.
Dik
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.Posilani emailu
[*] Kralik Michal <xkrali07(zv)stud.fee.vutbr(tec)cz> - 18.12.2000 11:19:42
On Mon, 18 Dec 2000, Gebauer Lukas wrote:
> Zdravim.
>
> Co ja takmuzu rict jineho nez: "zkusil jsi moji Synapsi?" :-)
Ne, ale vecer ji vyzkousim.
>
> > Zdravim,
> > nemohl byste me nekdo doporucit nejakou spolehlivou komponentu na
> > posilani emailu? Pozadavky: - musi fungovat vsude - jednoduchost -
> > uzivatel zada pouze userID popr. heslo - demo vyhodou :-)
>
> Ale nejaky spravce v kazdem pripade musi nekde nejak nastavit
> adresu SMTP serveru.
Pravda, to jsem zapomel napsat. To si nastavi taky uzivatel.
>
> > Zkousel jsem ruzny SMTP, demo od Borlandu (Fastnet), ale vetsinou to
> > selze na chybe 'Could not connect', i kdyz smtp server i userid zadano
> > spravne. (zkouseno na siti ve skole). Nemuze to byt zpusobeno proxy
> > serverem?
>
> Mas overeno, ze v te skolni siti mas pristupny skolni postovni
> server pres SMTP protokol? Pokud se snazis napojit na nejaky jiny
> SMTP server, je mozne ze to neproleze pres firewall.
Ze skolniho postovniho serveru to funguje, ale smtp.email(tec)cz,
smtp.volny(tec)cz atd. nefunguji. Asi to bude tim firewallem. Da se to nejak
obejit?> > Doma mi to na dialupu posle email akorat z smtpserveru
> > smtp.volny(tec)cz na adresy x(zv)volny(tec)cz, jinak to pise 'bad recipients'
> > nebo neco takovyho. Dekuji za kazdou radu.
>
> A existuje adresa x(zv)volny(tec)cz??? ta hlaska znamena, ze jsi zadal
> spatnou adresu prijemnce...
To byl jen priklad. Ve skutecnosti jsem ze serveru smtp.volny(tec)cz mohl
poslat email jen na svou adresu (zv)volny(tec)cz. Na jinou (napr. (zv)email(tec)cz) to
neslo a psalo to tyhle nesmysly, pritom ta adresa zarucene exituje a je
napsana spravne.
>
>
> Louci se Lukas Gebauer.
>
> E-mail: gebauerl(zv)mlp(tec)cz
> WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
>
Duplicate resources?
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 18.12.2000 11:24:26
No neviem, ja by som zacal od tych suborov About a SAbout. Skus pohladat
vyskyty uses About a SAbout vo vsetkych suboroch ktore v projekte pouzivas.
----- Original Message -----
From: <brant(zv)dcomm(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, December 15, 2000 11:49 AM
Subject: RE: Duplicate resources?
Uz jsem to vyresil, ale stejne nevim, proc to tak je. Pricina je nekde
jinde. Mam unit ITRKernel, ktery obsahuje dulezite funkce pouzivane ve vice
projektech. V jedne procedure jsem potreboval cislo verze. To je jako
konstanta v unitu SITRFunct. Tak mam v ITRKernel napsano:
unit ITRKernel;
interface
uses
Windows, Classes, Forms, Dialogs, DBTables, Controls, DB, Graphics, Math,
SysUtils, SyncObjs, mvremote, inifiles, mv_const, mv_dll, DMMapUnit,
grids,
MessageShowUnit, shlobj, stdctrls;
(deklarace hlavicek funkci)
procedure SetMailInfo(MsgTable:TTable; MailItems: TMailItems;
TargetSubjLbl: TLabel; TargetMemo: TMemo); ----> to je posledni funkce, ve
ktere se pouziva to cislo verze
var G2: TParametry2;
ChybySeznam: TChybySeznam;
f: text;
Prodleva: TEvent;
ShowVelocity:boolean; --------> globalni promenne
implementation
uses ITRKernel2, SITRFunct;<----- tady je to kriticke misto, kde je pridan
unit SITRFunct
procedure SetMailInfo(MsgTable:TTable; MailItems: TMailItems; TargetSubjLbl:
TLabel; TargetMemo: TMemo);
var MText: string;
begin
if MsgTable = nil then
begin
-----> a zde se pouziva promenna CSITRVersion:
TargetSubjLbl.Caption:='Infotracs ' + CSITRVersion + ': ' +
MailItems.MsgKind + ' ' + MailItems.CarSign;
Hlavicka SITRFunct.pas vypada takto:
unit SITRFunct;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ITRKernel, Menus, StdCtrls, ExtCtrls, Math, Db, DBTables,
FileCtrl, ComCtrls, SITRKritChyba, IniFiles, Grids, DBGrids;
const CSITRVersion= '1.6.9'; <--------- to je ta konstanta
CProgramName= 'InfoTracs 95 - SERVER';
type
TSITRFunctForm = class(TForm)
(....)
var SITRFunctForm: TSITRFunctForm;
GParam: TParametry;
implementation
uses SITRMainMenu;
{$R *.DFM}
(...)
Kdyz z toho kritickeho mista v ITRKernel vyhodim SITRFunct, jede vsechno OK,
ovsem nemam k dispozici to cislo verze (to ovsem lze ozelet). Ale stejne by
me zajimalo, jak je to mozne.
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
D&COMM s.r.o
Korunova�n� 6
Praha 7
Problemom moze byt, ze mas v projekte pouzite dve rozne formulare s rovnakym
nazvom. V tvojom pripade zrejme mas v niektorom subore uses SAbout a v inom
(alebo tom istom) uses About a v oboch je formular TAboutBox (podobne pre
TParametryBox). Ak schces skutocne v projekte pouzivat obidva formulare,
musis jeden z nich premenovat.
----- Original Message -----
From: <brant(zv)dcomm(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, December 14, 2000 5:26 PM
Subject: Duplicate resources?
Ahoj,
uz jsem z toho gumovej. Vcera jsem prekladal projekt zcela bez problemu.
Dnes to hlasi tohleto (podotykam, ze jsem vubec nic nemenil):
[Error] WARNING. Duplicate resource(s):
[Error] Type 10 (RCDATA), ID TABOUTBOX:
[Error] File C:\projekty\sitr\SAbout.DFM resource kept; file
C:\projekty\sitr\About.DFM resource discarded.
[Error] Type 10 (RCDATA), ID TPARAMETRYBOX:
[Error] File C:\projekty\sitr\SparamsQTRACS.DFM resource kept; file
C:\projekty\sitr\params.DFM resource discarded.
Posilani emailu
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 18.12.2000 11:38:28
> > Mas overeno, ze v te skolni siti mas pristupny skolni postovni
> > server pres SMTP protokol? Pokud se snazis napojit na nejaky jiny
> > SMTP server, je mozne ze to neproleze pres firewall.
>
> Ze skolniho postovniho serveru to funguje, ale smtp.email(tec)cz,
> smtp.volny(tec)cz atd. nefunguji. Asi to bude tim firewallem. Da se to
> nejak obejit?
Mozna jo, ale to zalezina konfiguraci tho firewallu, tedy zadne
univerzalni reseni neexistuje.. jedine se pobavit se spravcem toho
firewallu. ;-)
> > > Doma mi to na dialupu posle email akorat z smtpserveru
> > > smtp.volny(tec)cz na adresy x(zv)volny(tec)cz, jinak to pise 'bad recipients'
> > > nebo neco takovyho. Dekuji za kazdou radu.
> > A existuje adresa x(zv)volny(tec)cz??? ta hlaska znamena, ze jsi zadal
> > spatnou adresu prijemnce...
>
> To byl jen priklad. Ve skutecnosti jsem ze serveru smtp.volny(tec)cz mohl
> poslat email jen na svou adresu (zv)volny(tec)cz. Na jinou (napr. (zv)email(tec)cz)
> to neslo a psalo to tyhle nesmysly, pritom ta adresa zarucene exituje
> a je napsana spravne.
Problem muze byt v relayingu. Spravne ma byt kazdy postovni
server nastaven tak, ze dovoli poslat postu jen tehdy, je-li adresa
odesilatele NEBO prijemce SKUTECNA mistni adresa na tom
serveru. Nebude problem v tomhle?
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
UTF-8
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 18.12.2000 11:42:42
Ahoj,
nemate nekdo rutinku prevadejici text ve formatu UTF-8 do
normalniho textu (cestiny). Uz jsem jich par zkousel, ale
nejak to neni ono a z RFC k UTF-8 jsem vedle.
Diky moc.
Martin
SQL prvni zaznam
[*] Libor Stujan <listuj(zv)centrum(tec)cz> - 18.12.2000 11:43:19
Prosim o pomoc, potrebuji z tabulky vybrat pouze prvni zaznamy
pro kazdeho klienta a nejak se mi to nedari.
Klient
ID | DatZapisu | Castka | atd.
001 2.1.2000 8000
002 2.1.2000 90000
003 3.1.2000 700
001 4.1.2000 6500
002 5.1.2000 4120
001 10.1.2000 4500
004 15.1.2000 320
A vystup potrebuji takto
001 2.1.2000 8000
002 2.1.2000 90000
003 3.1.2000 700
004 15.1.2000 320
Mockrat dekuji za Vase namety, a nekamenujte me :-)
Hezky den
*****************
Libor Stujan
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
**************
K chatov�n� je tu http://www.XChat(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
USB na LPT
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 18.12.2000 11:50:34
ahoj,
> nema nekdo tuseni, jak ve Win ME pripojit USB tiskarnu tak,
> aby byla dostupna jako LPTx. Bez toho na ni DOS nic nevytiskne.
> Diky Michal Kus
zkus zachytavat port tiskarny, ale ja to zkousel kdysi pod w98
a nejak sem se necapal :(.
se dovim, ze ti dos app chodi pod wME, kamos to musel zahodit (wME)
dekuji PeC(zv)
CU onTheFutureOfMatrix
MatriX.CyberSpace.Cz
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|[smtp:petr.palicka(zv)atlas(tec)cz]|
|[smtp:peca(zv)email(tec)cz] |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~/Znovu preskoky a hledani v binarnim souboru
[*] L. ZITA <konference(zv)sales(tec)cz> - 18.12.2000 11:57:37
----- Original Message -----
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>>
>
> >Mam binarni soubor v kterem se nachazi nekoli urcitych priznaku (rekneme
> >PRIZNAK='LPM052'). Ja bych potreboval prohledat tento soubor a zjistit
> >pozici priznaku v tomto souboru, pricemz nechci prochazet soubor bajt po
> >bajtu a zjistovat jestli nacteny bajt neobsahuje priznak.
> >Bodlo by me nejake vyhledavani jako napriklad SEEK, ale ten prechazi
pouze
> >na urcitou zadanou pozici v souboru nebo se mylim?
>
> nic jineho nez cteni souboru bajt po bajtu Ti nepomuze. Zadne funkce
> systemu, ktera to udela za Tebe neexistuje (a pokud by existovala stejne
by
> cetla soubor bajt po bajtu)
>
Ahoj.
Jestli si ten soubor vytvaris sam, tak si pridej ke kazdemu priznaku jeste
adresu toho dalsiho (nebo distanci), pak nebudes muset prochazet soubor
znak po znaku a budes moci skocit rovnou na dalsi prave pomoci seek.
Ludek
Carovy kod x Delphi5
[*] Mirek Junek <mirek.junek(zv)worldonline(tec)cz> - 18.12.2000 12:11:37
| ...ovsem jen pokud mas ctecku delanou na napojeni na klavesnici..
| Existuji i ctecky, ktere se pripojuji na seriovy port. Tem doporucuji
| se vyhnout.
|
Probuh, proc ?
Zalezi, na co to potrebujes. Na jednoduche aplikace postaci snimace
pripojene ke klavesnici. Pokud potrebujes napr. klimatickou odolnost,
snimace pracujici v IR spektru, pouziti kontrolniho souctu atd.., pak je
daleko sirsi nabidka v oblasti snimacu pripojenych pres seriovou linku.
Komunikace neni problem, vzdy po precteni kodu ho to posle na seriovou
linku, kterou si prectes napr. pomoci AsyncFree komponenty od Petra Vonese.
Pozor - existuji i snimace,ktere v sobe nemaji dekoder caroveho kodu a
davaji v 5V logice pouze signal z optiky snimace. K nim se pak musi pripojit
integrovany dekoder, nebo si to dekodovat SW.
Hodne zdaru, Mirek
| > > Citacku ciaroveho kodu nemusis vobec osetrovat. Ono sa to napoji
| > > na klavesnicu a funguje to akoby si natukal cisla z klavesnice to
| > > je vsetko... Sam som sa divil, ake je to jednoduche.
|
| > Ahoj, mam prosbu. Delam aplikaci, kde bych potreboval vyuzit ctecku
| > caroveho kodu, ale absolutne nevim jak to SW osetrit.
| > Pomuze mi nekdo???
|
| Louci se Lukas Gebauer.
|
| E-mail: gebauerl(zv)mlp(tec)cz
| WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
|Clipboard - AsText a cestina
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 18.12.2000 12:22:41
Win 2K Pro EN + D5 Pro 5
Ahoj lidi,
mam takovy problem - natlacim data do clipboardu pomoci
sLine: string;
Text: TStrings;
begin
Text := TStringList.Create;
// tady neco dela, ...
Clipboard.AsText := Text.Text;
Ale kdyz to nekam vlozim, tak jsou zmrsena ceska pismenka. CIm to je? Je
potreba nejak nastavit kodovou stranku textu v clipboardu ci co???
Tom
________________________________
Tom� Vlad�k
e-mail: tom.vladik(zv)swadvice(tec)cz
ICQ#: 101763081
UTF-8
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 18.12.2000 12:32:42
Presne tohle resi (mimo jine) unita MIMEchar.pas z me Synapse
(viz. podpis).
Je tam funkce na prekodovavani retezce mezi ruznymi znakovymi
sadami a umi jako zdroj ci cil brat nejen UTF-8, ale i UTF-7, UCS-2
a UCS-4. dalsi podporovane znakove sady jsou ISO-8859-x,
CP125x, KOI-8R.
Takze mas-li treba retezec v UTF-8 a chces jej prevest do CP-1250
(ceska kodova stranka ve windows), pouzijes:
result:=decodechar(value,UTF_8,CP1250);
Snadne, ze? :-)
> Ahoj,
>
> nemate nekdo rutinku prevadejici text ve formatu UTF-8 do
> normalniho textu (cestiny). Uz jsem jich par zkousel, ale
> nejak to neni ono a z RFC k UTF-8 jsem vedle.
>
> Diky moc.
>
> Martin
>
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
Hledani a preskoky v binarnim souboru
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 18.12.2000 12:35:45
Mas nekolik moznosti:
1. Cist soubor po blocich pomoci BlockRead do bufferu a pak vyhledavat v
bufferu. To je mnohonasobne rychlejsi nez cist bajt po bajtu. Muzes si
udelat buffer treba 1MB. Us jsem to delal, je to ponekud narocne na
hlavu. Pokud znas alespon priblizne pozici, muzes pomoci Seek preskocit
zacatek souboru a dostat se nekam pred vyhledavany retezec.
2. Pametove mapovane soubory - to by melo byt jeste rychlejsi a
jednodussi, ale nemam to dosud vyzkouseno.
"Tom� Kru��k (el. adresa)" wrote:
>
> Ahoj vsem,
>
> chtel jsem timto pozadat o pomoc s takovymto problemem:
>
> Mam binarni soubor v kterem se nachazi nekoli urcitych priznaku (rekneme
> PRIZNAK='LPM052'). Ja bych potreboval prohledat tento soubor a zjistit
> pozici priznaku v tomto souboru, pricemz nechci prochazet soubor bajt po
> bajtu a zjistovat jestli nacteny bajt neobsahuje priznak.
> Bodlo by me nejake vyhledavani jako napriklad SEEK, ale ten prechazi pouze
> na urcitou zadanou pozici v souboru nebo se mylim?
>
> S pozdravem / Best regards
>
> Tom� Kru��k
> t.kruzik(zv)msp.mesit(tec)cz
> tel.:0632-522632
> mobil: 0603-947060
> ICQ: 99789730
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.219 / Virov� b�ze: 103 - datum vyd�n�: 5.12.2000
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Carovy kod x Delphi5
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 18.12.2000 12:41:13
> | ...ovsem jen pokud mas ctecku delanou na napojeni na klavesnici.. |
> Existuji i ctecky, ktere se pripojuji na seriovy port. Tem doporucuji
> | se vyhnout. |
>
> Probuh, proc ?
>
> Zalezi, na co to potrebujes. Na jednoduche aplikace postaci snimace
> pripojene ke klavesnici. Pokud potrebujes napr. klimatickou odolnost,
> snimace pracujici v IR spektru, pouziti kontrolniho souctu atd.., pak
> je daleko sirsi nabidka v oblasti snimacu pripojenych pres seriovou
> linku.
Stale vice a vice ctecek se delaji v obou varinatach.. jak seriove,
tak i klavesnicove. Posledni modely jsou pak dokonce i obojetne,
tedy ze klavesnicva a seriova varinata se lisi vlate jen jinym
kablikem, ktere si muzes prehazovat jak se ti hodi.
To, co rikas ty platilo tak pred rokem.. dneska se kazda slusnejsi
ctecka da senat i v klavesnicove podobe.
> Komunikace neni problem, vzdy po precteni kodu ho to posle na seriovou
> linku, kterou si prectes napr. pomoci AsyncFree komponenty od Petra
> Vonese.
Uklavesnicovych ctecek nepotrebujes VUBEC NIC! Nemusis u
klavesnicovych ctecek VUBEC upravovat program, natoz abys tam
musel neco doprogramovavat... to je ta vyhoda klavesnicovych
ctecek.
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
Znovu preskoky a hledani v binarnim souboru
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 18.12.2000 13:00:16
"Dalibor Toman" <dtoman(zv)fortech(tec)cz> wrote:
> (a pokud by existovala stejne by
> cetla soubor bajt po bajtu)
daji se s vyhodou pouzit instrukce SCASD popr. SCASW, kdyz se hledaji vice
nez 4 popr. 2 znaky. Kdyz najdes zacatek pomoci SCASx, pouzijes CMPSD popr.
CPMSW popr. CPMSB na porovnani zbytku hledaneho textu.
Bye, pf
USB na LPT
[*] Michal K�s <kus(zv)tangosw(tec)cz> - 18.12.2000 13:07:25
Michal Kus
> > Ahoj,
> > nema nekdo tuseni, jak ve Win ME pripojit USB tiskarnu tak,
> > aby byla dostupna jako LPTx. Bez toho na ni DOS nic nevytiskne.
>
> > Diky
> > Michal Kus
>
>
> Zkus zachytit zasuvku pro tisk
> Dalsi moznost (v podstate to same) je prikaz Net Use LPT1:
> \\Pocitac\Tiskarna
>
> ------
> ing. Jan Fiala
To jsem zkousel, ale nejde to. USB port nejde zachytit jako
LPTx. Ted me napadlo, ze by to mohlo jit pres MODE.
Michal Kus
IP Adresa
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 18.12.2000 13:14:59
Ahoj,
mam IP adresu v ciselnom formate 162.2.22..... a potrebujem zistit jej
textovu prezentaciu. Ako?
Diky!
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
Posilani emailu
[*] Kralik Michal <xkrali07(zv)stud.fee.vutbr(tec)cz> - 18.12.2000 13:31:33
On Mon, 18 Dec 2000, Gebauer Lukas wrote:
> > > Mas overeno, ze v te skolni siti mas pristupny skolni postovni
> > > server pres SMTP protokol? Pokud se snazis napojit na nejaky jiny
> > > SMTP server, je mozne ze to neproleze pres firewall.
> >
> > Ze skolniho postovniho serveru to funguje, ale smtp.email(tec)cz,
> > smtp.volny(tec)cz atd. nefunguji. Asi to bude tim firewallem. Da se to
> > nejak obejit?
>
> Mozna jo, ale to zalezina konfiguraci tho firewallu, tedy zadne
> univerzalni reseni neexistuje.. jedine se pobavit se spravcem toho
> firewallu. ;-)
Jak tedy lze udelat aplikace, kde pujde odesilat email kdykoliv a nebude
to zaviset na nejakym firewallu apod.? Pomohl by misto SMTP jinej
protokol? Pokud ano, tak jakej a kde jsou k tomu komponenty? Nechci
spolehat na to, ze kazdy pouziva Outlook apod.
> > > > Doma mi to na dialupu posle email akorat z smtpserveru
> > > > smtp.volny(tec)cz na adresy x(zv)volny(tec)cz, jinak to pise 'bad recipients'
> > > > nebo neco takovyho. Dekuji za kazdou radu.
> > > A existuje adresa x(zv)volny(tec)cz??? ta hlaska znamena, ze jsi zadal
> > > spatnou adresu prijemnce...
> >
> > To byl jen priklad. Ve skutecnosti jsem ze serveru smtp.volny(tec)cz mohl
> > poslat email jen na svou adresu (zv)volny(tec)cz. Na jinou (napr. (zv)email(tec)cz)
> > to neslo a psalo to tyhle nesmysly, pritom ta adresa zarucene exituje
> > a je napsana spravne.
>
> Problem muze byt v relayingu. Spravne ma byt kazdy postovni
> server nastaven tak, ze dovoli poslat postu jen tehdy, je-li adresa
> odesilatele NEBO prijemce SKUTECNA mistni adresa na tom
> serveru. Nebude problem v tomhle?
O tom jsem neco slysel a snazil jsem se to dodrzet, ale i presto to
nefungovalo.
>
> Louci se Lukas Gebauer.
>
> E-mail: gebauerl(zv)mlp(tec)cz
> WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
>
SQL prvni zaznam
[*] Kralik Michal <xkrali07(zv)stud.fee.vutbr(tec)cz> - 18.12.2000 13:47:48
Zkus SELECT * FROM Klient GROUP BY ID;
Testovano na MySQL, funguje.
Michal
On Mon, 18 Dec 2000, Libor Stujan wrote:
> Prosim o pomoc, potrebuji z tabulky vybrat pouze prvni zaznamy
> pro kazdeho klienta a nejak se mi to nedari.
>
> Klient
> ID | DatZapisu | Castka | atd.
> 001 2.1.2000 8000
> 002 2.1.2000 90000
> 003 3.1.2000 700
> 001 4.1.2000 6500
> 002 5.1.2000 4120
> 001 10.1.2000 4500
> 004 15.1.2000 320
>
> A vystup potrebuji takto
>
> 001 2.1.2000 8000
> 002 2.1.2000 90000
> 003 3.1.2000 700
> 004 15.1.2000 320
>
> Mockrat dekuji za Vase namety, a nekamenujte me :-)
>
> Hezky den
>
> *****************
> Libor Stujan
> listuj(zv)centrum(tec)cz
> ^^^^^^^^^^^^^^^^^
> SW development
> ^^^^^^^^^^^^^^^^^
> **************
>
> K chatov�n� je tu http://www.XChat(tec)cz
> Zalo�te si sv�j mail na http://mail.centrum(tec)cz
>
SQL prvni zaznam
[*] Ren� Otisk - 18.12.2000 13:59:06
na jake databasi jedes?
Sroub
Prosim o pomoc, potrebuji z tabulky vybrat pouze prvni zaznamy
pro kazdeho klienta a nejak se mi to nedari.
Klient
ID | DatZapisu | Castka | atd.
001 2.1.2000 8000
002 2.1.2000 90000
003 3.1.2000 700
001 4.1.2000 6500
002 5.1.2000 4120
001 10.1.2000 4500
004 15.1.2000 320
A vystup potrebuji takto
001 2.1.2000 8000
002 2.1.2000 90000
003 3.1.2000 700
004 15.1.2000 320
Mockrat dekuji za Vase namety, a nekamenujte me :-)
Hezky den
*****************
Libor Stujan
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
**************
K chatov�n� je tu http://www.XChat(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
Clipboard - AsText a cestina
[*] Tomas Vladik <tom.vladik(zv)swadvice(tec)cz> - 18.12.2000 14:02:25
> Text := TStringList.Create;
> // tady neco dela, ...
> Clipboard.AsText := Text.Text;
>
> Ale kdyz to nekam vlozim, tak jsou zmrsena ceska pismenka. CIm to
> je? Je potreba nejak nastavit kodovou stranku textu v clipboardu ci co???
>
SAMOOBSLUHA:
Uz to mam.
Je potreba pomoci Clipboard.SetAsHandle( CF_LOCALE, MyHandle )
nastavit spravne locale.
Ve Win 2K CZ to chodilo bez problemu ...
T.IP Adresa
[*] daniel.hrna(zv)sme(tec)cz - 18.12.2000 14:09:32
ping 162.2.22. ...... vraci to i jmeno pocitace
Dan
-----Original Message-----
From: Pavol Kaka�ka [mailto:paka(zv)aktis(tec)cz]
Sent: Monday, December 18, 2000 1:15 PM
To: Kf Delphi-I Konferencia
Subject: IP Adresa
Ahoj,
mam IP adresu v ciselnom formate 162.2.22..... a potrebujem zistit jej
textovu prezentaciu. Ako?
Diky!
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
OT: Re: Dynamicke pridelovanie IP
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 18.12.2000 14:10:33
----- Original Message -----
From: ing. Jan Fiala <jan.fiala(zv)iol(tec)cz>
To: Martin Pe�ava <delphi-l(zv)fwd(tec)cz>
Sent: Monday, December 18, 2000 10:56 AM
Subject: Re: OT: Re: Dynamicke pridelovanie IP
> To snad ne! W2K umi menit IP adresu 'za pochodu', takze neni treba ani
> jeden restart a klidne si muzu za behu menit IP adresu podle potreby.
> Vytvoreni 2 profilu mi pripada jako lepsi reseni.
Dik za namety. O schpnosti menit IP adresu za pochodu viem, a momentalne je
to jediny sposob ktory pouzivam. Ale ako kazdy priemerne lenivy clovek
hladam sposob ako to urobit a pritom nic nerobit. Ja ten notebook s W2k som
nevypol uz vyse 2 mesiacov, len ho poslem spat a ked sa preberie, pripoji sa
do takej siete, ktoru najde na kabli. Ak nestihnem pripojit sietovy kabel,
alebo nenajde DHCP server, zvoli si adresu sam typu 169.254.0.x s maskou
255.255.0.0. To potom riesim opatovnou rekonfiguraciou prikazom "ipconfig
/renew". Moja otazka znela, ci typ IP adresy, ktoru si system prideli pri
autokonfiguracii je niekde nastavitelny, alebo je to zadratovane do OS. Ak
sa nenajde ine riesenie pouzijem riesenie L.ZITU a nastavim domacu siet na
IP adresy 169.254.0.x. Este raz dakujem.
Pavol Stolc
pstolc(zv)sc.sknet.sk
richedit z RX
[*] Uniplet T�eb�� - elektronika - 18.12.2000 14:17:02
nastaveni okraju odsazeni jako u WORDU,zhora,zleva,zprava a zdola
SQL prvni zaznam
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 18.12.2000 14:19:51
Napada ma nieco take
SELECT Id, DatZapisu, Castka FROM Klient A
WHERE DatZapisu IN(SELECT MIN(DatZapisu) FROM Klient B WHERE B.Id = A.Id)
ale netvrdim ze je to najoptimalnejsie
----- Original Message -----
From: Libor Stujan <listuj(zv)centrum(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, December 18, 2000 11:43 AM
Subject: SQL prvni zaznam
> Prosim o pomoc, potrebuji z tabulky vybrat pouze prvni zaznamy
> pro kazdeho klienta a nejak se mi to nedari.
>
> Klient
> ID | DatZapisu | Castka | atd.
> 001 2.1.2000 8000
> 002 2.1.2000 90000
> 003 3.1.2000 700
> 001 4.1.2000 6500
> 002 5.1.2000 4120
> 001 10.1.2000 4500
> 004 15.1.2000 320
>
> A vystup potrebuji takto
>
> 001 2.1.2000 8000
> 002 2.1.2000 90000
> 003 3.1.2000 700
> 004 15.1.2000 320
>
> Mockrat dekuji za Vase namety, a nekamenujte me :-)
>
> Hezky den
>
> *****************
> Libor Stujan
> listuj(zv)centrum(tec)cz
> ^^^^^^^^^^^^^^^^^
> SW development
> ^^^^^^^^^^^^^^^^^
> **************
>
> K chatov�n� je tu http://www.XChat(tec)cz
> Zalo�te si sv�j mail na http://mail.centrum(tec)cz
Btrieve
[*] Ji�� Pudich - 18.12.2000 14:28:30
Hledam kontakt na nekoho, kdo ma prehled o link z Delphi do tabulek Btrieve, konkretne do tabulek stare DOSovske verze (6.15). Lookup Field s dvema klici ?
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 18.12.2000 14:30:23
Bez akychkolvek problemov (aj ked odkedy som presiel na SQL tak ziadne
taketo "vymozenosti" uz nepouzivam)
----- Original Message -----
From: Vit Tichy <vitek(zv)softok(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, December 15, 2000 11:46 AM
Subject: Lookup Field s dvema klici ?> Nazdar,
>
> Funguje vam nekomu subj. ?
> Mam na mysli, kdyz KeyFields a LookupKeyField neni nez jeden sloupec.
> Podle manualu by melo fungovat i vice sloupcu oddelenych strednikem,
> delphi vsak vezme cely retezec (napr:. 'SLOUPEC1;SLOUPEC2') a tvrdi,
> ze tento field nezna ?
>
> --
> Best regards,
> vt
>
>
Hledani a preskoky v binarnim souboru
[*] Kralik Michal <xkrali07(zv)stud.fee.vutbr(tec)cz> - 18.12.2000 14:32:47
Kdysi jsem delal programek na vyhledavani podretezce v retezci pomoci
Boyer-Moorova algoritmu. Je to rychly, pouziva to heuristiku a neni to
tezky implementovat. Prikladam priklad, jak ten algoritmu funguje. Pokud
bys mel zajem, muzu poslat kompletni popis a (i jinych algoritmu na
vyhledavani podretezcu v retezci).
V tvem pripade vsak asi bude hodne zalezet na tom, jak je ten hledany
vzorek dlouhy a jestli to stoji za to delat.
Michal
Pr�klad:
must
must |
must | |
must | | |
| | | |
if you wish to understand others you must
Kdy� shled�me, �e t<>y, mu�eme tak� konstatovat, �e vzorek neobsahuje
��dn� y, a proto mu�eme posunout zac�tek vzorku o 4 m�sta d�le. Podobne je
tomu u dvou dal��ch porovn�v�n�. Pri dal��m porovn�n� doch�z� na konci
opet k nerovnosti, ale retezec na testovan�m m�ste obsahoval 'u', co� je
znak vzorku. Proto se posune vzorek tak, aby souhlasila poloha znaku u.
D�le bude porovn�v�n� pokracovat takto:
must
must |
must | |
must | | |
must || | | |
must | || | | |
must ||| | || | | |
| ||| | || | | |
if you wish to understand others you must
(jak je u BMA obvykl�, vzorek se zac�n� porovn�vat ZPRAVA). Po ne�spechu
porovn�n� pri 'u' (must) a 'r' (understand) se posune vzorek tak, aby
pr�ve minul 'r'. Podobne tomu bude s 's' (must) a 'o' (others). Posledn�
uk�zan� porovn�n� je ne�spe�n�, ale znak 'u' je souc�st� vzorku.
N�sleduj�c� porovn�n� bude �spe�n� a v�sledkem je nalezen� zadan�ho
vzorku.
V tomto pr�kladu se provede pouze 18 porovn�n� znaku. Proto�e k
nalezen� vzorku dojde a� na 38 pozici, provedou ostatn� algoritmy nejm�ne
41 porovn�n�.
On Mon, 18 Dec 2000, Karel Kral wrote:
> Mas nekolik moznosti:
> 1. Cist soubor po blocich pomoci BlockRead do bufferu a pak vyhledavat v
> bufferu. To je mnohonasobne rychlejsi nez cist bajt po bajtu. Muzes si
> udelat buffer treba 1MB. Us jsem to delal, je to ponekud narocne na
> hlavu. Pokud znas alespon priblizne pozici, muzes pomoci Seek preskocit
> zacatek souboru a dostat se nekam pred vyhledavany retezec.
> 2. Pametove mapovane soubory - to by melo byt jeste rychlejsi a
> jednodussi, ale nemam to dosud vyzkouseno.
>
> "Tom� Kru��k (el. adresa)" wrote:
> >
> > Ahoj vsem,
> >
> > chtel jsem timto pozadat o pomoc s takovymto problemem:
> >
> > Mam binarni soubor v kterem se nachazi nekoli urcitych priznaku (rekneme
> > PRIZNAK='LPM052'). Ja bych potreboval prohledat tento soubor a zjistit
> > pozici priznaku v tomto souboru, pricemz nechci prochazet soubor bajt po
> > bajtu a zjistovat jestli nacteny bajt neobsahuje priznak.
> > Bodlo by me nejake vyhledavani jako napriklad SEEK, ale ten prechazi pouze
> > na urcitou zadanou pozici v souboru nebo se mylim?
> >
> > S pozdravem / Best regards
> >
> > Tom� Kru��k
> > t.kruzik(zv)msp.mesit(tec)cz
> > tel.:0632-522632
> > mobil: 0603-947060
> > ICQ: 99789730
> >
> > ---
> > Odchoz� zpr�va neobsahuje viry.
> > Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> > Verze: 6.0.219 / Virov� b�ze: 103 - datum vyd�n�: 5.12.2000
>
> --
> ______________________________________________________
> Karel Kral, informatik
> Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
> Tel: 05/47235000, 0602/552432, Fax: 05/47231203
> E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
> ______________________________________________________
>
Hledani a preskoky v binarnim souboru
[*] Josef Koke� <kokes(zv)fsid.cvut(tec)cz> - 18.12.2000 14:35:56
Primarne se musis zamyslet nad strukturou ukladanych dat. To, o cem zatim
mluvis, je linearni prohledavani souboru. Ale v principu neni treba soubor
prohledavat linearne; to zalezi na charakteru dat, ktera tam mas (a ktera
samozrejme neznam). Kdyz mas N dat, tak linearni pristup v prumeru vyzaduje
radove N/2 cteni. Dovedu si ale predstavit, ze ta data mouhou byt usporadana
podle nejakeho klice (treba to tvoje LPM052), pak bych na to sel metodou
puleni (radove Log2(N) cteni, tedy o DOST rychlejsi). Nebo to lze usporadat
do binarniho stromu, nebo do heapu nebo do B-stromu, nebo....se na to
vykaslat a pouzit nejaky hotovy databazovy system!
J. Kokes
----- Original Message -----
From: Karel Kral <kralkonf(zv)purus(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, December 18, 2000 12:35 PM
Subject: Re: Hledani a preskoky v binarnim souboru
> Mas nekolik moznosti:
> 1. Cist soubor po blocich pomoci BlockRead do bufferu a pak vyhledavat v
> bufferu. To je mnohonasobne rychlejsi nez cist bajt po bajtu. Muzes si
> udelat buffer treba 1MB. Us jsem to delal, je to ponekud narocne na
> hlavu. Pokud znas alespon priblizne pozici, muzes pomoci Seek preskocit
> zacatek souboru a dostat se nekam pred vyhledavany retezec.
> 2. Pametove mapovane soubory - to by melo byt jeste rychlejsi a
> jednodussi, ale nemam to dosud vyzkouseno.
>
> "Tom� Kru��k (el. adresa)" wrote:
> >
> > Ahoj vsem,
> >
> > chtel jsem timto pozadat o pomoc s takovymto problemem:
> >
> > Mam binarni soubor v kterem se nachazi nekoli urcitych priznaku (rekneme
> > PRIZNAK='LPM052'). Ja bych potreboval prohledat tento soubor a zjistit
> > pozici priznaku v tomto souboru, pricemz nechci prochazet soubor bajt po
> > bajtu a zjistovat jestli nacteny bajt neobsahuje priznak.
> > Bodlo by me nejake vyhledavani jako napriklad SEEK, ale ten prechazi
pouze
> > na urcitou zadanou pozici v souboru nebo se mylim?
> >
> > S pozdravem / Best regards
> >
> > Tom� Kru��k
> > t.kruzik(zv)msp.mesit(tec)cz
> > tel.:0632-522632
> > mobil: 0603-947060
> > ICQ: 99789730
> >
> > ---
> > Odchoz� zpr�va neobsahuje viry.
> > Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> > Verze: 6.0.219 / Virov� b�ze: 103 - datum vyd�n�: 5.12.2000
>
> --
> ______________________________________________________
> Karel Kral, informatik
> Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
> Tel: 05/47235000, 0602/552432, Fax: 05/47231203
> E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
> ______________________________________________________
>
Posilani emailu
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 18.12.2000 14:37:03
> > Mas overeno, ze v te skolni siti mas pristupny skolni postovni
> > server pres SMTP protokol? Pokud se snazis napojit na nejaky jiny
> > SMTP server, je mozne ze to neproleze pres firewall.
>
> Ze skolniho postovniho serveru to funguje, ale smtp.email(tec)cz,
> smtp.volny(tec)cz atd. nefunguji. Asi to bude tim firewallem. Da
> se to nejak
> obejit?
tieto free mail servre zvyknu mat nastavenu identifikaciu uzivatela aj
pri posielani. Moze to byt tym.
/LH SQL prvni zaznam
[*] Karel Vlcek <vlcekk(zv)hotmail(tec)com> - 18.12.2000 13:45:32
Ahoj,
Ja myslim, spis takhle
SELECT ID, min(DatZapisu)
FROM Klient
GROUP BY ID
HAVING min(DatZapisu)>Nejaka hodnota pripadne (is not null)
;
Pokud potrebujes jeste dalsi sloupce tak to pouzit jako vnitrni dotaz a pak
navazat pres ID, DatZapisu.
Jak jsem videl tak nekdo navrhoval variantu s pouzitim IN select minimalni
Datum - to muze byt vhodne pouze pokud jsi si JISTY, ze se nebude
kontrolovat mnoho zaznamu, ale urcite to nedopotucuji.
Tuto konstrukci mam overenu ma Sybase, Oracle, DB2. Tedy i MSSQL by to mohl
umet.
Karel
----Original Message Follows----
From: Kralik Michal <xkrali07(zv)stud.fee.vutbr(tec)cz>
Reply-To: delphi-l(zv)fwd(tec)cz
To: delphi-l(zv)fwd(tec)cz
Subject: Re: SQL prvni zaznam
Date: Mon, 18 Dec 2000 13:47:48 +0100 (CET)
Zkus SELECT * FROM Klient GROUP BY ID;
Testovano na MySQL, funguje.
Michal
On Mon, 18 Dec 2000, Libor Stujan wrote:
> Prosim o pomoc, potrebuji z tabulky vybrat pouze prvni zaznamy
> pro kazdeho klienta a nejak se mi to nedari.
>
> Klient
> ID | DatZapisu | Castka | atd.
> 001 2.1.2000 8000
> 002 2.1.2000 90000
> 003 3.1.2000 700
> 001 4.1.2000 6500
> 002 5.1.2000 4120
> 001 10.1.2000 4500
> 004 15.1.2000 320
>
> A vystup potrebuji takto
>
> 001 2.1.2000 8000
> 002 2.1.2000 90000
> 003 3.1.2000 700
> 004 15.1.2000 320
>
> Mockrat dekuji za Vase namety, a nekamenujte me :-)
>
> Hezky den
>
> *****************
> Libor Stujan
> listuj(zv)centrum(tec)cz
> ^^^^^^^^^^^^^^^^^
> SW development
> ^^^^^^^^^^^^^^^^^
> **************
>
> K chatov�n� je tu http://www.XChat(tec)cz
> Zalo�te si sv�j mail na http://mail.centrum(tec)cz
>
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.Znovu preskoky a hledani v binarnim souboru
[*] Marek ��ek - 18.12.2000 14:47:17
Ahoj,
ja bych si asi vytvoril pomocny soubor indexu
se strukturou |offset v souboru|priznak|
nebo jestli maji priznaky ruznou delku
|offset|delka priznaku|priznak|
indexy pak muzes mit v pameti
a hledat v nem napr funkci pos
Marek
----- Original Message -----
From: "Tom� Kru��k (el. adresa)" <t.kruzik(zv)msp.mesit(tec)cz>> Ahoj vsem,
>
> jelikoz zatim nikdo nereagoval na muj prvni dotaz zkousim to opet. Chtel
> jsem timto pozadat o pomoc s takovymto problemem:
>
> Mam binarni soubor v kterem se nachazi nekoli urcitych priznaku (rekneme
> PRIZNAK='LPM052'). Ja bych potreboval prohledat tento soubor a zjistit
> pozici priznaku v tomto souboru, pricemz nechci prochazet soubor bajt po
> bajtu a zjistovat jestli nacteny bajt neobsahuje priznak.
> Bodlo by me nejake vyhledavani jako napriklad SEEK, ale ten prechazi pouze
> na urcitou zadanou pozici v souboru nebo se mylim?
>
> Soubor muze mit od 4MB do 16MB tudiz by byl problem nacist jej cely do
> pameti (na mene vykonnych PC by uz nepracoval v RealTime).
Cteni *.dfm souboru z jineho programu
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 18.12.2000 14:48:23
Pozri si metodu TStream.ReadComponent. Niekedy davno som s tym nieco robil
ale uz si to presne nepamatam a nechce sa mi to hladat.
----- Original Message -----
From: �ejka Pavel <cejka(zv)proteco(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, December 18, 2000 9:24 AM
Subject: Cteni *.dfm souboru z jineho programu
> Ahoj,
> muzete mi nekdo poradit, jak nacist formular z *.dfm souboru z meho
programu, tak jak to dela delphi pri otevreni projektu. ( Chtel bych si
sestavit grafickou podobu formulare v delphi a potom spustit svuj program a
ze souboru *.dfm ji nacist ).
>
> W95, D3
> Dik Pavel
OT: Re: Carovy kod x Delphi5
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 18.12.2000 15:02:13
No to se samozrejme nepozna. To je prave nevyhoda ctecek pres klavesnici
- jednoduche pouziti, ale programatorsky je to neosetritelne. Proto jsem
taky zvolil ctecku pres seriovy port. (Ale bohuzel ti s Delphi
neporadim, je to delane v Dosu).
Martin Pe�ava wrote:
>
> ... a muzu vedet, jak se pozna, jestli ty cisla sou ze ctecky nebo z
> klavesnice???
>
> >Citacku ciaroveho kodu nemusis vobec osetrovat.
> >Ono sa to napoji na klavesnicu a funguje to akoby si natukal cisla z
> >klavesnice to je vsetko... Sam som sa divil, ake je to jednoduche.
>
> --
> Martin Pe�ava
>
> /--------------------------------------------------------------\
> | E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
> | WebMaster of |
> |http://miss.jimx.net - Neofici�ln� str�nka MISS �R a CyberMiss|
> \--------------------------------------------------------------/
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Uvolnovani objektu z TObjectList
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 18.12.2000 15:07:40
Destruktor se _vzdy_ vola pri uvolneni objektu.
Libor Stujan wrote:
>
> Jo tak to je presne ono, tak jeste priradit nil k te polozce. OK.
>
> To, ze TObjectList ma Create(OwnerObjects) jsem vedel, ale radeji
> jsem si to chtel uvolnit sam, preci jen dalsi objekt, ktery jsem
> uvolnoval, ma v destruktoru dalsi kod a nebyl jsem si 100%-ne
> jisty zda se provede i "implicitne".
>
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
SQL prvni zaznam
[*] Libor Stujan <listuj(zv)centrum(tec)cz> - 18.12.2000 15:08:16
Je to na Oracle
Ale mozna uz jsem na to prisel, teda mozna mi to vyvratite. Kdyz
zadam Select min(DatZapisu), ID, Castka from Klient tak mi to
vybere jenom prvni zaznamy. Ale co kdyz budu chtit zobrazit
nasledujici? Myslel jsem si, ze by to melo jit spis do podminky
vyberu a tam si to urcit neco jako
"where datzapisu = min(datzapisu)" nebo ad.2 "where datzapisu >
min(datzapisu)"
Dekuji
> Prosim o pomoc, potrebuji z tabulky vybrat pouze prvni zaznamy
> pro kazdeho klienta a nejak se mi to nedari.
>
> Klient
> ID | DatZapisu | Castka | atd.
> 001 2.1.2000 8000
> 002 2.1.2000 90000
> 003 3.1.2000 700
> 001 4.1.2000 6500
> 002 5.1.2000 4120
> 001 10.1.2000 4500
> 004 15.1.2000 320
>
> A vystup potrebuji takto
>
> 001 2.1.2000 8000
> 002 2.1.2000 90000
> 003 3.1.2000 700
> 004 15.1.2000 320
>
> Mockrat dekuji za Vase namety, a nekamenujte me :-)
>
> Hezky den
>
*****************
Libor Stujan
listuj(zv)centrum(tec)cz
^^^^^^^^^^^^^^^^^
SW development
^^^^^^^^^^^^^^^^^
**************
K chatov�n� je tu http://www.XChat(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
OT: Re: Carovy kod x Delphi5
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 18.12.2000 15:09:02
Poznat se to da... kdyz si vysledujes s jakou rychlosti jsou sypany
ony znaky, tak zjistis, ze ze ctecky se sypou ty znaky tak rychle,
ze by je tak rychle realne nikdo nedokazal naklapat... ale zase se
nesypou tak rychle, jak se vysypou, kdyz tam neco zkopirujes z
clipboardu. ;-)
> No to se samozrejme nepozna. To je prave nevyhoda ctecek pres
> klavesnici - jednoduche pouziti, ale programatorsky je to
> neosetritelne. Proto jsem taky zvolil ctecku pres seriovy port. (Ale
> bohuzel ti s Delphi neporadim, je to delane v Dosu).
>
> Martin Pe�ava wrote:
> >
> > ... a muzu vedet, jak se pozna, jestli ty cisla sou ze ctecky nebo z
> > klavesnice???
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
SQL prvni zaznam
[*] Petr Reichl <p.reichl(zv)gmc(tec)net> - 18.12.2000 15:19:52
SELECT TOP 1 * FROM G_UI_Translation
| Prosim o pomoc, potrebuji z tabulky vybrat pouze prvni zaznamy
| pro kazdeho klienta a nejak se mi to nedari.
|
| Klient
| ID | DatZapisu | Castka | atd.
| 001 2.1.2000 8000
| 002 2.1.2000 90000
| 003 3.1.2000 700
| 001 4.1.2000 6500
| 002 5.1.2000 4120
| 001 10.1.2000 4500
| 004 15.1.2000 320
|
| A vystup potrebuji takto
|
| 001 2.1.2000 8000
| 002 2.1.2000 90000
| 003 3.1.2000 700
| 004 15.1.2000 320
|
| Mockrat dekuji za Vase namety, a nekamenujte me :-)
|
| Hezky den
|
| *****************
| Libor Stujan
| listuj(zv)centrum(tec)cz
| ^^^^^^^^^^^^^^^^^
| SW development
| ^^^^^^^^^^^^^^^^^
| **************
|
| K chatov�n� je tu http://www.XChat(tec)cz
| Zalo�te si sv�j mail na http://mail.centrum(tec)cz
| Jak na GIF ?
[*] Raul Endymion <raul.endymion(zv)mail.infima(tec)cz> - 18.12.2000 15:40:23
Dobr� den,
Potrebuji ve sve desktop aplikaci zobrazovat gif (idealne i flash,
ale staci gif), jak na to ? Komponenta nebo knihovna jako u jpegu
neni ?
--
S pozdravem,
Raul
raul.endymion(zv)bsdi.infima(tec)cz
Posilani emailu
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 18.12.2000 15:52:00
> Jak tedy lze udelat aplikace, kde pujde odesilat email
> kdykoliv a nebude
> to zaviset na nejakym firewallu apod.? Pomohl by misto SMTP jinej
> protokol? Pokud ano, tak jakej a kde jsou k tomu komponenty? Nechci
> spolehat na to, ze kazdy pouziva Outlook apod.
>
Jediny protokol pre posielanie mailov je SMTP.
Akurat ze MS Exchange server ma INY SMTP protokol.
S outlookom to nema nic spolocne.
S pozdravom.
/LH
---------------------------------------------------------------
Ing. Lubos Hubka
SW Developer mailto:L.HUBKA(zv)trenkwalder.com
Trenkwalder Engineering, s.r.o. Tel. : +421 7 5810 1140
Mlynsk� nivy 56 Fax : +421 7 5810 1133
821 05 Bratislava, Slovakia
www.trenkwalder.com
---------------------------------------------------------------
IP Adresa
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 18.12.2000 16:02:45
pres winsock API
gethostbyaddr()
-----Original Message-----
From: daniel.hrna(zv)sme(tec)cz [mailto:daniel.hrna(zv)sme(tec)cz]
Sent: Monday, December 18, 2000 2:10 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: IP Adresa
ping 162.2.22. ...... vraci to i jmeno pocitace
Dan
-----Original Message-----
From: Pavol Kaka�ka [mailto:paka(zv)aktis(tec)cz]
Sent: Monday, December 18, 2000 1:15 PM
To: Kf Delphi-I Konferencia
Subject: IP Adresa
Ahoj,
mam IP adresu v ciselnom formate 162.2.22..... a potrebujem zistit jej
textovu prezentaciu. Ako?
Diky!
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
SQL prvni zaznam
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 18.12.2000 16:04:19
Tohle by m�lo fungovat v�ude:
SELECT a.* FROM Klient AS a WHERE datum = ( SELECT MAX( datum) FROM klient
AS b WHERE a.id = b.id)
podm�nkou je, �e pro ID + datum je jedine�n� (jinak je nutno vn�j�� dotaz
doplnit GROUP BY ID, Datum).
Pavel Lstiburek
-----P�vodn� zpr�va-----
Od: Kralik Michal [mailto:xkrali07(zv)stud.fee.vutbr(tec)cz]
Odesl�no: 18. prosince 2000 13:48
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: SQL prvni zaznam
Zkus SELECT * FROM Klient GROUP BY ID;
Testovano na MySQL, funguje.
Michal
On Mon, 18 Dec 2000, Libor Stujan wrote:
> Prosim o pomoc, potrebuji z tabulky vybrat pouze prvni zaznamy
> pro kazdeho klienta a nejak se mi to nedari.
>
> Klient
> ID | DatZapisu | Castka | atd.
> 001 2.1.2000 8000
> 002 2.1.2000 90000
> 003 3.1.2000 700
> 001 4.1.2000 6500
> 002 5.1.2000 4120
> 001 10.1.2000 4500
> 004 15.1.2000 320
>
> A vystup potrebuji takto
>
> 001 2.1.2000 8000
> 002 2.1.2000 90000
> 003 3.1.2000 700
> 004 15.1.2000 320
>
> Mockrat dekuji za Vase namety, a nekamenujte me :-)
>
> Hezky den
>
> *****************
> Libor Stujan
> listuj(zv)centrum(tec)cz
> ^^^^^^^^^^^^^^^^^
> SW development
> ^^^^^^^^^^^^^^^^^
> **************
>
> K chatov�n� je tu http://www.XChat(tec)cz
> Zalo�te si sv�j mail na http://mail.centrum(tec)cz
> Kopie v QuickReportu
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 18.12.2000 16:06:06
----- Original Message -----
From: Radek KALA <Kala(zv)atlas(tec)cz>
Sent: Friday, December 15, 2000 2:03 PM
Subject: Kopie v QuickReportu
> Mam problem, mam report v QR a chci tisknout t�i kopie, zkousim
Ahoj,
a si si isty, ze tvoja tlaciaren podporuje tuto vlastnost? pozri funkciu
DeviceCapabilities(PrinterName, nil, DC_COPIES, nil, nil)
Pavol Stolc
pstolc(zv)sc.sknet.sk
OT: Re: Carovy kod x Delphi5
[*] Jaroslav Nadhera <nadhera(zv)csh(tec)cz> - 18.12.2000 16:11:24
> A k cemu to potrebujes vedet ? Obsluha stoji v policku pro zadani
> cisla, tak je prece jedno, jestli to cislo nacte z ctecky nebo jsetli
> jej natuka rucne. Vysledek na obrazovce je tentyz. Nebo chces trestat
> ty, co nepouzivaji ctecku ?
>
Nojo jenze ja nechci byt v policku, kam se ma napsat carovy kod! Ja chci byt
kdekoliv. Obsluha otevre okno (nebo treba ani neotevre), lizen si carovy
kod, program vi, ze to bylo z ctecky, okno si pripadne otevre, udela
prislusne akce. Obsluha se nemusi starat, aby byla prave v poli pro carovy
kod. A pak je vyhodnejsi pouzit seriovou ctecku (nebo aspon poznavat, ze jde
o carovy kod, z klavesnicove ctecky podle specialniho pocatecniho znaku,
ktery jde u mnoha ctecek naprogramovat). My pouzivame seriove ctecky jiz
nekolik let uspesne. pro komunikaci jsme na internetu nasli kdysi a kdesi
nejako komponenety, je jich spousta.
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
IP Adresa
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 18.12.2000 16:12:39
Dik, ale potrebujem nieco v Delphi. (D5), ale ani DOS ping to snad nevie???
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
>ping 162.2.22. ...... vraci to i jmeno pocitace
>Dan
----
>>mam IP adresu v ciselnom formate 162.2.22..... a potrebujem zistit jej
>>textovu prezentaciu. Ako?
Jak na GIF ?
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 18.12.2000 16:19:30
Je sucastou RX Library.
----- Original Message -----
From: Raul Endymion <raul.endymion(zv)mail.infima(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, December 18, 2000 3:40 PM
Subject: Jak na GIF ?> Dobr� den,
>
> Potrebuji ve sve desktop aplikaci zobrazovat gif (idealne i flash,
> ale staci gif), jak na to ? Komponenta nebo knihovna jako u jpegu
> neni ?
>
> --
> S pozdravem,
> Raul
> raul.endymion(zv)bsdi.infima(tec)cz
>