Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
quick report a 2 datasety
[*] Miso <delphinpp(zv)atlas(tec)cz> - 2.8.2004 09:30:32
----- Original Message -----
From: "mato" <mato.tino(zv)inmail.sk>
> da sa nejako na jeden tlacovy vystup dat udaje z dvoch tabuliek ? Mam dva
> datasety , kazdy tak z 20 zaznamami, a potreboval by som urobit tlacovy
> vystup aby mi dal jednu tabulku a hned za nu druhu. Da sa to nejako
spravit
> ?
> Skusal som to v QR ale tam mi vytlacilo stale len jeden quick report.
..mozes podla mna skusit 2 sposoby :
a) ak je struktura tbl. identicka, tak potom pouzi
select flda, fldb,.. from tbl1 union select flda, fldb,.. from tbl2
b) ak nie je struktura identicka, tak pouzi CompositeReport - vid demo
Miso
OT: ridici kody tiskaren
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 2.8.2004 09:24:30
zdravim
mam malou prosbu, delam si neco jako drivery pro DOSovsky tisk a potreboval
bych sehnat co nejvice ridicich kodu pro ruzne tiskarny, pokud by se nasel
nekdo kdo nejake ma a byl by ochotny se o ne podelit rad bycho ho pozadal o
zaslani (asi na soukromou adresu ladislav.fitz(zv)kodytek(tec)cz) kdyz se jich
sejde hodne a bude o ne zajem muzu je nekam vystavit pro sirsi
programatorskou obec (stejne tak bych pak mohl vystavit i hotove dilko)
predem diky
ADO uzamykani zaznamu
[*] Petr Vobornik <vobornik(zv)apel(tec)cz> - 2.8.2004 08:54:25
Dobry den,
marne se snazim vyresit zamykani jednotlivych vet v tabulce pri editaci.
Zkousel jsem ADOtest z Delphi\Demos a ruzne hodnoty CursorType a LockType,
ale stale se mi nedari editovany zaznam uzamknou pro dalsiho uzivatele.
Potreboval bych stejne chovani jako Access. Pokud druhy uzivatel chce
editovat stejnou vetu, tak se mu vypise, ze zaznam je uzamcen. Hledal jsem v
archivu konference, ale nic jsem nevyresil. Doposud jsem tvoril aplikace
jenom s jednouzivatelskym pristupem, tak prosim o radu jak na to nebo
nejlepe nejaky priklad na netu.
Dekuji
Petr
WinXP,D6, ADO Jet4.0, ADOQuery
SMS pres NOKIA 7650
[*] Pavel Z. <p.zrubek(zv)seznam(tec)cz> - 2.8.2004 08:54:25
Ahoj chalani,
s pouzitim unity Synaser od SYNAPSE a komponenty TText2pdu se pokousim
komunikovat se svym mobilem a zkousim poslat SMS z PC.
Mate nekdo s timto zkusenosti a poradite mi proc mi to nejde ?
Normalne se PC a mobil spoji, ale nejde AT prikaz s odesilanim SMS.
Nevim, mozna delam neco spatne a potrebuji nakopnout.
prikladam proceduru
procedure TForm1.btTestClick(Sender: TObject);
var
com:TBlockSerial;
pdu: tpdu;
begin
memo1.Clear;
com:=TBlockSerial.Create;
com.Connect('COM'+lbed1.Text);
com.config(115200, 8, 'N', 0, false, true);
com.ATCommand('AT+CMGL=1' );
if (com.LastError <> 0) or (not com.ATResult) then
memo1.Lines.Add('chyba: ' + InTtoStr(com.LastError) + ' - ' +
com.GetErrorDesc(com.LastError))
else
begin
memo1.Lines.Add('spojeno');
application.ProcessMessages;
sleep(1000);
pdu := Text2pdu1.texttosms('+420602909909','+420723401815','prvni SMS');
memo1.Lines.Add('sms pdu format :'+pdu[1]);
memo1.Lines.Add('delka sms :'+pdu[2]);
com.ATCommand('AT+CMGS='+pdu[2]+#13+pdu[1]+#26);
if com.ATResult then memo1.Lines.Add('odeslani SMS vyslo') else
memo1.Lines.Add('odeslani SMS nevyslo');
end;
com.Free;
end;
dekuji za help
P.quick report a 2 datasety
[*] mato <mato.tino(zv)inmail.sk> - 2.8.2004 09:14:29
zdravim,
d7,
da sa nejako na jeden tlacovy vystup dat udaje z dvoch tabuliek ? Mam dva
datasety , kazdy tak z 20 zaznamami, a potreboval by som urobit tlacovy
vystup aby mi dal jednu tabulku a hned za nu druhu. Da sa to nejako spravit
?
Skusal som to v QR ale tam mi vytlacilo stale len jeden quick report.
Trideni v kbmMemTable
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 2.8.2004 09:06:28
Zdar,
je mozne tridit v kbmMemTable podle vice sloupcu tak, aby se tridilo
podle jednoho vzestupne a pak podle dalsiho sestupne? Jestli jo,
poradite prosim jak?
Diky
Karel, D5
Ikona v systemove liste
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 2.8.2004 09:02:27
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Milos J. Hrach
Ahoj,
> Jenze problem s Windows ma jedine resene. Odinstalovat a dat jiny,
> slusny operacni system.
Dost dobra odpoved!!! Ono tohodle tady bylo posledni dobou malo!! :\
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
>
>
> > explorer... co takhle misto
> > reseni vysledneho problemu vyresit pricinu,
> > tedy problem ve Windows?
> >
> > Petr Zahradnik, pocitacovy expert
> >
>
>
> --
> Milos J. Hrach, D6 profi, WinXP Home
>
>
>
>
Ikona v systemove liste
[*] Milos J. Hrach <delphi_konf(zv)post(tec)cz> - 2.8.2004 08:52:24
Jenze problem s Windows ma jedine resene. Odinstalovat a dat jiny,
slusny operacni system.> explorer... co takhle misto
> reseni vysledneho problemu vyresit pricinu,
> tedy problem ve Windows?
>
> Petr Zahradnik, pocitacovy expert
>
--
Milos J. Hrach, D6 profi, WinXP Home
Skryta zarizeni v OS W.
[*] jan juza <jan.juza(zv)radom-cz(tec)cz> - 2.8.2004 08:26:20
Zdravim!
Podle toho co sem slysel, je v registrech (v bitovem obrazu) v jednom bitu zakodovana informace, jestli je danne zarizeni (klavesnice, sitove adaptery...) skryte nebo ne (videt je to ve spravci zarizeni). Potreboval bych radu, ktery bit to je nebo jestli se to neda obejit jeste jinak. Pomoci SETUPAPI sem se k tomu nedostal
Mnohokrat dekuji
problem s ceskou aplikaci
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 2.8.2004 07:30:15
> na windows 2000 v delphi 7 jsem naprogramoval aplikaci tam fugnovala
> perfektne ale kdzy je na win98cze, WInXp cze tak tam nejsouhacky a z
> textu na buttonku Dalsi > se zmeni na Dalei >
Ahoj,
1) Pokud prislusna komponenta ma property Font, tak zkontroluj, jaky
ma ten font Charset (mel by byt EASTEUROPE_CHARSET nebo jak
se to jmenuje). Jestli tam je DEFAULT_CHARSET, zkusil bych, jestli to
pomuze.
2) U komponent jako TMenu apod. se pouziva pismo dane systemem
a tam bude potreba asi nastavit ve Windows Mistni nastaveni - jazyk
cesky (kdyby to nahodou tak nebylo).
David Lebeda
Kam upgradovat z Delphi 4 Professional
[*] Marek <marek.rakowski(zv)trz(tec)cz> - 2.8.2004 06:30:08
pri KOUPI D8 je i verze 7 profi
Marek
From: "Andreas Bednarek" <bednarek(zv)digitus(tec)cz>
> Pocitam, ze do D8 to nebude jen tak, jak si vzpominam, na nektere
prispevky
Delphi 4 az 7 je pouze pro platformu Win32
Delphi 8 je pouze pro platformu .NET (melo by se spise jmenovat Delphi.NET
1)
Z toho tedy vyplyva, ze pokud chces dale psat pro Win32 je pro tebe
nejnovejsi
verze Delphi 7, ktera neni az tak spatna.
Petr Vones
Vytvareni objektu v projektu z nalinkovane knihovn
[*] vponecha(zv)volny(tec)cz - 2.8.2004 01:05:44
Ahoj,
Prosim o nakopnuti. Mam Projekt do ktereho mam nalinkovanou
knihovnu, ktera ma byt zodpovedna za vytvareni objektu v mem
projektu. Problem je v tom, ze tyto objekty maji ruzne parenty,
proto potrebuji predavat dll take informace o parent v projektu.
Jak to udelat?
DLL code:
CreatePic(X,Y,W,H: integer; NameFile : String; MyObject: ???);
//My object definuje parenta var
TemPic : TImage;
begin
TempPic := TImage.create(nil);
TempPic.parent := MyObject;
TempPic.left := X;
end;
Projekt code:
....
If opendialog1.execute then
begin
createPic(1,1,100,100, OpenDialog1.filename, TForm1.Panel1);
//Neco v tomto smyslu end;
Diky,
Vlada
--
Zrychlete si az 7x nacitani www stranek a obrazku pres vytacene
pripojeni pomoci VOLNY internet akceleratoru. Stazeni a pouzivani
je ZDARMA. http://akcelerator.volny(tec)cz
Ikona v systemove liste
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 2.8.2004 01:01:43
Puvodni zprava ze dne 2.8.2004:
> pro zobrazeni ikony v systemove liste pouzivam componentu CoolTrayIcon.
> Jenze kdyz spadne explorer.exe (desktop), tak ikona z listy zmizi. Nevite
> jestli jde nejakym zpusobem poznat, ze explorer padnul a tu ikonu na tu
> listu zase dostat?
No to snad neni moc normalni, ze chcipa explorer... co takhle misto
reseni vysledneho problemu vyresit pricinu, tedy problem ve Windows?
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Ikona v systemove liste
[*] Frantisek Mlcoch <frantisek.mlcoch(zv)vsb(tec)cz> - 2.8.2004 00:57:42
Zdravim,
pro zobrazeni ikony v systemove liste pouzivam componentu CoolTrayIcon.
Jenze kdyz spadne explorer.exe (desktop), tak ikona z listy zmizi. Nevite
jestli jde nejakym zpusobem poznat, ze explorer padnul a tu ikonu na tu
listu zase dostat?
F.
VirtualTreeView pro CLX
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 4.8.2004 14:09:49
Zdravim konferenci,
mate nekdo zkusenost s %subject%?
Stahl jsem balicek pro CLX, ale zda se ze je napsan tak,
aby chodil pod Kylixem, ale v Delphi se chova jako VCL.
Podarilo se vam nekomu rozchodit VT v Delphi 7 pro CLX?
Pokud ano, prosim o nakopnuti.
Predem dik za rady
Pavel Poles
Standalone Firebird 1.5.1
[*] Marek Spisak <spishark(zv)post(tec)cz> - 4.8.2004 13:27:46
Marek Spisak wrote:
> Michal Hlavac wrote:
>
>> Milan Tomes wrote:
>>
>>
>>
>>> Sice nechapu proc chces docilit zrovna tohoto - vzdyt prave proto je to
>>> server, aby bezel porad a IMHO pokud na IB neni zadna konektivita,
>>> tak nic
>>> "nezere" - ale prosim:
>>>
>>> Pokud je to na stejnem pocitaci, tak pres OpenSCManager otevrit
>>> Services
>>> manager, najit sluzbu (OpenService), dotazat se na stav
>>> (QueryServiceStatus)
>>> nastartovat (StartService) nebo ukoncit (ControlService) a nezapomenout
>>> zavirat handly (CloseServiceHandle).
>>>
>>
>>
>> no, mne islo o toto, ale bez pouzitia service... aby firebird bezal
>> iba ako proces, ktory sa spusti pri starte aplikacie a skoncil spolu
>> s delphi aplikaciou... toto ma napriklad velmi pekne spraveny Sybase
>> ASA.
>>
>> aby tento fb server vyuzivala iba moja aplikacia lokalne...
>>
>> chcem to aj kvoli tomu, aby sa nemuselo na klientskom pocitaci nic
>> instalovat... iba sa skopiruje aplikacia (aj s fb binarkami) do
>> adresara a po spusteni exe sa spusti fb a fici to...
>>
>> miso
>>
>>
>>
> Co takhle embded server? Uz se tady o tom docela dost psalo. Je to
> sikovna vecicka prave pro takove vyuziti.
>
> Marek
>
Pardon Embedded, jsem se upsal.
M.Standalone Firebird 1.5.1
[*] Marek Spisak <spishark(zv)post(tec)cz> - 4.8.2004 13:23:44
Michal Hlavac wrote:
>Milan Tomes wrote:
>
>
>
>>Sice nechapu proc chces docilit zrovna tohoto - vzdyt prave proto je to
>>server, aby bezel porad a IMHO pokud na IB neni zadna konektivita, tak nic
>>"nezere" - ale prosim:
>>
>>Pokud je to na stejnem pocitaci, tak pres OpenSCManager otevrit Services
>>manager, najit sluzbu (OpenService), dotazat se na stav (QueryServiceStatus)
>>nastartovat (StartService) nebo ukoncit (ControlService) a nezapomenout
>>zavirat handly (CloseServiceHandle).
>>
>>
>
>no, mne islo o toto, ale bez pouzitia service... aby firebird bezal iba
>ako proces, ktory sa spusti pri starte aplikacie a skoncil spolu s
>delphi aplikaciou... toto ma napriklad velmi pekne spraveny Sybase ASA.
>
>aby tento fb server vyuzivala iba moja aplikacia lokalne...
>
>chcem to aj kvoli tomu, aby sa nemuselo na klientskom pocitaci nic
>instalovat... iba sa skopiruje aplikacia (aj s fb binarkami) do adresara
>a po spusteni exe sa spusti fb a fici to...
>
>miso
>
>
>
Co takhle embded server? Uz se tady o tom docela dost psalo. Je to
sikovna vecicka prave pro takove vyuziti.
Marek
Totalni zaciatok s FireBird
[*] Jaroslav Vorlicek <jry2000(zv)seznam(tec)cz> - 4.8.2004 12:17:39
Dle zkusenosti nejrychlejsi jsou nativni IBO komponenty. www.ibobjects.com .
Na klientskem pocitaci musi byt nainstalovany Firebird klient. Jinak neni
nic potreba.
Co jsem zazil na spravu tak isql, gbak, gfix,ibExpert(www.ibexpert.com).
Jaroslav Vorlicek
delphi-l-owner(zv)clexpert(tec)cz wrote:
> Presne tak, dik.
>
> Este by ma zaujimalo, ake nastroje na spravu by ste mi doporucili.
> Ake komponenty pouzivate a aky driver by ste doporucili.
>
> Dakujem Fabik
Univerzalni zaokrouhlovaci funkce - reseni
[*] Karel Pecinka <k.pecinka(zv)seznam(tec)cz> - 4.8.2004 12:07:38
Zdravim,
rozsiril jsem funkci Jirky Virta o moznost zaokrouhlovat ruznymi smery a
taky napr. na padesatniky. Kdyby se to nekomu hodilo, prikladam nize.
Karel
function RoundXDec(const Cislo: Extended; Smer: Byte; DesMist: integer):
Extended;
{
Vyznam parametru:
Smer = 0 - zaokrouhleni podle pravidel
1 - zaokrouhleni dolu
2 - zaokrouhleni nahoru
5 - zaokrouhlovana cifra ma na konci bud 0 nebo 5
DesMist = 0 - na cela cisla
1 - na desetiny
2 - na setiny
-1 - na desitky
-2 - na stovky
atd.
}
var
x, y: Extended;
begin
if Smer = 5 then dec(DesMist); // zaokrouhleni na 5 nemuze
pouzit trunc
x := Cislo * IntPower(10, DesMist);
case Smer of
1: x := trunc(x); // zaokrouhledni dolu
2: x := trunc(x + 0.99999); // zaokrouhledni nahoru
5: begin // zaokrouhleni na padesatniky
y := Frac(x); // vezme cast za des. carkou
x := trunc(x);
if (y < 0.25) then y := 0 else
if (y >= 0.25) and (y < 0.75) then y := 0.5 else
y := 1;
x := x + y;
end;
else
x := Round(x); // zaokrouhledni podle pravidel
end;
Result := x / IntPower(10, DesMist);
end;
S pozdravem
Ing. Karel Pecinka
Sofico-CZ, v. o. s.
U Vodarny 5
568 02 Svitavy
tel: +420 608 110 949
email: k.pecinka(zv)ordis(tec)cz
WWW: http://www.ordis(tec)cz Standalone Firebird 1.5.1
[*] Fedor 'fi0dor' Tirsel <fi0dor(zv)fi0dor.info> - 4.8.2004 11:27:34
: aby tento fb server vyuzivala iba moja aplikacia lokalne...
:
: chcem to aj kvoli tomu, aby sa nemuselo na klientskom pocitaci nic
: instalovat... iba sa skopiruje aplikacia (aj s fb binarkami) do adresara
: a po spusteni exe sa spusti fb a fici to...
V tomto pripade je vhodnym riesenim pouzit embedded verziu servera (jedno dll).
Prestuduj si README_embedded.txt, ktory je v /doc adresary.
S pozdravom...
--
Fedor 'fi0dor' Tirsel
www.fi0dor.info
Standalone Firebird 1.5.1
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 4.8.2004 11:15:32
Tak pouzij Embedded server - to je presne to co potrebujes...
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Michal Hlavac
> Sent: Wednesday, August 04, 2004 10:39 AM
>
> no, mne islo o toto, ale bez pouzitia service... aby firebird bezal iba
> ako proces, ktory sa spusti pri starte aplikacie a skoncil spolu s Standalone Firebird 1.5.1
[*] Michal Hlavac <hlavki(zv)medium13.sk> - 4.8.2004 10:39:28
Milan Tomes wrote:
> Sice nechapu proc chces docilit zrovna tohoto - vzdyt prave proto je to
> server, aby bezel porad a IMHO pokud na IB neni zadna konektivita, tak nic
> "nezere" - ale prosim:
>
> Pokud je to na stejnem pocitaci, tak pres OpenSCManager otevrit Services
> manager, najit sluzbu (OpenService), dotazat se na stav (QueryServiceStatus)
> nastartovat (StartService) nebo ukoncit (ControlService) a nezapomenout
> zavirat handly (CloseServiceHandle).
no, mne islo o toto, ale bez pouzitia service... aby firebird bezal iba
ako proces, ktory sa spusti pri starte aplikacie a skoncil spolu s
delphi aplikaciou... toto ma napriklad velmi pekne spraveny Sybase ASA.
aby tento fb server vyuzivala iba moja aplikacia lokalne...
chcem to aj kvoli tomu, aby sa nemuselo na klientskom pocitaci nic
instalovat... iba sa skopiruje aplikacia (aj s fb binarkami) do adresara
a po spusteni exe sa spusti fb a fici to...
miso
Totalni zaciatok s FireBird
[*] Milan Fabik <fabik(zv)kinekus.sk> - 4.8.2004 10:39:28
Presne tak, dik.
Este by ma zaujimalo, ake nastroje na spravu by ste mi doporucili. Ake komponenty pouzivate a aky driver by ste doporucili.
Dakujem Fabik
Totalni zaciatok s FireBird
[*] Andreas Bednarek <bednarek(zv)digitus(tec)cz> - 4.8.2004 10:17:22
Nevim jestli jsem dobre pochopil, ale mozna nevis to, ze jmena a hesla jsou
u FB ulozena centralne pro server (v souboru security.fdb). Neni to tedy
tak, ze pomoci tveho dotazu vytvoris databazi chranenou pristupovym jmenem a
heslem jake jsi zadal, ale parametry user, password slouzi k tomu aby ses
vubec pripojil k serveru. Ucet 'meno'/'heslo' neni asi na serveru zavedeny,
tak ti to pise 'your user name and password are not defined'.
zkus misto 'meno' a 'heslo' dat 'SYSDBA' a 'masterkey' coz je std.
prihlasovani k FB. Ohledne zmeny hesla a pridavani dalsich uzivatelu urcite
neco najdes v te knize od P.Cisare.
A.
----- Original Message -----
From: "Milan Fabik" <fabik(zv)kinekus.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, August 04, 2004 10:03 AM
Subject: Totalni zaciatok s FireBird
> Zdravim,
>
> prosim o radu.
>
> Naistaloval som si FB 1.5. Na vytvorenie skusobnej databazy som chcel
pouzit isql prikazom
> SQL> create database 'c:\pokus.gdb' user 'meno' password 'heslo';
>
> Po tomto riadkuma to stale odkazuje na definovanie mena a hesla. Isql som
spustil bez parametrov.
>
> Nakolko nemam ziadne skusenosti s SQL (doteraz iba Paradox a Dbase) a
jedine co mam je kniha od Pavla Cisara a chut, neviem sa pohnut. Prosim o
radu a nejake rady pred zaciatocnickzmi chybami.
>
> Dakujem Fabik
>Totalni zaciatok s FireBird
[*] Jaroslav Vorlicek <jry2000(zv)seznam(tec)cz> - 4.8.2004 10:47:30
Stahni si http://www.ibexpert.com/ Personal Edition.
Konzoli bych u firebirdu mozna pouzil az pozdeji.
Jinak jmeno a heslo bys mel mit uvedeno v isc4gdb pomoci prikazu gsec.
Jaroslav Vorlicek
delphi-l-owner(zv)clexpert(tec)cz wrote:
> Zdravim,
>
> prosim o radu.
>
> Naistaloval som si FB 1.5. Na vytvorenie skusobnej databazy som chcel
> pouzit isql prikazom
>> create database 'c:\pokus.gdb' user 'meno' password 'heslo';
>
> Po tomto riadkuma to stale odkazuje na definovanie mena a hesla. Isql
> som spustil bez parametrov.
>
> Nakolko nemam ziadne skusenosti s SQL (doteraz iba Paradox a Dbase) a
> jedine co mam je kniha od Pavla Cisara a chut, neviem sa pohnut.
> Prosim o radu a nejake rady pred zaciatocnickzmi chybami.
>
> Dakujem Fabik
Totalni zaciatok s FireBird
[*] Fedor 'fi0dor' Tirsel <fi0dor(zv)fi0dor.info> - 4.8.2004 10:11:20
: Zdravim,
: Naistaloval som si FB 1.5. Na vytvorenie skusobnej databazy som chcel pouzit
isql prikazom
: SQL> create database 'c:\pokus.gdb' user 'meno' password 'heslo';
treba si vytvorit noveho uzivatela (prikazom gsec.exe -- nachadza sa v /bin
instalacie Firebirda), alebo pouzit prednastaveny administratorsky ucet (SYSDBA,
masterkey).
popis postupu je napr. tu:
http://www.cpcug.org/user/clemenzi/technical/Databases/Firebird/BasicOperations.html#Commandline
S pozdravom...
--
Fedor 'fi0dor' Tirsel
www.fi0dor.info
IB/FB - zjisteni, zda bezi server - nekde v siti
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 4.8.2004 10:35:27
No ja jsem tuhle funkci psal v dobe, kdy to Synapse nedelala automaticky
:))))
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Lukas Gebauer
> Sent: Wednesday, August 04, 2004 10:21 AM
>
> male doplneni... volani Sock.CreateSocket neni treba. Pokud socket
> neexistuje, vytvori se sam pri volani metody Connect. To proto, ze az
Standalone Firebird 1.5.1
[*] Fedor 'fi0dor' Tirsel <fi0dor(zv)fi0dor.info> - 4.8.2004 10:31:26
: Zdravim,
Dobry den,
: vedel by ma niekto prosim nakopnut, ako spravim, aby sa firebird server
: spustal iba ked spustim moju aplikaciu, a ked ju skoncim, aby skoncil aj
: on...
:
: dik, miso
pokial sa jedna o Win NT resp. XP, da sa Firebird spustat a ukoncovat ako sluzba
systemu. Ak pouzivate Win 98, tak sa da server spustit prikazom fbserver.exe
resp. fb_inet_server.exe (rozdiel je v tom, ze jeden je CS a druhy SS) -- oba
subory sa nachadzaju v adresari s nainstalovanym Firebirdom (/bin). Ukoncit
server potom mozete cez Win API (zistite si handle serveru a poslete mu close).
Samozrejme su aj lepsie riesenia, ale tie ma momentlane nanapadnu :).
S pozdravom...
--
Fedor 'fi0dor' Tirsel
www.fi0dor.info
IB/FB - zjisteni, zda bezi server - nekde v siti
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 4.8.2004 10:11:21
const
IBServerPort = 3050;
function IBServerRunning(AServerName: string): boolean;
var
Sock: TTCPBlockSocket;
begin
Sock := TTCPBlockSocket.Create;
try
Sock.CreateSocket;
Sock.Connect(AServerName, IntToStr(IBServerPort));
Result := Sock.LastError = 0;
Sock.CloseSocket;
finally
freeAndNil(Sock);
end;
end;
Je to udelane pomoci Synapse a podle postupu, ktery doporucoval P. Cisar.
HTH
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of js-delphi(zv)email(tec)cz
> Sent: Wednesday, August 04, 2004 10:05 AM
>
> ale ted bych potreboval nejak zjistit, zda na urcitem jmene
> stanice bezi IB/FB server.Standalone Firebird 1.5.1
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 4.8.2004 10:29:25
Sice nechapu proc chces docilit zrovna tohoto - vzdyt prave proto je to
server, aby bezel porad a IMHO pokud na IB neni zadna konektivita, tak nic
"nezere" - ale prosim:
Pokud je to na stejnem pocitaci, tak pres OpenSCManager otevrit Services
manager, najit sluzbu (OpenService), dotazat se na stav (QueryServiceStatus)
nastartovat (StartService) nebo ukoncit (ControlService) a nezapomenout
zavirat handly (CloseServiceHandle).
HTH
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Michal Hlavac
> Sent: Wednesday, August 04, 2004 9:29 AM
>
> vedel by ma niekto prosim nakopnut, ako spravim, aby sa firebird server
> spustal iba ked spustim moju aplikaciu, a ked ju skoncim, aby skoncil aj
> on...IB/FB - zjisteni, zda bezi server - nekde v siti
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 4.8.2004 10:21:23
> const
> IBServerPort = 3050;
>
> function IBServerRunning(AServerName: string): boolean;
> var
> Sock: TTCPBlockSocket;
> begin
> Sock := TTCPBlockSocket.Create;
> try
> Sock.CreateSocket;
> Sock.Connect(AServerName, IntToStr(IBServerPort));
> Result := Sock.LastError = 0;
> Sock.CloseSocket;
> finally
> freeAndNil(Sock);
> end;
> end;
male doplneni... volani Sock.CreateSocket neni treba. Pokud socket
neexistuje, vytvori se sam pri volani metody Connect. To proto, ze az
podle patrametru v metode Connect Synapse teprve pozna, jestli chces
komunikovat pomoci protokolu IPv4 nebo pomoci IPv6.
Ne, ze by tvuj kod byl spatne, nebo fungoval jinak... jen volas
zbytecne funkci, ktera v tvem pripade neudela vubec nic, a je tam jen
pro zpetnou kompatibilitu se starymi verzemi Synapse. ;-)
(Ostatne, ten CloseSocket se taky zavola sam v destruktoru. ;-))
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Totalni zaciatok s FireBird
[*] Slavomir Skopalik <skopalik(zv)elektlabs(tec)cz> - 4.8.2004 10:09:19
misto meno napis SYSDBA a misto heslo napis masterkey.
Asi takto :
CREATE DATABASE "localhost:d:\ibdata\main2.gdb" USER "sysdba" PASSWORD
"masterkey"
PAGE_SIZE 8192 DEFAULT CHARACTER SET WIN1250;
Slavek
> Naistaloval som si FB 1.5. Na vytvorenie skusobnej databazy
> som chcel pouzit isql prikazom
> SQL> create database 'c:\pokus.gdb' user 'meno' password 'heslo';
>
> Po tomto riadkuma to stale odkazuje na definovanie mena a
> hesla. Isql som spustil bez parametrov.
> IB/FB - zjisteni, zda bezi server - nekde v siti
[*] js-delphi(zv)email(tec)cz - 4.8.2004 10:05:19
Ahoj panove!
Mam dotaz viz %subjekt%. Umim zjistit pomoci hledani urciteho okna, jestli bezi IB/FB server na pocitaci, na kterem to testuji, ale ted bych potreboval nejak zjistit, zda na urcitem jmene stanice bezi IB/FB server.
Diky za pomoc.
Jirka
P.S.:Konkretni priklad by byl super, urcite ho vyuzijou i ostatni...
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.5
programator amater
Totalni zaciatok s FireBird
[*] Milan Fabik <fabik(zv)kinekus.sk> - 4.8.2004 10:03:17
Zdravim,
prosim o radu.
Naistaloval som si FB 1.5. Na vytvorenie skusobnej databazy som chcel pouzit isql prikazom
SQL> create database 'c:\pokus.gdb' user 'meno' password 'heslo';
Po tomto riadkuma to stale odkazuje na definovanie mena a hesla. Isql som spustil bez parametrov.
Nakolko nemam ziadne skusenosti s SQL (doteraz iba Paradox a Dbase) a jedine co mam je kniha od Pavla Cisara a chut, neviem sa pohnut. Prosim o radu a nejake rady pred zaciatocnickzmi chybami.
Dakujem Fabik
Standalone Firebird 1.5.1
[*] Michal Hlavac <hlavki(zv)medium13.sk> - 4.8.2004 09:29:14
Zdravim,
vedel by ma niekto prosim nakopnut, ako spravim, aby sa firebird server
spustal iba ked spustim moju aplikaciu, a ked ju skoncim, aby skoncil aj
on...
dik, miso
QR a pridanie komponnety za behu
[*] Parizsky Ladislav <ladislav.parizsky(zv)access-it(tec)cz> - 4.8.2004 07:45:06
dd,
pouzivam tento kod pro generovane tiskove sestavy a funguje OK..
with TQRLabel(QRSestava.Bands.ColumnHeaderBand.AddPrintable(TQRLabel))
do
begin
Alignment:= taCenter;
Left:= fLeft;
Top:= 0;
Width:= fWidth;
Height:= 23;
AutoSize:= false;
AutoStretch:= true;
WordWrap:= false;
Font.Size:= 10;
Font.Style:= [];
Frame.DrawBottom:= True;
Frame.DrawLeft:= True;
Frame.DrawTop:= True;
end;
Ladap
>>> mato.tino(zv)inmail.sk 4.8. 2004 7:33:05 >>>
nefunguje ani jeden s kodou, kde robim chybu ?
Ked spustim, vypisuje chybu Acces violation.....
mam na forme QuickReport1 vlastnost Bands-HasDetail na TRUE.
a kod . vyskusal som obe, obe vyhadzuju rovnaku chybu.
{with TQRLabel(DetailBand1.AddPrintable(TQRLabel)) do
begin
Left:=10;
Top:=10;
Caption:='pokus';
end;}
With TQRLabel.Create(QuickRep1)do
begin
Parent:=QuickRep1;
Left:=10;
Top:=10;
Caption:='pokus';
end;
----- Original Message -----
Subject: Re: QR a pridanie komponnety za behu
> Pokial viem tak spravny kod je skor
>
> with TQRLabel(QRBand.AddPrintable(TQRLabel)) do
> begin
> Left := 10;
> Top := 10;
> Caption := 'QRLabel1';
> end;
>
> Martin Cajbik
>
> Miso wrote:
>
QR a pridanie komponnety za behu
[*] mato <mato.tino(zv)inmail.sk> - 4.8.2004 07:33:05
nefunguje ani jeden s kodou, kde robim chybu ?
Ked spustim, vypisuje chybu Acces violation.....
mam na forme QuickReport1 vlastnost Bands-HasDetail na TRUE.
a kod . vyskusal som obe, obe vyhadzuju rovnaku chybu.
{with TQRLabel(DetailBand1.AddPrintable(TQRLabel)) do
begin
Left:=10;
Top:=10;
Caption:='pokus';
end;}
With TQRLabel.Create(QuickRep1)do
begin
Parent:=QuickRep1;
Left:=10;
Top:=10;
Caption:='pokus';
end;
----- Original Message -----
Subject: Re: QR a pridanie komponnety za behu
> Pokial viem tak spravny kod je skor
>
> with TQRLabel(QRBand.AddPrintable(TQRLabel)) do
> begin
> Left := 10;
> Top := 10;
> Caption := 'QRLabel1';
> end;
>
> Martin Cajbik
>
> Miso wrote:
>
SQL dotaz a znaky entru 13 a 10 atp.
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 4.8.2004 07:09:02
No ja to delam tak, ze text pokracuje na dalsim radku:
INSERT INTO AAA (TEXT_S_ENTER) VALUES('
sssss')
nebo
IBSQL.SQL.Text := 'INSERT INTO AAA (TEXT_S_ENTER)
VALUES(''sssss'#13#10''')';
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Benda Lukas
> Sent: Tuesday, August 03, 2004 8:40 PM
>
> Potrebuji v ramci SQL dotazu posilat nejen znak uvozovek ', ale take
> znaky odpovidajici entru #13 a #10 (mozna ze i jine znaky delaji
Funkce na zaokrouhlovani
[*] Jirka Virt <virt(zv)volny(tec)cz> - 3.8.2004 22:00:24
function RoundXDec(const Cislo:Extended;DesMist:integer):Extended;
begin
Result := Round(Cislo*IntPower(10,DesMist))/IntPower(10,DesMist);
end;
Jirka Virt
ADMIN: OT: Nabidka zamestnani
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 30.9.2004 22:31:02
Puvodni zprava ze dne 30.9.2004:
> Hledame zdatne programatory pro vyvoj predevsim client-server aplikaci.
> Nabizime:
> - zajimavou praci na rozsahlych projektech
> - pratelskou atmosferu
> - spickove ohodnoceni za spickovou praci
> Misto: Praha - Vychod
> Pripadni zajemci mne mohou kontaktovat (mimo konferenci) na adrese: pj02(zv)seznam(tec)cz
> Petr J.
Aaa, koukam, ze Supreme jsou vynalezavi... No dejte si na ne pozor, ze
ta atmosfera je velmi pratelska a ze za ni je spickove ohodnoceni, to
mohou potvrdit mnozi, kteri s nimi meli co do cineni...
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
zlobici DCOM
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 30.9.2004 21:22:57
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Jakub Cermak
> Sent: Thursday, September 30, 2004 9:09 PM
>
> Potrebuju poradit odhledne DCOM (pripojeni ke COM objektum na
> jinem compu - doufam ze nemam gulas v pojmech). Zkousim takto
> spojit Win XP SP1 a Win 98.
No, neporadim, protoze to nevim a neni az takova sranda tohle slusne
rozchodit, a zachovat pri tom urcitou miru bezpecnosti. Pokud to neni
zivotne dulezite, doporucoval bych prechod do .NET. Od te doby, co jsem
takovym prechodem vzdal pokusy rozchodit uspokojive DCOM (tedy vzdy a vsude,
nekde se to prece jen s velkym usilim povedlo, ale to byla NT sit), a
opustil D7, ktere ma s problemy s ladenim COM objektu, se mi zpomalilo
vypadavani vlasu a zubu. :-D
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
Sql server
[*] Ales Kresta <kresta.ales(zv)seznam(tec)cz> - 30.9.2004 21:16:57
Zdravim,
potreboval bych trochu proskolit ohledne spojeni Delphi-Sql server, jde
mi jen o zaklady-to znamena jake komponenty potrebuju, jak je nastavim na
pripojeni na sql server, a jak pridam data do databaze. Pokud znate nekdo
nejaky odkaz na clanek o teto problematice, nebo by jste byli ochotni napsat
mi o tom par radku, byl bych vam velmi vdecen.
Za kazde info diky
zlobici DCOM
[*] Jakub Cermak <cermiforum(zv)centrum(tec)cz> - 30.9.2004 21:08:56
Potrebuju poradit odhledne DCOM (pripojeni ke COM objektum na jinem compu -
doufam ze nemam gulas v pojmech). Zkousim takto spojit Win XP SP1 a Win 98.
Kdyz jsou XPecka server a tak mi klient na w98 hodi BlueScreenOfDeath
(vyjimka 0E v VXD VREDIR (muzete se na ni mrknout na
http://cermi.wz(tec)cz/disk/dcom_bsod.jpg )) a vyjimku EOleSysError:"Vzdalene
volani procedury se nepodarilo.". Pri kazdem dalsim pokusu o pripojeni
nastava stejna vyjimka s textem "Server RPC neni k dispozici.".BlueScreen se
uz nekona. Po restartu W98 to jde znovu odzacatku.
Kdyz je to obracene (98 - server, XP-klient) tak mi klient hazi vyjimku
EOleSysError : "Provadeni serveru selhalo" (nic vic).
Na pripojeni pouzivam metodu CreateRemote CoTridy.
Pripojeni normalne na lokalni pocitac je bez problemu. Dela mi to i u jinych
COM objektu. DCOM by mel byt na obou pocitacich povolen.
Nevite nekdo jak to rozchodit?
WinXP SP1, Delphi 6 Ent.
Jakub Cermak
ja.cermi(zv)centrum(tec)cz
ICQ 159971304
http://cermi.wz(tec)cz
OT: Nabidka zamestnani
[*] p j <pj02(zv)seznam(tec)cz> - 30.9.2004 20:50:49
Hledame zdatne programatory pro vyvoj predevsim client-server aplikaci.
Nabizime:
- zajimavou praci na rozsahlych projektech
- pratelskou atmosferu
- spickove ohodnoceni za spickovou praci
Misto: Praha - Vychod
Pripadni zajemci mne mohou kontaktovat (mimo konferenci) na adrese: pj02(zv)seznam(tec)cz
Petr J.
jvcl - msie toolbar - jak pristoupit k webb rowser
[*] Roman Sitina <roman(zv)sitina(tec)cz> - 30.9.2004 20:10:44
Zdravim,
pomoci wizardu v jvcl jsem si vytvoril toolbar pro internet explorer,
vse zda se funguje tak, jak ma, ale nevim, jakym zpusobem pristoupit k
objektu prohlizece, ve kterem toolbar je... uz treba jen pro navigaci na
urcitou stranku pri zmacknuti buttonu...
muzete nekdo prosim poradit?
Spusteni sluzeb s pravy users
[*] Cermi <cermiforum(zv)centrum(tec)cz> - 30.9.2004 18:46:38
Nevim jestli to je presne ono, ale napadlo me na spusteni/vypnuti sluzby
napsat samostatnou aplikaci ovladanou kterou budete spoustet z aplikace pres
CreateProcessAsUser a nejak ji predat parametr, co ma udelat (bud jako
parametr prostredi, nebo "spousteci" parametr).
Cermi
ja.cermi(zv)centrum(tec)cz
ICQ 159971304
http://cermi.wz(tec)cz
----- Original Message -----
From: "Lasevic, Martin" <mlasevic(zv)ratiopharm(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, September 30, 2004 11:17 AM
Subject: Spusteni sluzeb s pravy users
> Zdravim,
>
> Mame user policy nastavenou tak, ze bezny Domain user ma na stanici prava
> skupiny User a nemuze proto startovat ani spoustet sluzby. V aplikaci
> potrebuji
> Spoustet a zastavovat sluzbu......pouzivam na to API funkce OpenSCManager,
> OpenService, ....atd.....parametr prav mam nastaven na
> SC_MANAGER_ALL_ACCESS,
> Ale presto mi vraci error status 5 - access denied.....
>
> Otazka : Da se nejak vnutit, aby aplikace dokazala zastavit nebo spustit
> sluzbu s jinymi pravy nez s jakymi je sama aplikace spustena? Hodnota
> SC_MANAGER_ALL_ACCESS zrejme pripusti pouze prava, s jakymi je spustena
sama
> aplikace.
>
> Martin Lasevic
>
>
>Zmena rozmeru u DBGridu
[*] Karel Halamasek <compro(zv)vol(tec)cz> - 30.9.2004 18:04:35
Ted nemam cas to vyzkouset, ale myslim , ze toto to vyresi:
DBGrid1.Refresh;
Karel Halamasek COMPRO
> Ahoj,
>
> mam form, na nem PanelDolni s Align = alBottom a DBGrid s Align =
> AlClient. Proste
> grid a pod nim panel. V AfterScroll datasetu se rozhodnu, jestli ma byt
> PanelDolni
> viditelny nebo ne. Tj. pri listovani gridem pro nektere zaznamy grid
> zabira cely form a
> pro nektere zaznamy se objevi jeste PanelDolni (cimz se snizi vyska
> gridu). Funguje to
> az na jednu malickost. Dejme tomu, ze pro prvni dva radky v gridu je
> PanelDolni
> viditelny, pro treti radek ma byt neviditelny. Kdyz prejedu z druheho na
> treti radek,
> PanelDolni zmizi, velikost komponenty gridu se radne zvetsi, to je OK -
> ale grid stale
> ukazuje jen ty radky, ktere byly viditelne predtim. Neboli tam, co byl
> PanelDolni, je jen
> prazdne misto, nejsou tam radky s daty. Pokud zmenim velikost formu
> napr. potazenim
> mysi, grid se prekresli a radky jiz vyplnuji celou plochu. Jevi se mi to
> tak, ze
> komponenta gridu se roztahne, ale pocet viditelnych radku se nezmeni.
> Volani
> Invalidate gridu nepomuze. Nevite nekdo, jak mam rict gridu, aby si
> znovu zkontroloval,
> kolik ze to ma vlastne ukazovat radku?
>
> D5
>
> Diky
>
> David Lebeda
>
>
>
-- Spusteni souboru v BIN
[*] Ing. Radek Tomsik <radek(zv)tomsige(tec)cz> - 30.9.2004 17:12:29
Alcohol120% ... vytvori si virtualni CD
Radek
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Existuje nejaky "interpret" CDR obrazu (souboru s priponou BIN), ktery
tyto
soubory extrahuje a nasledne je provede.
OT: Spusteni souboru v BIN
[*] delphi(zv)spst(tec)cz - 30.9.2004 16:34:26
Dobry den.
Existuje nejaky "interpret" CDR obrazu (souboru s priponou BIN), ktery tyto
soubory extrahuje a nasledne je provede.
Predem dekuji JN
Zmena rozmeru u DBGridu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 30.9.2004 15:12:20
Ahoj,
mam form, na nem PanelDolni s Align = alBottom a DBGrid s Align = AlClient. Proste
grid a pod nim panel. V AfterScroll datasetu se rozhodnu, jestli ma byt PanelDolni
viditelny nebo ne. Tj. pri listovani gridem pro nektere zaznamy grid zabira cely form a
pro nektere zaznamy se objevi jeste PanelDolni (cimz se snizi vyska gridu). Funguje to
az na jednu malickost. Dejme tomu, ze pro prvni dva radky v gridu je PanelDolni
viditelny, pro treti radek ma byt neviditelny. Kdyz prejedu z druheho na treti radek,
PanelDolni zmizi, velikost komponenty gridu se radne zvetsi, to je OK - ale grid stale
ukazuje jen ty radky, ktere byly viditelne predtim. Neboli tam, co byl PanelDolni, je jen
prazdne misto, nejsou tam radky s daty. Pokud zmenim velikost formu napr. potazenim
mysi, grid se prekresli a radky jiz vyplnuji celou plochu. Jevi se mi to tak, ze
komponenta gridu se roztahne, ale pocet viditelnych radku se nezmeni. Volani
Invalidate gridu nepomuze. Nevite nekdo, jak mam rict gridu, aby si znovu zkontroloval,
kolik ze to ma vlastne ukazovat radku?
D5
Diky
David Lebeda
Webova aplikace
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 30.9.2004 13:23:37
> Cus bus, neporadil by jste mi prosim nekdo jak psat v delphi aplikaci pro
> Intenret?
Muj nazor: NEPSAT.
Drive: ASP + COM
Dnes: moduly .NET + jeho WebServices + ASP.NET
V .NET lze napsat pekne modularni aplikaci, ktere alternativne priradim "ksicht" WinForms nebo ASP Forms.
viz nase kurzy a jejich osnovy
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 569 (mobil 776 347 735)
====================================Synapse, odeslani mailu
[*] Pave Gazda <pavel_gazda(zv)datasw(tec)cz> - 30.9.2004 12:09:32
Omlouvam se, mel jsem spatne nastavene prihlaseni k serveru.
Problem je ted jiny: Outlook to odesle a zprava take dojde,
ale Synapse (muj program) zpravu odesle ale ta nedojde.
( odeslani na jinou adresu stejnym postupem funguje ).
V cem by mohl byt problem?
Pavel
>
> Opravdu to posilas stejne jako ten Outlook, tedy na stejny server i s
> uplne stejnou adresou odesilatele?
>
> --
> Lukas Gebauer.
>
CGI Web Application a IIS ve W2003
[*] Tomas Emresz <tomas(zv)emresz(tec)com> - 30.9.2004 11:57:31
Dobry den,
neresil jste nekdo problem spousteni a nastavovani CGI aplikaci v
DELPHI pod W2k3 ? Pod W2k me vsehcno jelo, ale pod w2k3 ne s hlaskou
ntdll access violation pripadne mojecgi.exe access violation.
Kdyz aplikaci pustim primo jako exe, spravny HTML mi vraci.
Je ve w2k3 nejaka drsna zmena oproti w2k ?
Prosim o jakoukoliv pomoc.
--
Dekuji
Tomas Emresz
mailto:tomas(zv)emresz.com
Tisk na tiskarne Epson LX 850
[*] Radek Bernatek <rbernatek(zv)seznam(tec)cz> - 30.9.2004 11:43:30
> V nastaveni jsou dokonce 3 druhy rozmeru ale at jsem zkousel jakykoliv tak to bylo porad stejne. Otazka je zda to melo vliv nebo budu muset nejak zjistit ze se jedna o jehlickovou tiskarnu a pocitat umisteni textu trochu jinak.
Ja to delam tak, ze kdyz se vyskytne podobny problem, zkratim vsechny tisky tak, aby se vesli v tom nejhorsim pripade (to je v tvem pripade ta jehlckova tiskarna), pak se nekdy muze stat, ze neni uplne vyuzity papir, ale zato s tim nejsou nikdy problemy.
Radek Bernatek
OT: Webova aplikace
[*] Tomas Fajman <tomas.fajman(zv)ortex(tec)cz> - 30.9.2004 11:23:28
Cus bus, neporadil by jste mi prosim nekdo jak psat v delphi aplikaci pro
Intenret?Synapse, odeslani mailu
[*] Pave Gazda <pavel_gazda(zv)datasw(tec)cz> - 30.9.2004 11:07:27
>> Pri pokusu o odeslani mailu na tuto adresu pomoci Outlook Express je
>> vracena chyba:
>>
>> Jak dostanu stejnou chybu ze Synapse??
>
> Patrne neodesilas mail primym pouzivanim objektu TSmtpSend, ale
> nejakou z ukazkovych funkci SendTo*.
>
to jsem jiz udelal:
// zpracovani prijemcu ( je jen jeden )
s := ATo;
repeat
t := GetEmailAddr(FetchEx(s, ',', '"'));
if t <> '' then
Vysledek := SMTPArr[SMTPCis].MailTo(t);
if not Vysledek then
begin
// hlaseni pripadne chyby - nic nehlasi
ShowMessage('Odmitnuto '+ATo);
ShowMessage(SMTPArr[SMTPCis].ResultString);
Break;
end;
// adresy OK - tvari se ze jo
ShowMessage('Proslo '+ATo);
ShowMessage(SMTPArr[SMTPCis].ResultString);
until s = '';// odeslani mailu
if Vysledek then
begin
Vysledek := Integer(SMTPArr[SMTPCis].MailData(L));
// opet hlaseni ze je vse OK
ShowMessage('Odeslano '+ATo);
ShowMessage(SMTPArr[SMTPCis].ResultString);
end;
Pavel
Synapse, odeslani mailu
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 30.9.2004 11:23:28
> Vysledek := SMTPArr[SMTPCis].MailTo(t);
> if not Vysledek then
> begin
> // hlaseni pripadne chyby - nic nehlasi
> ShowMessage('Odmitnuto '+ATo);
> ShowMessage(SMTPArr[SMTPCis].ResultString);
> Break;
> end;
Pak to znamena, ze server tu adresu prijmul... kdyz se podivas do
zdrojaku, jak je ta metoda MailTo npsana, tak zjistyis, ze vraci TRUE
jen kdyz je vysledny kod roven prave a jen 250. Vratil-li by server
550, nemohl by byt vyseldek TRUE.
Opravdu to posilas stejne jako ten Outlook, tedy na stejny server i s
uplne stejnou adresou odesilatele?
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Firebird ?
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 30.9.2004 11:07:27
Uz jsem to tu nekde psal. Napriklad pomoci TIBDatabaseInfo z IBX. PageSize *
Allocation. Pokud to chces na Mega tak PageSize * Allocation / 1024 / 1024.
Neni to uplne presne ale na tom snad tolik nezalezi.
Libor
----- Original Message -----
From: "petr palicka" <palicka.petr(zv)seznam(tec)cz>
Sent: Thursday, September 30, 2004 10:09 AM
>> Upresneni: IBExpert vi moc dobre velikost filu i na vzdalenych serverech.
>
> By me zajimalo, jak to dela. Nebo to snad lze nejak pres fbclient API?Firebird ?
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 30.9.2004 10:45:25
Vsak zde uvadim ze se jedna o verzi IBExpert personal ktera neni plna.
Libor
----- Original Message -----
From: "petr palicka" <palicka.petr(zv)seznam(tec)cz>
Sent: Thursday, September 30, 2004 10:09 AM
>> Ja mam vyvoj na cca 200MB a uz jsem IBExpert personal zkousel i na cca
>> 1GB a
>
> Plna verze urcite ano, ale rec byla o verzi personal, ktera je krom
> jineho omezena i velikosti spravovane databaze. Spusteni sluzeb s pravy users
[*] Lasevic, Martin <mlasevic(zv)ratiopharm(tec)cz> - 30.9.2004 11:17:28
Zdravim,
Mame user policy nastavenou tak, ze bezny Domain user ma na stanici prava
skupiny User a nemuze proto startovat ani spoustet sluzby. V aplikaci
potrebuji
Spoustet a zastavovat sluzbu......pouzivam na to API funkce OpenSCManager,
OpenService, ....atd.....parametr prav mam nastaven na
SC_MANAGER_ALL_ACCESS,
Ale presto mi vraci error status 5 - access denied.....
Otazka : Da se nejak vnutit, aby aplikace dokazala zastavit nebo spustit
sluzbu s jinymi pravy nez s jakymi je sama aplikace spustena? Hodnota
SC_MANAGER_ALL_ACCESS zrejme pripusti pouze prava, s jakymi je spustena sama
aplikace.
Martin Lasevic
Tisk na tiskarne Epson LX 850
[*] Kratochvil Milan <mkratochvil(zv)farmtec(tec)cz> - 30.9.2004 10:19:22
Diky vyzkousim.
Milan
>> -----Original Message-----
>> From: Ing. Jan Dvorak [mailto:dvorak(zv)szu(tec)cz]
>> Sent: Thursday, September 30, 2004 9:37 AM
>> To: delphi-l(zv)clexpert(tec)cz
>> Subject: Re: Tisk na tiskarne Epson LX 850
>>
>>
>> Nezarucuji, ze to problem vyresi, ale zkus pouzit
>> Printer.Canvas.ClipRect.Bottom misto PageHeight
>> Jan Dvorak
>>
>> > Zdravim vsechny
>> >
>> > Mam problem s tiskem na tiskarne epson LX 850. Tiskovou
>> > sestavu vytvarim pomoci Printer.Canvas a aby vse korektne,
>> > tak si vezmu PageHeight a PageWidth a spoctu si presne kde ma
>> > byt jaky text vcetne okraju. Pri tisku na ruzne inkoustove
>> > nebo laserove je tisk OK ale na te epsonce mam 3 radky na
>> > dalsi strane. Zkousel jsem ruzne nastaveni v jak tiskarny tak
>> > v programu ale nic nepomohlo. Drivery tiskarny jsem
>> > preinstaloval take ale porad nic. Nemate nahodou nekdo
>> > podobne zkusenosti pripadne reseni?
>> >
>> > diky Milan
>>
>>
>>
>>
>>
>>
Synapse, odeslani mailu
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 30.9.2004 10:51:25
> zkousim odesilat mail pomoci Synapse. Celkem mi to jiz funguje, ale
> neni dorucena zprava na jednu z adres a neni ani vracena zadna chyba.
> Pri pokusu o odeslani mailu na tuto adresu pomoci Outlook Express je
> vracena chyba:
>
> Jak dostanu stejnou chybu ze Synapse??
Patrne neodesilas mail primym pouzivanim objektu TSmtpSend, ale
nejakou z ukazkovych funkci SendTo*.
Resenim je si napsat svoji odesilaci funkci po vzoru tech mych funkci
SendTo*. Tam, kde se kazda adresa prijemce zadava pomoci opakovaneho
volani metody TSmtpSend.MailTo, si budes hlidat navratovou hodnotu
teto metody. V pripade neuspachu nalezeznes v properties ResultCode a
ResultString duvod odmitnuti adresy adresata. Tyto chyby si pak
osetri jak chces, jak to vyhovuje nejlepe tve aplikaci.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.Firebird ?
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 30.9.2004 10:09:21
> Upresneni: IBExpert vi moc dobre velikost filu i na vzdalenych serverech.
By me zajimalo, jak to dela. Nebo to snad lze nejak pres fbclient API?
Peca
Synapse, odeslani mailu
[*] Pave Gazda <pavel_gazda(zv)datasw(tec)cz> - 30.9.2004 10:37:24
Zdravim,
zkousim odesilat mail pomoci Synapse. Celkem mi to jiz funguje, ale
neni dorucena zprava na jednu z adres a neni ani vracena zadna chyba.
Pri pokusu o odeslani mailu na tuto adresu pomoci Outlook Express je vracena
chyba:
*********
Zpravu nelze odeslat, protoze jeden z prijemcu byl serverem odmitnut.
Adresa odmitnuteho prijemce je xxx(zv)xxx.org
Predmet 'test posty', ucet: 'uuu', Server: 'sss.sss(tec)cz', Protokol: SMTP,
Odezva serveru: '553 sorry, that domain isn't in my list of allowed
rcpthosts (#5.7.1)',
Port: 25, Zabezpeceni (SSL): Ne, Chyba serveru: 553, cislo chyby: 0x800CCC79
*********
Jak dostanu stejnou chybu ze Synapse??
Predem diky za kazde nakopnuti
Pavel
placeny amater
Firebird ?
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 30.9.2004 10:27:23
> Jak je ta oprava? Musi to byt vyjmenovane na zacatku vsechno?
>> select osoba, count(typosoby_kod) from osoba group by osoba order by
>>pr, jm, osoba;
myslim, ze staci uvest vse co je v order by do group by. mozna to musi
byt i v selectu, ale myslim, ze ne. vsak ta hlaska napovida, ze se radi
podle neceho co neni ani agregovana funkce ani soucast group by...
Peca
Tisk na tiskarne Epson LX 850
[*] Kratochvil Milan <mkratochvil(zv)farmtec(tec)cz> - 30.9.2004 10:21:22
V nastaveni jsou dokonce 3 druhy rozmeru ale at jsem zkousel jakykoliv tak to bylo porad stejne. Otazka je zda to melo vliv nebo budu muset nejak zjistit ze se jedna o jehlickovou tiskarnu a pocitat umisteni textu trochu jinak.
Milan
>> -----Original Message-----
>> From: Vaclav Riha - Soft Consult [mailto:vaclav_riha(zv)softconsult(tec)cz]
>> Sent: Thursday, September 30, 2004 9:53 AM
>> To: delphi-l(zv)clexpert(tec)cz
>> Subject: Re: Tisk na tiskarne Epson LX 850
>>
>>
>> 9-ti jehlickove tiskarny maji asymetricke rozliseni (myslim
>> 144x120, resp
>> 72x60), zrejme to bude tim.
>>
>> S pozdravem Vaclav Riha
>>
>> >Mam problem s tiskem na tiskarne epson LX 850. Tiskovou
>> sestavu vytvarim
>> pomoci Printer.Canvas a aby vse korektne, tak si vezmu PageHeight a
>> PageWidth a spoctu si presne kde ma byt jaky text vcetne
>> okraju. Pri tisku
>> na ruzne inkoustove nebo laserove je tisk OK ale na te
>> epsonce mam 3 radky
>> na dalsi strane. Zkousel jsem ruzne nastaveni v jak tiskarny
>> tak v programu
>> ale nic nepomohlo. Drivery tiskarny jsem preinstaloval take
>> ale porad nic.
>> Nemate nahodou nekdo podobne zkusenosti pripadne reseni?
>>
>> >diky Milan
>>
>>
>>
>>
>>
Tisk na tiskarne Epson LX 850
[*] Radek Bernatek <rbernatek(zv)seznam(tec)cz> - 30.9.2004 09:49:19
A ma ta tiskarna nastavenou velikost papiru A4? Bezne je z vyroby nastavena na velikost Letter nebo nejaky podobny nazev a ta je trochu mensi nez A4. Nevim jak se to u teto tiskarny nastavuje, ale jestli je to jeste tema cudlikama tak je to bez manualu problem.
Radek Bernatek
Firebird ?
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 30.9.2004 10:11:21
Jak je ta oprava? Musi to byt vyjmenovane na zacatku vsechno? >
> select osoba, count(typosoby_kod) from osoba group by osoba order by
> pr, jm, osoba;
>
> Ja vim, ze dotaz vypada divne, ale nekde v tiskovych sestavach jsem
> cosi podobneho obcas mel. Nicmene oprava je jednoducha.
>
> Peca
> IB6 consistency check
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 30.9.2004 10:03:20
http://www.ibphoenix.com/main.nfs?a=ibphoenix&l=;KNOWLEDGEBASE;ID='205'
Nevim, zda Vam to pomuze - moc toho tam nerikaji..
> Integral GDS software consistency check (can't continue after bugcheck)
>
> Co to muze znamenat?
> Jake mohou byt priciny.
>
> Aplikace jede nepretrzite uz nekolik let.
> Najednou se to vcera zacalo objevovat.
>
> Honza
Tisk na tiskarne Epson LX 850
[*] Vaclav Riha - Soft Consult <vaclav_riha(zv)softconsult(tec)cz> - 30.9.2004 09:53:19
9-ti jehlickove tiskarny maji asymetricke rozliseni (myslim 144x120, resp
72x60), zrejme to bude tim.
S pozdravem Vaclav Riha
>Mam problem s tiskem na tiskarne epson LX 850. Tiskovou sestavu vytvarim
pomoci Printer.Canvas a aby vse korektne, tak si vezmu PageHeight a
PageWidth a spoctu si presne kde ma byt jaky text vcetne okraju. Pri tisku
na ruzne inkoustove nebo laserove je tisk OK ale na te epsonce mam 3 radky
na dalsi strane. Zkousel jsem ruzne nastaveni v jak tiskarny tak v programu
ale nic nepomohlo. Drivery tiskarny jsem preinstaloval take ale porad nic.
Nemate nahodou nekdo podobne zkusenosti pripadne reseni?
>diky Milan
IB6 consistency check
[*] Vaclav Sykora <vaclav.sykora(zv)accidis(tec)cz> - 30.9.2004 09:41:18
> Integral GDS software consistency check (can't continue after
> bugcheck)
Tohle mi zpusoboval trigger (after insert), ktery spoustel stored
proceduru s parametrem. Pricinu neznam, nakonec jsem to resil rucnim
spustenim sp v programu. Pripominam ze DB bezi na IB7.1.
vas
D7 Prof, WinXP SP1, IB7.1
Tisk na tiskarne Epson LX 850
[*] Ing. Jan Dvorak <dvorak(zv)szu(tec)cz> - 30.9.2004 09:37:17
Nezarucuji, ze to problem vyresi, ale zkus pouzit
Printer.Canvas.ClipRect.Bottom misto PageHeight
Jan Dvorak
> Zdravim vsechny
>
> Mam problem s tiskem na tiskarne epson LX 850. Tiskovou
> sestavu vytvarim pomoci Printer.Canvas a aby vse korektne,
> tak si vezmu PageHeight a PageWidth a spoctu si presne kde ma
> byt jaky text vcetne okraju. Pri tisku na ruzne inkoustove
> nebo laserove je tisk OK ale na te epsonce mam 3 radky na
> dalsi strane. Zkousel jsem ruzne nastaveni v jak tiskarny tak
> v programu ale nic nepomohlo. Drivery tiskarny jsem
> preinstaloval take ale porad nic. Nemate nahodou nekdo
> podobne zkusenosti pripadne reseni?
>
> diky Milan
IB6 consistency check
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 30.9.2004 09:29:15
Integral GDS software consistency check (can't continue after bugcheck)
Co to muze znamenat?
Jake mohou byt priciny.
Aplikace jede nepretrzite uz nekolik let.
Najednou se to vcera zacalo objevovat.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 569 (mobil 776 347 735)
====================================Firebird ?
[*] Milan Tomes <delphi(zv)haida(tec)cz> - 30.9.2004 09:15:13
Upresneni: IBExpert vi moc dobre velikost filu i na vzdalenych serverech.
S pozdravem
Milan Tomes
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of petr palicka
> Sent: Thursday, September 30, 2004 9:09 AM
>
> neb pri navrhu, ladeni a praci s databazi ji vic jak 50MB velkou stejne
> nemam. navic se domnivam, ze to lze obejit vzdalenym pripojenim, kdy si
> IBExpert na velikost GDB nemuze nijak sahnout (imho).
>
> Peca
>
>
>
Firebird ?
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 30.9.2004 09:09:13
>>IBExpert Free Personal funguje pouze pro GDB do 50MB a
>>to me pripada dost omezujici ...
> Na to jsi prisel kde? Ja ho pouzivam a funguje i na daleko vetsim
objemu DB.
Je to myslim na strankach HK softu. Kazdopadne sef vcera prisel, ze mu
to zarvalo prave na velikost databaze >50MB. Me to omezujici neprijde,
neb pri navrhu, ladeni a praci s databazi ji vic jak 50MB velkou stejne
nemam. navic se domnivam, ze to lze obejit vzdalenym pripojenim, kdy si
IBExpert na velikost GDB nemuze nijak sahnout (imho).
Peca
Tisk na tiskarne Epson LX 850
[*] Kratochvil Milan <mkratochvil(zv)farmtec(tec)cz> - 30.9.2004 09:01:12
Zdravim vsechny
Mam problem s tiskem na tiskarne epson LX 850. Tiskovou sestavu vytvarim pomoci Printer.Canvas a aby vse korektne, tak si vezmu PageHeight a PageWidth a spoctu si presne kde ma byt jaky text vcetne okraju. Pri tisku na ruzne inkoustove nebo laserove je tisk OK ale na te epsonce mam 3 radky na dalsi strane. Zkousel jsem ruzne nastaveni v jak tiskarny tak v programu ale nic nepomohlo. Drivery tiskarny jsem preinstaloval take ale porad nic. Nemate nahodou nekdo podobne zkusenosti pripadne reseni?
diky Milan
Firebird ?
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 30.9.2004 08:45:09
Na to jsi prisel kde? Ja ho pouzivam a funguje i na daleko vetsim objemu DB.
Ja u verze personal dost postradam autogrant a grant manager, ale jinak je
tam vse co potrebuji.
Libor
----- Original Message -----
From: "Tomas Hulek" <tohu(zv)tmapy(tec)cz>
Sent: Thursday, September 30, 2004 8:17 AM
> IBExpert Free Personal funguje pouze pro GDB do 50MB a
> to me pripada dost omezujici ... Kam drivery
[*] delphin(zv)post(tec)cz - 30.9.2004 08:31:07
> Omlouvam se za OT. Mam univerzalni image (Windows XP) pro ruzne pocitace.
> Musim vsak po nahrani image doinstalovat rozpoznany hardware.
Predpokladam,
> ze kdyz soubory inf od driveru umistim do adresare INF (je nutne neco v
INF
> souboru upravit. Napr. cesty) a drivery do adresare SYSTEM32\DRIVERS dojde
k
> instalaci automaticky. Je to tak nebo se pletu. Windows spousti pruvodce
> rozpoznanym hardwarem. Je mozne toto hlaseni preskocit a provest
> automatickou doinstalaci.
Bude to fungovat, ale na WXP se nekdy zobrazi dialog o podpisu a ten se musi
odkliknout.
Nejlepsi je drivery nakopirovat do zvlastniho adresare (nebo na CD) a
zavolat na ne SetupCopyOemINF. Windows pak nainstaluje jenom drivery od
zarizeni, ktere byly detekovany a samo si nakopiruje soubory, tam kam patri.Firebird ?
[*] Marek Spisak <spishark(zv)post(tec)cz> - 30.9.2004 08:31:07
Tomas Hulek wrote:
>Jinak se omlouvam ze opakuji otazky, ktere zde jiz probehli, ale jsem do
>konference cerstve prihlasen a priznam se, ze nevim jak se podivat do
>historie konference, dekuji za pochopeni.
>
http://www.delphi(tec)cz/hledani.asp
Marek
Firebird ?
[*] Tomas Hulek <tohu(zv)tmapy(tec)cz> - 30.9.2004 08:17:06
Dik za odpoved, ale IBExpert Free Personal funguje pouze pro GDB do 50MB a
to me pripada dost omezujici ...
Jinak se omlouvam ze opakuji otazky, ktere zde jiz probehli, ale jsem do
konference cerstve prihlasen a priznam se, ze nevim jak se podivat do
historie konference, dekuji za pochopeni.
>> -----Original Message-----
>> From: delphi-l-owner(zv)clexpert(tec)cz
>>
>> Ahoj,
>
> Ahoj,
>
>> chtel bych se zeptat na zkusenost s prechodem z verze
>> Firebird 1.0 na 1.5.
>> Neni nejaky problem se zmenou verze pro jiz existujici GDB ?
>
> Ja problem zadny nepozoroval.
>
>> A jaky free nastroj by jste doporucili pro administraci a
>> praci s databazemi
>> (IBConsole)?
>
> A co se takhle podivat trochu do historie konfery?
> Casto kladena otazka...treba IBExpert.
>
> S pozdravem a dikem
> =====================================
>> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
> =====================================
>> GSM: 602 652 203 | ICQ: 322015967 <
> =====================================
>
>
>
>
> OT: Kam drivery
[*] delphi(zv)spst(tec)cz - 30.9.2004 08:17:05
Dobry den.
Omlouvam se za OT. Mam univerzalni image (Windows XP) pro ruzne pocitace.
Musim vsak po nahrani image doinstalovat rozpoznany hardware. Predpokladam,
ze kdyz soubory inf od driveru umistim do adresare INF (je nutne neco v INF
souboru upravit. Napr. cesty) a drivery do adresare SYSTEM32\DRIVERS dojde k
instalaci automaticky. Je to tak nebo se pletu. Windows spousti pruvodce
rozpoznanym hardwarem. Je mozne toto hlaseni preskocit a provest
automatickou doinstalaci.
Predem dekuji Jirka
Firebird ?
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 30.9.2004 06:58:59
Ahoj,
pouzivam nejcasteji nastroje gbak, isql, gfix a spol (najdes je ve
slozce bin po nainstalovani FB :-). Jinak obcas IBExpert personal.
Co se tyce problemu, tak na jeden jsem narazil. Jedna se o chybovou
hlasku:
Statement failed, SQLCODE = -104
Dynamic SQL Error
-SQL error code = -104
-Invalid expression in the ORDER BY clause (not contained in either
an aggregate function or the GROUP BY clause)
Pro ilustraci dotaz byl takovyto:
select osoba, count(typosoby_kod) from osoba group by osoba order by
pr, jm, osoba;
Ja vim, ze dotaz vypada divne, ale nekde v tiskovych sestavach jsem
cosi podobneho obcas mel. Nicmene oprava je jednoducha.
Peca
blob do stringu
[*] hlas <hlas(zv)inmail.sk> - 29.9.2004 21:50:24
ako dostanem prvych napr. 6 x 255 znakov
do 6-tich stringov z blobu.
skusam toto ale neviem sa pohybovat po tom blobe
dalej. prvych 255 znakov nacitam.
var
P: array [0..255] of char;
bs: TBlobStream;
hStr: String;
begin
bs := TBlobStream.Create(Dm.TableZadanZadanie, bmRead);
FillChar(P,SizeOf(P),#0);
bs.Read(P, 255);
hStr := StrPas(P);
while Pos(#13, hStr) > 0 do {remove carriage returns and}
hStr[Pos(#13, hStr)] := ' ';
while Pos(#10, hStr) > 0 do {line feeds}
hStr[Pos(#10, hStr)] := ' ';
dm.TableZadanZadanie1.Value:=P;
bs.Seek(256,0);
bs.Read(P, 255); hStr := StrPas(P);
while Pos(#13, hStr) > 0 do {remove carriage returns and}
hStr[Pos(#13, hStr)] := ' ';
while Pos(#10, hStr) > 0 do {line feeds}
hStr[Pos(#10, hStr)] := ' ';
dm.TableZadanZadanie2.Value:=P;
bs.Free;
end;Firebird ?
[*] Tomas Hulek <tohu(zv)tmapy(tec)cz> - 29.9.2004 19:46:09
Ahoj,
chtel bych se zeptat na zkusenost s prechodem z verze Firebird 1.0 na 1.5.
Neni nejaky problem se zmenou verze pro jiz existujici GDB ?
A jaky free nastroj by jste doporucili pro administraci a praci s databazemi
(IBConsole)?
dik za tip
th Firebird ?
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 29.9.2004 20:00:16
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
>
> Ahoj,
Ahoj,
> chtel bych se zeptat na zkusenost s prechodem z verze
> Firebird 1.0 na 1.5.
> Neni nejaky problem se zmenou verze pro jiz existujici GDB ?
Ja problem zadny nepozoroval.
> A jaky free nastroj by jste doporucili pro administraci a
> praci s databazemi
> (IBConsole)?
A co se takhle podivat trochu do historie konfery?
Casto kladena otazka...treba IBExpert.
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Zmena BorderStyle v OnShow
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 29.9.2004 19:00:04
SendMessage(Handle, WM_SETREDRAW, 0, 0);
BorderStyle := bsNone;
SendMessage(Handle, WM_SETREDRAW, 1, 0);
-----------------
v OnShow formu potrebuji podle jistych okolnosti nastavit BorderStyle
bez rusivych efektu?Zmena BorderStyle v OnShow
[*] Flaska Jakub <jakub.flaska(zv)zpskoda(tec)cz> - 29.9.2004 18:52:02
> v OnShow formu potrebuji podle jistych okolnosti nastavit BorderStyle
> formu na bsSingle nebo bsSizeable. Jenze Delphi tohle nechteji udelat
Nevytvarej ten formular pri spusteni ale az kdyz budes vedet BorderStyle v runtime.
if not Assigned(MujForm) then begin
Application.CreateForm(TMujForm, MujForm);
MujForm.BorderStyle := bsSigle;
end;
MujForm.Show;
Jakub Flaska
Dalsi stranka v gridu
[*] Jiri Preisler <preisler(zv)jiri(tec)cz> - 29.9.2004 18:11:59
query.MoveBy(20)
jiri
>Zdravim,
>muzete mi prosim poradit s nasledujicim:
>mam DBGrid napojen na query s cca 100 zaznami. Na obrazovce vidim prvnich 20. Kdyz stitku PageUp/Down na klavesnici, posunu se vprad/vzad o dalsich 20 zaznamu. Jak tuto udalost zavolam tlacitkem? query.Next prejdu na dalsi zaznam a zavolat 20xNext je dost drsny......
>
>Diky za vse
>Vlasta
>
>D5, ADO, SQL 7.0
>
>
>
Metadata z Access databaze
[*] Winsoft <winsoft(zv)netkosice.sk> - 29.9.2004 17:21:55
> Neexistuje nekaky zpusob jak 'vytahnout' metadata v txt formatu,
> neco nas zpusob IBExpert, popr. komponenty TIBExtract.
pozri ADOX, napr. http://www.winsoft.sk/adofaq.htm
Erik Salaj, WINSOFT
CTRL+ALT+DEL, ALT+TAB
[*] delphi(zv)spst(tec)cz - 29.9.2004 16:53:48
Dobry den.
Lze predefinovat funkci klaves. Takze muzes udelat to, ze se nepovede
zmacknout CTRL+ALT+DEL, ALT+TAB protoze ALT se bude chovat treba jako
Insert. Vyzkousel jsem a funguje to. Ma to vsak jeden hacek. Pro zapnuti a
vypnuti je potreba restart PC.
Ukazka byla na Chip CD mam dojem srpen. Kdyz nezapomenu tak se doma kouknu a
poslu vzor.
Jinak koukni na http://www.dwinlock.kassl.de je nutno nainstalovat a
restartovat, ale potom to funguje.
Jirka
OT: Metadata z Access databaze
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 29.9.2004 17:15:55
Ahoj,
potrebuji nacist z MDB do FB nejake data, vim jak se to pole jmenuji,
jenze jej v MDB (asi 150 tabulek) nemohu najit v ktere jsou tabulce.
Najdu pole sice v Hex prohlizeci, ale...
Podarilo se mi vytvorit MDT soubor, tam ta pole take nejsou.
Neexistuje nekaky zpusob jak 'vytahnout' metadata v txt formatu,
neco nas zpusob IBExpert, popr. komponenty TIBExtract.
D6 Pro, MS Access 2000
Dekuji za jakykoli napad,
Jarek Uher
CTRL+ALT+DEL, ALT+TAB
[*] delphi(zv)spst(tec)cz - 29.9.2004 16:49:47
Dobry den.
Lze predefinovat funkci klaves. Takze muzes udelat to, ze se nepovede
zmacknout CTRL+ALT+DEL, ALT+TAB protoze ALT se bude chovat treba jako
Insert. Vyzkousel jsem a funguje to. Ma to vsak jeden hacek. Pro zapnuti a
vypnuti je potreba restart PC.
Ukazka byla na Chip CD mam dojem srpen. Kdyz nezapomenu tak se doma kouknu a
poslu vzor.
Jinak koukni na http://www.dwinlock.kassl.de je nutno nainstalovat a
restartovat, ale potom to funguje.
Jirka
Zmena BorderStyle v OnShow
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 29.9.2004 15:11:38
Ahoj,
v OnShow formu potrebuji podle jistych okolnosti nastavit BorderStyle
formu na bsSingle nebo bsSizeable. Jenze Delphi tohle nechteji udelat
- dostanu vynadano, ze nesmim menit Visible v OnShow nebo OnHide.
Kdyz se to pokusim obejit tak, ze si pres PostMessage v OnShow
necham poslat svou vlastni zpravu a v jeji obsluze teprve menim
BorderStyle, tak to sice funguje, ale okno pri tom blikne. Jak tedy
mohu v OnShow menit BorderStyle tak, aby to slo bez rusivych efektu?
Diky
David Lebeda
Zmena BorderStyle v OnShow
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 29.9.2004 15:29:39
> v OnShow formu potrebuji podle jistych okolnosti nastavit BorderStyle
> formu na bsSingle nebo bsSizeable. Jenze Delphi tohle nechteji udelat
> - dostanu vynadano, ze nesmim menit Visible v OnShow nebo OnHide.
> Kdyz se to pokusim obejit tak, ze si pres PostMessage v OnShow
> necham poslat svou vlastni zpravu a v jeji obsluze teprve menim
> BorderStyle, tak to sice funguje, ale okno pri tom blikne. Jak tedy
> mohu v OnShow menit BorderStyle tak, aby to slo bez rusivych efektu?
Zmena BorderStyle sposobi uvolnenie a znovuvytvorenie okna, takze dost
tazko. Mozno by sa dalo vytvorit nejake docasne okno s kopiou bitmapy
povodneho okna, ktorym ho na tu dobu prekryjes.
HTH
TOndrej
TabSheet_visible
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 29.9.2004 14:39:36
No jasne, diky Evo.
Dalik.
> TTabSheet ma property TabVisible
TabSheet_visible
[*] Eva Risicova <eva(zv)foresta(tec)cz> - 29.9.2004 14:25:34
TTabSheet ma property TabVisible
----- Original Message -----
From: "Dalibor Faltynek" <dalibor.faltynek(zv)orgrez(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, September 29, 2004 2:17 PM
Subject: TabSheet_visible
> Ahoj,
> mozna uz uplne blbnu, ale nedari se mi zneviditelnit pomoci vlastnosti
> visible jeden list v ramci komponenty PageControl v D5. Ani pri navrhu,
ani
> za behu. Cim to je? Nebo to nejde?
> Diky Dalik.
>
>
TabSheet_visible
[*] Dalibor Faltynek <dalibor.faltynek(zv)orgrez(tec)cz> - 29.9.2004 14:17:34
Ahoj,
mozna uz uplne blbnu, ale nedari se mi zneviditelnit pomoci vlastnosti
visible jeden list v ramci komponenty PageControl v D5. Ani pri navrhu, ani
za behu. Cim to je? Nebo to nejde?
Diky Dalik.Dalsi stranka v gridu
[*] Jiri Preisler <preisler(zv)jiri(tec)cz> - 29.9.2004 13:33:30
query.MoveBy(20)
jiri
>Zdravim,
>muzete mi prosim poradit s nasledujicim:
>mam DBGrid napojen na query s cca 100 zaznami. Na obrazovce vidim prvnich 20. Kdyz stitku PageUp/Down na klavesnici, posunu se vprad/vzad o dalsich 20 zaznamu. Jak tuto udalost zavolam tlacitkem? query.Next prejdu na dalsi zaznam a zavolat 20xNext je dost drsny......
>
>Diky za vse
>Vlasta
>
>D5, ADO, SQL 7.0
>
>
>
Dalsi stranka v gridu
[*] Vlastimil Zdenek <delphi(zv)gestore(tec)cz> - 29.9.2004 13:25:30
Zdravim,
muzete mi prosim poradit s nasledujicim:
mam DBGrid napojen na query s cca 100 zaznami. Na obrazovce vidim prvnich 20. Kdyz stitku PageUp/Down na klavesnici, posunu se vprad/vzad o dalsich 20 zaznamu. Jak tuto udalost zavolam tlacitkem? query.Next prejdu na dalsi zaznam a zavolat 20xNext je dost drsny......
Diky za vse
Vlasta
D5, ADO, SQL 7.0
CTRL+ALT+DEL, ALT+TAB
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 29.9.2004 10:15:17
Milos J. Hrach wrote:
> Ahoj Lidi,
> potreboval bych ve sve aplikaci zakazat stisk klaves alt+tab a
> ctrl+alt+del tak aby to chodilo pod Win XP. To co jsem ruzne
> nasel na webu i tady konfere nefunguje.
No s Ctrl-Alt-Del se rozluc, pokud nechces prepsat vlastni WinLogon cast
Windows. (Castecne na to funguje muj program Keys, tak jedine ho do tve app.
zadelat.)
Na Alt-Tab docela zabira.
RegisterHotKey(0, 0, MOD_ALT, Ord(VK_TAB))
Prijde ti pak zprava WM_HOTKEY, ale muzes ji ignorovat.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
ICQ#: 314711544
web: http://www.cincura.net; http://photo.cincura.net
---
Nekdo vidi veci, ktere existuji, a pta se - proc?. Ja snim o vecech, ktere
nikdy neexistovaly a ptam se - proc ne? (Robert Kennedy)
CTRL+ALT+DEL, ALT+TAB
[*] Vlko II. <vlko(zv)zilina(tec)net> - 29.9.2004 10:15:18
On Wed, 29 Sep 2004 07:53:07 +0200, Milos J. Hrach <delphi_konf(zv)post(tec)cz>
wrote:
> Ahoj Lidi,
> potreboval bych ve sve aplikaci zakazat stisk klaves alt+tab a
> ctrl+alt+del tak aby to chodilo pod Win XP. To co jsem ruzne
> nasel na webu i tady konfere nefunguje.
Mozno to nie je to, co chces, ale robil som aplikaciu pre informacny kiosk,
na ktorom bezi len prehliadac internetu (vlastny prg), a jednoduchsie je:
1. spustit aplikaciu ako shell replacer (uzivatel ma stazene spustenie app)
2. upravou v registroch obmedzit uzivatela (zakazanie vypnutia,
taskmanagera,
obmedzenia IE,..)
3. v urcitych casovych intervaloch (1/2 sec) prechadzat vsetky spustene
aplikacie
a ak nevyhovuju podmienke zatvarat ich.
4. po urcitom casovom intervale, ked je pc iddle (5 min) zavriet vsetky
explorerovske
okna otvorene pomocou ctrl+shift+click na linku.
5. On close query je zakazane vypnutie bez hesla.
Co tym ziskas? ctrl+alt+del, ctrl+esc, vypnutie a pod je zakazane.
Uzivatel sa moze prepinat medzi otvorenymi explorerovymi oknami pomocou
ALT+TAB.
Nie je mozne spustit nijaky program. Restriktivnymi nastaveniami IE je
zakazane
takmer vsetko : ukladanie na disk, menu, ... .
Na informacnom kiosku to spokojne bezi uz cca 2 mesiace. Na poziadanie
mozem zaslat
funkcnu verziu, na vyskusanie staci, ale nastavit ju ako shell replacer da
trosku zabrat,
ale vysledok stoji za to:)
vlko
--
--------------
mail: vlko_(zv)pobox.sk
web: http://vlko.zilina.net
Reakce na pohyb formularem
[*] Macecek Marcel <marcel.macecek(zv)siemens(tec)com> - 29.9.2004 10:01:16
Diky moc,
Tak ted mi to jde ;-)
Nasel jsem totiz v 1001 tipu a triku pro Delphi proceduru, ktera tam ma
message WM_MOVE a stim to nejde ....;-)
Marcel
< Tohle jsem nasel v MSDN:
<
< The WM_MOVING message is sent to a window that the user is moving. By
< processing this message, an application can monitor the position of
the drag
< rectangle and, if needed, change its position.
< A window receives this message through its WindowProc function.
<
< Petr Brant
Reakce na pohyb formularem
[*] Macecek Marcel <marcel.macecek(zv)siemens(tec)com> - 29.9.2004 09:25:13
Caute,
Nevite nekdo, jak udelat reakci na pohyb formularem ???
Diky
Marcel
CTRL+ALT+DEL, ALT+TAB
[*] Milos J. Hrach <delphi_konf(zv)post(tec)cz> - 29.9.2004 07:53:07
Ahoj Lidi,
potreboval bych ve sve aplikaci zakazat stisk klaves alt+tab a
ctrl+alt+del tak aby to chodilo pod Win XP. To co jsem ruzne
nasel na webu i tady konfere nefunguje.
--
Milos J. Hrach, D6 profi, WinXP Home
BLOB polozka
[*] Marek <marek.rakowski(zv)trz(tec)cz> - 29.9.2004 06:22:57
ahoj,
ja pouzivam toto
// zapsat
var
blob : TStream;
fs : TFileStream;
begin
ZTable1.Insert;
blob := ZTable1.CreateBlobStream(ZTable1fax, bmWrite);
try
blob.Seek(0, soFromBeginning);
fs := TFileStream.Create('C:\DEFAULT.APF', fmOpenRead or fmShareDenyWrite) //if fs.Size>16770000 then // omezeni velikost souboru
blob.CopyFrom(fs, fs.Size)
finally
fs.Free;
blob.Free ;
end;//nacist
var
blob : TStream;
begin
blob := ZTable1.CreateBlobStream(ZTable1fax, bmRead);
blob.Seek(0, soFromBeginning);
with TFileStream.Create('C:\data.APF', fmCreate) do
try
CopyFrom(blob, blob.Size)
finally
Free ;
blob.Free
end;
Marek
Zdravim konferenci
prosim poradte mi nekdo jak pracovat s BLOB polozkou. Jeste jsem to nikdy
nepouzil. Potrebuji ukladat delsi texty. Pres INSERT a UPDATE to asi
nepujde, ze ? Nejlepsi by byl maly prikladek.
Dik Zdenek
BLOB polozka
[*] MMiro <delphi(zv)admis.sk> - 28.9.2004 22:52:26
From: "Vaclav Sykora" <vaclav.sykora(zv)accidis(tec)cz>
> Timto zpusobem jsme pracovali s BLOB zaznamy pod IB7 a po nejakem case
S FB by problem nemal byt my to pouzivame bezne uz niekolko rokov.
Miro
BLOB polozka
[*] Vaclav Sykora <vaclav.sykora(zv)accidis(tec)cz> - 28.9.2004 18:02:07
> Table.FieldByName('BlobField').AsString:=
> '...'; a nesetkal jsem se s zadnym problemem. Predpokladam,
> ze v SQL to bude podobne.
Timto zpusobem jsme pracovali s BLOB zaznamy pod IB7 a po nejakem case
se zacaly objevovat hlasky "BLOB not found". Byl to dost velky problem,
protoze u takto postizeneho pole doslo ke ztrate dat. Zkouseli jsme to
nejak resit, ale nakonec jsme musely vsechny pole typu blob prevest na
varchar(2500). Od te doby je klid.
vas
BLOB polozka
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 28.9.2004 17:48:06
Pred chvili jsem to zkousel takto:
db.Connected:= true;
q.SQL.Clear;
s:= '0123456789012301234567890123456789012....';
s:= s+s+s+s+s+s+s+s+s+s+s+s;
q.SQL.Add('insert into fuel (baddata) values (''' + s + ''')');
q.ExecSQL;
a proslo to zcela bez problemu. Blob je typu 1 (text). Firebird 1.5, Delphi
5 Pro, WinXP Pro + SP1, IBX Express
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz <http://brant.wz(tec)cz> > > prosim poradte mi nekdo jak pracovat s BLOB polozkou. Jeste jsem to
> nikdy
> > nepouzil. Potrebuji ukladat delsi texty. Pres INSERT a UPDATE to asi
> > nepujde, ze ? Nejlepsi by byl maly prikladek.
>
> Napriklad s Interbase to ide aj cez INSERT, UPDATE s parametrami a
> streamami. Podrobnosti zrejme zavisia od danej databazy a komponentov,
> ktore pouzivas na pracu s nou.
>
BLOB polozka
[*] tondrej(zv)t-online.de - 28.9.2004 17:32:05
> prosim poradte mi nekdo jak pracovat s BLOB polozkou. Jeste jsem to nikdy
> nepouzil. Potrebuji ukladat delsi texty. Pres INSERT a UPDATE to asi
> nepujde, ze ? Nejlepsi by byl maly prikladek.
Napriklad s Interbase to ide aj cez INSERT, UPDATE s parametrami a
streamami. Podrobnosti zrejme zavisia od danej databazy a komponentov,
ktore pouzivas na pracu s nou.
HTH
TOndrej
BLOB polozka
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 28.9.2004 16:58:03
On 28 Sep 2004 at 16:32, Petr Brant wrote:
> Hm... pracuju s BLOB polozkou zcela stejne jako s jakoukoli jinou,
> nepouzivam ale SQL, takze napr.
> Table.FieldByName('BlobField').AsString:= '...'; a nesetkal jsem se s
> zadnym problemem. Predpokladam, ze v SQL to bude podobne.
>
> RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
> http://brant.wz(tec)cz <http://brant.wz(tec)cz>
>
>
> > prosim poradte mi nekdo jak pracovat s BLOB polozkou. Jeste jsem to
> > nikdy nepouzil. Potrebuji ukladat delsi texty. Pres INSERT a UPDATE
> > to asi nepujde, ze ? Nejlepsi by byl maly prikladek.
obavam se, ze "pres INSERT, UPDATE" to nebude tak jednoduche
predevsim se podivej tady, jestli vubec zvolit BLOB na tve 'delsi
texty'
http://www.volny(tec)cz/iprenosil/interbase/ip_ib_strings.htm
v SQL (TIBQuery) jde BLOB ukladat pomoci TMemoryStream
ja takto ukladam obsah StringGridu
SL := TStringList.Create;
TempMemStream := TMemoryStream.Create;
try
SL.Clear;
for I := 0 to StringGrid1.ColCount - 1 do
for J := 1 to StringGrid1.RowCount - 1 do
SL.Add(StringGrid1.Cells[I,J]);
if SL.Text = ''
then IBQueryTmp.Params[0].AsString := ''
else begin
SL.SaveToStream(TempMemStream);
TempMemStream.Position := 0; // reset to the beginning of
the stream
IBQueryTmp.Params[0].DataType := ftBLOB;
IBQueryTmp.Params[0].Value := Null;
IBQueryTmp.Params[0].LoadFromStream(TempMemStream,ftBlob);
end;
finally
TempMemStream.Free;
SL.Free;
end;
Jarek Uher
BLOB polozka
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 28.9.2004 16:32:01
Hm... pracuju s BLOB polozkou zcela stejne jako s jakoukoli jinou,
nepouzivam ale SQL, takze napr. Table.FieldByName('BlobField').AsString:=
'...'; a nesetkal jsem se s zadnym problemem. Predpokladam, ze v SQL to bude
podobne.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://brant.wz(tec)cz <http://brant.wz(tec)cz> > prosim poradte mi nekdo jak pracovat s BLOB polozkou. Jeste jsem to nikdy
> nepouzil. Potrebuji ukladat delsi texty. Pres INSERT a UPDATE to asi
> nepujde, ze ? Nejlepsi by byl maly prikladek.
BLOB polozka
[*] In g. Zdenek Reznicek <reznicek(zv)pce(tec)cz> - 28.9.2004 16:09:54
Zdravim konferenci
prosim poradte mi nekdo jak pracovat s BLOB polozkou. Jeste jsem to nikdy
nepouzil. Potrebuji ukladat delsi texty. Pres INSERT a UPDATE to asi
nepujde, ze ? Nejlepsi by byl maly prikladek.
Dik Zdenek
Pripojeni k Firebird po startu Windows
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 28.9.2004 14:15:44
Souhlasim s zde uverejnenymi prispevky. Meli jsme stejny problem. Vyresil
jsem to tak, ze bezi Timer, ktery pripoji DB az za chvilku a aplikace ceka
az se pripojeni podari..
Jinak to asi zkratka nejde..
dbGrid and OnCellClick
[*] Lada <lada.xt(zv)volny(tec)cz> - 27.9.2004 15:44:14
Zdravim vsechny,
nejak mne nefunguje DBGridCellClick na prvni pole prvniho sloupce tabulky...
Pole se vybere jako k editaci a prikaz nastaveny na tuto udalost se
neprovede. Pro vsechny ostatni pole je vse OK.
Moc dekuji za pripadnou pomoc,
Lada
Pripojeni k Firebird po startu Windows
[*] Tomas Bradle <t.bradle(zv)sanet(tec)cz> - 27.9.2004 15:32:08
U me to dela taky. Je to dano tim, ze start service chvili trva a prihlaseni
uzivatele probehne drive nez spusteni FB. Reseni jsou mozna dve:
1. v aplikaci delat db.open v casovych intervalech,
v TfrRPMain.create dat tm.Enabled:=true a potom
procedure TfrRPMain.tmTimer(Sender: TObject);
begin
tm.enabled:=false;
try
db.Connected:=true;
except
tm.Enabled:=true;
end; {try}
end;
mam: tm.interval := 1000;
samozrejme, je mozne v except jeste dekodovat typ vyjimky...
2. pokud nelze (nebo nechces) zasahovat do existujici aplikce, lze udelat
loader, ktery podobne jako v bodu 1 testuje pripojeni k FB, kdyz se mu to
povede, spusti teprve prislusnou aplikaci.
Oba body mam odzkousene a pouzivam je se 100% uspesnosti cca 4 mesice u
zakaznika.
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
----- Original Message -----
From: "Pavel Poles" <delphi(zv)noni(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 27, 2004 1:39 PM
Subject: Pripojeni k Firebird po startu Windows
> Zdravim konferenci,
>
> mam aplikaci ktera se pri svem spusteni pripoji k Firebirdu.
> Ta aplikace se spusti automaticky po startu Windows (pres polozku
> po spusteni v Start menu). Na pocitaci je nainstalovan Firebird 1.5.1,
> superserver a bezi jako service. Pocitac bezi na Win XP Pro se vsema
> moznejma SP krom SP2. Prihlaseni maji automaticke.
> Problem na tomhle pocitaci je, ze kdyz se aplikace po svem spusteni
> pokusi prihlasit k Firebirdu (jeli spustena prave tim ze se nastrtujou
Windows)
> tak se ji to nepodari. Pokud ji spustim rucne znovu tak uz to bezi jak ma.
> Driv to chodilo bez problemu, ale nedokazu rict co se vse zmenilo, protoze
> to je pocitac zakaznika....
>
> Nesetkal jste se nekdo s podobnym problemem?
>
> Predem dik za rady a podnety,
>
> Pavel Poles
>
>
>
OT Longhorn - testovaci verze
[*] Martin Radvansky <delphiconf(zv)radvansky(tec)net> - 27.9.2004 14:50:05
Dobry den,
D> No, ja jsem mel instalacni obraz kolem 800MB a jmenoval se presne takhle
D> lh_usa_4074_x86fre_pro-dvd.iso
Jo kecam to byl puvodni Preview z PDC, ted je na MSDN opravdu
nejakejch 800MB a preview2
--
S pozdravem,
Martin Radvansky
delphiconf(zv)radvansky.net
Pripojeni k Firebird po startu Windows
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 27.9.2004 14:44:00
On 27 Sep 2004 at 13:39, Pavel Poles wrote:
> mam aplikaci ktera se pri svem spusteni pripoji k Firebirdu.
> Ta aplikace se spusti automaticky po startu Windows (pres polozku po
> spusteni v Start menu). Na pocitaci je nainstalovan Firebird 1.5.1,
> superserver a bezi jako service. Pocitac bezi na Win XP Pro se vsema
> moznejma SP krom SP2. Prihlaseni maji automaticke. Problem na tomhle
> pocitaci je, ze kdyz se aplikace po svem spusteni pokusi prihlasit k
> Firebirdu (jeli spustena prave tim ze se nastrtujou Windows) tak se ji
> to nepodari. Pokud ji spustim rucne znovu tak uz to bezi jak ma. Driv
> to chodilo bez problemu, ale nedokazu rict co se vse zmenilo, protoze
> to je pocitac zakaznika....
>
> Nesetkal jste se nekdo s podobnym problemem?
ja ano, na bratrovem PC (W2000)
Tam zaroven bezi dalsi SQL Server (MS SQL a aplikace Profibanka od
KB).
FB zrejme startuje az jako 'druhy' a kdyz spustim Win a potom se
podivam do firebird.log, tak vidim rozdil mezi startem Win a FB.
Rekl bych az 2-3 min.
Jarek Uher
OT Longhorn - testovaci verze
[*] Dalibor <dalibor(zv)torola(tec)cz> - 27.9.2004 14:42:00
No, ja jsem mel instalacni obraz kolem 800MB a jmenoval se presne takhle
lh_usa_4074_x86fre_pro-dvd.iso
>
> No pokud jsi predplatitelem MSDN tak neni problem to z downloadu
> stahnout, i kdyz je to jen PDC preview. Nicmene to ma kolem 2.5G ten
> instalacni obraz
>
>
> --
> S pozdravem,
> Martin Radvansky
>
>
OT Longhorn - testovaci verze
[*] Martin Radvansky <delphiconf(zv)radvansky(tec)net> - 27.9.2004 14:17:58
Dobry den,
>> Jen bych se chtel zeptat zda existuje nejaka testovaci verze Longhorn-u
>> pro potreby testovani a pokud ano, kde se da sehnat?
No pokud jsi predplatitelem MSDN tak neni problem to z downloadu
stahnout, i kdyz je to jen PDC preview. Nicmene to ma kolem 2.5G ten
instalacni obraz
--
S pozdravem,
Martin Radvansky
Pripojeni k Firebird po startu Windows
[*] Dalibor <dalibor(zv)torola(tec)cz> - 27.9.2004 13:49:55
No ja bych to resil asi tak, ze bych do aplikace pridal Timer, pomoci
ktereho bych se pripojoval k databazi za urcitou dobu.
A tu urcitou dobu bych treba dal nekde do nastaveni, at se da menit.
----- Original Message -----
From: "Pavel Poles" <delphi(zv)noni(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 27, 2004 1:39 PM
Subject: Pripojeni k Firebird po startu Windows
> Zdravim konferenci,
>
> mam aplikaci ktera se pri svem spusteni pripoji k Firebirdu.
> Ta aplikace se spusti automaticky po startu Windows (pres polozku
> po spusteni v Start menu). Na pocitaci je nainstalovan Firebird 1.5.1,
> superserver a bezi jako service. Pocitac bezi na Win XP Pro se vsema
> moznejma SP krom SP2. Prihlaseni maji automaticke.
> Problem na tomhle pocitaci je, ze kdyz se aplikace po svem spusteni
> pokusi prihlasit k Firebirdu (jeli spustena prave tim ze se nastrtujou
> Windows)
> tak se ji to nepodari. Pokud ji spustim rucne znovu tak uz to bezi jak ma.
> Driv to chodilo bez problemu, ale nedokazu rict co se vse zmenilo, protoze
> to je pocitac zakaznika....
>
> Nesetkal jste se nekdo s podobnym problemem?
>
> Predem dik za rady a podnety,
>
> Pavel Poles Pripojeni k Firebird po startu Windows
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 27.9.2004 13:39:55
Zdravim konferenci,
mam aplikaci ktera se pri svem spusteni pripoji k Firebirdu.
Ta aplikace se spusti automaticky po startu Windows (pres polozku
po spusteni v Start menu). Na pocitaci je nainstalovan Firebird 1.5.1,
superserver a bezi jako service. Pocitac bezi na Win XP Pro se vsema
moznejma SP krom SP2. Prihlaseni maji automaticke.
Problem na tomhle pocitaci je, ze kdyz se aplikace po svem spusteni
pokusi prihlasit k Firebirdu (jeli spustena prave tim ze se nastrtujou Windows)
tak se ji to nepodari. Pokud ji spustim rucne znovu tak uz to bezi jak ma.
Driv to chodilo bez problemu, ale nedokazu rict co se vse zmenilo, protoze
to je pocitac zakaznika....
Nesetkal jste se nekdo s podobnym problemem?
Predem dik za rady a podnety,
Pavel Poles
OT Longhorn - testovaci verze
[*] Dalibor <dalibor(zv)torola(tec)cz> - 27.9.2004 13:35:54
Ahoj, testovaci verze existuje, dokonce jsem ji sam mel nainstalovanou.
Vypada to dobre a ikdyz to bylo na otestvoani, tak mi to pripadalo i
pouzitelne.
Rozjel jsem pod tim i televizni kartu.
Jde to nainstalovat i pod VMWAre, ale je to hodne pomale.
Stahnul jsem to pres DC++, link na webu jsem nenasel.
Kdyz tak se mrkni tady http://www.microsoft.com/longhorn
Delphi jsem pod tim bohuzel neinstaloval, tak nemuzu rict, jestli
funguje....
----- Original Message -----
From: "Zapletal Martin" <zapletal(zv)inoma(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, September 27, 2004 11:47 AM
Subject: OT Longhorn - testovaci verze
> Jen bych se chtel zeptat zda existuje nejaka testovaci verze Longhorn-u
> pro potreby testovani a pokud ano, kde se da sehnat?
>
> Martin Zapletal OT Longhorn - testovaci verze
[*] Zapletal Martin <zapletal(zv)inoma(tec)cz> - 27.9.2004 11:47:47
Jen bych se chtel zeptat zda existuje nejaka testovaci verze Longhorn-u pro potreby testovani a pokud ano, kde se da sehnat?
Martin Zapletal
D9 - kdy se zacne prodavat?
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 27.9.2004 11:43:47
> Velka chyba mozno je aj v tom, ze Borland sa stale spoliehal a zavisel
> na niekom inom (Microsoft, Sun, IBM, Oracle, Symbian, Linux) - mal
> sa IMHO viac spolahnut sam na seba. Povedzme namiesto podpory
> Javy mohol prist podobne ako Microsoft s vlastnou technologiou.
>
> Erik
>
No, jasne o tom hovori i putovani Anderse Heilsberga.
Anders Heilsberg - tvurce Turbo Pascalu
Anders Heilsberg - duchovni otec Delphi
---
pak uz to ale u Borlandu nemohl vydrzet - viz vyse Erik
---
Anders Heilsberg - duchovni otec architektury .NET Framework a C#
Sam za sebe to interpretuju takto:
Opoustime-li Delphi, neopoustime Anderse Heilsberga.
Naopak.
(hovorim o budoucnosti, nehovorim o Win32 aplikacich, ty budu nadale psat v D7)
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 569 (mobil 776 347 735)
====================================
D9 - kdy se zacne prodavat?
[*] Petr Vones <konference(zv)petrvones(tec)net> - 27.9.2004 11:35:45
From: "Jan Rizek" <jan_rizek(zv)centrum(tec)cz>
> Znamena to, ze Borland vubec nic neopravuje? Jen vyviji stale dsopredu? To
Neco ano, ale jen kdyz je to opravdu hodne velky prusvih. Dodnes (D7) jsou
napriklad zcela nepouzitelne jeho implementace web services bez vlastnich
oprav ve zdrojovem kodu RTL. Pricemz zrovna tato technologie je dnes vcelku
dulezita.
Tady me prekvapuje i dalsi vec, Borland stale proklamuje "multiplatformnost",
ale tam kde by to mohl delat to nedela. Jedna se mi o propojeni technologii
ktere maji dost spolecneho - DataSnap (TClientDataSet a DATAPACKET format) s
.NET DataSetem a diffgram formatem. Prvni co bych predpokladal ze vytvori
prostredek na konverzi mezi temito dvema formaty (v .NETu je zcela bezne ze
web service vraceji DataSet) aby bylo mozne volat web service psane v .NETu
z Delphi Win32 aplikaci. Nicmene se tak v D8 nestalo (nakonec jsem si to pro
Win32 napsal sam, ale zrovna tohle mohl udelat Borland).
> se mi nechce verit. Je mozne ze MicroSoft vzhledem ke svym prijmum muze
> zaplatit vyvoj NET-u radove jinak nez Borland Delphi. Presto ale bych
To neni otazka penez ale spise rozhodovani. Koneckoncu v Delphi 9 pro Win32
nejake zajimave novinky jsou, nicmene je otazka jestli to uz neprislo prece
jen trochu pozde: http://peakxml.com/archive/2004/09/13.aspx
Petr Vones
Dela nekdo WinForms app v D8 was: D9 - kdy se zacn
[*] Petr Vones <konference(zv)petrvones(tec)net> - 27.9.2004 11:23:44
From: "Erik Salaj, Winsoft" <winsoft(zv)netkosice.sk>
> myslim, ze vecsina .NET vyvojarov pouziva Visual Studio
Ano.
Ono je totiz Delphi 8 ve sve podobe ne zrovna dobre pouzitelne. Uz jen takove
veci ze nelze provadet asynchronni volani (jazyk neumi volat Begin/EndInvoke
u delegatu) nebo absence konstrukce podobne foreach. Nemluve o tom, ze prosta
instalace .NET 1.1 SP1 prakticky "rozbije" prekladac.
Petr Vones
Dela nekdo WinForms app v D8 was: D9 - kdy se zacn
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 27.9.2004 10:59:42
> myslim, ze vecsina .NET vyvojarov pouziva Visual Studio
> Erik
Prosim,
nepovazujte to za reklamu,
ale za uzitecnou informaci.
S Delphi to v kontextu .NET velmi souvisi.
http://msdn.microsoft(tec)cz/promo/
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 569 (mobil 776 347 735)
====================================D9 - kdy se zacne prodavat?
[*] Erik Salaj, Winsoft <winsoft(zv)netkosice.sk> - 27.9.2004 10:43:41
> Znamena to, ze Borland vubec nic neopravuje? Jen vyviji stale dsopredu? To
> se mi nechce verit. Je mozne ze MicroSoft vzhledem ke svym prijmum muze
> zaplatit vyvoj NET-u radove jinak nez Borland Delphi. Presto ale bych
> doufal, ze i Borland sem tam neco opravi :-)
nie je to len otazka penazi. Borland ma slusnu hotovost, ktoru
ziskal od MS predajom niektorych technologii. Lenze urobil vela
nespravnych rozhodnuti:
- prestal vyvijat Delphi, ktore sice stale zostava pre Win32 desktop
aplikacie najlepsim RAD produktom, ale uz je znacne zastarale
- C++ Builder - nie velmi vydareny produkt koli pouzitiu Pascal
VCL a zlej podpore COM, teraz ho uz zda sa uplne prestali podporovat
- podpora Javy sa ukazala ako slepa cesta. Java sa nikdy na Windowse
nepresadila a dnes v podstate s urcitostou mozeme povedat, ze sa uz
ani nepresadi
- Kylix a Linux - takisto krok uplne vedla
- nove produkty ako Delphi 8 (.NET), C# Builder a CBuilderX tu tiez
velmi diskutabilne, nie je mi jasne pre koho su vlastne urcene. Dva z nich,
t.j. Delphi.NET a C#B budu zaintegrovane do Delphi 2005 (teda
Delphi 9) - mozno aj preto, lebo osobitne by sa mozno tazko predavali.
Delphi 8 by sa tiez asi problematicky predavalo, keby k tomu nedavali
klasicku Delphi 7.
Velka chyba mozno je aj v tom, ze Borland sa stale spoliehal a zavisel
na niekom inom (Microsoft, Sun, IBM, Oracle, Symbian, Linux) - mal
sa IMHO viac spolahnut sam na seba. Povedzme namiesto podpory
Javy mohol prist podobne ako Microsoft s vlastnou technologiou.
Erik
Dela nekdo WinForms app v D8 was: D9 - kdy se zacn
[*] Erik Salaj, Winsoft <winsoft(zv)netkosice.sk> - 27.9.2004 10:07:38
> kdyz sleduju diskuzi o D9, napdada me otazka %subj%. Nebo v cem teda
> delate v .NETu (kdyz uz vime, ze vsichni jedou C#)? C# Builder, D8, nebo
> treba SharpDevelop IDE?
myslim, ze vecsina .NET vyvojarov pouziva Visual Studio
Erik
Dela nekdo WinForms app v D8 was: D9 - kdy se zacn
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 27.9.2004 09:57:38
Ahoj,
kdyz sleduju diskuzi o D9, napdada me otazka %subj%. Nebo v cem teda
delate v .NETu (kdyz uz vime, ze vsichni jedou C#)? C# Builder, D8, nebo
treba SharpDevelop IDE?
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
ICQ#: 314711544
web: http://www.cincura.net; http://photo.cincura.net
---
Nekdo vidi veci, ktere existuji, a pta se - proc?. Ja snim o vecech, ktere
nikdy neexistovaly a ptam se - proc ne? (Robert Kennedy)
VCL v Delphi8
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 27.9.2004 09:27:36
> > Proc bys je musel prepisovat? Win32 aplikace delej v D5.
> To je to co chci - koupit dalsi D5. Kde? Borland ma v nabidce uz jen
> D8.
Pokud se pamatuji na diskuze s J. Luhanem v konferenci, tak pokud
uz ve firme nejake D5 mate, tak by nemel byt u Borlandu problem
dokoupit dalsi dodatecne licence k D5 (zrejme bez CD a spol., proste
jen licenci). Nicmene zrejme je treba to resit individualne s Borlandem,
predpokladam, ze Borland tuto moznost nijak hlasite nepropaguje na
webu.
David Lebeda
TDBLookupCombo
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 27.9.2004 09:15:35
> pokud ze dropdown seznamu v TDBLookupCombo vyberu hodnotu tim, ze ji
> napisu musim napred stisknout enter a teprve potom TAB, jinak zustane
> puvodni hodnota. Jak muzu toto obejit, aby bylo mozne stisknout jen
> klavesu TAB?
Ahoj,
nemam ted spustene Delphi, ale zkusil bych patrat v techto smerech:
1) Mozna existuje nejaka procedura stylu CloseUp s parametrem, zda
hodnotu prijmout nebo odmitnout. TU by treba slo pouzit v OnExit?
2) Mozna existuje property, ktera rika, zda v techto pripadech ma byt
hodnota akceptovana nebo ne. TU by pak stacilo jen spravne nastavit.
3) Neexistuje udalost na rozbaleni/sbaleni roletky, kde by se dalo
vhodne reagovat?
David Lebeda
aplikace bez ikony
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 27.9.2004 08:41:32
V souboru VseAplikace.dpr smazte {$R *.res} - prilinkovani res souboru (je
tam ta ikona..) nebo si ten res soubor vytvorte svuj - pres brcc32.exe a
soubor *.rc
> [Delphi 7 Ent. or C++Builder 6 Ent.]
> vypada to jako blbost ale nemuzu dojit na to jak vytvorit aplikaci bez
ikony
> .. jako je tomu u mnoha programu windowsu ... paxe zobrazuje ona
standardni
> ikonka bile obrazovky s modrym pruhem .... tim padem nemyslim aby ta
ikonka
> doslova nesla videt, doslova "chci aby tam nebyla"
>
>
>
>D9 - kdy se zacne prodavat?
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 27.9.2004 08:31:31
> To zni jako ze DELPHI zvoni umiracek. V cem jsou ostani nastroje pro WIN32
> lepsi? Z toho co pisete v diskuzi je videt ze o DELPHI neco vite.
> Docela by
> mne zajimal Vas nazor na co prejit.
Mozna by se mnou nekteri zastanci MSVC++ a pod. nesouhlasili, ale Delphi pres vsechny problemy povazuji (alespon pro sebe) za nejlepsi nastroj pro vyvoj Win32 aplikaci. (Posledni verze, kterou pouzivam je D7.)
Ne uz tak pro .NET.
VCL.NET je nesmysl a vubec...
viz seminar "Delphi 2004" - www.haes(tec)cz - Seminare
viz clanek Zbyska Hlinky v SW novinach.
viz nase kurzy - Delphi 8 a dalsi podobne veci skolit vubec nebudeme !
to je konecne rozhodnuti...
Jenom pro vasi informaci: za poslednich 12 mesicu proslo nasimi kurzy ..NET (C#) celkem asi 80 ucastniku. Vsichni prechod z Delphi. I to o necem svedci.
I kdyz se povazuji za "starou gardu" (nar.1955), prechod na C# je pro me spise radost :-)
Je to opravdu hodne pekne ...
Jen se naucit vsechny ty nejmspejsy a orientovat se v tridach, ktere ..NET Framework nabizi :-(
Ale to se casem podda ...
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 569 (mobil 776 347 735)
====================================
D9 - kdy se zacne prodavat?
[*] Zbysek Hlinka <konference(zv)hlinka(tec)cz> - 27.9.2004 08:11:30
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Josef Zvonicek
> Sent: Sunday, September 26, 2004 9:15 PM
>
> To zni jako ze DELPHI zvoni umiracek. V cem jsou ostani
> nastroje pro WIN32 lepsi? Z toho co pisete v diskuzi je videt
> ze o DELPHI neco vite. Docela by mne zajimal Vas nazor na co prejit.
Jak jsem pochopil Petra, tak je stejneho nazoru jako ja - pro Win32 uz
proste nove projekty nezacinat. Nove projekty uz jen pro .NET, a Win32
aplikace udrzovat az do uplneho odumreni v Delphi.
Pro Win32 je Delphi dobry nastroj, tam neni duvod ho menit. Pro .NET je to
vsak tragedie.
S pozdravem
Zbysek Hlinka
E-mail: hlinka zavin. hlinka(tec)cz
ScrollBox a scrollovani
[*] Jan Sebelik <honza(zv)haes(tec)cz> - 27.9.2004 08:01:29
> b) Mizi mi pravy scrollbar Scrollboxu, kdyz menim velikost
> TImage, ktery je
> na scrollboxu umisten
Nevim, jestli je to totez, co se delo mne.
Tim, ze se zobrazi/zmizi scrollbar, meni se velikost plochy scrollboxu. Na to se soucasne meni podminky pro Image v scrollboxu - jako jestli se tam vejde nebo ne. V urcitych momentech se to jakoby "zacyklilo" - scrollbar zmizel, zmenila se plocha, zmenily se tak podminky, scrollbar se objevil, zmenila se plocha, ... Uplne se to rozblikalo.
Nakonec jsem to resil tak, ze jsem tam dal scrollbar natvrdo. Pokud si vzpominam, nenasel jsem lepsi reseni, nez nekam na "neviditelne" misto pod obrazek umistit treba TLabel. Scrollbar tam pak byl furt a problemy zmizely.
Honza
====================================
= RNDr. Jan Sebelik - HAES
= Skolici a konzultacni stredisko pro vyvoj SW
= www.haes(tec)cz
= Vojtiskova 321
= 507 81 Lazne Belohrad
= tel. 493 792 569 (mobil 776 347 735)
====================================D9 - kdy se zacne prodavat?
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 27.9.2004 08:13:30
Znamena to, ze Borland vubec nic neopravuje? Jen vyviji stale dsopredu? To
se mi nechce verit. Je mozne ze MicroSoft vzhledem ke svym prijmum muze
zaplatit vyvoj NET-u radove jinak nez Borland Delphi. Presto ale bych
doufal, ze i Borland sem tam neco opravi :-)
> From: "Josef Zvonicek" <prosoft(zv)prosoft(tec)cz>
> > To zni jako ze DELPHI zvoni umiracek. V cem jsou ostani nastroje pro
WIN32
> > lepsi? Z toho co pisete v diskuzi je videt ze o DELPHI neco vite. Docela
by
>
> Usuzuji tak z predchoziho vyvoje za nekolik poslednich let :-)
Nepredpokladam
> ze by byl Borland schopen nejake radikalni zmeny ve svem pristupu k reseni
> problemu, i kdyz zazraky se samozrejme obcas deji.
>
> > mne zajimal Vas nazor na co prejit.
>
> NET
>
> Petr Vones
>
>
>aplikace bez ikony
[*] Vlastimil Burian <vlastax.b(zv)seznam(tec)cz> - 27.9.2004 00:12:57
[Delphi 7 Ent. or C++Builder 6 Ent.]
vypada to jako blbost ale nemuzu dojit na to jak vytvorit aplikaci bez ikony
... jako je tomu u mnoha programu windowsu ... paxe zobrazuje ona standardni
ikonka bile obrazovky s modrym pruhem .... tim padem nemyslim aby ta ikonka
doslova nesla videt, doslova "chci aby tam nebyla"
D9 - kdy se zacne prodavat?
[*] Petr Vones <konference(zv)petrvones(tec)net> - 26.9.2004 21:46:47
From: "Josef Zvonicek" <prosoft(zv)prosoft(tec)cz>
> To zni jako ze DELPHI zvoni umiracek. V cem jsou ostani nastroje pro WIN32
> lepsi? Z toho co pisete v diskuzi je videt ze o DELPHI neco vite. Docela by
Usuzuji tak z predchoziho vyvoje za nekolik poslednich let :-) Nepredpokladam
ze by byl Borland schopen nejake radikalni zmeny ve svem pristupu k reseni
problemu, i kdyz zazraky se samozrejme obcas deji.
> mne zajimal Vas nazor na co prejit.
.NET
Petr Vones
Jak zjistit pozici na TEdit
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 26.9.2004 21:22:45
Pavel ! wrote:
> Zdarvim,
>
> Chtel jsem se zeptat jak zjistit na jakem miste stoji kurzor v TEdit a
> popripade a jak jej posunout na jinou pozici ;
Neco jako
Edit1.SelStart:=10;
Edit1.SelLength:=0;
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
ICQ#: 314711544
web: http://www.cincura.net; http://photo.cincura.net
---
Nekdo vidi veci, ktere existuji, a pta se - proc?. Ja snim o vecech, ktere
nikdy neexistovaly a ptam se - proc ne? (Robert Kennedy)
D9 - kdy se zacne prodavat?
[*] Josef Zvonicek <prosoft(zv)prosoft(tec)cz> - 26.9.2004 21:14:44
>Problemy s tim budou jako s prechodem mezi jakoukoli jinou verzi Delphi
(nutnost znovu revidovat opravy v RTL/VCL). Mozna bych prehodnotil smysl
dalsiho vyvoje ve Win32 v novem nastroji (a existujici veci >udrzoval v tom
starem).
To zni jako ze DELPHI zvoni umiracek. V cem jsou ostani nastroje pro WIN32
lepsi? Z toho co pisete v diskuzi je videt ze o DELPHI neco vite. Docela by
mne zajimal Vas nazor na co prejit.
Diky.
ZVO.Jak zjistit pozici na TEdit
[*] Pavel ! <paullb(zv)seznam(tec)cz> - 26.9.2004 21:08:43
Zdarvim,
Chtel jsem se zeptat jak zjistit na jakem miste stoji kurzor v TEdit a
popripade a jak jej posunout na jinou pozici ;
Diky
P. Samek
ADMIN: InterBase6 a rychlost pres Internet
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 26.9.2004 21:00:43
Puvodni zprava ze dne 26.9.2004:
> Dne p+AOE-tek 24 z+AOEBWQDt- 2004 13:48 Sebesta Jan napsal(a):
> Microsoft isn't the answer. Microsoft is the question, and my answer is no.
Bud prosim tak hodny a nech si podobne hlasky pro zakazniky, neposilej
je do konference. Radeji sveho tucnaka nauc poradne psat - viz prvni
radek. Dekuji.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
InterBase6 a rychlost pres Internet
[*] Petr Hlozek <petr_hl(zv)mrp(tec)cz> - 26.9.2004 20:40:41
Dobry den,
mozna bude problem v tom ze pro komunikaci s Interbase serverem neni az tak
dulezita kapacita linky jako jeji odezva. Pokud budete mit linku 64kb/s s
odezvou 1ms a linku 256kb/s s odezvou 40ms tak select na te 256kb bude trvat
dele.
S pozdravem
Petr Hlozek
Dne p+AOE-tek 24 z+AOEBWQDt- 2004 13:48 Sebesta Jan napsal(a):
> Zdravim vsechny,
>
> Pokousim se "zpristupnit" svoji aplikaci pres internet (D5, data v
> IntraBase6), k datazazi pristupuji pres TCP/IP , nazev
> PC:cesta+-filename.gdb. Jsem pripojen pres NPV klienta zvenci do lokalni
> site. Pokud napr. dam kopirovani souboru jede to 16 Kb/s (odpovida 128 -
> pevny drat strana serveru a druha strana - klient - WiFi rychlejsi), ale
> pokud dam vetsi pozadavek na IntraBase (napr. select, ktery vraci celou
> tabulku) tak to jede tak max. 1 - 1,5 Kb/s. Zkousel jsem to nekolikrat -
> zatizenim linky to neni. Vykon serveru PC s Win2k je dostanecny - alespon v
> localu to jede jako po masle. Jsem v tomto smeru zcela "zelenac", takze
> pokud by jste nekdo vedel jak to zrychlit - vitam pomoc.
>
> Jan Sebesta
--
Microsoft isn't the answer. Microsoft is the question, and my answer is no.
SuSe 9.1, KDE 3.3.0, kernel 2.6.5-7.108-default
web : www.webpark(tec)cz/ok2cqr
mail : ok2cqr at post dot cz; petr_hl at mrp dot cz
ICQ : 165536992
ComCtrls bug, reseni???
[*] Jiri Cincura <diskuze(zv)cincura(tec)net> - 26.9.2004 20:32:41
Ahoj,
mam ve svem projektu ShellTreeView. Funguje po mych mirnych upravach
skvele. Az na jednu obrovskou chybu.
Popisu vznik.
Mate vybranou slozku v Shell. Slozku odnekud jinud prejmenujete/smazete a
potom v Shell nastavite do .Path cestu novou. V te chvili to spadne v
TTreeNode.GetTreeView, nebot se tam jako vysledek dava Owner.Owner. A prave
kvuli tomu to spadne do AV.
Vedel by nekdo, jak se tohoto zbavit?
Zkousel jsem refreshnout ten Tree pred nastavenim; vratit nil (:-)),
refreshovat jen "listy" (ale kvuli 100 volani OLE se v tom cert vyzna) ...
bezvysledne.
Jedine me napdalo, rucne prestavit ten strom. Coz je ale vicemene napsat to
cele znovu.
--
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
ICQ#: 314711544
web: http://www.cincura.net; http://photo.cincura.net
---
Nekdo vidi veci, ktere existuji, a pta se - proc?. Ja snim o vecech, ktere
nikdy neexistovaly a ptam se - proc ne? (Robert Kennedy)
D9 - kdy se zacne prodavat?
[*] Petr Vones <konference(zv)petrvones(tec)net> - 26.9.2004 20:26:40
From: "Jan Rizek" <jan_rizek(zv)centrum(tec)cz>
> Jde mi spise o pokracovani win32 aplikaci v novem prostredi, tak by mne
> zajimal prechod D6-D9, kolik s tim bude problemu a jestli to vubec bude
> nejak jednoduse mozne..
Problemy s tim budou jako s prechodem mezi jakoukoli jinou verzi Delphi
(nutnost znovu revidovat opravy v RTL/VCL). Mozna bych prehodnotil smysl
dalsiho vyvoje ve Win32 v novem nastroji (a existujici veci udrzoval v tom
starem).
Petr Vones
FB - systemove tabulky
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 26.9.2004 18:34:32
On 26 Sep 2004 at 17:52, Jan Rizek wrote:
> mohu v IBExpertu (IBManageru) nejak primo prohlizet systemove tabulky?
> BEz pouziti select * from rdb$???
jiste (IBExpert)
- Database Registration Info
- Database Properities
- Additional / DB Explorer (Show System Tables)
Jarek Uher
FB - systemove tabulky
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 26.9.2004 17:52:29
mohu v IBExpertu (IBManageru) nejak primo prohlizet systemove tabulky? BEz pouziti select * from rdb$???ScrollBox a scrollovani
[*] Jan Pukovec <walkrine(zv)centrum(tec)cz> - 26.9.2004 17:40:28
Zdravim,
poradi nekdo, jak
a) Scrollovat scrollbox ve kterem je TImage automaticky pri Dragu TImage?
(podobne jako je to u ACDSee - Chytnu obrazek, ktery je moc velky, takze
jsou videt scrollbary a odtahnu ho kam potrebuju, abych videl na pozadovany
kus obrazku)
b) Mizi mi pravy scrollbar Scrollboxu, kdyz menim velikost TImage, ktery je
na scrollboxu umisten
Mam vyresen zoom obrazku tak, ze jsem nastavil TImage.Scaled := true a pri
zoomu jednoduse menim Height a Width TImage.
Funguje to tak jak ma, scrollbox automaticky zacne zobrazovat scrollbary,
je-li treba (pri presahu TImage pres viditelnou plochu scrollboxu). Nekdy
(dost casto) se ale scrollboxy uplne zblazni a vubec se nezobrazi. Vypada to
jako by se musel Scrollbox "refreshovat", moc tomu nerozumim, takze se radsi
ptam zkusenejsich...
Dikes vsem,
w
D9 - kdy se zacne prodavat?
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 26.9.2004 17:30:28
> Spise zalezi o jakou platformu ti jde, pokud o .NET tak se podivej spise
tady.
Jde mi spise o pokracovani win32 aplikaci v novem prostredi, tak by mne
zajimal prechod D6-D9, kolik s tim bude problemu a jestli to vubec bude
nejak jednoduse mozne..
Protoze prostredi vypada pekne..