Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Probl�m CreateProcess
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 8.12.2000 21:18:44
CreateProcess( nil, cmd, nil, nil, false,
HIGH_PRIORITY_CLASS,nil,nil,si,pi);
WaitForInputIdle( GetCurrentProcess, INFINITE);
dwExitCode := STILL_ACTIVE;
while dwExitCode=STILL_ACTIVE do
begin
WaitForSingleObject( pi.hProcess, 200);
GetExitCodeProcess( pi.hProcess, dwExitCode);
end;
....
Ja pouzivam tohle:
While WaitForSingleObject(ProcessInfo.hProcess,100) = WAIT_TIMEOUT do
begin
ProcessMessages;
end;
// proces zacal chcipat
Repeat
if NOT GetExitCodeProcess(ProcessInfo.hProcess,RetCode) then
begin
Break;
end;
ProcessMessages;
Sleep(100);
Until RetCode <> STILL_ACTIVE;
// proces uz chcipnul
D. Toman
Vypnuti ohraniceni fokusu v cele aplikaci
[*] Milan ��ek - 8.12.2000 21:36:43
ahoj,
potreboval bych nejakym zpusobem kompletne vypnout ohraniceni fokusu, pokud
mozno v cele aplikaci najenou. Jde mi hlavne o Checkbox,RadioButton,TreeView
a ListView. Nejde mi o cely fokus, ale jen o jeho ohraniceni carkovanou
carou. Pri pouziti skinu to nevypada moc dobre.
Diky moc
S pozdravem Milan Cizek, amatersky programator, D5 Ent
Win2k a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.215 / Virov� b�ze: 101 - datum vyd�n�: 16.11.2000
funk�n� ScrollLock
[*] Milan ��ek - 8.12.2000 21:38:38
ahoj,
potreboval bych aktivovat/deaktivovat mou aplikaci bezici na pozadi pomoci
scrolllocku. Neco jsem nasel v archivu, ale bez prakticke ukazky :-(
dik
S pozdravem Milan Cizek, amatersky programator, D5 Ent
Win2k a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.215 / Virov� b�ze: 101 - datum vyd�n�: 16.11.2000
ADO & TADOConnection.Mode
[*] Erik Salaj <winsoft(zv)napri.sk> - 8.12.2000 22:33:39
> skor nie ako ano, mam formu na nej tadoconnection a tadoquery s lokalnym
> kurzorom. toto zkompilujem s otvorenym query a vysledok viem spustit na
tom
> istom pocitaci niekolko krat.
>
> skusal som to zkompilovat aj neotvorene a otvarat az po spusteni app,
> vysledok bol rovnaky. Naozaj to funguje? Ako sa to prejavuje? Mam na mysli
> okno od ODBC resp. nieco ine ...
Nepouzivam ODBC, ale nativny provider pre Jet 4.0. Vypise mi to: Could not
use; file already in use.
> tomuto rozumiem, ale kde je potom uchovana informacia ze uz je niekto
> pripojeny exkluzivne a preto talsi connect musi byt odmietnuty? tato
> informacia predsa musi byt niekde uchovavana az do odpojenia exkluzivne
> prihlaseneho pouzivatela.
Pravdepodobne zamknutim mdb suboru.
Erik
Komunikace TCP/IP pres seriove porty
[*] Hurricane <hurricane(zv)quick(tec)cz> - 9.12.2000 02:34:32
Zdravim
Ja se pokousim propojit widle seriovym kabelem uz nejakou dobu. Mam
kompletni kabel (HW rizeni toku). Pres LL5 (prenasec souboru pod DOS) to
chodi bez problemu na nejvyssi rychlosti 115200, ale widle si mi nikdy pres
COMy spojit nepodarilo. Jen pres LPT.
Hurricane
----- Original Message -----
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, December 08, 2000 3:32 PM
Subject: Re: Komunikace TCP/IP pres seriove porty
> From: "Michal Kus" <kus(zv)tangosw(tec)cz>
> > kdyz jsem zkousel Windowsacke Propojeni kabelem, tak jsem zjistil,
> > ze bezi jen do rychlosti 19kb!!!!, coz je dost tragicky.
> > Nebo se pletu?
>
> Ahoj,
>
> vzpominam si, ze nekde se dala nastavit maximalni rychlost. Jde to i na
> 115200.
>
> Petr Vones, amatersky programator
>
>Komunikace TCP/IP pres seriove porty
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 09.12.2000 08:56:49
Nevim co je to vyssi rychlost, ale me bez problemu jede propojeni pres
LPT (cca kolem tech 20kB/S) mezi Win98 a Win95OSR2.
Petr Vones wrote:
>
> From: "Michal K�s" <kus(zv)tangosw(tec)cz>
> > Dotaz: videl to nekdo opravdu chodit na vyssi rychlost?
>
> Ahoj,
>
> videl, ovsem primet to ke spojeni byl obcas nadlidsky ukol. Neno to tim, ze
> propojujes dva pocitace s jinou verzi Windows ? S tim pry byly problemy.
>
> Petr Vones, amatersky programator
--
Martin Pe�ava
/--------------------------------------------------------------\
| E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
| WebMaster of |
|http://miss.jimx.net - Neofici�ln� str�nka MISS �R a CyberMiss|
\--------------------------------------------------------------/Komunikace TCP/IP pres seriove porty
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.12.2000 10:18:15
>Nevim co je to vyssi rychlost, ale me bez problemu jede propojeni pres
>LPT (cca kolem tech 20kB/S) mezi Win98 a Win95OSR2.
To neni moc. Kdysi jsem psal komunikacni soft pro DOS (CONNECT! - peer to
peer sit = sdileni disku a tiskaren) a rychlosti byly cca:
40 - 100kB/s - nejhnusnejsi obyc LPT (4 bitovy prenos)
80 - 200kB/s - obousmerny LPT (8 bit prenos)
> 400 kB/s - ECP LPT porty
na seriovych portech rychlost 10kB/s (standardni seriovy prenos na 115200b
bez komprese) a 20-30kB/s prenos, ktery pouzival jen ridici signaly (2bitovy
prenos bez komprese!)
Nove PC jsou snad vsechny vybaveny ECP/EPP LPT portem, ktery podporuje sam o
sobe prenosy dat mezi zarizenimi (jen se mu rekne posli data a nemusi se nic
ridit/hanshakovat), podporuje DMA prenosy a Windowsi by je mely umet
podporovat. Takze pokud takovy porty mas a prepnes si je do ECP rezimu a
vybavis se specialnim kabelem pojedes podstatne rychleji s mensi zatezi
procesoru...
D. Toman
Komunikace TCP/IP pres seriove porty
[*] Zdenek Drvota <drvota-l(zv)zds(tec)cz> - 9.12.2000 10:54:07
hmm..., je to tak, ted jsem to overoval.
Ovladaci panely->Modemy->Pridat modem (nedetekovat,
vyberu sam ze seznamu!)->vybrat ze seznamu->(Standardni...)
->Seriovy kabel mezi pocitaci (nebo Paralelni)
Tim se objevi novy modem (serial/paralel) v System-Modemy,
ale ne v Ovladaci panely->Modemy. Ani pres Sit se mi to nepodarilo
nastavit, jen me napada, jestli nahodou nemusi byt ty PC
uz kabelem propojena, aby se to tam objevilo. Zkousel jsem to
ted bez fyzickeho propojeni.
Tak nevim :-) Nema to nekdo z pritomnych provereno?### Hurricane napsal dne 8 Dec 00, v 0:07 :
> Zdravim
>
> Tak to by me opravdu zajimalo, jak to delas. Ja kdyz se mrknu do ovl.
> panelu system, karta spravce zarizeni, slozka modem, tak tam mam dva
> seriove, paralelni a skutecny modem. Kdyz chci vytvorit nove telef.
> poripojeni, tak tam mam jen opravdovy modem, zadny COM ani LPT. Ani v ovl.
> panelu modemy se nic nezmeni (porad jen jeden skutecny modem). Nebo delam
> neco spatne?
>
> Hurricane
> ----- Original Message -----
> From: "Zdenek Drvota" <drvota-l(zv)zds(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Thursday, December 07, 2000 12:06 PM
> Subject: Re: Komunikace TCP/IP pres seriove porty
>
>
> > Ahoj,
> > tady je lepsi pouzit jiny postup.
> > Nainstaluj si null-modem:
> > Pridat modemy->vybrat ze seznamu->Standardni...
> > ->Seriovy kabel mezi pocitaci (nebo Paralelni)
> > propoj prislusnym laplinkovym kabelem a muzes
> > pouzivat jako bezny modem k pripojeni.
> >
> > ### L. ZITA napsal dne 6 Dec 00, v 8:48 :
> > > ----- Original Message -----
> > > From: "Karel Klimes" <klimes(zv)metra(tec)cz>
> > >
> > >
> > > > Ahoj,
> > > > vim ze existuje primo ve windows "prime propojeni kabelem", ale
> existuje
> > > > i neco jineho? Mam s tim windowsovskym totiz problemy.-
> > > >
> > >
> > > Ahoj.
> > > Pokud vim, tak "prime propojeni kabelem" nepodporuje TCP/IP.
> > > Neco podobneho (propojeni pres LPT,COM) umoznuje tusim PC Anywhere od
> > > Symantec.
> > >
> > > Ludek
> >
> > --
> > -----------------------------------------------
> > 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
> > --
> >
> >
>
>
--
-----------------------------------------------
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
--
OT: Re: Komunikace TCP/IP pres seriove porty
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 09.12.2000 12:20:01
Myslim, ze uz se dostavame poneku do OT...
Tak to asi jo, ale jestli si dobre vzpominam, tak s ECP porty sem mel ve
woknech nejaky problemy... a hlavne mi to nepodporuje scanner, takze
bych to musel furt prepinat...
Jinak tech 20kB ... nezapomen, ze si tam windouvsy pridavaj vsemoznej
balast, proto se to zpomaluje... kdyby to bylo pod DOSem s nejakym
vlastnim rizenim, tak bych veril tem rychlostem, cos psal...
Vim ze sme tu rychlost testovali tak, ze sme pres sdilenej disk pres
paralelak pousteli mp3ky... 128kbit hrala v pohode, 160kbit musela cas
od casu bufferovat...
192kbit uz se nedalo skoro poslouchat.
Dalibor Toman wrote:
>
> >Nevim co je to vyssi rychlost, ale me bez problemu jede propojeni pres
> >LPT (cca kolem tech 20kB/S) mezi Win98 a Win95OSR2.
>
> To neni moc. Kdysi jsem psal komunikacni soft pro DOS (CONNECT! - peer to
> peer sit = sdileni disku a tiskaren) a rychlosti byly cca:
>
> 40 - 100kB/s - nejhnusnejsi obyc LPT (4 bitovy prenos)
> 80 - 200kB/s - obousmerny LPT (8 bit prenos)
> > 400 kB/s - ECP LPT porty
>
> na seriovych portech rychlost 10kB/s (standardni seriovy prenos na 115200b
> bez komprese) a 20-30kB/s prenos, ktery pouzival jen ridici signaly (2bitovy
> prenos bez komprese!)
>
> Nove PC jsou snad vsechny vybaveny ECP/EPP LPT portem, ktery podporuje sam o
> sobe prenosy dat mezi zarizenimi (jen se mu rekne posli data a nemusi se nic
> ridit/hanshakovat), podporuje DMA prenosy a Windowsi by je mely umet
> podporovat. Takze pokud takovy porty mas a prepnes si je do ECP rezimu a
> vybavis se specialnim kabelem pojedes podstatne rychleji s mensi zatezi
> procesoru...
>
> D. Toman
--
Martin Pe�ava
/--------------------------------------------------------------\
| E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
| WebMaster of |
|http://miss.jimx.net - Neofici�ln� str�nka MISS �R a CyberMiss|
\--------------------------------------------------------------/funk�n� ScrollLock
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.12.2000 16:14:01
From: "Milan ��ek" <cizek.milan(zv)seznam(tec)cz>
> potreboval bych aktivovat/deaktivovat mou aplikaci bezici na pozadi pomoci
> scrolllocku. Neco jsem nasel v archivu, ale bez prakticke ukazky :-(
Ahoj,
napriklad takhle (i kdyz pozor, nekteri povazuji ScrollLock klavesu za
hlavniho nepritele ;-)
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
const
HotKeyID = 1;
procedure TForm1.FormCreate(Sender: TObject);
begin
Win32Check(RegisterHotKey(Handle, HotKeyID, 0, VK_SCROLL));
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnregisterHotKey(Handle, HotKeyID);
end;
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
if Msg.HotKey = HotKeyID then
begin
Application.Restore;
Application.BringToFront;
Msg.Result := 0;
end else
inherited;
end;
Petr Vones, amatersky programator
EInvalidOP
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.12.2000 16:17:29
From: "olesia" <olesia(zv)idirect.com>
> Potrebujem pomoc. Prednedavnom som presla na novy PC, odvtedy akonahle chcem
> nieco debugovat s breakpointom mi vyskoci "EinvalidOP - Invalid floating
> point information", pricom sa to vyskytuje akonahle narabam s niecim
> P.S. Robim s Delphi4 a Oracle 8.04, lenze asi to nema s tym nic spolocme i
> guess.
Ahoj,
prvni problem muze byt neco shnileho v HW toho pocitace. Dale D4 patrilo mezi
ty nejmene podarene verze Delphi, predpokladam ze mas instalovan Upd.Pack #3,
pokud ne tak jej urcite instaluj. Tato chyba se projevovala, pokud byla ve
Watch window nejaka float promenna. Taktez nektere DLL nahrane do procesu
mohou zmenit nastaveni FPU CW flagu s cimz muze mit Delphi debugger problem.
Petr Vones, amatersky programator
Jednoducha rychla komprese
[*] Jan Naiser <tua(zv)wo(tec)cz> - 9.12.2000 16:44:58
Ahoj,
chtel jsem se na uvedenou knihovnu podivat a nasel jsem ji na CD (D5P) v
\Info\Extras\Zlib. Nenasel jsem ale zadny priklad.
Mluvime o tomtez?
Diky, Honza Naiser.
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, December 04, 2000 10:15 PM
Subject: Re: Jednoducha rychla komprese
> Ahoj,
>
> muzes treba pouzit komprimacni knihovnu ZLIB, kterou najdes na instalacnim
CD
> Delphi v adresari Extras, vcetne prikladu.
>
> Petr Vones, amatersky programator
>
>animovane logo IE
[*] Hurricane <hurricane(zv)quick(tec)cz> - 9.12.2000 17:12:58
Zdravim
Pred casem tady probehla diskuze o animovanem logu IE, ktere se toci, kdyz
IE nahrava stranku. Ted jsem ho ciste nahodou nalezl uvnitr BROWSEUI.DLL.
Takze pokud to nekdo chce zmenit, jeden z moznych zpusobu je zmena tohoto
resourcu.
Hurricane
Retezec predavany ve zprave Windows
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 9.12.2000 17:21:30
Ahoj,
nevite nekdo, jak ze zpravy Windows vycucnout retezec, ktery je predany v
LPARAM?
Diky predem.
W98, D5 + SP1
Martin Falta
martin.falta(zv)atlas(tec)cz
Stranka html a odkaz na ni
[*] Ale� Pavel - 9.12.2000 17:57:10
Ahoj kluci, zase neco, studna nevysycha...
tedy potreboval bych udelat abych mel ve formu odkaz na svoji stranku, ale
pozor odkaz umim neni problem......
ale v pripade ze bych nebyl pripojenej a dal zpristupnit offline, aby se mi
nacetla stranka ulozena na disku!!! Pripada mi to docela jako pakarna
aktivni odkaz v programu a nemoci si najit offline ji prohlidnout v pripade
programu je to opravdu blby, malokdo je pri spusteni nejake bezne aplikace
pripojen na internet...
Jo taky by se mi siklo aby se pri aktualizace stranky dotahla nova na HDD..
nebo by stacilo pokazde kdyz bych byl online, nebude zas tak velka...
Nevim jestli jsem to popsal dobre... snad jo
Aldik
Popup bez ukryti
[*] Ale� Pavel - 9.12.2000 18:01:44
Ahoj potreboval bych aby po odkliknuti popup nezavrelo, ale aby se zavrelo
az po opusteni mysi zabirane plochy popup ! Nevite jak se to udela? Dekuji
za kazdou radu
Ale� Pavel
Jeron�mova 981
Havl��k�v Brod
580 01
telefon home :0451/427374
e-mail: Ales.Pavel(zv)worldonline(tec)cz
My web: home.worldonline(tec)cz/~cz204944
My company web: 3v3.zde(tec)cz
Dynamic Create Component(s)
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 9.12.2000 18:53:01
Dobry den,
mam dll:
**************************************
library MainForm;
uses StdCtrls;
{ ShowGraphUnit in 'ShowGraphUnit.pas';}
{$R *.RES}
type tMyComponent = class
Button: TButton;
constructor Create(WinHandle: Integer);
destructor Destroy; override;
procedure OnClick(Sender: TObject);
end;
var MyComponent: TMyComponent;
constructor tMyComponent.Create(WinHandle: Integer);
begin
Self.Button:= TButton.Create(Nil);
Self.Button.Parent:= Self.Button.CreateParentedControl(WinHandle);
Self.Button.Caption:= 'Test';
Self.Button.OnClick:= Self.OnClick;
inherited Create;
end;
destructor tMyComponent.Destroy;
begin
Self.Button.Parent.Free;
Self.Button.Free;
inherited Destroy;
end;
procedure tMyComponent.OnClick(Sender: TObject);
begin
Self.Button.Caption:= 'OK';
end;
{********************* DLL *************************}
function Init(WinHandle: Integer): Boolean; StdCall;
begin
MyComponent:= tMyComponent.Create(WinHandle);
Result:= True;
end;
function Done: Boolean; StdCall;
begin
MyComponent.Free;
Result:= True;
end;
exports
Init,
Done;
begin
end.
***********************************
v WinHandle predavam z Alikace Okno aby Init v DLL vytvoril Button...
To vse funguje jak ma ale v okamziku, kdy uvolnuji Button tak vznikne
vyjimka. Delam chybu zrejme pri vytvareni Buttonu, ale nevim kde.
Poradte prosim...
Dekuji
Zdenek
Jednoducha rychla komprese
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 9.12.2000 19:25:29
From: "Jan Naiser" <tua(zv)wo(tec)cz>
> chtel jsem se na uvedenou knihovnu podivat a nasel jsem ji na CD (D5P) v
> \Info\Extras\Zlib. Nenasel jsem ale zadny priklad.
Ahoj,
priklad by mel byt v Test\Test.pas
Petr Vones, amatersky programator
Komunikace TCP/IP pres seriove porty
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 9.12.2000 21:05:42
----- Original Message -----
From: "Martin Pe�ava" <jimx(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, December 09, 2000 12:20 PM
Subject: OT: Re: Komunikace TCP/IP pres seriove porty
> Myslim, ze uz se dostavame poneku do OT...
>
> Tak to asi jo, ale jestli si dobre vzpominam, tak s ECP porty sem mel ve
> woknech nejaky problemy... a hlavne mi to nepodporuje scanner, takze
> bych to musel furt prepinat...
> Jinak tech 20kB ... nezapomen, ze si tam windouvsy pridavaj vsemoznej
> balast, proto se to zpomaluje... kdyby to bylo pod DOSem s nejakym
> vlastnim rizenim, tak bych veril tem rychlostem, cos psal...
zadne vlastni zarizeni - jen 2 PC a kabel (pasivni - jen draty)
> Vim ze sme tu rychlost testovali tak, ze sme pres sdilenej disk pres
> paralelak pousteli mp3ky... 128kbit hrala v pohode, 160kbit musela cas
> od casu bufferovat...
> 192kbit uz se nedalo skoro poslouchat.
ano problem je ten, ze pokud musi procesor ridit prenos (tedy nepouziva se ECP ci EPP a DMA kanal) pak je treba se rozhodnout jak se to udela:
1) bud se bude prenaset po paketech, tak ze pro prenos paketu driver vyuzije veskery cas procesoru. Pak ma driver moznost pouzit takovy prenosovy protokol, ktery vyuzije port na maximum. Tak jsem to delal ja - v DOSu jsem si to mohl dovolit. Po dobu prenosu 256 bytoveho paketu bylo zakazano preruseni, takze byly zaruceny konstatnni pracovni podminky. Proto jsem mohl realizovat prenos, ktery nepouzival handshaking za kazdym bytem (resp polovinou bytu) ale uzpusoboval vysilaci rychlost podle toho jestli prijimac jeste stacil prijmout data. Tim se dosahlo rychlosti minimalne o 50 procent vyssi nez LapLink a spol.
2) prenos s handhskingem po kazdem bytu (pulbytu) s takovou povolenou toleranci, aby operacni system (Windows) mel dost casu obslouzit ostatni procesy - tedy aby system nebyl negativne ovlivnen prenosem. Tuhle cestu zrejme pouziva prime propojeni kabelem ve Windows. Je to samozrejme o hodne pomalejsi.
D. Toman
OT: smaz�n� obl�ben�ch polo�ek
[*] Milan ��ek - 9.12.2000 21:07:27
ahoj,
mame trochu vetsi problem s nasledujicim: vsude pouzivame internet
explorery, automaticky konfigurovane pres skript
'http://adresa/ins/skript.ins'.
Cely prohlizec se bez problemu zkonfiguruje a funguje. Problem je ale v tom,
ze tak v 60ti % tento skript odstrani oblibene polozky. Pri pouziti IE5.01
se toto jiz nedeje. Nesetkal se nekdo s necim takovym ???
S pozdravem Milan Cizek, amatersky programator, D5 Ent
Win2k a Win98, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.215 / Virov� b�ze: 101 - datum vyd�n�: 16.11.2000
EInvalidOP
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 9.12.2000 22:07:52
Ahoj,
vubec bych nehledal chybu v Delphi.
Spis bych to videl na hardware pocitace - pameti, zakl. deska apod. Taky
muze byt problem treba v ovladaci graficke karty, nebo taky nekde jinde.
Ale je to jen hruby odhad, pokud to na starem pocitadle chodilo a na novem
ne..
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
olesia
Sent: Friday, December 08, 2000 7:27 PM
To: delphi-l(zv)fwd(tec)cz
Subject: EInvalidOP
Ahojte
Potrebujem pomoc. Prednedavnom som presla na novy PC, odvtedy akonahle chcem
nieco debugovat s breakpointom mi vyskoci "EinvalidOP - Invalid floating
point information", pricom sa to vyskytuje akonahle narabam s niecim
zlozitejsim, teda ked je ten form naraba s grafikou apod.
Tuto chybu vyhlasuje aj pri najjednoduchsej operacii, napriklad pri
priradovani date do datovej premennej. Tusim, ze to bude nejaky memory
problem , urcite nieco s compile properties projectu, skusala som sa s tym
pohrat, ale nepomohlo to. Predtym na starom PC mi to nerobilo (aspon nie tak
casto - v Appointment Booku nie som schopna dat breakpoint a debugovat
absolutne) . Sami viete ako to je, ked nemozes debugovat..:-((
Neviete, ako by som to mohla vyriesit?
Budem vdacna za kazdu radu,
Lelitka
P.S. Robim s Delphi4 a Oracle 8.04, lenze asi to nema s tym nic spolocme i
guess.OLE
[*] Ji�� H�sek - 10.12.2000 00:05:22
Zdravim,
jak se d� ulo�it soubor, kter� m�m v olecontaineru zp�tky na disk? Zkou�el
jsem SaveToFile nebo SaveAsDocument, ale to je z�ejm� na n�co jin�ho, ne�
pot�ebuji.
D5,W98
Stranka html a odkaz na ni
[*] L. ZITA <konference(zv)sales(tec)cz> - 10.12.2000 05:08:41
----- Original Message -----
From: "Ale� Pavel" <bejcek(zv)centrum(tec)cz>
> Ahoj kluci, zase neco, studna nevysycha...
> tedy potreboval bych udelat abych mel ve formu odkaz na svoji stranku, ale
> pozor odkaz umim neni problem......
>
> ale v pripade ze bych nebyl pripojenej a dal zpristupnit offline, aby se
mi
> nacetla stranka ulozena na disku!!! Pripada mi to docela jako pakarna
> aktivni odkaz v programu a nemoci si najit offline ji prohlidnout v
pripade
> programu je to opravdu blby, malokdo je pri spusteni nejake bezne aplikace
> pripojen na internet...
> Jo taky by se mi siklo aby se pri aktualizace stranky dotahla nova na
HDD..
> nebo by stacilo pokazde kdyz bych byl online, nebude zas tak velka...
>
> Nevim jestli jsem to popsal dobre... snad jo
>
> Aldik
Ahoj.
Jen obecne :
1) Pri kliknuti na odkaz zkouknout zda jsem ONLINE, pokud ano tak
zjistit verzi stranky (podle datumu) a pokud je novejsi tak
stahnout a ulozit na disk.
2) Otevrit stranku z disku.
Takze vzdy oteviras svuj soubor na disku a pripadne ho (jsi li pri kliknuti
pripojen) predtim zaktualizujes.
Na oboji (kontrola pripojeni a stahnuti souboru) bych pouzil komponenty od
F.Pietteho (RAS a ICS).
Ludek
Jak se dostat na malou ikonu v MAINICON
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 10.12.2000 14:05:56
Hi all,
narazil jsem na drobny nedostatek pri kresleni tray ikony.
Mam aplikaci, ktera ma v ikone aplikace (MAINICON) dve ikony: 32x32 a 16x16.
Kdyz je videt okno aplikace, tak je vse v poradku - Windows pouzivaji
spravne malou i velkou ikonu.
Na trayi mam ale malou ikonu 16x16 lehce zkreslenou, prestoze je to ta sama
resp.
1. Tray ikonu predavam pomoci Shell_NotifyIcon()
2. Kdyz udelam LoadIcon(HInstance,'MAINICON'), tak si okna nevezmou samy tu
malou, ale misto toho si automaticky zmensi tu velkou
3. To jsem obesel tak, ze jsem tu malou ikonu dal do resource jeste jednou
jako SMALLICON, ale v tom pripade se prave zobrazi lehce zdeformovana, nez
je tomu u buttonu na liste.
Neumel by mi nekdo poradit, jak donutit wokna, aby tu tray ikonu zobrazovaly
stejne jako na buttonu? Take by me zajimalo, jak vyloudit tu druhou ikonu z
MAINICON.
Thanx, pf
P.S.
Momentalne jsem si toho vsiml na W2000cz a na jinem stroji to nemohu
vyzkouset, protoze jsem v hotelu v Jakarte.
funk�n� ScrollLock
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 10.12.2000 08:57:59
On 9 Dec 2000, at 16:14, Petr Vones wrote:
> From: "Milan ��ek" <cizek.milan(zv)seznam(tec)cz>
> > potreboval bych aktivovat/deaktivovat mou aplikaci bezici na pozadi
> > pomoci scrolllocku. Neco jsem nasel v archivu, ale bez prakticke
> > ukazky :-(
>
> napriklad takhle (i kdyz pozor, nekteri povazuji ScrollLock klavesu za
> hlavniho nepritele ;-)
Nepovazuji, on to skutecne uhlavni nepritel je. Nyni lze najit
agitacni propagandu na http://slhaters.hlinka(tec)cz .
Kazdopadne bych chtel pred pouzivanim teto klavesy durazne
varovat, protoze krome moznosti ziskani zavislosti, vredu, ztraty
vlasu, vykloubeni prstu a tak podobne, se jedna o stavovou klavesu.
Pokud nahodou napadne nekoho jineho pouzit take ScrollLock a
oba programy pobezi vedle sebe, muze dojit i k dost vaznym
problemum.
S pozdravem
Zbysek Hlinka
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Jednoducha rychla komprese
[*] Jan Naiser <tua(zv)wo(tec)cz> - 10.12.2000 10:56:36
Ahoj,
tak na CD s D5P jsem to nenasel. Uz jsem si rikal, ze ma asi "mhu". Jako
posledni pokus jsem vytahl jeste CD s D4 a tam to opravdu je. Asi se to z
D5P nejak vytratilo.
Honza Naiser.
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, December 09, 2000 7:25 PM
Subject: Re: Jednoducha rychla komprese
> From: "Jan Naiser" <tua(zv)wo(tec)cz>
> > chtel jsem se na uvedenou knihovnu podivat a nasel jsem ji na CD (D5P) v
> > \Info\Extras\Zlib. Nenasel jsem ale zadny priklad.
>
> Ahoj,
>
> priklad by mel byt v Test\Test.pas
>
> Petr Vones, amatersky programator
>
>Re[2]: Obcas se nevytiskne obrazek
[*] Martin Zlomek <martin.zlomek(zv)email(tec)cz> - 10.12.2000 12:07:58
Vyzkousel jsem to, ale nefunguje to 100%.
Jeste bych mel dodat, ze ty obrazky jsou monochromaticky.
Friday, December 08, 2000, 5:13:38 PM:
> Cafte
> Tento problem som aj ja mal a vyriesil som ho neuveritelne zaujimavo.
> Nastavil som obrazku 32 bitove farby. Uz neviem aka je to property v objekte
> TBitmap, ale ty ju urcite najdes.
> s pozdravom Peter Rafaj
> ----- Original Message -----
> From: Martin Zlomek <martin.zlomek(zv)email(tec)cz>
> To: Delphikonf <delphi-l(zv)fwd(tec)cz>
> Sent: Wednesday, December 06, 2000 6:37 PM
> Subject: Obcas se nevytiskne obrazek
>> Preji hezhy den,
>> mam nasledujici problem pri tisknuti obrazku:
>> nekdy ho to vytiskne, jindy ne (obzvlaste tehdy, tisknu-li poprve -
> ovladac
>> tiskarny neni jeste v pameti).
>>
>>
>> picture=new Graphics::TBitmap;
>>
>> fi=new TFileStream("plany.dbo",fmOpenRead);
>> fi->Seek(index,soFromBeginning);
>> picture->LoadFromStream(fi);
>> delete fi;
>>
>>
>> Printer()->BeginDoc();
>>
>> file://***********zde je ten tisk************
>> Printer()->Canvas->Draw(Printer()->PageWidth-picture->Width,0,picture);
>> file://**************************************
>>
>> Printer()->Canvas->Font->Name="Times New Roman";
>> Printer()->Canvas->Font->Size=20;
>> Printer()->Canvas->Font->Style=TFontStyles()<<fsBold;
>> Printer()->Canvas->TextOut(0,0,Plany->Selected->Caption);
>>
>> Printer()->Canvas->Font->Name="Draft 12cpi";
>> Printer()->Canvas->Font->Style=TFontStyles();
>>
>> y=picture->Height;
>> file://*********nasleduje tisk nekolika radku v cyklu*********
>> //...
>> //...
>> file://Printer()->Canvas->TextOut(0,y,line);
>> file://y+=20;
>> //...
>> //...
>> file://*******************************************************
>>
>> Printer()->EndDoc();
>>
>>
>> --
>> Martin Zlomek
>> martin.zlomek(zv)email(tec)cz
>>
>>
>>
--
Martin Zlomek
martin.zlomek(zv)email(tec)cz
Knihovna ZLIB D4 vs. D5
[*] Jan Naiser <tua(zv)wo(tec)cz> - 10.12.2000 12:19:59
Ahoj,
po probehle diskusi ohledne komprimace souboru jsem si zkusil knihovnu ZLIB
z D5P. Nakonec jsem nasel i priklad, ale ten je na CD s D4. Pokud priklad
spustim,
tak se zacykli pri dekompresi. Po odkrokovani to vypada na chybu v inflate,
ktera pri cteni posledniho bloku chybne zapise v recordu pocet prectenych
bytu a tim to cele zkonci v nenavratnu. Zkusil jsem tedy ZLIB z D4 a ejhle -
ten funguje normalne. To jsou mi ale veci.... :-))
Honza Naiser.
Jak se dostat na malou ikonu v MAINICON
[*] Bohuslav �vancara <boh.svancara(zv)quick(tec)cz> - 10.12.2000 15:33:22
> Momentalne jsem si toho vsiml na W2000cz a na jinem stroji to nemohu
> vyzkouset, protoze jsem v hotelu v Jakarte.
... Tomu tedy rikam workoholismus! Nebo jsi tam sluzebne?
Kdyz jsem si posledne hral s iconami v SysTray, tak jsem dosel k zaveru, ze
se ikona zobrazuje ruzne podle toho, jaka jsou to Windows, jake je rozliseni
a kolik barev je v danem rozliseni pouzito. Windows ikonu zmensi na 16x16 a
zobrazi podle prave pouziteho nastaveni. A pri te aproximaci a podle toho,
jak se jim to zrovna podari, se ikona zdeformuje.
Vykasli se na ikony a bez si pohrat s kajmanem!
S pozdravem
Bohuslav Svancara
softprojekt(zv)iol(tec)cz
Jak se dostat na malou ikonu v MAINICON
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.12.2000 17:05:52
From: "Petr Fejfar" <development(zv)callnet(tec)cz>
> 2. Kdyz udelam LoadIcon(HInstance,'MAINICON'), tak si okna nevezmou samy tu
> malou, ale misto toho si automaticky zmensi tu velkou
Ahoj,
to se chova spravne, viz napoveda:
LoadIcon can only load an icon whose size conforms to the SM_CXICON and
SM_CYICON system metric values. Use the LoadImage function to load icons of
other sizes.
Musis tedy pouzit API funkci LoadImage:
http://msdn.microsoft.com/library/psdk/winui/resource_9fhi.htm
> Momentalne jsem si toho vsiml na W2000cz a na jinem stroji to nemohu
> vyzkouset, protoze jsem v hotelu v Jakarte.
pekna dovolena ;-)
Petr Vones, amatersky programator
TObjectList
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 10.12.2000 17:36:58
Ahoj all,
stala se mi takovato zajimava nehoda.
Mam seznam Data: TObjectList.
Plnil jsem ji nejakymi daty, kde kazdy Item obsahuje ukazatel na
nejaky objekt, dejme tomu typu TMyObject.
Pro urychleni jsem udelal toto: zjistil jsem, kolik objektu bude v
seznamu a vyhradil jsem si prislusne misto:
Data.Capacity := Result;
Data.Count := Result;
Pak jsem v cyklu vytvarel objekty MyObject a prirazoval
Data.Items[i] := MyObject;
Nakonec jsem potreboval provest korekci na zacatku, kde jsem
potreboval pridat n prvku (v konkretnim popisovanem pripade to byl
jeden, ale to mi vyslo z vypoctu).
Upravil jsem tedy seznam
Data.Capacity := Result + i;
Data.Count := Result + i;
Move(Data.List[0], Data.List[i], Result * SizeOf(Pointer));
a naplnil prvnich n prvku stejnym zpusobem jako vyse.
Pak nekde uplne jinde jsem prochazel takto naplneny seznam, a
pritom si potreboval za urcitych okolnosti vytvorit pomocny objekt
typu TMyObject, ktery jsem pak zase uvolnil.
No, a co se mi stalo. Kdyz jsem pred tim pridal dodatecne jeden
prvek na zacatek seznamu (Data), pri prochazeni seznamu, kdyz
doslo k tem urcitym okolnostem, a vytvoril jsem pomocny objekt
PomObject := TMyObject.Create;
pak se tento objekt vecpal na druhe misto v seznamu. Mate pro to
nekdo nejake rozumne vysvetleni?
Vse v D5, W2000.
S pozdravem
Zbysek Hlinka
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
OT: Re: Komunikace TCP/IP pres seriove porty
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 10.12.2000 18:07:43
> > Jinak tech 20kB ... nezapomen, ze si tam windouvsy pridavaj vsemoznej
> > balast, proto se to zpomaluje... kdyby to bylo pod DOSem s nejakym
> > vlastnim rizenim, tak bych veril tem rychlostem, cos psal...
> zadne vlastni zarizeni - jen 2 PC a kabel (pasivni - jen draty)
jo, to jo, ale ja myslel treba kdyz voknouvsi pres kabel pracujou jak s
TCP/IP tak s IPX/SPX (a treba i necim dalsim), tak si tam musej pridavat
nejaky (pro tebe neuzitecny) data, aby druha strana vedela jak to ma
spracovat... Takhle sem to myslel a pod DOSem vlastni rizeni sem myslel
pro SPP LPT ne pro COM (kde si to UART ridi sam - jenom dodavas data) a
ne pro ECP/EPP LPT...
Takze takhle nejak...
--
Martin Pe�ava
/--------------------------------------------------------------\
| E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
| WebMaster of |
|http://miss.jimx.net - Neofici�ln� str�nka MISS �R a CyberMiss|
\--------------------------------------------------------------/Re[2]: Obcas se nevytiskne obrazek
[*] Mirek Junek <mirek.junek(zv)worldonline(tec)cz> - 10.12.2000 20:00:31
Ahoj, mel jsem podobne problemy, tisknul jsem na stranku x-podobnych
karicek, kde byly nejake texty, carovy kod a bitmapa. Ta bitmapa se nekdy
vytiskla vsude, nekdy na nekterych z karticek chybela (pokazde jinde).
Poradil mi Vasek Krmela toto (je to vyrazne lepsi , i kdyz ne 100 procent):
Pred a po tisku bitmapy na canvas se udela maly delay s volanim
Application.ProcessMessages. Nevim, proc to tak funguje, ale funguje to.
Hodne zdaru,
Mirek
----- Original Message -----
From: Martin Zlomek <martin.zlomek(zv)email(tec)cz>
To: Delphikonf <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, December 10, 2000 12:07 PM
Subject: Re[2]: Obcas se nevytiskne obrazek
| Vyzkousel jsem to, ale nefunguje to 100%.
| Jeste bych mel dodat, ze ty obrazky jsou monochromaticky.
|
| Friday, December 08, 2000, 5:13:38 PM:
| > Cafte
|
| > Tento problem som aj ja mal a vyriesil som ho neuveritelne zaujimavo.
| > Nastavil som obrazku 32 bitove farby. Uz neviem aka je to property v
objekte
| > TBitmap, ale ty ju urcite najdes.
|
| > s pozdravom Peter Rafaj
| > ----- Original Message -----
| > From: Martin Zlomek <martin.zlomek(zv)email(tec)cz>
| > To: Delphikonf <delphi-l(zv)fwd(tec)cz>
| > Sent: Wednesday, December 06, 2000 6:37 PM
| > Subject: Obcas se nevytiskne obrazek
|
|
| >> Preji hezhy den,
| >> mam nasledujici problem pri tisknuti obrazku:
| >> nekdy ho to vytiskne, jindy ne (obzvlaste tehdy, tisknu-li poprve -
| > ovladac
| >> tiskarny neni jeste v pameti).
| >>
| >>
| >> picture=new Graphics::TBitmap;
| >>
| >> fi=new TFileStream("plany.dbo",fmOpenRead);
| >> fi->Seek(index,soFromBeginning);
| >> picture->LoadFromStream(fi);
| >> delete fi;
| >>
| >>
| >> Printer()->BeginDoc();
| >>
| >> file://***********zde je ten tisk************
| >> Printer()->Canvas->Draw(Printer()->PageWidth-picture->Width,0,picture);
| >> file://**************************************
| >>
| >> Printer()->Canvas->Font->Name="Times New Roman";
| >> Printer()->Canvas->Font->Size=20;
| >> Printer()->Canvas->Font->Style=TFontStyles()<<fsBold;
| >> Printer()->Canvas->TextOut(0,0,Plany->Selected->Caption);
| >>
| >> Printer()->Canvas->Font->Name="Draft 12cpi";
| >> Printer()->Canvas->Font->Style=TFontStyles();
| >>
| >> y=picture->Height;
| >> file://*********nasleduje tisk nekolika radku v cyklu*********
| >> //...
| >> //...
| >> file://Printer()->Canvas->TextOut(0,y,line);
| >> file://y+=20;
| >> //...
| >> //...
| >> file://*******************************************************
| >>
| >> Printer()->EndDoc();
| >>
| >>
| >> --
| >> Martin Zlomek
| >> martin.zlomek(zv)email(tec)cz
| >>
| >>
| >>
|
|
|
|
| --
| Martin Zlomek
| martin.zlomek(zv)email(tec)cz
|
|
|Stranka html a odkaz na ni
[*] Ale� Pavel - 10.12.2000 20:25:31
No a to bude ono jak zjistim, ze jsem online?
komponenty? Kde je shrabnu?
Dekuji ti, ale tak nejak jsem si to predstavoval, ale nejak mi to
nezapalilo, mel jsem hodne slabou chvilku...
Ales Pavel
Amater vsech amateru
Kukacka mi kukla 24krat
a jiny ptaky krome kachny na cerno
se zelim odmitam znat.....
----- Original Message -----
From: L. ZITA <konference(zv)sales(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, December 10, 2000 5:08 AM
Subject: Re: Stranka html a odkaz na ni
>
> ----- Original Message -----
> From: "Ale� Pavel" <bejcek(zv)centrum(tec)cz>
> > Ahoj kluci, zase neco, studna nevysycha...
> > tedy potreboval bych udelat abych mel ve formu odkaz na svoji stranku,
ale
> > pozor odkaz umim neni problem......
> >
> > ale v pripade ze bych nebyl pripojenej a dal zpristupnit offline, aby se
> mi
> > nacetla stranka ulozena na disku!!! Pripada mi to docela jako pakarna
> > aktivni odkaz v programu a nemoci si najit offline ji prohlidnout v
> pripade
> > programu je to opravdu blby, malokdo je pri spusteni nejake bezne
aplikace
> > pripojen na internet...
> > Jo taky by se mi siklo aby se pri aktualizace stranky dotahla nova na
> HDD..
> > nebo by stacilo pokazde kdyz bych byl online, nebude zas tak velka...
> >
> > Nevim jestli jsem to popsal dobre... snad jo
> >
> > Aldik
>
> Ahoj.
> Jen obecne :
>
> 1) Pri kliknuti na odkaz zkouknout zda jsem ONLINE, pokud ano tak
> zjistit verzi stranky (podle datumu) a pokud je novejsi tak
> stahnout a ulozit na disk.
> 2) Otevrit stranku z disku.
>
> Takze vzdy oteviras svuj soubor na disku a pripadne ho (jsi li pri
kliknuti
> pripojen) predtim zaktualizujes.
>
> Na oboji (kontrola pripojeni a stahnuti souboru) bych pouzil komponenty od
> F.Pietteho (RAS a ICS).
>
> Ludek
>
>
>
>
Problemek s MEMO nad Accessem a DAO ...
[*] Pavel Skalicky <P.Skalicky(zv)sh.cvut(tec)cz> - 10.12.2000 20:53:13
Zdravicko vsem,
mam mensi problemek -
Win2k Pro, D5, MS Access 97 a databaze, kde jedna tabulka ma sloupec typu
MEMO, DAO db collection od E.Salaje (ve FAQ jsem tento problemek nenalezl
:(().
Kdyz MEMO edituji v aplikaci, jakmile prelezu delku retezce 255 znaku,
zahlasi mi to chybu
Hodnota vlastnosti je neplatna
V TDAOQuery je dana polozka typu TMemoField, BlobType = ftMemo.
Nevite nekdo, co s tim ?
Diky
Pavel
-------------------------------------------------
Pavel Skalick�
e-mail - P.Skalicky(zv)seznam(tec)cz
www - http://pts.kvalitne(tec)cz
mobil - 0604 844 698
ICQ - 38169741
Knihovna ZLIB D4 vs. D5
[*] L. ZITA <konference(zv)sales(tec)cz> - 10.12.2000 21:19:17
----- Original Message -----
From: "Jan Naiser" <tua(zv)wo(tec)cz>> Ahoj,
>
> po probehle diskusi ohledne komprimace souboru jsem si zkusil knihovnu
ZLIB
> z D5P. Nakonec jsem nasel i priklad, ale ten je na CD s D4. Pokud priklad
> spustim,
> tak se zacykli pri dekompresi. Po odkrokovani to vypada na chybu v
inflate,
> ktera pri cteni posledniho bloku chybne zapise v recordu pocet prectenych
> bytu a tim to cele zkonci v nenavratnu. Zkusil jsem tedy ZLIB z D4 a
ejhle -
> ten funguje normalne. To jsou mi ale veci.... :-))
>
> Honza Naiser.
>
>
Zdravim.
Ja sice ZLIB nepouzivam, ale vim jiste, ze na CD s Updatem D5 mam i balicek
s updatem knihovny ZLIB.
Ludek
OT: Fyzicka kopie HDD s NTFS
[*] L. ZITA <konference(zv)sales(tec)cz> - 10.12.2000 21:26:41
Zdravim.
Poradte prosim. Spadl jsem do akce, kde musim v kratke dobe nainstalovat a
zprovoznit 10ks PC.
(Windows 2000 Prof CZ) a hromadu dalsiho SW. Napadlo mne nainstalovat jeden
a pak pouzit fyzicke kopirovani HDD. Nekde mam na to utilitu, ale ta je
jeste na stary DOS a NTFS urcite neumi (asi ani FAT32 ne). Nevite o necem
takovem aby to bylo bud free nebo za nejaky mensi peniz (aby se to vyplatilo
pri 10 PC).
Predem diky.
Ludek
Fyzicka kopie HDD s NTFS
[*] Ing. Lud�k Florian <Ludek.Florian(zv)bluerose(tec)cz> - 10.12.2000 22:32:46
Cauec,
zkus se pozeptat po PQDI - PowerQuest Disk Image, ten umi i NTFS.
Nainstalujes to jen jednou a na ostatni PC jen provedes disk image.
Bye Ludan
> Zdravim.
> Poradte prosim. Spadl jsem do akce, kde musim v kratke dobe nainstalovat a
> zprovoznit 10ks PC.
> (Windows 2000 Prof CZ) a hromadu dalsiho SW. Napadlo mne nainstalovat
jeden
> a pak pouzit fyzicke kopirovani HDD. Nekde mam na to utilitu, ale ta je
> jeste na stary DOS a NTFS urcite neumi (asi ani FAT32 ne). Nevite o necem
> takovem aby to bylo bud free nebo za nejaky mensi peniz (aby se to
vyplatilo
> pri 10 PC).
>
> Predem diky.
>
> Ludek
Fyzicka kopie HDD s NTFS
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 10.12.2000 22:56:43
Norton Ghost 2001
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of L. ZITA
> Sent: Sunday, December 10, 2000 9:27 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: OT: Fyzicka kopie HDD s NTFS
>
>
> Zdravim.
> Poradte prosim. Spadl jsem do akce, kde musim v kratke dobe nainstalovat a
> zprovoznit 10ks PC.
> (Windows 2000 Prof CZ) a hromadu dalsiho SW. Napadlo mne
> nainstalovat jeden
> a pak pouzit fyzicke kopirovani HDD. Nekde mam na to utilitu, ale ta je
> jeste na stary DOS a NTFS urcite neumi (asi ani FAT32 ne). Nevite o necem
> takovem aby to bylo bud free nebo za nejaky mensi peniz (aby se
> to vyplatilo
> pri 10 PC).
>
> Predem diky.
>
> Ludek
>OT: Komunikace TCP/IP pres seriove porty
[*] Hurricane <hurricane(zv)quick(tec)cz> - 10.12.2000 23:20:46
Zdravim
Je sice mozne k "primenu propojeni kabelem" pridat IPX/SPX, ale primarni
protokol pro prime propojeni je TCP/IP a IPX/SPX tam vubec byt nemusi. Tim
ale nechci vyvracet obecne znamou pravdu, ze si k potrebnejm datum widle
davaj spoustu nesmyslu. Jinak jsem dosel k zaveru, ze pres COMy widle spojit
nelze. A po LPT jen pri spravne konstelaci hvezd. Zrovna dnes jsem se o to
pokousel a widle se na me v 99,99% zvysoka vykaslaly. Po zadani jmena
hostitelskeho stroje mi vyskocila hlaska ze hostitel neexistuje nebo tak
neco, ale widle BYLY propojeny, jen nebylo co sdilet :-).
Neexistuje nejaka jina moznost, jak propojit widle tak aby to vypadalo jako
normalni sit (slozky v "okolni pocitace", sdileni,.....) se sitovkama a
TCP/IP protokolem?
Hurricane
----- Original Message -----
> > Jinak tech 20kB ... nezapomen, ze si tam windouvsy pridavaj vsemoznej
> > balast, proto se to zpomaluje... kdyby to bylo pod DOSem s nejakym
> > vlastnim rizenim, tak bych veril tem rychlostem, cos psal...
> zadne vlastni zarizeni - jen 2 PC a kabel (pasivni - jen draty)
jo, to jo, ale ja myslel treba kdyz voknouvsi pres kabel pracujou jak s
TCP/IP tak s IPX/SPX (a treba i necim dalsim), tak si tam musej pridavat
nejaky (pro tebe neuzitecny) data, aby druha strana vedela jak to ma
spracovat... Takhle sem to myslel a pod DOSem vlastni rizeni sem myslel
pro SPP LPT ne pro COM (kde si to UART ridi sam - jenom dodavas data) a
ne pro ECP/EPP LPT...
Fyzicka kopie HDD s NTFS
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 10.12.2000 23:33:14
Zdravim,
nevim jestli to umej ty W2K, ale bracha to v NT4 delal tak, ze dal ozrcadlit
disk, pockal az se sesynchronizuje, pak ho odpojil, pridal dalsi prazdny,
nechal opet sesynchronizovat, atd...
Takhle mel identicke kopie celeho oper. systemu.
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
----- Original Message -----
From: "L. ZITA" <konference(zv)sales(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, December 10, 2000 9:26 PM
Subject: OT: Fyzicka kopie HDD s NTFS
> Zdravim.
> Poradte prosim. Spadl jsem do akce, kde musim v kratke dobe nainstalovat a
> zprovoznit 10ks PC.
> (Windows 2000 Prof CZ) a hromadu dalsiho SW. Napadlo mne nainstalovat
jeden
> a pak pouzit fyzicke kopirovani HDD. Nekde mam na to utilitu, ale ta je
> jeste na stary DOS a NTFS urcite neumi (asi ani FAT32 ne). Nevite o necem
> takovem aby to bylo bud free nebo za nejaky mensi peniz (aby se to
vyplatilo
> pri 10 PC).
>
> Predem diky.
>
> Ludek
OT: Fyzicka kopie HDD s NTFS
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 11.12.2000 01:14:58
Puvodni zprava, kterou napsal L. ZITA dne 10 Dec 00,:
> Poradte prosim. Spadl jsem do akce, kde musim v kratke dobe nainstalovat a
> zprovoznit 10ks PC.
http://www.clexpert(tec)cz/software/ghost/
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon/fax: 047-5500610, telefon/fax: 047-5501627 ===
=== telefon GSM: 0602-409601, ICQ: 21215917 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Stranka html a odkaz na ni
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.12.2000 01:43:27
From: "Ale� Pavel" <bejcek(zv)centrum(tec)cz>
> ale v pripade ze bych nebyl pripojenej a dal zpristupnit offline, aby se mi
> nacetla stranka ulozena na disku!!! Pripada mi to docela jako pakarna
> aktivni odkaz v programu a nemoci si najit offline ji prohlidnout v pripade
> programu je to opravdu blby, malokdo je pri spusteni nejake bezne aplikace
> pripojen na internet...
Ahoj,
tezko najit nejake rozumne reseni. Pokud se omezis jen na uzivatele, kteri
pouzivaji dospely prohlizec (IE 4 a vyssi), tak by se bylo mozne podivat do
cache, zdali je tam tvoje stranka. Pokud uzivatel neni pripojen k Internetu,
tak se mu zobrazi offline verze, jinak se nacte aktualni.
Jine reseni by bylo mit umisteny stranky vzdy offline v nejakem vlastnim
adresari aplikace a pred otevrenim zjistit zdali je dostupne pripojeni k
Internetu a stahnout aktualni verzi. Tohle je ovsem slozitejsi, uzivatel muze
pouzivat proxy, takze by jsi musel jeste zjistit jeji nastaveni (pro IE to
neni problem, ale u neho to neni treba delat takhle slozite, viz predchozi
odstavec) u ostatnich prohlizecu je to temer neresitelne. I kdyz predpokladam,
ze ve Windows dnes drtiva vetsina pouziva IE, protoze vlastnosti ostatnich
prohlizecu (intergrace do systemu, rychlost parseru) jsou ponekud rozporuplne.
Petr Vones, amatersky programator
Novy exac za chodu aplikace.
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.12.2000 01:45:36
From: "Zbysek Hlinka" <hlinka(zv)hlinka(tec)cz>
> > Bound Import,
> Tohle by mel vysvetlit Petr Vones.
Ahoj,
Pokusim se strucne. Spustitelny soubor (EXE/DLL/BPL...) obvykle pouziva funkce
z nejakych dalsich knihoven. Seznam techto funkci je v import sekci PE souboru
(popripade jeste v Delay load import, pro puntickare ;-). Kdyz PE loader
zavadi spustitelny soubor, snazi se najit potrebne knihovny (zpusob jakym je
hleda je popsan u API funkce LoadLibrary). Kdyz ji najde, prochazi seznam
funkci ktery je potreba z dane knihovny importovat. Funkce, ktere knihovna
exportuje jsou ulozeny jeji v export sekci. Vetsinou se funkce vyhledavaji
podle jmena, nekdy se (vyjimecne) pouziva pouze index do tabulky exportu.
K pochopeni veci je take nutne vedet, jak se funkce z kodu volaji. Pokud z
programu volam napriklad API funkci MessageBeep, prekladac ulozi na zasobnik
potrebne parametry a nasleduje CALL instrukce do 'nekam'. Na 'nekam' najdete
dalsi skok v podobe JMP DWORD PTR [XXX]. Adresa XXX bude adresa ve virtualnim
adresovem prostoru, kde se bude nachazet kod funkce MessageBeep. Ukolem PE
loaderu je namapovat knihovnu obsahujici funkci MessageBeep do pametoveho
prostoru procesu, zjistit (pomoci vyhledani v tabulce exportu) adresu a tu
zapsat na misto [XXX], tak aby instrukce tuto funkci volala.
Vyse uvedene se provede vzdy pro kazdou funkci pri kazdem zavedeni knihovny.
Protoze takto vypocitane adresy budou pro systemove knihovny vzdy stejne, tak
Microsoft umoznil tyto adresy zapsat primo do import sekce dane knihovny, cimz
se cely proces mirne zrychli. Pro takovou upravu knihovny slouzi funkce
BindImageEx, nelze ji vsak pouzit na PE soubory z Delphi, protoze import sekce
techto souboru neni plne kompatibilni (duvodem je snaha Borlandu o mirne
zmenseni velikosti souboru). Tuto upravu nelze delat pred instalaci, ale az v
dobe instalace aplikace. Na ruznych systemech mohou byt totiz ruzne verze
knihoven, takze by takto "predzpracovane" adresy byly neplatne. Tento zpusob
importu funkci se nazyva prave Bound Import.
Jeste pripominam, ze nastroje pomoci kterych si muzete prohlizet obsah
jednotivych casti PE souboru najdete krom Platform SDK i napriklad tady:
http://www.volweb(tec)cz/pvones/delphi
> > Jedno jablicko a jedno jablicko nejsou tri ale dve jablicka) pripadne
> Proc myslis? Chces nam tu hlasat nejaka neproverena dogmata? :-)
Taky se mi to nezda ;-) Kdysi ve skole, kdyz se probiralo deleni nulou nekdo
argumentoval prikladem: "Kdyz mam sest bananu a rozdelim je mezi nula lidi,
tak mam preci porad sest bananu".
From: "Ale� Pavel" <bejcek(zv)centrum(tec)cz>
> Nazorny priklad by opravdu bodl i s pokecem pro amatera, prosim prosim
Snad behem tohoto tydne ...
Petr Vones, amatersky programator
Re[2]: Obcas se nevytiskne obrazek
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.12.2000 02:29:19
From: "Mirek Junek" <mirek.junek(zv)worldonline(tec)cz>
> Ahoj, mel jsem podobne problemy, tisknul jsem na stranku x-podobnych
> karicek, kde byly nejake texty, carovy kod a bitmapa. Ta bitmapa se nekdy
> vytiskla vsude, nekdy na nekterych z karticek chybela (pokazde jinde).
Ahoj,
problem spociva v tom, ze nelze pouzivat funkce BitBlt a StretchBlt pro tisk:
http://support.microsoft.com/support/kb/articles/q195/8/30.asp
priklad v Delphi je treba tady:
http://www.efg2.com/Lab/Library/Delphi/Printing/StretchDIBitsDemo.txt
Petr Vones, amatersky programator
smaz�n� obl�ben�ch polo�ek
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.12.2000 02:33:09
From: "Milan ��ek" <cizek.milan(zv)seznam(tec)cz>
> mame trochu vetsi problem s nasledujicim: vsude pouzivame internet
> explorery, automaticky konfigurovane pres skript
> 'http://adresa/ins/skript.ins'.
> Cely prohlizec se bez problemu zkonfiguruje a funguje. Problem je ale v tom,
> ze tak v 60ti % tento skript odstrani oblibene polozky. Pri pouziti IE5.01
> se toto jiz nedeje. Nesetkal se nekdo s necim takovym ???
Ahoj,
je to popsano tady, (verze IE x.0 maji vzdycky chyby ;-)
http://support.microsoft.com/support/kb/articles/Q242/5/44.ASP
Petr Vones, amatersky programator
Retezec predavany ve zprave Windows
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.12.2000 02:36:38
From: "Martin Falta" <martin.falta(zv)atlas(tec)cz>
> nevite nekdo, jak ze zpravy Windows vycucnout retezec, ktery je predany v
> LPARAM?
Ahoj,
muzes to nejak vic popsat ?
Petr Vones, amatersky programator
Ulozeni nastaveni tiskarny
[*] Ladislav Fitz <ladislav.fitz(zv)kodytek(tec)cz> - 11.12.2000 07:18:19
Dobry den,
tato funkce zjisti nastaveni tiskarny a vrati handle na pametovou oblast kde
je to ulozene snad to pomuze (je v Delphi5, ale asi to bude fungovat i v
nizsich)
function GetPrinterDeviceModeHandle (Device : pChar) : tHandle;
var FPrinterHandle : THandle; StubDevMode : TDeviceMode; h : tHandle;
begin
result:=0;
if OpenPrinter (Device,FPrinterHandle,nil) then
begin
h:=GlobalAlloc (GHND,DocumentProperties
(0,FPrinterHandle,Device,StubDevMode,StubDevMode,0));
{DocumentProperties vrati potrebnou velikost}
if (h<>0) then
begin
result:=integer(GlobalLock (h));
if (DocumentProperties
(0,FPrinterHandle,Device,PDeviceMode(result)^,PDeviceMode(result)^,DM_OUT_BU
FFER)<0) then
{DocumentProperties naplni pamet vlastnostmi}
begin
GlobalUnlock (h);
GlobalFree (h);
result:=0;
end
end;
ClosePrinter (FPrinterHandle);
end;
end;
----- Original Message -----
From: "Jan Krizek" <krizek(zv)krizkules(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, December 08, 2000 5:35 PM
Subject: Ulozeni nastaveni tiskarny
> Mam problem,
>
> potrebuju ulozit nastaveni tiskarny, ktere bylo provedeno pomoci dialogu
PrinterSetupDialog. Normalne to delam pres nacteni polozek PDeviceMode a
potom jsem to zase nastavoval. Font jsem cetl pres Printer.Canvas a zase
stejne nastavuji. Na normalnich ovladacich (od MS) to funguje celkem dobre,
ale problemy jsou s ovladaci od Epsonu na Win NT, napr. rychlost tisku po
nastaveni pres dialog je mnohem vetsi nez pokud se tiskne pote co nastaveni
nactu.
>
> Neni tedy nejaky univerzalne fungujici zpusob ulozeni nastaveni tiskarny?
>
> Honza +
>Zarovnani bunky u DBGrid
[*] Ji�� Vojtek - 11.12.2000 07:23:23
Ja jsem asi neci zaspal, ci spatne napsal pouzivam standardni ADO v DELPHI 5
a mam SP1 tam jem u TField nasel pouze DisplayLabel, DisplayName,
DisplayText a DisplayWidth predpokladam, ze je neco spatne u mne
Momentalne to resim pres OnGetText, ale neni to uplne ono.
Diky za rady a mejte se
Jiri Vojtek
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Jiri Dvorak
> Sent: Friday, December 08, 2000 9:42 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Zarovnani bunky u DBGrid
>
>
> To tam samozrejmne vsechno je
>
> TField.DisplayFormat
> TField.Alignment
>
> atd..
>
> Jirka Dvorak
>
>
> > Jenze ja nepotrebuju masku pro vstup, ale pro vypis :-( Pokud jsem neco
> > prehlidl, tak pardon.
> > Jiri Vojtek
>MainMenu a obsluha ShortCuts klaves
[*] Miroslav Barica <miroslav.barica(zv)matador.sk> - 11.12.2000 08:02:44
co tak aktivovat druhy form metodou showmodal???
-----Original Message-----
From: Peter Vlkovic [mailto:vlkovic(zv)minv.sk]
Sent: Friday, December 08, 2000 3:21 PM
To: delphi-l(zv)fwd(tec)cz
Subject: MainMenu a obsluha ShortCuts klaves
Ahoj,
v hlavnom forme aplikacie mam TMainMenu
s definovanymi klavesovymi skratkami.
Po aktivacii ineho formulara (metodou Show)
je toto menu stale aktivne (napr. reaguje
na Alt ako i pridruzene kl.skratky).
Riesil som to tak, ze na druhy form,
som umiestnil jeden prazdny objekt TMainMenu.
Radsej by som vsak vyriesil tento problem
priamo. Nevie niekto poradit? (D3)
Vdaka,
Vlkovic
Jedinecny plugin pro CodeRush
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 11.12.2000 08:30:30
Eagle software vyrobilo dalsi jedinecny plugin pro CodeRush,
FormUtilities:
http://www.eagle-software.com/CR5FormPopupFix.htm
Dela mimo jine nasledujici veci:
* automaticke prirazovani ShortCuts
* automaticke prirazovani TabOrder
* zobrazuje vazbu FocusedControl -> Label
* automaticky zarovnava Controls na formu
* zobrazuje TabOrder
no, tezko vyjmenovavat, je to bomba.
Poznamka: CodeRush neprodavam, pouze uzivam. Ale to pro nadseni
dostatecne staci.
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
Jedinecny plugin pro CodeRush
[*] Tomas =?iso-8859-2?Q?Michal=EDk?= <michalik(zv)proca(tec)cz> - 11.12.2000 08:58:33
Karel Kral wrote:
>
> Eagle software vyrobilo dalsi jedinecny plugin pro CodeRush,
> FormUtilities:
> http://www.eagle-software.com/CR5FormPopupFix.htm
>
> Dela mimo jine nasledujici veci:
> * automaticke prirazovani ShortCuts
> * automaticke prirazovani TabOrder
> * zobrazuje vazbu FocusedControl -> Label
> * automaticky zarovnava Controls na formu
> * zobrazuje TabOrder
> no, tezko vyjmenovavat, je to bomba.
>
> Poznamka: CodeRush neprodavam, pouze uzivam. Ale to pro nadseni
> dostatecne staci.
> ______________________________________________________
> Karel Kral, informatik
presne tak, trpim stejnou zavislosti :-)
Tom
=================================
Tomas Michalik
ProCA, s. r. o.
V Luzich 818, Praha 4
Czech Republic
e-mail: michalik(zv)proca(tec)cz
tel: +420 2 67283446
IDL soubory v CORBA
[*] Delphi <delphi(zv)aitix(tec)cz> - 11.12.2000 08:58:37
Ahoj,
zkousim CORBA server/klient v Jave, tam mi vsechno bezi dle ocekavani.
Ted chci udelat klienta v Delphi, mam k dispozici IDL soubor.
Nevim jak vygenerovat prislusne PAS soubory, idl2pas nemam,
VisiBroker stahovat nechci, nebot je trial a ac jsem cenu na Borlandu
nenasel, nepochybne nebude free.
Jde to vubec nejak vyresit? Na internetu jsem k tomu moc nenasel
a ani nevim, jestli jdu spravnou cestou...
Leos
PS: Ted mam sice v praci C/S ale kdyby to fungovalo s Professionalem,
bylo by to uplne nejlepsi. Udalost pri navazani telefonickeho spojeni
[*] brant(zv)dcomm(tec)cz - 11.12.2000 09:05:50
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Ahoj vsem,
nevite nekdo, jakym zpusobem by se dalo poznat, ze bylo navazano/shozeno
telefonicke spojeni s jinym pocitacem? Hodilo by se mi to na sledovani
internetoveho provozu. Diky
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
D&COMM s.r.o
Korunova�n� 6
Praha 7 email / postovni klient
[*] volcik(zv)email(tec)cz - 11.12.2000 09:51:32
Zdravim vsecky
Mam problem s odeslanim mailu pres MS Outlook / Outlook Express. Delam to
nasledovne :
procedure TForm1.Button1Click(Sender: TObject);
var
xA:pchar;
begin
xA := pchar('mailto:' + txtKomu.Text +
'?subject=' + txtPredmet.Text +
'&body=' + txtZprava.Text );
ShellExecute(Self.Handle, 'open', xA, nil, nil, SW_SHOWNORMAL);
end;
Tento postup jsem nasel v archivu konference (udajne zarucene funguje),
ale mne nefunguje to. Kdyz se zobrazi okno Outlooku - nova zprava, tak vse
je nacpano v poli "Komu". Poradte mi, prosim, kde mam chybu.
V podstate potrebuji vyvolat okno postovniho klienta s vyplnenymi poli:
Komu, Predmet a Zprava. Nepotrebuji pripojovat prilohy, i kdyz by se to taky
hodilo. Dekuji za kazdou radu a hlavne rychlou radu. D.V.
EMAIL.CZ - Vase posta je vzdy s Vami
http://www.email(tec)cz
DBGrid multiselect, drag and drop
[*] Ren� Otisk - 11.12.2000 10:09:31
D5, RxLib2.75
Hi,
Mam takovy maly problemek. Vlastne dva.
1. Potrebuji v OnAfterScroll datasetu testovat, zda je vybrano vice nez
jeden zaznam v RxDBGridu. Ale blbec Grid to do SelectedRows prida az nekdy
potom, co mi projde after scroll. Nemuzu to ale dat do OnMouseUp, protoze se
mi muze pridat i skrolovanim scrollbaru. Kdyz si hraji v OnAfterScroll s
CurrentRowSelected (true i false), tak pri prochazeni jednotlivych radku
gridu (for i := 0 to selecetedrows.count - 1) mi to pak uspesne vynuluje
selectedrows.count po pruchodu prvnim itemsem (to je blby slovo - proste
ListIndex Out Of Bound(1)). Japa z toho ven. Jak testovat (idealne v
OnAfterScroll), ze RxDBGrid.SelectedRows je mensi nez 2? Navic je tam takova
blba chybicka (mozna moje mozna v Rx-ku mozna v Delfounech, to nevim), ze
kdyz kliknu na scrollbar rxdbgridu tak krome toho noveho zaznamu,
odpovidajici tomu scrollbaru, mi zustane vybrany i ten predchozi zaznam, bez
toho ze bych drzel jakoukoli klavesu (treba ctrl).
2.
Jak pretahnout vybrane radky na jine misto v Gridu. Nemuzu dat DragMode na
Automatic a v OnMouseMove se mi to nejak nepovedlo, ac jsem to hledal i v
archivu konference. Nema na to nekdo maly prikladek?
Dekuji predem
Sroub
Udalost pri navazani telefonickeho spojeni
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 11.12.2000 10:27:55
>Ahoj vsem,
>nevite nekdo, jakym zpusobem by se dalo poznat, ze bylo navazano/shozeno
>telefonicke spojeni s jinym pocitacem? Hodilo by se mi to na sledovani
>internetoveho provozu. Diky
obecne jedine pomoci periodickeho sledovani stavu navazanych RAS spojeni (
RASEnumConnection() ). Jinak je mozne pouzit RasConnectionNotification (
http://msdn.microsoft.com/library/psdk/network/rasclnt_4re6.htm ) ale ta
nechodi (podle informaci na tom linku) na Win95 a WInNT3.X
D. Toman
Mutexy
[*] Raul Endymion <raul.endymion(zv)mail.infima(tec)cz> - 11.12.2000 10:30:31
Dobr� den,
mam aplikaci, ktera vyuziva k zamykani pristupu k souboru mutexy, jak
mam ale mutex odstranit po padu aplikace. V pripade ze mi pri ladeni
aplikace spadne, je nejaky zpusob jak smazat mutex jinak nez restartem
?
--
S pozdravem,
Raul
raul.endymion(zv)bsdi.infima(tec)cz
Problemek s MEMO nad Accessem a DAO ...
[*] Erik Salaj <winsoft(zv)napri.sk> - 11.12.2000 10:48:39
> Win2k Pro, D5, MS Access 97 a databaze, kde jedna tabulka ma sloupec typu
> MEMO, DAO db collection od E.Salaje (ve FAQ jsem tento problemek nenalezl
> :(().
>
> Kdyz MEMO edituji v aplikaci, jakmile prelezu delku retezce 255 znaku,
> zahlasi mi to chybu
> Hodnota vlastnosti je neplatna
> V TDAOQuery je dana polozka typu TMemoField, BlobType = ftMemo.
Skusal som to a funguje mi to korektne. Posli mi Tvoj priklad, pozriem sa na
to.
Erik
Retezec predavany ve zprave Windows
[*] Martin Falta <martin.falta(zv)atlas(tec)cz> - 11.12.2000 10:52:02
Ahoj,
mejme nasledujici priklad:
const
UM_MOJE ZPRAVA = WM_USER + 100;
type
TfrmMain = class(TForm)
procedure Button1Click(Sender: TObject);
private
procedure UMMojeZprava(var msg: TMessage); message UM_MOJEZPRAVA;
end;
iplementation
procedure TfrmMain.UMMojeZprava(var msg: TMessage);
begin
StatusBar.Panels[0].Text := String(msg.LParam); // tady mi to vrati
vzdycky 0, ale ja potrebuju, abych dostal
// prave ten retezec
end;
procedure TfrmMain.Button1Click(Sender: TObject);
begin
Perform(UM_MOJEZPRAVA, 0, LPARAM('Testovaci retezec'));
end;
Martin Falta
martin.falta(zv)atlas(tec)cz
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, December 11, 2000 2:36 AM
Subject: Re: Retezec predavany ve zprave Windows
> From: "Martin Falta" <martin.falta(zv)atlas(tec)cz>
> > nevite nekdo, jak ze zpravy Windows vycucnout retezec, ktery je predany
v
> > LPARAM?
>
> Ahoj,
>
> muzes to nejak vic popsat ?
>
> Petr Vones, amatersky programator
>
Retezec predavany ve zprave Windows
[*] brant(zv)dcomm(tec)cz - 11.12.2000 12:37:48
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.
Mozna ze je to tim, ze se alokuje pamet pro ten retezec jen v te funkci,
odkud se posila message, takze v okamziku, kdy dojde ke zpracovani te
zpravy, uz LPARAM ukazuje na neco neplatneho. Nebo je mozna kompilator tak
chytry, ze pozna, ze se s tim textem nic nedela a v LPARAM predava 0 a
nealokuje zadnou pamet. Zkus udelat nejakou "globalnejsi" stringovou
promennou, ktera se bude plnit textem v Button1Click a v LPARAM budes
predavat pointer na tuto promennou, pak by to mohlo fungovat.
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
D&COMM s.r.o
Korunova�n� 6
Praha 7
mejme nasledujici priklad:
const
UM MOJE ZPRAVA = WM USER + 100;
type
TfrmMain = class(TForm)
procedure Button1Click(Sender: TObject);
private
procedure UMMojeZprava(var msg: TMessage); message UM MOJEZPRAVA;
end;
iplementation
procedure TfrmMain.UMMojeZprava(var msg: TMessage);
begin
StatusBar.Panels[0].Text := String(msg.LParam); // tady mi to vrati
vzdycky 0, ale ja potrebuju, abych dostal
// prave ten retezec
end;
procedure TfrmMain.Button1Click(Sender: TObject);
begin
Perform(UM MOJEZPRAVA, 0, LPARAM('Testovaci retezec'));
end;
Martin Falta
martin.falta(zv)atlas(tec)cz
ReportBuilder
[*] Bohdan Voska <bohdan(zv)softok(tec)cz> - 11.12.2000 13:14:45
Ahoj vsem,
potrebuji programove v reportbuilderu do sestavy pridat subreport. Zkousel
jsem ruzne moznosti jak subreport zalozit, ale nejak se mi to nedari. Dejte
navod jak se to ma spravne napsat. Mame verzi 5.5. Predem dik.
Bohdan Voska
SOFTWARE OK
bohdan(zv)softok(tec)cz
Kolko Timerov v aplikacii a v systeme
[*] Jan Grman <janog(zv)pluto.elf.stuba.sk> - 11.12.2000 13:21:34
Ahoj.
Kolko Timerov je limit pre aplikaciu a system pre jednotlive verzie WINDOWS
?
Vdaka.
Jan Grman
janog(zv)pluto.elf.stuba.sk
Mutexy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.12.2000 14:03:25
From: "Raul Endymion" <raul.endymion(zv)mail.infima(tec)cz>
> mam aplikaci, ktera vyuziva k zamykani pristupu k souboru mutexy, jak
> mam ale mutex odstranit po padu aplikace. V pripade ze mi pri ladeni
> aplikace spadne, je nejaky zpusob jak smazat mutex jinak nez restartem
Ahoj,
mutexy jsou automaticky zruseny po ukonceni procesu.
Petr Vones, amatersky programator
Udalost pri navazani telefonickeho spojeni
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.12.2000 14:05:53
From: <brant(zv)dcomm(tec)cz>
> nevite nekdo, jakym zpusobem by se dalo poznat, ze bylo navazano/shozeno
> telefonicke spojeni s jinym pocitacem? Hodilo by se mi to na sledovani
Ahoj,
stahni si RAS konverzi (http://delphi-jedi.org/Jedi:APILIBRARY) je tam i
jednoduchy priklad.
Petr Vones, amatersky programator
Retezec predavany ve zprave Windows
[*] Jiri Hostinsky <hostinsky(zv)teska(tec)cz> - 11.12.2000 14:20:50
Zkus
procedure TfrmMain.UMMojeZprava(var msg: TWMGetText);
begin
StatusBar.Panels[0].Text := msg.text
end;;
----- Original Message -----
From: Martin Falta <martin.falta(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, December 11, 2000 10:52 AM
Subject: Re: Retezec predavany ve zprave Windows
> Ahoj,
>
> mejme nasledujici priklad:
>
> const
> UM_MOJE ZPRAVA = WM_USER + 100;
>
> type
> TfrmMain = class(TForm)
> procedure Button1Click(Sender: TObject);
> private
> procedure UMMojeZprava(var msg: TMessage); message UM_MOJEZPRAVA;
> end;
>
> iplementation
>
> procedure TfrmMain.UMMojeZprava(var msg: TMessage);
> begin
> StatusBar.Panels[0].Text := String(msg.LParam); // tady mi to vrati
> vzdycky 0, ale ja potrebuju, abych dostal
>
> // prave ten retezec
> end;
>
> procedure TfrmMain.Button1Click(Sender: TObject);
> begin
> Perform(UM_MOJEZPRAVA, 0, LPARAM('Testovaci retezec'));
> end;
>
> Martin Falta
> martin.falta(zv)atlas(tec)cz
>
> ----- Original Message -----
> From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, December 11, 2000 2:36 AM
> Subject: Re: Retezec predavany ve zprave Windows
>
>
> > From: "Martin Falta" <martin.falta(zv)atlas(tec)cz>
> > > nevite nekdo, jak ze zpravy Windows vycucnout retezec, ktery je
predany
> v
> > > LPARAM?
> >
> > Ahoj,
> >
> > muzes to nejak vic popsat ?
> >
> > Petr Vones, amatersky programator
> >
>
>
>Retezec predavany ve zprave Windows
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 11.12.2000 14:53:10
On 11 Dec 2000, at 10:52, Martin Falta wrote:
> mejme nasledujici priklad:
>
> const
> UM_MOJE ZPRAVA = WM_USER + 100;
Takto to nejde. Retezec musi existovat po celou dobu, nez ho
zkopirujes nekam jinam. V parametru se pak predava pointer na
ten retezec pretypovany na integer. Zkusim to zaclenit do tveho
kodu.
> type
> TfrmMain = class(TForm)
> procedure Button1Click(Sender: TObject);
> private
TestRetez: string;
> procedure UMMojeZprava(var msg: TMessage); message UM_MOJEZPRAVA;
> end;
>
> iplementation
>
> procedure TfrmMain.UMMojeZprava(var msg: TMessage);
> begin
StatusBar.Panels[0].Text := String(PChar(msg.LParam));
//> StatusBar.Panels[0].Text := String(msg.LParam); // tady mi
to vrati
> vzdycky 0, ale ja potrebuju, abych dostal
>
> // prave ten retezec
> end;
>
> procedure TfrmMain.Button1Click(Sender: TObject);
> begin
TestRetez := 'Testovaci retezec';
Perform(UM_MOJEZPRAVA, 0, LPARAM(PChar(TestRetez)));
//> Perform(UM_MOJEZPRAVA, 0, LPARAM('Testovaci retezec'));
> end;
Takto to samozrejme nema vyznam, protoze v ramci jednoho
formulare je lepsi pouzit rovnou TestRetez (posles si jen zpravu, ze
je treba aktualizovat StatusBar, pricemz parametry te zde nemusi
zajimat). Takto se to uplatni spise kdyz posilas text jinemu
formulari.
S pozdravem
Zbysek Hlinka
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
email / postovni klient
[*] L. ZITA <konference(zv)sales(tec)cz> - 11.12.2000 15:09:49
----- Original Message ----- > Zdravim vsecky
> Mam problem s odeslanim mailu pres MS Outlook / Outlook Express. Delam
to
> nasledovne :
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> xA:pchar;
> begin
> xA := pchar('mailto:' + txtKomu.Text +
> '?subject=' + txtPredmet.Text +
> '&body=' + txtZprava.Text );
> ShellExecute(Self.Handle, 'open', xA, nil, nil, SW_SHOWNORMAL);
> end;
>
> Tento postup jsem nasel v archivu konference (udajne zarucene funguje),
> ale mne nefunguje to. Kdyz se zobrazi okno Outlooku - nova zprava, tak
vse
> je nacpano v poli "Komu". Poradte mi, prosim, kde mam chybu.
>
> V podstate potrebuji vyvolat okno postovniho klienta s vyplnenymi poli:
> Komu, Predmet a Zprava. Nepotrebuji pripojovat prilohy, i kdyz by se to
taky
> hodilo. Dekuji za kazdou radu a hlavne rychlou radu. D.V.
Ahoj.
Stahni si komponentu TJvMail (Autor P.Vones) z Jedi Code Library. Ta umi i
daleko vic nez potrebujes.
Adresu najdes v konferenci (momentalne ji nemuzu najit).
Ludek
Clipboard
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 11.12.2000 16:02:28
Jelikoz nikdo neodpovedel na muj dotaz, odpovim si sam :-) Staci
poslat danemu oknu zpravu WM_PASTE, ma to ale jeden hacek -
pokud je v clipboardu nejaky jiny format (treba RTF) tak uz to
nefunguje.
Nevite jak na to? Treba v RichEditu oznacim retezec, zkopiruji do
clipboardu (je to rtf) a potrebuji obsah clipboardu vlozit do jineho
editu, na ktery mam pouze Handle. Pokud to je jen normalni edit,
tak aby tam vlozil cisty text, pokud to je RichEdit, tak ten text s
tim puvodnim formatovanim... Urcite to nejak jde, ale ja nevim jak.
:-( poradite nekdo?
A jeste jeden dotaz z minula:
> 1) Existuje nejaka zprava o tom, ze se kopiruje obsah clipboardu
> do okna? Tedy zprava, ktera se odstartuje v okamziku, kdy uzivatel
> v libovolne aplikaci da PASTE?
P.
--=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
`======----( icq: 73995087 )==--- -- -
Drag&Drop z externiho programu
[*] SSOU Vodochody s.r.o. <ssouvodochody(zv)mbox.vol(tec)cz> - 11.12.2000 16:41:56
Dobry den,
vedel by nekdo, jak zajisti, aby pri pretazeni odkazu na MAIL napriklad ze
stranky zobrazene v IE na plochu meho programu byl muj program schopen tuto
adresu prevzit a neco s ni udelat (zalozit do databaze, doplnit do nejakeho
policka, zobrazit atd.) ? DELPHI 2.0
V.Wagner
ReportBuilder
[*] Bohdan Pomsahar <bpomsahar(zv)nocomment.sk> - 11.12.2000 16:57:16
br,
Vlozis do reportu subreport a dole sa objavi nova zalozka s cistou strankou
pre tvorbu reportu.
Box so subreportom sa automaticky meni podla poloziek a velkosti danych
hodnot.
Bohdan
Pomsahar
----- Original Message -----
From: "Bohdan Voska" <bohdan(zv)softok(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, December 11, 2000 1:14 PM
Subject: ReportBuilder
> Ahoj vsem,
>
> potrebuji programove v reportbuilderu do sestavy pridat subreport. Zkousel
> jsem ruzne moznosti jak subreport zalozit, ale nejak se mi to nedari.
Dejte
> navod jak se to ma spravne napsat. Mame verzi 5.5. Predem dik.
>
> Bohdan Voska
> SOFTWARE OK
> bohdan(zv)softok(tec)cz
>
>
>Vytvareni Aliasu pomoci Install shield express
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 11.12.2000 23:05:47
Hi all,
muj necesky hovorici kolega se snazi v ramci instalace vytvaret pomoci
Install shield express z dodavky D5 alaisy pro ODBC zdroje.
Me se zda, ze to je v principu hloupost, protoze jakmile nadefinuju DSN, tak
se mi mezi BDE Aliasy objevi automaticky.
Takze by spis po tom ISX mel chtit vytvoreni ODBC DSN, ale ten to asi
nedovede, nebo ano?
Thanx, pf
Jak se dostat na malou ikonu v MAINICON
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 11.12.2000 23:15:12
"Petr Vones" <pvones(zv)mbox.vol(tec)cz> wrote:
> to se chova spravne, viz napoveda:
> LoadIcon can only load an icon whose size conforms
> to the SM_CXICON and SM_CYICON system metric values.
> Use the LoadImage function to load icons of
> other sizes.
>
> Musis tedy pouzit API funkci LoadImage:
O.K. Nahradil jsem volani LoadIcon volanim LoadImage a ted si to opravdu
bere malou ikonu z MAINICON. Jeste otazka: kdyz pouzivam konstrukci:
TmpIcon := tIcon.Create;
try
TmpIcon.Handle := LoadImage(...);
...
finally
TmpIcon.Free;
end;
tak predpokladam, ze DestroyIcon() uz volat nemusim, ze to za me udela
destruktor tIcony.
Diky, pf
Indikace chyby pri tisku na radkovou tiskarnu
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 11.12.2000 23:27:04
Hi all,
potreboval bych nejakym zpusobem osetrit chybu pri tisku na lokalni radkovou
tiskarnu na platforme NT (zkousel jsem to na NT2000CZ). Potrebuju rezim, kdy
si ji otevru, vytisknu zpravidla 1 az 5 radku a zase ji zavru.
1. Jeste nejlip se to chova, kdyz nemam v systemu nainstalovanou zadnou
tiskarnu. Pak to pri operaci write na
nepripravenou/vypnutou/nepripojenou/rozbitou tiskarnu zustane viset po dobu
time-outu a nakonec to skonci na exception "InOutError s I/O error 1167."
2. Kdyz misto klasickych funkci writeln() pouziju tFileStream, je situace
horsi, to to zustane viset na kazdou operaci write(), ale zadnou exception
to nevyvola.
3. Jakmile nainstaluji alespon generic printer, tak se operace write tvari,
jako kdyby bylo vse v poradku a po uplynuti time-outu vyskoci dialog box:
"Pri tisku dokumentu No Document name na tiskarnu LPT1:
doslo k chybe: Zarizeni nepripojeno. chcete tisk opakovat nebo ulohu
zrusit?"
Tento dialog vyskoci i v pripade, ze mezitim aplikace skonci, protoze si
mysli, ze se vse vytisklo. Pokus potlacit tento dialog napr. pomoci
SetErrorMode() nikam nevedl, ostatne skoro jako vzdycky... BTW, uz nekdo
videl ten SetErrorMode() fungovat?
4. Pouziti AssignPrn() je jeste horsi, protoze v takovem pripade po close
dojde k odstrankovani tiskarny.
Nevite nekdo, jak se da tisknout na radkovou tiskarnu pod woknama, aby se to
chovalo alespon trochu slusne?
Neda se to nejak obsluhovat pomoci IOCTL?
Thanx, pf
telnet
[*] Michal Madle <mmadle(zv)seznam(tec)cz> - 11.12.2000 18:23:27
Chtel bych se zeptat, jestlil nekdo vite, jaky jsou prikazy telnetu a co
jak se pouzivaji.
Potreboval bych udelat jednoduchej telnet server, aby umel navazat spojeni,
neco vypsat na obrazovku na urceny misto a tak.
Diky za nejake napady.kopirovani adresare
[*] JIM Design <jim.design(zv)iol(tec)cz> - 11.12.2000 18:43:20
ahoj,
chtel bych zkopirovat adresar se vsemi soubory, pripadne podadresari,
existuje na to nejaka API fce nebo musim kopirovat soubor po souboru?
Diky
M.Jirman
MDAC verze
[*] JIM Design <jim.design(zv)iol(tec)cz> - 11.12.2000 18:43:19
zdravim,
jak zjistujete jaka je verze MDAC na PC?
Diky
M.Jirman
email / postovni klient
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.12.2000 18:47:16
From: "L. ZITA" <konference(zv)sales(tec)cz>
> Stahni si komponentu TJvMail (Autor P.Vones) z Jedi Code Library. Ta umi i
> daleko vic nez potrebujes.
Ahoj,
je to trochu jinak. TJvMail je komponenta z Jedi VCL Library, ktera pouziva
urcitou cast kodu z JCL: (http://delphi-jedi.org/Jedi:APILIBRARY)
V Jedi Code Library (http://delphi-jedi.org/Jedi:JCLDOWNLOADS), ktera neni
knihovnou komponent ale kodu (tridy, funkce) je jednoducha trida TJclEmail
pomoci ktere lze take odesilat zpravy. Tato trida je novejsi a jsou v ni
odstraneny nektere drobne chyby, ktere jsou v TJvMail komponente. Osobne si
jsem nazoru, ze neni treba mit (nevizualni) komponentu na kazdou drobnost a
pouziti psaneho kodu nekdy neni na skodu.
Priklad (vyzaduje verzi JCL Beta_2 z 10.12.2000, viz odkaz vyse):
uses
JclMapi;
// Pouziti class funkce TJclEmail.SimpleSendMail - vhodne pro jednoduche
// zpravy
procedure TForm1.Button1Click(Sender: TObject);
begin
TJclEmail.SimpleSendMail('adresa(zv)nekde(tec)cz', 'Jmeno', 'Predmet',
'Text zpravy');
end;
// Pouziti tridy TJclEmail - umoznuje pridat prilohy, CC a BCC, zobrazit
// okno se zpravou pred jejim odeslanim nebo primo vlozit do slozky
// 'Posta k odeslani'.
procedure TForm1.Button2Click(Sender: TObject);
begin
with TJclEmail.Create do
try
Recipients.Add('adresa(zv)nekde(tec)cz', 'Jmeno', rkTO);
Recipients.Add('dalsiadresa(zv)nekde(tec)cz', 'Dalsi Jmeno', rkCC);
Subject := 'Predmet';
Body := 'Text zpravy';
Attachments.Add('unit1.pas');
Attachments.Add('unit1.dfm');
Send;
finally
Free;
end;
end;
Objekt TJclEmail neni treba pokazde vytvaret a rusit, pokud je zamysleno jej
vyuzivat pro odesilani posty vicekrat. Veskere parametry zpravy lze smazat
metodou Clear.
Petr Vones, amatersky programator
Drag&Drop z externiho programu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.12.2000 18:54:48
From: "SSOU Vodochody s.r.o." <ssouvodochody(zv)mbox.vol(tec)cz>
> vedel by nekdo, jak zajisti, aby pri pretazeni odkazu na MAIL napriklad ze
> stranky zobrazene v IE na plochu meho programu byl muj program schopen tuto
> adresu prevzit a neco s ni udelat (zalozit do databaze, doplnit do nejakeho
> policka, zobrazit atd.) ? DELPHI 2.0
Ahoj,
dobre Drag&Drop komponenty jsou (http://www.melander.dk/delphi/dragdrop),
ovsem ne pro D2 (mozna uz je cas pro upgrade).
Petr Vones, amatersky programator
MDAC verze
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.12.2000 19:27:48
From: "JIM Design" <jim.design(zv)iol(tec)cz>
> jak zjistujete jaka je verze MDAC na PC?
Ahoj,
v unitu JclCOM (http://delphi-jedi.org/Jedi:JCLDOWNLOADS) mas funkci
GetMDACVersion.
Petr Vones, amatersky programator
TMemo a pocet riadkov
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 11.12.2000 19:33:58
Ahoj,
da sa nejako zistit, na kolko riadkov mi zalomil
text objekt TMemo pri WordWrap = True ?
Chcel by som podla toho korigovat rozmery
Mema tak, aby sa zobrazil cely text naraz
(bez nutnosti pouzit ScrollBars).
Vdaka.
Vlkovic
Jak se dostat na malou ikonu v MAINICON
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.12.2000 20:08:37
From: "Petr Fejfar" <development(zv)callnet(tec)cz>
> O.K. Nahradil jsem volani LoadIcon volanim LoadImage a ted si to opravdu
> bere malou ikonu z MAINICON. Jeste otazka: kdyz pouzivam konstrukci:
>
> TmpIcon := tIcon.Create;
> try
> TmpIcon.Handle := LoadImage(...);
> ...
> finally
> TmpIcon.Free;
> end;
>
> tak predpokladam, ze DestroyIcon() uz volat nemusim, ze to za me udela
> destruktor tIcony.
Presne tak.
Petr Vones, amatersky programator
Indikace chyby pri tisku na radkovou tiskarnu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 11.12.2000 20:27:23
From: "Petr Fejfar" <development(zv)callnet(tec)cz>
> "Pri tisku dokumentu No Document name na tiskarnu LPT1:
> doslo k chybe: Zarizeni nepripojeno. chcete tisk opakovat nebo ulohu
> zrusit?"
Ahoj,
asi to moc nepomuze, ale vyzkousej u te radkove tiskarny nastavit v Ovladacich
Panelech: Tiskarna -> zalozka Detaily -> tl. Zarazovani -> checkbox "Tisknout
primo na tiskarnu".
> Nevite nekdo, jak se da tisknout na radkovou tiskarnu pod woknama, aby se to
> chovalo alespon trochu slusne?
Zkus neco z tohodle:
http://www.efg2.com/Lab/Library/Delphi/Printing/JoeHechtPrtRaw.TXT
http://www.deja.com/getdoc.xp?AN=542540156
Petr Vones, amatersky programator
OT: UDF na nedeleni nulou
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 11.12.2000 21:12:33
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.
Hallohou,
potrebuji udelat UDF ktera osetri deleni nulou.
function DivNotZero(X, Y: Real):Real;
begin
if Y = 0 then
Result := 0
else
Result := X/Y;
end;
Ale nevim jak to napsat. Jak predavat ty promenne.
Za kazdou radu a pomoc moc dekuju,
<mailto:Michal.Tiller(zv)oskarmobil.Cz%20%20%20%20%20:o)>
Michal.Tiller(zv)oskarmobil.Cz :o)
RF Support Coordinator, OSKAR, RF - Engineering
+420 (02) 7117 1388, +420 (0608) 011 327<?xml:namespace prefix = o ns =
"urn:schemas-microsoft-com:office:office" />
telnet
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 11.12.2000 22:17:04
> Chtel bych se zeptat, jestlil nekdo vite, jaky jsou prikazy telnetu a co
> jak se pouzivaji.
>
> Potreboval bych udelat jednoduchej telnet server, aby umel navazat spojeni,
> neco vypsat na obrazovku na urceny misto a tak.
>
telnet jako takovy nema definovane zadne povely :-) To je veci serveru co vsechno povoli a zpristupni. Napriklad telnet na Linux server umoznuje plnohodnotnou praci s celym systemem...
Definice protokolu je rozdelena cca na 2 casti - jednak definice formatu radku (CRLF ukoncene radky) a jednak definice telnet options (specialnich sekvenci znaku, ktere informuji server napriklad o typu terminalu u klienta, vykonavaji specialni akce. Podivej se do RFC855 a RFC 854
D. Toman
Stranka html a odkaz na ni
[*] L. ZITA <konference(zv)sales(tec)cz> - 12.12.2000 01:17:10
----- Original Message -----
From: "Ale� Pavel" <bejcek(zv)centrum(tec)cz>> No a to bude ono jak zjistim, ze jsem online?
> komponenty? Kde je shrabnu?
> Dekuji ti, ale tak nejak jsem si to predstavoval, ale nejak mi to
> nezapalilo, mel jsem hodne slabou chvilku...
>
Ahoj.
http://www.rtfm.be/fpiette/indexuk.htm
Pripojeni zjistis pomoci :
RasDial is a replacement for Windows 95 RAS Dialer. It offers many
enhancements. Executable and Delphi 2 full source code included. Freeware
Na stahnuti souboru potrebujes:
HTTPCLI and HTTPSRV are Delphi components which implement the HTTP client
and server protocol. With the client component, you can get web pages or
files from a web server, or you can post informations. With the server
component, you can build a custom webserver or add a browser interface to
your Delphi/BCB application. Full source code provided, compatible with
Delphi and C++Builder (All versions). Freeware. Last update: April 23, 2000.
Taky se to da stahnout jako cela sada komponent vcetne prikladu, z kterych
to pochopis.
Ludek
kopirovani adresare
[*] �ampulka Ji�� - 12.12.2000 07:20:52
SHFileOperation()
----- Original Message -----
From: "JIM Design" <jim.design(zv)iol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, December 11, 2000 6:43 PM
Subject: kopirovani adresare
> ahoj,
>
> chtel bych zkopirovat adresar se vsemi soubory, pripadne podadresari,
> existuje na to nejaka API fce nebo musim kopirovat soubor po souboru?
>
> Diky
> M.Jirman
>
> Komunikace TCP/IP pres seriove porty
[*] Ji�� Vojtek - 12.12.2000 08:12:05
A nebylo by jednodusi si tam ty sitovky vrazit.(teda pokud to jde) Dneska to
uz neni takova investice. A pokud pouzijes napr RJ45 a kroucenej drat
nemusis mit hub ani nic jineho (nebo koax a muzes toho spojit vic naraz).
Jiri Vojtek
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Hurricane
> Sent: Sunday, December 10, 2000 11:21 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: OT: Komunikace TCP/IP pres seriove porty
>
>
> Zdravim
>
> Je sice mozne k "primenu propojeni kabelem" pridat IPX/SPX, ale primarni
> protokol pro prime propojeni je TCP/IP a IPX/SPX tam vubec byt nemusi. Tim
> ale nechci vyvracet obecne znamou pravdu, ze si k potrebnejm datum widle
> davaj spoustu nesmyslu. Jinak jsem dosel k zaveru, ze pres COMy
> widle spojit
> nelze. A po LPT jen pri spravne konstelaci hvezd. Zrovna dnes jsem se o to
> pokousel a widle se na me v 99,99% zvysoka vykaslaly. Po zadani jmena
> hostitelskeho stroje mi vyskocila hlaska ze hostitel neexistuje nebo tak
> neco, ale widle BYLY propojeny, jen nebylo co sdilet :-).
>
> Neexistuje nejaka jina moznost, jak propojit widle tak aby to
> vypadalo jako
> normalni sit (slozky v "okolni pocitace", sdileni,.....) se sitovkama a
> TCP/IP protokolem?
>
> Hurricane
> ----- Original Message -----
>
> > > Jinak tech 20kB ... nezapomen, ze si tam windouvsy pridavaj vsemoznej
> > > balast, proto se to zpomaluje... kdyby to bylo pod DOSem s nejakym
> > > vlastnim rizenim, tak bych veril tem rychlostem, cos psal...
> > zadne vlastni zarizeni - jen 2 PC a kabel (pasivni - jen draty)
>
> jo, to jo, ale ja myslel treba kdyz voknouvsi pres kabel pracujou jak s
> TCP/IP tak s IPX/SPX (a treba i necim dalsim), tak si tam musej pridavat
> nejaky (pro tebe neuzitecny) data, aby druha strana vedela jak to ma
> spracovat... Takhle sem to myslel a pod DOSem vlastni rizeni sem myslel
> pro SPP LPT ne pro COM (kde si to UART ridi sam - jenom dodavas data) a
> ne pro ECP/EPP LPT...
>
>ReportBuilder
[*] Bohdan Voska <bohdan(zv)softok(tec)cz> - 12.12.2000 08:17:58
Ahoj,
to umim take. Ja bych potreboval neco jako SubReport :=
TppSubReport.Create(self) atd. Jenze nevim jak to presne napsat. Potrebuji
zalozit Subreport programove ne pomoci tahani mysi.
Bohdan Voska
SOFTWARE OK
bohdan(zv)softok(tec)cz
----- P�vodn� zpr�va -----
Od: Bohdan Pomsahar <bpomsahar(zv)nocomment.sk>
Komu: <delphi-l(zv)fwd(tec)cz>
Odesl�no: 11. prosince 2000 16:57
P�edm�t: Re: ReportBuilder
> br,
>
> Vlozis do reportu subreport a dole sa objavi nova zalozka s cistou
strankou
> pre tvorbu reportu.
> Box so subreportom sa automaticky meni podla poloziek a velkosti danych
> hodnot.
>
> Bohdan
> Pomsahar
>
> ----- Original Message -----
> From: "Bohdan Voska" <bohdan(zv)softok(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, December 11, 2000 1:14 PM
> Subject: ReportBuilder
>
>
> > Ahoj vsem,
> >
> > potrebuji programove v reportbuilderu do sestavy pridat subreport.
Zkousel
> > jsem ruzne moznosti jak subreport zalozit, ale nejak se mi to nedari.
> Dejte
> > navod jak se to ma spravne napsat. Mame verzi 5.5. Predem dik.
> >
> > Bohdan Voska
> > SOFTWARE OK
> > bohdan(zv)softok(tec)cz
> >
> >
> >
>
>
OT(in plain text): UDF na nedeleni nulou
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 12.12.2000 08:40:26
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.
OMLOUVAM SE za format ve kterem jsem doposud psal sve OT.
Hallohou,
potrebuji udelat UDF ktera osetri deleni nulou.
function DivNotZero(X, Y: Real):Real;
begin
if Y = 0 then
Result := 0
else
Result := X/Y;
end;
Ale nevim jak to napsat. Jak predavat ty promenne.
Mam knihovnu FreeUDFLib.dll, ve ktere pouzivam funkce s parametry TIMESTAMP,
ale funkce s parametry Double mi hlasi odpojeni serveru:(
Za kazdou radu a pomoc moc dekuju,
Michal.Tiller(zv)oskarmobil.Cz :o)
RF Support Coordinator, OSKAR, RF - Engineering
+420 (02) 7117 1388, +420 (0608) 011 327
Systemove tabulky IB6
[*] David Lebeda <david.lebeda(zv)comarr(tec)cz> - 12.12.2000 08:54:44
Ahoj,
pri zkoumani jedne databaze v IB6 jsem zjistil pro me
nevysvetlitelnou vec. Mel jsem tabulku a v ni chtel smazat sloupec.
Zadne okolnosti (zavislost dat apod.) tomu nebranily, presto mi to
vyhazovalo hlasku, ze existuji zavisle objekty. To mi prislo jako
nesmysl, pustil jsem IBAdmin a dependencies explorer. A ukazalo
se, ze tabulka udajne zavisi na nejakem triggeru (podle ikony)
DB$448, jina tabulka zase nekolikrat na objektu OOL, coz byl
podle ikon jak trigger, tak na jinem radku ulozena procedura. V
systemove tabulce triggeru ani jinych objektu zadne takove objekty
neexistuji. Jedine misto, kde se vyskytovalo OOL i DB$448 byla
tabulka zavislosti RDB$DEPENDENCIES. Bylo v ni spousta
duplicit a i uvedene nesmysly.
Jak je mozne ze ma IB6 v systemovych tabulkach takovy
bordel? Setkali jste se necim podobnym? A da se s tim delat neco
jineho, nez tyto tabulky obcas rucne promazat?
Dik.
David Lebeda
UDF na nedeleni nulou
[*] L. ZITA <konference(zv)sales(tec)cz> - 12.12.2000 09:14:48
----- Original Message -----
From: "Michal Tiller" <Michal.Tiller(zv)oskarmobil(tec)cz>
> Hallohou,
> potrebuji udelat UDF ktera osetri deleni nulou.
>
> function DivNotZero(X, Y: Real):Real;
> begin
> if Y = 0 then
> Result := 0
> else
> Result := X/Y;
> end;
>
> Ale nevim jak to napsat. Jak predavat ty promenne.
> Za kazdou radu a pomoc moc dekuju,
>
Ahoj.
Jestli je to k IB6, tak si stahni
FreeUDFLib (A Free UDF Library for InterBase Servers) Gregory H. Deatz
Je to i se zdrojaky v Delphi, z toho to poznas.
Ludek
telnet
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 12.12.2000 09:24:59
>
>Aky telnet potrebujes? Mam wy120 a vt100.***asi VT100
>Werki
IDL soubory v CORBA
[*] Rostislav Havl�k <Rostislav.Havlik(zv)atlas(tec)cz> - 12.12.2000 10:08:55
Zdravim,
no, na http://www.borland.com je ke stazeni upgrade VisiBroker-u 3.3 pro
Delphi 5 Ent. a ten jiz idl2pas obsahuje. Jinak musis IDL-ko namapovat
rucne. Bohuzel neexistuji pravidla jak mapovat tridy ObjectPascalu z/do IDL.
Tusim, ze nekde na www.corba.org, mezi oficialni dokumentaci je popis
mapovani do Fortranu, Cobolu, C++ a Javy. Tak se nech inspirovat jak na to.
Co se tyka toho klienta v Delphi, tak ten ti nepojede pokud nebudes mit
nainstalovany VisiBroker for C++. Je to ten samy, ktery se dodava s Delphi
Ent.
To je vse co se mi k tomu podarilo zjistit.
S pozdravem
Rosta
P.S.: potrebujes D4 C/S nebo lepe D5 Ent. s upgradem VisiBorker-u
>
> Ahoj,
> zkousim CORBA server/klient v Jave, tam mi vsechno bezi dle ocekavani.
> Ted chci udelat klienta v Delphi, mam k dispozici IDL soubor.
> Nevim jak vygenerovat prislusne PAS soubory, idl2pas nemam,
> VisiBroker stahovat nechci, nebot je trial a ac jsem cenu na Borlandu
> nenasel, nepochybne nebude free.
> Jde to vubec nejak vyresit? Na internetu jsem k tomu moc nenasel
> a ani nevim, jestli jdu spravnou cestou...
>
> Leos
>
> PS: Ted mam sice v praci C/S ale kdyby to fungovalo s Professionalem,
> bylo by to uplne nejlepsi.
>komprimovanie
[*] Rene Pizur <pizur(zv)nr.dflex.sk> - 12.12.2000 10:39:54
Zdravim,
nema niekto z Vas nejaky Unit alebo kniznicu na komprimovanie a dekomprimova
nie
suborov - najlepsie v nejakom standardnom formate Zip, Arj, Rar?
Rene Pizur
kopirovani adresare
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 12.12.2000 10:50:42
zdravim,
zkus naimportovat typovou knihovnu scrrun.dll ze systemove slozky a tam je
objekt Scripting.FileSystemObject, ktery ma metodu CopyFolder. Vice
informaci je v dokumentaci k Javascriptu.
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
----- Original Message -----
From: "JIM Design" <jim.design(zv)iol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, December 11, 2000 6:43 PM
Subject: kopirovani adresare
> ahoj,
>
> chtel bych zkopirovat adresar se vsemi soubory, pripadne podadresari,
> existuje na to nejaka API fce nebo musim kopirovat soubor po souboru?
>
> Diky
> M.Jirman
MS Exchange mail klient
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 12.12.2000 10:59:21
Ahojte all.
Tak ma napadlo ci niekto z vas nema kusok kodu na komunikaciu s
MS Exchange. Ale nie taku, ktora vyzaduje Outlook
nastaveny ako default mailer. Proste nieco co vie pouzit funkcie z
DLL outlooku.
Vdaka.
/LH
---------------------------------------------------------------
Ing. Lubos Hubka
SW Developer mailto:L.HUBKA(zv)trenkwalder.com
Trenkwalder Engineering, s.r.o. Tel. : +421 7 5810 1140
Mlynsk� nivy 56 Fax : +421 7 5810 1133
821 05 Bratislava, Slovakia
www.trenkwalder.com
---------------------------------------------------------------
Komunikace TCP/IP pres seriove porty
[*] Michal K�s <kus(zv)tangosw(tec)cz> - 12.12.2000 11:07:02
> Zdravim
>
> Je sice mozne k "primenu propojeni kabelem" pridat IPX/SPX,
> ale primarni
> protokol pro prime propojeni je TCP/IP a IPX/SPX tam vubec
> byt nemusi. Tim
> ale nechci vyvracet obecne znamou pravdu, ze si k potrebnejm
> datum widle
> davaj spoustu nesmyslu. Jinak jsem dosel k zaveru, ze pres
> COMy widle spojit
> nelze. A po LPT jen pri spravne konstelaci hvezd. Zrovna dnes
> jsem se o to
> pokousel a widle se na me v 99,99% zvysoka vykaslaly. Po zadani jmena
> hostitelskeho stroje mi vyskocila hlaska ze hostitel
> neexistuje nebo tak
> neco, ale widle BYLY propojeny, jen nebylo co sdilet :-).
Nastav si na obou masinach 19 kilo a pojede ti to jako vino. Bohuzel nad
dvacet se nedostanes. Na MS webu jsem nasel tohle:
The server side of a Direct Client-to-Client Protocol connection is
limited to 19,200 bits per second (bps).
Hezke a chytre, ze. Urcite k tomu maji tunu logickych a technickych
duvodu proc to tak je.
PS. Pri 19200 spojis 95 - 98 - 2000 v libovolne kombinaci, se sdilenim
atd. Jako normalni ale poooomala sit. Overeno.
>
> Neexistuje nejaka jina moznost, jak propojit widle tak aby to
> vypadalo jako
> normalni sit (slozky v "okolni pocitace", sdileni,.....) se
> sitovkama a
> TCP/IP protokolem?
>
> Hurricane
> ----- Original Message -----
>
> > > Jinak tech 20kB ... nezapomen, ze si tam windouvsy
> pridavaj vsemoznej
> > > balast, proto se to zpomaluje... kdyby to bylo pod DOSem s nejakym
> > > vlastnim rizenim, tak bych veril tem rychlostem, cos psal...
> > zadne vlastni zarizeni - jen 2 PC a kabel (pasivni - jen draty)
>
> jo, to jo, ale ja myslel treba kdyz voknouvsi pres kabel
> pracujou jak s
> TCP/IP tak s IPX/SPX (a treba i necim dalsim), tak si tam
> musej pridavat
> nejaky (pro tebe neuzitecny) data, aby druha strana vedela jak to ma
> spracovat... Takhle sem to myslel a pod DOSem vlastni rizeni
> sem myslel
> pro SPP LPT ne pro COM (kde si to UART ridi sam - jenom
> dodavas data) a
> ne pro ECP/EPP LPT...
>
>
>
> Rychlost MSDE vs. Access
[*] Petr Reichl <p.reichl(zv)gmc(tec)net> - 12.12.2000 11:09:43
Dobry den,
pracuji na programu, ktery vyuziva MSDE. Je to druha verze programu, pricemz
prvni verze je postavena na uplne jinem reseni, takze slouzi pouze jako
vzor.
Puvodni reseni je zalozeno na Visual Basic 4 a Access 2. Moje nove reseni je
postaveno na Delphi 5 a MSDE. Na prvni pohled se muze zdat, ze nove reseni
je mnohem lepsi, ale ja se potykam s tim, ze je velmi znatelne pomalejsi.
Zvlaste na pomalych strojich je ten rozdil velmi znat.
Nesetkal jste se s timto problemem uz nekdo? Muzete nejak poradit?
Petr Reichl telnet
[*] Michal Madle <mmadle(zv)seznam(tec)cz> - 12.12.2000 10:37:10
Potreboval bych VT100
Michal Madle.
At 07:56 12.12. 2000 -0800, you wrote:
> > > Chtel bych se zeptat, jestlil nekdo vite, jaky jsou prikazy telnetu a
>co
> > > jak se pouzivaji.
> > >
> > > Potreboval bych udelat jednoduchej telnet server, aby umel navazat
>spojeni,
> > > neco vypsat na obrazovku na urceny misto a tak.
>
>Aky telnet potrebujes? Mam wy120 a vt100.
>
>Werki
talk protokol
[*] Peter Rafaj <8rafaj(zv)st.fmph.uniba.sk> - 12.12.2000 11:53:30
Cafte
Neviete, kde by som zistil presny popis talk protokolu, alebo nejaky
zdrojak v Delphach? Dik.
Peter Rafaj
MainMenu a obsluha ShortCuts klaves
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 12.12.2000 12:03:46
Miroslav Barica wrote:
>
> co tak aktivovat druhy form metodou showmodal???
Nie, to mi nevyhovuje.
Vlkovic
> Ahoj,
>
> v hlavnom forme aplikacie mam TMainMenu
> s definovanymi klavesovymi skratkami.
> Po aktivacii ineho formulara (metodou Show)
> je toto menu stale aktivne (napr. reaguje
> na Alt ako i pridruzene kl.skratky).
> Riesil som to tak, ze na druhy form,
> som umiestnil jeden prazdny objekt TMainMenu.
> Radsej by som vsak vyriesil tento problem
> priamo. Nevie niekto poradit? (D3)
>
> Vdaka,
> Vlkovic
Index Service
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 12.12.2000 12:05:07
Ahoj,
potreboval bych nejaky fulltextovy stroj, ktery by bezel na lokale a
indexoval data (na tom lokale, ne na Internetu), ktera mu predhodim.
Nasledne by samozrejme taky mel byt schopen (na muj dotaz), vratit
patricne vysledky. Potreboval bych jednak definovat co (a jakym
zpusobem) ma indexovat a potom taky v jakem formatu ma vracet ony
vysledky. A kdyby to cele bylo free tak by to bylo uplne nejlepsi :-).
Nebo, pokud nekdo umi obsluhovat Indexing Service ve W2000 z Delphi a
byl by ochoten se o to podelit, byl bych vdecny.
Ales
TMemo a pocet riadkov
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 12.12.2000 12:09:19
Ahoj, vyzera to ze riesenie mojho
problemu nie je :-(
Skusim nieco ine.
Chcel by zobrazovat hint, ktory mi automaticky
bude zalamovat riadky na urcenu sirku.
Okrem toho potrebujem, aby mi Hint "svietil"
stale, kym ho sam nevypnem.
Riesil som to tak, ze som si vytvoril
TMemo s rovnakym vzhladom ako Hint.
A toto "zobrazujem/zhasinam" podla potreby.
Ako som sa uz pytal, neviem vyriesit adjustaciu
vysky tohto mema podla mnozstva zobrazeneho textu.
Neporadi niekto ?
Vlkovic
> Ahoj,
>
> da sa nejako zistit, na kolko riadkov mi zalomil
> text objekt TMemo pri WordWrap = True ?
>
> Chcel by som podla toho korigovat rozmery
> Mema tak, aby sa zobrazil cely text naraz
> (bez nutnosti pouzit ScrollBars).
>
> Vdaka.
>
> Vlkovic
Rychlost MSDE vs. Access
[*] Lubo Fule <fule(zv)sct.sk> - 12.12.2000 12:13:31
Akym sposobom pristupujes z Delphi na MSDE?
> nove reseni je
> postaveno na Delphi 5 a MSDE. Na prvni pohled se muze zdat, ze nove reseni
> je mnohem lepsi, ale ja se potykam s tim, ze je velmi znatelne pomalejsi.
> Zvlaste na pomalych strojich je ten rozdil velmi znat.
zacatecnicky roblem : BDE a Install SHield
[*] milan_2(zv)sose-sou(tec)cz - 12.12.2000 12:19:36
Dotaz:
Mam projekt, kde pouzivam jeden soubor *.DB z DBDEMOS.
Pri pouziti InstallSHieldu v D5 si pridam instalaci BDE a ......
.... jak to bude vypadat ? Jak dam najevo, kterej souburek DB chci pridat
k instalaci ?
Chtelo to po nme nejake Aliasy ... ????
Co s tim a jak to lze udelat ?????
Dik za jakykoli help.
MIlan
--------------------------
Milan = Milan2(zv)sose-sou(tec)cz
Informacni technologie
SOSE-Sou Usti n.L
komprimovanie
[*] Ing. Pavel �ilinec <zilinec(zv)fpozn(tec)cz> - 12.12.2000 12:52:07
> Zdravim,
>
> nema niekto z Vas nejaky Unit alebo kniznicu na komprimovanie a
dekomprimova
> nie
> suborov - najlepsie v nejakom standardnom formate Zip, Arj, Rar?
>
> Rene Pizur
Existuje komponenta ZipMaster. O ZIP komponentach a jeich Freeware na
nasledujicich adresach
e-mail: cvleghrt(zv)WorldOnline.nl
www: http://www.geocities.com/SiliconValley/Orchard/8607/ or
www: http://members.tripod.lycos.nl/Vleghert/
or
e-mail: englere(zv)swcp.com
www: http://www.geocities.com/SiliconValley/Network/2114/
www: http://members.tripod.com/englere/
(Zkopirovano z jejich unity :-)))
Handle okna
[*] Uniplet T�eb�� - elektronika - 12.12.2000 13:23:21
Caute
mozna trochu lajcky dotaz ale prece jenom :
opravte me jestli se pletu, ale nejsem si jist, HANDLE nejakeho akna v aplikaci i kdyz se jedna o MDI aplikaci se
nikdy neopakuje, ale jak je to v pripade s HANDLEM nejake komponmenty kdyz v prubehu programu ju vytvarim znovu a znovu ( rekneme tu samou komponentu PANEL ), ale po kazde v novem okne
DIK
MS Exchange mail klient
[*] brant(zv)dcomm(tec)cz - 12.12.2000 13:25:12
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.
Zrovna neco takoveho pisu (diky P. Vonesovi a ing. Fialovi vim, jak na to),
tak tady je zdrojak. Kdyz tak napis (nebo i ostatni) sve pripominky.
Vzhledem k tomu, ze neco takoveho pisu poprve, asi jich bude dost.
RNDr. Petr Brant [Brant(zv)dcomm(tec)cz]
D&COMM s.r.o
Korunova�n� 6
Praha 7
unit SitrMailing;
interface
uses Windows;
type TSitrMailing = class (TObject)
public
constructor Init(AppHandle: THandle);
destructor Done;
function SendMail(Subject,
Sender,
ReceiverAddress,
CCReceiverAddress,
MsgText,
AttachedFileName: string;
SendCopy, ShowClientDlg: boolean) : Cardinal;
private
AppHandle: THandle;
end;
implementation
uses Mapi, Registry;{ TSitrMailing }
destructor TSitrMailing.Done;
begin
end;
constructor TSitrMailing.Init(AppHandle: THandle);
begin
self.AppHandle:=AppHandle;
end;
function TSitrMailing.SendMail(Subject, Sender, ReceiverAddress,
CCReceiverAddress, MsgText, AttachedFileName: string; SendCopy,
ShowClientDlg: boolean) : Cardinal;
var
Zprava : MapiMessage;
Prijemce : array [0..1] of MapiRecipDesc;
Soubor : MapiFileDesc;
Vysledek : Cardinal;
Reg : TRegistry;
MailFlags: Cardinal;
begin
{ nastavime simple MAPI }
Reg := TRegistry.Create;
try
with Reg do begin
RootKey := HKEY LOCAL MACHINE;
if OpenKey('\Software\Microsoft\Windows Messaging Subsystem', False)
then WriteString('MAPI', '1');
end;
finally
Reg.CloseKey;
Reg.Free;
end;
{ struktura prijemce }
with Prijemce[0] Do Begin
ulReserved := 0;
ulRecipClass := Mapi To;
lpszName := PChar(ReceiverAddress);
lpszAddress := nil;
ulEIDSize := 0;
lpEntryID := nil;
end;
with Prijemce[1] Do Begin
ulReserved := 0;
ulRecipClass := Mapi CC;
lpszName := PChar(CCReceiverAddress);
lpszAddress := nil;
ulEIDSize := 0;
lpEntryID := nil;
end;
{ struktura prilohy }
with Soubor do begin
ulReserved := 0;
flFlags := 0;
nPosition := 0;
lpszPathName := PChar(AttachedFileName);
lpszFileName := PChar(AttachedFileName);
lpFileType := nil;
end;
{ struktura vlastni zpravy }
with Zprava do begin
ulReserved := 0;
lpszSubject := PChar(Subject);
lpszNoteText := PChar(MsgText);
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
if SendCopy
then nRecipCount := 2
else nRecipCount := 1;
lpRecips := (zv)Prijemce;
if AttachedFileName<>'' then
begin
nFileCount := 1;
lpFiles := (zv)Soubor;
end else
begin
nFileCount := 0;
lpFiles := nil;
end;
end;
{ pokusime se to odeslat }
MailFlags:=Mapi LogOn UI or Mapi New Session;
if ShowClientDlg then MailFlags:=MailFlags or Mapi Dialog;
Result := MapiSendMail(0, AppHandle, Zprava, MailFlags, 0);
end;
end.
-----Original Message-----
From: Hubka Lubos [mailto:L.Hubka(zv)trenkwalder.com]
Sent: Tuesday, December 12, 2000 10:59 AM
To: delphi
Subject: MS Exchange mail klient
Ahojte all.
Tak ma napadlo ci niekto z vas nema kusok kodu na komunikaciu s
MS Exchange. Ale nie taku, ktora vyzaduje Outlook
nastaveny ako default mailer. Proste nieco co vie pouzit funkcie z
DLL outlooku.
Vdaka.
/LH
---------------------------------------------------------------
Ing. Lubos Hubka
SW Developer mailto:L.HUBKA(zv)trenkwalder.com
Trenkwalder Engineering, s.r.o. Tel. : +421 7 5810 1140
Mlynsk� nivy 56 Fax : +421 7 5810 1133
821 05 Bratislava, Slovakia
www.trenkwalder.com
---------------------------------------------------------------
Handle okna
[*] Lubo Fule <fule(zv)sct.sk> - 12.12.2000 13:54:00
Ak sa nemylim, tak ZIADNY HANDLE SA v ramci celeho windows-u nielen v ramci
aplikacie NEOPAKUJE.
L.
>opravte me jestli se pletu, ale nejsem si jist, HANDLE nejakeho akna v
aplikaci i kdyz se >jedna o MDI aplikaci se
>nikdy neopakuje, ale jak je to v pripade s HANDLEM nejake komponmenty kdyz
v prubehu >>>
>programu ju vytvarim znovu a znovu ( rekneme tu samou komponentu PANEL ),
ale po kazde v novem okne
Indikace chyby pri tisku na radkovou tiskarnu
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 12.12.2000 19:59:12
"Petr Vones" <pvones(zv)mbox.vol(tec)cz> wrote:
> asi to moc nepomuze, ale vyzkousej u te radkove
> tiskarny nastavit v Ovladacich Panelech: Tiskarna ->
> zalozka Detaily -> tl. Zarazovani -> checkbox
> "Tisknout primo na tiskarnu".
Bohuzel, to opravdu nepomuze, protoze vse, co jsem popsal, plati pro tisk
primo na tiskarnu. Jakmile se tiskne pres spooler, tak ten se podle mych
zkusenosti pro tisk journalu vubec pouzit.
Bye, pf
Access - pro a proti
[*] Petr Sikola <P.Sikola(zv)sh.cvut(tec)cz> - 12.12.2000 14:03:44
Zdravim vsechny,
potrebuju nejake zasvecene informace o databazi v accessu, jedna se mi o
obecne informace (rychlost, bezpecnost, vykon...)
predpoklada se, ze na databazi bude bezet informacni system + ucetnictvi
(dohromady) stredne velke firmy (cca 25 klientu).
Rad bych vedel vase nazory na DB v accessu.
Mnohokrat dekuji Petr Sikola
MS Exchange mail klient
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 12.12.2000 14:04:28
From: "Hubka Lubos" <L.Hubka(zv)trenkwalder.com>
> Tak ma napadlo ci niekto z vas nema kusok kodu na komunikaciu s
> MS Exchange. Ale nie taku, ktora vyzaduje Outlook
> nastaveny ako default mailer. Proste nieco co vie pouzit funkcie z
> DLL outlooku.
Ahoj,
presne toto umit trida TJclEmail (http://delphi-jedi.org/Jedi:JCLDOWNLOADS)
kde si muzes zvolit i jineho klienta nez ten ktery je nastaven jako vychozi.
Petr Vones, amatersky programator
nevyhody packed recordu
[*] Ota Maly <ota.maly(zv)volny(tec)cz> - 12.12.2000 14:12:40
Ahoj,
jsou nejake %SUBJ%?
Je nejaky duvod, proc je nepouzivat?
Neptam se na rychlost, protoze to bude podle me naprosto nevyznamne
zpomaleni, ale spis jestli nahodou nejsou nejake problemy s kompatibilitou,
pretypovanim a vubec..
S pozdravem
Ota Maly
PaPouch elektronika
http://www.papouch.com
SMTP cez MS Exchange
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 12.12.2000 14:42:11
Caute All.
Nevie nahodou niekto ako mam vyplnit hlavicku mailu, aby
mi presiel cez MS Exchange server?
Ked poslem normalne niekto(zv)server.sk tak Exchange hlada adresata
vo svojom zozname a ked ho nenajde tak vypise chybu.
Ja by som potreboval aby to poslal dalej. Ze vraj je na to nejaky
klucovy string, ktory mu to povie. Neviete niekto ze aky?
Vdaka.
/LH
---------------------------------------------------------------
Ing. Lubos Hubka
SW Developer mailto:L.HUBKA(zv)trenkwalder.com
Trenkwalder Engineering, s.r.o. Tel. : +421 7 5810 1140
Mlynsk� nivy 56 Fax : +421 7 5810 1133
821 05 Bratislava, Slovakia
www.trenkwalder.com
---------------------------------------------------------------
Rychlost MSDE vs. Access
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 12.12.2000 14:51:09
On 12 Dec 2000, at 11:09, Petr Reichl wrote:
> Puvodni reseni je zalozeno na Visual Basic 4 a Access 2. Moje nove
> reseni je postaveno na Delphi 5 a MSDE. Na prvni pohled se muze zdat,
> ze nove reseni je mnohem lepsi, ale ja se potykam s tim, ze je velmi
> znatelne pomalejsi. Zvlaste na pomalych strojich je ten rozdil velmi
> znat.
Rychlost lze ovlivnit zpusobem pripojeni. Pokud na to jdes pres
BDE, pak to zkus treba pres ADO. ADO je vsak nekdy treba
vyladit.
Dalsi vec, se kterou je treba pocitat, pri mensich objemech
ulozenych dat je SQL databaze zpravidla pomalejsi nez souborova.
Take vyzaduje vice pameti.
S pozdravem
Zbysek Hlinka
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Program na Indent Source Code
[*] Michal.Michal <delphi-konference(zv)bcpraha(tec)com> - 12.12.2000 14:52:40
Zdravim vsechny,
Nevite nekdo, jestli neexistuje program, ktery by upravoval styl
zdrojaku delphi (pascalu). Myslim napr. odsazeni bloku, vnorovani bloku,
psani if else bloku, atd. Pro C snad neco takoveho pod linuxem existuje.
Predem dekuji
Michal
Grafika v ToolBar
[*] Zapl�k���ͪe�?�Y��̿ - 12.12.2000 14:57:06
D5,profi
Mam v apikaci ToolBar, a v nem nekolik tlacitek ToolButton. Vse je celkem
OK, ale nezobrazuji se mi ikony v techto tlacitkach. Fak je ten, ze mi to
dela jen na nekterych PC. Na jednom je videokarta Matrox a na druhem
OAC..... Ja mam ve svem PC S3 a zde je to OK. Nevite nekdo v cem by mohl byt
problem? U vetsiny uzivatelu je to v poradku, ale rad bych vyresil i ty
problemove. Neseltkal se s tim nekdo? Menil jsem rozliseni i pocet barev a
bez uspechu. Jestli to delaji drivery od karty nevim, nebot si nemohu
dovolit uzivatele nutit k zmene driveru nebo videokarty. OS je ruzny, 95 -98
na NT nebo 2000 jsem to zatim nepozoroval.
Za sebemensi radu budu nesmirne vdecny.
zaplik
zaplik(zv)volny(tec)cz
nevyhody packed recordu
[*] Lubo Fule <fule(zv)sct.sk> - 12.12.2000 15:04:37
Okrem zanedbatelneho spomalenia neviem o ziadnych nevyhodach.
L.
> jsou nejake %SUBJ%?
> Je nejaky duvod, proc je nepouzivat?
>
> Neptam se na rychlost, protoze to bude podle me naprosto nevyznamne
> zpomaleni, ale spis jestli nahodou nejsou nejake problemy s
> kompatibilitou,
> pretypovanim a vubec..
Program na Indent Source Code
[*] Ji�� Foldyna <jiri.f(zv)avizo(tec)cz> - 12.12.2000 15:16:09
Ahoj,
pouzivam DelForEx, je docela dobry a zda se, ze neskodi :-)). Bud se podivej
po netu, nebo muzu poslat, ma to asi 200 kB.
Ing. Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
> Zdravim vsechny,
>
> Nevite nekdo, jestli neexistuje program, ktery by upravoval styl
> zdrojaku delphi (pascalu). Myslim napr. odsazeni bloku,
> vnorovani bloku,
> psani if else bloku, atd. Pro C snad neco takoveho pod
> linuxem existuje.
Rychlost MSDE vs. Access
[*] Petr Reichl <p.reichl(zv)gmc(tec)net> - 12.12.2000 15:20:11
Pres ADOExpress (D5 Enterprise)
| -----Original Message-----
| From: Lubo Fule [mailto:fule(zv)sct.sk]
| Sent: Tuesday, December 12, 2000 12:14 PM
| To: delphi-l(zv)fwd(tec)cz
| Subject: RE: Rychlost MSDE vs. Access
|
|
| Akym sposobom pristupujes z Delphi na MSDE?
|
| > nove reseni je
| > postaveno na Delphi 5 a MSDE. Na prvni pohled se muze zdat,
| ze nove reseni
| > je mnohem lepsi, ale ja se potykam s tim, ze je velmi
| znatelne pomalejsi.
| > Zvlaste na pomalych strojich je ten rozdil velmi znat.
|
|
| TMemo a pocet riadkov
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 12.12.2000 15:26:41
A co takhle toto:
function TChatForm.MeasureString(const S: String; widthAvail: Integer):
Integer;
var
Flags: Longint;
r: TRect;
begin
Canvas.Font:= Messages.Font;
Result := Canvas.TextWidth( S );
If widthAvail > 0 Then
Begin
Flags := DrawTextBiDiModeFlags(
DT_WORDBREAK or DT_NOPREFIX or DT_CALCRECT);
r:= Rect( 0, 0, widthAvail-2, 1 );
DrawText( canvas.handle, Pchar(S), Length(S), r, flags );
Result := r.Bottom;
Inc(result,4);
If Result > 255 Then
Result := 255;
{ Note: item height in a listbox is limited to 255 pixels since Windows
stores the height in a single byte.}
End;
end;
Tim si lze zmerit vysku textu pri urcite sirce - dokonce to zalamuje i
slova samo.
>Chcel by zobrazovat hint, ktory mi automaticky
>bude zalamovat riadky na urcenu sirku.
>Okrem toho potrebujem, aby mi Hint "svietil"
>stale, kym ho sam nevypnem.
>
>Riesil som to tak, ze som si vytvoril
>TMemo s rovnakym vzhladom ako Hint.
>A toto "zobrazujem/zhasinam" podla potreby.
>
>Ako som sa uz pytal, neviem vyriesit adjustaciu
>vysky tohto mema podla mnozstva zobrazeneho textu.
>
>Neporadi niekto ?
>
>Vlkovic
>
>
> > Ahoj,
> >
> > da sa nejako zistit, na kolko riadkov mi zalomil
> > text objekt TMemo pri WordWrap = True ?
> >
> > Chcel by som podla toho korigovat rozmery
> > Mema tak, aby sa zobrazil cely text naraz
> > (bez nutnosti pouzit ScrollBars).
> >
> > Vdaka.
> >
> > Vlkovic
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
funk�n� ScrollLock
[*] Vilem Svoboda <vilem_s(zv)mrp(tec)cz> - 12.12.2000 15:33:24
> > > potreboval bych aktivovat/deaktivovat mou aplikaci bezici na pozadi
> > > pomoci scrolllocku. Neco jsem nasel v archivu, ale bez prakticke
> > > ukazky :-(
> >
> > napriklad takhle (i kdyz pozor, nekteri povazuji ScrollLock klavesu za
> > hlavniho nepritele ;-)
>
> Nepovazuji, on to skutecne uhlavni nepritel je. Nyni lze najit
> agitacni propagandu na http://slhaters.hlinka(tec)cz .
>
> Kazdopadne bych chtel pred pouzivanim teto klavesy durazne
> varovat, protoze krome moznosti ziskani zavislosti, vredu, ztraty
> vlasu, vykloubeni prstu a tak podobne, se jedna o stavovou klavesu.
> Pokud nahodou napadne nekoho jineho pouzit take ScrollLock a
> oba programy pobezi vedle sebe, muze dojit i k dost vaznym
> problemum.
>
Nejen ze k vaznym problemum muze dojit, ono k nim take dochazi!!! Viz
nedavne povolebni tahanice v USA o to, kdo vlastne bude prezidentem. Na teto
udalosti lze s uspechem demonstrovat zbytecnost a potazmo skodlivost
pritomnosti klavesy ScrollLock na klavesnici. Je zrejme, ze doslo ke zcela
pochopitelnemu jevu, kdy znacna cast volicu roztresena odpovednosti si
spletla klavesu NumLock, potrebnou k aktivaci numericke klavesnice, s
podobnou klavesou ScrollLock. Proto misto toho, aby hlasovali pro Bushe
(jednickou) nebo pro Gora (jednickou), "zavinuli a uzamkli" pocitac a ten
vyplivl chybny hlasovaci listek. Dukaz bylo lze spatrit ve sdelovacich
prostredcich. Misto elegantne vyseknute dirky jsme mohli spatrit podivny
zavinuty chumac papirovych vlaken, z cehoz ani scitaci stroj firmy IBM nebyl
s to rozhodnout.
Ve svetle teto a nescetneho mnozstvi dalsich zprav, ktere muzete shlednout
na strankach http://slhaters.hlinka(tec)cz je s podivem, ze jeste nekdo uvazuje,
tuto zbytecnou a skodlivou klavesu vyuzit ve svem programu :-)
S pozdravem
Vilda (posledni namestek reditele pro sledovani korespondence SLH :)
OT: SQL-Editor komponenta
[*] Michal Tiller <Michal.Tiller(zv)oskarmobil(tec)cz> - 12.12.2000 15:37:12
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.
Mam par otazek.
1/Je nejaky schopny administracni tool pro IB? Free! SQL Explorer uz me
neba:)
2/Existuje componenta pro psani SQL dotazu jako TMemo, ktera by se pripojila
na DB a sama by pri psani nabyzela Tabulky, View, Fieldy.... tak jako
Delphi?
Michal.Tiller(zv)oskarmobil.Cz :o)Index Service
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 12.12.2000 15:38:49
No, kdysi jsem neco takoveho delal pro PNWS, ale protoze to pomalu nacita
data z disku, je to asi nepouzitelne, ale v pameti to indexuje fakt rychle.
50 MB RFC zindexoval asi za dve minuty a pak hledani bylo nemeritelne v
sec. Pracuje ale jen na plaintextu... ...takze zalezi na to potrebujes.>potreboval bych nejaky fulltextovy stroj, ktery by bezel na lokale a
>indexoval data (na tom lokale, ne na Internetu), ktera mu predhodim.
>Nasledne by samozrejme taky mel byt schopen (na muj dotaz), vratit
>patricne vysledky. Potreboval bych jednak definovat co (a jakym
>zpusobem) ma indexovat a potom taky v jakem formatu ma vracet ony
>vysledky. A kdyby to cele bylo free tak by to bylo uplne nejlepsi :-).
>
>Nebo, pokud nekdo umi obsluhovat Indexing Service ve W2000 z Delphi a
>byl by ochoten se o to podelit, byl bych vdecny.
>
>Ales
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen ]=----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz
Contact me via EFFATA.NET, my EID: trosa(zv)effata.net
PinkNet Web Server for Win32 - FREEWARE http://pnws.pinknet(tec)cz/
---------------------------------------------------------------------------
Grafika v ToolBar
[*] Martin �ajbik (Marcant) <marcant(zv)sct.sk> - 12.12.2000 15:42:54
Tato chyba je obvykle sposobena starsou verziou comctl32.dll
----- Original Message -----
From: Zapl�k <zaplik(zv)volny(tec)cz>
To: Delphi Konference <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, December 12, 2000 2:57 PM
Subject: Grafika v ToolBar
> D5,profi
> Mam v apikaci ToolBar, a v nem nekolik tlacitek ToolButton. Vse je celkem
> OK, ale nezobrazuji se mi ikony v techto tlacitkach. Fak je ten, ze mi to
> dela jen na nekterych PC. Na jednom je videokarta Matrox a na druhem
> OAC..... Ja mam ve svem PC S3 a zde je to OK. Nevite nekdo v cem by mohl
byt
> problem? U vetsiny uzivatelu je to v poradku, ale rad bych vyresil i ty
> problemove. Neseltkal se s tim nekdo? Menil jsem rozliseni i pocet barev a
> bez uspechu. Jestli to delaji drivery od karty nevim, nebot si nemohu
> dovolit uzivatele nutit k zmene driveru nebo videokarty. OS je ruzny,
95 -98
> na NT nebo 2000 jsem to zatim nepozoroval.
> Za sebemensi radu budu nesmirne vdecny.
>
> zaplik
> zaplik(zv)volny(tec)cz
>
problem pri cteni z Excelu pres DDE
[*] Martin �usta <martin.susta(zv)ipps(tec)cz> - 12.12.2000 15:43:07
mam nasledujici problem:
u zakaznika mi nechodi cteni obsahu excel. bunky
pres DDE.
DDE komunikace se navaze, ale ve chvili, kdy chci
precist obsah bunky, spadne to. zkousel jsem i jen
obycejny priklad na DDE (z Wordu cist z Excelu =
nejde to). Nejde to ani pres Automatizaci.
DDE komunikace s Wordem je bez problemu.
Na jinych pocitacich bez problemu.
Takze je to asi konkretni instalaci toho Excelu.
Nesetkali jste se s tim nekdo?
Diky za radu.
susta
Grafika v ToolBar
[*] Pavel Malinsk� <spiderland(zv)iol(tec)cz> - 12.12.2000 15:47:24
Ahoj,
nejdriv si zkontroluj verzi knihovny comctl32
a pak teprve jdi po problemech s videokartami.
Update teto knihovny ji dostupny na:
http://www.microsoft.com/msdownload/ieplatform/ie/comctrlx86.asp
P.S.Toto se uz probiralo tolikrat, ze kdyby's
trochu hledal v archivu (www.delphi(tec)cz) tak to najdes.
S pozdravem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
>===================================<
> ...The Truth Is Out There... <
=====================================
GSM: 0602 652 203
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Zapl�k
> Sent: Tuesday, December 12, 2000 2:57 PM
> To: Delphi Konference
> Subject: Grafika v ToolBar
>
>
> D5,profi
> Mam v apikaci ToolBar, a v nem nekolik tlacitek ToolButton. Vse je celkem
> OK, ale nezobrazuji se mi ikony v techto tlacitkach. Fak je ten, ze mi to
> dela jen na nekterych PC. Na jednom je videokarta Matrox a na druhem
> OAC..... Ja mam ve svem PC S3 a zde je to OK. Nevite nekdo v cem
> by mohl byt
> problem? U vetsiny uzivatelu je to v poradku, ale rad bych vyresil i ty
> problemove. Neseltkal se s tim nekdo? Menil jsem rozliseni i pocet barev a
> bez uspechu. Jestli to delaji drivery od karty nevim, nebot si nemohu
> dovolit uzivatele nutit k zmene driveru nebo videokarty. OS je
> ruzny, 95 -98
> na NT nebo 2000 jsem to zatim nepozoroval.
> Za sebemensi radu budu nesmirne vdecny.
>
> zaplik
> zaplik(zv)volny(tec)cz
>
>
>Program na Indent Source Code
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 12.12.2000 15:48:50
> Zdravim vsechny,
> Nevite nekdo, jestli neexistuje program, ktery by upravoval styl
> zdrojaku delphi (pascalu). Myslim napr. odsazeni bloku, vnorovani bloku,
> psani if else bloku, atd. Pro C snad neco takoveho pod linuxem existuje.
> Predem dekuji
> Michal
*** Nic moc, ale da se pouzit (vyzkousej):
http://atrey.karlin.mff.cuni(tec)cz/~bla/programy/pretty.zip
(info: http://atrey.karlin.mff.cuni(tec)cz/~bla/tvorba.shtml#Pascal)
A je to pod DOS.
P.
--=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
`======----( icq: 73995087 )==--- -- -
SMTP cez MS Exchange
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.12.2000 16:22:07
>Caute All.
>Nevie nahodou niekto ako mam vyplnit hlavicku mailu, aby
>mi presiel cez MS Exchange server?
hlavicka mailu nema vliv na doruceni zpravy. Dulezite je co si vymenuji
postaci v SMTP obalce - tedy povel RCPT TO:
Pokud v RCPT TO: uvede odesilajici SMTP postak nejakeho nelokalniho
uzivatele toho Exchange mel by to Exchange poslat dal. (neni-li nejak
podivne nastaven)
>Ked poslem normalne niekto(zv)server.sk tak Exchange hlada adresata
>vo svojom zozname a ked ho nenajde tak vypise chybu.
jakou?
>Ja by som potreboval aby to poslal dalej. Ze vraj je na to nejaky
>klucovy string, ktory mu to povie. Neviete niekto ze aky?
U MS je sice mozny vsechno, ale tipnul bych spis na nejaky problemy s
nastavenim Exchange nebo pristupem z nepovolenych IPCek - '550 We don't
relay')
D. Toman
nevyhody packed recordu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 12.12.2000 16:27:39
>jsou nejake %SUBJ%?
>Je nejaky duvod, proc je nepouzivat?
>
>Neptam se na rychlost, protoze to bude podle me naprosto nevyznamne
>zpomaleni, ale spis jestli nahodou nejsou nejake problemy s kompatibilitou,
>pretypovanim a vubec..
Otazka zni jinak - proc pouzivat packed records? Odpoved je:
1) kdyz je to nutne z duvodu kompatibility - napriklad hlavicky souboru,
struktury ruznych API funkci, ktere jsou definovany jinymi
aplikacemi/protokoly, maji byt citelne i po zkompilovani programu
novejsi/starsi verzi kompilatoru. Tady je nutne mit velkost polozek pod
kontrolou a proto je nutne vypnout automaticke zarovnavani polozek.
2) uspora mista at na disku ci v RAM
Jine duvody asi nejsou. Zadne problemy s pretypovanim apod. nevznikaji.
D. Toman
DBGrid a <End>, <Home>
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 12.12.2000 16:44:41
Cau,
DBGrid ma neprijemnu vlastnost, ked stalcim Ctrl+Home alebo Ctrl+End tak sa
posunie na prvy/posledny zaznam. To je OK, ale zaroven sa posunie na prvy
column ak je RowSelect = True. Ja chcem aby ak mam columnov 50 a stojim
uplne v pravo (tie v lavo neni vidiet) a mam nastevene RowSelect = True aby
sa choval rovnako ako pri PgUp a PgDown, t.j. posunie sa hore/dole ale
neposunie sa dolava.
Riesil to uz niekto, nejak sikovne??
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
Grafika v ToolBar
[*] Jiri Novotny <NOVOTNY(zv)ftknw.upol(tec)cz> - 12.12.2000 15:47:35 met-1
> Mam v apikaci ToolBar, a v nem nekolik tlacitek ToolButton. Vse je celkem
> OK, ale nezobrazuji se mi ikony v techto tlacitkach. Fak je ten, ze mi to
....
Problem by mohl byt v knihovne COMCTL32.DLL. Upgrade se da udelat
pomoci souboru 50comupd.exe - najdes na Internetu (adresu z hlavy
nevim).
Jirka.
telnet
[*] Delphi <delphi(zv)minv.sk> - 12.12.2000 07:56:04 -0800
> > Chtel bych se zeptat, jestlil nekdo vite, jaky jsou prikazy telnetu a
co
> > jak se pouzivaji.
> >
> > Potreboval bych udelat jednoduchej telnet server, aby umel navazat
spojeni,
> > neco vypsat na obrazovku na urceny misto a tak.
Aky telnet potrebujes? Mam wy120 a vt100.
Werki
SQL-Editor komponenta
[*] Pavol Kaka�ka <paka(zv)aktis(tec)cz> - 12.12.2000 17:06:11
Potesim Ta iba trochu, momentalne sa na niecom takom usilovne pracuje,
testovacia beta by mala byt hotova do vianoc :-O
Malo by to byt pristupne na http://kasi.hyperlink(tec)cz/
Pavol Kaka�ka
kasix(zv)atlas(tec)cz
| Mam par otazek.
|
| 1/Je nejaky schopny administracni tool pro IB? Free! SQL Explorer uz me
| neba:)
|
| 2/Existuje componenta pro psani SQL dotazu jako TMemo, ktera by se
pripojila
| na DB a sama by pri psani nabyzela Tabulky, View, Fieldy.... tak jako
| Delphi?
IE Cache
[*] Ales Vasicek <vasicek(zv)ecommerce(tec)cz> - 12.12.2000 17:12:03
Ahoj,
pokousim se vybirat cache Internet Exploreru, ale nejak se mi to stale
nedari. Vzdy najde jen prvni zaznam a dalsi uz ne. Mohl by mi prosim
nekdo napsat, kde by mohl byt zakopanej pes?
Delam to takhle:
procedure TForm1.Button2Click(Sender: TObject);
var T : PInternetCacheEntryInfo;
D : DWORD;
H : THandle;
begin
H := 0;
D := 0;
FindFirstUrlCacheEntryEx(nil, 0, URLHISTORY_CACHE_ENTRY, 0, 0, (zv)D,
nil, nil, nil);
GetMem(T, D);
try
H := FindFirstUrlCacheEntryEx(nil, 0, URLHISTORY_CACHE_ENTRY, 0, t,
(zv)D, nil, nil, nil);
if H <>0
then ListBox1.Items.Add(StrPas(T.lpszSourceUrlName));
finally
FreeMem(T, D)
end; //////////// DALSI /////////// --- Tady uz to proste nic nenajde
FindNextUrlCacheEntryEx(H, nil, (zv)D, nil, nil, nil);
GetMem(T, D);
try
if FindNextUrlCacheEntryEx(H, T, (zv)D, nil, nil, nil)
then ListBox1.Items.Add(StrPas(T.lpszSourceUrlName));
finally
FreeMem(T, D)
end;
FindCloseUrlCache(H);
end;
Dik Ales
MS Exchange mail klient
[*] Hubka Lubos <L.Hubka(zv)trenkwalder(tec)com> - 12.12.2000 17:24:23
Ahoj !
No je to vyborne ze to robi este aj niekto iny.
Ja sa (zatial) v MAPI velmi nevyznam.
Ale toto je len na odoslanie mailov.
Bude nieco aj na prijimanie ?
A funguje ti to, alebo je to zatial len teoria?
/LH
---------------------------------------------------------------
Ing. Lubos Hubka
favorite position: classical L.HUBKA(zv)trenkwalder.com
Trenkwalder Engineering, s.r.o. Tel.: +421 7 5810 1140
Mlynsk� nivy 56 Fax: +421 7 5810 1133
821 05 Bratislava, Slovensko
www.trenkwalder.com
---------------------------------------------------------------
Handle okna
[*] Michal Madle <mmadle(zv)seznam(tec)cz> - 12.12.2000 16:34:56
Handle je unikatni pouze pro dany okamzik.
Neni zaruceno, ze se nebude opakovat handle okna, ktere uz neexistuje.
Ale 2 okna nemuzou mit v 1 okamzik stejny handle.
At 13:23 12.12. 2000 +0100, you wrote:
>Caute
>
>mozna trochu lajcky dotaz ale prece jenom :
>opravte me jestli se pletu, ale nejsem si jist, HANDLE nejakeho akna v
>aplikaci i kdyz se jedna o MDI aplikaci se
>nikdy neopakuje, ale jak je to v pripade s HANDLEM nejake komponmenty kdyz
>v prubehu programu ju vytvarim znovu a znovu ( rekneme tu samou komponentu
>PANEL ), ale po kazde v novem okne
>
>
>
>DIK
S pozdravem Michal M�dle
-----------------------------------------------------------------
e-mail: tumi(zv)mail(tec)cz
Contact me via <http://www.effata.net/>EFFATA.NET, my EID: tumi(zv)effata.net
-----------------------------------------------------------------
Program na Indent Source Code
[*] Petr Hartman <petr.hartman(zv)medisoft(tec)cz> - 12.12.2000 18:00:44
Ahoj,
podivej se na http://www.slm.wau.nl/wkao/delforexp.html
S pozdravem
Petr Hartman
> Nevite nekdo, jestli neexistuje program, ktery by upravoval styl
> zdrojaku delphi (pascalu). Myslim napr. odsazeni bloku, vnorovani bloku,
> psani if else bloku, atd. Pro C snad neco takoveho pod linuxem existuje.
Rychlost MSDE vs. Access
[*] Petr Reichl <p.reichl(zv)gmc(tec)net> - 12.12.2000 18:02:27
Pouzivam ADOExpress a tabulky maji radove tisice zaznamu.
Jak mam napr. vyladit ADO?
| -----Original Message-----
| From: Zbysek Hlinka [mailto:hlinka(zv)hlinka(tec)cz]
| Sent: Tuesday, December 12, 2000 2:51 PM
| To: delphi-l(zv)fwd(tec)cz
| Subject: Re: Rychlost MSDE vs. Access
|
|
| On 12 Dec 2000, at 11:09, Petr Reichl wrote:
|
| > Puvodni reseni je zalozeno na Visual Basic 4 a Access 2. Moje nove
| > reseni je postaveno na Delphi 5 a MSDE. Na prvni pohled se
| muze zdat,
| > ze nove reseni je mnohem lepsi, ale ja se potykam s tim, ze je velmi
| > znatelne pomalejsi. Zvlaste na pomalych strojich je ten rozdil velmi
| > znat.
|
| Rychlost lze ovlivnit zpusobem pripojeni. Pokud na to jdes pres
| BDE, pak to zkus treba pres ADO. ADO je vsak nekdy treba
| vyladit.
|
| Dalsi vec, se kterou je treba pocitat, pri mensich objemech
| ulozenych dat je SQL databaze zpravidla pomalejsi nez souborova.
| Take vyzaduje vice pameti.
|
|
| S pozdravem
|
| Zbysek Hlinka
|
| Phones: 02/795 29 56; GSM: 0603 551 282
| Krystofova 1016, 149 00 Praha 4
| CZ
| Rychlost MSDE vs. Access
[*] L. ZITA <konference(zv)sales(tec)cz> - 12.12.2000 18:07:34
----- Original Message -----
From: "Petr Reichl" <p.reichl(zv)gmc.net>
> Dobry den,
>
> pracuji na programu, ktery vyuziva MSDE. Je to druha verze programu,
pricemz
> prvni verze je postavena na uplne jinem reseni, takze slouzi pouze jako
> vzor.
>
> Puvodni reseni je zalozeno na Visual Basic 4 a Access 2. Moje nove reseni
je
> postaveno na Delphi 5 a MSDE. Na prvni pohled se muze zdat, ze nove reseni
> je mnohem lepsi, ale ja se potykam s tim, ze je velmi znatelne pomalejsi.
> Zvlaste na pomalych strojich je ten rozdil velmi znat.
>
> Nesetkal jste se s timto problemem uz nekdo? Muzete nejak poradit?
>
> Petr Reichl
Ahoj.
Taky jsem si podobne nabehl, kdyz jsem prepsal (ci spise jen preklopil)
hotovou aplikaci z Paradoxu do IB6.
Proste s SQL serverem se na to musi jinak. Napr. netahat na klienta cele
tabulky, maximum veci
prenechat ulozenym proceduram.... Vice by Ti mozna poradili povolanejsi nez
ja.
Ludek
Hotkeys
[*] Petr Vaclavek <bla(zv)atrey.karlin.mff.cuni(tec)cz> - 12.12.2000 18:13:21
Ve sve aplikaci jsem si registroval klavesovou zkratku pomoci
funkce RegisterHotkey. Zajimalo by me, zda jde nejak poslat tuto
zkratku dal, pokud ji neobslouzim.
Priklad:
Mam zaregistrovanou zkratku Ctrl+X.
V nejake aplikaci zmacknu Ctrl+X - moje aplikace to odchyti (ma
tuto zkratku zaregistrovanou), ale te aplikaci, kde jsem to
zmacknul to jiz bohuzel nedojde. Jde ji to nejak preposlat?
Predem diky za odpovedi.
P.
P.S. Jeste podobny dotaz - jak odlisim levy a pravy ctrl (shift) v
odchytavane klavesove zkratce? Pomoci RegisterHotKey to nejde. --=====[ PETR VACLAVEK ]====---- --- --- -- -- - -
`======----( visit: http://atrey.karlin.mff.cuni(tec)cz/~bla )=-- -
`======----( read: http://www.swnet(tec)cz )=-- -- -
`======----( icq: 73995087 )==--- -- -
Access - pro a proti
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 12.12.2000 20:09:01
Ked chces mat jednouzivatelsku databazu, tak je Access dobry (cez DAO)
Ked mas viacuzivatelsku databazu, je vhodne pouzit C/S stroj :
Oracle,MS SQL,Interbase,MySQL atd...
Access nie je C/S databaza
S pozdravom
Patrik
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Petr Sikola
> Sent: Tuesday, December 12, 2000 2:04 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Access - pro a proti
>
>
> Zdravim vsechny,
> potrebuju nejake zasvecene informace o databazi v accessu, jedna se mi o
> obecne informace (rychlost, bezpecnost, vykon...)
> predpoklada se, ze na databazi bude bezet informacni system + ucetnictvi
> (dohromady) stredne velke firmy (cca 25 klientu).
> Rad bych vedel vase nazory na DB v accessu.
>
> Mnohokrat dekuji Petr Sikola
> OT: SQL-Editor komponenta
[*] Ing. Patrik Tesar <tesar(zv)rainside.sk> - 12.12.2000 20:12:51
[P��loha v souboru: winmail.dat]
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Skus
http://www.ems-hitech.com/querybuilder
Neni free ale je dobry
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Michal Tiller
> Sent: Tuesday, December 12, 2000 3:37 PM
> To: Delphi Forum (E-mail)
> Subject: OT: SQL-Editor komponenta
>
>
> Mam par otazek.
>
> 1/Je nejaky schopny administracni tool pro IB? Free! SQL Explorer
> uz me neba:)
>
> 2/Existuje componenta pro psani SQL dotazu jako TMemo, ktera by
> se pripojila na DB a sama by pri psani nabyzela Tabulky, View,
> Fieldy.... tak jako Delphi?
>
> Michal.Tiller(zv)oskarmobil.Cz :o)
> OT: Re: Komunikace TCP/IP pres seriove porty
[*] Martin =?iso-8859-2?Q?Pe=B9ava?= <jimx(zv)volny(tec)cz> - 12.12.2000 20:13:04
a nebylo to nahodou tim, ze si nemel na to kompu kam ses pripojoval
zaply sdileni??? vono totiz kdyz je vyply, tak ti to nezobrazi ani ten
komp (stejne jako je tomu na siti...)
Hurricane wrote:
>
> Zdravim
>
> Je sice mozne k "primenu propojeni kabelem" pridat IPX/SPX, ale primarni
> protokol pro prime propojeni je TCP/IP a IPX/SPX tam vubec byt nemusi. Tim
> ale nechci vyvracet obecne znamou pravdu, ze si k potrebnejm datum widle
> davaj spoustu nesmyslu. Jinak jsem dosel k zaveru, ze pres COMy widle spojit
> nelze. A po LPT jen pri spravne konstelaci hvezd. Zrovna dnes jsem se o to
> pokousel a widle se na me v 99,99% zvysoka vykaslaly. Po zadani jmena
> hostitelskeho stroje mi vyskocila hlaska ze hostitel neexistuje nebo tak
> neco, ale widle BYLY propojeny, jen nebylo co sdilet :-).
>
> Neexistuje nejaka jina moznost, jak propojit widle tak aby to vypadalo jako
> normalni sit (slozky v "okolni pocitace", sdileni,.....) se sitovkama a
> TCP/IP protokolem?
>
> Hurricane
> ----- Original Message -----
>
> > > Jinak tech 20kB ... nezapomen, ze si tam windouvsy pridavaj vsemoznej
> > > balast, proto se to zpomaluje... kdyby to bylo pod DOSem s nejakym
> > > vlastnim rizenim, tak bych veril tem rychlostem, cos psal...
> > zadne vlastni zarizeni - jen 2 PC a kabel (pasivni - jen draty)
>
> jo, to jo, ale ja myslel treba kdyz voknouvsi pres kabel pracujou jak s
> TCP/IP tak s IPX/SPX (a treba i necim dalsim), tak si tam musej pridavat
> nejaky (pro tebe neuzitecny) data, aby druha strana vedela jak to ma
> spracovat... Takhle sem to myslel a pod DOSem vlastni rizeni sem myslel
> pro SPP LPT ne pro COM (kde si to UART ridi sam - jenom dodavas data) a
> ne pro ECP/EPP LPT...
--
Martin Pe�ava
/--------------------------------------------------------------\
| E-Mail: mailto:mail(zv)jimx.net ICQ# 18148896 |
| WebMaster of |
|http://miss.jimx.net - Neofici�ln� str�nka MISS �R a CyberMiss|
\--------------------------------------------------------------/nevyhody packed recordu
[*] Kriz Pavel, TDS <tds(zv)volny(tec)cz> - 12.12.2000 20:59:53
> >jsou nejake %SUBJ%?
> >Je nejaky duvod, proc je nepouzivat?
> >
> >Neptam se na rychlost, protoze to bude podle me naprosto nevyznamne
> >zpomaleni, ale spis jestli nahodou nejsou nejake problemy s
> kompatibilitou,
> >pretypovanim a vubec..
>
> Otazka zni jinak - proc pouzivat packed records? Odpoved je:
> 1) kdyz je to nutne z duvodu kompatibility - napriklad hlavicky souboru,
> struktury ruznych API funkci, ktere jsou definovany jinymi
> aplikacemi/protokoly, maji byt citelne i po zkompilovani programu
> novejsi/starsi verzi kompilatoru. Tady je nutne mit velkost polozek pod
> kontrolou a proto je nutne vypnout automaticke zarovnavani polozek.
>
> 2) uspora mista at na disku ci v RAM
Jaka uspora na disku? Jakmile by nekdo chtel zapsat cely record jako:
Stream.WriteBuffer(MyRecord, SizeOf(MyRecord))
je stejne naprosto nevyhnutelne deklarovat MyRecord jako packed record.
Jinak by to byl hazard - protoze zde ukazkove plati bod 1) - program (a
takto zapsana data!) by byl nekompatibilni.
Jako dalsi priklad, kdy pouzit packed record, mohu uvest take situaci, kdyz
chci nejaky record pouzit jako parametry funkci v knihovnach DLL.
Pokud nekdo bude chtit takove Delphi-DLL pouzivat napr. ve Visual C++,
pouzije
#pragma pack()
a ma vystarano.
Pavel Kriz
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Dalibor Toman
> Sent: Tuesday, December 12, 2000 4:28 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: nevyhody packed recordu
SMTP cez MS Exchange
[*] MMrazik <mms(zv)host.sk> - 12.12.2000 21:35:48
Ahoj
problem nebude v hlavicke MS Exch server rozlisuje co ma robit so spravou
podla typu ardresy. Spravu cez SMTP servera exch. mozno odoslat bezne
pomocou MAPI tak, ze adresa je v tvare xxx(zv)domena.xx. Problem bude skor v
nakonfigurovani modulu Internet Mail Services (alebo tak nejak) aplikacie MS
Exchange server. Tento modul ma nastarosti odosielanie pomocou SMTP a prijem
sprav pomocou SMTP v pripade ak je server trvale v internete. Ak nie je
trvale v internete tak na prijem sprav sluzi aplikacia POP Connector, ktora
nie je sucastou MS Exchange ale da sa stiahnut (- to nehovorim o MS Exch.
2000 tam to nepoznam).
MM
----- Original Message -----
From: "Dalibor Toman" <dtoman(zv)fortech(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, December 12, 2000 4:22 PM
Subject: Re: SMTP cez MS Exchange
>
> >Caute All.
> >Nevie nahodou niekto ako mam vyplnit hlavicku mailu, aby
> >mi presiel cez MS Exchange server?
>
> hlavicka mailu nema vliv na doruceni zpravy. Dulezite je co si vymenuji
> postaci v SMTP obalce - tedy povel RCPT TO:
> Pokud v RCPT TO: uvede odesilajici SMTP postak nejakeho nelokalniho
> uzivatele toho Exchange mel by to Exchange poslat dal. (neni-li nejak
> podivne nastaven)
>
> >Ked poslem normalne niekto(zv)server.sk tak Exchange hlada adresata
> >vo svojom zozname a ked ho nenajde tak vypise chybu.
>
> jakou?
>
> >Ja by som potreboval aby to poslal dalej. Ze vraj je na to nejaky
> >klucovy string, ktory mu to povie. Neviete niekto ze aky?
>
> U MS je sice mozny vsechno, ale tipnul bych spis na nejaky problemy s
> nastavenim Exchange nebo pristupem z nepovolenych IPCek - '550 We don't
> relay')
>
> D. Toman
>
>
>Chyba vo Windows Me... -- to je sila :)))
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 12.12.2000 21:38:05
>protoze napr. jako file commander pouzivam FAR a pod
>W9x v DOSboxu pracuje mys, zatimco pod NT ne.
>Bye, pf
Nastav si v Edit Option:
Quickedit mode:=false;
Insert mode:=false;
A mys bude fungovat v aj okne.
Roland.
Indikace chyby pri tisku na radkovou tiskarnu
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 13.12.2000 00:37:01
> Nevite nekdo, jak se da tisknout na radkovou tiskarnu pod woknama, aby se to
> chovalo alespon trochu slusne?
Pod W95/NT4 tisknu radkove na jehlickach takto:
uses ...RawPrinter...
var
Myprinter : TRawPrinter;
oldprinter : TPrinter;
begin
MyPrinter:=TRawPrinter.Create;
oldprinter:=setprinter(MyPrinter);
try
myprinter.startraw;
myprinter.write('blablabla');
myprinter.writeln;
myprinter.endraw;
finally
setprinter(oldprinter);
myprinter.free;
end;
end;
unit Rawprinter;
{prevzato z UDDF}
interface
uses printers, windows;
type TRawprinter =class(TPrinter)
public
dc2 : HDC;
procedure startraw;
procedure endraw;
procedure write(const s : string);
procedure writeln;
end;
implementation
uses sysutils, forms;
function AbortProc(Prn: HDC; Error: Integer): Bool; stdcall;
begin
Application.ProcessMessages;
Result := not Printer.Aborted;
end;
type
TPrinterDevice = class
Driver, Device, Port: String;
constructor Create(ADriver, ADevice, APort: PChar);
function IsEqual(ADriver, ADevice, APort: PChar): Boolean;
end;
constructor TPrinterDevice.Create(ADriver, ADevice, APort: PChar);
begin
inherited Create;
Driver := ADriver;
Device := ADevice;
Port := APort;
end;
function TPrinterDevice.IsEqual(ADriver, ADevice, APort: PChar): Boolean;
begin
Result := (Device = ADevice) and (Port = APort);
end;
procedure TRawprinter.startraw;
var
CTitle: array[0..31] of Char;
CMode : Array[0..4] of char;
DocInfo: TDocInfo;
{r : integer;}
begin
StrPLCopy(CTitle, Title, SizeOf(CTitle) - 1);
StrPCopy(CMode, 'RAW');
FillChar(DocInfo, SizeOf(DocInfo), 0);
with DocInfo do
begin
cbSize := SizeOf(DocInfo);
lpszDocName := CTitle;
lpszOutput := nil;
lpszDatatype :=CMode;
end;
with TPrinterDevice(Printers.Objects[PrinterIndex]) do
begin
DC2 := CreateDC(PChar(Driver), PChar(Device), PChar(Port), nil);
end;
SetAbortProc(dc2, AbortProc);
{r:=}StartDoc(dc2, DocInfo);
end;
procedure TRawprinter.endraw;
{var r : integer;}
begin
{r:=}windows.enddoc(dc2);
DeleteDC(dc2);
end;
type passrec = packed record
l : word;
s : Array[0..255] of char;
end;
var pass : Passrec;
procedure TRawprinter.write(const s : string);
begin
pass.l:=length(s);
strpcopy(pass.s,s);
escape(dc2,PASSTHROUGH,0,(zv)pass,nil);
end;
procedure TRawprinter.writeln;
begin
pass.l:=2;
strpcopy(pass.s,#13#10);
escape(dc2,PASSTHROUGH,0,(zv)pass,nil);
end;
end.
Roman
OOOOOOOOOOOOOOOO
O icq #84229702
O sw.maurice(zv)cbox(tec)cz
O http://kouzelne.misto(tec)cz
OOOOOOOOOOOOOOOO
QReport
[*] Miroslav Dolecek <xdolecek(zv)informatics.muni(tec)cz> - 13.12.2000 01:45:06
Ahoj lidi,
potrebuji v QReportu udelat vystup na tisk a to tak, ze mam jednu tabulku
Master.db ve ktere mam 32 zaznamu. Potom mam dalsich 32 tabulek
Slave01-Slave32. Ja potrebuji projet celou tabulku Master.db a vytisknout
kazdy zaznam + vsechny zaznamy z tabulky SlaveXX, kde XX je prave cislo
indexu aktualniho zaznamu v Master.db. Trochu jsem si s tim hral, ale umi
to vytisknout jenom z jedne tabulky a ne kombinovane. Doufam, ze jsem to
zretelne vysvetlil. Diky za kazde nakopnuti.
Mirek Dolecek