Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Ulozeni souboru do databaze a jejich zobrazovani
[*] mbartone(zv)Synthesia(tec)cz - 6.12.1999 06:51:55
Ahoj,
mam D3 C/S s nativnim pripojenim na MS SQL 6.5
Potrebuji nejak ulozit okolo 20 000 dokumentu PDF do databaze (nejvetsi je zatim
180kB).
Pokud si klient vybere nejaky soubor ten pak mu zobrazit pres Adobe Acrobat.
Jak takou vec resit ?
Milan
MS SQL server a TQuery
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 6.12.1999 07:12:38
> Slab�, Petr (Pilsen), 03.12.1999 15:18:56
> Jan Fiala wrote:
> > Pokud pouzivas pristup pres BDE, pouziva Delphi
> > pro docasne tabulky
> > prave format Paradox a s tim souvisi veskere
> > problemy s .LCK
> > soubory atd.
>
> Je otazkou, proc se vytvareji docasne tabulky. Zrejme se ti vloudila nejaka query,
> ktera nebezi na SQL serveru, ale lokalne.
Vylouceno. Evidentne jde o vnitrni zalezitost BDE.
> Pro paradox se mi kazdopadne nejlepe osvedcilo programove >
nastaveni adresaru pomoci vlastnosti komponenty Session:
>
> Session.NetFileDir
> Session.PrivateDir
Ja vim. Nemam problem s tim, jak zaridit, aby ty paradoxi
zalezitosti nebyly na obtiz - spis mi slo o to, zda nekdy nekdo
nahodou neresil podobny problem a neprisel dejme tomu na to, jak
BDE nastavit tak, aby se obeslo bez paradoxu.
Ale zda se, ze ne, a to mi staci. Proste se s tim musim smirit.
David Lebeda
Lebeda(zv)comarr(tec)cz
umisteni procedury
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 6.12.1999 07:21:06
Od: Petr Ga�ourek <gadourek(zv)centrum(tec)cz>
Komu: "Konference Delphi" <delphi-l(zv)fwd(tec)cz>
V�c: umisteni procedury
Datum odesl�n�: Sun, 5 Dec 1999 17:47:00 +0100
Po�tovn� prog.: Microsoft Outlook Express 5.00.2314.1300
Odpov�� kam: delphi-l(zv)fwd(tec)cz
> Ahoj,
>
> jaky je rozdil mezi umistenim procedury / funkce (nebo promenne) v sekci private a nebo az v implementation?
> Je vhodnejsi vkladat procedury, ktere se primo nevazou k objektu (jako napr. nalezeni maxima z N cisel) do sekce implementation nebo do privat?
>
> Diky za vysvetleni.
>
>
> Petr Gadourek
>
umisteni procedury
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 6.12.1999 07:35:17
Od: Petr Ga�ourek <gadourek(zv)centrum(tec)cz>
Komu: "Konference Delphi" <delphi-l(zv)fwd(tec)cz>
V�c: umisteni procedury
Datum odesl�n�: Sun, 5 Dec 1999 17:47:00 +0100
Po�tovn� prog.: Microsoft Outlook Express 5.00.2314.1300
Odpov�� kam: delphi-l(zv)fwd(tec)cz
> jaky je rozdil mezi umistenim procedury / funkce (nebo promenne) v sekci private a nebo az v implementation?
> Je vhodnejsi vkladat procedury, ktere se primo nevazou k objektu (jako napr. nalezeni maxima z N cisel) do sekce implementation nebo do privat?
Spolecne je to, ze procedury v private i v implementation nejsou k
dispozici mimo unit, v niz jsou obsazeny.
V private maji byt obsazeny veci, ktere primo nejak souvisi s
objektem, v nemz jsou deklarovany. Proste aby ten objekt byl
logicky kompletni. Melo by to byt tak, ze kdyz se ten objekt bude
chtit pouzit i v jine aplikaci, musi jako sve metody mit vsechny
procedury, ktere by nekdy mohl pouzit. Je asi jasne jasne, ze
nema smysl vyprodukovat objekt, k nemuz je pak pozdeji treba
doprogramovavat externi veci proto, aby vubec mohl byt funkcni.
V implementation by naopak mely byt procedury, ktere maji
pomocny charakter a z logiky veci nepatri k programovanemu
objektu.
Pokud by napr. tve nalezeni maxima z N cisel VYZADOVALA
nejaka jina metoda objektu, je slusne dat ho do private.
V kazdem pripade jde zde predevsim o zalezitost programatorske
slusnosti vic nez o cokoli jineho. Delphi nikoho nenuti delat vse
ciste objektove.
David Lebeda
Indexy
[*] Tom�s Vesel������ �+?n( ��?r� - 6.12.1999 08:21:04
Ahoj vsem,
daji se nejak vypnout vsechny indexy na tabulce a potom zase zapnout ?
Vyvoj SQL Report Builder - podmienky
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 6.12.1999 08:39:15
Podmienky na ziskanie zdrojoveho kodu SQL Report Builder 1.4j
Kazdy by sa mal s nicim prispiet na vylepsenie programu do 4 mesiacov od tej doby ako dostal zdrojaky.
Zatial si mozete vybrat z tychto oblasti:
1. Konvertovanie reportu z QR do SQL Report Builder na zakalde DFM suboru.
2. Zmena velkosti RLabel,RShape,RMemo,RGraph,RBarcode tak ako je to v Delphi
3. Slovensky (cesky) a aglicky help na pouzitie RGraph.
4. Tisk TXT suboru.
5. Export do RTF alebo do DOC formatu pre Word.
6. Vylepsit export do HTML formatu.
Ak mate ine napady nacom by ste rad robili tak napiste.
Ak napiste co ste vybrali, ja poslem zdrojove kody.
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
or: http://freeweb.coco(tec)cz/tungli/
Ukonceni externi aplikace
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 6.12.1999 08:39:23
> > Ze sveho programu potrebuji spustit externi aplikaci a po skonceni
> > sveho programu ji zase ukoncit. Muj stavajici postup je asi takovyto:
>
> To je trosku slozitejsi, jedna z moznosti je napriklad takto (bylo by ale
> dobre to odzkouset i v NT). Tridu TPvExecThread najdes v PvUtils tady:
> http://www.volweb(tec)cz/pvones/download/PvComponents.zip
>
> ...nasledoval priklad
Dekuju, ale nepomohlo to. Ja mam teda Win NT, takze to je
mozna tim.
Presto uz jsem nasel zpusob, jak aplikaci ukoncit.
Spustim ji normalne pres ShellExecute a kdyz ji chci ukoncit, tak
namisto
PostMessage(h, WM_QUIT, 0, 0), kde h je THandle vraceny funkci
ShellExecute
je treba udelat toto:
pomHandle := FindWindow(nil, 'caption hlavniho okna zavirane
aplikace);
PostMessage(pomHandle, WM_QUIT, 0, 0);
protoze zprava WM_QUIT se ma posilat oknu a nikoli aplikaci.
V teto podobe mi to funguje.MS SQL server a TQuery
[*] marcant <marcant(zv)sct.sk> - 6.12.1999 08:56:08
Pokial sa dobre pamatam tak subory del*.MDB vznikaju pri povoleni
CachedUpdates na TQuery. Ak sa CachedUpdates vypnu, subory uz nevznikaju.
>
> > Slab�, Petr (Pilsen), 03.12.1999 15:18:56
> > Jan Fiala wrote:
> > > Pokud pouzivas pristup pres BDE, pouziva Delphi
> > > pro docasne tabulky
> > > prave format Paradox a s tim souvisi veskere
> > > problemy s .LCK
> > > soubory atd.
> >
> > Je otazkou, proc se vytvareji docasne tabulky. Zrejme se ti vloudila
nejaka query,
> > ktera nebezi na SQL serveru, ale lokalne.
>
> Vylouceno. Evidentne jde o vnitrni zalezitost BDE.
>
> > Pro paradox se mi kazdopadne nejlepe osvedcilo programove >
> nastaveni adresaru pomoci vlastnosti komponenty Session:
> >
> > Session.NetFileDir
> > Session.PrivateDir
>
> Ja vim. Nemam problem s tim, jak zaridit, aby ty paradoxi
> zalezitosti nebyly na obtiz - spis mi slo o to, zda nekdy nekdo
> nahodou neresil podobny problem a neprisel dejme tomu na to, jak
> BDE nastavit tak, aby se obeslo bez paradoxu.
> Ale zda se, ze ne, a to mi staci. Proste se s tim musim smirit.
>
> David Lebeda
> Lebeda(zv)comarr(tec)cz
>MSAccess - Autoincrement
[*] Fi�er Ji�� - 6.12.1999 09:00:44
Porad se mi nedari odstranit tento problem. Mam v MSAccess vytvorenou tabulku, kde je field KOD typu AUTOMATICKE CISLO. Pokud chci z delphi pridat dalsi zaznam, musim field KOD zadat rucne, jinak se mi zaznam neulozi.
Temto problem mam jen u Win98, jinak to vsude funguje.
Software: Win98, Delphi 3, BDE 5.10
Skutecne nikdo nevi jak tuto chyby odstranit ???
EDBEditError - odchyceni
[*] marcant <marcant(zv)sct.sk> - 6.12.1999 09:01:59
Skus pouzit event OnValidate na polozke, na ktoru je ten TKMaskEdit zaveseny.
----- Original Message -----
From: Petr Ga�ourek
To: Konference Delphi
Sent: Sunday, December 05, 1999 8:25 PM
Subject: EDBEditError - odchyceni
Ahoj,
muzete mi poradit jak odchytit EDBEditError. Jde mi konkretne o to, ze mam Edit s maskou pro datum. Pokud zadam datum chybne, pak je po opusteni TMaskEditu zobrazeno chybove hlaseni (to bych chtel prepsat - nejak nevim kam zaradit raise) a zarove� chci polozku vymazat, aby se chybove hlaseni stale neopakovalo a mohl jsem nechat polozku prazdnou.
Pro upresneni pouzivam TKMaskEdit z KOPR komponent, ale to by nemel byt problem.
P�edem, d�ky za radu.
Petr Gadourek
ot: WinNT a W95 na jedne masince
[*] Otisk Ren� <otisk(zv)misel(tec)cz> - 6.12.1999 09:02:58
Hi,
Mam dotaz ohledne moznosti nainstalovat na PC s WinNT 4.0 Wrkst jeste
vedle OS W95 (na odladovani aplikaci).
Naopak to jde, ale z NT to rozsirit o W95? Potrebuji zachovat stavajici
soubory na disku, takze postup format C:, instalace W95, instalace WNT
neni to prave orechove.
Dekuji
Sroub
Tisk
[*] Petr Voborn�k <vobornik(zv)ssakhk(tec)cz> - 6.12.1999 09:10:16
V Delphi tisknu text timto zpusobem :
uses
Printers;
var
FPrn: System.Text;
begin
AssignPrn(FPrn);
Rewrite(FPrn);
Writeln(FPrn, 'Nazdar!');
CloseFile(FPrn);
end;
Jenze jak to mam udelat, aby to tisklo
1) text zarovnany do boku
2) zarovnane sloupce
3) vycenrovany text
(a to jeste hodlam menit fonty)
???
Pitr - Petr Vobornik
MIKMIK company
vobornik(zv)ssakhk(tec)cz
ICQ# 23132120
www.ssakhk(tec)cz/home/vobornik/Ukonceni externi aplikace
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 6.12.1999 09:16:21
> > > David Lebeda napsal:
> > > Ze sveho programu potrebuji spustit externi aplikaci a po skonceni
> > > sveho programu ji zase ukoncit. Muj stavajici postup je asi takovyto:
Spoustej aplikaci pres CreateProcess.
Dostanes handle procesu i handle threadu.
Aplikaci muzes ukoncit napr. pomoci
PostThreadMessage(hThread,WM_QUIT,0,0)
Daniel
Osetreni message posilane jako HWND_BROADCAST
[*] Ondrej ZAHRADNIK <Delphi(zv)gymvr(tec)cz> - 6.12.1999 09:40:40
Ahoj,
mam problem, posilam mnou definovanou Message vsem oknum
jako HWND_BROADCAST. Ale obsluha teto udalosti vrati, ze
udalost nebyla osetrena. V cem je problem?
Diky za vsechny navrhy.
**********************************
Ondrej Zahradnik
e-mail:zahrad(zv)gymvr(tec)cz
ICQ:50242897
*********************************Delphi - ODBC - MSAccess - TQuery - Param
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 6.12.1999 09:40:46
Tak zkus u te StoredProc zmenit vlastnost
ParamBindMode na pbByNumber.
Dobra.
PS: Stale mi neni moc jasne, proc ani ty ostatni
dotazy nemas ve svem kodu.> ----------
> Od: Fi�er Ji��[SMTP:fiser(zv)volny(tec)cz]
> Dotaz vytvorit nemuzu v TQuery, protoze PARAMETR v ACCESU navazuje na
> dalsi
> dotazy.
>
> Zkusil jsem TStoredProc, ale pise mi to chybovou hlasku << Capability
> not
> supported, driver not capable >>.
>
> ----- Original Message -----
> > Proc ten dotaz neudelas v Delphi ? Vloz na formular
> > komponentu TQuery a do Query1.SQL napis
> > SELECT ID, Jmeno, Prijmeni FROM T_Prac WHERE ID=:ID
> ListView - odlisne radky
[*] Petr Reichl <reichl(zv)atlas(tec)cz> - 6.12.1999 09:49:33
> > muzete mi prosim poradit jak v ListView odlisit urcite radky napr.
tucne?
> > Viz. Outlook Express (neprectene zpravy).
>
> Ahoj,
>
> Zalezi na tom, jakou mas verzi Delphi. V D4 a D5 ma TListView udalosti
> OnCustomDrawXXX
>
>
Muzes mi prosim te uvest nejaky priklad pouziti? Moc mi to nejde.
--
Delphi 4.0 Professional (SP3)
--
S pozdravem,
Petr Reichl
-
E-mail: reichl(zv)centrum(tec)cz
PGP: podporovano
ICQ: 56430979
Grep
[*] Ing. Jan Skvor <skvorjan(zv)feld.cvut(tec)cz> - 6.12.1999 09:55:27
Zdravim vsechny,
potreboval bych knihovnu nebo popis rychlych algoritmu vhodnych pro plnotextove vyhledavani retezcu (i UNICODE) ve velkem objemu dat (grep). Mnozina vyhledavanych slov je pomerne rozsahla (radove stovky slov).
Budu vdecny za jakykoliv tip.
Hezky den
Honza
"Zarizeni pripojene" & komponenta - Vyreseno !!!
[*] Vladimir Sladky <sladky_vladimir(zv)hotmail(tec)com> - 06.12.1999 09:10:38 cet
Pri snaze instalovat komponentu, ktera vola funkce z DLL se mi
objevovala hlaska "Zarizeni pripojene k systemu nefunguje".
Zjistil jsem, ze se da DLL pripojit ke komponente implicitne i explicitene,
ale problem byl v tom, ze nejaky moula (ja) zapomel
vyexporovat jednu funkci, ktera uz byla v komponente deklarovana,
ale zatim jsem ji nevolal.
Treba se take nekdo s touto "smysluplnou" hlaskou setka ... ;-)
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Interbase
[*] Slavomir Skopalik <skopalik(zv)atlas(tec)cz> - 6.12.1999 09:15:33 -0000
U MS je vsechno mozne, DB (Interbase a Oracle) se kterymi pracuji maji neco cemu se rika
HWM (High Watter Mark) a pod tuto hranici neskracuji soubory. V Oracle si lze alokovat dlouhy
soubor, ale zkratit lze pouze po HWM. Duvod:Zpravidla DB v case lehce narusta.
Slavek
-----P�vodn� zpr�va-----
Od: Ji�� Kr�l jr. [SMTP:admin(zv)printo.com]
Odesl�no: 2. prosince 1999 10:08
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: Interbase
>>Interbase neprepisuje zaznamy! Po kazde zmene vytvori novou kopii zaznamu.
>>Sweep odstrani nadbytecne zaznamy z DB (soubor neskrati, to nedela zadna
DB).
Dovolim si polemizovat, nebot MS SQL 7 UMI zvetsit i zmensit soubor s dB
dynamicky podle parametru.
Jiri Kral
API Funkcia
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 6.12.1999 10:18:30
Ahoj,
nastesti delam v C++ i v Delphi, takze vim:
MessageBox(nil, PChar('Ahoj'), PChar('EHM'),0); --->pozor, pouzij
apostrofy, ne uvozovky
**********************************
Petr Brant [p.brant(zv)samo(tec)cz]
programator v MSVC++, obcas Delphi
**********************************
Rad by som zavolal nejaku API funkciu z delphi. V C som nemal
probs,
tu vsak neviem doplnit parametre. Nevie niekto ako napriklad zavolat:
messagebox(NULL,TEXT("Ahoj"),TEXT("EHM"),0); ???API funkce 2
[*] Radek Lev� - 6.12.1999 10:28:59
Ahoj,
je nekde k dispozici seznam API funkci v jednoduchej forme NAZEV - STRUCNEJ
POPIS ?
V D3 pokud znam nazev funkce tak me poskytne slusnej help, ale pokud nejakou
funkci hledam,
tak nikde zadnej seznam neni ...
Radek
Formular v DLL
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 6.12.1999 10:28:52
Zkus ho zavolat treba takhle
Function Volani_Execute:Boolean; stdcall; export
var
Form1: TForm1;
Begin
Result:=False;
Try
Form1:=TForm1.Create(Application); //nebo Create(NIL);
Try
//v DLL vzdycky radeji showmodal
If Form1.ShowModal = mrOK Then Result:=True; // potvrzeno
Finally
Form1.Free
End;
Except
//chybu nenech utect
End;
End;
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Jiri Novotny [SMTP:NOVOTNY(zv)ftknw.upol(tec)cz]
> Odesl�no: 6. prosince 1999 10:39
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Formular v DLL
>
> Ahoj, prosim o radu v nasledujici veci.
>
> Vytvoril jsem si DLL, ktera mi zobrazi novy formular. Zkousim si pak
> z "nadrizene" aplikace volat tento formular, ale OBCAS se cela
> aplikace chova divne.
>
> Tady je kod te DLL:
>
> library MaDLL;
> uses DLLUnit;
> exports Volani;
> begin
> end.
>
> a kod unity DLLUnit je:
>
> unit DLLUnit;
> interface
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
> Dialogs, StdCtrls;
> type
> TForm1 = class(TForm)
> Button1: TButton;
> procedure Button1Click(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
> var Form1: TForm1;
> procedure Volani(Hand:THandle); stdcall; export;
>
> implementation
>
> {$R *.DFM}
>
> procedure Volani(Hand:THandle);
> begin
> Application.Handle := Hand; // zde je asi zakopany pes !!!!
> Form1 := TForm1.Create(Application);
> Form1.ShowModal;
> Form1.Free;
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> Close;
> end;
>
> end.
>
> Cela moje pokusna "nadrizena" aplikace obsahuje jen jeden button a
> kdyz na nej kliknu, tak by se mel vyvolat formular z DLL.
> Volam-li tuhle DLL staticky, tak cela aplikace beha v poradku. Kdyz
> ji ale zkusim volat dynamicky, tak NEKDY se stane to, ze az uzavru
> volany formular Form1, tak aplikace zmizi z obrazovky, zmizi i z
> Hlavniho panelu, stisknu-li ale CTRL+Alt+Del, tak v seznamu uloh pro
> ukonceni se tato aplikace objevi. Zatim jsem prisel jen na to, ze
> vyhodim-li ze zdrojaku DLL ten inkriminovany radek (viz vyse), tak i
> dynamicke volani funguje bez chyb.
> Mozna bych mel jeste vysvetlit, proc jako parametr predavam Handle
> nadrizene aplikace. Je to proto, ze pri volani noveho formu v DLL se
> mi bez radku Application.Handle := Hand objevi v Hlavnim panelu dalsi
> ikona pro "novou" aplikaci, coz pochopitelne nechci.
> Nevite nekdo, co s tim? A jeste jedna podotazka - jak vnutit volanemu
> formu ikonu volajici aplikace?
>
> Pro jistotu jeste pridam kod toho, jak volam onu DLL dynamicky:
>
> procedure TForm1.Button1Click(Sender: TObject);
> var Hnd : THandle;
> MojeProc : procedure(Hand:THandle); stdcall;
> begin
> Hnd := LoadLibrary('MaDLL.DLL');
> if Hnd <= 32 then MessageDlg('DLL neni',mtWarning,[mbOK],0)
> else begin
> (zv)MojeaProc := GetProcAddress(Hnd,'Volani');
> if (zv)MojeProc = nil then MessageDlg('Funkce neni, mtWarning,
> mbOK],0)
> else MojeProc(Application.Handle);
> end;
> FreeLibrary(Hnd);
> end;
>
> Za kazdou radu vedouci k uspesnemu reseni predem moc a moc diky,
> Jirka.
> +-------------------------+---------------------------------+
> | Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
> | Czech Republic | http://risc.upol(tec)cz/~novotnyj |
> | | ICQ: 9495586 |
> +-------------------------+---------------------------------+
> | ... and objects in the rear view mirror can appear closer |
> | than they are |
> +-----------------------------------------------------------+Formular v DLL
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 6.12.1999 10:29:11
Ahoj,
tenhle problem uz tu jednou byl a potiz byla skutecne v tom predavanem
handlu. Reseni spocivalo tusim v tom, ze se do Application.Handle melo
po zavreni okna dat nil. Ale uz si to nepamatuju presne, vyzkousej to.
**********************************
Petr Brant [p.brant(zv)samo(tec)cz]
programator v MSVC++, obcas Delphi
**********************************
-----Original Message-----
From: Jiri Novotny [mailto:NOVOTNY(zv)ftknw.upol(tec)cz]
Sent: Monday, December 06, 1999 10:39 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Formular v DLL
Ahoj, prosim o radu v nasledujici veci.
Vytvoril jsem si DLL, ktera mi zobrazi novy formular. Zkousim si pak
z "nadrizene" aplikace volat tento formular, ale OBCAS se cela
aplikace chova divne.
Tady je kod te DLL:
library MaDLL;
uses DLLUnit;
exports Volani;
begin
end.
a kod unity DLLUnit je:
unit DLLUnit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var Form1: TForm1;
procedure Volani(Hand:THandle); stdcall; export;
implementation
{$R *.DFM}
procedure Volani(Hand:THandle);
begin
Application.Handle := Hand; // zde je asi zakopany pes !!!!
Form1 := TForm1.Create(Application);
Form1.ShowModal;
Form1.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;
end.
Cela moje pokusna "nadrizena" aplikace obsahuje jen jeden button a
kdyz na nej kliknu, tak by se mel vyvolat formular z DLL.
Volam-li tuhle DLL staticky, tak cela aplikace beha v poradku. Kdyz
ji ale zkusim volat dynamicky, tak NEKDY se stane to, ze az uzavru
volany formular Form1, tak aplikace zmizi z obrazovky, zmizi i z
Hlavniho panelu, stisknu-li ale CTRL+Alt+Del, tak v seznamu uloh pro
ukonceni se tato aplikace objevi. Zatim jsem prisel jen na to, ze
vyhodim-li ze zdrojaku DLL ten inkriminovany radek (viz vyse), tak i
dynamicke volani funguje bez chyb.
Mozna bych mel jeste vysvetlit, proc jako parametr predavam Handle
nadrizene aplikace. Je to proto, ze pri volani noveho formu v DLL se
mi bez radku Application.Handle := Hand objevi v Hlavnim panelu dalsi
ikona pro "novou" aplikaci, coz pochopitelne nechci.
Nevite nekdo, co s tim? A jeste jedna podotazka - jak vnutit volanemu
formu ikonu volajici aplikace?
Pro jistotu jeste pridam kod toho, jak volam onu DLL dynamicky:
procedure TForm1.Button1Click(Sender: TObject);
var Hnd : THandle;
MojeProc : procedure(Hand:THandle); stdcall;
begin
Hnd := LoadLibrary('MaDLL.DLL');
if Hnd <= 32 then MessageDlg('DLL neni',mtWarning,[mbOK],0)
else begin
(zv)MojeaProc := GetProcAddress(Hnd,'Volani');
if (zv)MojeProc = nil then MessageDlg('Funkce neni, mtWarning,
mbOK],0)
else MojeProc(Application.Handle);
end;
FreeLibrary(Hnd);
end;Vyvoj SQL Report Builder - podmienky
[*] Lubos <bruce(zv)pobox.sk> - 06.12.1999 10:36:09
> Podmienky na ziskanie zdrojoveho kodu SQL Report Builder 1.4jKazdy by
> sa mal s nicim prispiet na vylepsenie programu do 4 mesiacov od tej
> doby ako dostal zdrojaky.Zatial si mozete vybrat z tychto oblasti:1.
> Konvertovanie reportu z QR do SQL Report Builder na zakalde DFM
> suboru.2. Zmena velkosti RLabel,RShape,RMemo,RGraph,RBarcode tak ako
> je to v Delphi3. Slovensky (cesky) a aglicky help na pouzitie
> RGraph.4. Tisk TXT suboru.5. Export do RTF alebo do DOC formatu pre
> Word.6. Vylepsit export do HTML formatu.Ak mate ine napady nacom by
> ste rad robili tak napiste.Ak napiste co ste vybrali, ja poslem
> zdrojove kody.
Ahoj!
Mam niekolko otazok.
1) Co ak do 4 mesiacov nic neurobim? - Teda vyberiem si oblast , posles
mi zdrojaky a nic neurobim ?
Ide o to, ze venovat sa vlasntym projektom mam cas akurat cez vikend
a aj to nie kazdy.
2) V com to programujes? Ja robim v BCB 4.0.
Mna by zaujimali posledne 3 body.
/LH
--
"We are Microsoft. Resistance is futile. Open your source code and
prepare for assimilation."
Formular v DLL
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 6.12.1999 10:37:44
J.Novotny wrote:
>Vytvoril jsem si DLL, ktera mi zobrazi novy formular. Zkousim si pak
>z "nadrizene" aplikace volat tento formular, ale OBCAS se cela
>aplikace chova divne.
ja to delam takhle:
procedure Volani(Hand:THandle);
begin
Application.Handle := Hand;
Form1 := TForm1.Create(Application);
Form1.ShowModal;
Form1.Free;
Application.Handle:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var Hnd : THandle;
MojeProc : procedure(Hand:THandle); stdcall;
begin
.
.
else MojeProc(Application.Handle);
// refresh zobrazeni aplikace na taskbaru
ShowWindow(Application.Handle, SW_SHOW);
.
.
end;
Z.Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Formular v DLL
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 6.12.1999 09:38:37 met-1
Ahoj, prosim o radu v nasledujici veci.
Vytvoril jsem si DLL, ktera mi zobrazi novy formular. Zkousim si pak
z "nadrizene" aplikace volat tento formular, ale OBCAS se cela
aplikace chova divne.
Tady je kod te DLL:
library MaDLL;
uses DLLUnit;
exports Volani;
begin
end.
a kod unity DLLUnit je:
unit DLLUnit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var Form1: TForm1;
procedure Volani(Hand:THandle); stdcall; export;
implementation
{$R *.DFM}
procedure Volani(Hand:THandle);
begin
Application.Handle := Hand; // zde je asi zakopany pes !!!!
Form1 := TForm1.Create(Application);
Form1.ShowModal;
Form1.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;
end.
Cela moje pokusna "nadrizena" aplikace obsahuje jen jeden button a
kdyz na nej kliknu, tak by se mel vyvolat formular z DLL.
Volam-li tuhle DLL staticky, tak cela aplikace beha v poradku. Kdyz
ji ale zkusim volat dynamicky, tak NEKDY se stane to, ze az uzavru
volany formular Form1, tak aplikace zmizi z obrazovky, zmizi i z
Hlavniho panelu, stisknu-li ale CTRL+Alt+Del, tak v seznamu uloh pro
ukonceni se tato aplikace objevi. Zatim jsem prisel jen na to, ze
vyhodim-li ze zdrojaku DLL ten inkriminovany radek (viz vyse), tak i
dynamicke volani funguje bez chyb.
Mozna bych mel jeste vysvetlit, proc jako parametr predavam Handle
nadrizene aplikace. Je to proto, ze pri volani noveho formu v DLL se
mi bez radku Application.Handle := Hand objevi v Hlavnim panelu dalsi
ikona pro "novou" aplikaci, coz pochopitelne nechci.
Nevite nekdo, co s tim? A jeste jedna podotazka - jak vnutit volanemu
formu ikonu volajici aplikace?
Pro jistotu jeste pridam kod toho, jak volam onu DLL dynamicky:
procedure TForm1.Button1Click(Sender: TObject);
var Hnd : THandle;
MojeProc : procedure(Hand:THandle); stdcall;
begin
Hnd := LoadLibrary('MaDLL.DLL');
if Hnd <= 32 then MessageDlg('DLL neni',mtWarning,[mbOK],0)
else begin
(zv)MojeaProc := GetProcAddress(Hnd,'Volani');
if (zv)MojeProc = nil then MessageDlg('Funkce neni, mtWarning,
mbOK],0)
else MojeProc(Application.Handle);
end;
FreeLibrary(Hnd);
end;
Za kazdou radu vedouci k uspesnemu reseni predem moc a moc diky,
Jirka.
+-------------------------+---------------------------------+
| Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
| Czech Republic | http://risc.upol(tec)cz/~novotnyj |
| | ICQ: 9495586 |
+-------------------------+---------------------------------+
| ... and objects in the rear view mirror can appear closer |
| than they are |
+-----------------------------------------------------------+API Funkcia
[*] Vladimir Sladky <sladky_vladimir(zv)hotmail(tec)com> - 06.12.1999 09:44:34 cet
> Rad by som zavolal nejaku API funkciu z delphi. V C som nemal
>probs,
>tu vsak neviem doplnit parametre. Nevie niekto ako napriklad zavolat:
>
>messagebox(NULL,TEXT("Ahoj"),TEXT("EHM"),0); ???
>
Ja to delam asi takhle:
function MessageBoxA(hand:integer; zpr:PCHar; tit:PCHAR;
styl:integer):integer;
stdcall; external 'User32.DLL';
(nic=) MessageBoxA(MainForm.Handle,'XXX','Zprava z USER32.DLL',1);
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
MSAccess
[*] Fi�er Ji�� - 6.12.1999 10:45:42
Nevi nekdo proc pri pouziti TStoredProc na databazi MSAccess v Delphi mi to hodi chybovou hlasku << Capability not supported, driver not capable >> ???
Delphi 3; BDE 5.10, Pristup pres ODBC, Access 97
ot: WinNT a W95 na jedne masince
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 6.12.1999 10:49:10
Zkus treba newsy na news.microsoft(tec)cz
Jiny tip: neslo by to pres SystemCommander?
(sam s nim zkusenosti nemam)
### Otisk Ren� napsal dne 6 Dec 99, v 9:02 :
> Hi,
> Mam dotaz ohledne moznosti nainstalovat na PC s WinNT 4.0 Wrkst jeste
> vedle OS W95 (na odladovani aplikaci). Naopak to jde, ale z NT to rozsirit
> o W95? Potrebuji zachovat stavajici soubory na disku, takze postup format
> C:, instalace W95, instalace WNT neni to prave orechove. Dekuji Sroub
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
API Funkcia
[*] Vaclav Krmela <krmela(zv)pecomp(tec)cz> - 6.12.1999 11:00:21
Snad staci jednoduse takto:
MessageBox(handle, 'Ahoj', 'EHM', MB_OK or MB_ICONEXCLAMATION);
nebo
MessageBox(0, 'Pokracovat?', 'EHM', MB_YESNO or MB_ICONQUESTION or
MB_DEFBUTTON2);
a podobne.
Vaclav Krmela
> > Rad by som zavolal nejaku API funkciu z delphi. V C som nemal
> >probs,
> >tu vsak neviem doplnit parametre. Nevie niekto ako napriklad zavolat:
> >
> >messagebox(NULL,TEXT("Ahoj"),TEXT("EHM"),0); ???
> >
>
> Ja to delam asi takhle:
>
> function MessageBoxA(hand:integer; zpr:PCHar; tit:PCHAR;
> styl:integer):integer;
> stdcall; external 'User32.DLL';
>
> (nic=) MessageBoxA(MainForm.Handle,'XXX','Zprava z USER32.DLL',1);
>
>
Vynulovat AutoIncrement
[*] Ji�� Kr�l jr. - 6.12.1999 11:12:14
jde to snadno, staci zmenit autoinc. na integer a pak zpatky.
Na MS SQL 7 lze dokonce toto provest i na neprazdne tabulce.
Jinde urcite taky, ale napr. na Paradoxu to neslo.
Jiri Kral
omezeni MIDAS3 (D5)
[*] Vodicka, David (CAP, GCF) <David.Vodicka(zv)gecapital(tec)com> - 6.12.1999 11:16:52
Nasi starsi aplikaci jsme se rozhodli prepsat do D5 a prevest na trivrstvou
architekturu. Pri testech na vyvojove instalaci (D5 Enterprise) jsme
narazili na zvlastni chovani pri zatizeni uz od cca 13ti klientu. Hlasi
chyby typu "Doslo k chybe zabezpecovaciho balicku", "Nedostatek pameti",
atd. Pred nakupem (pomerne drahe licence) bych rad vedel, je-li problem ve
vyvojove licenci (omezeni na ...), v nasem programu nebo (a to by bylo
nejhorsi) v relativne novem MIDAS3.
David Vodi�ka
GE Capital Multiservis
Access - syntaxe SQL
[*] Daniel Rott <roxton(zv)atlas(tec)cz> - 6.12.1999 11:33:16
Zdravim
Muze mi nekdo poradit kde najdu syntax SQL prikazu pro Access ?
Momentalne potrebuju v CREATE TABLE nastavit jedinecnost
a syntaxi na kterou jsem zvyklej z SQL Serveru mi to nebere.
Hledam jsem v Office 97, ale marne.
Pouzivam ODBC API bez BDE.
Daniel Rott
Spolecny posun nekolika okny najednou
[*] Vladimir Sladky <sladky_vladimir(zv)hotmail(tec)com> - 06.12.1999 10:50:09 cet
>Patrne nemas datovy modul jako prvni v Project Forms, cely priklad najdes
>tady:
>
>ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D5/Other/Example_MoveForms.zip
>
Nema se jeste neco doplnit do ostatnich unitu, nebo jsem natvrdly ?
Pokud klepnu na jedno okno, tak se ostatni schovaji.
Jsou snad pod timto oknem a maji spolecny "rect" ?
Kdyz nekteremu oknu poslu zpravu "restore" (uplne jinym programem),
tak se nektere objevi treba v levem hornim rohu obrazovky, jine dole ...
Jedna se opravdu o spolecny posun oken tak, aby si vzajemne
udrzovaly svou polohu, jedno oproti ostatnim ?
Poslu ti neco mailem (doufam, ze mam Tvou adresu, a ze ten muj
program nebude jeste hledat nejake DLL) a mrkni na to.
Zkus posouvat aplikaci za kterekoliv okno - akorad se mi nelibi
ten styl "posun jedno okno a prilep ostatni" ...
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
WinNT a W95 na jedne masince
[*] Petr Smol�k <psmolik(zv)fides(tec)cz> - 6.12.1999 11:57:35
> Hi,
> Mam dotaz ohledne moznosti nainstalovat na PC s WinNT 4.0 Wrkst jeste
> vedle OS W95 (na odladovani aplikaci).
> Naopak to jde, ale z NT to rozsirit o W95? Potrebuji zachovat stavajici
> soubory na disku, takze postup format C:, instalace W95, instalace WNT
> neni to prave orechove.
> Dekuji
> Sroub
Asi nebude problem:
pokud mas WinNT na NTFS:
Vytvor si ve spravci disku novy oddil a nastav ho jako aktivni.
Po resetu si na nej nainstaluj Win95.
Pak pomoci fdisk-u vratis aktivni na WinNT nebo rekonstruujes NT z disket (3
diskety, ktere si vytvoril pri inst.).
Do boot.ini vlozis radek napr.:
C:\BOOTSECT.W95="Windows 95"
kde v BOOTSECT.W95 je prvnich 512b 95-koveho sektoru.
(doporucuji dat Win95 na FAT, aby si na ni mohl z NT)
pokud mas WinNT na FAT:
Muzes nainstalovat Win95 (musis zadat jiny adr. pro Win).
Oba OS muzou pak fungovat vedle sebe.
Petr Smol�k
psmolik(zv)fides(tec)cz
Off topic: Nechcete stavebn� spo�en� ?
[*] Mirek Junek <mjunek(zv)uo.fairnet(tec)cz> - 6.12.1999 12:08:45
Se svatebnim ztoporenim jsi na spatne konferenci
Mirek
----- Original Message -----
From: Ing. Radim Bro�ek <radim.brozek(zv)berit(tec)cz>
To: 'Konference Delphi' <delphi-l(zv)fwd(tec)cz>
Sent: Monday, December 06, 1999 10:52 AM
Subject: Off topic: Nechcete stavebn� spo�en� ?| S pozdravem Miki
|
|
|
|WinNT a W95 na jedne masince
[*] Jan Tomsa <tomsa(zv)NOTIA.CZ> - 6.12.1999 12:18:59
myslim, ze by melo jit:
nabootovat do dosu (pres OS loader nebo z diskety),
nainstalovat Win95,
opravit WinNT bez premazani registru a jinych drastickych uprav (ktere
jsou stejne defultne vypnute) - instalace WinNT/Repair
Potom asi bude nutny nejaky zasah do boot.ini
Nejsem si timto postupem jist, ale myslim, ze z hlediska WinNT je
bezpecny,
maximalne nebudou fachcit ty 95ky
Honza
> -----P�vodn� zpr�va-----
> Od: Otisk Ren� [mailto:otisk(zv)misel(tec)cz]
> Odesl�no: 6. prosince 1999 9:03
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: ot: WinNT a W95 na jedne masince
>
>
> Hi,
> Mam dotaz ohledne moznosti nainstalovat na PC s WinNT 4.0 Wrkst jeste
> vedle OS W95 (na odladovani aplikaci).
> Naopak to jde, ale z NT to rozsirit o W95? Potrebuji zachovat
> stavajici
> soubory na disku, takze postup format C:, instalace W95, instalace WNT
> neni to prave orechove.
> Dekuji
> Sroub
> Existence souboru s parametrem
[*] Jakub Dusek <drivi(zv)seznam(tec)cz> - 06.12.1999 13:28:59
Potreboval bych zjistit nejaky spolehlivy algoritmus (nebo (API) funkci), ktera mi zjisti,
jestli existuje soubor, ktery je ve stringu zadan i s parametry.
napr:
c:\neco\nic.exe /c /v -t /:220
Problemy nastavaji u pripadu jako:
c:\dlouhy nazev s mezerami
c:\neco-neco-neco
Zasadni problem je, ze parametr muze byt cokoliv.
Funkce FileExists to takhle nezjisti.
Predem diky za odpoved.
Jakub Dusek
-- http://email.seznam(tec)cz
-- email zdarma na cely zivot
API funkce 2
[*] Mitko Mit�v <mitev(zv)foresta(tec)cz> - 6.12.1999 12:39:43
Ahoj,
podrobnejsi seznam API funkci najdes na CD MSDN Library (k dostani pri
zakoupeni vyvoj produktu od Microsoft, nebo lze i objednat -:), na DevDays
99 davali i zdrama). Dobry popis API rozhrani poskytuje take 3 dilny svazek
WIN 32 API od Unis Publishing. Tam nejsou funkce v jednom velkem seznamu,
ale josu rozdeleny do tematickych celku (ypracovani yprav, nabidky, sprava
pameti). V ramci jednotlivych temat je potom na zacatku prehled funkci a
potom jejich podrobny popis.
S pozdravem
Mitko Mitev, FORESTA SG a.s.
www.foresta(tec)cz
mitev(zv)foresta(tec)cz
-----P�vodn� zpr�va-----
Od: Radek Lev� <lev(zv)cca(tec)cz>
Komu: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Datum: 6. prosince 1999 11:31
P�edm�t: API funkce 2
>Ahoj,
>
>je nekde k dispozici seznam API funkci v jednoduchej forme NAZEV - STRUCNEJ
>POPIS ?
>V D3 pokud znam nazev funkce tak me poskytne slusnej help, ale pokud
nejakou
>funkci hledam,
>tak nikde zadnej seznam neni ...
>
>Radek
>Vynulovat AutoIncrement
[*] Jirka <jnagy(zv)nh-trans(tec)cz> - 6.12.1999 12:50:47
----- P�vodn� zpr�va -----
> jde to snadno, staci zmenit autoinc. na integer a pak zpatky.
> Na MS SQL 7 lze dokonce toto provest i na neprazdne tabulce.
> Jinde urcite taky, ale napr. na Paradoxu to neslo.
V Paradoxu to jde taky - musis vsak mit Autoincrement jako prvni
polozku a myslim si, ze primarni index obsahujici tuto polozku nesmi
obsahovat zadnou jinou polozku. Pokud mas tabulku jinak, tak nejdriv
restukturalizace do teto podoby a Save, potom zmena Autoincrementu a
znova restrukturalizace do puvodni podoby. Jednoduche ne? (Mne to
alespon zatim vzdy slo - obcas sice az na nekolikaty pokus).
Jirka
"Komprimace" registru
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 6.12.1999 12:55:29
Cauec,
pri trose experimentovani jsem v programu udelal mensi hrubou chybu a nejak jsem se zacyklil. Pri tom jsem vytvarel a zapisoval udaj do registru.
No a ted ten problem. Masina se mi dost zpomalila. Asi to bude tim, ze velikost registru je tesne pod 16 MB. :-(
Lze (nemusi to byt zrovna Delphi) zkomprimovat ci jinak upravit registr (po vymazu chybnych klicu), aby se mi vratil zpet na puvodni velikost cca 3,5 MB ? Export, vymaz a import neni casove to nejlepsi reseni, ale kdyz nic jinyho nepujde...
Dik za kazdy namet.
Bye Ludan
Tisk
[*] Miroslav Mare� <sm(zv)sct(tec)cz> - 6.12.1999 13:42:47
Nejjednodussi by bylo tisknout primo na Canvas tiskarny. Tam si s tim udelas co budes potrebovat.
Mirek
----- Original Message -----
From: Petr Voborn�k
To: delphi-l(zv)fwd(tec)cz
Sent: Monday, December 06, 1999 9:10 AM
Subject: Tisk
V Delphi tisknu text timto zpusobem :
uses
Printers;
var
FPrn: System.Text;
begin
AssignPrn(FPrn);
Rewrite(FPrn);
Writeln(FPrn, 'Nazdar!');
CloseFile(FPrn);
end;
Jenze jak to mam udelat, aby to tisklo
1) text zarovnany do boku
2) zarovnane sloupce
3) vycenrovany text
(a to jeste hodlam menit fonty)
??? Pitr - Petr Vobornik
MIKMIK company
vobornik(zv)ssakhk(tec)cz
ICQ# 23132120
www.ssakhk(tec)cz/home/vobornik/D5 - ano ci ne ?
[*] Robert Kindl <rob(zv)exec(tec)cz> - 6.12.1999 14:00:59
Myslim, ze tato diskuse tu opravdu jiz jednou probehla presto:
> > Opravdu bych te chtel videt jak bez zdroju udelas noveho
> > rozsahleho dedice se spoustou novych nebo lepsich
> > vlastnosti (napr. Zbyskuv OLE DB Grid).
> Erik Salaj wrote:
> Nijak a to je presne to, co sa mi nepaci - nutnost
> pouzit zdrojaky. Nechcem tym povedat, ze zdrojaky
> su zle, ale ze programovanie bez zdrojakov moze byt
> daleko lepsie. V samotnych aplikaciach sa to ani tak
> neprejavuje pokial VCL komponenty vyhovuju
Pokud by VCL vyhovovaly nebylo by nutno
psat zadneho dedice.
Ale uz slysim ty namitky
"dal jsem tam jen jeden grid, prelozil jsem
to a ma to tri megabajty!"
Proste neni mozno udelat takovou komponentu,
aby vzdy vyhovela.
Proto je zde mechanismus dedeni.
> tak ako su napisane. Pokial nie, tak bez zdrojakov
> VCL (a niekedy aj s nimi) je programator strateny.
Spravne nikdy jsem netvrdil
nic jineho nez, ze bez zdrojaku to nejde.
Pokud je nemam tak to nepujde tim spise, ne?
Opet netvrdim, ze ve VCL je vse OK.
Ale problem neni v tom, ze mam zdroje
ani v tom, ze neni dokumentace,
ani v tom, ze spousta veci je private,
ale v tom, ze NENI SILA,
ktera by prinutila Borland k oprave chyb.
To je to co jsem hlavne chtel rici
(a myslim, ze jsem to tu jiz psal).
Proste nadavky na private sekce, na nedostatecnou
dokumentaci apod. jsou
vsechno "plac na nespravnem hrobe" :-)
> Vies mi vysvetlit potom tento "zazrak", ze som
> naprogramoval celkom slusny komunikacny ComPort
> komponent pomocou WinAPI, bez windowsackych
> zdrojakov (a bez schemy UARTu ;-) )? Prezradim este,
> ze MS som nepoziadal aby mi pomohli ;-). Myslis,
> ze by sa mi to jednoduchsie programovalo, keby som
> mal namiesto WinAPI dokumentacie zdrojovy kod
> Windowsu, pripadne aj jedno aj druhe?
Souhlasim, ze dobra dokumentace je k nezaplaceni.
Ja taky udelal projekt v ciste assembleru se 4 miliony radek
bez znalosti schema 80286,
ale s podrobnou znalosti jednotlivych instrukci,
jejich casove narocnosti na 86,286,386,486 atd.
Take nevim pochopitelne presne co je ten tvuj ComPort.
Ale podle tveho popisu je oboji urcite neco uplne jineho
nez psani dedice neceho stavajiciho (object pascal objektu).
Volani knihovnich funkci je proste o necem jinem. Tam s malinkou
vyjimkou nejakych callbacku nebo driveru nemuzes menit jejich chovani.
A o to prece jde napr. v pripade dedeni TCustomGridu.
Zmenit chovani neceho stavajiciho napr.
asi jako by jsi se programatorsky
pokousel v driveru disku presvedcit GetDiskFreeSpace
aby fungoval s disky >2MB. To proste nejde.
Proste musis zmenit rozhrani a nasledne
vsechny aplikace nad timto rozhranim.
A to bez podpory vyrobce (MS resp. Borland)
a nasledne i programatoru aplikaci jde ztuha.
Opet: ochota Borlandu ke zmenam je NULA.
Rob
PS. Myslim, ze si rozumime takze pokud nemas
neco zcela zasadniho tak END.
D5 - ano ci ne ?
[*] Robert Kindl <rob(zv)exec(tec)cz> - 6.12.1999 14:00:55
> Co vsak nepochopim, proc Borlandi zarputile schovavaji takove zakladni
> metody, jako CalcDrawInfo, CalcFixedInfo atd. To same plati pro procedury
CalcDrawInfo i CalcFixedInfo je D5 v sekci protected.
> ModifyExtents, UpdateExtents apod.
> Nakonec to totiz dopadlo tak, ze jsem si musel prekopirovat desitky radku
> kodu, kde se nic nezmenilo. Jenom jsem to potreboval volat.
Toto jsou jen utility pro praci s internim datovou strukturou
pro sirky/vysky.
1) nac to potrebujes volat primo?
2) pochop, ze oni to brali jako interni implementaci, ktera se muze
v budoucnu zmenit (asi jako struktrura VMT tabulek).
3) toto opravdu neni problem prekopirovat, nebot to
nejsou ani metody, ale jen obyc. procedury.
Rob
D5 - ano ci ne ?
[*] Robert Kindl <rob(zv)exec(tec)cz> - 6.12.1999 14:00:49
> v D5, DBGrid, pokud tam pridam sloupce pres vlastnost Columns a
> sloupec 0 oznacim Visible=false, tak se objevi spodni soupatko a
> na urovni potomka TCustomGrid to nelze opravit, protoze prislusne
> metody v TCustomGrid jsou zasite v private a neprekrytelne. A
> vzhledem k tomu, ze mam z�va�n� duvod nekdy zneviditelnit prvni
> sloupec, stve me to.
Hmm... to je asi pravda. V tomto pripade
TCustomGrid nedela grid dobre.
Ale ta chyba je i v D4.
To je videt, ze si kazdy nadava jen pro sebe
a nikomu to nerekne (ani Borlandum).
Tak to oprav primo v grids.pas a hlavne to bugreportuj...
treba se jednoho dne dockame.
> Mno, mam na to ponekud jiny nazor. Tvrdim, ze neni OK. Jako
> zaklad by mohl byt dobry, kdyby nektere dulezite metody nebyly
> zasite v private.
Nojo zase to private. To jsme tady uz spolu resili ne?
V zasade mas pravdu, ale on ten problem je opravdu
v nepruznosti a neochote Borlandu opravovat cokoliv.
Mne jen stvala takova ta "Blba nalada".
Proste tvrdit "Nefunguje to", "Je to na prd"
bez toho abych uvedl neco konkretniho.
> Ano, rad bych, aby Borland dodaval _vsechny_ potrebne zdrojaky.
> Protoze na zadosti reaguji (Borland) velice vlazne.
Souhlas.Jen si nejsem jist jestli by jsi s nimi byl
spokojen, protoze udelat dobre rozhrani je dost tezke
a tak zverejnit jen tak neco nejde viz. napr. Grids.pas :-))
No, mas nejaky konkretni napad jak pichnout
do toho Borlandiho hnizda, aby se daly veci
do pohybu?
Zda se iniciativa PS (programatori sobe) alias
Delphree nejak nefunguje nebo
alespon zaostava za ocekavanim :-(
Rob
API funkce 2
[*] V�clav Muchna <apscomp(zv)seznam(tec)cz> - 06.12.1999 14:52:02
Werki wrote:
> No, komplet popis mam akurat v hlp subore pri Watcom-e C++. Predpokladam,
> ze API help bude nejako zapracovany aj do delphi helpu.
No, tedy, nevim, jestli nejsem nahodou vedle, ale kdyz si a aplikaci help oterete soubor
win32api.hlp (v D3 tusim ze to bylo v {DELPHI-DER}/HELP, v D4 je to {COMMON
FILES}/BorlandShared/MSHelp),
a nechate si zobrazit rejstrik, tak tam najdete spoustu zajimavych veci.
Jiste je tam mnoho nesmyslu navic, ale je to _seznam_. Nehlede na to, ze z toho souboru lze
ziskat seznam fci pro urcita odvetvi (prace se soubory, atd.)
Zdravi
Vasek
--
Vaclav Muchna
APS computer
sekce internetova/intranetova podnikova reseni
tel. +420 603 475653
email: apscomp(zv)seznam(tec)cz
muchna(zv)apscomputer(tec)cz
APS computer
Frantiska divise 105
Praha 10 - Uhrineves
tel.: 02/677 10 368
verejny pgp klic: http://www.apscomputer(tec)cz/vasek/pubring.html
Otevirani DOS okna pri spousteni aplikace s parame
[*] nezadal(zv)volny(tec)cz - 6.12.1999 14:52:27
Ahoj,
mam problem, potrebuji spoustet aplikaci s parametrem a ono se pritom vzdy otevre DOSovske okno. Nevite jak tomuto zabranit?
Diky
Tisk
[*] bures <bures(zv)ssakhk(tec)cz> - 6.12.1999 15:10:10
komponenta Richedit to umi... RichEdit1.Print ...
Vlada
----- Original Message -----
From: Petr Voborn�k
To: delphi-l(zv)fwd(tec)cz
Sent: Monday, December 06, 1999 9:10 AM
Subject: Tisk
V Delphi tisknu text timto zpusobem :
uses
Printers;
var
FPrn: System.Text;
begin
AssignPrn(FPrn);
Rewrite(FPrn);
Writeln(FPrn, 'Nazdar!');
CloseFile(FPrn);
end;
Jenze jak to mam udelat, aby to tisklo
1) text zarovnany do boku
2) zarovnane sloupce
3) vycenrovany text
(a to jeste hodlam menit fonty)
??? Pitr - Petr Vobornik
MIKMIK company
vobornik(zv)ssakhk(tec)cz
ICQ# 23132120
www.ssakhk(tec)cz/home/vobornik/Seminar "Delphi 2000" v Laznich Belohrade
[*] Ing. Petr Klinger <program(zv)sitkhaso(tec)cz> - 06.12.1999 15:48:00
>
>Ve dnech 6.-7.ledna 2000 se v Laznich Belohrade uskutecni
>2.rocnik seminare, tentokrat pod nazvem "Delphi 2000".
>
Je potreba se predem nekde prihlasit a jaka je cena?
Petr Klinger
****************************************************
* SIT & KHASO v.o.s. *
* Politickych veznu 9 *
* 111 21 PRAHA 1 *
* Ceska republika *
* *
* Ekonomicky software VABANK *
* Celni programy JCD&TCP *
* *
* Tel.: +42-2-24211287 *
* Fax.: +42-2-24236658 *
* BBS : +42-2-24237372 *
* *
* WWW : http://www.sitkhaso(tec)cz *
* Mail: sitkhaso(zv)sitkhaso(tec)cz *
**************************************************** Zakaz zapisu do registru
[*] Jan Rychtar <hojan(zv)sin.cvut(tec)cz> - 6.12.1999 16:15:02
Zdravim,
Jak na lokalni stanici s Windows NT 4.0 Workstation vyzkousim
praci s registrem bez prava zapisu?
Zakaz zapisu do souboru registru nepomaha, ve "spravci uzivatelu" to neni
a "poledit" to taky neumi.
Uz jsem prisel na to, ze objekt TRegistry vola implicitne
API funcki RegOpenKeyEx s parametrem KEY_ALL_ACCESS,
coz jsem opravil na KEY_READ, ale nemohu to nijak vyzkouset.
(mam Delphi 3)
Prosim pomozte..
Jan Rychtar
Formular v DLL
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 6.12.1999 15:19:04 met-1
> >Vytvoril jsem si DLL, ktera mi zobrazi novy formular. Zkousim si pak
> >z "nadrizene" aplikace volat tento formular, ale OBCAS se cela
> >aplikace chova divne.
>
> procedure Volani(Hand:THandle);
> begin
> Application.Handle := Hand;
> Form1 := TForm1.Create(Application);
> Form1.ShowModal;
> Form1.Free;
> Application.Handle:=0;
> end;
+ radek ve volajici procedure
> // refresh zobrazeni aplikace na taskbaru
> ShowWindow(Application.Handle, SW_SHOW);
Diky moc, ten "trik" s prirazenim 0 do handle funguje tak, jak
potrebuji.
Ale opakuji jeste svoji druhou otazku, ktera zrejme zapadla v te
spouste meho puvodniho textu:
Jak vnutit volanemu formulari ikonu volajici aplikace? Aby se v
levem hornim rohu formulare objevila tataz ikona jako u volajici
aplikace. Lze to?
Jirka.
+-------------------------+---------------------------------+
| Jiri NOVOTNY, Olomouc, | e-mail: novotny(zv)ftknw.upol(tec)cz |
| Czech Republic | http://risc.upol(tec)cz/~novotnyj |
| | ICQ: 9495586 |
+-------------------------+---------------------------------+
| ... and objects in the rear view mirror can appear closer |
| than they are |
+-----------------------------------------------------------+Pristup na PDX tabulku ze dvou pocitacu
[*] Pavel �im��ek - 6.12.1999 16:43:32
Ahoj!
Dekuji vsem kteri se ozvali na vyse uvedeny problem.
Vyzkouseli jsme rady a pomohlo nastavit LOCAL SHARE na True.
Ovsem nejdulezitejsi bylo to, ze na obou pocitacich musi byt nastavene
stejne NET DIR. A to nejenom na stejny adresar ale vlastne cela cesta
(ten retezec) musi byt v obou nastavenich na obou pocitacich stejna.
A tady nastal problem. Nepodarilo se nam totiz namapovat lokalni adresar,
podobne jako to jde s adresarem na cizim pocitaci.
Takze jsme vzali treti pocitac, z obou jej namapovali pod stejnym jmenem
disku a na nej nastavili NET DIR aby sedela cela cesta vcetne nazvu disku.
Pak to fugovalo.
No nastesti si jeste kolega vzpomnel na dosovsky prikaz SUBST.
Pomoci neho vytvoreny disk namapovany pak z druheho pocitace pod stejnym
jmenem
taky fungoval.
S pozdravem Pavel Simicek
Formular v DLL
[*] supervisor(zv)unicontrols(tec)cz - 6.12.1999 16:02:43
> > procedure Volani(Hand:THandle);
> > begin
> > Application.Handle := Hand;
> > Form1 := TForm1.Create(Application);
> > Form1.ShowModal;
> > Form1.Free;
> > Application.Handle:=0;
> > end;
>
> + radek ve volajici procedure
> > // refresh zobrazeni aplikace na taskbaru
> > ShowWindow(Application.Handle, SW_SHOW);
>
> Diky moc, ten "trik" s prirazenim 0 do handle funguje tak, jak
> potrebuji.
No ja pouzivam z volajici aplikace Application.MainForm.Handle
-----------------------------
- Vojtech Albrecht -
- supervisor(zv)unicontrols(tec)cz -
- ICQ 33995541 -
-----------------------------
Zakaz zapisu do registru
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.12.1999 17:16:50
>Zdravim,
>Jak na lokalni stanici s Windows NT 4.0 Workstation vyzkousim
>praci s registrem bez prava zapisu?
>Zakaz zapisu do souboru registru nepomaha, ve "spravci uzivatelu" to neni
>a "poledit" to taky neumi.
>
>Uz jsem prisel na to, ze objekt TRegistry vola implicitne
>API funcki RegOpenKeyEx s parametrem KEY_ALL_ACCESS,
>coz jsem opravil na KEY_READ, ale nemohu to nijak vyzkouset.
>(mam Delphi 3)
melo by to jit nastavit rucne pomoci regedt32 (menu Security/Permissions)
D. Toman
WinNT a W95 na jedne masince
[*] Lubos <bruce(zv)pobox.sk> - 06.12.1999 17:58:10
> > Hi,
> > Mam dotaz ohledne moznosti nainstalovat na PC s WinNT 4.0 Wrkst jeste
> > vedle OS W95 (na odladovani aplikaci).
> > Naopak to jde, ale z NT to rozsirit o W95? Potrebuji zachovat
> > stavajici
> > soubory na disku, takze postup format C:, instalace W95, instalace WNT
> > neni to prave orechove.
Myslim ze najjednoduchsie by bolo nabootovat z diskety na ktorej je
Partition Magic (najnovsia verzia je 4)
upravit velkost particie (ak mas NTFS), na volnom mieste urobit novu
particiu (FAT/FAT32) a dat tam W95.
Ale este som to nikdy neskusal, takze bez zaruky. Skusal som akurat robit
nieco taketo pre Linux.
Ten som potom startoval z diskety. Ak nebola disketa v mechanike,
nastartoval sa W98.
/LH
--
"We are Microsoft. Resistance is futile. Open your source code and prepare
for assimilation."
omezeni MIDAS3 (D5)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 6.12.1999 18:20:55
Vodicka, David (CAP, GCF) wrote:
> Nasi starsi aplikaci jsme se rozhodli prepsat do D5 a prevest na
> trivrstvou architekturu. Pri testech na vyvojove instalaci (D5
> Enterprise) jsme narazili na zvlastni chovani pri zatizeni uz od cca
> 13ti klientu. Hlasi chyby typu "Doslo k chybe zabezpecovaciho
> balicku", "Nedostatek pameti", atd. Pred nakupem (pomerne drahe
> licence) bych rad vedel, je-li problem ve vyvojove licenci (omezeni na
> ...), v nasem programu nebo (a to by bylo nejhorsi) v relativne novem
> MIDAS3.
Primou odpoved ti nedam, ale treba bude podobna nasledujici
zkusenost: meril jsem na siti zatizeni klientu a serveru pri ruznem
zpusobu pouziti ruznych komponent. Delal jsem pet klientu na
jeden server. Pokud jsem pouzival komponenty na strane klienta
(resp. co nejvice prace na strane klienta), chovalo se to vuci
serveru celkem dobre. Pokud jsem vsak zatizeni prenesl na server,
mel tento dost prace, a to i v pripade, ze databazove komponenty
mi lezely na klientu.
Protoze v pripade MIDAS se databazove komponenty umistuji na
server, domnivam se, ze tento neumi (nebo mas spatne nastaveni,
nevim, s MIDAS nepracuji) poslat zatez na klienty a vyrizuje
vsechno na serveru.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
D5 - ano ci ne ?
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 6.12.1999 18:20:55
Petr Vones wrote:
> tomto pripade ) staci. Jenze u VCL jsem zatim nevidel jakoukoliv
> dokumentaci, takze zdrojaky jsou vlastne jedine co mas a popis si
> takto musis zpetne vytvaret. Nekdy mam pocit, ze snad ani u Borlandu
> sami zadnou dokumentaci nemaji .... :-))
Jenze maji aspon zdrojaky a cloveka, ktery je za danou oblast
zodpovedny, takze z nej mohou vypacit odpoved. A co my
ostatni??? IMHO uvolneni zdrojaku by melo vyjit levneji, nez
smoleni dokumentace a prikladu. Koza by se pritom nazrala (to
jako my) a vlk by zustal cely.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
"Komprimace" registru
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 6.12.1999 18:28:48
Ahoj,
nekde na to existuje program RegClean nebo
tak nejak podobne se jmenuje. Drive tam byly
nejake chybicky, ale treba jsou uz opraveny.
Dobra.
> ----------
> Lze (nemusi to byt zrovna Delphi) zkomprimovat ci jinak upravit
> registr (po vymazu chybnych klicu), aby se mi vratil zpet na puvodni
> velikost cca 3,5 MB ? Export, vymaz a import neni casove to nejlepsi
> reseni, ale kdyz nic jinyho nepujde...
> �
> viac Query na jeden DataSource
[*] Michal Hlav�� - 6.12.1999 21:03:33
Zdravim,
uz som zufaly a neviem to vyriesit. Mam QuickForm, kde je Dbgrid napojeny na
Query s par polozkami, pri stlaceni enter, sa aktivuje DetailForm a s nim aj
DetailQuery ktory ma v property DataSoruce prvy Source na query. Dalej v
detail forme su este dalsie dva query takto napojene.
Je to kvoli tomu aby som vedel, ktore pole som vybral a v Sql ho pouzivam.
Vsetko je Ok, pokial je napojeny iba jeden Query. Ak ich dam viac, padne mi
to na access violation bla bla bla.
Ono aby to slo rychlejsie ak robim v QuicForme, tak Querys z DetailFormu su
vypnute takto:
Query.DataSet := nil; Pri stlaceni klavesy tam priradim query2.dataSource :=
Query1Source;
Dik za kazdu radu,
Miso
Drag-and-Drop z DBGrid
[*] Heinisch Jiri <HeiJu(zv)sol(tec)cz> - 6.12.1999 22:02:59
Ahoj
ja to mam takto, v potomkovi definuji proceduru typu WM
------------------------
private
FONLeftMouseDown:TNotifyEvent;
procedure WMLButtonDown(var Message: TWMLButtonDown); message
WM_LBUTTONDOWN;
------------------------
published
property OnMysDown: TNotifyEvent read FOnLeftMouseDown write
FOnLeftMouseDown;
end;
----------------------
implementation
procedure TDbGridDEIS.WMLButtonDown(var Message: TWMLButtonDown);
begin
inherited;
if Assigned(FONLeftMouseDown) then FONLeftMouseDown(Self);
end;
---------------------------------------------
S pozdravem Heinisch Jiri
www.deis(tec)cz - prave zaciname
Otevirani DOS okna pri spousteni aplikace s parame
[*] eL.. <eL_z_Prahy(zv)seznam(tec)cz> - 6.12.1999 22:24:53
> mam problem, potrebuji spoustet aplikaci s parametrem a ono se pritom vzdy
>otevre DOSovske okno. Nevite jak tomuto zabranit?
Asi pouzivas WinExec. Zkus pouzit ShellExecute.
eL..Demo Interbase 2
[*] Miloslav L�tal - BV <letal(zv)sol(tec)cz> - 6.12.1999 22:29:22
Diky, ale ani mala pismena neposlouchaji :-((
Martin P.|Zdravim,
|
|zkuste heslo napsat malymi pismeny.
|
|Pavel Bocek
|
|Subject: Demo Interbase
|
|
|> Zdravim.
|> Neumim otevrit databazi dema InterBase.
|> Pod Delphi 4 v adresari DEMOS\DB\CSDEMOS je demo pro InterBase.
|> Delphi mi pise nezname jmeno nebo heslo.
|> (SYSDBA / heslo MASTERKEY)
|> ale neni spravne ??? !!!
|> Poradte
|> Diky,
|> Martin Pavera
|> letal(zv)integrodat(tec)cz
Pristup na PDX tabulku ze dvou pocitacu
[*] eL.. <eL_z_Prahy(zv)seznam(tec)cz> - 6.12.1999 22:43:01
> stejne NET DIR. A to nejenom na stejny adresar ale vlastne cela cesta
> (ten retezec) musi byt v obou nastavenich na obou pocitacich stejna.
> A tady nastal problem. Nepodarilo se nam totiz namapovat lokalni adresar,
> podobne jako to jde s adresarem na cizim pocitaci.
>.....
Sitovy pristup na sitich PEER-TO-PEER bez jakychkoliv problemu pouzivam u
spousty zakazniku bez problemu. To co popisujes je zpusobene asi necim
jinym.
Naprosto bezne muze (dokonce z principu musi) byt nastaveni NET DIR na
kazdem stroji
lokalne jine ovsem absolutne musi ukazovat do fyzicky stejneho adresare.
Takze napriklad doma mam na stolnim PC NETDIR = C:\BDE a na notebooku
mam napapovany disk F do tohoto adresare a NET DIR=F:\
Bez problemu funguje i unc konvence takze uplne stejne se to chova i bez
namapovaneho
disku s nastavenim NET DIR=\\doma\bde\
Dulezite je aby oba (vsechny) stroje mohly do adresare uplne.
Problem s tim, ze musi adresar NET DIR na stanicich mit relativne stejne
jmeno je mozna
dan tim ze si tohle jednotne jmeno nastavuje SW v session. Pak musis mit
nejakou moznost
jednotlive stanice konfigurovat.
Ja osobne nastaveni NET DIR nechavam na BDE ( v aplikacich jej neovlivnuji)
a nastavuji je
pomoci BDE adminitratora (zatim to vsude zvladli).
eL..D5 - ano ci ne ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.12.1999 22:48:02
Zbysek Hlinka wrote:
> > Zkus treba ExpressQuantumGrid (ta firma je ale jinak trochu
> > slabomyslna, neposkytuje zadnou trial verzi):
> Diky, uz jsem se vrhnul do vlastni verze...
Uf, tak do toho byl teda nesel :-)
> Skvele, uz jim zbyva jen zaplacat (na tvaricky...). Uz takhle rada
> hlavicek chybi, dokumentace veskrze zadna, priklady take ne,
Zkratka nestihaji. Hlavicky by meli castecne pokryt s pomoci Delphi-JEDI,
ale na muj vkus se jim to trosku rozpada, aneb nekdy mene byva vice. Takze
v tomhle bode bych jim malinko odpustil :-)
Dokumentace. Nelze nez souhlasit, tady maji opravdu velky dluh a nejak si
to moc nechteji priznat.
Priklady. V tomto se asi opet trosku spolehaji na JEDI, ale predevsim do
budoucna by toto melo byt obsahem CodeCentral. Zatim tam toho trochu je,
ale CodeCentral Client je bohuzel odsunut do oblasti s nizsi prioritou,
takze zbyva jen pristup pres WWW, coz ma v nasich krajich jiste nevyhody.
Nicmene ve FAQ a TI sekci na webu se taky da leccos najit.
> takze pujdeme misto programovani prodavat burty? Do tech je aspon trochu
> videt, kdyz si clovek da tu praci... :-)
Tohle si taky obcas rikam, ze by to snad bylo lepsi :-))
> V tom pripade vyhlasuji celosvetovou vzpouru proti oklestovani
> nezadatelnych prav programatoru a akci "Dekujeme, sem se
> zrojaky!'. Nebo aspon poradnou dokumentaci s priklady.
V pripade nejake hromadne demonstrace bych se priklanel k te druhe variante
:-))
--
Petr Vones, amatersky programator
omezeni MIDAS3 (D5)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.12.1999 22:48:35
"Vodicka, David (CAP, GCF)" wrote:
>
> Nasi starsi aplikaci jsme se rozhodli prepsat do D5 a prevest na trivrstvou
> architekturu. Pri testech na vyvojove instalaci (D5 Enterprise) jsme
> narazili na zvlastni chovani pri zatizeni uz od cca 13ti klientu. Hlasi
> chyby typu "Doslo k chybe zabezpecovaciho balicku", "Nedostatek pameti",
> atd. Pred nakupem (pomerne drahe licence) bych rad vedel, je-li problem ve
> vyvojove licenci (omezeni na ...), v nasem programu nebo (a to by bylo
> nejhorsi) v relativne novem MIDAS3.
Ahoj,
V tomhle pripade by asi bylo dobre zkusit prislusny newsgroup u Borlandu
nebo konzultovat primo s Inprise CZ.
--
Petr Vones, amatersky programator
Ukonceni externi aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.12.1999 22:48:53
Daniel Rott wrote:
> Spoustej aplikaci pres CreateProcess.
> Dostanes handle procesu i handle threadu.
Ahoj,
> Aplikaci muzes ukoncit napr. pomoci
> PostThreadMessage(hThread,WM_QUIT,0,0)
^^^^^^^
Tady musis dat ProcessInfo.dwThreadId. Problem ale je, jakym zpusobem chces
tu aplikaci ukoncit. Tim ze do ni posles WM_QUIT se obejde pripadne ulozeni
souboru a podobne, takze se aplikace neuzavre "korektne". Na druhe strane
se pouzitim WM_QUIT vyresi problem, kdy je aplikace v "modalnim stavu", a
pouziti WM_CLOSE selhava.
--
Petr Vones, amatersky programator
API funkce 2
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.12.1999 22:48:21
Radek Lev� wrote:
>
> Ahoj,
>
> je nekde k dispozici seznam API funkci v jednoduchej forme NAZEV - STRUCNEJ
> POPIS ?
> V D3 pokud znam nazev funkce tak me poskytne slusnej help, ale pokud nejakou
> funkci hledam,
> tak nikde zadnej seznam neni ...
Ahoj,
V Delphi mas Win32API help. Nevim jak u D3, ale u D5 mas primo po instalaci
zastupce ve Start -> ... Delphi -> Help -> MS SDK Help Files. Pokud je tam
nemas, hledej soubor "win32.hlp". Samozrejme asi nejlepsi informace ziskas
z MSDN, ale pro beznou praci help dodavany s Delphi myslim postacuje.
--
Petr Vones, amatersky programator
Otevirani DOS okna pri spousteni aplikace s parame
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.12.1999 22:48:25
nezadal(zv)volny(tec)cz wrote:
>
> Ahoj,
> mam problem, potrebuji spoustet aplikaci s parametrem a ono se pritom vzdy
> otevre DOSovske okno. Nevite jak tomuto zabranit?
Ahoj,
A jakym zpusobem to presne delas ?
--
Petr Vones, amatersky programator
ComboBox a DropDown (was: none)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.12.1999 22:48:06
"=?ISO-8859-2?Q?Jaroslav_�=EDpek?=" wrote:
>
> Dobry den,
> nevite nekdo, jak zabranit tomu, aby kdyz si odvodim od TComboBoxu svou komponentu
> a predefinuji metodu DropDown, aby se pod touto komponentou zobrazoval prazdny seznam.
Ahoj,
Metoda DropDown se vola jako reakce na oznamovaci zpravu Windows. Jejim
predefinovanim tomu nezabranis. Co to ma vlastne presne delat ?
--
Petr Vones, amatersky programator
Ukonceni externi aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.12.1999 22:49:36
David Lebeda wrote:
> Dekuju, ale nepomohlo to. Ja mam teda Win NT, takze to je mozna tim.
Ahoj,
To je zvlastni, neni tam nic, co by na prvni pohled nemuselo bezet v NT.
Jeste to nekde zkusim.
> Presto uz jsem nasel zpusob, jak aplikaci ukoncit.
> Spustim ji normalne pres ShellExecute a kdyz ji chci ukoncit, tak
> namisto
> je treba udelat toto:
>
> pomHandle := FindWindow(nil, 'caption hlavniho okna zavirane
To ano, jenze tak musis znat ten titulek, navic muze mit vice aplikaci
shodny titulek nebo muzes mit spusteno vice instanci stejne aplikace. To
moje reseni prave ukonci vzdy jen tu danou aplikaci bez ohledu na titulek
ci tridu okna. Bezpecnejsi je pouzit pri hledani titulku zaroven i tridu
okna, pokud to delas timto zpusobem. Tu zjistis pomoci WinSight32.
--
Petr Vones, amatersky programator
Osetreni message posilane jako HWND_BROADCAST
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.12.1999 22:49:48
Ondrej ZAHRADNIK wrote:
>
> Ahoj,
> mam problem, posilam mnou definovanou Message vsem oknum
> jako HWND_BROADCAST. Ale obsluha teto udalosti vrati, ze
> udalost nebyla osetrena. V cem je problem?
Ahoj,
Asi by pomohla ukazka kodu, ale prvni co me napada je, jakym zpusobem tu
zpravu vytvaris ? Pokud zasilas zpravu jako broadcast, mel by jsi hodnotu
te zpravy vytovrit pomoci funkce RegisterWindowMessage, aby se predeslo
mozne kolizi s ostatnimi zpravami.
--
Petr Vones, amatersky programator
API Funkcia
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.12.1999 22:50:34
Vladimir Sladky wrote:
>
> > Rad by som zavolal nejaku API funkciu z delphi. V C som nemal
> >probs,
> >tu vsak neviem doplnit parametre. Nevie niekto ako napriklad zavolat:
> >
> >messagebox(NULL,TEXT("Ahoj"),TEXT("EHM"),0); ???
Ahoj,
Staci mit v uses pridano Windows (coz tam bezne je). Tam mas jiz hlavicky
vsech funkci jadra, takze staci jen zavolat:
procedure TForm1.Button1Click(Sender: TObject);
begin
MessageBox(0, 'Text', 'Titulek', MB_OK);
end;
Jinak ve VCL je jiz volani API funkce MessageBox zjednoduseno metodou
TApplication.MessageBox:
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.MessageBox('Text', 'Titulek', MB_OK);
end;
--
Petr Vones, amatersky programator
Spolecny posun nekolika okny najednou
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.12.1999 22:50:45
Vladimir Sladky wrote:
> >Patrne nemas datovy modul jako prvni v Project Forms, cely priklad najdes
> >tady:
> >
> >ftp://ftp.mlp(tec)cz/pub/misc/Delphi/konference/D5/Other/Example_MoveForms.zip
> >
>
> Nema se jeste neco doplnit do ostatnich unitu, nebo jsem natvrdly ?
> Jedna se opravdu o spolecny posun oken tak, aby si vzajemne
> udrzovaly svou polohu, jedno oproti ostatnim ?
Ahoj,
Ano jedna, v tom prikladu to takhle funguje. Poslal jsem ti jeste jeho
prelozenou verzi. Mozna ze to ale dela neco jineho nez jsi chtel a kazdy
mluvime o necem jinem :-)
--
Petr Vones, amatersky programator
Seminar "Delphi 2000" v Laznich Belohrade
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.12.1999 22:50:19
"Ing. Petr Klinger" wrote:
> >Ve dnech 6.-7.ledna 2000 se v Laznich Belohrade uskutecni
> >2.rocnik seminare, tentokrat pod nazvem "Delphi 2000".
>
> Je potreba se predem nekde prihlasit a jaka je cena?
Blize na: http://www.haes(tec)cz/ws2000.htm
--
Petr Vones, amatersky programator
D5 - ano ci ne ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.12.1999 22:50:13
Zbysek Hlinka wrote:
> > takto musis zpetne vytvaret. Nekdy mam pocit, ze snad ani u Borlandu
> > sami zadnou dokumentaci nemaji .... :-))
>
> Jenze maji aspon zdrojaky a cloveka, ktery je za danou oblast
> zodpovedny, takze z nej mohou vypacit odpoved. A co my
No, jen aby ... ;-)
> ostatni??? IMHO uvolneni zdrojaku by melo vyjit levneji, nez
> smoleni dokumentace a prikladu. Koza by se pritom nazrala (to
> jako my) a vlk by zustal cely.
Jasne, ale vysvetli tohle americanum :-) Zase na druhou stranu je treba
chapat, ze asi chteji mit nejake to "firemni tajemstvi" ;-) V pripade veci
ktere se tykaji IDE (OpenToolsAPI, Designer ...) bych v prvni rade apeloval
na tu dokumentaci (ne ze to odbydou tim, ze Ray Lischner o tom napsal
knizku, at si ji tedy koupime). Pokud se podivas do seznamu pripravovanych
Delphi chatu, tak je tam Delphi Marketing, to je treba jedna z moznosti jak
se ozvat.
http://community.borland.com/article/0,1410,10208,00.html
--
Petr Vones, amatersky programator
ListView - odlisne radky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.12.1999 22:51:07
Petr Reichl wrote:
> > > muzete mi prosim poradit jak v ListView odlisit urcite radky napr.
> tucne?
Ahoj,
Napriklad takhle vykreslis kazdy sudy radek tucnym pismem:
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Item.Index and 1 = 0 then Sender.Canvas.Font.Style := [fsBold];
end;
--
Petr Vones, amatersky programator
MDI a Thread
[*] Pavel Bansky <pbansky(zv)volny(tec)cz> - 6.12.1999 23:12:50
ahoj !
Data z formulare jsou prave ve Threadu problem, jakmile z toho
threadu zavolam treba Form1.StartTime := 0; tak to hodi exception.
StartTime je nejaka moje public promenna.
Ale ja bych to stejne udelal jako thread kterej vytvori to vokno (dynamicky) a bylo
by to v pohode, pokud nejsou zname nejake problemy tohoto reseni.
Diky Pavel
>Pak muzes ty data umistit primo do objektu threadu. Nicmene i v pripade,
>ze je jsou soucasti formulare by v tom nemel byt problem.
------------------------------------------------------
Pavel Bansky
pbansky(zv)volny(tec)cz
Zakaz zapisu do registru
[*] Jan Rychtar <hojan(zv)sin.cvut(tec)cz> - 7.12.1999 01:04:28
Diky,.. jsem blby, ze jsem nezkusil spustit regedt32.
Myslel jsem vzdycky, ze je to normalni regedit.
Jan Rychtar
> melo by to jit nastavit rucne pomoci regedt32 (menu Security/Permissions)
>
> D. Toman
>
> "Komprimace" registru
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 7.12.1999 05:44:22
Pokud je to pod W98, muzes pouzit primo program, obsazeny ve Windows
a spustit : SCANREG / OPT
Jan Fiala
----- Original Message -----
From: Ing. Lud�k Florian Cauec,
pri trose experimentovani jsem v programu udelal mensi hrubou chybu a nejak jsem se zacyklil. Pri tom jsem vytvarel a zapisoval udaj do registru.
No a ted ten problem. Masina se mi dost zpomalila. Asi to bude tim, ze velikost registru je tesne pod 16 MB. :-(
Lze (nemusi to byt zrovna Delphi) zkomprimovat ci jinak upravit registr (po vymazu chybnych klicu), aby se mi vratil zpet na puvodni velikost cca 3,5 MB ? Export, vymaz a import neni casove to nejlepsi reseni, ale kdyz nic jinyho nepujde...
Dik za kazdy namet.
Bye Ludan
zip komponent - oprava odkazu
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 7.12.1999 07:01:58
Ahoj
omlouvam se za chybu v odkazu.
na http://www.micrel-dev.com/delphi je k dispozici zipovaci komponent i se
zdroji pro 32 bit a jine.
Pokud nekdo jeste potrebuje prelozen� napisy pro Delphi 2, pak se muze
ozvat, neco jsem prelozil (SysUtils, Consts), muzu zaslat.
Jaro B.API funkce 2
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 7.12.1999 07:16:15
> -----P�vodn� zpr�va-----
> Od: Radek Lev� [mailto:lev(zv)cca(tec)cz]
> Odesl�no: 6. prosince 1999 10:29
> Komu: Konference Delphi
> P�edm�t: API funkce 2
>
>
> Ahoj,
>
> je nekde k dispozici seznam API funkci v jednoduchej forme
> NAZEV - STRUCNEJ
> POPIS ?
> V D3 pokud znam nazev funkce tak me poskytne slusnej help,
> ale pokud nejakou
> funkci hledam,
> tak nikde zadnej seznam neni ...
Predchozi rady bych jeste doplnil odkazem na internet verzi MSDN:
http://msdn.microsoft.com/
tam zvol LIBRARIES, po natazeni stranky vyber ve stromu
Platform SDK/Win 32 API
Jura
Hint show time
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 7.12.1999 07:16:24
Ahoj,
nevite, prosim nekdo jak nastavit delsi interval nebo vypnuti pro zobrazeni
hintu (Hint=='blablabla';ShowHint==true) ? Potreboval bych, aby po chvilce
nemizel ale zustal pod prvkem zobrazen az do vyjeti kurzoru mysi z jeho
rectangle.
Diky za kazdou radu
Jaro B."Komprimace" registru
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 7.12.1999 07:18:22
> nekde na to existuje program RegClean nebo
> tak nejak podobne se jmenuje. Drive tam byly
> nejake chybicky, ale treba jsou uz opraveny.
Soupnul jsem ho na ftp konference do adresare SMETI. Sbaleny ma kolem 300
kilo.
==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
office: +420-69-620 1375
GSM: +420-603-937 947
============================================== Nahled stranky pred tiskem
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 7.12.1999 07:27:55
Ahoj vsichni,
delal jsem nejaky tisk, ale problem je se zobrazenim "nahledu".
Realizuji ho tak, ze nastavim u TImage vysku a sirku podle rozmeru
papiru tiskarny (vydeli se ovsem vhodnym cislem) a tam se vykresli to,
co je treba. Lze ovsem vyvolat Printer setup dialog a tam nastavit tisk
na sirku misto na vysku apod. A tam je ten problem: Programkem
procedure TForm1.Button1Click(Sender: TObject);
const Factor = 15; //aby maketa stranky nebyla moc velka
begin
if ps.Execute then //to je printer setup dialog
begin
Image1.Width:=Printer.PageWidth div Factor;
Image1.Height:=Printer.PageHeight div Factor;
Image1.Canvas.Rectangle(0, 0, Image1.Width, Image1.Height); //obdelnik
s cernou hranici coby maketa stranky
end;
end;
se nastavi napriklad tisk na sirku. Fajn, nakresli se pekny obdelnik a
hotovo. Jenze kdyz vyvolam ten dialog znovu a nastavim tisk na vysku,
obdelnik se nedokresli a jeho vyska odpovida vysce predchoziho obdelniku
!!! Pritom ale fyzicka vyska toho Image je spravna! Stejne to je, kdyz
nastavim nejprve tisk na vysku (obdelnik je OK) a pak tisk na sirku
(zase se nedokresli a jeho sirka odpovida sirce predchoziho obdelniku.).
Zkousel jsem to pod D3 i pod D4 na W95 a W98. Nepochybne delam neco
blbe, ale co ?
Diky za vsechny odpovedi.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi
**************************************************
Pristup na PDX tabulku ze dvou pocitacu
[*] Ren� Otisk - 7.12.1999 08:31:15
Hi,
To se mi nezda. U nas funguje NetDir tak, ze sice smeruje na stejne misto,
ale cesta neni stejna.
Sroub
> Ahoj!
> Dekuji vsem kteri se ozvali na vyse uvedeny problem.
> Vyzkouseli jsme rady a pomohlo nastavit LOCAL SHARE na True.
> Ovsem nejdulezitejsi bylo to, ze na obou pocitacich musi byt nastavene
> stejne NET DIR. A to nejenom na stejny adresar ale vlastne cela cesta
> (ten retezec) musi byt v obou nastavenich na obou pocitacich stejna.
> A tady nastal problem. Nepodarilo se nam totiz namapovat lokalni adresar,
> podobne jako to jde s adresarem na cizim pocitaci.
viac Query na jeden DataSource
[*] Pavel �im��ek - 7.12.1999 08:34:43
Nezlob se na mne za uprimnost, ale jestli je to naprogramovane
stejnym zpusobem jakym je to popsane tak bych se tomu acess violation
ani nedivil. Zkus to prosim te napsat jeste jednou a srozumitelneji.
Asi jsem hold blbej ale nejak jsem to nepochopil. Teda hlavne ten prvni
odstavec.
Ahoj Pavel
-----P�vodn� zpr�va-----
Od: Michal Hlav�� <7hlavac(zv)st.fmph.uniba.sk>
Komu: Delphi F�rum <delphi-l(zv)fwd(tec)cz>
Datum: 6. prosince 1999 22:32
P�edm�t: viac Query na jeden DataSource
>Zdravim,
>uz som zufaly a neviem to vyriesit. Mam QuickForm, kde je Dbgrid napojeny
na
>Query s par polozkami, pri stlaceni enter, sa aktivuje DetailForm a s nim
aj
>DetailQuery ktory ma v property DataSoruce prvy Source na query. Dalej v
>detail forme su este dalsie dva query takto napojene.
>Je to kvoli tomu aby som vedel, ktore pole som vybral a v Sql ho pouzivam.
>Vsetko je Ok, pokial je napojeny iba jeden Query. Ak ich dam viac, padne mi
>to na access violation bla bla bla.
>
>Ono aby to slo rychlejsie ak robim v QuicForme, tak Querys z DetailFormu su
>vypnute takto:
>Query.DataSet := nil; Pri stlaceni klavesy tam priradim query2.dataSource
:=
>Query1Source;
>
>Dik za kazdu radu,
>
>Miso
>Nahled stranky pred tiskem
[*] Fryz, Zdenek <fryz(zv)dcb(tec)cz> - 7.12.1999 08:34:37
P.Brant wrote:
>na sirku misto na vysku apod. A tam je ten problem: Programkem
>procedure TForm1.Button1Click(Sender: TObject);
>const Factor = 15; //aby maketa stranky nebyla moc velka
>begin
> if ps.Execute then //to je printer setup dialog
> begin
> Image1.Width:=Printer.PageWidth div Factor;
> Image1.Height:=Printer.PageHeight div Factor;
> Image1.Canvas.Rectangle(0, 0, Image1.Width, Image1.Height); //obdelnik
>s cernou hranici coby maketa stranky
> end;
>end;
>se nastavi napriklad tisk na sirku. Fajn, nakresli se pekny obdelnik a
>hotovo. Jenze kdyz vyvolam ten dialog znovu a nastavim tisk na vysku,
>obdelnik se nedokresli a jeho vyska odpovida vysce predchoziho obdelniku
>!!! Pritom ale fyzicka vyska toho Image je spravna! Stejne to je, kdyz
>nastavim nejprve tisk na vysku (obdelnik je OK) a pak tisk na sirku
>(zase se nedokresli a jeho sirka odpovida sirce predchoziho obdelniku.).
>Zkousel jsem to pod D3 i pod D4 na W95 a W98. Nepochybne delam neco
>blbe, ale co ?
ja myslim, ze problem muze byt v tomhle:
function TImage.GetCanvas: TCanvas;
var
Bitmap: TBitmap;
begin
if Picture.Graphic = nil then
begin
Bitmap := TBitmap.Create;
try
Bitmap.Width := Width;
Bitmap.Height := Height;
Picture.Graphic := Bitmap;
finally
Bitmap.Free;
end;
end;
if Picture.Graphic is TBitmap then
Result := TBitmap(Picture.Graphic).Canvas
else
raise EInvalidOperation.Create(SImageCanvasNeedsBitmap);
end;
- jestlize sam nepriradis do Image.Picture.Graphic
bitmapu, tak (asi pri prvnim pouziti Image.Canvas) je
tato bitmapa (na jejiz Canvas se kresli)
vytvorena, ale zmenou rozmeru Image
se zaroven nemeni velikost bitmapy, resp. canvasu
na ktery kreslis, takze se zrejme musi
provest i zmena velikosti Image.Picture.Graphic :
procedure TForm1.Button1Click(Sender: TObject);
const Factor = 15; //aby maketa stranky nebyla moc velka
begin
if ps.Execute then //to je printer setup dialog
begin
Image1.Width:=Printer.PageWidth div Factor;
Image1.Height:=Printer.PageHeight div Factor;
Image1.Picture.Graphic.Width:=Image1.Width;
Image1.Picture.Graphic.Height:=Image1.Height;
Image1.Canvas.Rectangle(0, 0, Image1.Width, Image1.Height); //obdelnik s
cernou hranici coby maketa stranky
end;
end;
testovano v D3
Zdenek Fryz
__________________________________________________________________
Tato komunikace je urcena vyhradne pro adresata a je duverna.
This communication is intended solely for the addressee and is confidential.
Tisk
[*] Martin Fron�k <FRONEK(zv)zznslany(tec)cz> - 7.12.1999 08:40:07
Tady stale nekdo nepochopil, ze tomu cloveku jde o ZNAKOVY tisk (patrne
na jehlickove tiskarne), nikoliv o grafiku.
V takovem pripade si musis budto udelat vsechno sam, a nebo pouzit neco
od SINEA SW, videl jsem to a neni to spatne, ma to jen jednu vadu -
kupodivu za to chteji penize :-)
Takze ja sam tohle resim vystupem do souboru a naslednym kopirovanim na
tiskarnu (muzes pouzit i UNC).
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: bures [SMTP:bures(zv)ssakhk(tec)cz]
> Odesl�no: 06. prosince 1999 15:10
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Tisk
>
> komponenta Richedit to umi... RichEdit1.Print ...
> �
> Vlada
> �
> �
>
> Jenze jak to mam udelat, aby to tisklo
> 1) text zarovnany do boku
> 2) zarovnane sloupce�
> 3) vycenrovany text
> (a to jeste hodlam menit fonty)
> �
> ???
> �
> �
> Pitr - Petr Vobornik
> API Funkcia
[*] Werki <delphi(zv)minv.sk> - 7.12.1999 09:01:25
Zdravim Pani
Rad by som zavolal nejaku API funkciu z delphi. V C som nemal probs,
tu vsak neviem doplnit parametre. Nevie niekto ako napriklad zavolat:
messagebox(NULL,TEXT("Ahoj"),TEXT("EHM"),0); ???
Dik
Rex
SYBASE & memo
[*] Honza Fiala <kvasar(zv)kvasar(tec)cz> - 7.12.1999 09:01:30
Zdravim,
nemate nekdo zkusenosti se sybase? ja tedka prekopavam program na tuto db a mam velke problemy s memo polozkami. Pro pristup k db pouzivam ODBC driver Sybase System 10. Pokud se snazim neco zobrazit do TDbMemo, tak mi to vzdy spadne na
General SQL Error
[INTERSOLV][ODBC SQL Server driver][SQL server]ct get data(): user api layer:
external error: Item 1 has already been read
v tabulce se polozka memo vytvorena jako TEXT a v DBExploreru je prezentovana jako LONGVARCHAR.
Opravdu uz si nevim rady jestli je to moje chyba nebo jestli mam predelat program bez memo polozek, ktere tam mam v hojne mire.
BTW: na Interbazi mi to jede bez problemu.
S pozdravem
Honza Fiala
Kvasar, spol. s r. o.
E-mail: kvasar(zv)kvasar(tec)cz
URL: http://www.kvasar(tec)cz
par komponent
[*] Milos Sula <crkstrobe(zv)geocities(tec)com> - 7.12.1999 09:18:40
Ahoj
umistil jsem tady par komponent (no nic moc, ale snad to bude treba nekdo
nekdy neco takoveho potrebovat).
www.geocities.com/crkstrobe/
cau
Otevirani DOS okna pri spousteni aplikace s parame
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 7.12.1999 09:25:50
Nemuzu si pomoct, ale at pouziju WinExec
nebo ShellExecute v kombinaci s SW_HIDE
neni videt zadne DOS okno.
To okno zustane otevrene nebo jen blikne ?
Dobra.
> ----------
> Od: eL..[SMTP:eL_z_Prahy(zv)seznam(tec)cz]
>
> > mam problem, potrebuji spoustet aplikaci s parametrem a ono se
> pritom vzdy
> >otevre DOSovske okno. Nevite jak tomuto zabranit?
>
> Asi pouzivas WinExec. Zkus pouzit ShellExecute.
>
> Hint show time
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 7.12.1999 09:32:01
Co zkusit treba Application.HintPause nastavit
na neco velikeho a po vyjeti dat puvodni hodnotu...
(viz tez App.HintHidePause a App.HintShortPause)
Dobra.
> ----------
> Od: Bene� Jaroslav[SMTP:JBenes(zv)cpoj(tec)cz]
> nevite, prosim nekdo jak nastavit delsi interval nebo vypnuti pro
> zobrazeni
> hintu (Hint=='blablabla';ShowHint==true) ? Potreboval bych, aby po
> chvilce
> nemizel ale zustal pod prvkem zobrazen az do vyjeti kurzoru mysi z
> jeho
> rectangle.
>
> Diky za kazdou radu
> Jaro B.
> WinNT a W95 na jedne masince
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 7.12.1999 09:40:17
### Lubos napsal dne 6 Dec 99, v 17:58 :
> > > Mam dotaz ohledne moznosti nainstalovat na PC s WinNT 4.0 Wrkst jeste
> > > vedle OS W95 (na odladovani aplikaci). Naopak to jde, ale z NT to
> > > rozsirit o W95? Potrebuji zachovat stavajici soubory na disku, takze
> > > postup format C:, instalace W95, instalace WNT neni to prave orechove.
>
> Myslim ze najjednoduchsie by bolo nabootovat z diskety na ktorej je
> Partition Magic (najnovsia verzia je 4)
uz ne, pry uz je 5
> upravit velkost particie (ak mas NTFS), na volnom mieste urobit novu
pozor, PQMagic do verze 4 neumi NTFS5 (u W2000)!
> particiu (FAT/FAT32) a dat tam W95.
> Ale este som to nikdy neskusal, takze bez zaruky. Skusal som akurat robit
> nieco taketo pre Linux. Ten som potom startoval z diskety. Ak nebola
Nekde jsem cetl, ze DOS/W3/9x boot partition musi byt prvni
PRIMARY partition na HD, jinak to nefunguje :-)
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Hint show time
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 7.12.1999 09:45:10
Application.HintPause := 80; {urcuje kedy zacne svietit Hint po
nastaveni kurzoru na danu polozku}
Application.HintHidePause := 10000; {urcuje ako dlho bude svietit Hint
Pavol Kaka�ka
paka(zv)aktis(tec)cz
> Ahoj,
>
> nevite, prosim nekdo jak nastavit delsi interval nebo vypnuti pro
zobrazeni
> hintu (Hint=='blablabla';ShowHint==true) ? Potreboval bych, aby po chvilce
> nemizel ale zustal pod prvkem zobrazen az do vyjeti kurzoru mysi z jeho
> rectangle.
>
> Diky za kazdou radu
> Jaro B.API Funkcia
[*] Werki <delphi(zv)minv.sk> - 7.12.1999 09:48:51
> Zdravim Pani
>
> Rad by som zavolal nejaku API funkciu z delphi. V C som nemal
probs,
> tu vsak neviem doplnit parametre. Nevie niekto ako napriklad zavolat:
>
> messagebox(NULL,TEXT("Ahoj"),TEXT("EHM"),0); ???
Sorry folks
Nebol prob, zabudol som len ze prvy je pchar a druhy nie.
Nema to potom probs s UNICODE?
Rex
Pristup na PDX tabulku ze dvou pocitacu
[*] Pavel Junek <junek(zv)hrk.pvtnet(tec)cz> - 7.12.1999 10:12:12
Ahoj,
co jsem kde o nastaveni cetl, vsude psali (a mam to odzkouseno), ze NET DIR
musi byt nastaveno vsude stejne mimo jmena disku: na 1.PC C:\MojeApp\ na
2.PC treba H:\MojeApp\
Takto mi to vzdy fungovalo (v siti W3.11, W95 i W98).
Pavel
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Pavel �im��ek
>
>
> ... ze na obou pocitacich musi byt nastavene
> stejne NET DIR. A to nejenom na stejny adresar ale vlastne cela cesta
> (ten retezec) musi byt v obou nastavenich na obou pocitacich stejna.
>
Otevirani DOS okna pri spousteni aplikace s parame
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 7.12.1999 10:12:41
Pokud spoustis dosovsky program z windows, udelej
si PIF,
tam nastav zavrit po skonceni + spoustu dalsich
veci, ktere
potrebujes a spoustej neco.PIF.
Jan Fiala
----- Original Message -----
From: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>> Nemuzu si pomoct, ale at pouziju WinExec
> nebo ShellExecute v kombinaci s SW_HIDE
> neni videt zadne DOS okno.
>
> To okno zustane otevrene nebo jen blikne ?
>
> Dobra.
>
> > ----------
> > Od: eL..[SMTP:eL_z_Prahy(zv)seznam(tec)cz]
> >
> > > mam problem, potrebuji spoustet aplikaci s
parametrem a ono se
> > pritom vzdy
> > >otevre DOSovske okno. Nevite jak tomuto
zabranit?
> >
> > Asi pouzivas WinExec. Zkus pouzit
ShellExecute.
> >
> >
>API Funkcia
[*] Werki <delphi(zv)minv.sk> - 7.12.1999 10:22:20
> > Rad by som zavolal nejaku API funkciu z delphi. V C som nemal
> >probs,
> >tu vsak neviem doplnit parametre. Nevie niekto ako napriklad zavolat:
> >
> >messagebox(NULL,TEXT("Ahoj"),TEXT("EHM"),0); ???
> >
>
> Ja to delam asi takhle:
>
> function MessageBoxA(hand:integer; zpr:PCHar; tit:PCHAR;
> styl:integer):integer;
> stdcall; external 'User32.DLL';
>
> (nic=) MessageBoxA(MainForm.Handle,'XXX','Zprava z USER32.DLL',1);
I see. Tu neslo ani tak konkretne o messagebox, ako o zavolanie API funkcie
ktore mi nebezalo. Doplnil som uses a zmenil som typ 3tieho parametra.
Pokial ide konkretne
o messagebox, tak je samo ze lahsie zavolat...
Application.MessageBox(
'HEY HOU',
'Open Error',
MB_OKCANCEL + MB_DEFBUTTON1)
Ai tak dik. Nie ie bohvie co menit v kuse platformy/jazyky :(
Rex
OT: W98 a oprava registru
[*] Pavel Junek <junek(zv)hrk.pvtnet(tec)cz> - 7.12.1999 10:22:53
Ahoj,
omlouvam se za OT, ale toto je posledni pokus pred reinstalaci W98.
Problem: Po startu W98 se cas od casu objevi hlaska "Chyba registru. Chcete
restartovat system a provest automatickou opravu registru?" a pouze tlacitko
"OK". Nekdy se to chova tak, ze ani nemusim kliknout na OK a pocitac se
restartuje a nekdy se spusti program pro opravu registru, nekdy ne. Hodne
spatny je, kdyz se pred tim neco instalovalo, to je pak vse v ... a muzu
instalovat znovu.
Otazka: Zajimalo by me, jakym zpusobem si W98 delaji zalohu registru (pri
ukonceni???), co se spousti na opravu registru, a vubec jak tohle cele
funguje.
Dekuji za nejaky typ a preji
Pekny tyden
Pavel
D5 - ano ci ne ?
[*] Kriz Pavel, TDS <kriz.tds(zv)ms.easynet(tec)cz> - 7.12.1999 10:37:08
> > Co vsak nepochopim, proc Borlandi zarputile schovavaji takove zakladni
> > metody, jako CalcDrawInfo, CalcFixedInfo atd. To same plati pro
procedury
>
> CalcDrawInfo i CalcFixedInfo je D5 v sekci protected.
No vida, tak uz jim to dochazi. (Ja jsem to delal jeste pro D3, v D4 to bylo
stejne, do D5 jsem se nedival.)
> > ModifyExtents, UpdateExtents apod.
> > Nakonec to totiz dopadlo tak, ze jsem si musel prekopirovat desitky
radku
> > kodu, kde se nic nezmenilo. Jenom jsem to potreboval volat.
>
> Toto jsou jen utility pro praci s internim datovou strukturou
> pro sirky/vysky.
Je to pouzito jeste napr. i na "TabStops".> 1) nac to potrebujes volat primo?
Treba jsem to pouzil pro toto:
const
DefaultColAlign = taLeftJustify;
procedure TGrid.SetColAlign(Index: Longint; Value: TAlignment);
begin
UpdateExtents(FColAlign, ColCount, Ord(DefaultColAlign));
if Assigned(FColAlign) then
if Value <> TAlignment(PIntArray(FColAlign)^[Index + 1]) then begin
PIntArray(FColAlign)^[Index + 1] := Ord(Value);
InvalidateCol(Index);
end;
end;> 2) pochop, ze oni to brali jako interni implementaci, ktera se muze
> v budoucnu zmenit (asi jako struktrura VMT tabulek).
> 3) toto opravdu neni problem prekopirovat, nebot to
> nejsou ani metody, ale jen obyc. procedury.
Kopirovat zdrojak samozrejme umim. Ale radeji pouzivam volani hotovych
funkci.
Myslim si, ze by se naslo jeste mnohem vice pripadu, kdy kvuli "private" je
nutne delat vselijake berlicky, pripadne i prekopirovat celou tridu a tu pak
menit. To rikam se znalosti D3 a D4, zatim jsem nezkoumal do jake miry je to
v D5 jine.
S pozdravem
Pavel Kriz, TDS
TMemo, Begin..EndUpdate neaktualizuje pozici kurzo
[*] Karel Kral <kral(zv)purus(tec)cz> - 07.12.1999 10:58:46
Mam takovy pitomy kosmeticky problem:
Mam TMemo, ktere slouzi jako vystup pro zobrazovani logu. Protoze ma
omezenou kapacitu, kontroluji pri pridavani radek do mema jejich pocet a
pripadne zase nejake ze zacatku umazu.
Ale nefunguje to, jak bych ocekaval: kdy nepouziji BeginUpdate a
EndUpdate, scroll bar pochopitelne pri Lines.Delete vylitne nahoru a pri
Add zase sleze dolu. Takze pouziju BeginUpdate a EndUpdate. Ale dockam
se toho, ze po EndUpdate rozhodne je sice kurzor za poslednim pridanym
radkem, ale NENI videt (scroll neni nastaven trochu nahoru, takze
neukazuje spodni radek). Zkusil jsem za EndUpdate dat Memo.SelStart:=
Length(Memo.Text) ale to asi neni ono. Neresil jste to uz nekdo?
with FLogView do
begin
// Lines.BeginUpdate;
while Lines.Count > FMaxMemoLines do
Lines.Delete(0);
Lines.Add(S);
// Lines.EndUpdate;
end;
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Grep
[*] Ing. Jan Skvor <skvorjan(zv)feld.cvut(tec)cz> - 7.12.1999 11:06:54
Zdravim vsechny,
potreboval bych knihovnu nebo popis rychlych algoritmu vhodnych pro
plnotextove vyhledavani retezcu (i UNICODE) ve velkem objemu dat (grep).
Mnozina vyhledavanych slov je pomerne rozsahla (radove stovky slov).
Budu vdecny za jakykoliv tip.
Hezky den
Honza
viac Query na jeden DataSource
[*] Michal Hlav�� - 7.12.1999 11:20:20
Zdravim,
omluvam sa, ale asi som toho chcel napisat strasne vela na malo miesta a
nenapisal som v podstate nic. Ked som si to rano precital, tak sa tiez
nedivim tomu Access Violation.
Ono je to asi na dost dlho.
Takze nazvime si komponenty. Hlavna query Usmev s UsmevSource, potom je
Query DetailUsmev s DetailUsmevSource, potom query dary s ....Source, potom
listy s ....
Ked uzivatel sa naloguje pouzije sa prikaz Open na vsetky query. Ale na
vsetky okrem usmev pouzijem toto DetailUsmev.DataSorce := nil; dary..... :=
nil;
Na usmevSource je napojeny Dbgrid, ktory tieto data zobrazuje.
Dalej. Ak stlacim Enter alebo dblClick, tak sa miotvori detailfrom a pri
jeho Open sa mi urobi toto: DetailUsmev.DataSource := UsmevSource;
dary.DataSource := UsmevSource; atd
o potrebujem lebo tieto query asi taketo SQl: Select * form users.dary where
ID_sponz = :Id
No a tu po tom stlaceni klavesy (alebo dblclick) mi da Access Violation.
Zahada je ale ze nie vzdy. Tak po chvilke prace. A niekedy aj hned na
zaciatku.
Samozrejme, ze pri Close dam do DataSource zase NIL; aby to slapalo na
Dbgride, vpohode.
Dufam, ze je to trosku zrozumitelnejsie.
-----P�vodn� zpr�va-----
Nezlob se na mne za uprimnost, ale jestli je to naprogramovane
stejnym zpusobem jakym je to popsane tak bych se tomu acess violation
ani nedivil. Zkus to prosim te napsat jeste jednou a srozumitelneji.
Asi jsem hold blbej ale nejak jsem to nepochopil. Teda hlavne ten prvni
odstavec.
Ahoj Pavel
W98 a oprava registru
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 7.12.1999 11:27:34
----- Original Message -----
From: Pavel Junek <junek(zv)hrk.pvtnet(tec)cz>> Ahoj,
>
> omlouvam se za OT, ale toto je posledni pokus
pred reinstalaci W98.
>
> Problem: Po startu W98 se cas od casu objevi
hlaska "Chyba registru. Chcete
> restartovat system a provest automatickou opravu
registru?" a pouze tlacitko
> "OK". Nekdy se to chova tak, ze ani nemusim
kliknout na OK a pocitac se
> restartuje a nekdy se spusti program pro opravu
registru, nekdy ne. Hodne
> spatny je, kdyz se pred tim neco instalovalo, to
je pak vse v ... a muzu
> instalovat znovu.
>
> Otazka: Zajimalo by me, jakym zpusobem si W98
delaji zalohu registru (pri
> ukonceni???), co se spousti na opravu registru,
a vubec jak tohle cele
> funguje.
>
W98 zalohuji registry do adresare
c:\windows\sysbckup (skryty adresar) jako soubory
rbxxx.CAB, kde xxx je cislo zalohy. Nekde se da
nastavit, kolik zaloh provadi, default je 5.
Zaloha i obnova je provadena programem ScanReg.
Melo by to pracovat tak, ze se windows pokusi
natahnout prii startu registry, pokud se jim to
nepodari, obnovi nejcerstvejsi zalohu atd. na vine
muze byt napr. nejaky spatne instalovany ovladac.
Chtelo by to zrejme pustit RegClean nebo utilitu z
Norton Utilit na kontrolu registru.
To s tim instalovanim mas samozrejme pravdu, pokud
obnovi zalohu porizenou pred instalaci. Zkus si po
instalaci spustit ScanReg a zazalohovat registry.
Jan Fiala
par komponent
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 7.12.1999 11:31:38
> umistil jsem tady par komponent (no nic moc, ale snad to bude treba nekdo
> nekdy neco takoveho potrebovat).
> www.geocities.com/crkstrobe/
Napis aspon, ceho se tykaji, z jake jsou oblasti.
David Lebeda
Grep
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 7.12.1999 11:36:18
A co tak pozriet sa na zdojaky od GExperts (Grep Search) myslim, ze tento
nastroj je dost vykonny. (Samozrjme zalezi na objemoch)
Pavol Kaka�ka
paka(zv)aktis(tec)cz
> Zdravim vsechny,
>
> potreboval bych knihovnu nebo popis rychlych algoritmu vhodnych pro
> plnotextove vyhledavani retezcu (i UNICODE) ve velkem objemu dat (grep).
> Mnozina vyhledavanych slov je pomerne rozsahla (radove stovky slov).
>
> Budu vdecny za jakykoliv tip.
Nelogicka matematika - deji se zazraky
[*] Honza <delphi(zv)mis-net(tec)cz> - 7.12.1999 11:49:14
Ahoj
M�m zaj�mav� probl�m v D3 na WIN98.
var a : Double;
b : Extended;
begin
a := 4.56;
b := Frac(a)*10;
b := Frac(b);
ShowMessage(FloatToStr(b));
end;
Vysledek je mozne spocitat v hlave a logicky vyjde cislo 0,6.
Proc ale message vrati hodnotu 0,599999999999996 ??
Predem dekuji za vysvetleni proc se tak deje
.........Honza
Istalace D5Pro
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 7.12.1999 11:50:54
Ahoj,
chtel jsem se otazat, zda mohu mit na jenom stoji (Celeron 400, 128 MB RAM)
nainstalovan D2 i D5 zaroven, aniz by doslo ke kolizim a mohl jsem stale
pouzivat i D2?
Diky
Jaro
ot: WinNT a W95 na jedne masince
[*] sup(zv)svitap(tec)cz - 7.12.1999 11:59:34
>Hi,
>Mam dotaz ohledne moznosti nainstalovat na PC s WinNT 4.0 Wrkst jeste
>vedle OS W95 (na odladovani aplikaci).
>Naopak to jde, ale z NT to rozsirit o W95? Potrebuji zachovat stavajici
>soubory na disku, takze postup format C:, instalace W95, instalace WNT
>neni to prave orechove.
>Dekuji
>Sroub
>
Porid si Partition Magic. Me diky nemu jede bez problemu na jedny masine
W98, WinNT4.0 Wst a Linux.
Bye
Jaroslav Weiss
odd. informatiky
SVITAP J.H.J. s.r.o.
Kijevska 6-8
SVITAVY
568 02
tel: ++420-461-568 202
fax: ++420-461-568 300
E-mail: sup(zv)svitap(tec)cz
URL: www.svitap(tec)cz
FTP: ftp.svitap(tec)cz
D5 - ano ci ne ?
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 7.12.1999 12:00:02
Haj hou!
From: Robert Kindl <rob(zv)exec(tec)cz>
>No, mas nejaky konkretni napad jak pichnout
>do toho Borlandiho hnizda, aby se daly veci
>do pohybu?
Borlandi Newsy. Borlandi je ctou (od spicek po bezne programatory) a aktivne
odpovidaji. Rovnez se rozjely Chaty na ruzna temata. Neni pravda, ze Borland
nenasloucha pozadavkum vyvojaru a nic nedela. Jiste, minuly rok byla situace
dost mizerna, ale nelze soudit posle jednoho roku, ale v sirsim kontextu.
Borlandi v Delphi ve verzich 1, 2 a 3 zakomponovali radu pozadavku
(abstrakce datasetu apod.). Jiste, jsou trochu pomalejsi, nez by vsichni
chteli, ale to se snad da pochopit, ne ? Kdyz sleduji na NG co vsechno lidi
po Borlandech chteji, tak je vazne lituji (uz jenom ten cas straveny ctenim
a posuzovanim) a obdivuji jejich statecnost a trpelivost. Loni si to u
vyvojaru dost zavarili, a kdyz se rozhodli k radikalnim zmenam, museli si
projit dost tezkou fazi vycitek, spilani, neduvery atd. Tento rok je ve
znameni obratu k lepsimu (vysledkem je D5, podpora Linuxu a vyrazne posileni
kontaktu s vyvojarskou komunitou). Uvidime, co prinese rok 2000.
>Zda se iniciativa PS (programatori sobe) alias
>Delphree nejak nefunguje nebo
>alespon zaostava za ocekavanim :-(
Nefunguje ? Funguje docela dobre (s prihlednutim k poctu zaangazovanych). A
pokud zaostava za necim ocekavanim, neni to jeji problem. Kazdy ma moznost
se zapojit a naplnit tak svoje ocekavani.
P.S.: Doufam, ze se v Lednu opet sejdeme v hojnem poctu v Belohrade :o)
Pavel Cisar <pcisar(zv)atlas(tec)cz>
Delphree.org CEO
http://delphree.clexpert.com
Nexus project coordinator
http://delphree.clexpert.com/pages/projects/nexus/default.htm
API funkce 2
[*] Werki <delphi(zv)minv.sk> - 7.12.1999 12:01:02
> Ahoj,
>
> je nekde k dispozici seznam API funkci v jednoduchej forme NAZEV -
STRUCNEJ
> POPIS ?
> V D3 pokud znam nazev funkce tak me poskytne slusnej help, ale pokud
nejakou
> funkci hledam,
> tak nikde zadnej seznam neni ...
>
> Radek
No, komplet popis mam akurat v hlp subore pri Watcom-e C++. Predpokladam,
ze API help bude nejako zapracovany aj do delphi helpu.
Rex
W98 a oprava registru
[*] Petr Brant <p.brant(zv)samo(tec)cz> - 7.12.1999 12:34:05
Treba by v tom mohly pomoci Norton Utilities, tam je primo program pro
kontrolu registru a souvisejicich veci.
**************************************************
Petr Brant [p.brant(zv)samo(tec)cz], programator v MSVC++,
obcas Delphi
**************************************************
> Problem: Po startu W98 se cas od casu objevi hlaska "Chyba registru.
> Chcete
> restartovat system a provest automatickou opravu registru?" a pouze
> tlacitko
> "OK". Nekdy se to chova tak, ze ani nemusim kliknout na OK a pocitac
> se
> restartuje a nekdy se spusti program pro opravu registru, nekdy ne.
> Hodne
> spatny je, kdyz se pred tim neco instalovalo, to je pak vse v ... a
> muzu
> instalovat znovu.
>
> Otazka: Zajimalo by me, jakym zpusobem si W98 delaji zalohu registru
> (pri
> ukonceni???), co se spousti na opravu registru, a vubec jak tohle cele
> funguje.
> D5 - ano ci ne ?
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.12.1999 12:49:02
Petr Vones wrote:
> > Skvele, uz jim zbyva jen zaplacat (na tvaricky...). Uz takhle rada
> > hlavicek chybi, dokumentace veskrze zadna, priklady take ne,
>
> Zkratka nestihaji. Hlavicky by meli castecne pokryt s pomoci
> Delphi-JEDI, ale na muj vkus se jim to trosku rozpada, aneb nekdy mene
> byva vice. Takze v tomhle bode bych jim malinko odpustil :-)
Mno, ja jsem myslel tu cast interface... :-)
> > takze pujdeme misto programovani prodavat burty? Do tech je aspon
> > trochu videt, kdyz si clovek da tu praci... :-)
>
> Tohle si taky obcas rikam, ze by to snad bylo lepsi :-))
Hm, myslim ze nebylo... :-) Divat se na zelene xichty stravniku po
zelenych burtech, a mit porad na krku hygienicke kontroly se mi
nechce.
> > V tom pripade vyhlasuji celosvetovou vzpouru proti oklestovani
> > nezadatelnych prav programatoru a akci "Dekujeme, sem se
> > zrojaky!'. Nebo aspon poradnou dokumentaci s priklady.
>
> V pripade nejake hromadne demonstrace bych se priklanel k te druhe
> variante :-))
Takze zitra se sejdeme vsichni na Vaclavaku. :-)))
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Nelogicka matematika - deji se zazraky
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 7.12.1999 12:57:51
> -----P�vodn� zpr�va-----
> Od: Honza [mailto:delphi(zv)mis-net(tec)cz]
> Odesl�no: 7. prosince 1999 11:49
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Nelogicka matematika - deji se zazraky
>
>
> Ahoj
>
> M�m zaj�mav� probl�m v D3 na WIN98.
>
> var a : Double;
> b : Extended;
> begin
> a := 4.56;
> b := Frac(a)*10;
> b := Frac(b);
> ShowMessage(FloatToStr(b));
> end;
protoze 0.56 hex = 0.1000111101011100001010001111010... bin
tedy cislo 4.56 je ve dvojkove soustave ulozeno zaokrouhlene.
Nejde ulozit jinak. A tim zaokrouhlenim prijdes o tech
0.0000000000000000000000004.
Jura
Nelogicka matematika - deji se zazraky
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 7.12.1999 12:59:26
> -----P�vodn� zpr�va-----
> Od: Polak Jiri
> protoze 0.56 hex = 0.1000111101011100001010001111010... bin
^^^
Sorry: ne hex ale dec
Jura
Otevirani DOS okna pri spousteni aplikace s parame
[*] nezadal(zv)volny(tec)cz - 7.12.1999 13:17:20
Stava se To jen kdyz aplikaci spustis bez
bezicich Delphi. Okno zustane otevrene.
> Nemuzu si pomoct, ale at pouziju WinExec
> nebo ShellExecute v kombinaci s SW_HIDE
> neni videt zadne DOS okno.
>
> To okno zustane otevrene nebo jen blikne ?
>
> Dobra.
>
> > ----------
> > Od: eL..[SMTP:eL_z_Prahy(zv)seznam(tec)cz]
> >
> > > mam problem, potrebuji spoustet aplikaci s parametrem a ono se
> > pritom vzdy
> > >otevre DOSovske okno. Nevite jak tomuto zabranit?
> >
> > Asi pouzivas WinExec. Zkus pouzit ShellExecute.
> >
> >
>
> Otevirani DOS okna pri spousteni aplikace s parame
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 7.12.1999 13:22:35
V tom pripade zkontroluj v adresari Windows
soubor _default.pif nebo dosprmt.pif zda
neni ne-nastaveno "Pri skonceni zavrit".
Dobra.
> ----------
> Od: nezadal(zv)volny(tec)cz[SMTP:nezadal(zv)volny(tec)cz]
>
> Stava se To jen kdyz aplikaci spustis bez
> bezicich Delphi. Okno zustane otevrene.
>
> > Nemuzu si pomoct, ale at pouziju WinExec
> > nebo ShellExecute v kombinaci s SW_HIDE
> > neni videt zadne DOS okno.
> >
> > To okno zustane otevrene nebo jen blikne ?
> >
> > > ----------
> > > > mam problem, potrebuji spoustet aplikaci s parametrem a ono se
> > > pritom vzdy
> > > >otevre DOSovske okno. Nevite jak tomuto zabranit?
> Nelogicka matematika - deji se zazraky
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 7.12.1999 13:31:50
Zdravim,
kdybys nekdy delal v Pascalu, tak bys vedel o co jde. Pouzivas real cisla,
tj. s plovouci carkou. Takze napr cislo 1 muze byt zapsano:
1.000000000000000
nebo
1.000000000000001
nebo
0.999999999999999
Uprimnou soustrast pri hledani reseni. Nejses sam kdo ma pdobne problemy.
Pavel
>
> M�m zaj�mav� probl�m v D3 na WIN98.
>
> var a : Double;
> b : Extended;
> begin
> a := 4.56;
> b := Frac(a)*10;
> b := Frac(b);
> ShowMessage(FloatToStr(b));
> end;
>
> Vysledek je mozne spocitat v hlave a logicky vyjde cislo 0,6.
> Proc ale message vrati hodnotu 0,599999999999996 ??
>
> Predem dekuji za vysvetleni proc se tak deje
>
> .........Honza
>Nelogicka matematika - deji se zazraky
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 7.12.1999 13:40:34
> var a : Double;
> b : Extended;
> begin
> a := 4.56;
> b := Frac(a)*10;
> b := Frac(b);
> ShowMessage(FloatToStr(b));
> end;
>
> Vysledek je mozne spocitat v hlave a logicky vyjde cislo 0,6.
> Proc ale message vrati hodnotu 0,599999999999996 ??
Libovolny interval v oboru realnych cisel obsahuje nekonecne
mnoho cisel. Naproti tomu v pocitaci je mnozina vsech hodnot
libovolneho realneho typu "jen" konecna, realna cisla mohou
nabyvat jen urcitych hodnot, i kdyz je jich hodne. Pri jakemkoli
vypoctu v realnych cislech proto nutne musi dochazet k
zaokrouhlovani. Dela-li se nekolik vypoctu po sobe, jako v tomto
pripade, mohou se zaokrouhlovaci chyby sejit tak, ze daji takovou
chybu ve vypoctu, o jake pises.
David Lebeda
david.lebeda(zv)comarr(tec)cz
Istalace D5Pro
[*] Mirek Junek <mjunek(zv)uo.fairnet(tec)cz> - 7.12.1999 13:43:45
ANO
----- Original Message -----
From: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, December 07, 1999 11:50 AM
Subject: Istalace D5Pro
| Ahoj,
|
| chtel jsem se otazat, zda mohu mit na jenom stoji (Celeron 400, 128 MB
RAM)
| nainstalovan D2 i D5 zaroven, aniz by doslo ke kolizim a mohl jsem stale
| pouzivat i D2?
| Diky
| Jaro
WinNT a W95 na jedne masince - vysledek
[*] Ren� Otisk - 7.12.1999 13:54:04
Hi,
Tak jsem to zkusil jeste i po dohode s externim okolim. Na WinNT jsem zmenil
system souboru na FAT16, nomalne sem nainstaloval windows 95 a nomalne mi to
vytvorilo boot.ini a dalsi prislusne soubory pro bootovani a jen s jednou
chybyovou hlaskou a to ze nejde nahodit scandisk (HIMEM.SYS), coz mi bylo
nesmirne lito, protoze u neho a defragmentace vzdycky relaxuji (krasny pocit
kdyz nic nedelam a masinka si porad vrti ctvereckama).
Asi byla prizniva konstalace hvezdicek pro praci s Windows (Gates je mozna
alhymista?).
Dekuji vsem za radu, zase jsem o neco chytrejsi (tohle uz je ovsem bez
zaruky) a shnilejsi.
Sroub
> > > > Mam dotaz ohledne moznosti nainstalovat na PC s WinNT 4.0 Wrkst
jeste
> > > > vedle OS W95 (na odladovani aplikaci). Naopak to jde, ale z NT to
> > > > rozsirit o W95? Potrebuji zachovat stavajici soubory na disku, takze
> > > > postup format C:, instalace W95, instalace WNT neni to prave
orechove.
> >
> > Myslim ze najjednoduchsie by bolo nabootovat z diskety na ktorej je
> > Partition Magic (najnovsia verzia je 4)
> uz ne, pry uz je 5
>
> > upravit velkost particie (ak mas NTFS), na volnom mieste urobit novu
> pozor, PQMagic do verze 4 neumi NTFS5 (u W2000)!
>
> > particiu (FAT/FAT32) a dat tam W95.
> > Ale este som to nikdy neskusal, takze bez zaruky. Skusal som akurat
robit
> > nieco taketo pre Linux. Ten som potom startoval z diskety. Ak nebola
> Nekde jsem cetl, ze DOS/W3/9x boot partition musi byt prvni
> PRIMARY partition na HD, jinak to nefunguje :-)
>
> -----------------------------------------------
> Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
> director
> ZDS, spol. s r.o.
> Hronovicka 708 tel:+420-40-6613756
> 530 02 Pardubice fax:+420-40-6613756
> Czech Republic http://www.zds(tec)cz
> e-mail: info(zv)zds(tec)cz
> Internet proti monopolu http://www.bojkot(tec)cz
> Pripojte se k hledani mimozemskych civilizaci:
> SETI(zv)Home http://setiathome.ssl.berkeley.edu
Nelogicka matematika - deji se zazraky
[*] Ing. Radim Bro�ek <radim.brozek(zv)berit(tec)cz> - 7.12.1999 13:54:25
pou�ij jin� datov� typ ne� extended (podobn� blbne i real)
S pozdravem
Ing. Radim Bro�ek
-----Original Message-----
From: Pavel ZIDEK [SMTP:kopr(zv)kopr(tec)cz]
Sent: Tuesday, December 07, 1999 1:52 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Nelogicka matematika - deji se zazraky
Zdravim,
kdybys nekdy delal v Pascalu, tak bys vedel o co jde. Pouzivas real cisla,
tj. s plovouci carkou. Takze napr cislo 1 muze byt zapsano:
1.000000000000000
nebo
1.000000000000001
nebo
0.999999999999999
Uprimnou soustrast pri hledani reseni. Nejses sam kdo ma pdobne problemy.
Pavel
>
> M�m zaj�mav� probl�m v D3 na WIN98.
>
> var a : Double;
> b : Extended;
> begin
> a := 4.56;
> b := Frac(a)*10;
> b := Frac(b);
> ShowMessage(FloatToStr(b));
> end;
>
> Vysledek je mozne spocitat v hlave a logicky vyjde cislo 0,6.
> Proc ale message vrati hodnotu 0,599999999999996 ??
>
> Predem dekuji za vysvetleni proc se tak deje
>
> .........Honza
>D5-Trail-Licence
[*] supervisor(zv)unicontrols(tec)cz - 7.12.1999 12:55:33
Dobry den
Nainstaloval jsem si D5 trial z PCW10/99, pokousim se
registrovat na www ale tam chteti nejake ID.
Nevite nekdo kde toto sezenu, nejak tomu nerozumim
Dekuji za kazdou radu
-----------------------------
- Vojtech Albrecht -
- supervisor(zv)unicontrols(tec)cz -
- ICQ 33995541 -
-----------------------------
Zakaz zapisu do registru
[*] "Jitka �t�p�nkov�" <step(zv)odp(tec)cz> - 07.12.1999 13:00:50
Me se osvedcilo tohle (D3):
var
Reg: TRegistry;
uzivatel,firma: string;
begin
REg := TRegistry.Create;
try
with Reg do
begin
RootKey := HKEY_CURRENT_USER;
if OpenKey('\Software\Microsoft\MS Setup (ACME)\User Info',false) then
begin
UZivatel := ReadString('DefName');
Firma := ReadString('DefCompany');
end;
end;
finally
Reg.CloseKey;
Reg.Free;
end;
end;
Parametr false v OpenKey znamena jen cteni, true znamena: neni-li, vytvori se
xxxxxxxxxxxxxxxxxxxxxxxxxxx
Jitka Stepankova
ODP-software spol. s r. o.
tel.: (068) 5725 216
e-mail step(zv)odp(tec)cz
xxxxxxxxxxxxxxxxxxxxxxxxxxx
Indexy
[*] novacek(zv)vanicek(tec)cz - 7.12.1999 13:07:43
Dne 6 Dec 99 v 8:21, napsal Tom�s Vesel�:
> daji se nejak vypnout vsechny indexy na tabulce a potom zase zapnout ?
V jaky tabulce (Pdx, IB, ...), jak k ni pristupujes (BDE, SQL, ...)?
Dopln informace.
Zdar a silu.
Vladimir Novacek
VANICEK SOFTWARE, spol. s r.o. tel.: 05-747267
Zborovska 15 fax+BBS: 05-41240246
616 00 Brno e-mail: novacek(zv)vanicek(tec)cz
Ceska Republika http://www.vanicek(tec)cz
D5-Trail-Licence
[*] Ren� Otisk - 7.12.1999 14:19:17
Jejda, ony se daji registrovat i Trial verze?
> Dobry den
>
> Nainstaloval jsem si D5 trial z PCW10/99, pokousim se
> registrovat na www ale tam chteti nejake ID.
> Nevite nekdo kde toto sezenu, nejak tomu nerozumim
viac Query na jeden DataSource
[*] Pavel �im��ek - 7.12.1999 15:01:24
Abych rekl pravdu tak nevim. Takove nahodile chyby jsou nejhorsi.
Zkusil bych psat do souboru vsechny kroky ktere se vykonavaji
pri onom DoubleClick nebo Enter, spolu s udaji o tech Query
a DataSource. Pak by melo byt videt kde a mozna i proc to spadlo.
Akorat si nezapomen osetrit aby se i pres vyjimku ten soubor zavrel.
Ahoj Pavel
-----P�vodn� zpr�va-----
>Takze nazvime si komponenty. Hlavna query Usmev s UsmevSource, potom je
>Query DetailUsmev s DetailUsmevSource, potom query dary s ....Source, potom
>listy s ....
>
>Ked uzivatel sa naloguje pouzije sa prikaz Open na vsetky query. Ale na
>vsetky okrem usmev pouzijem toto DetailUsmev.DataSorce := nil; dary..... :=
>nil;
>
>Na usmevSource je napojeny Dbgrid, ktory tieto data zobrazuje.
>Dalej. Ak stlacim Enter alebo dblClick, tak sa miotvori detailfrom a pri
>jeho Open sa mi urobi toto: DetailUsmev.DataSource := UsmevSource;
>dary.DataSource := UsmevSource; atd
>o potrebujem lebo tieto query asi taketo SQl: Select * form users.dary
where
>ID_sponz = :Id
>
>No a tu po tom stlaceni klavesy (alebo dblclick) mi da Access Violation.
>Zahada je ale ze nie vzdy. Tak po chvilke prace. A niekedy aj hned na
>zaciatku.
Ziskani Handle na malou ikonku aplikace
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 7.12.1999 15:46:20
Ahoj
Do sveho projektu jsem jako ikonu priradil soubor ICO, ktery obsahuje
dve ikonky jednu velikosti 32*32 a druhou 16*16.
(Tim padem se ta mala zobrazuje napriklad na te modre liste aplikace,
na hlavnim panelu, nebo treba ve WindowsCommanderovi u exace a
podoben, velka ikonka se zase pouzije treba v tom okne kde se
prepinaji aplikace (taskbar))
Handle te vetsi ziskam jednoduse:
Application.Icon.Handle;
Me by ale zajimalo, jak zjistim handle te male (16*16) ikonky, abych
ji mohl pouzit v napriklad v SysTrayi.
Diky za napady.
Petr
==< Petr Vaclavek >---- --- --- -- -- - - -
====-----( mailto: bla(zv)atrey.karlin.mff.cuni(tec)cz )-- - -
`=====--( http://atrey.karlin.mff.cuni(tec)cz/~bla )-- - -
`======--- ------ ---- --- -- -- - - - D5-Trail-Licence
[*] supervisor(zv)unicontrols(tec)cz - 7.12.1999 15:11:39
> Jejda, ony se daji registrovat i Trial verze?
No asi jsem se spatne vyjadril, jde o to ze pri instalaci je
vyzadovano heslo ktere je generovano na webu.
No a tady je problem, nebot instalace ktera je na cd-cku
PCW10/99 me negeneruje ID ktere je nutno zadat na web stranku.
Ale uz jsem to vyresil tim ze jsem si downloadnul verzi od
Borlandu a ta tento generator ma. Ale je tu dalsi problem
a to ohledne 60 deni verze. Protoze jakmile zmeni datum (rok) na
pocitaci tak se tato verze prepne ze je uz prosla a pri opetovnem
narovnani data se to dohromady uz neda a nepomuze ani
preinstalace.
Takze zaver je takovy ze me to moc nepotesilo
Takze diky za ochotu
-----------------------------
- Vojtech Albrecht -
- supervisor(zv)unicontrols(tec)cz -
- ICQ 33995541 -
-----------------------------
IMAP komponenta
[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 7.12.1999 16:21:32
Preji vsem hezky den,
Nevite nekdo o nejake komponente na IPAM4 ? Hledal jsem vsude mozne a zatim
nic ...
diky
R.Pospisil
SQL Report Builder verzia 1.5
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 7.12.1999 16:29:23
Nova verzia umoznije QR1,QR2 (QR3) reporty impotovat
do SQL Report Builder na zaklade DFM suboru.
Tato verzia je free pre nekomercne applikacie.
TUNGLI J�nos
EMail: jan.tungli(zv)seznam(tec)cz
My Home Page: http://free.netlap.hu/4321/
or: http://freeweb.coco(tec)cz/tungli/
OT: W98 a oprava registru
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 7.12.1999 16:34:13
Windows zalohuje registry po uspesnem startu
do souboru SYSTEM.DA0 a USER.DA0
(na konci je nula)
Registry z doby tesne po instalaci W. uklada do C:\system.1st
Preji hodne stesti.
### Pavel Junek napsal dne 7 Dec 99, v 10:22 :
> Otazka: Zajimalo by me, jakym zpusobem si W98 delaji zalohu registru (pri
> ukonceni???), co se spousti na opravu registru, a vubec jak tohle cele
> funguje.
-----------------------------------------------
Ing. Zdenek Drvota e-mail: drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail: info(zv)zds(tec)cz
Pripojte se k hledani mimozemskych civilizaci:
SETI(zv)Home http://setiathome.ssl.berkeley.edu
Darek, ktery nezklame? CeDecko od nas!
http://www.zds(tec)cz/cdrom/cdrom.asp?sender=mail
Nelogicka matematika - deji se zazraky
[*] JAHODA Jozef <jahoda(zv)asset.sk> - 7.12.1999 16:40:23
Radoslav Krehl�k wrote
> > > begin
> > > a := 4.56;
> > > b := Frac(a)*10;
> > > b := Frac(b);
> > > ShowMessage(FloatToStr(b));
>
> kazdopadne problem neni v tech vypoctech, ale v te konverzni funkcni
> FloatToStr
>
Keby bola chybna fnc, bolo vsetko OK, ale asi nemas pravdu
JJ
SYBASE & memo
[*] muher(zv)csas(tec)cz - 7.12.1999 16:53:09
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Sybase budu mozna take vyuzivat. Zatim testuji. Na databazi se lze dostat i
pres knihovny MS SQL. Pripada mi to jednodussi a zatim jsem nenarazil na
problem. Myslim, ze jsem to sem jiz psal. Kdyztak odpovim ...
Martin
-----Original Message-----
From: Honza Fiala [mailto:kvasar(zv)kvasar(tec)cz]
Sent: Tuesday, December 07, 1999 9:02 AM
To: delphi-l(zv)fwd(tec)cz
Subject: SYBASE & memo
Zdravim,
nemate nekdo zkusenosti se sybase? ja tedka prekopavam program na tuto db
a mam velke problemy s memo polozkami. Pro pristup k db pouzivam ODBC driver
Sybase System 10. Pokud se snazim neco zobrazit do TDbMemo, tak mi to vzdy
spadne na
General SQL Error
[INTERSOLV][ODBC SQL Server driver][SQL server]ct_get_data(): user api
layer:
external error: Item 1 has already been read
v tabulce se polozka memo vytvorena jako TEXT a v DBExploreru je
prezentovana jako LONGVARCHAR.
Opravdu uz si nevim rady jestli je to moje chyba nebo jestli mam predelat
program bez memo polozek, ktere tam mam v hojne mire.
BTW: na Interbazi mi to jede bez problemu.
S pozdravem
Honza Fiala
Kvasar, spol. s r. o.
E-mail: kvasar(zv)kvasar(tec)cz <mailto:kvasar(zv)kvasar(tec)cz>
URL: http://www.kvasar(tec)cz <http://www.kvasar(tec)cz>
Demo Interbase 2
[*] Jirka Virt <virt(zv)volny(tec)cz> - 7.12.1999 21:24:48
Ahoj ,
a co takhle prohozeny Y a Z.
Jirka Virt
email: virt(zv)volny(tec)cz
----- Original Message -----
From: Miloslav L�tal - BV <letal(zv)sol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, December 06, 1999 10:29 PM
Subject: Demo Interbase 2
> Diky, ale ani mala pismena neposlouchaji :-((
> Martin P.
>
> |Zdravim,
> |
> |zkuste heslo napsat malymi pismeny.
> |
> |Pavel Bocek
> |
> |Subject: Demo Interbase
> |
> |
> |> Zdravim.
> |> Neumim otevrit databazi dema InterBase.
> |> Pod Delphi 4 v adresari DEMOS\DB\CSDEMOS je demo pro InterBase.
> |> Delphi mi pise nezname jmeno nebo heslo.
> |> (SYSDBA / heslo MASTERKEY)
> |> ale neni spravne ??? !!!
> |> Poradte
> |> Diky,
> |> Martin Pavera
> |> letal(zv)integrodat(tec)cz
>
>
>D5 - ano ci ne ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.12.1999 22:45:18
Pavel Cisar wrote:
> Borlandi Newsy. Borlandi je ctou (od spicek po bezne programatory) a aktivne
> (...)
> chteli, ale to se snad da pochopit, ne ? Kdyz sleduji na NG co vsechno lidi
> po Borlandech chteji, tak je vazne lituji (uz jenom ten cas straveny ctenim
> a posuzovanim) a obdivuji jejich statecnost a trpelivost. Loni si to u
Nelze nez souhlasit ...
> vyvojaru dost zavarili, a kdyz se rozhodli k radikalnim zmenam, museli si
> projit dost tezkou fazi vycitek, spilani, neduvery atd. Tento rok je ve
K tem zmenam jen mala poznamka mimo. Pokud nekdo jeste v D2 a vyssim mate
nastaveno v kompilatoru "Assignable typed consts" (coz je zrovna ne prilis
korektni, konstanty jsou od toho aby byly konstantni), tak si prepiste
aplikace tak, aby toto nepouzivaly. V D6 uz pravdepodobne toto nesmyslne
nastaveni nebude a konstanty budou opravdu tim cim maji byt. To jen tak na
okraj, az se tu bude za rok probirat "Co to ty Borlandi zase udelali..." :-)
> >Zda se iniciativa PS (programatori sobe) alias Delphree nejak nefunguje
> >nebo alespon zaostava za ocekavanim :-(
> Nefunguje ? Funguje docela dobre (s prihlednutim k poctu zaangazovanych). A
> pokud zaostava za necim ocekavanim, neni to jeji problem. Kazdy ma moznost
> se zapojit a naplnit tak svoje ocekavani.
Tak tak, ono je sice pomerne jednoduche upravit par komponent kdyz je to
v dane situaci potreba, ale dat dohromady nejaky vetsi celek uz takova
legrace neni.
> P.S.: Doufam, ze se v Lednu opet sejdeme v hojnem poctu v Belohrade :o)
Urcite, seminar je opet dvoudenni, takze tam bude prostor pro "neformalni
vecerni debaty" :o)
--
Petr Vones, amatersky programator
BDE 5.1 update - Borland Bug Listserver
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.12.1999 22:45:33
Ahoj,
Cerstvy update nekterych knihoven BDE 5.1 najdete zde:
http://www.borland.com/devsupport/bde/bdeupdate.html
Jinak, podobne zpravy muzete dostavat pokud se prihlasite do listserveru
na adrese:
http://www.borland.com/devsupport/listserv.html
--
Petr Vones, amatersky programator
Zjistovani propustnosti seriovych kanalu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.12.1999 22:45:59
Petr Fejfar wrote:
> potreboval bych na platformach W9x/WNT omezit DTE rychlost tak, aby woknum
> neutikaly znaky pri prijimani z modemu u starsich stroju, ktere maji a)
> mizerny vykon b) UART s buffer na 1 znak napr. 16450.
>
> Neumel by mi nekdo poradit, kde precist v registry alespon rychlost CPU a
> typ UARTu popr. velikost jeho Rx bufferu?
Ahoj,
Tak tohle by me taky zajimalo. Zkousel jsem pomoci RegMonu sledovat zmeny
v registru pri nastaveni techto parametru a moc jsem neuspel. V MSDN jsem
toho taky moc nenasel, jedina zminka je pro NT 4.0:
HKLM\System\CurrentControlSet\Services\Serial\ForceFifoEnable
Jinak ohledne ztraceni dat by mohlo pomoci nastaveni protokolu RTS/CTS.
Ale pokud je pocitac extra pomaly, tak asi ani to. Pocitace se starym
UARTem patri spis na skladku, ono to pri vyssich rychlostech opravdu
muze tezko fungovat bez nejakeho maleho bufferu.
Se ztracenim mam i jednu zkusenost, kdysi se mi po instalaci modemu
stale ztracely data i pri nizsich rychlostech (38400). Po rade ruznych
experimentu se ukazalo, ze pricinou bych stary driver videokarty. Po
jeho aktualizaci problem naprosto zmizel.
--
Petr Vones, amatersky programator
D5 - ano ci ne ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.12.1999 22:47:15
Zbysek Hlinka wrote:
> > > takze pujdeme misto programovani prodavat burty? Do tech je aspon
> > > trochu videt, kdyz si clovek da tu praci... :-)
> >
> > Tohle si taky obcas rikam, ze by to snad bylo lepsi :-))
>
> Hm, myslim ze nebylo... :-) Divat se na zelene xichty stravniku po
> zelenych burtech, a mit porad na krku hygienicke kontroly se mi
> nechce.
Tak zle to zase snad neni. Podivame-li se do "vlastnich rad", tak bych si
dovolil tvrdit, ze celkova uroven kvality (spolehlivosti) masoveho SW je
hluboko pod urovni kvality beznych burtu prodavanych ve stancich :-) Ale
to uz je zase jina diskuze.
> > V pripade nejake hromadne demonstrace bych se priklanel k te druhe
> > variante :-))
> Takze zitra se sejdeme vsichni na Vaclavaku. :-)))
Obavam se, ze to by veci moc nepomohlo (navic je tam pekna zima :-). Spis
se zamerit na to, co uz psal Pavel Cisar. Psat nazory, kritiky, pozadavky
do newsu na Borlandu, protoze je pravda, ze vytrvalost s kterou to ctou a
odpovidaji je vcelku obdivuhodna. Dalsi prilezitosi jsou i live chaty, to
byl od nich podle mne pomerne dobry napad. Zkratka, uvidime co prinese D5
patch a nove tisicileti .....
--
Petr Vones, amatersky programator
MDI a Thread
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.12.1999 22:48:09
Pavel Bansky wrote:
>
> ahoj !
>
> Data z formulare jsou prave ve Threadu problem, jakmile z toho
> threadu zavolam treba Form1.StartTime := 0; tak to hodi exception.
> StartTime je nejaka moje public promenna.
Ahoj,
Prave proto jsem se ptal po te ukazce. Pokud v te dobe Form1 existuje, tak
by to nemel byt problem. Nemas tam nekde odkaz na neplatny objekt ? Jakou
vyjimku to vyvola ?
> Ale ja bych to stejne udelal jako thread kterej vytvori to vokno (dynamicky) a bylo
> by to v pohode, pokud nejsou zname nejake problemy tohoto reseni.
Tohle ve VCL dost dobre nejde. Pokud vytvoris okno v jinem nez hlavnim
threadu, tak by jsi u toho threadu musel vytvorit i zpracovani zprav, ale
hlavni problem je, ze VCL neni (a dost dobre ani nemuze byt) thread-safe.
--
Petr Vones, amatersky programator
Nelogicka matematika - deji se zazraky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.12.1999 22:48:51
Radoslav Krehl�k wrote:
>
> > > begin
> > > a := 4.56;
> > > b := Frac(a)*10;
> > > b := Frac(b);
> > > ShowMessage(FloatToStr(b));
>
> kazdopadne problem neni v tech vypoctech, ale v te konverzni funkcni
> FloatToStr
Ahoj,
Presne tak, lze pouzit jine formatovaci funkce:
procedure TForm1.Button1Click(Sender: TObject);
var a : Double;
b : Extended;
begin
a := 4.56;
b := Frac(a)*10;
b := Frac(b);
ShowMessage(FloatToStrF(B, ffNumber, 10, 2));
// nebo
ShowMessageFmt('%-10.2n', [B]);
end;
--
Petr Vones, amatersky programator
Ziskani Handle na malou ikonku aplikace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.12.1999 22:48:20
Petr Vaclavek wrote:
>
> Ahoj
>
> Do sveho projektu jsem jako ikonu priradil soubor ICO, ktery obsahuje
> dve ikonky jednu velikosti 32*32 a druhou 16*16.
> Me by ale zajimalo, jak zjistim handle te male (16*16) ikonky, abych
> ji mohl pouzit v napriklad v SysTrayi.
Ahoj,
Napriklad takhle:
uses
ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
LargeIcon, SmallIcon: HICON;
begin
Win32Check(ExtractIconEx(PChar(Application.ExeName), 0, LargeIcon, SmallIcon, 1) <> 0);
end;
--
Petr Vones, amatersky programator
TMemo, Begin..EndUpdate neaktualizuje pozici kurzo
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.12.1999 22:48:34
Karel Kral wrote:
>
> Mam takovy pitomy kosmeticky problem:
> Mam TMemo, ktere slouzi jako vystup pro zobrazovani logu. Protoze ma
> omezenou kapacitu, kontroluji pri pridavani radek do mema jejich pocet a
> pripadne zase nejake ze zacatku umazu.
> Ale nefunguje to, jak bych ocekaval: kdy nepouziji BeginUpdate a
Ahoj,
Zkus pouzit TRichEdit, ten nema tak moc omezenou kapacitu. U neho mi to
funguje takhle:
procedure TForm1.AddLogLine(const S: String);
begin
with RichEdit1 do
begin
Lines.BeginUpdate;
try
while Lines.Count > 20 do Lines.Delete(0);
Lines.Add(S);
SendMessage(Handle, EM_SCROLLCARET, 0,0);
finally
Lines.EndUpdate;
end;
end;
end;
Pokud by jsi se ale spokojil pouze s fonty s pevnou sirkou, tak muzes pouzit
TAfTerminal z AsyncFree.
--
Petr Vones, amatersky programator
Istalace D5Pro
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.12.1999 22:49:06
Bene� Jaroslav wrote:
> chtel jsem se otazat, zda mohu mit na jenom stoji (Celeron 400, 128 MB RAM)
> nainstalovan D2 i D5 zaroven, aniz by doslo ke kolizim a mohl jsem stale
> pouzivat i D2?
Ahoj,
Nemel by byt problem mit nainstalovane vsechny verze Delphi, akorat je
dobre je instalovat postupne od te nejstarsi. Pak jeste muzes odmazat
nektere duplicitni adresare (napriklad BDE bylo v D2 umistene jinde
nez v dalsich verzich a podobne).
--
Petr Vones, amatersky programator
Delphi 4 nebo 5
[*] H�jek - 7.12.1999 23:26:48
Zdr�v�m,
m��ete mi n�kdo poradit, jestli je lep�� si koupit
Delphi 4 Standard nebo Delphi 5 Standard.
V Delphi jsem za��te�n�k a teprve se v�echno
u��m a nev�m, co je pro m� lep��.
Zat�m je�t� nepou��v�m datab�ze,
ale v budoucnu bych se tak�
k nim cht�l dostat.
D�ky za radu.
Tom� H�jek
Nelogicka matematika - deji se zazraky
[*] Radoslav =?iso-8859-1?Q?Krehl=EDk?= <heretic(zv)softok(tec)cz> - 07.12.1999 15:35:17 -0800
> > begin
> > a := 4.56;
> > b := Frac(a)*10;
> > b := Frac(b);
> > ShowMessage(FloatToStr(b));
kazdopadne problem neni v tech vypoctech, ale v te konverzni funkcni
FloatToStr
Heretic-X, SOFTWARE specialist,<www.nt(tec)cz>IMAP komponenta
[*] V�clav Muchna <apscomp(zv)seznam(tec)cz> - 08.12.1999 03:26:50
Ahoj,
> Nevite nekdo o nejake komponente na IPAM4 ? Hledal jsem vsude mozne a zatim
> nic ...
Teda, doufam, ze to je jen preklep a myslis skutecne IMAP4, protoze
jinak jsem
tu vygeneroval totalni nesmysly :-))
na http://www.dev-soft.com najdes balik Internet IP*Works! v4.0,
obsahujici:
IPPort, IPDaemon, UDPPort, MCast,
ICMPPort, IMAP, SMTP, POP, LDAP,
----------^^^^
NNTP, SNPP, SNMP, IPInfo, MX, NetDial,
FTP, HTTP, Rexec, Rshell, Telnet, NetCode,
MIME. Delphi 5 compatible.
Bohuzel jen demo, cele to stoji pres $200 :-(((
dale na
http://www.torry.ru/vcl/internet/tcpip32.zip
take balik komponent, tentokrat free, ale pouze pro D2.
dale
http://www.torry.ru/vcl/internet/idkd4.zip
to je primo Imap Development Kit za $129
dalsi komercni, tentokrat demo na 30 dni
http://www.dart.com/powertcp/default.asp?tool=mail
a take neco k IMAPU:
http://www.eliveware.com/imap4sdk.htm
doufam ze to k necemu bude, i kdyz se obavam, ze to je vetsinou
komercni.
Vasek
--
Vaclav Muchna
APS computer
verejny pgp klic: http://www.apscomputer(tec)cz/vasek/pubring.html
D5 - ano ci ne ?
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 8.12.1999 07:40:13
Petr Vones wrote:
> > Hm, myslim ze nebylo... :-) Divat se na zelene xichty stravniku po
> > zelenych burtech, a mit porad na krku hygienicke kontroly se mi
> > nechce.
>
> Tak zle to zase snad neni. Podivame-li se do "vlastnich rad", tak bych
> si dovolil tvrdit, ze celkova uroven kvality (spolehlivosti) masoveho
> SW je hluboko pod urovni kvality beznych burtu prodavanych ve stancich
No prave. A ted si predstav, ze se zvyklosti v kvalite SW bychom
sli na ty burty. ;-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Istalace D5Pro
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 8.12.1999 07:40:13
Petr Vones wrote:
> Nemel by byt problem mit nainstalovane vsechny verze Delphi, akorat je
> dobre je instalovat postupne od te nejstarsi. Pak jeste muzes odmazat
> nektere duplicitni adresare (napriklad BDE bylo v D2 umistene jinde
> nez v dalsich verzich a podobne).
Co si tak matne pamatuji, tak tusim 3 se nesnesla s 2.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ