Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Skryti Apl pri startu
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 20.10.2000 08:10:09
Nestacilo by dat do WindowState hlavniho formulare wsMinimized?
Otazka je, co je mysleno skrytim aplikace. Toto funguje zrejmym
zpusobem - aplikace je spustena jako minimalizovana.
On 19 Oct 2000, at 15:05, Lumir Karas wrote:
Ahoj delfini,
potrebuju poradit jak mam skryt mou apl. pri jejim spusteni. Zkousel jsem to pres OnActivate, OnCreate, OnShow s prikazy
Visible=False;
ShowWindow(Application->Handle, SW_HIDE);
ale stale nic. Dela to vyjimky nebo to nefunguje. Poradte nekdo, prosim.
Predem dekuji, Lomikar.
Z.Kalhous
New BDE 5.11 Merge Module provides support for MSI
[*] Slavek Rydval <rk(zv)atrey.karlin.mff.cuni(tec)cz> - 20.10.2000 08:25:59
Preji vsem pekneho dne,
pokud jeste pouzivate BDE, pak vas to bude zajimat...
Slavek
------- Forwarded Message Follows -------
Date sent: Thu, 19 Oct 2000 16:35:14 -0700
From: Delphi News <delphi-news(zv)INPRISE.COM>
Subject: New BDE 5.11 Merge Module provides support for MSI
To: DELPHI_OCT2000(zv)INPRISE.COM
Dear C++ and Delphi(TM) Developer,
Simplify database deployment with the New Borland(R) Database
Engine (BDE) 5.11. Now, in one easy step, you will deploy the BDE
with the Microsoft Windows Installer (MSI). The new BDE 5.11 Merge
Module for MSI can be used with any Windows Installer-based
development tool, such as InstallShield(R) for Windows or Wise for
Windows Installer. All the files and logic needed to deploy BDE
5.11 are included in the merge module. Just include the merge
module in your install project and use the Merge Module Wizard to
configure the settings that you wish to deploy.
The BDE 5.11 Merge Module is now available for download from our
ftp site at:
ftp://ftp.borland.com/pub/bde/devsupport/updates/
There are two files available for both C++Builder(TM) and
Delphi(TM):
bdemm5ent.exe (for those with the Enterprise or Client/Server
version)*
bdemm5pro.exe (for those with the Professional version)
* You must have the Enterprise or Client/Server version of
C++Builder or Delphi.***ABOUT THIS NEWSLETTER***
You have been sent this message because you have subscribed to
the Delphi listserv. This periodic newsletter provides information
about Borland Delphi.
The easiest way to stop receiving this newsletter is by filling
in a form on our Web site, and selecting 'Un-Subscribe' under
'Delphi'. This form is available at:
http://www.borland.com/contact/listserv.html
We hope this newsletter is a valuable tool for getting the most
out of Delphi. We look forward to hearing from you on the
Delphi online newsgroups at:
http://www.borland.com/newsgroups/index.html
We thank you for your continued support for Delphi!
Jak zjistit seriove cislo disku ?
[*] daniel.hrna(zv)sme(tec)cz - 20.10.2000 08:27:15
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.
Nemam udelanou kontrolu instalacniho media, ale HDD kam to instaluji. Mas
instalacn� disk a instalujes, mas vlastne funkcni demo verzi do te doby nez
ziskas "kod", a ten ti poslu na zaklade zaslani souboru, ktery nejakym
zpusobem nese informace o tobe jako uzivateli a potom o SN tvojeho HDD.
Zaslu ti cislo a ty to zprovoznis vsechno.
Pokud toto nekdo nakopiruje jinam na PC i treba s tou registracni kartou je
v haji.
Cau. Dan
-----Original Message-----
From: Peter Luk�cs [mailto:batex(zv)astrafren(tec)cz]
Sent: Thursday, October 12, 2000 4:55 PM
To: Delphi konference
Subject: Jak zjistit seriove cislo disku ?
Zdravim delphini. Nevite nekdo, jak zjistit seriove cislo disku? Konkretne
se mi jedna o s.c. diskety.Chci jej precist pri instalaci, abych zabranil
kopirovani orog. disket. Kdyz to bude fungovat i pro CD, nebudu se zlobit.
Jestli nekdo mate dalsi zajimave napady, jak zabranit "nelegalnimu sireni
vlastniho software", tak je s radosti uvitam. (Kolega zacina programovat a
zacina jako kazdy mladoch s hesly a kody a tak pod... :-))
Diky z apomoc...
Peta
Ako vytvorit object
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 20.10.2000 08:50:12
Ahoj
Tak uz som odpovedal sam (ako to zvycajen byva ;-))) )
Keby to niekoho zaujimalo tak dost blizko toho bol aj Tomas.
Ja doplnim, ze v Classes je v odstavci { Class registration routines } Zopar
funkcii, ktore toto dopomahaju.
napr. RegisterClass a GetClass. A do suboru budem veseslo ukladat ClassName
ako string. :-)
Bay, bay a diky Tomas.
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
> Mno :))) zas tak trivialne to asi nebude :)))
> Vie niekto (pochybujem ;-) ) vytvorit objekt nejakej classy pricom poznam
> meno tej classy ALE mam ho v Stringu?
>
> Respektive.
> Potrebuje aby som dokazal ulozit objekt do streamu pricom nechcem pouzit
> predka TPersistent!!!
>
Asi moc ne. Samozrejme by stacilo nejak ziskat odpovidajici tridu ve forme
TClass a pomoci ni uz delat instance.
Vysel bych ze zdrojaku funkce GetClass z unity Classes (D5). Jak je z ni
patrne, i Delphi pro dohledani odpovidajici tridy vychazi z nejakeho
ClassListu, ktery se vytvari pri registraci trid. Takze pokud se tvoje
objekty nikde neregistruji (v nejakem tvem class listu), tak myslim, ze je
bude tezke dohledat.
Vidim tri zakladni varianty reseni:
1. Vytvoreni vlastniho ClassListu vsech moznych pouzitych typu s hledanim v
cyklu nebo
opakovana sekvence prikazu pro vsechny tve tridy
if Trida1Str = 'neco' then X := TTrida1.Create.
2. vytvareni vsech tvych trid jako potomky TPersistent (s tim, ze je treba
doresit registraci vsech tvych typu)
3. Pouzit interni funkci definovanou v Classes:
function GetFieldClassTable(AClass: TClass): PFieldClassTable; assembler;
asm
MOV EAX,[EAX].vmtFieldTable
OR EAX,EAX
JE (zv)(zv)1
MOV EAX,[EAX+2].Integer
(zv)(zv)1:
end;
a pak
ClassTable := GetFieldClassTable(ClassType);
if ClassTable <> nil then
for I := 0 to ClassTable^.Count - 1 do
begin
Trida := ClassTable^.Classes[I]^;
if SameText(Trida.ClassName, MyClassName) then YouAreWinner;
end;
To jsem sice netestoval, ale zda se ze by to mohlo vest k cili... :-)
Tomas
> mam toto:
> ...
> TMyObjectClass = class of TObject;
> ...
>
> potomocou TMyObjectClass vytvorim objekt classy aku chcem
>
> procedure WriteClass(AClass: TMyObjectClass)
> begin
> Stream.WriteBuffer(AClass, SizeOf(AClass));
> end;
>
> ---
>
> A neskor to chcem zo suboru (streamu) nacitat, classu a podla nej vytvorit
> objekt.
>
> Nacitanie prebehne v pohode, ale iba ak je projket (s balickami)
> zkompilovany RAZ. JEDNOU!
> Pretoze ak sa zkompiluje (Build) znovu tak sa identifikatory class zmania.
A
> som v haji.
> Ono to v podsate funguje hmmm, ale ked chcem urobit dalsiu verziu projektu
> tak.....
>
> Pavol Kaka�ka
> kasix(zv)atlas(tec)cz
>
Kontrola duplicit v ListBoxu
[*] Milan Dvo��k <Dvorak.Ucitel.GYMNAZIUM(zv)gymzn(tec)cz> - 20.10.2000 07:51:34
> Zdravim.
> Prosim o radu s nasledujicim problemem. Mam dva ListBoxy, kde z prvn�ho
> kopiruji do druheho vybrane polozky. Potreboval bych ale, aby v tom druhem
> ListBoxu nemohla byt nektera polozka vicekrat, pokud by uzivatel dal
> vybranou polozku vicekrat vybral. Potrebuji tedy provest nejakou funkci,
> kterou bych tyto duplicity v druhem ListBoxu odstranil. Dalo by se to resit
> tak ze bych z prvniho ListBoxu polozku presunul do druheho a tim zabranil
> opakovanemu vyberu ale to nemuz upouzit, protoze se prvni ListBox prubezne
> aktualizuje. Pokud nekdo vite o jednoduchem reseni, nebo jine komponente,
> ktera by tohle zvladala automaticky, budu moc rad za zverejneni.
> Vypis kodu potesi.
>
> Dik Zaplik
> zaplik(zv)volny(tec)cz
>
>
>
podivej se na indexof do helpu.
Milan Dvo��k
dvorak(zv)gymzn(tec)cz
Kontrola duplicit v ListBoxu
[*] garalda <garalda(zv)mail(tec)cz> - 20.10.2000 08:52:45
Chmm, mozna nerozumim otazce, ale nemuzete ten druhy listbox dat sorted a
vlastnost duplicate na dupIgnore?> Zdravim.
> Prosim o radu s nasledujicim problemem. Mam dva ListBoxy, kde z prvn�ho
> kopiruji do druheho vybrane polozky. Potreboval bych ale, aby v tom druhem
> ListBoxu nemohla byt nektera polozka vicekrat, pokud by uzivatel dal
> vybranou polozku vicekrat vybral. Potrebuji tedy provest nejakou funkci,
> kterou bych tyto duplicity v druhem ListBoxu odstranil. Dalo by se to
resit
> tak ze bych z prvniho ListBoxu polozku presunul do druheho a tim zabranil
> opakovanemu vyberu ale to nemuz upouzit, protoze se prvni ListBox prubezne
> aktualizuje. Pokud nekdo vite o jednoduchem reseni, nebo jine komponente,
> ktera by tohle zvladala automaticky, budu moc rad za zverejneni.
> Vypis kodu potesi.
>
Kontrola duplicit v ListBoxu
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 20.10.2000 09:01:50
Ahoj,
Chmm, property Duplicates je u TStringListu, ne u TStrings...
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> garalda
> Odesl�no: 20. ��jna 2000 08:53
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Kontrola duplicit v ListBoxu
>
>
> Chmm, mozna nerozumim otazce, ale nemuzete ten druhy listbox
> dat sorted a
> vlastnost duplicate na dupIgnore?
>
> > Zdravim.
> > Prosim o radu s nasledujicim problemem. Mam dva ListBoxy,
> kde z prvn�ho
> > kopiruji do druheho vybrane polozky. Potreboval bych ale,
> aby v tom druhem
> > ListBoxu nemohla byt nektera polozka vicekrat, pokud by uzivatel dal
> > vybranou polozku vicekrat vybral. Potrebuji tedy provest
> nejakou funkci,
> > kterou bych tyto duplicity v druhem ListBoxu odstranil.
> Dalo by se to
> resit
> > tak ze bych z prvniho ListBoxu polozku presunul do druheho
> a tim zabranil
> > opakovanemu vyberu ale to nemuz upouzit, protoze se prvni
> ListBox prubezne
> > aktualizuje. Pokud nekdo vite o jednoduchem reseni, nebo
> jine komponente,
> > ktera by tohle zvladala automaticky, budu moc rad za zverejneni.
> > Vypis kodu potesi.
Kontrola duplicit v ListBoxu
[*] garalda <garalda(zv)mail(tec)cz> - 20.10.2000 09:06:31
Safra, zase byly ruce rychlejsi nez hlava. Popisoval jsem Stringlist a dotaz
byl na listbox. Kazdopadne myslim, ze by se to dalo resit tak, ze na zacatku
se vytvori StringList a vsechno se strka z prvniho ComboBoxu do nej a pak
vzdy jen smazat druhy ComboBox a vrazit tam obsah StringListu
>Chmm, mozna nerozumim otazce, ale nemuzete ten druhy listbox dat sorted a
>vlastnost duplicate na dupIgnore?
Ikona k service
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 20.10.2000 09:13:24
> Ahoj all,
>
> narazil jsem na problem. Mam service, a potrebuji, aby k nemu
> svitila ikona v prave casti taskbaru (u hodin). Service se startuje driv
> nez taskbar, kdyz se uzivatel odloguje a znovu priloguje, ikona
> take zmizi. Nevite nekdo, jak odchytit vytvareni taskbaru?
>
>
klicem je :
TaskBarCreatedMessage := RegisterWindowMessage('TaskbarCreated');
blize viz MS Knowledge Base:
http://support.microsoft.com/support/kb/articles/Q244/6/51.ASP
PS: nepracuje uplne na vsech windowsech (je nutna urcita minimalni verze
shellu). Chodi i na Win9x
Zdravi
D. Toman
FindFirst - Incompatible types
[*] Martin Zachar <PACHIMAT(zv)rocketmail(tec)com> - 20.10.2000 00:24:39 -0700 (pdt)
Ahoj,
vo svojej konzolovej aplikacii potrebujem pouzit funkciu
FindFirst.(V cykloch potrebujem sledovat stav adresara).
V helpe sa pise ze po pouziti funkcie je nutne zavolat
funkciu FindClose a uvolnit tak alokovanu pamat.
Tu som zatial problem nemal, ale akonahle pridam do aplikacie
unit WINDOWS (potrebujem koli funkcii sleep), tak zacne compiler
pri funkcii FindClose hlasit chybu:
"Incompatible types:'Cardinal' and "TSearchRec'."
Poradi mi niekto ako pretypovat danu premennu, resp. ako vyriesit tento
problem ?
Priklad 1 - fungujuci :
-----------------------
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var s:TSearchRec;
begin
FindFirst('c:\*.*',faAnyFile,s);
FindClose(s);
end.
*************************
Priklad 2 - nefungujuci :
-------------------------
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils,windows;
var s:TSearchRec;
begin
sleep(1000);
FindFirst('c:\*.*',faAnyFile,s);
FindClose(s); //.................<<--Tu je popisovany problem...
end.
-------------------------
Vopred dakuje zaciatocnik v Delphi,
Martin.
__________________________________________________
Do You Yahoo!?
Yahoo! Messenger - Talk while you surf! It's FREE.
http://im.yahoo.com/TIBDataset a automaticke vyplneni dotazu
[*] Frantisek Sevcik <sevcik(zv)anexis(tec)cz> - 20.10.2000 09:32:50
> jestli jsem to pochopil dobre, tak tuhle vlastnost ma uz sama komponenta
> IBDataSet. Pomoci praveho tlacitka na IBDataSet, EditSQL, popripade
Dataset
> editor. Mluvim o Interbase Express 4.2.
>
> Ale mozna jsem mimo misu..:-)
Ne, jsi uvnitr :-) to je presne ono. Dekuji vsem za odpovedi. (Jak jsem to
mohl prehlidnout ?)
Jinak te moznosti, kterou nabizel Radek Kala bych se presto nezrikal
(obvzlast pokud bych si to mohl pripadne i upravit) a proto si dovoluji
pozadat o zaslani na soukromy mail. (tedy pokud je to mozne.)
Frantisek Sevcik, sevcik(zv)anexis(tec)cz
Interbase - textovy blob v Insertu
[*] Karel B�ich��� - 20.10.2000 09:43:14
Ahoj,
existuje.
Pouzij FreeUDFLib od Grega Daetz. A muzes potom zapsat:
insert into clanky(id,obsah) values (1,F_STRBLOB('Tady je BLObova
polozka'));
Zdravim
Brichna
> Ahoj,
> chci si overit, zda neexistuje nejaka cesta, jak zadat textovy blob
> (SUB_TYPE TEXT) primo z ISQL (ibaccess, wisql,...) do prikazu INSERT.
>
> Proste neco jako:
> insert into clanky(id,obsah) values (1,'Tady je BLObova polozka');
> Interbase napise chybu: CONVERSION ERROR FROM STRING "BLOB".
>
> Z programu pres kurzor to jde, ale z ISQL?
>
> Diky
> Leos
>
>Poslat mail+priloha z programu
[*] Gebauer Lukas <gebylist(zv)mlp(tec)cz> - 20.10.2000 09:47:40
> Takze abych to shrnul:
> - existuji nejake komponenty, ktere umi poslat mail s prilohou?
Ano, treba moje Synapse... (viz. podpis).
poslani mailu a jako priloha jakou soubor pak vypada treba takto:
{you must create object for MIME message}
MIME:=TMIMEMess.Create;
try
{set headers for message}
MIME.header.from:=fromaddress;
MIME.header.Tolist.add(toaddress);
MIME.header.subject:=subject;
{add text part}
MIME.AddPartText(StringListWithText);
{add binary part}
MIME.AddPartBinary(FilenameWithBinary);
{compose message}
MIME.EncodeMessage;
MIME.FinalizeHeaders;
{Mime message done.}
{now we may send it to SMTP server... by SMTPSend unit...}
SendToRaw (fromaddress,toaddress,SMTPHost,MIME.Lines);
{destroy MIME object}
MIME.Free;
end;
> - je slozite si to pripadne napsat sam? Myslim, ze jo. Zvlast pro
> lidi jako ja :-)
Neni to uplne snadne, abys byl korektni, musis myslet na sposty
malickosti, na ktere se vetsinou zapomina.. a tak. navic, proc bys
mel psat neco, co jsem uz davno napsal, ze? ;-)
> - lze to pripadne vyresit tak, ze by se to posilalo pres postovniho
> klienta, ale ne jen pro MS Outlook, ale uplne libovolneho?
> Predopkladam, ze ne.
Teoreticky pres MAPI, ale ne vzdy to zrovna funguje... ;-) prilis
mnoho ruznych MAPI vzajemne nekompatibilnich, prilis mnoho
ruznych implementaci podle ruznych postovnich klientu, ne vsichni
klienti podporuji vubec nejake MAPI, atd...
Louci se Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi TCP/IP Library
CommandTimeout a ADOStoredProc
[*] CERMAK <CERMAK(zv)procom(tec)cz> - 20.10.2000 09:49:27
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj
Zkus pouzit TCommand, resp. TADODataset (podle toho, jestli procedura vraci
kurzor nebo ne) . Nastav si ze prikaz je typu stored procedura a nasdtav
pozadovany timeout. V ADOExpresu mi to funguje bez problemu.
Jaromir Cermak
-----Original Message-----
From: V�clav Nov�k [mailto:milesoft(zv)mi.cesnet(tec)cz]
Sent: Friday, October 20, 2000 7:29 AM
To: DELPHI
Subject: CommandTimeout a ADOStoredProc
Dobry den,
poradte prosim s problemem propojeni pres ADO connection na MSSQL 7.0. Text
Query je dlouhy a potrebuji jej provest
pres StoredProc. Samotne query z teto procedury se provadi 42 sec v
QueryAnalyzeru, takze default hodnota CommandTimeout
pro StoredProc nepostacuje. Snazim se ji menit mnoha zpusoby - nedari se,
vzdy to po 30sec. spadne. Podivne je, ze nize uvedena zmena Timeout se pres
Watches zobrazi jako provedena na ADOStoredProc1.Connection.CommandTimeout,
ale pri stejnem zobrazeni na ADOStoredProc1.CommandTimeout stale zustava 30
sec. Pritom pri napovede na ADOStoredProc1. zadne CommandTimeout neni, je az
na ADOStoredProc1.Connection. Co tedy ovlivni dobu cekani EXE na vysledek
StoredProc ?
Mate s tim nekdo zkusenosti ?
with ADOStoredProc1 do
begin
Active:=false;
ProcedureName:='ExecQuery';
Parameters.AddParameter;
Parameters.Refresh;
Connection.CommandTimeout:=300;
Parameters.ParamByName('(zv)Text').DataType := ftString;
Parameters.ParamByName('(zv)Text').Value:=ADOQuery1.SQL.Text;
ExecProc;
end;
Diky za zachranu.
Vaclav Novak
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.189 / Virov� b�ze: 90 - datum vyd�n�: 1.9.2000
Ikona k service
[*] Milink Otakar <otam(zv)tdat(tec)cz> - 20.10.2000 09:55:16
Ja jsem kdysi videl kod, ktery po startu service
periodicky zkousel tu ikonu vytvorit tak dlouho,
az se to povedlo (kdyz to neslo tak predpokladal,
ze je to kvuli tomu, ze jeste neni spusteny taskbar).
Stejne tak by, myslim, slo odchytit i odhlaseni
uzivatele a zacit znovu periodicky testovat...
No mozna existuje i lepsi reseni (:-)
s pozdravem Otakar Milink
>
> Ahoj all,
>
> narazil jsem na problem. Mam service, a potrebuji, aby k nemu
> svitila ikona v prave casti taskbaru (u hodin). Service se
> startuje driv
> nez taskbar, kdyz se uzivatel odloguje a znovu priloguje, ikona
> take zmizi. Nevite nekdo, jak odchytit vytvareni taskbaru?
>
> OT: Kolik pameti RAM umi obhospodarit WIN 98
[*] Pavel Medek <Pavel.Medek(zv)talema(tec)cz> - 20.10.2000 10:07:31
Vim, ze jeste snad u WIN 95 bylo omezeni 128 MB, t.j. ze i kdyz tam bylo
fyzicky vice
tak se s vykonem pocitace nic nedelo.
Naproti tomu NT, nebo WIN2000 umi snad i radove GB RAM.
Bohuzel nevim jake je situace u WIN 98 (SE), kolik RAM umi obhospodarit
(adresovat)
respektive kolik pameti jeste ovlivni vykon pocitace.
Diky
Pavel
Skryti Apl pri startu
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 20.10.2000 10:10:16
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Kdyz ma byt skryta, tak vlastne vubec nepotrebuje zadny hlavni form. Takze
staci v .dpr smazat vsechno nepotrebne, dopsat kod a slape to. Navic je to
vyrazne mensi nez EXE s pouzitim Forms.
Maly priklad:
program SetFlag;
uses SysUtils;
const DefaultFName= 'MDMFlag.Inf';
var f: text;
s, FName: string;
DelayPause, ErrCode:integer;
begin
if ParamCount>=1 then
FName:= ParamStr(1)
else
FName:=DefaultFName;
(atd. atd.)
end.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunovacn� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: Lumir Karas [mailto:lumir.win(zv)post(tec)cz]
Sent: Friday, October 20, 2000 12:05 AM
To: Konf. Delphi
Subject: Skryti Apl pri startu
Ahoj delfini,
potrebuju poradit jak mam skryt mou apl. pri jejim spusteni. Zkousel jsem
to pres OnActivate, OnCreate, OnShow s prikazy
Visible=False;
ShowWindow(Application->Handle, SW HIDE);
ale stale nic. Dela to vyjimky nebo to nefunguje. Poradte nekdo, prosim.
Predem dekuji, Lomikar.
Poslat mail+priloha z programu
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 20.10.2000 10:13:07
Idealni by bylo, aby sis to posilani udelal sam. Zkus se podivat na Synapsi
a tam je komponenta, ktera toto umi. Je to vcelku rychle a jednoduche.
Milan Tomes
> Ahoj!
>
> Mel bych tady jednu prozatim obecnou otazku:
>
> Chtel bych ve svem projektu posilat urcita data via mail. Dival jsem
> se do archivu, ale tam jsem nasel jen rady, ktere to resi pres
> postovniho klienta (ja to konkretne nasel fungujici pouze pro MS
> Outlook - coz je pouzitelne jen do urcite miry, protoze ne kazdy
> tento program pouziva. Osobne mam nejradeji DOSovsky Pegasus Mail:-).
>
> Naivne se domnivam, ze idealni by bylo to vyresit tak, ze muj projekt
> by prislusne operace vcetne odeslani mailu udelal sam. Podotykam ale,
> ze moje znalosti v tehle oblasti se limitne blizi nule, takze si to
> mozna predstavuju jako Hurvinek valku. :-)
>
> Takze abych to shrnul:
> - existuji nejake komponenty, ktere umi poslat mail s prilohou?
> - je slozite si to pripadne napsat sam? Myslim, ze jo. Zvlast pro
> lidi jako ja :-)
> - lze to pripadne vyresit tak, ze by se to posilalo pres postovniho
> klienta, ale ne jen pro MS Outlook, ale uplne libovolneho?
> Predopkladam, ze ne.
>
> Jirka.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000
OLE
[*] Roman Budinec <roman(zv)ttc-telecom.sk> - 20.10.2000 10:27:06
Nazdar,
potreboval by som radu.
Objekt vytoreny funkciou "CreateOleObject(const ClassName: string):
IDispatch;" sa uvolnuje z pamate automaticky, alebo treba zavolat nejaky
destrukor?
Roman
--
mailto:budinec_roman(zv)ttc-telecom.sk
Poslat mail+priloha z programu
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 20.10.2000 08:33:48 met-1
Ahoj!
Mel bych tady jednu prozatim obecnou otazku:
Chtel bych ve svem projektu posilat urcita data via mail. Dival jsem
se do archivu, ale tam jsem nasel jen rady, ktere to resi pres
postovniho klienta (ja to konkretne nasel fungujici pouze pro MS
Outlook - coz je pouzitelne jen do urcite miry, protoze ne kazdy
tento program pouziva. Osobne mam nejradeji DOSovsky Pegasus Mail:-).
Naivne se domnivam, ze idealni by bylo to vyresit tak, ze muj projekt
by prislusne operace vcetne odeslani mailu udelal sam. Podotykam ale,
ze moje znalosti v tehle oblasti se limitne blizi nule, takze si to
mozna predstavuju jako Hurvinek valku. :-)
Takze abych to shrnul:
- existuji nejake komponenty, ktere umi poslat mail s prilohou?
- je slozite si to pripadne napsat sam? Myslim, ze jo. Zvlast pro
lidi jako ja :-)
- lze to pripadne vyresit tak, ze by se to posilalo pres postovniho
klienta, ale ne jen pro MS Outlook, ale uplne libovolneho?
Predopkladam, ze ne.
Jirka. Email - client
[*] morzol(zv)atlas(tec)cz - 20.10.2000 10:38:51
Jak spustit implicitniho e-mail klienta (napr. Ms Outlook) s nastavenou e-mail adresou ?
D�ky.Poslat mail+priloha z programu
[*] Ji�� Mat�jka <jiri.matejka(zv)stemmark(tec)cz> - 20.10.2000 10:43:08
Myslim, ze to neni nic tezkyho. Da se pouzit napr. komponenta NMSTMP, a do PostMessage.Attachments (typu TStringList) dat nazvy souboru (vcetne cesty) priloh. Do ostatnich properties PostMessage.FromAddres, ToAddres, Body atd. dat zbytek dopisu a odeslat pomoci SendMail. Samozrejme je nutne take nastavit dalsi vlastnosti jako je Host (SMTP server) apod. Ale s tim si patrne snadno poradis dle helpu. Pripadne napis na muj mail. Krome teto komponenty existuji i dalsi (a mozna i lepsi) pro posilani posty i s prilohama.
Jirka Matejka
-----P�vodn� zpr�va-----
Od: Jiri Novotny [SMTP:NOVOTNY(zv)ftknw.upol(tec)cz]
Odesl�no: 20. ��jna 2000 10:34
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Poslat mail+priloha z programu
Ahoj!
Mel bych tady jednu prozatim obecnou otazku:
Chtel bych ve svem projektu posilat urcita data via mail. Dival jsem
se do archivu, ale tam jsem nasel jen rady, ktere to resi pres
postovniho klienta (ja to konkretne nasel fungujici pouze pro MS
Outlook - coz je pouzitelne jen do urcite miry, protoze ne kazdy
tento program pouziva. Osobne mam nejradeji DOSovsky Pegasus Mail:-).
Naivne se domnivam, ze idealni by bylo to vyresit tak, ze muj projekt
by prislusne operace vcetne odeslani mailu udelal sam. Podotykam ale,
ze moje znalosti v tehle oblasti se limitne blizi nule, takze si to
mozna predstavuju jako Hurvinek valku. :-)
Takze abych to shrnul:
- existuji nejake komponenty, ktere umi poslat mail s prilohou?
- je slozite si to pripadne napsat sam? Myslim, ze jo. Zvlast pro
lidi jako ja :-)
- lze to pripadne vyresit tak, ze by se to posilalo pres postovniho
klienta, ale ne jen pro MS Outlook, ale uplne libovolneho?
Predopkladam, ze ne
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
Ma logiku, ze true<false?
[*] Milan ��ek - 20.10.2000 11:00:36
ahoj,
prave jsem narazil na takovyzajmavy detail v RxMemoryData.
Mam nekolik sloupcu typu string a jeden typu Boolean. Do tabulky se nactou
udaje typu: JmenoSouboru/Adresare, velikost,datum... a do Boolean sloupce se
zapise true, pokud se jedna o adresar - v opacnem pripade (jde o soubor)
false. Potrebuju nyni setridit vsechny polozky 'klasickym tridenim' -
nejprve slozky podle abecedy a pak soubory podle abecedy.
SortOnFields('CD;Folder;Name',true,false); // Folder je typu boolean a
urcije, zdali jde o adresar
toto setrizeni vsak setridi i hodnoty ve sloupci Folder podle abecedy, tj.
nejprve false a pak true. To ma za nasledek, ze mam v tabulce nejprve
soubory a pak teprve slozky.
Zatim jsem to vyresil tak, ze jsem to predelal ze sloupce typu Boolean na
String a zapisuju bud A nebo N (true,false). Nebo by stacilo sloupec Folder
prejmenovat na File a jako true oznacovat soubory... taky moznost.
Stejne by mne ale zajimalo, jestli se trizeni sloupcu boolean da nejak
zmenit...
Treba se daji setridit dva string sloupce vzestupne a soucasne boolean
sloupec sestupne???
S pozdravem Milan Cizek, amatersky programator, D5 Ent
Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
Ikona k service
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 20.10.2000 11:10:28
> Ja jsem kdysi videl kod, ktery po startu service
> periodicky zkousel tu ikonu vytvorit tak dlouho,
> az se to povedlo (kdyz to neslo tak predpokladal,
> ze je to kvuli tomu, ze jeste neni spusteny taskbar).> Stejne tak by, myslim, slo odchytit i odhlaseni
> uzivatele a zacit znovu periodicky testovat...
MS tvrdi, ze system generuje zpravu pri prihlaseni / odhlaseni uzivatele
(wm_userchanged) _VSEM_ oknum. ALE nikdy jsem ji nevidel :-(. Pokousel jsem
se o to nekolikrat ale handler zprav nikdy takovou hlasku nedostal. Mozna
musi byt splneny nejake dalsi podminky, ale nenasel jsem zadnou zminku o tom
jake :-(
Mel nekdo vetsi stesti?
>
> No mozna existuje i lepsi reseni (:-)
existuje :-)
D. Toman
Skryti Apl pri startu
[*] Michal Rezek <rezekm(zv)natur.cuni(tec)cz> - 20.10.2000 11:11:44
Vojtek Jiri wrote:
> Nazdar tenhle problem se tu resil jiz nekolikrat a je v to archivu.
> Velice elegantnim resenim je ze do OnCreate hlavnih formulare
> vlozisApplication.ShowMainForm:=False;a hlavne se nemusis starat o
> zadne handle apod. Pokud vsak chces svou aplikaci zaregijako sluzbu je
> to nejak takhle (nejsem si uplne jist spravnosti)
> ShowWindow(handle,SW_HIDE) to tam mas to by melo skovat app z
> taskbarufunction
> RegisterServiceProcess(dwProcessID,dwType:Integer):Integer;stdcall;
> external 'KERNEL32.DLL';
> RegisterServiceProcess(GetCurrentProcessID, 1); a je to jako sluyba
> ciye neni ani v tasklistu
Tohle jsem zkousel taky, funguje to, ale ne pod NT.......ty hlasej chybu
'vstupni bod procedury RegisterServiceprocess nebylo mozno v knihovne
kernel32.dll najit.
Nasel jsem neco v predchozich debatach a je to pry kvuli tomu, ze pod NT
se procedury z dll volaji trosku jinak. Kdybyste nekdo vedel jak,
poradte :-)
M.INIFILE
[*] Ji�� Sobotka <Jiri.Sobotka(zv)upol(tec)cz> - 20.10.2000 11:18:32
Kdyz to tak sleduju, tak bych to s dovolenim malicko upresnil.
I kdyz praci s TIniFile ukoncim tak, ze nevolam UpdateFile, ale pouze Free
(v Delphi 2 ani zadna metoda UpdateFile neni), tak hodnoty, ktery jsem do
toho ini souboru zapsal se samozrejme ulozi, nikam se neztrati.
ALE for je v tom, ze protoze Windows pouzivaji pro pristup k ini souborum
cache, tak se zmena v onom ini souboru nemusi projevit okamzite, klidne
muze trvat i nekolik vterin, nez se Windows rozhodnou, ze data z cache
zapisou na disk.
Bezny pouziti ini souboru je k ukladani nastaveni programu. Takovej ini
soubor je porad v jednom adresari, nikam se nepresouva. K pristupu k nemu
se pouzivaji POUZE API funkce WritePrivateProfileString a dalsi (TIniFile
taky vyuziva prave tehle funkci). Z toho vyplyva, ze o celou praci s ini
souborem se staraji Windows, a tak je ciste jejich vec, jak to delaji.
Dokud tohle plati, vsechno je bez problemu.
Problemy nastanou az v pripade, kdyz uzivatel zacne pristupovat k ini
souboru primo, bez pouziti funkci systemu. Zda se, ze programatori Windows
proste nepocitali s tim, ze by nekdo takovej primej pristup potreboval - a
maji pravdu, pokud se ini soubory pouzivaji tak, jak byly puvodne
zamysleny, tak zadnej primej pristup k nim opravdu potreba neni.
No a v pripade ze se rozhodnu, ze vyuziju ini souboru napriklad k ukladani
dat z moji aplikace a vim, ze k tomu ini souboru budu potrebovat
pristupovat primo (napr. ho ze sveho programu kopirovat), tak o tom proste
dam Woknum vedet, at uz pomoci TIniFile.UpdateFile a nebo primo zavolanim
WritePrivateProfileString s prazdnejma parametrama.
Je to tak proste ... :-)
Sob
TreeView
[*] Roman Budinec <roman(zv)ttc-telecom.sk> - 20.10.2000 11:26:40
Da sa v TTreeView komponente zmenit styl pisma pre jednotlive uzly?
Ak ano, Ako?
Roman
--
mailto:budinec_roman(zv)ttc-telecom.sk
Jak zjistit seriove cislo disku ?
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 20.10.2000 11:26:03
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.
Hm a jak to dopadne, kdyz mu havaruje disk? Nainstaluje to na novy disk
(licenci prece ma) a ejhle, ono to nechodi! Pokud by se jednalo o nejakou
kritickou aplikaci, na ktere napriklad zavisi chod velkeho oddeleni, vznikla
by pikantni situace a kdovi jak by to skoncilo.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: daniel.hrna(zv)sme(tec)cz [mailto:daniel.hrna(zv)sme(tec)cz]
Sent: Friday, October 20, 2000 8:27 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Jak zjistit seriove cislo disku ?
Nemam udelanou kontrolu instalacniho media, ale HDD kam to instaluji. Mas
instalacn� disk a instalujes, mas vlastne funkcni demo verzi do te doby nez
ziskas "kod", a ten ti poslu na zaklade zaslani souboru, ktery nejakym
zpusobem nese informace o tobe jako uzivateli a potom o SN tvojeho HDD.
Zaslu ti cislo a ty to zprovoznis vsechno.
Pokud toto nekdo nakopiruje jinam na PC i treba s tou registracni kartou je
v haji.
Cau. Dan
-----Original Message-----
From: Peter Luk�cs [mailto:batex(zv)astrafren(tec)cz]
Sent: Thursday, October 12, 2000 4:55 PM
To: Delphi konference
Subject: Jak zjistit seriove cislo disku ?
Zdravim delphini. Nevite nekdo, jak zjistit seriove cislo disku? Konkretne
se mi jedna o s.c. diskety.Chci jej precist pri instalaci, abych zabranil
kopirovani orog. disket. Kdyz to bude fungovat i pro CD, nebudu se zlobit.
Jestli nekdo mate dalsi zajimave napady, jak zabranit "nelegalnimu sireni
vlastniho software", tak je s radosti uvitam. (Kolega zacina programovat a
zacina jako kazdy mladoch s hesly a kody a tak pod... :-))
Diky z apomoc...
Peta
Email - client
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 20.10.2000 11:27:50
ShellExecute(... MailTo:adresa(zv)domena(tec)cz...);
Jan Fiala
From: <morzol(zv)atlas(tec)cz>>Jak spustit implicitniho e-mail klienta (napr. Ms Outlook) s nastavenou
e-mail adresou ?
>
>D�ky.
problem s Foxpro tabulkami
[*] Roman Toda <toda(zv)technickenormy(tec)com> - 20.10.2000 11:31:27
Bohuzial nemozem si stale robit jej kopiu, lebo je velmi casto a tabulka je
velka.
Skusil som ODBC. Tam sice tabulku "precitam" (fieldy, strukturu...) ale pri
zobrazeni dat v gride mi hlasi "Number not valid" - a tomu nerozumiem uz
vobec .
RT
> > -----Original Message-----
> > ale je to ziva tabulka na ktorej priebezne ludia pracuju z foxovskej
> > aplikacie a ja z
> > nej musim citat udaje pre tlacove vystupy.
> >
>
> Tak si vytvor pro kazdy vystup "nezivou" kopii potrebneho a to si zmrs
jak
> chces.
> A nebo k tabulce nepristupuj pres DBE, ale pres nejakou Microsofti
> technologii ...
>
> Jednou jsem tahal data z nejake tabulky z VIsualFoxPro5 a ta mela
"zmrsenou"
> definici sloupcu (cast hlavicky byla naplnena nulami) - musel jsem na
> binarni urovni upravit zahlavi DBF souboru, aby to bylo stravitelne pro
BDE
Poslat mail+priloha z programu
[*] volcik(zv)email(tec)cz - 20.10.2000 11:36:07
Zdravim
V Delphi je na to priklad (...\Delphi5\Demos\FastNet\Smtp\smtpdemo.dpr), je
to docela srozumitelne, jenom jednu vec nevim. K cemu se zadava cislo portu
a jak ho zjistim (NMSMTP1.Port := ...) ? Napovite mi nekdo ??? Diky. D.V.
EMAIL.CZ - Va�e po�ta je v�dy s V�mi
http://www.email(tec)cz
problem s Foxpro tabulkami
[*] Roman Toda <toda(zv)technickenormy(tec)com> - 20.10.2000 11:37:09
> Pristup pres ODBC, a to jeste ne ve vsech pripadech, ale mas mnohem vetsi
> sanci nez pres nativni ovladac BDE. Ty bys chtel, aby mel BDE v sobe
> implementovany vsechny funkce FoxPro pripadajici v uvahu ?
Mne samozrejme staci, aby mi to otvorilo ako DBD bez indexov (readonly).
Myslel som, ze by mohlo existovat nieco ako callback v BDE v ktorom by sa
dalo povedat "nevadi, ze nevies pouzit indexy - tabulku otvor!"
RT
FindFirst - Incompatible types
[*] Mgr. Daniel Schmidt <dschmidt(zv)centrum.sk> - 20.10.2000 12:05:39
SysUtils.FindClose(s); //takto by to myslim mohlo ist
Daniel Schmidt
> Priklad 2 - nefungujuci :
> -------------------------
> program Project2;
> {$APPTYPE CONSOLE}
> uses SysUtils,windows;
>
> var s:TSearchRec;
> begin
> sleep(1000);
> FindFirst('c:\*.*',faAnyFile,s);
> FindClose(s); //.................<<--Tu je popisovany problem...
> end.
> -------------------------
FindFirst - Incompatible types
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 20.10.2000 12:12:26
Martin Zachar <PACHIMAT(zv)rocketmail.com> wrote:
> var s:TSearchRec;
> begin
> sleep(1000);
> FindFirst('c:\*.*',faAnyFile,s);
> Sysutils.FindClose(s); file://.................<<--Tu je popisovany
problem...
^^^^^^^^
Tady musis uvest uplne kvalifikovany odkaz na funci
> end.FindFirst - Incompatible types
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 20.10.2000 12:22:37
Bud napis unit Windows pred unit SysUtils a nebo pouzijes lepsi variantu, ze
pouzijes zapis kodu SysUtils.FindClose(SearchRec)
(zaklady jazyka Pascal)
Ales
----- Original Message -----
From: Martin Zachar <PACHIMAT(zv)rocketmail.com>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 20, 2000 9:24 AM
Subject: FindFirst - Incompatible types
> Ahoj,
> vo svojej konzolovej aplikacii potrebujem pouzit funkciu
> FindFirst.(V cykloch potrebujem sledovat stav adresara).
> V helpe sa pise ze po pouziti funkcie je nutne zavolat
> funkciu FindClose a uvolnit tak alokovanu pamat.
> Tu som zatial problem nemal, ale akonahle pridam do aplikacie
> unit WINDOWS (potrebujem koli funkcii sleep), tak zacne compiler
> pri funkcii FindClose hlasit chybu:
> "Incompatible types:'Cardinal' and "TSearchRec'."
>
> Poradi mi niekto ako pretypovat danu premennu, resp. ako vyriesit tento
> problem ?
>
> Priklad 1 - fungujuci :
> -----------------------
> program Project2;
> {$APPTYPE CONSOLE}
> uses SysUtils;
>
> var s:TSearchRec;
> begin
> FindFirst('c:\*.*',faAnyFile,s);
> FindClose(s);
> end.
> *************************
> Priklad 2 - nefungujuci :
> -------------------------
> program Project2;
> {$APPTYPE CONSOLE}
> uses SysUtils,windows;
>
> var s:TSearchRec;
> begin
> sleep(1000);
> FindFirst('c:\*.*',faAnyFile,s);
> FindClose(s); file://.................<<--Tu je popisovany problem...
> end.
> -------------------------
>
> Vopred dakuje zaciatocnik v Delphi,
> Martin.
>
> __________________________________________________
> Do You Yahoo!?
> Yahoo! Messenger - Talk while you surf! It's FREE.
> http://im.yahoo.com/
INIFILE
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 20.10.2000 12:28:33
Milan Tome� <Milan.Tomes(zv)haida(tec)cz> wrote:
> Ale jestli jsem si to dobre prelozil,
> tak se tam rika neco o tom, ze Win95
> si nechava cachovanou verzi WIN.INI
Clovece, mas pravdu, ale to je bug v dokumentaci M$, protoze ty souboru jsou
evidentne cachovane vsechny. Schvalne jsem se dival i do MSDN a i tam je
uplne stejny text jako u WriteProfileString, coz je prave funkce pro
manipulace s WIN.INI souborem.> o jinem souboru(ech) tam neni rec !!!
> A ja nepouzivam WIN.INI !!!
O.K., ten zpozdeny writeback se ti projevi v okamziku, kdy s .INI souborem
zacnes pracovat jako s beznym diskovym souborem viz priklady z jinych mailu,
protoze na urovni API se s nim jako se souborem nepracuje - manipuluje se s
nim jako s jednotlivymi polozkami resp. sekcemi pomoci
Get/WritePrivateProfileString, ktere jsou mapovany do pameti o max.
velikosti 64 kB.
Bye, pf
FindFirst - Incompatible types
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 20.10.2000 12:31:07
> Ahoj,
> vo svojej konzolovej aplikacii potrebujem pouzit funkciu
> FindFirst.(V cykloch potrebujem sledovat stav adresara).
> V helpe sa pise ze po pouziti funkcie je nutne zavolat
> funkciu FindClose a uvolnit tak alokovanu pamat.
> Tu som zatial problem nemal, ale akonahle pridam do aplikacie
> unit WINDOWS (potrebujem koli funkcii sleep), tak zacne compiler
> pri funkcii FindClose hlasit chybu:
> "Incompatible types:'Cardinal' and "TSearchRec'."
>
> Poradi mi niekto ako pretypovat danu premennu, resp. ako vyriesit tento
> problem ?
Zkus 2 moznosti.
1. Nekdy v tomhle pripade pomuze prehodit poradi unit v uses.
2. Napis to primo
SysUtils.FindClose(s);
Radim
>
> Priklad 1 - fungujuci :
> -----------------------
> program Project2;
> {$APPTYPE CONSOLE}
> uses SysUtils;
>
> var s:TSearchRec;
> begin
> FindFirst('c:\*.*',faAnyFile,s);
> FindClose(s);
> end.
> *************************
> Priklad 2 - nefungujuci :
> -------------------------
> program Project2;
> {$APPTYPE CONSOLE}
> uses SysUtils,windows;
>
> var s:TSearchRec;
> begin
> sleep(1000);
> FindFirst('c:\*.*',faAnyFile,s);
> FindClose(s); file://.................<<--Tu je popisovany problem...
> end.
> -------------------------
>
> Vopred dakuje zaciatocnik v Delphi,
> Martin.
>
>
> __________________________________________________
> Do You Yahoo!?
> Yahoo! Messenger - Talk while you surf! It's FREE.
> http://im.yahoo.com/Email - client
[*] Milan Tomes <Milan.Tomes(zv)haida(tec)cz> - 20.10.2000 12:32:58
shellExecute(Application.Handle, PChar('open'),
PChar('mailto:mailova_adresa_kam_chces_neco_odeslat'), nil, nil, SW_SHOW);
Pokud by mu vadilo to PChar('open') tak tam misto toho dej nil
Milan Tomes
> Jak spustit implicitniho e-mail klienta (napr. Ms Outlook) s
> nastavenou e-mail adresou ?
>
> D�ky.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000
FindFirst - Incompatible types
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 20.10.2000 12:35:46
Mel jsem podobny problem, kdyz jsem daval fungujici unit do DLL. Vyresilo se
to tim, ze se misto FindClose musi napsat SysUtils.FindClose.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: Martin Zachar [mailto:PACHIMAT(zv)rocketmail.com]
Sent: Friday, October 20, 2000 9:25 AM
To: delphi-l(zv)fwd(tec)cz
Subject: FindFirst - Incompatible types
Ahoj,
vo svojej konzolovej aplikacii potrebujem pouzit funkciu
FindFirst.(V cykloch potrebujem sledovat stav adresara).
V helpe sa pise ze po pouziti funkcie je nutne zavolat
funkciu FindClose a uvolnit tak alokovanu pamat.
Tu som zatial problem nemal, ale akonahle pridam do aplikacie
unit WINDOWS (potrebujem koli funkcii sleep), tak zacne compiler
pri funkcii FindClose hlasit chybu:
"Incompatible types:'Cardinal' and "TSearchRec'."
Poradi mi niekto ako pretypovat danu premennu, resp. ako vyriesit tento
problem ?
Priklad 1 - fungujuci :
-----------------------
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var s:TSearchRec;
begin
FindFirst('c:\*.*',faAnyFile,s);
FindClose(s);
end.
*************************
Priklad 2 - nefungujuci :
-------------------------
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils,windows;
var s:TSearchRec;
begin
sleep(1000);
FindFirst('c:\*.*',faAnyFile,s);
FindClose(s); //.................<<--Tu je popisovany problem...
end.
-------------------------
Vopred dakuje zaciatocnik v Delphi,
Martin.
__________________________________________________
Do You Yahoo!?
Yahoo! Messenger - Talk while you surf! It's FREE.
http://im.yahoo.com/FindFirst - Incompatible types
[*] Cibulka Karel <kcibulka(zv)seznam(tec)cz> - 20.10.2000 12:36:11
Jednoduche reseni:
misto FindClose psat SysUtils.FindClose nebo zkusti prohodit poradi
importovanych unit (Windows dat pred SysUtils); unita Windows totiz
deklaruje funkci stejneho jmena, ktera prekryje pascalovskou verzi.
K.C.
----- Original Message -----
From: "Martin Zachar" <PACHIMAT(zv)rocketmail.com>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 20, 2000 9:24 AM
Subject: FindFirst - Incompatible types
> Ahoj,
> vo svojej konzolovej aplikacii potrebujem pouzit funkciu
> FindFirst.(V cykloch potrebujem sledovat stav adresara).
> V helpe sa pise ze po pouziti funkcie je nutne zavolat
> funkciu FindClose a uvolnit tak alokovanu pamat.
> Tu som zatial problem nemal, ale akonahle pridam do aplikacie
> unit WINDOWS (potrebujem koli funkcii sleep), tak zacne compiler
> pri funkcii FindClose hlasit chybu:
> "Incompatible types:'Cardinal' and "TSearchRec'."
>
> Poradi mi niekto ako pretypovat danu premennu, resp. ako vyriesit tento
> problem ?
>
> Priklad 1 - fungujuci :
> -----------------------
> program Project2;
> {$APPTYPE CONSOLE}
> uses SysUtils;
>
> var s:TSearchRec;
> begin
> FindFirst('c:\*.*',faAnyFile,s);
> FindClose(s);
> end.
> *************************
> Priklad 2 - nefungujuci :
> -------------------------
> program Project2;
> {$APPTYPE CONSOLE}
> uses SysUtils,windows;
>
> var s:TSearchRec;
> begin
> sleep(1000);
> FindFirst('c:\*.*',faAnyFile,s);
> FindClose(s); //.................<<--Tu je popisovany problem...
> end.
> -------------------------
>
> Vopred dakuje zaciatocnik v Delphi,
> Martin.
>
> __________________________________________________
> Do You Yahoo!?
> Yahoo! Messenger - Talk while you surf! It's FREE.
> http://im.yahoo.com/
>TreeView
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 20.10.2000 12:42:58
| Da sa v TTreeView komponente zmenit styl pisma pre jednotlive uzly?
| Ak ano, Ako?
takto:
procedure TNotesForm.tvTreeCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
with tvTree.Canvas do begin
if not Node.HasChildren then
Font.Color := clBlue;
end; Pavol Kaka�ka
kasix(zv)atlas(tec)cz
Jak zjistit seriove cislo disku ?
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 20.10.2000 12:49:48
Presne tak - ale tusim, ze staci jenom zformatovat disk a uz se zmeni
seriove cislo.
Milan Tomes
Hm a jak to dopadne, kdyz mu havaruje disk? Nainstaluje to na novy disk
(licenci prece ma) a ejhle, ono to nechodi! Pokud by se jednalo o nejakou
kritickou aplikaci, na ktere napriklad zavisi chod velkeho oddeleni, vznikla
by pikantni situace a kdovi jak by to skoncilo.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
Nemam udelanou kontrolu instalacniho media, ale HDD kam to instaluji. Mas
instalacn� disk a instalujes, mas vlastne funkcni demo verzi do te doby nez
ziskas "kod", a ten ti poslu na zaklade zaslani souboru, ktery nejakym
zpusobem nese informace o tobe jako uzivateli a potom o SN tvojeho HDD.
Zaslu ti cislo a ty to zprovoznis vsechno.
Pokud toto nekdo nakopiruje jinam na PC i treba s tou registracni kartou je
v haji.
Cau. Dan
Zdravim delphini. Nevite nekdo, jak zjistit seriove cislo disku? Konkretne
se mi jedna o s.c. diskety.Chci jej precist pri instalaci, abych zabranil
kopirovani orog. disket. Kdyz to bude fungovat i pro CD, nebudu se zlobit.
Jestli nekdo mate dalsi zajimave napady, jak zabranit "nelegalnimu sireni
vlastniho software", tak je s radosti uvitam. (Kolega zacina programovat a
zacina jako kazdy mladoch s hesly a kody a tak pod... :-))
Diky z apomoc...
Peta
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000
Jak zjistit seriove cislo disku ?
[*] Martin Pesava <jimx(zv)volny(tec)cz> - 20.10.2000 12:49:10
Proc ne, ale ma to jednu nevyhodu. Zakaznikovi spadne disk (musi ho
naformatovat), nebo proste koupi novej a sw zase nefunguje... Myslim, ze
te potom nebude mit moc rad...
---
Nemam udelanou kontrolu instalacniho media, ale HDD kam to instaluji.
Mas instalacn� disk a instalujes,
mas vlastne funkcni demo verzi do te doby nez ziskas "kod", a ten ti
poslu na zaklade zaslani souboru,
ktery nejakym zpusobem nese informace o tobe jako uzivateli a potom o SN
tvojeho HDD. Zaslu ti cislo a
ty to zprovoznis vsechno.
Pokud toto nekdo nakopiruje jinam na PC i treba s tou registracni kartou
je v haji.
Cau. Dan
FindFirst - Incompatible types
[*] Martin Pesava <jimx(zv)volny(tec)cz> - 20.10.2000 12:51:19
Misto jenom "FindClose" tam dej "System.FindClose" (nejsem si 100% jist,
jesli je to v SYSTEMu, ale asi jo...) To System.XXX je odkaz na unitu,
kde ta funkce je.
Martin Zachar wrote:
>
> Ahoj,
> vo svojej konzolovej aplikacii potrebujem pouzit funkciu
> FindFirst.(V cykloch potrebujem sledovat stav adresara).
> V helpe sa pise ze po pouziti funkcie je nutne zavolat
> funkciu FindClose a uvolnit tak alokovanu pamat.
> Tu som zatial problem nemal, ale akonahle pridam do aplikacie
> unit WINDOWS (potrebujem koli funkcii sleep), tak zacne compiler
> pri funkcii FindClose hlasit chybu:
> "Incompatible types:'Cardinal' and "TSearchRec'."
>
> Poradi mi niekto ako pretypovat danu premennu, resp. ako vyriesit tento
> problem ?
>
> Priklad 1 - fungujuci :
> -----------------------
> program Project2;
> {$APPTYPE CONSOLE}
> uses SysUtils;
>
> var s:TSearchRec;
> begin
> FindFirst('c:\*.*',faAnyFile,s);
> FindClose(s);
> end.
> *************************
> Priklad 2 - nefungujuci :
> -------------------------
> program Project2;
> {$APPTYPE CONSOLE}
> uses SysUtils,windows;
>
> var s:TSearchRec;
> begin
> sleep(1000);
> FindFirst('c:\*.*',faAnyFile,s);
> FindClose(s); //.................<<--Tu je popisovany problem...
> end.
> -------------------------
>
> Vopred dakuje zaciatocnik v Delphi,
> Martin.
>
> __________________________________________________
> Do You Yahoo!?
> Yahoo! Messenger - Talk while you surf! It's FREE.
> http://im.yahoo.com/Kolik pameti RAM umi obhospodarit WIN 98
[*] Ji�� Vojtek - 20.10.2000 12:52:38
Nejsem si jist co se tyce oken ale bacha na Zakladni desku ta miva sva
omezeni
J. Vojt.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Pavel Medek
Sent: Friday, October 20, 2000 10:08 AM
To: delphi-l(zv)fwd(tec)cz
Subject: OT: Kolik pameti RAM umi obhospodarit WIN 98
Vim, ze jeste snad u WIN 95 bylo omezeni 128 MB, t.j. ze i kdyz tam bylo
fyzicky vice
tak se s vykonem pocitace nic nedelo.
Naproti tomu NT, nebo WIN2000 umi snad i radove GB RAM.
Bohuzel nevim jake je situace u WIN 98 (SE), kolik RAM umi obhospodarit
(adresovat)
respektive kolik pameti jeste ovlivni vykon pocitace.
Diky
Pavel
MS SQL 7 - chyba Access Violation occurred reading
[*] Tom� Vlad�k������V��?���o�� - 20.10.2000 12:53:14
> -----Original Message-----
> From: Bardon [mailto:bardon(zv)akord-soft(tec)cz]
> Sent: Friday, October 20, 2000 11:09 AM
> Subject: RE: MS SQL 7 - chyba Access Violation occurred reading address
> 0000000C
>
>
> Polozka s nazvem DELETED je v tabulce velmi podezrela. To by
> mohla byt pricina problemu.
>
Zkusil jsem DELETED prejmenovat na ARCHIVED, ale vysledek je stejny :-(
T.Poslat mail+priloha z programu
[*] Martin Lebeda <lebeda(zv)qiss(tec)cz> - 20.10.2000 12:57:19
On 20 Oct 2000, at 8:33, Jiri Novotny wrote:
> Takze abych to shrnul:
> - existuji nejake komponenty, ktere umi poslat mail s prilohou?
na adrese http://www.hoerstemeier.com/delphi.htm je balik
"Internet components V0.2 and ICMP V0.3", ktery to resi:
...POP3, SMTP and Mail (including MIME for file attachments)...
Velmi jednoduche pouziti, priklady jsou prilozeny.
Ja jsem zkousel jen stahovani posty pres POP3 a odesilani prez
SMTP, bylo to bez problemu.
Martin
Instalace Interbase 6.0
[*] azeleny(zv)csas(tec)cz - 20.10.2000 13:01:53
DDV:
- IB6 ma DLL, ktere se puziva pro setup "tichych instalaci", neco o tom uz
slo i v konferenci.
- Stahni si zdrojak Controll panel appletu InterbaseManager, ten pozna, zda
je nebo neni IB instalovana a podivaj se, jak to delaji autori -- Open
source ma sva pozitiva.
Jinak, pokud by jsi to chtel zjistovat z servisu, tak fce se podivej do
helpu a hledej "Service Control Manager" SCM. Tam jsou odkazi na API fce pro
praci se servisy, takze se da zjistit, napr zda je servis daneho jmena
instalovan...
Rohodne bych nesel cestou koukani se do registry, tam muze dojit ke zmene,
kdezto API by melo zustat. Bihuzel, nevim, jak moc bud etento postu
pouzitelny na Wir9x... tam se SCM moc nepochodis.
a.
> Zdravim a mam jeden zakerny dotaz.
>
> Delam instalacni sadu pro nas software. V teto sade chci
> integrovat a tise
> instalovat %SUBJ% a narazil jsem na problem, jak zajistit spusteni
> IBGuardu. Kde co jak zapsat do registru tak, aby toto bezelo
> jak na W 9x (
> jako EXE - to bych jeste zvlad) a na Win NT 4.0 a W2000 jako servis.
>
> A jak detekovat existenci IB serveru vcetne jeho verze?Ikona k service
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.10.2000 13:03:54
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> MS tvrdi, ze system generuje zpravu pri prihlaseni / odhlaseni uzivatele
> (wm_userchanged) _VSEM_ oknum. ALE nikdy jsem ji nevidel :-(. Pokousel jsem
Ahoj,
podle popisu ji posila vsem top-level oknum, takze by jsi ji mel byt schopen
odchytit v TApplication, pomoci TApplicationEvents.OnMessage.
Petr Vones, amatersky programator
http://www.volweb(tec)cz/pvones/delphi/
FindFirst - Incompatible types
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 20.10.2000 13:07:36
On 20 Oct 2000, at 0:24, Martin Zachar wrote:
> Ahoj,
> vo svojej konzolovej aplikacii potrebujem pouzit funkciu
> FindFirst.(V cykloch potrebujem sledovat stav adresara).
> V helpe sa pise ze po pouziti funkcie je nutne zavolat
> funkciu FindClose a uvolnit tak alokovanu pamat.
> Tu som zatial problem nemal, ale akonahle pridam do aplikacie
> unit WINDOWS (potrebujem koli funkcii sleep), tak zacne compiler
> pri funkcii FindClose hlasit chybu:
> "Incompatible types:'Cardinal' and "TSearchRec'."
> *************************
> Priklad 2 - nefungujuci :
> -------------------------
> program Project2;
> {$APPTYPE CONSOLE}
> uses SysUtils,windows;
Protoze v obou unitach jsou funkce stejneho jmena, bere Delphi
funkci z naposledy vyjmenovane unity. Takze budto prehod
SysUtils a Windows, nebo uved SysUtils.FindClose.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
TreeView
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 20.10.2000 13:18:30
Pouzij TreeNT, tato komponenta je opravdu dobra.
Link na ni zde jiz probehl (ja je neznam).
Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Roman Budinec
> Sent: Friday, October 20, 2000 11:27 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: TreeView
>
>
> Da sa v TTreeView komponente zmenit styl pisma pre jednotlive uzly?
> Ak ano, Ako?
>
> Roman
> --
> mailto:budinec_roman(zv)ttc-telecom.sk
Ikona k service
[*] azeleny(zv)csas(tec)cz - 20.10.2000 13:26:29
DDV,
Navrh:
Napsat tu aplikaci do taskabru (predpokadam asi TrayIcon...) jako samostatny
programek,ktery se bude pres PIPEu komunikovat servisem? Tato aplikace by
pak mohla bt mormalne ve startup-u.
a.
> narazil jsem na problem. Mam service, a potrebuji, aby k nemu
> svitila ikona v prave casti taskbaru (u hodin). Service se
> startuje driv
> nez taskbar, kdyz se uzivatel odloguje a znovu priloguje, ikona
> take zmizi. Nevite nekdo, jak odchytit vytvareni taskbaru?Ikona k service
[*] MDvorak(zv)csas(tec)cz - 20.10.2000 13:36:08
Jo, takoveto finty se pouzivaji napr. pro TrayIcony k Device driverum.
M. Dvorak
-----Original Message-----
From: azeleny(zv)csas(tec)cz [mailto:azeleny(zv)csas(tec)cz]
Sent: Friday, October 20, 2000 1:26 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Ikona k service
DDV,
Navrh:
Napsat tu aplikaci do taskabru (predpokadam asi TrayIcon...) jako samostatny
programek,ktery se bude pres PIPEu komunikovat servisem? Tato aplikace by
pak mohla bt mormalne ve startup-u.
a.
> narazil jsem na problem. Mam service, a potrebuji, aby k nemu
> svitila ikona v prave casti taskbaru (u hodin). Service se
> startuje driv
> nez taskbar, kdyz se uzivatel odloguje a znovu priloguje, ikona
> take zmizi. Nevite nekdo, jak odchytit vytvareni taskbaru?Kolik pameti RAM umi obhospodarit WIN 98
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.10.2000 13:45:04
From: "Pavel Medek" <Pavel.Medek(zv)talema(tec)cz>
> Vim, ze jeste snad u WIN 95 bylo omezeni 128 MB, t.j. ze i kdyz tam bylo
> fyzicky vice tak se s vykonem pocitace nic nedelo.
Ahoj,
to neni omezeni, ale spise hranice od ktere jiz nema smysl zvysovat velikost
RAM. Co se tyce optimalni velikosti, u NT je to asi minimalne 128M.
Petr Vones, amatersky programator
http://www.volweb(tec)cz/pvones/delphi/Poslat mail+priloha z programu
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 20.10.2000 13:54:48
pro SMTP je to standardne 110 a pro POP3 je to standardne 23
Milan Tomes
> Zdravim
> V Delphi je na to priklad
> (...\Delphi5\Demos\FastNet\Smtp\smtpdemo.dpr), je
> to docela srozumitelne, jenom jednu vec nevim. K cemu se zadava
> cislo portu
> a jak ho zjistim (NMSMTP1.Port := ...) ? Napovite mi nekdo ??? Diky. D.V.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000
Ikona k service
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 20.10.2000 14:13:38
> From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> > MS tvrdi, ze system generuje zpravu pri prihlaseni / odhlaseni uzivatele
> > (wm_userchanged) _VSEM_ oknum. ALE nikdy jsem ji nevidel :-(. Pokousel
jsem
>
> Ahoj,
>
> podle popisu ji posila vsem top-level oknum, takze by jsi ji mel byt
schopen
> odchytit v TApplication, pomoci TApplicationEvents.OnMessage.
>
1) nepouzivam unit Form ani jsem netestoval zda WM_USERCHANGED aplikaci
pouzivajici TForm chodi
2) WM_USERCHANGED zprava nikdy nevlezla do meho handleru zprav okna
3) co je to vlastne top-level okno?
http://msdn.microsoft.com/library/ddkdoc/win95ddk/network_0514.htm
http://msdn.microsoft.com/library/psdk/winui/windows_6iec.htm
Zdravi
D. Toman
Poslat mail+priloha z programu
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 20.10.2000 14:16:20
Nezadavej tam nic. Neni to potreba.
-----Original Message-----
From: volcik(zv)email(tec)cz [mailto:volcik(zv)email(tec)cz]
Sent: Friday, October 20, 2000 11:36 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Poslat mail+priloha z programu
Zdravim
V Delphi je na to priklad (...\Delphi5\Demos\FastNet\Smtp\smtpdemo.dpr), je
to docela srozumitelne, jenom jednu vec nevim. K cemu se zadava cislo portu
a jak ho zjistim (NMSMTP1.Port := ...) ? Napovite mi nekdo ??? Diky. D.V.
EMAIL.CZ - Va�e po�ta je v�dy s V�mi
http://www.email(tec)cz
problem s Foxpro tabulkami
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 20.10.2000 14:25:21
Pokud potrebujes tabulku pouze otevrit a cist, nepotrebujes indexy a memo
pole, na Chipu byla free komponenta (docela pokrocila), ktera umela s DBF
soubory pracovat (vcetne zapisu), kompatibilni s TTable, ale nepotrebuje
BDE. Indexy samozrejme nebere v uvahu, takze te "druhe" aplikaci bys pri
zmene indexovane polozky zapisem zpusobil problemy.
Jan Fiala
----- Original Message -----
From: "Roman Toda" <toda(zv)technickenormy.com>> > Pristup pres ODBC, a to jeste ne ve vsech pripadech, ale mas mnohem
vetsi
> > sanci nez pres nativni ovladac BDE. Ty bys chtel, aby mel BDE v sobe
> > implementovany vsechny funkce FoxPro pripadajici v uvahu ?
>
> Mne samozrejme staci, aby mi to otvorilo ako DBD bez indexov (readonly).
> Myslel som, ze by mohlo existovat nieco ako callback v BDE v ktorom by sa
> dalo povedat "nevadi, ze nevies pouzit indexy - tabulku otvor!"
>
> RT
>
>Poslat mail+priloha z programu
[*] Ji�� Mat�jka <jiri.matejka(zv)stemmark(tec)cz> - 20.10.2000 14:29:06
Cislo portu se udava kvuli tomu, aby bylo zrejme, ktera aplikace na dane IPadrese (pocitaci) ma pozadavek zpracovat. Pokud vim tak pro mail se pouziva port 25. Mel by se doplnit defaultne pri umisteni komponenty na formular (resp. pri vytvoreni jeji instance).
Jirka Matejka
-----P�vodn� zpr�va-----
Od: volcik(zv)email(tec)cz [SMTP:volcik(zv)email(tec)cz]
Odesl�no: 20. ��jna 2000 11:36
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: Poslat mail+priloha z programu
Zdravim
V Delphi je na to priklad (...\Delphi5\Demos\FastNet\Smtp\smtpdemo.dpr), je
to docela srozumitelne, jenom jednu vec nevim. K cemu se zadava cislo portu
a jak ho zjistim (NMSMTP1.Port := ...) ? Napovite mi nekdo ??? Diky. D.V.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.193 / Virov� b�ze: 93 - datum vyd�n�: 19.9.2000
INIFILE
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 20.10.2000 14:37:01
Jak uz jsem psal - ja to asi vyuzivam tak jak to u M$ chteli a zamysleli :)
Pri startu nactu, v prubehu zpracovani si to ukladam v ramci programu a pri
ukonceni zapisu.
S pozdravem
Milan Tomes
mailto:Milan.Tomes(zv)haida(tec)cz
> Milan Tome� <Milan.Tomes(zv)haida(tec)cz> wrote:
>
> > Ale jestli jsem si to dobre prelozil,
> > tak se tam rika neco o tom, ze Win95
> > si nechava cachovanou verzi WIN.INI
>
> Clovece, mas pravdu, ale to je bug v dokumentaci M$, protoze ty
> souboru jsou
> evidentne cachovane vsechny. Schvalne jsem se dival i do MSDN a i tam je
> uplne stejny text jako u WriteProfileString, coz je prave funkce pro
> manipulace s WIN.INI souborem.
>
> > o jinem souboru(ech) tam neni rec !!!
> > A ja nepouzivam WIN.INI !!!
>
> O.K., ten zpozdeny writeback se ti projevi v okamziku, kdy s .INI souborem
> zacnes pracovat jako s beznym diskovym souborem viz priklady z
> jinych mailu,
> protoze na urovni API se s nim jako se souborem nepracuje -
> manipuluje se s
> nim jako s jednotlivymi polozkami resp. sekcemi pomoci
> Get/WritePrivateProfileString, ktere jsou mapovany do pameti o max.
> velikosti 64 kB.
>
> Bye, pf
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000
Kolik pameti RAM umi obhospodarit WIN 98
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 20.10.2000 14:42:15
co ja vim tak W98 umi max. 256 MB
Milan Tomes
> Nejsem si jist co se tyce oken ale bacha na Zakladni desku ta miva sva
> omezeni
> J. Vojt.
>
> Vim, ze jeste snad u WIN 95 bylo omezeni 128 MB, t.j. ze i kdyz tam bylo
> fyzicky vice
> tak se s vykonem pocitace nic nedelo.
> Naproti tomu NT, nebo WIN2000 umi snad i radove GB RAM.
> Bohuzel nevim jake je situace u WIN 98 (SE), kolik RAM umi obhospodarit
> (adresovat)
> respektive kolik pameti jeste ovlivni vykon pocitace.
>
> Diky
>
> Pavel
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000
OT: RE: Jak zjistit seriove cislo disku ?
[*] Patrik Tesar <tesar(zv)rainside.sk> - 20.10.2000 15:04:33
Myslim, ze nema zmysel spekulovat nad nejakou brutalne silnou ochranou.
1.) Zakaznik, ktory Ta chce osrat, Ta osere vzdy (budes sa s nim hadat, ze
instaloval na iny disk?)
2.) Ak je Tvoj soft VELMI popularny, alebo si za to niekto zaplati, crackne
Ti ho nejaky Rus za 10$
mozeme teraz polemizovat o pouziti protectoru, ale VSETKO sa da rozbit.
Myslim ,ze sa na temu ochrany popisalo dost: vid archiv www.delphi(tec)cz
Preto som aj dal OT ... :-)
S pozdravom
Patrik
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Martin Pesava
Sent: Friday, October 20, 2000 12:49 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Jak zjistit seriove cislo disku ?
Proc ne, ale ma to jednu nevyhodu. Zakaznikovi spadne disk (musi ho
naformatovat), nebo proste koupi novej a sw zase nefunguje... Myslim, ze
te potom nebude mit moc rad...
---
Nemam udelanou kontrolu instalacniho media, ale HDD kam to instaluji.
Mas instalacn� disk a instalujes,
mas vlastne funkcni demo verzi do te doby nez ziskas "kod", a ten ti
poslu na zaklade zaslani souboru,
ktery nejakym zpusobem nese informace o tobe jako uzivateli a potom o SN
tvojeho HDD. Zaslu ti cislo a
ty to zprovoznis vsechno.
Pokud toto nekdo nakopiruje jinam na PC i treba s tou registracni kartou
je v haji.
Cau. Dan
OLE
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 20.10.2000 15:20:49
Zdravim,
zjednodusene lze rici, ze vsechny COM objekty se uvolnuji samy, jakmile
skonci platnost promenne, v ktere je ulozen odkaz na ten objekt.
Tomas Bradle
----- Original Message -----
From: Roman Budinec <roman(zv)ttc-telecom.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 20, 2000 10:27 AM
Subject: OLE
> Nazdar,
> potreboval by som radu.
> Objekt vytoreny funkciou "CreateOleObject(const ClassName: string):
> IDispatch;" sa uvolnuje z pamate automaticky, alebo treba zavolat nejaky
> destrukor?
>
> Roman
> --
> mailto:budinec_roman(zv)ttc-telecom.sk
>COM objekty
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 20.10.2000 16:00:33
Zdravim,
ten Tvuj problem ma nekolik rovin.
1) Potrebujes vedet neco o interface, pres ty se v podstate pristupuje ke
COM objektum.
2) Potrebujes ziskat pascalsky preklad typove knihovny (TypeLibrary). Ta
muze byt v samostatnem souboru (*.tlb) nebo prilinkovana do exe, dll, ocx,
zkratka k binarnimu kodu toho objektu. Ta typova knihovna obsahuje kompletni
obraz vsech objektu a podporujicich interface v knihovne COM objektu. Pokud
to tlb nebo binar otevres v Delphi, zobrazi se Ti okno prave s tou typovou
knihovnou, stisknes F12 a objevi se Ti pascalsky preklad - unita, a tu prave
potrebujes na praci s COM objektem. Pro vytvareni COM objektu slouzi tzv.
CoClasses (tridy objektu, ktere zacinaji nas "Co"), hledej je ke konci toho
prekladu.
No a na klinetu nadefinujes promennou typu pozadovaneho interface a pomoci
prislusne CoClass vytvoris objekt. Ten se automaticky uvolni, kdyz skonci
platnost te promenne (nap�. lokalni promenna v procedure nebo funkci konci s
ukoncenim funkce, vlastnost konci s uvolnenim prislusne instance objektu
atd., globalni promenna konci s programem, atd.). Jinak objekt COM pres
interface se zpusobem prace prakticky skoro nelisi od klasicke class.
3) Jeste existuje jeden zpusob pomoci CreateOLEObject do OleVariant, ale ten
je "ve stylu VisualBasicu". Je mozna trochu jednodussi, ale kompilator Ti
nezkontroluje syntaxi, protoze nema podle ceho - OleVariant muze "mit" potom
jakekoliv metody. Udava se, ze tento zpusob je take pomalejsi. Ja ho vubec
nepouzivam, az na vyjimky, kdy nejde ten prvni zpusob pouzit, ale to uz je
"vyssi divci".
Tomas
----- Original Message -----
From: Ota Maly <maly(zv)space(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, October 19, 2000 4:19 PM
Subject: COM objekty
> Ahoj,
> potrebuji ve sve aplikaci pouzit COM objekt dodany treti stranou a nevim
jak
> zacit. S COM technologii zkusenosti nemam.
> Pokud me muzete nasmerovat kudy dal (Internet atp.), budu velice rad..
>
> S pozdravem
> Ota Maly
>
> PaPouch elektronika
> http://www.papouch.com
>
>Poslat mail+priloha z programu
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 20.10.2000 16:31:23
Ja znam pro POP3 standartne 25 :) Co ted?
-----Original Message-----
From: Milan Tome� [mailto:Milan.Tomes(zv)haida(tec)cz]
Sent: Friday, October 20, 2000 1:55 PM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Poslat mail+priloha z programu
pro SMTP je to standardne 110 a pro POP3 je to standardne 23
Milan Tomes
> Zdravim
> V Delphi je na to priklad
> (...\Delphi5\Demos\FastNet\Smtp\smtpdemo.dpr), je
> to docela srozumitelne, jenom jednu vec nevim. K cemu se zadava
> cislo portu
> a jak ho zjistim (NMSMTP1.Port := ...) ? Napovite mi nekdo ??? Diky. D.V.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000
MS SQL 7 - chyba Access Violation occurred reading
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 20.10.2000 16:42:48
A nejni nejak vadna ta tabulka ?
To zjistis pres: DBCC checktable (archived)
- vubec bych proveril celo DB pres DBCC (viz help)
Jestli ano, melo by pomoci "presypat" data z puvodni tabulky do nove:
select * from into nova_tabulka from archived
drop table archived
a prejmenovat nove vytvorenou tabulku
Mas instalovane nejake SP ?
Nemas nad touto tabulkou definovane nejake triggery nebo ref. integritni
omezeni ?
Jestli ano, pokusil bych se je postupne vyrazovat.
Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Tom� Vlad�k
> Sent: Friday, October 20, 2000 12:53 PM
> To: Delphi-L(zv)Fwd.Cz
> Subject: RE: MS SQL 7 - chyba Access Violation occurred reading address
> 0000000C
>
>
>
> > -----Original Message-----
> > From: Bardon [mailto:bardon(zv)akord-soft(tec)cz]
> > Sent: Friday, October 20, 2000 11:09 AM
> > Subject: RE: MS SQL 7 - chyba Access Violation occurred reading address
> > 0000000C
> >
> >
> > Polozka s nazvem DELETED je v tabulce velmi podezrela. To by
> > mohla byt pricina problemu.
> >
>
> Zkusil jsem DELETED prejmenovat na ARCHIVED, ale vysledek je stejny :-(
>
> T.
>Kontrola duplicit v ListBoxu
[*] Mirek <dmiroslav(zv)seznam(tec)cz> - 20.10.2000 16:48:41
for a:=0 to ListBox1.Items.Count-1 do
if ListBox2.Items.IndexOf(ListBox1.Items[a])>=0 then
ListBox2.Items.Add(ListBox1.Items[a]);
Mirek Drancak
> Zdravim.
> Prosim o radu s nasledujicim problemem. Mam dva ListBoxy, kde z prvn�ho
> kopiruji do druheho vybrane polozky. Potreboval bych ale, aby v tom druhem
> ListBoxu nemohla byt nektera polozka vicekrat, pokud by uzivatel dal
> vybranou polozku vicekrat vybral. Potrebuji tedy provest nejakou funkci,
> kterou bych tyto duplicity v druhem ListBoxu odstranil.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.167 / Virov� b�ze: 80 - datum vyd�n�: 29.6.2000
Ma logiku, ze true<false?
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 20.10.2000 14:49:45 met-1
> Mam nekolik sloupcu typu string a jeden typu Boolean. Do tabulky se nactou
> udaje typu: JmenoSouboru/Adresare, velikost,datum... a do Boolean sloupce se
> zapise true, pokud se jedna o adresar - v opacnem pripade (jde o soubor)
> false. Potrebuju nyni setridit vsechny polozky 'klasickym tridenim' -
> nejprve slozky podle abecedy a pak soubory podle abecedy.
>
> SortOnFields('CD;Folder;Name',true,false); // Folder je typu boolean a
> urcije, zdali jde o adresar
>
> toto setrizeni vsak setridi i hodnoty ve sloupci Folder podle abecedy, tj.
> nejprve false a pak true. To ma za nasledek, ze mam v tabulce nejprve
> soubory a pak teprve slozky.
Ono se to ale netridi podle abecedy (i kdyz to tak zdanlive vypada,
"false" je opravdu _v_abecede_ driv nez "true"), ale z definice typu
Boolean plyne ze false < true, plati totiz, ze Ord(false) = 0 a
Ord(true) = 1.
Reseni pro tebe vidim v tom, ze nemusis ani prejmenovavat prislusny
"sloupec" tabulky (to stejne slouzi pro programatora aby se v tom
vyznal, kdyz si ten sloupec nazves "NevimCoToJe" :-), tak to bude
chodit uplne stejne), ale pro adresar si das priznak false a pro
soubor true. Zkratka to prohodis a bude to OK.
Jirka.
yy
Standardni porty pro SMTP a POP3
[*] azeleny(zv)csas(tec)cz - 20.10.2000 17:09:51
DDV,
ne ze by bylo nemozne pouzivat porty jine, ale to se pak asi jedna o nejake
specificke uziti.
Standardni cisla portu jsou definovana v RFC (nevim kterem), ale ty ktere
mne zajimaly jsem doposud vzdy nasel v souboru:
$SYSTEMDRIVE\winnt\system32\drivers\etc\services
...
smtp 25/tcp mail
...
pop3 110/tcp postoffice
Samozrejme, je mozne ze nejaka sit ma nastaven POP3 na port 23 a SMTP na 110
a pro vnejsi spojeni pouziva nejkay vice ci mene sofistikovany firewall, ale
mam pocit, ze tady jde o omyl.
> pro SMTP je to standardne 110 a pro POP3 je to standardne 23
Pekny weekend!
-----------------------------------------------------------------------
Ales Zeleny
Ceska sporitela a.s.
Na Perstyne 1
Praha 1
113 98
Czech republic
Email: azeleny(zv)csas(tec)cz
tel: +420 2 24995 236
-----------------------------------------------------------------------
Due to technical difficulties tomorrow has been postponed indefinitely.
Poslat mail+priloha z programu
[*] Lauko �tefan <lauko(zv)salamon.sk> - 20.10.2000 18:11:37
Ahoj,
neodpovedam na otazku ale skusenosti s touto cmp nemam dobre. Staci urobit
toto:
Pri odosielani a zobrazeni dialogu "pripojit" stlacit tl. storno a uz
viackrat sa tento dialog nezobrazi.
Pomoze len restart programu. (alebo som vedla?)
Lauko.
----- Original Message -----
Od: <volcik(zv)email(tec)cz>
Komu: <delphi-l(zv)fwd(tec)cz>
Odoslan�: 20. okt�ber 2000 11:36
Predmet: RE: Poslat mail+priloha z programu
> Zdravim
> V Delphi je na to priklad (...\Delphi5\Demos\FastNet\Smtp\smtpdemo.dpr),
je
> to docela srozumitelne, jenom jednu vec nevim. K cemu se zadava cislo
portu
> a jak ho zjistim (NMSMTP1.Port := ...) ? Napovite mi nekdo ??? Diky. D.V.
>
> EMAIL.CZ - Va�e po�ta je v�dy s V�mi
> http://www.email(tec)cz
>
OT: Maly problemek s Accessem
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 20.10.2000 18:22:08
> Ahoj
>
> Kdyz uz to ma byt takhle, tak bych videl dva mozne postupy.
>
> 1) pouze Access (bez programovani)
> - vzit starou tabulku s hotovymi preklady
> - udelat export, napriklad do CSV
> - vzit novou tabulku a do ni to naimportovat
??? ten export je proc? staci naimportovat /nebo lepe propojit/ starou databazi
s novou a pak uz jenom napsat vhodny dotaz, ktery aktualizuje existujici
radky... v nejhorsim bude nutne nejak rozume prejmenovat tabulky ze stare
databaze, aby nebyly duplicitni, btw. je-li jich moc, muze se to udelat
programove /stejne tak programove propojit, spustit dotaz, odpojit/, je to
podobne jako v Delphach, mozna jednodussi...
Roman
Jak zjistit seriove cislo disku ?
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 20.10.2000 19:07:49
On 20 Oct 2000, at 12:49, Martin Pesava wrote:
> Proc ne, ale ma to jednu nevyhodu. Zakaznikovi spadne disk (musi ho
> naformatovat), nebo proste koupi novej a sw zase nefunguje... Myslim,
> ze te potom nebude mit moc rad...
Nejaky takovy system pouziva i Baltik. Mel jsem ho na recenzi.
Mam majler na jinem pocitaci, nez jsem chtel Baltika recenzovat.
Baltik ukaze okno, kde se vyplni nacionale, program si nacte cislo
disku, a vysledny soubor se odesle (napr. majlem) do SGP. Na to
clovek dostane ID, ktere se vlozi do Baltika, a ten pak chodi.
Jenze, jsem hlava zabednena, protoze jsem nejak nepochopil
(nebo si poradne neprecetl?) zpusob, jak ten soubor vytvorit, takze
jsem ho vytvoril na nespravnem pocitaci. Dostal jsem nejake ID, ale
to mi samozrejme na tom druhem pocitaci nefungovalo. Posilal
jsem tedy dalsi majl. Pozdeji jsem vsak potreboval zformatovat na
onom pocitaci disk (nastesti jsem mel recenzi hotovu, takze o nic
neslo), no a tim jsem samozrejme prisel i o moznost spustit
Baltika s plnou funkcnosti (nechme stranou legalnost, jde mi o
popis vlastnosti). Byt radnym uzivatelem, dost by me namichlo
neustale dopisovani s vyrobcem. Byt navic BFU, asi by v tom byl
jeste telefon, do ktereho by mi diktovali, co vse mam udelat.
Tim chci rict, ze tento zpusob ochrany IMHO znacne obtezuje
prave legalni uzivatele.
> ---
> Nemam udelanou kontrolu instalacniho media, ale HDD kam to instaluji.
> Mas instalacn� disk a instalujes, mas vlastne funkcni demo verzi do te
> doby nez ziskas "kod", a ten ti poslu na zaklade zaslani souboru,
> ktery nejakym zpusobem nese informace o tobe jako uzivateli a potom o
> SN tvojeho HDD. Zaslu ti cislo a ty to zprovoznis vsechno.
>
> Pokud toto nekdo nakopiruje jinam na PC i treba s tou registracni
> kartou je v haji.
>
>
> Cau. Dan
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Ikona k service
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 20.10.2000 19:07:49
On 20 Oct 2000, at 13:03, Petr Vones wrote:
> From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> > MS tvrdi, ze system generuje zpravu pri prihlaseni / odhlaseni
> > uzivatele (wm_userchanged) _VSEM_ oknum. ALE nikdy jsem ji nevidel
> > :-(. Pokousel jsem
>
> podle popisu ji posila vsem top-level oknum, takze by jsi ji mel byt
> schopen odchytit v TApplication, pomoci TApplicationEvents.OnMessage.
Zkousel jsem to odchytit takto, i pres WndProc hlavniho okna, ale
ani jedno to nebere. Jeste zbyva jit po krku servisu, zda to nekde
nechyta on.
Kazdopadne nejlepe se osvedcila funkce
RegisterWindowMessage('TaskbarCreated');
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Jak odchytnu ukonceni editovani nodu u TreeView
[*] Ale� Va���ek�����"q��y�&���w�3 - 20.10.2000 19:16:35
Ahoj,
zajimalo by me, jak odchytnu ukonceni editovani nodu u TreeView. Jde totiz o
to, ze kdyz uzivatel edituje nejakej node a stiskne ESC, tak se nevyvola ani
udalost OnEdited, ani OnKeyDown. Co s tim? Potrebuju vedet, ze uzivatel
canceloval (eh?) editaci nodu.
Nebo jeste lepsi by bylo, kdybych mohl zjistit zda je urcity Node v
editacnim modu.
Ales
Jak schovat ScrollBar v ListView?
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 20.10.2000 19:54:11
Zdravim,
potreboval bych natvrdo schovat ScrollBar v ListView (pohled
vsReport). Jde to (urcite jo :-)???
Dekuji, Petr Fischer
Delphi5
IE Explorer Bar
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 20.10.2000 20:14:40
A prezradis ze ako ?
Dakujem
Roland
----- Original Message -----
From: <voltrr1.epr(zv)mail.cez(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, October 17, 2000 1:41 PM
Subject: Re: IE Explorer Bar
>
>
> Uz jsem to vyresil.
>
> Radek
>
>
> Jak zablokovat pristup na Internet?
[*] Stanislav PETR <glux(zv)centrum(tec)cz> - 20.10.2000 20:25:24
Jestli mate sit, tak je to vec proxy serveru. Snad vsechny lepsi proxy to
umoznuji, da se zakazat internet pro urcite osoby, v ruznzch casovych
intervalech, jen nektere stranky, ... Pripadne nastavit pristup pod heslem.
----- Original Message -----
From: "Pavol Kakacka" <paka(zv)aktis(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, October 19, 2000 4:12 PM
Subject: Re: Jak zablokovat pristup na Internet?> Mozno by stacilo pozmenit adresu pristupovej brany TCP/IP protokolu v
> registroch Windows.
>
> Brany:
> HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0000
>
> DNS:
> HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\MSTCP
>
> Pavol Kakacka
> kasix(zv)atlas(tec)cz
>
>
> | Dobry den,
> |
> | rad bych se zeptal, zda jste se nekdo nepokousel (uspesne) vyresit
> | problem, jak zablokovat pristup na Internet, je-li pocitac v LAN,
> | ktera jako nativni protokol pouziva TCP/IP. Potrebovali bychom ve
> | skole alespon v urcitych hodinach zabranit nadsencum provozujicim
> | Chat v blokovani cele ucebny touto ne prave nejsmysluplnejsi cinnosti.
> |
> | Kdysi jsem psal programek AntiExplorer, ktery hlidal spusteni
> | Exploreru, a pokud se vyskytl mezi bezicimi ulohami, tak ho
> | "odstrelil". Nevyhodou bylo, ze ten programek zabiral asi celkem
> | zbytecne dost pameti, navic nebyl univerzalni - napr. proti NetScape
> | by se musel upravit.
> |
> | Nenapada Vas elegantnejsi reseni?
> |
> | Diky za kazdy namet,
> |
> | Karel Rys
>
>
>zablokovani listy
[*] Stanislav PETR <glux(zv)centrum(tec)cz> - 20.10.2000 20:28:40
Stacilo by inicializovat obrazovku prez DirectX (ale stale muzete
vykreslovat prez GDI).
----- Original Message -----
From: "David Papou�ek" <papouscidelphi(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, October 19, 2000 8:05 PM
Subject: zablokovani listy
> ahoj vespolek,
> dokazal by mi nekdo poradit ohledne zablokovani vysunuti listy? Problem je
> nasledujici. Kdyz prepnu obrazovku do full screen modu pomoci funkce
> ChangeDisplaySetting v D4, a najedu mysi k hornimu okraji obrazovky,
vysune
> se lista SoundBlasteru (Creative Launcher se myslim jmenuje). Zadna jina
> lista (Start lista Woken nebo MS Office) to nedela jenom ta od SB. Nevite
> nekdo jak se toho mam zbavit? Pripadne jak otestovat jestli je aktivni a
> vypnout ji po dobu nez se program vrati z full screenu? Predem dekuji za
> jakoukoliv odpoved.
>
> Papouch
>
>
>Hypoteticka otazka
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.10.2000 20:30:43
From: "Stanislav PETR" <glux(zv)centrum(tec)cz>
> Kdyz jsme u toho SQL, nevi nekdo o nejakem free SQL serveru pro Win? (Hlavne
> mi neradte ten od Soft 602 - neuveritelne cesto pada)
Ahoj,
co treba InterBase (http://www.interbase.com) ?
Petr Vones, amatersky programator
http://www.volweb(tec)cz/pvones/delphi/Automaticke doplnovani
[*] Lukas Strmiska <strma(zv)volny(tec)cz> - 20.10.2000 21:13:21
Jde nejak nastavit ComboBox tak, aby automaticky podle napsanych pismen
doplnoval frazi, jako to dela napr. MS-Internet Explorer, pri doplnovani
adresy?
Bye, Lucas.Lokalizacie projektu
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 20.10.2000 21:39:46
Zdravim.
Hral som sa s nastrojmi D5 ohladom jazykov. Ale ja pouzivam rozne *.inc
subory s definovanymi textami ako CONST a ako to mam urobit aby sa mi dali
aj tie nejako jednoducho prelozit (pouzitie direktiv,...)
Alebo je nieco lepsie na lokalizaciu ako nastroj v D5.
Dakujem
Roland.IBTalk dialect
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 20.10.2000 21:45:45
Ako nastavim pripojovaci dialec pre IBTalk (1 mi nevyhojuje) ?
Dakujem.
Roland.Hypoteticka otazka
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 20.10.2000 22:11:47
> Kdyz jsme u toho SQL, nevi nekdo o nejakem free SQL serveru pro Win?
Interbase 6.0 - www.interbase.com (open source, win, linux)
A pro administraci je vice nez vhodne stahnout QuickDesk -
http://www.emshitech.com/quickdesk/ (pro win)
> (Hlavne mi neradte ten od Soft 602 - neuveritelne cesto pada)
>
:)))
> Stanislav PETR
>
Petr Fischer
Access violation at address 0044F45E in module ...
[*] Petr Ha�lar <rincewind(zv)volny(tec)cz> - 20.10.2000 23:55:24
Ahoj,
mam takovy problem s procedurou Free. Vytvorim si na formulari za behu
pole editu a to potom zrusim pomoci free. Kdyz to nekolikrat zopakuji, dojde
k chybe:
Access violation at address 0044F45E in module .... Read of Address FFFFFFFF
pouzivam tyto procedury:
procedure Radek(posun: integer);
var I: integer;
begin
for I:=konI to (konI+4) do begin
pole[I]:=TEdit.Create(Form2);
with pole[I] do begin
left:=25+(I-KonI)*53;
top:=80+30*posun;
width:=40;
parent:=Form2;
show;
end;
end;
konI:=konI+5;
end;
procedure TForm2.btnVytvorClick(Sender: TObject);
var I: integer;
begin
for I:=1 to (StrToInt(edtPocetPasem.Text)) do
Radek(I);
end;
procedure TForm2.btnZpetClick(Sender: TObject);
var I: integer;
begin
for I:=1 to (5*(StrToInt(edtPocetPasem.Text))) do
// pet editu v kazdem radku
pole[I].Free;
end;
Dekuju za jakoukoliv radu.
Rincewind
rincewind(zv)volny(tec)cz
89356906(zv)pager.mirabilis.com
------------------------------------------------------------------
Ikona k service
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.10.2000 01:12:05
From: "Zbysek Hlinka" <zhlinka(zv)login(tec)cz>
> > From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> > > MS tvrdi, ze system generuje zpravu pri prihlaseni / odhlaseni
> > > uzivatele (wm_userchanged) _VSEM_ oknum. ALE nikdy jsem ji nevidel
> > > :-(. Pokousel jsem
> >
> > podle popisu ji posila vsem top-level oknum, takze by jsi ji mel byt
> > schopen odchytit v TApplication, pomoci TApplicationEvents.OnMessage.
>
> Zkousel jsem to odchytit takto, i pres WndProc hlavniho okna, ale
> ani jedno to nebere. Jeste zbyva jit po krku servisu, zda to nekde
> nechyta on.
Aha, ted jsme meli asi kazdy namysli neco jineho. Ja jsem myslel prave tu
registrovanou zpravu. Ohledne WM_USERCHANGED, tato zprava se neposila na NT
ale jen na Win9x.
Petr Vones, amatersky programator
TRxRichEdit
[*] Petr Jel�nek <pjmodos(zv)yo(tec)cz> - 21.10.2000 01:37:12
Dam to na svoji stranku - http://pjmodos.fbi(tec)cz/download/riched30.zip
Takze treba tam :-).
Zdravi
Petr Jelinek - amatersky programator
Homepage: http://www.pjmodos.net, http://pjmodos.yo(tec)cz
Komponenty pro Delphi: http://lunasoft.hyperlink(tec)cz/index5.htm
Vyhledavani: http://www.barevnylist(tec)cz/visitor.php?ref=pjmodos
----- Original Message -----
From: Igor Vodi�ka <vodicka(zv)sagit(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 20, 2000 7:47 AM
Subject: RE: TRxRichEdit
> >Na ramecky tabulek musis mit "Riched 3.0 Update" od MS.
> >Jen upozornuju, ze se neprida zadna riched30.dll, ale upgraduje se
> >riched20.dll a riched32.dll.
>
> Dotaz: nevite kde se ten UpDate da stahnout?
> Diky
>
> Ing. Igor Vodi�ka
> informa�n� syst�my
>
> Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
> Tel.: 069 353 062, Fax: 069 357 758
> Mailto:vodicka(zv)sagit(tec)cz
> Http:\\www.sagit(tec)cz\
>
> ---
> Odchoz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.157 / Virov� b�ze: 73 - datum vyd�n�: 31.5.2000
Hint pri Disabled
[*] Jan Naiser <tua(zv)wo(tec)cz> - 21.10.2000 03:37:11
Preji pekny den,
nevite nekdo, jak by se dal vykreslit klasicky mysi Hint pri nastavenem
Enabled:= false u komponenty? (Napr u DBEditu.)
Dekuji.
Honza Naiser.
Automaticke doplnovani
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 21.10.2000 09:51:18
1.) Pouzivam DBLookUpListbox listbox, nastaveny na csDropDown
2.) v datasete mam nastavene:
procedure QDataAfterPost(DataSet: TDataSet);
begin
appendused(0,DBLookupCombo.Text);
end;
procedure appendused(TypeT:integer;ValueT:string);
begin
if ValueT<>'' then begin
with mainform do begin
if
qusedtext.locate('valuet,typet',VarArrayOf(valuet,typet),[locaseinsensitive]
)=false then begin
qusedtext.append;
qusedtext.fieldbyname('typet').asinteger:=typet;
qusedtext.fieldbyname('valuet').asstring:=valuet;
qusedtext.post;
end;
end;
end;
end;
Tabulka:
ID_T - INTEGER NOT NULL (PK)
TYPET INTEGER 0,1,2,3 - cislovanie combacov na forme
VALUET VARCHAR(100) hodnoty v jednotlivych kombacoch
Cau. Ja to robim tak, ze vsetko co napises, v odchytim, cez IndexOf zistim,
ci to tam uz nieje a ak nieje tak to pridam do tabulky
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Lukas Strmiska
Sent: Friday, October 20, 2000 9:13 PM
To: Konference Delphi
Subject: Automaticke doplnovani
Jde nejak nastavit ComboBox tak, aby automaticky podle napsanych pismen
doplnoval frazi, jako to dela napr. MS-Internet Explorer, pri doplnovani
adresy?
Bye, Lucas.Server pre Novell
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 21.10.2000 10:04:24
Caute
Neviete niekto o free SQL servri pre Novell?
Chcem svoju aplikaciu distribuovat worldwide, a vacsina ludi ma
ako server nie Win, ale Novell...
A odporucit im kupovat napr. Interbase 5.6 sa mi moc nechce...Access violation at address 0044F45E in module ...
[*] Petr Vale� <delphipetr(zv)infoware(tec)cz> - 21.10.2000 12:03:55
a na jakem radku ti to spadne ?
PETR
----- Original Message -----
From: "Petr Ha�lar" <rincewind(zv)volny(tec)cz>
To: "Delphi Konference" <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 20, 2000 11:55 PM
Subject: Access violation at address 0044F45E in module .... Read of Address
FFFFFFFF
> Ahoj,
> mam takovy problem s procedurou Free. Vytvorim si na formulari za behu
> pole editu a to potom zrusim pomoci free. Kdyz to nekolikrat zopakuji,
dojde
> k chybe:
>
> Access violation at address 0044F45E in module .... Read of Address
FFFFFFFF
>
> pouzivam tyto procedury:
>
> procedure Radek(posun: integer);
> var I: integer;
> begin
> for I:=konI to (konI+4) do begin
> pole[I]:=TEdit.Create(Form2);
> with pole[I] do begin
> left:=25+(I-KonI)*53;
> top:=80+30*posun;
> width:=40;
> parent:=Form2;
> show;
> end;
> end;
> konI:=konI+5;
>
> end;
>
> procedure TForm2.btnVytvorClick(Sender: TObject);
> var I: integer;
> begin
> for I:=1 to (StrToInt(edtPocetPasem.Text)) do
> Radek(I);
> end;
>
> procedure TForm2.btnZpetClick(Sender: TObject);
> var I: integer;
> begin
> for I:=1 to (5*(StrToInt(edtPocetPasem.Text))) do
> // pet editu v kazdem radku
> pole[I].Free;
> end;
>
> Dekuju za jakoukoliv radu.
>
> Rincewind
>
> rincewind(zv)volny(tec)cz
> 89356906(zv)pager.mirabilis.com
>
> ------------------------------------------------------------------
Server pre Novell
[*] Jirka Virt <virt(zv)volny(tec)cz> - 21.10.2000 12:07:28
Ahoj,
soucasti Novellu 5.x je SQL Pervasive a Oracle.
Jsou vazany na pocet uzivatelskych licenci Novellu.
Jirka Virt
email: virt(zv)volny(tec)cz
----- Original Message -----
From: Ing. Patrik Tesar <tesar(zv)rainside.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, October 21, 2000 10:04 AM
Subject: Server pre Novell
> Caute
>
> Neviete niekto o free SQL servri pre Novell?
>
> Chcem svoju aplikaciu distribuovat worldwide, a vacsina ludi ma
> ako server nie Win, ale Novell...
> A odporucit im kupovat napr. Interbase 5.6 sa mi moc nechce...
>
>Secondary Indexes + Index is out of date
[*] Jirka Virt <virt(zv)volny(tec)cz> - 21.10.2000 12:20:38
Ahoj,
zrejme to bude problem BDE, protoze jsem na toto prisel taky(paradoxove
tabulky).Proste s nim vubec nepracuji.Ono to vubec chodi na tech paradoxech
nejak divne.
Ja si treba pustim klasicky paradox pod Dosem a zkusim vyhledat v tabulce
na primarnim klici nejaky zaznam.Nalezen je okamzite.
A to same v Delphi ... Je to cim dal horsi.Jedine snad FindKey, ale to zase
musim cely klic predvyplnit.Ale pritom chci hledat jeno jednu hodnotu /- v
jednom fieldu.Rekl bych , ze na to panove od Borlandu, i kdyz
jsou paradoxove tabulky jako vychozi, pekne kaslou.Jak rikam, s cim vyssi
verzi BDE tim horsi.Pritom se mi neche od tohoto odejit , ale casem budu
snad prinucen. Priklad: vysvetlujte uzivateli, ze novy program pod Windows
je x krat pomalejsi ne pod Dosem.Jak mu pak mam prodat neco noveho??
Jirka Virt
email: virt(zv)volny(tec)cz
----- Original Message -----
From: Tomas Kucera <Tomas.Kucera(zv)matsushita(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, October 19, 2000 12:15 PM
Subject: Secondary Indexes + Index is out of date
> Zdrav�m v�echny ��astn�ky D-konference !
>
> Dokazal by mi nekdo poradit s "Index is out of date" u Paradox-7 tabulky v
> D5 ( prohlidka databaze D-konference mi prilis nepomohla) ? Problem je
> nasledujici. Mam vytvorenou tabulku (Paradox7) v D5 se 3 sloupci (vsechny
> obsahuji cisla), kde prvni dva jsou klice. Treti sloupec dane tabulky mam
> definovany v DDesktopu jako sekundarni index, ktery je Maintained
> (aktualizovany index). Podle tohoto sloupce chci radit tabulku v urcite
> chvili.
> Po spusteni aplikace dochazi nad tabulkou ke dvema operacim. Jednak jsou z
> ni odmazany urcite zaznamy a za druhe dojde ke zmene hodnot ve 3. sloupci.
> Po teto zmene (drive ne) chci seradit tabulku podle 3. sloupce. Jednoduse
> zadam Table1. IndexName := 'nazev definovaneho indexu'. A v te chvili mi
> vyskoci vyse zminovana hlaska. Pokud z pred momentem uvedenych operaci nad
> tabulkou provedu jen tu druhou (tj. nemazu nektere zaznamy), zadna hlaska
> nevyskoci a tabulka je spravne serazena podle 3. sloupce
(aktualizovaneho).
> Tzn., vypada to jako by se sekundarni indexy neaktualizovaly, kdyz
> vymazavam nektere zaznamy z tabulky. Vedel by nekdo co s tim nebo co delam
> spatne ?
>
> Diky Tom
>
>
> Tom� Ku�era
> tomas.kucera(zv)matsushita(tec)cz
> Matsushita Television Central Europe
> Information Technology Department
> +420 19 7415 260
>
>
>Access violation at address 0044F45E in module ...
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.10.2000 12:25:04
On 20 Oct 2000, at 23:55, Petr Ha�lar wrote:
> Ahoj,
> mam takovy problem s procedurou Free. Vytvorim si na formulari za
> behu
> pole editu a to potom zrusim pomoci free. Kdyz to nekolikrat zopakuji,
> dojde k chybe:
>
> Access violation at address 0044F45E in module .... Read of Address
> FFFFFFFF
Zkus tohle:
> procedure TForm2.btnZpetClick(Sender: TObject);
> var I: integer;
> begin
> for I:=1 to (5*(StrToInt(edtPocetPasem.Text))) do
> // pet editu v kazdem radku
try
> pole[I].Free;
except
end;
> end;
Jestli ani to nepomuze, pak bys mel edit nejdrive odhlasit z
formulare.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Lokalizacie projektu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.10.2000 12:25:05
On 20 Oct 2000, at 21:39, Roland Tur�an (RoTurSoft) wrote:
> Hral som sa s nastrojmi D5 ohladom jazykov. Ale ja pouzivam rozne
> *.inc subory s definovanymi textami ako CONST a ako to mam urobit aby
> sa mi dali aj tie nejako jednoducho prelozit (pouzitie direktiv,...)
>
> Alebo je nieco lepsie na lokalizaciu ako nastroj v D5.
ITE z D5 je na draka, ten ti neodchyti ani formulare, ktere jsou
zasite nekde v balickach a neni k nim zdrojak DFM. Jedina sance
je lokalizovat primo z exace, pokud je ovsem program slusne
napsany - napriklad programy z VBasicu takto lokalizovat nelze.
Pokud nadeklarujes texty urcene k prekladu jako CONST,
dostavas se na uroven VB. Takove texty musis nadeklarovat jako
resourcestring.
Prohledni si http://www.localizator.com
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Hypoteticka otazka
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.10.2000 12:25:05
On 19 Oct 2000, at 13:08, Stanislav PETR wrote:
> Kdyz jsme u toho SQL, nevi nekdo o nejakem free SQL serveru pro Win?
> (Hlavne mi neradte ten od Soft 602 - neuveritelne cesto pada)
MSDE. Ovsem s jednou drobnosti, musis mit zakoupenu licenci na
sireni.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Ikona k service
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.10.2000 12:25:04
On 21 Oct 2000, at 1:12, Petr Vones wrote:
> > > podle popisu ji posila vsem top-level oknum, takze by jsi ji mel
> > > byt schopen odchytit v TApplication, pomoci
> > > TApplicationEvents.OnMessage.
> >
> > Zkousel jsem to odchytit takto, i pres WndProc hlavniho okna, ale
> > ani jedno to nebere. Jeste zbyva jit po krku servisu, zda to nekde
> > nechyta on.
>
> Aha, ted jsme meli asi kazdy namysli neco jineho. Ja jsem myslel prave
> tu registrovanou zpravu. Ohledne WM_USERCHANGED, tato zprava se
> neposila na NT ale jen na Win9x.
:-)) No jo, to je pak problem, kdyz se debata odchyli od subj.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Access violation at address 0044F45E in module ...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.10.2000 14:13:54
From: "Petr Ha�lar" <rincewind(zv)volny(tec)cz>
> pole editu a to potom zrusim pomoci free. Kdyz to nekolikrat zopakuji, dojde
> k chybe:
>
> Access violation at address 0044F45E in module .... Read of Address FFFFFFFF
Ahoj,
adresa chyby je evidentne v adresovem prostoru tve aplikace. Spust ji z IDE, v
menu vyber Search|Find Error a zapis adresu ve tvaru $44F45E (na zacatku musi
byt $), pri trose stesti se ti najde radek ve zdrojaku kde je chyba.
Petr Vones, amatersky programator
Interbase a alokovani pameti pri zapisu.
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 21.10.2000 15:35:25
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj v�em, pros�m o pomoc.
Kdy� za�nu ps�t do db v interbasi, tak to pred prvnim zapisem zastavi a
zecne to alokovat mnoho RAM. Strasne to zdrzuje.
Mam celkem velkou db. Asi 10 tabulek do kterych do kazde kazdou hodinu pisu
asi 4000 rekordu. Data tam mam asi tyden stara. Proc se to chovat tak divne?
Dal jsem tomu lepsi pocitac (0,5GB RAM) a ono je to jeste horsi. Cim vic
pameti to muze alokovat, tim vic ji to bere a tim dele to trva. Setkal jste
se s tim nekdo nekdy?
Mnohokrat dekuji za kazde nasmerovani.
Michal Tiller
+420 (0608) 011 327, +420 (02) 71 17 13 88
Michal.Tiller(zv)oskarmobil.Cz <mailto:Michal.Tiller(zv)oskarmobil.Cz>
Access violation at address 0044F45E in module ...
[*] Petr Ha�lar <rincewind(zv)volny(tec)cz> - 21.10.2000 15:44:24
Jo, to kdybych tak vedel. Do Debug sem jeste moc nepronikl, a tak nevim
presne jak se pouziva ( krome Breakpointu). Zatim se mi to podarilo vyresit
tak, ze po vytvoreni celeho pole editu priradim promenne KonI:=1. Pak uz
muzu pole vytvaret a mazat jak dlouho chci :-).
PETR
----- Original Message -----
From: Petr Vale� <delphipetr(zv)infoware(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, October 21, 2000 12:03 PM
Subject: Re: Access violation at address 0044F45E in module .... Read of
Address FFFFFFFF
> a na jakem radku ti to spadne ?
>
> PETR
>
> ----- Original Message -----
> From: "Petr Ha�lar" <rincewind(zv)volny(tec)cz>
> To: "Delphi Konference" <delphi-l(zv)fwd(tec)cz>
> Sent: Friday, October 20, 2000 11:55 PM
> Subject: Access violation at address 0044F45E in module .... Read of
Address
> FFFFFFFF
>
>
> > Ahoj,
> > mam takovy problem s procedurou Free. Vytvorim si na formulari za
behu
> > pole editu a to potom zrusim pomoci free. Kdyz to nekolikrat zopakuji,
> dojde
> > k chybe:
> >
> > Access violation at address 0044F45E in module .... Read of Address
> FFFFFFFF
> >
> > pouzivam tyto procedury:
> >
> > procedure Radek(posun: integer);
> > var I: integer;
> > begin
> > for I:=konI to (konI+4) do begin
> > pole[I]:=TEdit.Create(Form2);
> > with pole[I] do begin
> > left:=25+(I-KonI)*53;
> > top:=80+30*posun;
> > width:=40;
> > parent:=Form2;
> > show;
> > end;
> > end;
> > konI:=konI+5;
> >
> > end;
> >
> > procedure TForm2.btnVytvorClick(Sender: TObject);
> > var I: integer;
> > begin
> > for I:=1 to (StrToInt(edtPocetPasem.Text)) do
> > Radek(I);
> > end;
> >
> > procedure TForm2.btnZpetClick(Sender: TObject);
> > var I: integer;
> > begin
> > for I:=1 to (5*(StrToInt(edtPocetPasem.Text))) do
> > // pet editu v kazdem radku
> > pole[I].Free;
> > end;
> >
> > Dekuju za jakoukoliv radu.
> >
> > Rincewind
> >
> > rincewind(zv)volny(tec)cz
> > 89356906(zv)pager.mirabilis.com
> >
> > ------------------------------------------------------------------
>
>
>Napoveda na vytvaranie helpu
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 21.10.2000 20:11:59
Zdravim.
Onoho casu som zahliadol, ze niekto si pytal navod na tvorbu helpu a bol mu
poskytnuty odkaz na archiv konferencie, ale aj som ho prehrabal na lokale v
KonfView ale neviem ho najst.
Kopnite ma prosim spravnym smerom.
Dakujem.
Roland - zufalec
Interbase a alokovani pameti pri zapisu.
[*] Ota Maly <maly(zv)space(tec)cz> - 21.10.2000 21:52:49
Ahoj,
nevim, jestli je tohle i tvuj problem, ale me se tohle stavalo, kdyz jsem
pouzival velke VARCHARy (treba 1000), coz je samozrejme chyba.
Nahradil jsem je BLOB SUB_TYPE 1 a bylo po problemu..
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Michal Tiller
Sent: Saturday, October 21, 2000 3:35 PM
To: Delphi Forum (E-mail)
Subject: Interbase a alokovani pameti pri zapisu.
Ahoj v�em, pros�m o pomoc.
Kdy� za�nu ps�t do db v interbasi, tak to pred prvnim zapisem zastavi a
zecne to alokovat mnoho RAM. Strasne to zdrzuje.
Mam celkem velkou db. Asi 10 tabulek do kterych do kazde kazdou hodinu pisu
asi 4000 rekordu. Data tam mam asi tyden stara. Proc se to chovat tak divne?
Dal jsem tomu lepsi pocitac (0,5GB RAM) a ono je to jeste horsi. Cim vic
pameti to muze alokovat, tim vic ji to bere a tim dele to trva. Setkal jste
se s tim nekdo nekdy?
Mnohokrat dekuji za kazde nasmerovani.
Michal Tiller
+420 (0608) 011 327, +420 (02) 71 17 13 88
Michal.Tiller(zv)oskarmobil.Cz
Jak zjistit seriove cislo disku ?
[*] Josef A. Cerny <vyvoj(zv)atlascon(tec)cz> - 22.10.2000 10:37:59
Zdravicko,
Mely by se prestat pouzivat vsechny alarmy, imobilizery, medved bloky,
construkty, kodovani skel, evidence cisel motoru, vyhledavani automobilu.
Vsechny ochrany se daji obejit a jenom obtezuji legalni majitele.
Josef Cerny
********************************************
* Josef A. Cerny
* analyst and programmer
*
* ATLAS consulting, spol. s r.o.
* Chocholouskova 9
* 709 16 Ostrava
* Czech Republic
*
* office : +420 69 661 64 32
* secretary: +420 69 661 33 33
* fax : +420 69 661 33 30
* e-mail : cerny(zv)atlascon(tec)cz
* WWW : http://www.atlascon(tec)cz
********************************************
DBGrid - aktualni zaznam
[*] Jan Naiser <tua(zv)wo(tec)cz> - 22.10.2000 12:00:54
Preji pekny den,
D5.01P
je mozne nejakym zpusobem zjistit aktualni record v DBGridu, tedy ten, na
ktery ukazuje indikator, jestlize se nachazim v udalosti OnDrawColumnCell
nebo OnDrawDataCell? Zatim se mi nepodarilo na nic prijit, protoze
ActiveRecord u Datasetu je Protected, takze se k nemu nedostanu.
Chtel bych obarvit cely radek aktualni pozice pri Options dgRowSelect:=
False tak, aby vypadal jako pri True (pro vetsi prehlednost), ale aby se
dalo pohybovat po jednotlivych bunkach horizontalne pomoci kl. sipek, coz
pri True nejde.
Nebo by mi stacilo vyresit uchovani a obnoveni pozice horizontalniho
ScrollBaru DBGridu pri refreshi dat, nebot, pokud se uzivatel diva na data
"za rohem", po refreshi se ScrollBar nastavi vzdy na zacatek, coz jest dosti
neprijemne. Pak by ale zbyvalo vyresit posun pomoci sipek v horizontale,
nebot pri nastavenem true se prevadi na posun vertikalni.
Za pripadne namety predem dekuji.
Honza Naiser.
OT Graficka karta
[*] Petr Ma��k <rtepema(zv)mbox.vol(tec)cz> - 22.10.2000 12:44:09
Omlouvam se za OT. Pod W98 provozuji dva monitory s kartami ATI a
S3Trio64V2. Pod W2000 je woknousy najdou, priradi svuj ovladac, ale
sekundarni karta nefunghuje. Hlasi chybu 10, karta nastartuje. nemata
nejakou radu ?
Petr Ma��k
RT electronic
OT Graficka karta
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.2000 13:29:54
From: "Petr Ma��k" <rtepema(zv)mbox.vol(tec)cz>
> Omlouvam se za OT. Pod W98 provozuji dva monitory s kartami ATI a
> S3Trio64V2. Pod W2000 je woknousy najdou, priradi svuj ovladac, ale
> sekundarni karta nefunghuje. Hlasi chybu 10, karta nastartuje. nemata
> nejakou radu ?
Ahoj,
S3Trio64V2 je uz opravdu *znacne* zastarala karta, takze pokud chces druhou
funkcni PCI kartu tak se podivej po nejake novejsi (nedoporucuji levne SiS
z Ciny).
Petr Vones, amatersky programator
Posielanie msg cez siet TCP/IP, NetBeui,IPX/SPX
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 22.10.2000 15:18:42
Caute
Chcel by som vediet, ci sa da urobit jedna vec:
Mat exacov na Win based klientoch, je jedno aka je siet
a posielat si medzi nimi spravy.
Priklad:
Pocitac X nieco zmeni v databanke (MDB).
Posle pocitacom ktori su naveseny na MDB (popisany v subore ktory je pri
nom)
spravu, ze ide zmenit, alebo zmenil to a to a ked je to pre nich aktualne,
refresnu/zakazu akciu.
Ide mi o to, aby som mohol simulovat C/S na nie C/S databaze...
Mam stiahnuty F.Piette komponenty, neviem ci to na toto pomoze.
Ak viete nejaky sposob odkial zacat,alebo iny lepsi sposob poradte.
C/S riesenie nie je vhodne z dovodu, ze siet je v 80% Novell a
nepredpokladam,
ze uzivatelia kvoli mojmu "jednoduchemu" softu budu chciet kupovat
Pervasive/Sybase/Oracle/Interbase
Pripadne menit siet na Win :-) (to by som nedoporucoval)
S pozdravom
Patrik Tesar
WaitFor "soubor je cely"
[*] Miroslav Novosad <mirnov(zv)atlas(tec)cz> - 22.10.2000 16:05:04
Ahoj,
potreboval bych zajistit cekani programu dokud jiny program nezapise do
urceneho souboru napr. nejaky *.log (ktery bych rad precetl) vse, co tam
chce zapsat.
Jinymi slovy: Jak testovat je-li soubor otevreny ci zavreny.
Mirek
Jak zjistit seriove cislo disku ?
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.10.2000 18:07:13
On 22 Oct 2000, at 10:37, Josef A. Cerny wrote:
> Mely by se prestat pouzivat vsechny alarmy, imobilizery, medved
> bloky,
> construkty, kodovani skel, evidence cisel motoru, vyhledavani
> automobilu. Vsechny ochrany se daji obejit a jenom obtezuji legalni
> majitele.
Hm, ruzne zabezpecovacky se pouzivat maji, ale takove, ktere
nebrani radnemu provozu a neobtezuji vic nez je unosne. Kdyz
nekomu houka pod mymi okny alarm, zejmena v noci, tak mam
chut mu to auto odpalit. A to jsem vcelku mirne povahy...
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
WaitFor "soubor je cely"
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 22.10.2000 18:18:25
Jak bych to resil pres IOResult - pokud je soubor otevreny, nemuzes jej otevrit. A pokud je soubor uzavreny, muzes jej otevrit
a mrknout se na obsah, zda-li je zmeneny.
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: "Miroslav Novosad" <mirnov(zv)atlas(tec)cz>
Subject: WaitFor "soubor je cely"> Ahoj,
>
> potreboval bych zajistit cekani programu dokud jiny program nezapise do
> urceneho souboru napr. nejaky *.log (ktery bych rad precetl) vse, co tam
> chce zapsat.
> Jinymi slovy: Jak testovat je-li soubor otevreny ci zavreny.
>
> Mirek
Instalace s BDE
[*] WEB ATLAS - SUKY <suky(zv)atlas(tec)cz> - 22.10.2000 18:25:11
Ahoj,
potrebuji poradit. Vytvoril jsem si instalaci v programu My Inno Setup
Extensions za pouziti SkriptMakeru. Pridal jsem do instalace i BDE, ale jak
vytvorim v BDE alias s cestou do adresare na Paradox tabulky?
Daji se vubec nejak vytvaret tyto aliasy i z aplikace v Delphi a pokud ano
jak.
Predem Vam vsem dekuji.
Michal
BLOB v stored procedure
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 22.10.2000 18:39:07
Ahoj,
mam problem so stored procedure ktora vytvara kopiu zaznamu v tabulke
obsahujucej pole typu BLOB. Kopia zaznamu ma ten isty BLOB-ID, co sposobi
problem ak ktorykolvkek z tychto zaznamov bude vymazany. Pri pokuse o
otvorenie zaznamu ktory ostal v tabulke pride ku chybe SQLCODE=-901(BLOB not
found).
Moja otazka: ako zabezpecit aby pri vytvarani kopie zaznamu, bola vytvorena
aj kopia BLOB-pola s novym BLOB-ID?
Pouzivam takuto proceduru.
Create procedure CopyRecord(RecordID Integer) Returns (NewRecordID Integer)
As
Declare Variable Field1 Char(20);
Declare Variable Field2 Blob Sub_Type Text;
Begin
Select Field1, Field2 Form ATable Where RecordID=:RecordID
Into :Field1, :Field2;
NewRecordID=Gen_ID(Gen_RecordID, 1);
Insert Into ATable (RecordID, Field1, Field2) Values (:NewRecordID,
:Field1, :Field2);
End
Ako by som mal tuto proceduru upravit, aby pole Field2 (Blob) v novej kopii
vytvorilo uplne novy Blob, nie len novy odkaz na ten isty Blob?
Dik,
Pavol Stolc
pstolc(zv)sc.sknet.sk
WaitFor "soubor je cely"
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 22.10.2000 18:40:58
Jo, a provedes to nasledovne:
{$I-}
assign(FileIN,TextIN);
// k souboru priradis jmeno,
Reset(FileIN);
// potom nejak zazadas OS o otevreni
if IOResult<>0 then chyba:=true;
// a pokud jiz neexistuje, je vadny nebo jiz otevreny *) nastavi
// se tady chyba a provede se kod az za {$I+}
...
// pokud je vse OK, mas tady jiz otevreny soubor a provadis s nim co potrebujes
Close(FileIN);
// nezapomen jej zase uzavrit
{$I+}
// tady si otestujes chybu
*) myslim, ze chyba se nehodi, pokud oteviras soubor, ktery si uz otevrel ve stejnem programu (zalezi tom, cim to oteviras) a
zapomnel ho uzavrit
Ber me trochu s rezervou, se soubory jsem nepracoval uz celicky rok :-).
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: "Miroslav Novosad" <mirnov(zv)atlas(tec)cz>
Subject: WaitFor "soubor je cely"> Ahoj,
>
> potreboval bych zajistit cekani programu dokud jiny program nezapise do
> urceneho souboru napr. nejaky *.log (ktery bych rad precetl) vse, co tam
> chce zapsat.
> Jinymi slovy: Jak testovat je-li soubor otevreny ci zavreny.
>
> Mirek
OT Re: WaitFor "soubor je cely"
[*] Adam Feistner <feistna(zv)volny(tec)cz> - 22.10.2000 18:43:45
Omlouvam se vsem v konferenci za tu duplicitu, nejak jsem se s tim Expressem nepohodnul...Jak zjistit seriove cislo disku ?
[*] Erik Salaj <winsoft(zv)napri.sk> - 22.10.2000 19:35:07
> Mely by se prestat pouzivat vsechny alarmy, imobilizery, medved bloky,
> construkty, kodovani skel, evidence cisel motoru, vyhledavani automobilu.
> Vsechny ochrany se daji obejit a jenom obtezuji legalni majitele.
Tieto zariadenia nechrania vyrobcu ale spotrebitela na rozdiel od sw/hw
klucov. A nikto Ta nenuti tieto zariadenia pouzivat.
Erik Salaj, WINSOFT
Stupidne-jak pouzit Case of
[*] <bejcek(zv)centrum(tec)cz> - 22.10.2000 19:59:45
Poradite mi nekdo jak se pouziva Case of nejak neumim priradit
spravnou promennou, neporadite mi, bodla by hlavne nejaka jasna
ukazka.,
uprimne se stydim...
Ales Pavel Amater vsech amateru....
K chatov�n� je tu http://www.XChat(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
OT: Kodek na MPEGy
[*] Spider <spider_x(zv)sendme(tec)cz> - 22.10.2000 20:03:35
Sorry za O.T. Potreboval bych poradit s tim jak mam znova nainstalovat
standartni windowsovej kodek na prehravani MPEG animaci, omylem jsem ho v
ovladacim panelu multimedia smazal a nevim jak tam s nim zpatky. Skousel
jsem to pres pridat novy hardware, ale nikde jsem ho tam nenasel. (mam widle
98 ENG). Jak to tak vypada, tak asi budu muset preinstalovat widle ... :-(((
Poradi mi nekdo ???
Spider
(spider_x(zv)sendme(tec)cz)
Com port
[*] Radim Holan <radim.holan(zv)seznam(tec)cz> - 22.10.2000 21:17:17
dobry den,
potrebuju udelat aplikaci ktera by konikovala s mobilem pres kabel pres AT
prikazy.
Muzete mi pomoci :
jak se aktivuje com1 port?
jak se pracuje s com1 portem?
pripadne jestli byste mi neposlali nejaky priklad ci dali odkaz, kde bych
to mohl najit.... Diky Radim Holan
Kodek na MPEGy
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 22.10.2000 21:28:42
Nainstalovat Media Player ?
Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Spider
> Sent: Sunday, October 22, 2000 8:04 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: OT: Kodek na MPEGy
>
>
> Sorry za O.T. Potreboval bych poradit s tim jak mam znova nainstalovat
> standartni windowsovej kodek na prehravani MPEG animaci, omylem jsem ho v
> ovladacim panelu multimedia smazal a nevim jak tam s nim zpatky. Skousel
> jsem to pres pridat novy hardware, ale nikde jsem ho tam nenasel.
> (mam widle
> 98 ENG). Jak to tak vypada, tak asi budu muset preinstalovat
> widle ... :-(((
>
> Poradi mi nekdo ???
>
> Spider
>
> (spider_x(zv)sendme(tec)cz)
>
>Automaticke doplnovani
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 22.10.2000 21:33:09
Ahoj,
tu je co hladas
Adding text completion to a TComboBox
http://community.borland.com/article/print/0,1772,20450,00.html
Pavol Stolc
pstolc(zv)sc.sknet.sk
----- Original Message -----
From: Lukas Strmiska <strma(zv)volny(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 20, 2000 9:13 PM
Subject: Automaticke doplnovani
> Jde nejak nastavit ComboBox tak, aby automaticky podle napsanych pismen
> doplnoval frazi, jako to dela napr. MS-Internet Explorer, pri doplnovani
> adresy?
> Bye, Lucas.Access violation at address 0044F45E in module ...
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 22.10.2000 21:42:59
Ahoj,
nikde nevidim inicializaciu premennej konI. Ak je to privatna premenna,
ktora sa inicializuje len pri vytvoreni formulara Form2, potom po
niekolko-nasobnom spusteni btnVytvorClick, btnZpetClick musi dojst k AV,
lebo vytvaras do pola od indexu=konI, ale mazes vzdy od indexu=1. Mozno sa
mylim...
Pavol Stolc
pstolc(zv)sc.sknet.sk
----- Original Message -----
From: Petr Ha�lar <rincewind(zv)volny(tec)cz>
To: Delphi Konference <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 20, 2000 11:55 PM
Subject: Access violation at address 0044F45E in module .... Read of Address
FFFFFFFF
> Ahoj,
> mam takovy problem s procedurou Free. Vytvorim si na formulari za behu
> pole editu a to potom zrusim pomoci free. Kdyz to nekolikrat zopakuji,
dojde
> k chybe:
>
> Access violation at address 0044F45E in module .... Read of Address
FFFFFFFF
>
> pouzivam tyto procedury:
>
> procedure Radek(posun: integer);
> var I: integer;
> begin
> for I:=konI to (konI+4) do begin
> pole[I]:=TEdit.Create(Form2);
> with pole[I] do begin
> left:=25+(I-KonI)*53;
> top:=80+30*posun;
> width:=40;
> parent:=Form2;
> show;
> end;
> end;
> konI:=konI+5;
>
> end;
>
> procedure TForm2.btnVytvorClick(Sender: TObject);
> var I: integer;
> begin
> for I:=1 to (StrToInt(edtPocetPasem.Text)) do
> Radek(I);
> end;
>
> procedure TForm2.btnZpetClick(Sender: TObject);
> var I: integer;
> begin
> for I:=1 to (5*(StrToInt(edtPocetPasem.Text))) do
> // pet editu v kazdem radku
> pole[I].Free;
> end;
>
> Dekuju za jakoukoliv radu.
>
> Rincewind
>
> rincewind(zv)volny(tec)cz
> 89356906(zv)pager.mirabilis.com
>
> ------------------------------------------------------------------
Lokalizacie projektu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.2000 21:49:15
From: "Roland Tur�an (RoTurSoft)" <rotursoft(zv)nextra.sk>
> Hral som sa s nastrojmi D5 ohladom jazykov. Ale ja pouzivam rozne *.inc
> subory s definovanymi textami ako CONST a ako to mam urobit aby sa mi dali
> aj tie nejako jednoducho prelozit (pouzitie direktiv,...)
Ahoj,
jediny zpusob je pouzivat prostredky k tomu urcene, tedy definovat veskere
retezcove konstanty v kodu urcene k lokalizaci jako resourcestring. Nevidim
v tom zadny problem, v kompilatoru je to prece vyreseno vcelku pohodlne.
> Alebo je nieco lepsie na lokalizaciu ako nastroj v D5.
Nastroju na lokalizaci je samozrejme vice, treba http://www.localizator.com
ale zakladni princip (tedy pouzivani resourcestring) je u vsech stejny.
Petr Vones, amatersky programator
Instalace s BDE
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 22.10.2000 21:57:12
Ahoj,
pozri v helpe TSession.AddAlias
Pavol Stolc
pstolc(zv)sc.sknet.sk
----- Original Message -----
From: WEB ATLAS - SUKY <suky(zv)atlas(tec)cz>
To: DELPHI - Konference <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, October 22, 2000 6:25 PM
Subject: Instalace s BDE
> Ahoj,
>
> potrebuji poradit. Vytvoril jsem si instalaci v programu My Inno Setup
> Extensions za pouziti SkriptMakeru. Pridal jsem do instalace i BDE, ale
jak
> vytvorim v BDE alias s cestou do adresare na Paradox tabulky?
> Daji se vubec nejak vytvaret tyto aliasy i z aplikace v Delphi a pokud ano
> jak.
>
> Predem Vam vsem dekuji.
>
> Michal
>Stupidne-jak pouzit Case of
[*] Pavol Stolc <pstolc(zv)sc.sknet.sk> - 22.10.2000 22:00:52
Ahoj,
podla manualu je premenna pre case of ordinalneho typu (byte, char,
integer, ... rozhodne nie string). Bolo by zaujimave, keby si uviedol o co
si sa pokusal a neslo to.
Pavol Stolc
pstolc(zv)sc.sknet.sk
----- Original Message -----
From: <bejcek(zv)centrum(tec)cz>
To: Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, October 22, 2000 7:59 PM
Subject: Stupidne-jak pouzit Case of
Poradite mi nekdo jak se pouziva Case of nejak neumim priradit
spravnou promennou, neporadite mi, bodla by hlavne nejaka jasna
ukazka.,
uprimne se stydim...
Ales Pavel Amater vsech amateru....
K chatov�n� je tu http://www.XChat(tec)cz
Zalo�te si sv�j mail na http://mail.centrum(tec)cz
OT Graficka karta
[*] Petr Jel�nek <pjmodos(zv)yo(tec)cz> - 22.10.2000 22:10:02
Hmm mozna bych se zkusil podivat na nastaveni IRQ - pokud maj ty karty
stejne IRQ tak ta druha nemuze bezet.
A k tomu NEdoporuceni SiS se pripojuju - na co kupovat jeste horsi nez mas.
Zdravi
Petr Jelinek - amatersky programator
Homepage: http://pjmodos.fbi(tec)cz, http://pjmodos.yo(tec)cz
Komponenty pro Delphi: http://lunasoft.hyperlink(tec)cz/index5.htm
Vyhledavani: http://www.barevnylist(tec)cz/visitor.php?ref=pjmodos
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, October 22, 2000 1:29 PM
Subject: Re: OT Graficka karta
> From: "Petr Ma��k" <rtepema(zv)mbox.vol(tec)cz>
> > Omlouvam se za OT. Pod W98 provozuji dva monitory s kartami ATI a
> > S3Trio64V2. Pod W2000 je woknousy najdou, priradi svuj ovladac, ale
> > sekundarni karta nefunghuje. Hlasi chybu 10, karta nastartuje. nemata
> > nejakou radu ?
>
> Ahoj,
>
> S3Trio64V2 je uz opravdu *znacne* zastarala karta, takze pokud chces
druhou
> funkcni PCI kartu tak se podivej po nejake novejsi (nedoporucuji levne SiS
> z Ciny).
>
> Petr Vones, amatersky programator
>
OT: Maly problemek s Accessem
[*] L.Svoboda <svoboda(zv)fdsystem(tec)cz> - 22.10.2000 22:10:47
Zdravim
Samozrejme, ze to lze propojit primo v Accessu.
Ale muj navrh vychazel z toho, aby to bylo
co mozna nejjednodussi, tedy i bez nutnosti
umet pracovat v Accessu, tot vse :-)
Preji hezky den
Ing. Ludek Svoboda
svoboda(zv)fdsystem(tec)cz
webmaster(zv)e-region(tec)cz
> > Ahoj
> >
> > Kdyz uz to ma byt takhle, tak bych videl dva mozne postupy.
> >
> > 1) pouze Access (bez programovani)
> > - vzit starou tabulku s hotovymi preklady
> > - udelat export, napriklad do CSV
> > - vzit novou tabulku a do ni to naimportovat
>
> ??? ten export je proc? staci naimportovat /nebo lepe propojit/ starou
databazi
> s novou a pak uz jenom napsat vhodny dotaz, ktery aktualizuje existujici
> radky... v nejhorsim bude nutne nejak rozume prejmenovat tabulky ze stare
> databaze, aby nebyly duplicitni, btw. je-li jich moc, muze se to udelat
> programove /stejne tak programove propojit, spustit dotaz, odpojit/, je to
> podobne jako v Delphach, mozna jednodussi...
>
> Roman
>
>
>
>Instalace s BDE
[*] WEB ATLAS - SUKY <suky(zv)atlas(tec)cz> - 22.10.2000 22:37:56
No a je to,
Prinutil jsem se prozkoumat Internet a hledal jsem navod jak z programu
pracovat s aliasy v BDE. Nasel jsem na serveru about.com navod a ted jsem uz
za vodou :)
Pokud snad nekdo potrebuje vyresit stejny problem jako jsem resil ja a je
linej hledat na internetu, prikladam priklad.
******** Novy ALIAS: **********
uses DBTables;
var
dbAlias, dbPath : string;
Dir: string;
dbAlias := 'ALIAS';
dbPath := 'Adresar';
Session.AddStandardAlias(dbAlias, dbPath, 'PARADOX');
Session.SaveConfigFile;
******** Zmena cesty pro ALIAS: *********
uses DBTables;
var
AParams: TStringList;
Dir: string;
AParams := TStringList.Create;
try
// Nastavit novou cestu k datum
AParams.Clear;
AParams.Add('PATH=' + Dir);
Session.ModifyAlias('ALIAS',AParams);
Session.SaveConfigFile;
finally
AParams.Free;
end;
Michal
Create Table - Access
[*] Jaro Hrabe <uli(zv)internet.sk> - 22.10.2000 22:39:57
Pekny den preji,
prosim o radu ohledne vytvoreni, (prekopirovani)
tabulky v Accessu. Nepotrebuji kopirovat data, pouze strukturu.
Zkousel jsem BatchMove, take Table1.createTable s prislusnymi
parametry,
ale vzdy pokus skoncil neuspesne. Ovladac ODBC MS Access
hlasil chybu, ze nemam potrebna prava. A mohu je ziskat od
spravce systemu a nebo toho, kdo objekt vytvoril.
Mozna by to slo pres SQL (CREATE TABLE), ale nevim
jak napsat datove typy MS Access tabulky.
(Pokus byl (Datovy typ CHAR), ale chybova hlaska stejna)
Na Access pristupuji pres BDE.
Za kazdou radu predem dekuji
Jaro
Jak odchytnu ukonceni editovani nodu u TreeView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.2000 23:01:44
From: "Ale� Va���ek" <vasicek(zv)ecommerce(tec)cz>
> zajimalo by me, jak odchytnu ukonceni editovani nodu u TreeView. Jde totiz o
> to, ze kdyz uzivatel edituje nejakej node a stiskne ESC, tak se nevyvola ani
> udalost OnEdited, ani OnKeyDown. Co s tim? Potrebuju vedet, ze uzivatel
Ahoj,
v komponente TJvTreeView je pridana udalost OnEditCancelled, ke stazeni tady:
http://www.geocities.com/beckmi/jvcl.htm
http://delphi-jedi.org/Jedi:VCLCOMPONENTS
http://www.volweb(tec)cz/pvones/download/JediVCLpv.zip
Petr Vones, amatersky programator
http://www.volweb(tec)cz/pvones/delphi/
Com port
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.2000 23:01:00
From: "Radim Holan" <radim.holan(zv)seznam(tec)cz>
> jak se aktivuje com1 port?
> jak se pracuje s com1 portem?
>
> pripadne jestli byste mi neposlali nejaky priklad ci dali odkaz, kde bych
> to mohl najit....
Ahoj,
treba tady: http://delphree.clexpert.com/pages/app_ASYNCFREE.htm
Petr Vones, amatersky programator
ADO Express Informal Update
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.2000 23:09:00
Ahoj,
13.10. byl vypusten dalsi 'neoficialni' update na ADO Express komponenty:
http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=14080
Petr Vones, amatersky programator
WaitFor "soubor je cely"
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 22.10.2000 23:25:22
From: "Adam Feistner" <feistna(zv)volny(tec)cz>
> Jak bych to resil pres IOResult - pokud je soubor otevreny, nemuzes jej
otevrit.
Ahoj,
ja bych spise pouzil funkce pro praci se soubory. Slo by pouzit nasledujici
funkci, zalezi vsak na tom, v jakem rezimu sdileni ma dana aplikace ten log
otevreny. Predpokladam ze zapis neni povolen.
function IsFileOpenForWrite(const FileName: TFileName): Boolean;
var
FileHandle: THandle;
begin
FileHandle := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);
Result := (FileHandle = INVALID_HANDLE_VALUE);
if not Result then FileClose(FileHandle);
end;
Petr Vones, amatersky programator
problem s Foxpro tabulkami
[*] Ren� Otisk - 23.10.2000 05:39:58
Pak tam byl i pristup pres DAO - tusim TKADaoDatabase a KADaoTable (umi
takovej TTAble a TQuery dohromady), neco jsem na tom zkousel (Pdox a MS
Access) a na nic jsem nenarazil, i kdyz to zkoumani nebylo prilis do hloubky
Sroub
> Pokud potrebujes tabulku pouze otevrit a cist, nepotrebujes indexy a memo
> pole, na Chipu byla free komponenta (docela pokrocila), ktera umela s DBF
> soubory pracovat (vcetne zapisu), kompatibilni s TTable, ale nepotrebuje
> BDE. Indexy samozrejme nebere v uvahu, takze te "druhe" aplikaci bys pri
> zmene indexovane polozky zapisem zpusobil problemy.
>
> Jan Fiala
>
> ----- Original Message -----
> From: "Roman Toda" <toda(zv)technickenormy.com>
>
> > > Pristup pres ODBC, a to jeste ne ve vsech pripadech, ale mas mnohem
> vetsi
> > > sanci nez pres nativni ovladac BDE. Ty bys chtel, aby mel BDE v sobe
> > > implementovany vsechny funkce FoxPro pripadajici v uvahu ?
> >
> > Mne samozrejme staci, aby mi to otvorilo ako DBD bez indexov (readonly).
> > Myslel som, ze by mohlo existovat nieco ako callback v BDE v ktorom by
sa
> > dalo povedat "nevadi, ze nevies pouzit indexy - tabulku otvor!"
> >
> > RT
> >
> >Kodek na MPEGy
[*] Petr Sladk� <sweet(zv)ksprogram(tec)cz> - 23.10.2000 07:31:03
Zalezi na tom, kteryho mpega mas na mysli.
Pokud je to standartni, tak by ti mnel stacit nainstalovat MediaPlayer, ale pokud
je to 4, tak si musis nainstalovat specialni kodek DIVX,kdyby jsi ho nemnel,tak zaslu posledni jeho verzi.
Jinak na 98 se hodi tak MP6, 7MP si tam nedavej, je delana pro ME na 98 moc nejede.
sweet
-----P�vodn� zpr�va-----
Od: Spider [SMTP:spider_x(zv)sendme(tec)cz]
Odesl�no: 22. ��jna 2000 20:04
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: OT: Kodek na MPEGy
Sorry za O.T. Potreboval bych poradit s tim jak mam znova nainstalovat
standartni windowsovej kodek na prehravani MPEG animaci, omylem jsem ho v
ovladacim panelu multimedia smazal a nevim jak tam s nim zpatky. Skousel
jsem to pres pridat novy hardware, ale nikde jsem ho tam nenasel. (mam widle
98 ENG). Jak to tak vypada, tak asi budu muset preinstalovat widle ... :-(((
Poradi mi nekdo ???
Spider
(spider_x(zv)sendme(tec)cz)
WaitFor "soubor je cely"
[*] Ji�� Vojtek - 23.10.2000 07:41:30
Ahoj,
jeste je dobre si ten soubor otevrit ve vyhradnim rezimu. Ja mel napriklad
ten problem, ze kdyz jsem nakopirovaval velky soubor a muj program, ktery
hlida adresar se ho v klidu pokusil prehrat, protze ho Comander kopiruje
jnajak zahadne
(kontroloval jsem to podobne) Kdyz jsem ale nastavil otevreni ve vyhradnim
rezimu chodi
to spolehlive.
Mejte se J. Vojt.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Adam Feistner
Sent: Sunday, October 22, 2000 6:41 PM
To: Delphi konference
Subject: Re: WaitFor "soubor je cely"
Jo, a provedes to nasledovne:
{$I-}
assign(FileIN,TextIN);
// k souboru priradis jmeno,
Reset(FileIN);
// potom nejak zazadas OS o otevreni
if IOResult<>0 then chyba:=true;
// a pokud jiz neexistuje, je vadny nebo jiz otevreny *) nastavi
// se tady chyba a provede se kod az za {$I+}
...
// pokud je vse OK, mas tady jiz otevreny soubor a provadis s
nim co potrebujes
Close(FileIN);
// nezapomen jej zase uzavrit
{$I+}
// tady si otestujes chybu
*) myslim, ze chyba se nehodi, pokud oteviras soubor, ktery si uz otevrel ve
stejnem programu (zalezi tom, cim to oteviras) a
zapomnel ho uzavrit
Ber me trochu s rezervou, se soubory jsem nepracoval uz celicky rok :-).
Adam Feistner
feistna(zv)volny(tec)cz
www.volny(tec)cz/feistna/cz.htm
----- Original Message -----
From: "Miroslav Novosad" <mirnov(zv)atlas(tec)cz>
Subject: WaitFor "soubor je cely"> Ahoj,
>
> potreboval bych zajistit cekani programu dokud jiny program nezapise do
> urceneho souboru napr. nejaky *.log (ktery bych rad precetl) vse, co tam
> chce zapsat.
> Jinymi slovy: Jak testovat je-li soubor otevreny ci zavreny.
>
> Mirek
Com port
[*] Ji�� Vojtek - 23.10.2000 07:42:59
Ahoj delam neco podobneho a momentalne jsem naprosto spokojen
s komponentou ComPort Lib 2.61a Tam musis doplnit jen minimum vlastniho
kodu a chodi to. Adresu Ti bohuzel neposlu, protoze mi umrely Wokna a ja
prisel
o vsechny adresy jak lidi tak WWW. Zivot je zmena :-)
J. Vojt.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Radim Holan
Sent: Sunday, October 22, 2000 9:17 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Com port
dobry den,
potrebuju udelat aplikaci ktera by konikovala s mobilem pres kabel pres AT
prikazy.
Muzete mi pomoci :
jak se aktivuje com1 port?
jak se pracuje s com1 portem?
pripadne jestli byste mi neposlali nejaky priklad ci dali odkaz, kde bych
to mohl najit.... Diky Radim Holan
Napoveda na vytvaranie helpu
[*] Kalhous Zdenek <zdenek.kalhous(zv)comarr(tec)cz> - 23.10.2000 07:47:34
Neco o tvorbe helpu je napriklad v "Sedlacek-Slaba: Delphi v
kostce".
On 21 Oct 2000, at 20:11, Roland Tur�an (RoTurSoft) wrote:
Zdravim.
Onoho casu som zahliadol, ze niekto si pytal navod na tvorbu helpu a bol mu
poskytnuty odkaz na archiv konferencie, ale aj som ho prehrabal na lokale v
KonfView ale neviem ho najst.
Kopnite ma prosim spravnym smerom.
Dakujem.
Roland - zufalec
Z.Kalhous
Interbase - textovy blob v Insertu
[*] Libor Filip <filip(zv)agrokonzulta(tec)cz> - 23.10.2000 08:13:37
Dobry den,
nevite, kde by se dala ta FreeUDFLib od Grega Daetz sehnat a jestli
podporuje cestinu?
Predem diky za odpoved
Libor
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
Karel B�ich���
Odesl�no: 20. ��jna 2000 9:43
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: Interbase - textovy blob v Insertu
Ahoj,
existuje.
Pouzij FreeUDFLib od Grega Daetz. A muzes potom zapsat:
insert into clanky(id,obsah) values (1,F_STRBLOB('Tady je BLObova
polozka'));
Zdravim
Brichna
> Ahoj,
> chci si overit, zda neexistuje nejaka cesta, jak zadat textovy blob
> (SUB_TYPE TEXT) primo z ISQL (ibaccess, wisql,...) do prikazu INSERT.
>
> Proste neco jako:
> insert into clanky(id,obsah) values (1,'Tady je BLObova polozka');
> Interbase napise chybu: CONVERSION ERROR FROM STRING "BLOB".
>
> Z programu pres kurzor to jde, ale z ISQL?
>
> Diky
> Leos
>
>
Skrzta app
[*] Martin Bobak <bobak(zv)minv.sk> - 23.10.2000 08:37:09
Dobry den,
potreboval by som poradit, ako skryt aplikaciu tak aby ju nebolo vidiet v task managerovi, ani nikde inde
d~
Bobek
Poslat mail+priloha z programu
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 23.10.2000 08:58:38
Oprava - pro POP3 je standardni port 25 !!!!!
Milan Tomes
>
> pro SMTP je to standardne 110 a pro POP3 je to standardne 23
>
> Milan Tomes
>
> > Zdravim
> > V Delphi je na to priklad
> > (...\Delphi5\Demos\FastNet\Smtp\smtpdemo.dpr), je
> > to docela srozumitelne, jenom jednu vec nevim. K cemu se zadava
> > cislo portu
> > a jak ho zjistim (NMSMTP1.Port := ...) ? Napovite mi nekdo ???
> Diky. D.V.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000
Interbase - textovy blob v Insertu
[*] Karel B�ich��� - 23.10.2000 09:32:05
Ahoj,
da se najit treba na
http://www.ibphoenix.com/ibp_contrib_download.html
Zdravim
Brichna
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Libor Filip
> Sent: Monday, October 23, 2000 8:14 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: RE: Interbase - textovy blob v Insertu
>
>
> Dobry den,
> nevite, kde by se dala ta FreeUDFLib od Grega Daetz sehnat a jestli
> podporuje cestinu?
>
> Predem diky za odpoved
> Libor
>
> -----P�vodn� zpr�va-----
> Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]za u�ivatele
> Karel B�ich���
> Odesl�no: 20. ��jna 2000 9:43
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: RE: Interbase - textovy blob v Insertu
>
>
> Ahoj,
> existuje.
>
> Pouzij FreeUDFLib od Grega Daetz. A muzes potom zapsat:
> insert into clanky(id,obsah) values (1,F_STRBLOB('Tady je BLObova
> polozka'));
>
> Zdravim
> Brichna
>
>
> > Ahoj,
> > chci si overit, zda neexistuje nejaka cesta, jak zadat textovy blob
> > (SUB_TYPE TEXT) primo z ISQL (ibaccess, wisql,...) do prikazu INSERT.
> >
> > Proste neco jako:
> > insert into clanky(id,obsah) values (1,'Tady je BLObova polozka');
> > Interbase napise chybu: CONVERSION ERROR FROM STRING "BLOB".
> >
> > Z programu pres kurzor to jde, ale z ISQL?
> >
> > Diky
> > Leos
> >
> >
>
>Jak schovat ScrollBar v ListView?
[*] Ales Janda <ales.janda(zv)atlas(tec)cz> - 23.10.2000 09:33:56
Zkus ShowScrollBar(ListView.Handle, SB_VERT, False)
Ales
----- Original Message -----
From: Petr Fischer <fifa(zv)praguesoft(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, October 20, 2000 7:54 PM
Subject: Jak schovat ScrollBar v ListView?> Zdravim,
>
> potreboval bych natvrdo schovat ScrollBar v ListView (pohled
> vsReport). Jde to (urcite jo :-)???
>
> Dekuji, Petr Fischer
>
> Delphi5
Com port
[*] Krska Vit <v_krska(zv)del(tec)cz> - 23.10.2000 09:37:36
ahoj, ComPort Lib 2.61a je na www.torry.ru
vitek
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Ji�� Vojtek
Sent: Monday, October 23, 2000 7:43 AM
To: delphi-l(zv)fwd(tec)cz
Subject: RE: Com port
Ahoj delam neco podobneho a momentalne jsem naprosto spokojen
s komponentou ComPort Lib 2.61a Tam musis doplnit jen minimum vlastniho
kodu a chodi to. Adresu Ti bohuzel neposlu, protoze mi umrely Wokna a ja
prisel
o vsechny adresy jak lidi tak WWW. Zivot je zmena :-)
J. Vojt.
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Radim Holan
Sent: Sunday, October 22, 2000 9:17 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Com port
dobry den,
potrebuju udelat aplikaci ktera by konikovala s mobilem pres kabel pres AT
prikazy.
Muzete mi pomoci :
jak se aktivuje com1 port?
jak se pracuje s com1 portem?
pripadne jestli byste mi neposlali nejaky priklad ci dali odkaz, kde bych
to mohl najit.... Diky Radim Holan
Zjisteni frekvence procesoru, velikosti pameti, ap
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 23.10.2000 09:37:07
Zdravim,
nemate nekdo komponentu (D4) na zjisteni typu a frekvence procesoru,
pripadne velikosti operacni pameti?
Diky.Zjisteni frekvence procesoru, velikosti pameti, ap
[*] azeleny(zv)csas(tec)cz - 23.10.2000 10:20:03
Treba takto, ale bez zaruky, nekde jsem nasel cosi, co jsem si nasledovne
upravil...
function TMainForm.GetCPUSpeed: Double;
var
t: DWORD;
mhi, mlo, nhi, nlo: DWORD;
vysl,t0, t1, chi, clo, shr32: Comp;
const
SMALL_INT = 65536;
begin
Result:= -1;
shr32 := SMALL_INT;
shr32 := shr32 * SMALL_INT;
t := GetTickCount;
while t = GetTickCount do begin end;
asm
DB 0FH
DB 031H
mov mhi,edx
mov mlo,eax
end;
while GetTickCount < (t + 1000) do begin end;
asm
DB 0FH
DB 031H
mov nhi,edx
mov nlo,eax
end;
chi := mhi; if mhi < 0 then chi := chi + shr32;
clo := mlo; if mlo < 0 then clo := clo + shr32;
t0 := chi * shr32 + clo;
chi := nhi; if nhi < 0 then chi := chi + shr32;
clo := nlo; if nlo < 0 then clo := clo + shr32;
t1 := chi * shr32 + clo;
vysl := (t1 - t0) / 1E6;
Result:= Vysl;
// MessageDlg(Format('CPU speed: %.1f MHz', [vysl]), mtInformation,
[mbOk], 0);
end;
> -----Original Message-----
> From: Krayzel Libor [mailto:Libor.Krayzel(zv)czech-tv(tec)cz]
> Sent: Monday, October 23, 2000 9:37 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: Zjisteni frekvence procesoru, velikosti pameti, apod.
>
>
> Zdravim,
>
> nemate nekdo komponentu (D4) na zjisteni typu a frekvence procesoru,
> pripadne velikosti operacni pameti?
>
> Diky.
> Ikona k service
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 23.10.2000 10:22:54
> From: "Zbysek Hlinka" <zhlinka(zv)login(tec)cz>
> > > From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
> > > > MS tvrdi, ze system generuje zpravu pri prihlaseni / odhlaseni
> > > > uzivatele (wm_userchanged) _VSEM_ oknum. ALE nikdy jsem ji nevidel
> > > > :-(. Pokousel jsem
> > >
> > > podle popisu ji posila vsem top-level oknum, takze by jsi ji mel byt
> > > schopen odchytit v TApplication, pomoci TApplicationEvents.OnMessage.
> >
> > Zkousel jsem to odchytit takto, i pres WndProc hlavniho okna, ale
> > ani jedno to nebere. Jeste zbyva jit po krku servisu, zda to nekde
> > nechyta on.
>
> Aha, ted jsme meli asi kazdy namysli neco jineho. Ja jsem myslel prave tu
> registrovanou zpravu. Ohledne WM_USERCHANGED, tato zprava se neposila na
NT
> ale jen na Win9x.
>
cerpas jen z dokumentace nebo z vlastni zkusenosti? Zkousel jsem to
samozrejme na Win9x a zprava nedorazila..
Zdravi
D. Toman
Posielanie msg cez siet TCP/IP, NetBeui,IPX/SPX
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 23.10.2000 10:24:02
Pro podobny problem pouzivam databazi Paradox, do ktere se zapisuji sdeleni
o tom, co se stalo. Klientske aplikace si ji kazdych par sekund prectou,
provedou co je treba a prislusny zaznam se smaze. Zatim to vsem zakaznikum
funguje, provoz ovsem neni nijak zavratny, tezko rici, jak by se to chovalo
pri vetsim provozu. Kdyz tak napis na soukromy mail, rad poskytnu
podrobnejsi info.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: Ing. Patrik Tesar [mailto:tesar(zv)rainside.sk]
Sent: Sunday, October 22, 2000 3:19 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Posielanie msg cez siet TCP/IP, NetBeui,IPX/SPX
Caute
Chcel by som vediet, ci sa da urobit jedna vec:
Mat exacov na Win based klientoch, je jedno aka je siet
a posielat si medzi nimi spravy.
Priklad:
Pocitac X nieco zmeni v databanke (MDB).
Posle pocitacom ktori su naveseny na MDB (popisany v subore ktory je pri
nom)
spravu, ze ide zmenit, alebo zmenil to a to a ked je to pre nich aktualne,
refresnu/zakazu akciu.
Ide mi o to, aby som mohol simulovat C/S na nie C/S databaze...
Mam stiahnuty F.Piette komponenty, neviem ci to na toto pomoze.
Ak viete nejaky sposob odkial zacat,alebo iny lepsi sposob poradte.
C/S riesenie nie je vhodne z dovodu, ze siet je v 80% Novell a
nepredpokladam,
ze uzivatelia kvoli mojmu "jednoduchemu" softu budu chciet kupovat
Pervasive/Sybase/Oracle/Interbase
Pripadne menit siet na Win :-) (to by som nedoporucoval)
S pozdravom
Patrik Tesar
Standardni porty pro SMTP a POP3
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 23.10.2000 10:33:14
Diky vsem - uz jsem poslal opravu - skutecne jde o omyl (nevim proc, ale
tyhle dva porty si vzdycky spletu).
Milan Tomes
> DDV,
>
> ne ze by bylo nemozne pouzivat porty jine, ale to se pak asi
> jedna o nejake
> specificke uziti.
> Standardni cisla portu jsou definovana v RFC (nevim kterem), ale ty ktere
> mne zajimaly jsem doposud vzdy nasel v souboru:
> $SYSTEMDRIVE\winnt\system32\drivers\etc\services
> ...
> smtp 25/tcp mail
> ...
> pop3 110/tcp postoffice
>
> Samozrejme, je mozne ze nejaka sit ma nastaven POP3 na port 23 a
> SMTP na 110
> a pro vnejsi spojeni pouziva nejkay vice ci mene sofistikovany
> firewall, ale
> mam pocit, ze tady jde o omyl.
>
> > pro SMTP je to standardne 110 a pro POP3 je to standardne 23
>
> Pekny weekend!
>
> -----------------------------------------------------------------------
> Ales Zeleny
> Ceska sporitela a.s.
> Na Perstyne 1
> Praha 1
> 113 98
> Czech republic
> Email: azeleny(zv)csas(tec)cz
> tel: +420 2 24995 236
> -----------------------------------------------------------------------
> Due to technical difficulties tomorrow has been postponed indefinitely.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000
Stupidne-jak pouzit Case of
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 23.10.2000 08:40:29 met-1
> Poradite mi nekdo jak se pouziva Case of nejak neumim priradit
> spravnou promennou, neporadite mi, bodla by hlavne nejaka jasna
> ukazka.,
> uprimne se stydim...
Ahoj!
Tak treba v promenne
var
I : Byte;
mam "zakodovany" vek osoby, napr. 0 - 1..10 roku, 1 - 11..20
pak pouziju treba
case I of
0 : writeln('Vek je 1 az 10 let');
1 : writeln('Vek je 11 az 20 let');
2 : writeln('Vek je 21 az 30 let');
else writeln('Osoba je tesne pred smrti :-)');
end;
Promenna, podle ktere se ridi vyber v Case, musi byt ordinalniho
typu.
Vice detailu v helpu (staci napsat case, najet kurzorem na toto slovo
a stisknout F1).
Jirka.Napoveda na vytvaranie helpu
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 23.10.2000 10:45:20
Ja pouzivam RoboHelp Office. Je to super, cely help se pise ve Wordu (ten
umim ovladat docela dobre) a vysledek muzu kompilovat jak do stareho .hlp
tak i do .chm (nebo neco takoveho). Nevyhodou je trochu cena - asi 40000,-
Kc :(
Milan Tomes
> Zdravim.
>
> Onoho casu som zahliadol, ze niekto si pytal navod na tvorbu
> helpu a bol mu
> poskytnuty odkaz na archiv konferencie, ale aj som ho prehrabal
> na lokale v
> KonfView ale neviem ho najst.
>
> Kopnite ma prosim spravnym smerom.
>
> Dakujem.
>
> Roland - zufalec
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000
Stupidne-jak pouzit Case of
[*] Milan Tome� <Milan.Tomes(zv)haida(tec)cz> - 23.10.2000 11:02:26
var
Pokus : integer;
begin
Case pokus of
1: do_something;
2: do_something;
3: do_something;
0: do_something;
else
end;
end;
Milan Tomes
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> bejcek(zv)centrum(tec)cz
> Sent: Sunday, October 22, 2000 8:00 PM
> To: Delphi
> Subject: Stupidne-jak pouzit Case of
>
>
> Poradite mi nekdo jak se pouziva Case of nejak neumim priradit
> spravnou promennou, neporadite mi, bodla by hlavne nejaka jasna
> ukazka.,
> uprimne se stydim...
>
> Ales Pavel Amater vsech amateru....
>
> K chatov�n� je tu http://www.XChat(tec)cz
> Zalo�te si sv�j mail na http://mail.centrum(tec)cz
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.198 / Virov� b�ze: 95 - datum vyd�n�: 4.10.2000