Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Interbase a Thready - VYRESENO
[*] Petr Fischer <fifa(zv)praguesoft(tec)cz> - 31.8.2000 17:46:45
Zdravim,
takze konecne vyreseno.
Pro pristup k Interbasi (6) z vice threadu se k ni musi pristupovat
vzdalene i kdyz bezi na tom samym stroji. Tzn. ze v aliasu nesmi byt
jen cesta "c:\db\database.gdb" ale i IPcko nebo nazev stroje napr.
"localhost:c:\db\database.gdb". Pak threadiky bezi v pohode. To same
bude platit i pro pristup pres IB Express komponenty.
Zdroj: borlandi newsy (forums.inprise.com).
S pozdravem, Petr Fischer
P.S. Idealni, odpovedet na svou vlastni otazku... :-)))))Delphi a Reload PASu
[*] Tu�ek Roman (M� Praha 15) - 31.8.2000 18:13:03
Pokazde kdyz ulozim uprostred vyvoje projekt (je to ulkladano na novelackou
sit 5.1)
tak behem asi 10s dostanu hlasku ze ...pas byl zmenen a jestli ho chci znovu
natahnou
nevite jak to vypnout ? TRT
Zobrazeni html stranky
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 31.8.2000 19:48:53
To vis, ze to jde, dela se to jinak, ale v principu je to trivialni. Mam to
v ASP (VBScript), ale urcite se princip da pouzit do cehokoli jineho (Delphi
ISAPI DLL, local JScript). Pokud trvas na delphi tak ISAPI, nebo CGI.
takhle napises tag pro obrazek
<img border="0" src="img.asp?idpict=10100">
tady je ten img.asp
===============
Dim oConn, oRS
Dim strConn, strPict, image
set strPict = request.QueryString("idpict")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "tady je tvuj DSN k databazi"
Set oRs = oConn.Execute("SELECT Prev From Picts where Id="&strPict)
if not (oRs.eof and oRs.bof) then
Response.ContentType = "image/jpeg" // tady je zmena typu obsahu na
image
Response.BinaryWrite oRs("Prev") // v Prev je ulozen obrazek
else
Response.Write "not found "&strPict
end if
----- Original Message -----
From: Jan Krizek <krizek(zv)krizkules(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, August 31, 2000 5:04 PM
Subject: RE: Zobrazeni html stranky
>
> >nebo pristupovat na TWebBrowser primo, viz zprava z teto konference:
>
> A lze podobnym zpusoben podstrcit i dalsi streams - napriklad obrazky,
ktere jsou pripojene pres tag <img>?
>
> Ja osobne to zatim resim vytvorenim pracovnich souboru v temp directory a
po ukonceni aplikace je smazu.
>
> Honza +
>
>
>
Komponenta na zpracovani zprav okna
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 31.8.2000 19:54:18
Pokud chces jenom umistovat polozku do systemoveho menu, tak na to
nepotrebujes komponentu, jde to pres funkci GetSystemMenu a obsluha jde
udelat pres Windows messages. Mam nekde zdrojak, kdyz tak napis na soukromy
mail, musel bych ho najit. Ale zapracovat do komponenty by to asi slo.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: Tomas Bradle [mailto:t.bradle(zv)pvtnet(tec)cz]
Sent: Thursday, August 31, 2000 2:47 PM
To: Delphi Konference
Subject: Komponenta na zpracovani zprav okna
Zdravim vsechny,
Chci se zeptat, jestli nekdo nevi jak by sla udelat komponenta (asi potomek
TComponent), ktera by se umistila na formular, a uz jenom tim, ze by tam
byla, by zaclenila svoji vlastni obsluznou proceduru do systemu zracovani
zprav toho formulare.
Jde mi hlavne o to, ze ta komponenta umisti polozku do syst. menu a
samozrejme ji take musi obslouzit, aby to melo smysl.
Diky predem
Tomas Bradle
t.bradle(zv)pvtnet(tec)cz
COM objekt s dynamicky menitelnymi vlastnostmi za
[*] Ondrej Krajicek <xkrajic(zv)ics.muni(tec)cz> - 31.8.2000 20:16:09
Asi nejlepsi bude zavest metody Put a Get
(tak jak je ma napr. rozhrani IADs).
Ondrej Krajicek
Tomas Bradle wrote:
>
> Zdravim vsechny,
>
> nevi nekdo z Vas, jak udelat COM objekt, ktery by nemel pevne dane
> vlastnosti (nebo treba mel, ale jen nektere zakladni) v dobe navrhu objektu
> definici interface v typove knihovne, ale aby slo "za b�hu" definovat
> vlastnosti. Vytvorim nap�. ASP objekt, ktery podle hodnoty nejake vlastnosti
> bude obsahovat jina data a tim bude mit pokazde i jine vlastnosti.
>
> Mam nap�. ASP objekt, ktery bude uchovavat nejaka obecna data.
> Pak v ASP skriptu budu pristupovat nejak takto:
>
> ASPObj.typ="hlavicka"
> ASPObj.texthlavicky="neco"
> ASPObj.velikostpisma=14
>
> a potom kdyz bude ASP objekt jineho typu
>
> ASPObj.typ="adresa"
> ASPObj.firma="nejakafirma"
> ASPObj.ulice="nejakaulice"
> ASPObj.mesto="nejakemesto"
> ASPObj.PSC="54101"
>
> atd...
>
> Jak tedy postupovat, kdyz chci vytvorit takovyto objekt? Priklad nebyl mozna
> uplne 100%-ne smysluplny, ale tak nejak bych si to asi predstavoval.
>
> Predem diky za kazdou odpoved a namet.
>
> Tomas Bradle
> t.bradle(zv)pvtnet(tec)cz
--
OK-)COM objekt s dynamicky menitelnymi vlastnostmi za
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 31.8.2000 20:18:07
> Zdravim vsechny,
>
> nevi nekdo z Vas, jak udelat COM objekt, ktery by nemel pevne dane
> vlastnosti (nebo treba mel, ale jen nektere zakladni) v dobe navrhu
objektu
> definici interface v typove knihovne, ale aby slo "za b�hu" definovat
> vlastnosti. Vytvorim nap�. ASP objekt, ktery podle hodnoty nejake
vlastnosti
> bude obsahovat jina data a tim bude mit pokazde i jine vlastnosti.
>
> Mam nap�. ASP objekt, ktery bude uchovavat nejaka obecna data.
> Pak v ASP skriptu budu pristupovat nejak takto:
>
> ASPObj.typ="hlavicka"
> ASPObj.texthlavicky="neco"
> ASPObj.velikostpisma=14
>
> a potom kdyz bude ASP objekt jineho typu
>
> ASPObj.typ="adresa"
> ASPObj.firma="nejakafirma"
> ASPObj.ulice="nejakaulice"
> ASPObj.mesto="nejakemesto"
> ASPObj.PSC="54101"
>
> atd...
>
> Jak tedy postupovat, kdyz chci vytvorit takovyto objekt? Priklad nebyl
mozna
> uplne 100%-ne smysluplny, ale tak nejak bych si to asi predstavoval.
>
> Predem diky za kazdou odpoved a namet.
>
> Tomas Bradle
> t.bradle(zv)pvtnet(tec)cz
>
COM objekt musis zalozit na rozhrani IDispatch, a potom prepsat
metody GetIdsOfNames a Invoke.
GetIdsOfNames prevadi nazvy metod a properties na ciselny identifikator, a
Invoke zase spousti metody podle ciselneho identifikatoru.
Nejlepsi bude, kdyz si odvodis sveho potomka od TAutoObject, a GetIdsOfNames
a Invoke prepises v nem. Pak si muzes s nazvy metod delat
co chces.
Vice informaci najdes asi na http://msdn.microsoft.com
Radim
Komponenta na zpracovani zprav okna
[*] Tomas Bradle <t.bradle(zv)pvtnet(tec)cz> - 31.8.2000 21:13:43
Diky, jak pridat polozku to vim, ja chci zpracovat ten WM_SYSCOMMAND po
vybrani polozky v SystemMenu. A to bez definovani
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
v kazdem okne.
Tomas
----- Original Message -----
From: Brant Petr <Brant(zv)dcomm(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, August 31, 2000 7:54 PM
Subject: RE: Komponenta na zpracovani zprav okna
> Pokud chces jenom umistovat polozku do systemoveho menu, tak na to
> nepotrebujes komponentu, jde to pres funkci GetSystemMenu a obsluha jde
> udelat pres Windows messages. Mam nekde zdrojak, kdyz tak napis na
soukromy
> mail, musel bych ho najit. Ale zapracovat do komponenty by to asi slo.
>
COM objekt s dynamicky menitelnymi vlastnostmi za
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 31.8.2000 21:21:07
Mno, ted nevim, jestli nebudu placat nesmysly,
ale neco mi rika, ze to co navrhujes, mozne neni,
nicmene kazdy COM objekt muze mit definovano vice rozhrani,
to znamena, ze by sis zaimplementobval ruzna rozhrani nad tim jednim
objektem,
ktere by sis podle situace vyzadal a pracoval s nim.
Kazde rozhrani muze mis samozrejme uplne jine vlastnosti a metody,
vnitrne se ovsem stale pracuje se stejnym objektem.
Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Tomas Bradle
> Sent: Thursday, August 31, 2000 2:42 PM
> To: Delphi Konference
> Subject: COM objekt s dynamicky menitelnymi vlastnostmi za b�hu
>
>
> Zdravim vsechny,
>
> nevi nekdo z Vas, jak udelat COM objekt, ktery by nemel pevne dane
> vlastnosti (nebo treba mel, ale jen nektere zakladni) v dobe
> navrhu objektu
> definici interface v typove knihovne, ale aby slo "za b�hu" definovat
> vlastnosti. Vytvorim nap�. ASP objekt, ktery podle hodnoty nejake
> vlastnosti
> bude obsahovat jina data a tim bude mit pokazde i jine vlastnosti.
>
> Mam nap�. ASP objekt, ktery bude uchovavat nejaka obecna data.
> Pak v ASP skriptu budu pristupovat nejak takto:
>
> ASPObj.typ="hlavicka"
> ASPObj.texthlavicky="neco"
> ASPObj.velikostpisma=14
>
> a potom kdyz bude ASP objekt jineho typu
>
> ASPObj.typ="adresa"
> ASPObj.firma="nejakafirma"
> ASPObj.ulice="nejakaulice"
> ASPObj.mesto="nejakemesto"
> ASPObj.PSC="54101"
>
> atd...
>
> Jak tedy postupovat, kdyz chci vytvorit takovyto objekt? Priklad
> nebyl mozna
> uplne 100%-ne smysluplny, ale tak nejak bych si to asi predstavoval.
>
> Predem diky za kazdou odpoved a namet.
>
> Tomas Bradle
> t.bradle(zv)pvtnet(tec)cz
>
>ECHO
[*] Karel Kral <kral(zv)purus(tec)cz> - 31.8.2000 21:27:29
Pouzivam od FPiette http://www.rtfm.be/fpiette/indexuk.htm, komponenta
se jmenuje PING. Uz asi pul roku, naprosto spolehlive.
Ladis wrote:
>
> Ahoj
> Potreboval jsem zjistit zda je pocitac "zivy" a udelat tak neco jako
> automaticky ping.
--
______________________________________________________
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
______________________________________________________
Nastavenie v BDE langdrvname
[*] Ondrej Jaura <jaura(zv)datalock.sk> - 31.8.2000 21:30:21
Prajem prijemny vecer :) Potrebujem nastavit langdrvname (v BDE Admine je to:
Configuration->Drivers->Native->dBase->LANGDRIVER).
Mam D5Prof + InstallShield 5.5 Prof
Ako na to v D5 prip. v IS ??? Dakujem za zachranne kolesa :) Ondrej
[ Ondrej Jaura mailto:jaura(zv)datalock.sk ]
[ Datalock a.s. http://www.datalock.sk ]
[ :) ]Zobrazeni html stranky
[*] Milan C�zek - 31.8.2000 21:38:54
Vlastne mi jde oto, aby html kod a obrazky byli soucasti programu (exe) -
aby se nedaly modifikovat.
S pozdravem Milan Cizek, amatersky programator, D5 Ent
Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ:59826637
----- Original Message -----
From: "Jan Krizek" <krizek(zv)krizkules(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, August 31, 2000 5:04 PM
Subject: RE: Zobrazeni html stranky
>
> >nebo pristupovat na TWebBrowser primo, viz zprava z teto konference:
>
> A lze podobnym zpusoben podstrcit i dalsi streams - napriklad obrazky,
ktere jsou pripojene pres tag <img>?
>
> Ja osobne to zatim resim vytvorenim pracovnich souboru v temp directory a
po ukonceni aplikace je smazu.
>
> Honza +
>
>
>Editace needitovatelne polozky (ADONIS)
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 31.8.2000 23:27:35
Zdravim,
nemate nahodou nekdo v rukavu nejakou fintu, jak prinutit TADODataSet s
nastavenym ChachedUpdates,
abych mohl ukladat hodnoty i do polozek, ktere v principu nelze editovat ?
Jedna se o polozky AUTOINCREMENT a dale pak polozky, ktere se vraceji z
query,
ale neexistuji fakticky v zadne tabulce
(napr: select toto_je_ta_polozka= case Typ when 0 then 'Typ1' else 'Typ2'
end from ...)
Toto chovani nutne potrebuji, v dialogu edituji vice vet najednou,
na ktere navazuji dalsi vety z jinych tabulek (ktere samozrejme edituji v
temze dialogu, pakarna).
Dik za jakoukoliv radu.
PS1: Kdyz jsem si z Rx vykuchal metodu LoadFromDataSource a pouzil jsem ji,
tak DataSet, ktery je takto vytvoren, muzu libovolne editovat bez omezeni.
PS2: Ani jeden field v datasetu nema nastaveno ReadOnly, AutoGenerateValue a
takovy ty vecicky ...
Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Radim Kunz
> Sent: Thursday, August 31, 2000 8:18 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: COM objekt s dynamicky menitelnymi vlastnostmi za b�hu
>
>
>
> > Zdravim vsechny,
> >
> > nevi nekdo z Vas, jak udelat COM objekt, ktery by nemel pevne dane
> > vlastnosti (nebo treba mel, ale jen nektere zakladni) v dobe navrhu
> objektu
> > definici interface v typove knihovne, ale aby slo "za b�hu" definovat
> > vlastnosti. Vytvorim nap�. ASP objekt, ktery podle hodnoty nejake
> vlastnosti
> > bude obsahovat jina data a tim bude mit pokazde i jine vlastnosti.
> >
> > Mam nap�. ASP objekt, ktery bude uchovavat nejaka obecna data.
> > Pak v ASP skriptu budu pristupovat nejak takto:
> >
> > ASPObj.typ="hlavicka"
> > ASPObj.texthlavicky="neco"
> > ASPObj.velikostpisma=14
> >
> > a potom kdyz bude ASP objekt jineho typu
> >
> > ASPObj.typ="adresa"
> > ASPObj.firma="nejakafirma"
> > ASPObj.ulice="nejakaulice"
> > ASPObj.mesto="nejakemesto"
> > ASPObj.PSC="54101"
> >
> > atd...
> >
> > Jak tedy postupovat, kdyz chci vytvorit takovyto objekt? Priklad nebyl
> mozna
> > uplne 100%-ne smysluplny, ale tak nejak bych si to asi predstavoval.
> >
> > Predem diky za kazdou odpoved a namet.
> >
> > Tomas Bradle
> > t.bradle(zv)pvtnet(tec)cz
> >
>
> COM objekt musis zalozit na rozhrani IDispatch, a potom prepsat
> metody GetIdsOfNames a Invoke.
> GetIdsOfNames prevadi nazvy metod a properties na ciselny identifikator, a
> Invoke zase spousti metody podle ciselneho identifikatoru.
>
> Nejlepsi bude, kdyz si odvodis sveho potomka od TAutoObject, a
> GetIdsOfNames
> a Invoke prepises v nem. Pak si muzes s nazvy metod delat
> co chces.
>
> Vice informaci najdes asi na http://msdn.microsoft.com
>
> Radim
>
>
>
>IB6 a Delphi
[*] Riedel Petr <Petr.Riedel(zv)ipbpojistovna(tec)cz> - 1.9.2000 06:18:14
Dobry den,
potreboval bych vedet, jake mam moznosti pripojeni z Delphi k IB6 (BDE,
ODBC, atd.). Mam D3 a D4.
Predem diky Petr Riedel
Zobrazeni html stranky
[*] Bednarc�k Dalibor <dalibor(zv)torola(tec)cz> - 1.9.2000 06:54:22
Ahoj
Na http://www.pbear.com/ je komponenta HTMLLight, ktera umi natahovat
stranky a obrazky ze streamu
----- Original Message -----
From: "Milan C�zek" <cizek.milan(zv)seznam(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, August 31, 2000 9:38 PM
Subject: Re: Zobrazeni html stranky
> Vlastne mi jde oto, aby html kod a obrazky byli soucasti programu (exe) -
> aby se nedaly modifikovat.
>
> S pozdravem Milan Cizek, amatersky programator, D5 Ent
> Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ:59826637
>
> ----- Original Message -----
> From: "Jan Krizek" <krizek(zv)krizkules(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Thursday, August 31, 2000 5:04 PM
> Subject: RE: Zobrazeni html stranky
>
>
> >
> > >nebo pristupovat na TWebBrowser primo, viz zprava z teto konference:
> >
> > A lze podobnym zpusoben podstrcit i dalsi streams - napriklad obrazky,
> ktere jsou pripojene pres tag <img>?
> >
> > Ja osobne to zatim resim vytvorenim pracovnich souboru v temp directory
a
> po ukonceni aplikace je smazu.
> >
> > Honza +
> >
> >
> >
> >
>Komponenta na zpracovani zprav okna
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 1.9.2000 07:51:28
Ahoj,
nasel jsem komponentu, ktera by mohla vyhovovat jako prototyp jak to udelat
(jestli je to, co myslim). Neni to uplne nejnovejsi ale snad Ti to pomuze
Jaro B.{***********************************************************************}
{ HSoftware Components Collection }
{ }
{ Copyright (C) 1996 by Artem A. Berman }
{ E-mail: art(zv)aber.kherson.ua }
{***********************************************************************}
{ This components can be freely used and distributed in commercial and }
{ private environments, provied this notice is not modified in any way. }
{ ----------------------------------------------------------------------}
{ Version 1.0. Date last modified: 05/03/96 }
{ ----------------------------------------------------------------------}
unit AdvMenus;
interface
uses Forms, WinProcs, WinTypes, SysUtils, Menus, Classes, Messages;
type
EMenuError = class(Exception);
TSystemMenuItem = class(TComponent)
private
FAdded: Boolean;
FParentHandle: HMENU;
FPosInParent: Integer;
FBreak: TMenuBreak;
FPopUp,
FChecked,
FEnabled: Boolean;
FItems: TList;
FCaption: string;
FHandle: HMENU;
FOnClick: TNotifyEvent;
function AppendTo(Menu: HMENU; Position: Word): Boolean;
procedure RedrawItem;
procedure SetBreak(Value: TMenuBreak);
procedure SetCaption(Value: string);
procedure SetChecked(Value: Boolean);
procedure SetEnabled(Value: Boolean);
procedure SetSubMenu(Value: Boolean);
function HandleExists(Menu: HMENU): Boolean;
function ItemExists(AItem: TSystemMenuItem): Boolean;
protected
function GetHandle: HMENU; virtual;
function GetItem(Index: Integer): TSystemMenuItem;
function GetCount: Integer;
procedure Click(Sender: TObject); virtual;
function GetItemFromHandle(Menu: HMenu): TSystemMenuItem;
public
procedure Add(AItem: TSystemMenuItem; Position: Word);
procedure Remove(AItem: TSystemMenuItem);
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property Items[Index: Integer]: TSystemMenuItem read GetItem; default;
property Handle: HMenu read GetHandle;
property Count: Integer read GetCount;
published
property Break: TMenuBreak read FBreak write SetBreak default mbNone;
property Caption: string read FCaption write SetCaption;
property Checked: Boolean read FChecked write SetChecked default False;
property Enabled: Boolean read FEnabled write SetEnabled default True;
property IsSubMenu: Boolean read FPopUp write SetSubMenu;
property OnClick: TNotifyEvent read FOnClick write FOnClick;
end;
TSystemMenu = class(TComponent)
private
FAutoHandled: Boolean;
FHandle: HMenu;
FItems: TSystemMenuItem;
FWindowHandle: HWND;
procedure SetWindowHandle(Value: HWND);
procedure SetAutoHandled(Value: Boolean);
protected
function GetHandle: HMenu; virtual;
procedure ClearHandles(AItem: TSystemMenuItem);
public
property Items: TSystemMenuItem read FItems write FItems;
property WindowHandle: HWND read FWindowHandle write SetWindowHandle;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure HandleEvents(Msg: TMsg; FirstItem: TSystemMenuItem); virtual;
procedure ClearAll;
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
published
property AutoHandled: Boolean read FAutoHandled write SetAutoHandled;
end;
TLinkPopUpMenu = class(TPopUpMenu)
private
FActive: Boolean;
FMenuItem: TMenuItem;
FOnAppend: TNotifyEvent;
FOnRemove: TNotifyEvent;
Inserted: TList;
Done: Boolean;
function CopyMenu(src: TMenuItem) : TMenuItem;
public
constructor Create(aOwner: TComponent); override;
destructor Destroy; override;
procedure Popup(X, Y: Integer); override;
property MenuItem: TMenuItem read FMenuItem write FMenuItem;
published
property Active: Boolean read FActive write FActive;
property OnAppend: TNotifyEvent read FOnAppend write FOnAppend;
property OnRemove: TNotifyEvent read FOnRemove write FOnRemove;
end;
function SystemMenuItemToMenuItem(AItem: TSystemMenuItem): TMenuItem;
function MenuItemToSystemMenuItem(AItem: TMenuItem): TSystemMenuItem;
procedure Register;
implementation
var
HSystemMenu: HMENU;
function SystemMenuItemToMenuItem(AItem: TSystemMenuItem): TMenuItem;
begin
Result := TMenuItem.Create(Application);
Result.Caption := AItem.Caption;
Result.Enabled := AItem.Enabled;
Result.Checked := AItem.Checked;
Result.Break := AItem.Break;
Result.OnClick := AItem.OnClick;
end;
function MenuItemToSystemMenuItem(AItem: TMenuItem): TSystemMenuItem;
begin
Result := TSystemMenuItem.Create(Application);
Result.Caption := AItem.Caption;
Result.Enabled := AItem.Enabled;
Result.Checked := AItem.Checked;
Result.Break := AItem.Break;
Result.OnClick := AItem.OnClick;
end;
{TSystemMenuItem}
constructor TSystemMenuItem.Create(AOwner: TComponent);
begin
FEnabled := True;
FBreak := mbNone;
FPopUp := False;
FCaption := '';
FAdded := False;
inherited Create(AOwner);
end;
destructor TSystemMenuItem.Destroy;
begin
FItems.Free;
inherited Destroy;
end;
procedure TSystemMenuItem.Click(Sender: TObject);
begin
if Assigned(FOnClick) then FOnClick(Self);
end;
function TSystemMenuItem.GetHandle: HMenu;
begin
if FHandle = 0 then FHandle := CreateMenu;
Result := FHandle;
end;
function TSystemMenuItem.AppendTo(Menu: HMenu; Position: Word): Boolean;
const
Breaks: array[TMenuBreak] of Longint = (0, MF_MENUBREAK, MF_MENUBARBREAK);
Checks: array[Boolean] of LongInt = (MF_UNCHECKED, MF_CHECKED);
Enables: array[Boolean] of LongInt = (MF_DISABLED or MF_GRAYED,
MF_ENABLED);
PopUps: array[Boolean] of LongInt = (0, MF_POPUP);
Separators: array[Boolean] of LongInt = (MF_STRING, MF_SEPARATOR);
var
NewFlags: Word;
CCaption: array [0..255] of Char;
begin
NewFlags := Breaks[FBreak] or Checks[FChecked] or Enables[FEnabled]
or PopUps[FPopUp] or Separators[FCaption = '-'] or
MF_BYPOSITION;
StrPCopy(CCaption, FCaption);
Result := InsertMenu(Menu, Position, NewFlags, GetHandle, CCaption);
FPosInParent := Position;
FParentHandle := Menu;
FAdded := True;
end;
procedure TSystemMenuItem.Add(AItem: TSystemMenuItem; Position: Word);
begin
if ItemExists(AItem) then
begin
raise EMenuError.Create('Menu inserted twice');
exit;
end;
if not AItem.AppendTo(Handle, Position) then
begin
raise EMenuError.Create('Unable insert menu item');
exit;
end;
if FItems = nil then
FItems := TList.Create;
FItems.Insert(Position, AItem);
end;
procedure TSystemMenuItem.Remove(AItem: TSystemMenuItem);
begin
DeleteMenu(AItem.FParentHandle, AItem.FPosInParent, MF_BYPOSITION);
FItems.Remove(AItem);
if FItems.Count = 0 then IsSubMenu := False;
AItem.Free;
end;
function TSystemMenuItem.GetItem(Index: Integer): TSystemMenuItem;
begin
if FItems = nil then
exit;
Result := FItems[Index];
end;
function TSystemMenuItem.GetCount: Integer;
begin
if FItems = nil then Result := 0
else Result := FItems.Count;
end;
procedure TSystemMenuItem.RedrawItem;
const
Breaks: array[TMenuBreak] of Longint = (0, MF_MENUBREAK, MF_MENUBARBREAK);
Checks: array[Boolean] of LongInt = (MF_UNCHECKED, MF_CHECKED);
Enables: array[Boolean] of LongInt = (MF_DISABLED or MF_GRAYED,
MF_ENABLED);
PopUps: array[Boolean] of LongInt = (0, MF_POPUP);
Separators: array[Boolean] of LongInt = (MF_STRING, MF_SEPARATOR);
var
i, NewFlags: Word;
Item: TSystemMenuItem;
CCaption: array [0..255] of Char;
begin
NewFlags := Breaks[FBreak] or Checks[FChecked] or Enables[FEnabled]
or PopUps[FPopUp] or Separators[FCaption = '-'] or
MF_BYPOSITION;
StrPCopy(CCaption, FCaption);
if not ModifyMenu(FParentHandle, FPosInParent, NewFlags, FHandle,
CCaption)
then raise EMenuError.Create('Error modifing menu');
end;
procedure TSystemMenuItem.SetBreak(Value: TMenuBreak);
begin
if FBreak <> Value then
begin
FBreak := Value;
if FAdded then RedrawItem;
end;
end;
procedure TSystemMenuItem.SetCaption(Value: string);
begin
if FCaption <> Value then
begin
FCaption := Value;
if FAdded then RedrawItem;
end;
end;
procedure TSystemMenuItem.SetChecked(Value: Boolean);
begin
if FChecked <> Value then
begin
FChecked := Value;
if FAdded then RedrawItem;
end;
end;
procedure TSystemMenuItem.SetEnabled(Value: Boolean);
begin
if FEnabled <> Value then
begin
FEnabled := Value;
if FAdded then RedrawItem;
end;
end;
procedure TSystemMenuItem.SetSubMenu(Value: Boolean);
begin
if FPopUp <> Value then
begin
FPopUp := Value;
if FAdded then RedrawItem;
end;
end;
function TSystemMenuItem.HandleExists(Menu: HMenu): Boolean;
var
i: integer;
AItem: TSystemMenuItem;
begin
if FItems = nil then
begin
Result := False;
exit;
end else
for i := 0 to FItems.Count - 1 do
begin
AItem := FItems[i];
if (Menu = AItem.FHandle) then
begin
Result := True;
Exit;
end;
end;
Result := False;
end;
function TSystemMenuItem.ItemExists(AItem: TSystemMenuItem): Boolean;
var
i: integer;
begin
if FItems = nil then
begin
Result := False;
exit;
end else
for i := 0 to FItems.Count - 1 do
begin
if AItem = FItems[i] then
begin
Result := True;
Exit;
end;
end;
Result := False;
end;
function TSystemMenuItem.GetItemFromHandle(Menu: HMenu): TSystemMenuItem;
var
i: integer;
AItem: TSystemMenuItem;
begin
if FItems = nil then
begin
Result := nil;
exit;
end else
for i := 0 to FItems.Count - 1 do
begin
AItem := FItems[i];
if Menu = AItem.FHandle then
begin
Result := AItem;
exit;
end;
end;
Result := nil;
end;{TSystemMenu}
constructor TSystemMenu.Create(AOwner: TComponent);
begin
inherited Create(aOwner);
FItems := TSystemMenuItem.Create(Self);
FAutoHandled := True;
end;
destructor TSystemMenu.Destroy;
begin
FItems.Free;
inherited Destroy;
end;
function TSystemMenu.GetHandle: HMenu;
begin
Result := FItems.GetHandle;
end;
procedure TSystemMenu.HandleEvents(Msg: TMsg; FirstItem: TSystemMenuItem);
var
i: integer;
begin
if not Assigned(FirstItem)
then FirstItem := Items;
if not Assigned(FirstItem)
then exit;
for i := 0 to FirstItem.Count - 1 do
begin
if FirstItem.Items[i].Handle = Msg.WParam
then FirstItem.Items[i].OnClick(Self);
HandleEvents(Msg, FirstItem.Items[i]);
end;
end;
procedure TSystemMenu.ClearAll;
begin
GetSystemMenu(Application.MainForm.Handle, True);
ClearHandles(FItems);
FItems.Free;
FItems := TSystemMenuItem.Create(Self);
end;
procedure TSystemMenu.SetAutoHandled(Value: Boolean);
begin
if FAutoHandled <> Value then FAutoHandled := Value;
if FAutoHandled then Application.OnMessage := AppMessage
else Application.OnMessage := nil;
end;
procedure TSystemMenu.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
HandleEvents(Msg, nil);
end;
procedure TSystemMenu.ClearHandles(AItem: TSystemMenuItem);
var
i: integer;
begin
for i := 0 to AItem.Count - 1 do
begin
AItem[i].FHandle := 0;
ClearHandles(AItem[i]);
end;
end;
procedure TSystemMenu.SetWindowHandle(Value: HWND);
begin
FWindowHandle := Value;
FItems.FHandle := GetSystemMenu(FWindowHandle, False);
end;
{TLinkPopUpMenu}
function TLinkPopUpMenu.CopyMenu(src: TMenuItem) : TMenuItem;
var NSM : TMenuItem; i: Integer;
begin
if src.Count <> 0 then
begin
NSM := NewItem(src.Caption, src.ShortCut, src.Checked,
src.Enabled, src.OnClick, src.HelpContext,
src.Name + 'Item');
for i := 0 to src.Count - 1 do
NSM.Add(CopyMenu(src.Items[i]));
Result := NSM;
Inserted.Add(Result);
end else
begin
Result := NewItem(src.Caption, src.ShortCut, src.Checked,
src.Enabled, src.OnClick, src.HelpContext,
src.Name + 'Item');
Inserted.Add(Result);
end;
end;
constructor TLinkPopUpMenu.Create(aOwner:TComponent);
begin
inherited Create(aOwner);
Inserted := TList.Create;
Done := False;
end;
destructor TLinkPopUpMenu.Destroy;
begin
Inserted.Free;
inherited Destroy;
end;
procedure TLinkPopUpMenu.Popup(X, Y: Integer);
var
i, k: Integer;
mi_x, mi_y: TMenuItem;
begin
inherited Popup(X, Y);
if FActive AND Assigned(FMenuItem) then
begin
if Assigned(FOnAppend) then FOnAppend(Self);
if not Done then
begin
for i := 0 to Items.Count - 1 do
FMenuItem.Add(CopyMenu(Items[i]));
Done := True;
end;
end
else
begin
if Assigned(FMenuItem)then
begin
if Assigned(FOnRemove) then FOnRemove(Self);
for i := FMenuItem.Count - 1 downto 0 do
begin
mi_x := FMenuItem.Items[i];
for k := Inserted.Count - 1 downto 0 do
begin
mi_y := Inserted.Items[k];
if mi_x = mi_y then FMenuItem.Remove(FMenuItem.Items[i]);
end;
end;
Done := False;
end;
end;
end;
procedure Register;
begin
RegisterComponents('Custom',
[TLinkPopUpMenu,TSystemMenuItem,TSystemMenu]);
end;
end.
---------------------------------
> -----Original Message-----
> From: Tomas Bradle [mailto:t.bradle(zv)pvtnet(tec)cz]
> Sent: Thursday, August 31, 2000 2:47 PM
> To: Delphi Konference
> Subject: Komponenta na zpracovani zprav okna
>
>
> Zdravim vsechny,
>
> Chci se zeptat, jestli nekdo nevi jak by sla udelat komponenta (asi
> potomek
> TComponent), ktera by se umistila na formular, a uz jenom tim, ze by tam
> byla, by zaclenila svoji vlastni obsluznou proceduru do systemu zracovani
> zprav toho formulare.
>
> Jde mi hlavne o to, ze ta komponenta umisti polozku do syst. menu a
> samozrejme ji take musi obslouzit, aby to melo smysl.
>
> Diky predem
>
> Tomas Bradle
> t.bradle(zv)pvtnet(tec)cz
> Zobrazeni casti BLOBu
[*] Ren� Otisk - 1.9.2000 08:26:52
Ja to na MS SQL serveru delam pretypovani toho Blobu uz v dotazu (SELECT X,
Y, MyBlob, CAST(MyBlob as NVarchar(30)) as MyKousekBlobu) a v gridu pak
zobrazuji jen ten X, Y a MyKousekBlobu
Sroub
Mam tento problem: Mam tabulku, jejiz casti je i textovy BLOB. Potrebuji v
RxDBGridu tabulku zobrazit, ale tak, ze namisto symbolu u te polozky BLOB
bude urcita cast textu, ktery je v tom BLOBu zapsan. Da se to zaridit
nastavenim nejake property toho RxDBGridu? Pokud ne, napadlo me takove
reseni, ze vytvorim tabulku v pameti, naplnim ji daty a navic tam dam
textovou polozku, kterou naplnim urcitym kusem textu z toho BLOBu. Tomu
RxDBGridu pak vnutim tuto pametovou tabulku (radove stovky zaznamu a cca 10
polozek). Nemate nekdo lepsi reseni?
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************IB6 a Delphi
[*] Ren� Otisk - 1.9.2000 08:41:15
ODBC Ovladac k sestce tusim neni jeste dokonce (na strankach inprise jest
cosi o tomto psano), zkus primo FreeIBComponents nebo nebo IBObject...
Sroub
> Dobry den,
> potreboval bych vedet, jake mam moznosti pripojeni z Delphi k IB6 (BDE,
> ODBC, atd.). Mam D3 a D4.
> Predem diky Petr Riedel
IB6 a Delphi
[*] Petr Palicka <petr.palicka(zv)atlas(tec)cz> - 1.9.2000 09:05:34
ahoj,
delphi obsahuje konponenty IBX pro prime napojeni na IB zalozka
InterBase.
pro napojeni na IB6 je treba nainstalovat update...
dekuji peca
~~~~~~~~~~~~~~~~~~~~~~~~
[smtp:palicka(zv)aginfo(tec)cz]
~~~~~~~~~~~~~~~~~~~~~~~~
ZEMEDELSKA INZERCE ZDARMA www.aginfo(tec)cz
inzeraty zasilejte pisemne nebo e-mailem: inzerce(zv)aginfo(tec)cz
IB6 a Delphi
[*] pcb(zv)atlas(tec)cz - 1.9.2000 09:10:09
Haj hou!
On 1 Sep 2000,, Riedel Petr wrote:
> potreboval bych vedet, jake mam moznosti pripojeni z Delphi k IB6 (BDE,
> ODBC, atd.). Mam D3 a D4.
> Predem diky Petr Riedel
Z D3/4 se lze pripojit pres ibobjects (www.ibobjects.com) nebo
FreeIBComponents (mely by byt jeste na www.interbase.com)
nebo pres BDE. Posledni dve moznosti nedovoluji vyuzit nekterych
novych vlastnosti IB6. ODBC ovladac pro IB6 je k mani za $100
(zatim, nez se naakumuluje $25000 aby se mohlo0 zaplatit
autorovi, pak bude open source) na www.ibphoenix.com.
Jinak je mozne pouzit ODBC pro IB5 (napriklad z nove instalace
pro Win na www.interbase2000.org).
Hodne zdaru
Pavel Cisar <pcisar(zv)inprise(tec)cz>
Borland s.r.o.Instalace IB6 pomoci Inno Setupu
[*] pcb(zv)atlas(tec)cz - 1.9.2000 09:11:26
Haj hou!
On 31 Aug 2000,, voltrr1.epr(zv)mail.cez(tec)cz wrote:
> nemate nekdo script na subj ???
Ne, ale je ke stazeni script pro Wise na www.interbase2000.org
Hodne zdaru
Pavel Cisar <pcisar(zv)inprise(tec)cz>
Borland s.r.o.Forwarded by Ivan Kozak
[*] Ivan Kozak <kozaki(zv)atlas(tec)cz> - 1.9.2000 01:00:22 -0700
http://www.DelphiZine.com/features/2000/10/di200010rg_f/di200010rg_f.asp
Zobrazeni html stranky
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 1.9.2000 10:05:45
On 31 Aug 2000, at 21:38, Milan C�zek wrote:
> Vlastne mi jde oto, aby html kod a obrazky byli soucasti programu
> (exe) - aby se nedaly modifikovat.
Mno, a uloz si to hezky do tabulky resourcu. S mym novym
Lokalizatorem si bude kazdy moci napsat ovladac pro vycrackovani
a zmenu tveho resourcu. :-)
BTW - az dosud jsem vyhlasoval, ze Lokalizator nebude
podporovat prime vkladani lokalizovanych resourcu zpet do
programu pod W95 a 98. Timto sve prohlaseni rusim a vyhlasuji, ze
nova verze to umet bude. Provoz Lokalizatoru take bude zcela
nezavisly na (ne)instalovanem Delphi. A mnoho dalsich prijemnosti.
BTW2 - ovsem bude to drazsi nez stavajici verze. Vyhlasuji vsak
zavazek, ze kazdy, kdo bude mit do uvedeni verze 5 zakoupenou a
zaplacenou verzi 4, dostane takovou cenu na upgrade, ze soucet
stare ceny + upgrade bude o 10% nizsi nez nova cena.
Sorry za komercni vsuvku.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Editace needitovatelne polozky (ADONIS)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 1.9.2000 10:05:44
On 31 Aug 2000, at 23:27, Hynek Svato� wrote:
> nemate nahodou nekdo v rukavu nejakou fintu, jak prinutit TADODataSet
Mame...
> s nastavenym ChachedUpdates, abych mohl ukladat hodnoty i do polozek,
> ktere v principu nelze editovat ? Jedna se o polozky AUTOINCREMENT a
> dale pak polozky, ktere se vraceji z query, ale neexistuji fakticky v
> zadne tabulce (napr: select toto_je_ta_polozka= case Typ when 0 then
> 'Typ1' else 'Typ2' end from ...)
>
> Toto chovani nutne potrebuji, v dialogu edituji vice vet najednou, na
> ktere navazuji dalsi vety z jinych tabulek (ktere samozrejme edituji v
> temze dialogu, pakarna).
... tise predpokladam, ze pracujes nad SQL databazi. Pokud ne, je
nejvyssi cas s tim zacit. :-)
1. Vyhni se editaci v db_aware komponentach a tim padem i primo
pres TXxxxField. Data si pretahni do normalnich editu, nebo treba
do StringGridu, a tam si delej co chces.
2. Ukladani opet nedelej pres TXxxxField, ale vyhradne pres
ulozene procedury, pripadne prime poslani SQL prikazu z
programu. Opet, zde si muzes delat dle libosti vse, co ti dovoli
databaze.
Je to sice trochu pracnejsi na psani kodu, ale na druhe strane
usetris hromadu casu za vymysleni obezlicek na neco, co je v
principu chybne.
Toto tema mi uz pripada jako kafemlejnek. Toci se porad dokola.
:-) Nad SQL databazi povazuji za nesmyslne editovat "aktivni" data,
to je vhodne leda tak nad souborovou databazi. Jenze, souborova
databaze je dnes vhodna leda tak jako docasne uloziste dat mimo
dosah site, nad kterou nema smysl delat nejakou slozitejsi aplikaci.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Rozbalovac� textov� komponenta
[*] Petr Sladk� <sweet(zv)ksprogram(tec)cz> - 1.9.2000 10:45:07
Dobry den
Nevite n�kdo jestli existuje komponenta n�co jak je v adresni bar v Expoleru, kdy� pisete aby se vam pod textem robalil list
Box, kter� se bude aktualizovat a omezovat na polozky odpovidajici vyberu.
Diky
sweet
DBEdit - =?ISO-8859-2?Q?zachycen=ED inf?=ormace o
[*] Pavel �ern� - 01.9.2000 12:15:44
Vazeni,
potrebuji si odvodit MujDBEdit, v nem zachytit informaci o tom,
ze DataSet, ktery je zdrojem mych dat, zmenil State ( napr presel
z dsBrowse do dsEdit modu).
Ja chci na tuto udalost nejak reagovat.
Tusim, ze pres DataLinky takova komunikace od DataSetu
smerem k pripojenym Data Aware komponentam probiha,
ale nevim, kde se mam zachytit.
Diky za pomoc.
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
Editace needitovatelne polozky (ADONIS)
[*] Hynek Svato� <svatos(zv)kam(tec)czu(tec)cz> - 1.9.2000 14:07:11
To vse, co pises, zamozrejme znam, pouzivam, nejsem zase
az takovy zacatecnik v programovani db ;-) (dle meho skromneho nazoru),
nicmene dataset s CachedUpdates pouzivam jako docasne uloziste zaznamu v
programu,
ta data potom na sql samozrejme zenu pres StoredProc, mam to vse
zautomatizovane,
takze se vse chodi s minimem namah.
Vlastne takovy dataset pouzivam jako MemoryTable, je to VELICE sikovne,
umoznuje to vse, co dokaze dataset (fitry,l trideni, ...) a co bych jinak
musel slozite programovat.
Jelikoz jsem nucen tvorit slozite dialogy, kde musim editovat i vice zaznamu
najednou
(ne pres DB db_aware komponenty), potrebuji napr. pro udrzeni master-detail
vztahu zadavat
docasna ID zaznamum (po ulozeni vety do DB pres lozenou proceduru ziskam
skutecne ID
a muzu tak pokracovat vesele v ukladani podrizenych zaznamu).
CachedUpdates mam nastaveno jen coby berlicku, abych si mohl beztrestne
ukladat docasne data
v dialogu vyhodnym zpusobem.
Z tohoto duvodu potrebuju editovat i needitovatelne polozky.
Keep mailing :-)
=======================
Hynek Svato�
svatos(zv)kam(tec)czu(tec)cz
hynek.svatos(zv)atlas(tec)cz
=======================
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Zbysek Hlinka
> Sent: Friday, September 01, 2000 10:06 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Editace needitovatelne polozky (ADONIS)
>
> On 31 Aug 2000, at 23:27, Hynek Svato� wrote:
>
> > nemate nahodou nekdo v rukavu nejakou fintu, jak prinutit TADODataSet
>
> Mame...
>
> > s nastavenym ChachedUpdates, abych mohl ukladat hodnoty i do polozek,
> > ktere v principu nelze editovat ? Jedna se o polozky AUTOINCREMENT a
> > dale pak polozky, ktere se vraceji z query, ale neexistuji fakticky v
> > zadne tabulce (napr: select toto_je_ta_polozka= case Typ when 0 then
> > 'Typ1' else 'Typ2' end from ...)
> >
> > Toto chovani nutne potrebuji, v dialogu edituji vice vet najednou, na
> > ktere navazuji dalsi vety z jinych tabulek (ktere samozrejme edituji v
> > temze dialogu, pakarna).
>
> ... tise predpokladam, ze pracujes nad SQL databazi. Pokud ne, je
> nejvyssi cas s tim zacit. :-)
>
> 1. Vyhni se editaci v db_aware komponentach a tim padem i primo
> pres TXxxxField. Data si pretahni do normalnich editu, nebo treba
> do StringGridu, a tam si delej co chces.
>
> 2. Ukladani opet nedelej pres TXxxxField, ale vyhradne pres
> ulozene procedury, pripadne prime poslani SQL prikazu z
> programu. Opet, zde si muzes delat dle libosti vse, co ti dovoli
> databaze.
>
> Je to sice trochu pracnejsi na psani kodu, ale na druhe strane
> usetris hromadu casu za vymysleni obezlicek na neco, co je v
> principu chybne.
>
> Toto tema mi uz pripada jako kafemlejnek. Toci se porad dokola.
> :-) Nad SQL databazi povazuji za nesmyslne editovat "aktivni" data,
> to je vhodne leda tak nad souborovou databazi. Jenze, souborova
> databaze je dnes vhodna leda tak jako docasne uloziste dat mimo
> dosah site, nad kterou nema smysl delat nejakou slozitejsi aplikaci.
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
> Phones: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
Result z TQuery (volani stored procedure)
[*] martin.falta(zv)obi.de - 1.9.2000 13:52:08
Ahoj,
tak si zkus nadefinovat v TQuery jeden output parametr, do ktereho se ti
ulozi navratova hodnota.
Martin
Von: xkrajic(zv)ics.muni(tec)cz(zv)fwd(tec)cz am 30.08.2000 17:26 OEZ
Bitte antworten an delphi-l(zv)fwd(tec)cz
Gesendet von: owner-delphi-l(zv)fwd(tec)cz
An: delphi-l(zv)fwd(tec)cz
Kopie:
Thema: Re: Result z TQuery (volani stored procedure)
V tomhle pripade je TQuery lepsi reseni nez TStoredProc.
Mam to odzkousene.
Ondrej Krajicek
martin.falta(zv)obi.de wrote:
>
> Ahoj,
>
> zkus pouzit komponentu TStoredProc. Ta je delana primo pro spousteni
> ulozenych procedur.
>
> Martin
>
> Von: xkrajic(zv)ics.muni(tec)cz(zv)fwd(tec)cz am 30.08.2000 10:46 OEZ
>
> Bitte antworten an delphi-l(zv)fwd(tec)cz
>
> Gesendet von: owner-delphi-l(zv)fwd(tec)cz
>
> An: delphi-l(zv)fwd(tec)cz
> Kopie:
> Thema: Result z TQuery (volani stored procedure)
>
> Dobry den vsem,
>
> sice je to znacne hloupa otazka, ale databaze nejsou zrovna
> moje parketa, takze si nevim rady. Kdyz volam
> proceduru na SQL serveru (Informix) pomoci
> TQuery (execute procedure...), ktera vraci Integer,
> jak mam ziskat jeji navratovou hodnotu ?
> Pokud to zapisu v Database Exploreru, tak navratovou
> hodnotu vypise.
>
> TIA,
>
> Ondrej Krajicek
>
> --
> OK-)
>
> IMPORTANT NOTICE:
> This email is confidential, may be legally privileged, and is for the
> intended recipient only. Access, disclosure, copying, distribution, or
> reliance on any of it by anyone else is prohibited and may be a criminal
> offence. Please delete if obtained in error and email confirmation to the
sender.
--
OK-)
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the sender.Report Builder
[*] Michal K�s <kus(zv)tangosw(tec)cz> - 1.9.2000 15:06:39
> S RB mam dobre skusenosti, doporucujem... :)
>
Kterou verzi Pro nebo Ent.
Mas zkusenosti s "Report Application Pascal", ktery je
v Ent?
Ahoj
Michal IB6 a Delphi
[*] Michal Frajt <frajt(zv)aki(tec)cz> - 01.9.2000 15:53:42
Ahoj,
osobne jsem zkousel pripojeni k IB6 jak z Delphi tak C++ pomoci BDE a SQL
Links. Vse fungovalo do te doby, nez se zacne pracovat s datovym typem
DATE nebo DATETIME, ktery nynejsi ovladace nerozpoznaji a hlasi "Invalid
field type" (napr. pri prohlizeni tabulky pomoci DBGridu). Jak se lze
docist v dokumentaci, ve verzi IB6 jsou provedeny zmeny reprezentace
datovych typu, vcetne problematickeho DATE a DATETIME. Nepomohlo ani
nainstalovani upgrade SQL Links na 5.1.1.1.
Michal
> Dobry den,
> potreboval bych vedet, jake mam moznosti pripojeni z Delphi k IB6 (BDE,
> ODBC, atd.). Mam D3 a D4.
> Predem diky Petr Riedel
--
Michal Frajt
SMS brana
[*] Jozef Strnadik <strnadik(zv)mbox.mrp(tec)cz> - 01.9.2000 17:13:42
Ahoj,
> > Nema nekdo z konference zkusenosti s pouzivanim WWW SMS brany ze svych
> > programu?? Potrebuju, aby muj program dokazal predat parametry
> > CGI skriptu,
no, mna by napr. zaujimala brana, ktora je na www.mtnsms.com a ta zasa pouziva
ASP
> Vim, ze je drze radit Ti to co nechces, ale hral jsem si s tim a nakonec
> jsem dosel ke zkusenosti,
> ze posilani pres e-mail je lepsi.
Je to sice lepsie, ale neviem ako v Cechach ale u nas na Slovensku je podobna
sluzba platena a teda nie kazdy ju ma.
Preto budem rad ak sa ozve niekto, kto ma skusnosti s branou mtmsms.com
--
S pozdravom
Jozef Strnadik
E-mail: strnadik(zv)mbox.mrp(tec)cz
DBEdit - zachycen� informace o zm�n� DataSet.Sta
[*] Jirka Virt <virt(zv)volny(tec)cz> - 1.9.2000 20:01:46
Ahoj,
nedelal jsem sice primo toto ,ale zavesoval jsem pri prechodu TTable do
EDIT
modu kontrolu na uzamknuti zaznamu.
Tusim , ze to bude neco podobneho.
Svoje testy budes muset zavesit do vlastni komponety na bazi TTable
do procedury
InternalEdit,InternalInsert,InternalPost,InternalDelete(mozna, ze by to
stacilo odchytavat v Internal Refresh, ale to nevim - jenom hadam ), kde je
SetState
a tam se prirazuji hodnoty dsEdit,dsPost....
vice viz ...\Source\VCL\db.pas.
Jo , kdyby to neslo dej vedet , mrknul bych se na to.Asi tusim, ze to budu
casem taky potrebovat - takze , aby dva nedelali totez.
Jirka Virt
email: virt(zv)volny(tec)cz
----- Original Message -----
From: Pavel �ern� <cerny(zv)cerny-ps(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 01, 2000 12:15 PM
Subject: DBEdit - zachycen� informace o zm�n� DataSet.State BEdit -
zachycen� informace o zm�n� DataSet.State
> Vazeni,
>
> potrebuji si odvodit MujDBEdit, v nem zachytit informaci o tom,
> ze DataSet, ktery je zdrojem mych dat, zmenil State ( napr presel
> z dsBrowse do dsEdit modu).
> Ja chci na tuto udalost nejak reagovat.
> Tusim, ze pres DataLinky takova komunikace od DataSetu
> smerem k pripojenym Data Aware komponentam probiha,
> ale nevim, kde se mam zachytit.
>
> Diky za pomoc.
>
>
> Pavel �ern�
> email: pavel(zv)cerny-ps(tec)cz
>
>
>
Stisknute klavesy
[*] honza-world <honza.kachlik(zv)worldonline(tec)cz> - 1.9.2000 20:02:59
Potreboval byh poradit jak napsat v delphi program ktery by zapisoval
stisknute klavesy.DBEdit - zachycen� informace o zm�n� DataSet.Sta
[*] Jirka Virt <virt(zv)volny(tec)cz> - 1.9.2000 20:07:54
Ahoj,
ted jsem si vzpomel .Komponenta TTable uz ma toto osetreny.
Eventy : BeforeEdit,AfterEdit atd....
Jirka Virt
email: virt(zv)volny(tec)cz
----- Original Message -----
From: Pavel �ern� <cerny(zv)cerny-ps(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 01, 2000 12:15 PM
Subject: DBEdit - zachycen� informace o zm�n� DataSet.State BEdit -
zachycen� informace o zm�n� DataSet.State
> Vazeni,
>
> potrebuji si odvodit MujDBEdit, v nem zachytit informaci o tom,
> ze DataSet, ktery je zdrojem mych dat, zmenil State ( napr presel
> z dsBrowse do dsEdit modu).
> Ja chci na tuto udalost nejak reagovat.
> Tusim, ze pres DataLinky takova komunikace od DataSetu
> smerem k pripojenym Data Aware komponentam probiha,
> ale nevim, kde se mam zachytit.
>
> Diky za pomoc.
>
>
> Pavel �ern�
> email: pavel(zv)cerny-ps(tec)cz
>
>
>SMS brana
[*] Vasek Navrat <engine(zv)ropacek(tec)cz> - 2.9.2000 01:16:53
Hosi,
ono je sice fajn, jak jste se rozkecali o vyhodach a nevyhodach mobilnich
e-mailovych adres, ale ja bych opravdu potreboval poradit (aspon vseobecne),
jak muzu z Delphi predat parametry CGI scriptu.
No a kdyz vas zajima, proc to nechci tahnout pres mejly, tak to ma sve
duvody:
1) tarify Paegasu maji mejl v podobe jmeno(zv)sms.paegas(tec)cz, Twisty
+42mobilni_cislo(zv)sms.paegas(tec)cz a ktery program se v tom ma potom vyznat -
chci uzivatelsky jednoduchy program, kteremu staci zadat jen tel.cislo
(stejne jako na WWW SMSgate) a ne aby uzivatel zjistoval, jakou ma mejlovou
adresu.
2) do mejlu se vejde mene znaku, protoze se zapocitava i mejlova adresa
odesilatele (cim delsi,tim kratsi obsah textu).
3) kdyz predam scriptu cely obsah zpravy, tak si ho rozdeli, jak ma a
neztrati se zadny znak. Ja jsem si uz sice udelal algoritmus, ktery to
zvlada podobne jako script (ale musi zapocitavat i delku mejlove adresy
odesilatele), ale proc to radsi neprenechat profikum z RadioMobilu, kteri si
to muzou dosyta vyzkouset a vychytat vsechny mouchy.
Jinak co se tyce te rychlosti, tak jsem si zkusil poslat z mejlu SMSku na
sveho Twista a byla na nem priblizne za minutu od odeslani, takze casy jsou
hodne slusne. Jen si jeste dovolim pridat svuj osobni nazor: Paegas je
vzdycky o krok dopredu pred Eurotelem - viz. napriklad telefonovani pres
internet, ktere nejdrive Eurotel (a Telecom, coz je vlastne ale skoro to
same vzhledem k vlastnikum) zaloval, ale udelal to jen proto, aby ziskal cas
na to, aby to stihl taky udelat a tim neprisel o zakazniky a zisky.
Takze, mohl by mi nekdo poradit, jak mam predat ty parametry CGI scriptu?
S letnim pozdravem
Vasek Navrat
>
> >>>> MUS.TC."SMTP: L. ZITA#konference(zv)sales(tec)cz" 08/30 11:17 >>>
> >Behalf Of Vasek Navrat
> >> Zdravim !
> >>
> >> Nema nekdo z konference zkusenosti s pouzivanim WWW SMS brany ze svych
> >> programu?? Potrebuju, aby muj program dokazal predat parametry
> >> CGI skriptu,
> >> ktery je na WWW Paegasu (nebo Eurotel) a tim odeslal SMS. Nebo
> >>> alespon kdyby
> >> nekdo poradil vseobecne o predavani parametru skriptum CGI pres Delphi.
> >> Nejsem v tehle oblasti zrovna expert, takze je pro me kazda rada dobra.
> >>
> >> Ja vim, slo by to resit posilanim mejlu na mejlovou adresu mobilu, ale
to
> >> nechci...
> >>
> >> S letnim pozdravem
> >> Vasek Navrat
>
> >Ahoj.
> >
> >Vim, ze je drze radit Ti to co nechces, ale hral jsem si s tim a nakonec
> >jsem dosel ke zkusenosti,
> >ze posilani pres e-mail je lepsi. Nikdy Ti totiz nikdo nezaruci, ze
script
> >bude stale stejny,
> >dokonce (protoze si operatori hlidaji pocet odeslani z jedne IP adresy)
> >musis hlidat cas aby ti SMSka nepadla do kanalu.
> >Ja se to snazil preprat v dobe, kdy doruceni pres e-mail trvalo u
Eurotelu
> >nekdy taky cely den. Dnes uz to ale chodi temer hned (Paegas je na to
dobry
> .odjakziva), tak si myslim, ze si s tim jenom pridelas zbytecne starosti.
> >Jinak jsem pouzival komponenty od Pietteho.
> >
> >Ludek
>
> No s tim Paegasem bych si nebyl tak jisty, ja na nej posilam maily
kamosovy a
> je to bida, kdyz jsme to zkouseli a on poslal email mne z mobilu a ja zpet
na
> jeho adresu co mi prisla cislo(zv)sms.paegas(tec)cz, tak mu to vubec nedorazilo,
ma p
> ausal a kdyz volal na linku, tak mu rekli ze si za pajdu muze udelat email
na
> jmeno, ale ten mu stejne nefunguje, kdyz mu predavam postu z outlook
express.
> Funguje to jen pri posilani nove zpravy, ale predat nemohu nic a dost mne
to
> toci. :-( A kdyz jsem to zkousel na Twista, tak to same v blede modrym.
:-( Na
> mem eurotelu vse bez problemu. A zprava prichazi do dvou minut.
>
>
> M&B
>
>
>
>
>
>
>
>
>Editace needitovatelne polozky (ADONIS)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 2.9.2000 07:52:10
On 1 Sep 2000, at 14:07, Hynek Svato� wrote:
> To vse, co pises, zamozrejme znam, pouzivam, nejsem zase
> az takovy zacatecnik v programovani db ;-) (dle meho skromneho
> nazoru), nicmene dataset s CachedUpdates pouzivam jako docasne
> uloziste zaznamu v programu, ta data potom na sql samozrejme zenu pres
> StoredProc, mam to vse zautomatizovane, takze se vse chodi s minimem
> namah. Vlastne takovy dataset pouzivam jako MemoryTable, je to VELICE
> sikovne, umoznuje to vse, co dokaze dataset (fitry,l trideni, ...) a
> co bych jinak musel slozite programovat.
:-) Tak na co se tedy ptas?
> Jelikoz jsem nucen tvorit slozite dialogy, kde musim editovat i vice
> zaznamu najednou (ne pres DB db_aware komponenty), potrebuji napr. pro
> udrzeni master-detail vztahu zadavat docasna ID zaznamum (po ulozeni
> vety do DB pres lozenou proceduru ziskam skutecne ID a muzu tak
> pokracovat vesele v ukladani podrizenych zaznamu).
>
> CachedUpdates mam nastaveno jen coby berlicku, abych si mohl
> beztrestne ukladat docasne data v dialogu vyhodnym zpusobem.
>
> Z tohoto duvodu potrebuju editovat i needitovatelne polozky.
Neexistuji needitovatelne polozky, pokud je nasypes do spravneho
bufferu. Asi se holt budes muset vzdat "vyhod" CachedUpdates a
hnat to jinudy.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
DBEdit - zac=?ISO-8859-2?Q?hycen
[*] Pavel �ern� - 02.9.2000 08:30:48
Diky. Tohle je jedna polovina. Ale dalsi otazky jsou
1. kde vzit seznam DataLinku na vsechny vizualni komponenty
2. jakym zpusobem pres jednotlive datalinky primet urcite
vizualni komponenty, aby se sebou neco provedly (tedy
napr. provest urcitou "nadstandardni" metodu techto
komponent)
Pavel �ern�
email: pavel(zv)cerny-ps(tec)cz
>>> "Jirka Virt" <virt(zv)volny(tec)cz> 1.9.2000 20:01:46 >>>
Ahoj,
nedelal jsem sice primo toto ,ale zavesoval jsem pri prechodu TTable do
EDIT
modu kontrolu na uzamknuti zaznamu.
Tusim , ze to bude neco podobneho.
Svoje testy budes muset zavesit do vlastni komponety na bazi TTable
do procedury
InternalEdit,InternalInsert,InternalPost,InternalDelete(mozna, ze by to
stacilo odchytavat v Internal Refresh, ale to nevim - jenom hadam ), kde je
SetState
a tam se prirazuji hodnoty dsEdit,dsPost....
vice viz ...\Source\VCL\db.pas.
Jo , kdyby to neslo dej vedet , mrknul bych se na to.Asi tusim, ze to budu
casem taky potrebovat - takze , aby dva nedelali totez.
Jirka Virt
email: virt(zv)volny(tec)cz
----- Original Message -----
From: Pavel �ern� <cerny(zv)cerny-ps(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Friday, September 01, 2000 12:15 PM
Subject: DBEdit - zachycen� informace o zm�n� DataSet.State BEdit -
zachycen� informace o zm�n� DataSet.State
> Vazeni,
>
> potrebuji si odvodit MujDBEdit, v nem zachytit informaci o tom,
> ze DataSet, ktery je zdrojem mych dat, zmenil State ( napr presel
> z dsBrowse do dsEdit modu).
> Ja chci na tuto udalost nejak reagovat.
> Tusim, ze pres DataLinky takova komunikace od DataSetu
> smerem k pripojenym Data Aware komponentam probiha,
> ale nevim, kde se mam zachytit.
>
> Diky za pomoc.
>
>
> Pavel �ern�
> email: pavel(zv)cerny-ps(tec)cz
>
>ListView
[*] Manas <martin.falta(zv)atlas(tec)cz> - 2.9.2000 12:53:00
Ahoj,
potreboval bych v TListView (zobrazen� vsReport) zobrazit nektere polozky v
zavislosti na podmince v jine barve nez ostatni. Za kazdou radu, prip.
ukazku kodu predem dekuji.
Martin Falta
Ovladaci panely
[*] Hurricane <hurricane(zv)email(tec)cz> - 2.9.2000 16:06:25
Bud ty zminovane programy, anebo proste smazte prislusne soubory *.cpl v
adresari SYSTEM, potom ten ovl. panel UPLNE zmizi a neni zadna jina moznost
jak ho vyvolat nez ten soubor nahrat z diskety nebo ze site, nebo ty hodnoty
rucne upravit v registru. Mame to takhle ve skole a myslim, ze to vcelku
funguje, lidi brzy prestane bavit ten soubor kopirovat ze sitove slozky
jenom proto aby si zmenili pozadi ve wokenicich.
Hurricane
----- Original Message -----
> Nevite nekdo z vas, jak se daji zakazat Ovladaci panely ve W95/98?Server s CGI
[*] Hurricane <hurricane(zv)email(tec)cz> - 2.9.2000 16:09:45
www.kgb(tec)cz
www.fbi(tec)cz
----- Original Message -----
> Zdravim,
> neporadil byste mi nekdo, zda existuje nektery server, kde si mohu udelat
> stranky zdarma, ktery by podporoval CGI aplikace, aby se spousteli?
> Diky moc
> Petr Vasicek
>
>Ikona v TaskBaru
[*] Hurricane <hurricane(zv)email(tec)cz> - 2.9.2000 16:19:46
Zdravim
Nemyslim si, ze by to bylo jinak, i kdyz nemam zkusenosti. Kazdopadne v 9x
je to 16x16x16. (i kdyz ted si nejsem jistej, jestli to neni 256 barev, lae
myslim ze ne). Pokud tomu vnutite jakoukoliv jinou ikonu, wokenice si ji
samy prevedou na tu spravnou (16x16x??)
Hurricane
----- Original Message -----
> ahoj,
> mohl by nekdo poradit, v jakem rozliseni a v kolika barvach je potreba
> udelat ikonu do taskbaru (vedle hodin). Myslim, ze je to nejak jinak ve
> win9x a winNT?MessageDlg
[*] Hurricane <hurricane(zv)email(tec)cz> - 2.9.2000 16:23:30
Zkus MessageDlgPos, tomus predavaji i hodnoty Top, Left, mozna i Width,
Height.
----- Original Message -----
> Zdravim, lze nejak jednoduse subject vycentrovat doprostred me aplikace,
nebo
> ho budu muset nahradit vlastnim "Formem"? D5 NT4. Dik
Rozbalovac� textov� komponenta
[*] Hurricane <hurricane(zv)email(tec)cz> - 2.9.2000 16:26:32
mwCustomEdit to resi Formem s ListBoxem.
----- Original Message -----
Nevite n�kdo jestli existuje komponenta n�co jak je v adresni bar v
Expoleru, kdy� pisete aby se vam pod textem robalil list
Box, kter� se bude aktualizovat a omezovat na polozky odpovidajici vyberu.Rozbalovac� textov� komponenta
[*] Tom� Matou�ek - 2.9.2000 18:27:48
[P��loha v souboru: ComplementaryComboBox.pas]
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Neco podobneho jsem si programoval.
Neni to uplne stejny, jak rikas. No uvidis, treba se ti to bude hodit. Muzes
si to i prizpusobit.
Tomas Matousek
----- Original Message -----
From: "Hurricane" <hurricane(zv)email(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Saturday, September 02, 2000 4:26 PM
Subject: Re: Rozbalovac� textov� komponenta
> mwCustomEdit to resi Formem s ListBoxem.
>
> ----- Original Message -----
>
> Nevite n�kdo jestli existuje komponenta n�co jak je v adresni bar v
> Expoleru, kdy� pisete aby se vam pod textem robalil list
> Box, kter� se bude aktualizovat a omezovat na polozky odpovidajici vyberu.
>
>Nastavenie focusu do volajuceho okna.
[*] Roland Tur�an \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 3.9.2000 00:52:38
Zdravim.
Za MDIChild okna volam nasledujuci kod:
------------------------------
if not Assigned(frmKlavesy) then
begin
Application.CreateForm(TfrmKlavesy,frmKlavesy);
frmKlavesy.Show;
SetForegroundWindow(Handle);
end else
if frmKlavesy.Visible then FreeAndNil(frmKlavesy)
else frmKlavesy.Show;
--------------------------------------------------------
kde frmKlavesy.formstyle:=fsStayOnTop;
ale mi nechce vratit zameranie do okna z ktoreho som to volal.
Pokial volam tento kod z okna fsNormal tak je vsetko ako si predstavujem.
Why ?
Dakujem.
Roland
SMS brana
[*] Vasek Navrat <engine(zv)ropacek(tec)cz> - 3.9.2000 02:30:39
No a jak si to teda delal?..prozrad pliis :)
Vasek Navrat
----- Original Message -----
From: L. ZITA <konference(zv)sales(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, August 30, 2000 11:15 PM
Subject: RE: SMS brana
Behalf Of Vasek Navrat
> Zdravim !
>
> Nema nekdo z konference zkusenosti s pouzivanim WWW SMS brany ze svych
> programu?? Potrebuju, aby muj program dokazal predat parametry
> CGI skriptu,
> ktery je na WWW Paegasu (nebo Eurotel) a tim odeslal SMS. Nebo
> alespon kdyby
> nekdo poradil vseobecne o predavani parametru skriptum CGI pres Delphi.
> Nejsem v tehle oblasti zrovna expert, takze je pro me kazda rada dobra.
>
> Ja vim, slo by to resit posilanim mejlu na mejlovou adresu mobilu, ale to
> nechci...
>
> S letnim pozdravem
> Vasek Navrat
Ahoj.
Vim, ze je drze radit Ti to co nechces, ale hral jsem si s tim a nakonec
jsem dosel ke zkusenosti,
ze posilani pres e-mail je lepsi. Nikdy Ti totiz nikdo nezaruci, ze script
bude stale stejny,
dokonce (protoze si operatori hlidaji pocet odeslani z jedne IP adresy)
musis hlidat cas aby ti SMSka nepadla do kanalu.
Ja se to snazil preprat v dobe, kdy doruceni pres e-mail trvalo u Eurotelu
nekdy taky cely den. Dnes uz to ale chodi temer hned (Paegas je na to dobry
odjakziva), tak si myslim, ze si s tim jenom pridelas zbytecne starosti.
Jinak jsem pouzival komponenty od Pietteho.
Ludek
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
QReport a jehlickova tiskarna
[*] Hurricane <hurricane(zv)email(tec)cz> - 3.9.2000 12:10:53
Zdravim
Ja mam tiskarnu Robotron a na ni tisknu pomoci standardniho EPSON 9Pin
ovladace. Pokud tisknes v textovem modu a nemas cestinu, nejspis tvoje
tiskarna nema tyto znaky v pameti. Moje je taky puvodne nemela (mam extra
naprogramovany epromky) a z DOSu to resim pomoci rezidentniho programu,
kterej odchytava pakety posilany dosem na LPT a preposila je na COM (mam
seriovou tiskarnu) a pritom ty data upravuje tak, aby se vytiskly ty cesky
znaky. Takze pokud nemas cesky znaky v epromkach (a nenahrajes si je tam),
tak z toho cestnu nevymacknes ani kdyby ses rozkrajel. Pokud ale tisknes v
grafickem modo (z Windows (notepad,...)) tak se proste tiskne grafika a tam
hacky pochopitelne sou. Nevim jestli funguje ten kod, kterej sem nekdo
poslal, ale podle me, pokud nemas v epromkach cestinu, musis tisknout v
grafickem modu, i kdyz je to pomale.
Hurricane
----- Original Message -----
> > tj primo na Epsonku?
> > Nastavim-li v reportu pismo na Draft 10cpi tak jse to uplne perfektni az
na
> > podstatnou chybicku.Pismena s hackama a carkama jsou o tyto osekana.
> > Nevite nekdo jak toto napravit?SMS brana
[*] Hurricane <hurricane(zv)email(tec)cz> - 3.9.2000 14:41:41
Zdravim
Podle me by to mlo byt jednoduche (jak jinak). Pouzij ShellExecute a jako
jmeno souboru dej adresu na ten skript a s nim i parametry (text zpravy) Ty
parametry si zjistis v adresnim radku po kliknuti na Odeslat na WWW brane.
Problem bude v tom, ze po spusteni tohoto ShellExecute se ti spusti Explorer
se strankou, ktera nasleduje po stisknutii odeslat.
Druha moznost je na to pouzit komponentu HTTP, ktera by to asi taky mela
umet (nikdy sem s ni nepracoval, takze to ber s rezervou).
Kazdopadne odesilej data v takovemto formatu
http://www.brana(tec)cz/skript.cgi?cislo=0123456789&text=ahoj_lidi Pochopitelne
ne presne takhle, tohle je jen tak z hlavy, ale nejak tak to musi vypadat.
Problem by podle me nemel byt v tom, jak odeslat data na server, ale jak
zpracovat to, co ti server vrati.
P.S.: Omlouvam se, jestli placam blbosti, nejsem zadny IT guru.
Hurricane
----- Original Message -----
> jak muzu z Delphi predat parametry CGI scriptu.Quick report
[*] nnfapso(zv)kios.sk - 3.9.2000 19:06:57
Ahojte,
mam problem s aplikaciou, ktora tlaci z databazy obrazky. Ten problem je
v tom, ze tie obrazky tlaci vo velmi zlej kvalite. Ked som skusal demo na
quick report, ktory tlacil obrazky tiez z databazy, boli vytlacene normalne.
V com moze byt problem?
Prosim, pomozte mi
Miso nnfapso(zv)kios.sk
Sitovy adapter
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 3.9.2000 22:14:25
From: "Zdenek Janish" <medusa(zv)brajan(tec)cz>
> Mel bych jeden dotaz:
> Porebuji prevadet TCP/IP (i ostatni protokoly) na Seriovy port, kde mam
Ahoj,
na toto existuji specialni HW moduly, je to asi spolehlivejsi nez pouzit PC.
Petr Vones, amatersky programator
Stisknute klavesy
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 3.9.2000 22:14:32
From: "honza-world" <honza.kachlik(zv)worldonline(tec)cz>
> Potreboval byh poradit jak napsat v delphi program ktery by zapisoval
> stisknute klavesy.
Ahoj,
jen pro tvoji aplikaci nebo v celem systemu ?
Petr Vones, amatersky programator
�asova�e ve Windows + tvorba script�
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 3.9.2000 22:14:29
From: "Pavol Kaka�ka" <paka(zv)aktis(tec)cz>
> 1. Windows mozu mat maximalne 32 (myslim) Timerov a to pre vsetky aplikacie
> spolocne!
Ahoj,
Toto platilo v 16bit "Windows". Ve Win32 jich muzes mit daleko vice.
Petr Vones, amatersky programator
ListView
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 3.9.2000 22:14:06
From: "Manas" <martin.falta(zv)atlas(tec)cz>
> potreboval bych v TListView (zobrazen� vsReport) zobrazit nektere polozky v
> zavislosti na podmince v jine barve nez ostatni. Za kazdou radu, prip.
> ukazku kodu predem dekuji.
Ahoj,
napriklad takhle. Pokud mas D5 tak musis mit instalovat UpdPack #1:
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Odd(Item.Index) then
Sender.Canvas.Font.Color := clRed;
end;
Petr Vones, amatersky programator
Zobrazeni html stranky
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 3.9.2000 22:14:45
From: "Milan C�zek" <cizek.milan(zv)seznam(tec)cz>
> Vlastne mi jde oto, aby html kod a obrazky byli soucasti programu (exe) -
> aby se nedaly modifikovat.
Ahoj,
HMTL stranky muzes pridat jako HTML resource a pak primo zobrazovat pomoci IE:
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate(Format('res://%s/%s', [Application.ExeName, 'INDEX']));
end;
PAGES.RC:
---------
#define HTML 23
INDEX HTML "D:\Dokumenty\Pages\index.htm"
Petr Vones, amatersky programator
Rozdil mezi LPARAM a Longint
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 3.9.2000 22:15:44
From: "Brant Petr" <Brant(zv)dcomm(tec)cz>
> function BrowseCallbackProc(Wnd: HWnd; Msg: UINT; lParam: LPARAM; lData:
>
> Pritom funkce FormatSelection vraci string, takze typ je stejny jako u moji
> promenne m_InitialDirectory. A ted ta zahada: Kdyz se pokousim pretypovat
> pomoci LPARAM jako je to u meho vzoru, tak kompilator krici "missing
> operator or semicolon". Kdyz jsem uz ze zoufalstvi napsal misto LPARAM
> LongInt, coz by melo byt stejne, kompilator to vezme a dokonce to i funguje.
> Nevite nekdo, co je blbe? Mam D5 Prof., W98SE.
Ahoj,
na prvni pohled se mi nelibi stejny nazev promenne "lParam" jako typ "LPARAM"
v parametrech te callback funkce.
Petr Vones, amatersky programator
NT aplikace pod 98
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 3.9.2000 22:18:53
From: "Martin Dietl" <dietl(zv)4USE(tec)cz>
> Mam odladenou aplikaci (v D4) pod NT. Pri pokusu o spusteni pod 98 temer
> ihned (pred zobrazenim formu) hlasi chybu:
> "Program provedl neplatnou operaci a bude ukoncen ..."
> Pri prekladu pod 98 funguje O.K. Prosim poradte, kde muze byt problem, co
> hledat a osetrit.
Ahoj,
znamena to, ze vysledny EXE soubor se lisi v pripade prekladu pod Win98 a NT ?
Pokud ano tak hledej spise problem v instalaci Delphi ci komponent na obou
strojich.
Petr Vones, amatersky programator
SMS brana
[*] L. ZITA <konference(zv)sales(tec)cz> - 3.9.2000 22:20:12
Behalf Of Vasek Navrat
> Hosi,
>
> ono je sice fajn, jak jste se rozkecali o vyhodach a nevyhodach mobilnich
> e-mailovych adres, ale ja bych opravdu potreboval poradit (aspon
> vseobecne),
> jak muzu z Delphi predat parametry CGI scriptu.
>
No asi vime proc... Ale komu neni ... takze :
Pouziva komponenety od F.Pietteho (ale je asi celkem jedno co pouzijes).
Podstatna je nasledujici unita (normalne to dela prohlizec za tebe), pomoci
ktere to musis prekodovat.
Ludek
{***************************************************************
*
* Unit Name: URLcode
* Purpose : Decode/Encode URLs for RFC1738 and
application/x-www-form-urlencoded
* Author : Ludek ZITA (c) 1999 ludek(zv)sales(tec)cz
* History :
*
****************************************************************}
unit URLcode;
interface
uses SysUtils;
//application/x-www-form-urlencoded media type ( space => "+")
function UrlDecode(const S : string):string;
function UrlEncode(const S : string):string;
//RFC1738 (space => "%20")
function RawUrlDecode(const S : string):string;
function RawUrlEncode(const S : string):string;
implementation
function validHexa(const S: string):Boolean;
var I : integer;
begin
Result := FALSE;
for i:=1 to Length(S) do
begin
if S[i] in ['0'..'9','A'..'F'] then
Result := TRUE
else
begin
Result := FALSE;
Exit;
end;
end;
end;
function UrlDecode(const S : string):string;
var i : integer;
begin
Result := '';
if Length(S)=0 then Exit;
i:=1;
repeat
if ((S[i]='%') AND (ValidHexa(Copy(S,i+1,2)))) then
begin
Result := Result + Chr(StrToInt('$'+Copy(S,i+1,2)));
i := i + 3;
end else
begin
if s[i]='+' then
Result := Result + ' '
else
Result := Result + S[i];
Inc(i);
end;
until (i>Length(S))
end;
function RawUrlDecode(const S : string):string;
var i : integer;
begin
Result := '';
if Length(S)=0 then Exit;
i:=1;
repeat
if ((S[i]='%') AND (ValidHexa(Copy(S,i+1,2)))) then
begin
Result := Result + Chr(StrToInt('$'+Copy(S,i+1,2)));
i := i + 3;
end else
begin
Result := Result + S[i];
Inc(i);
end;
until (i>Length(S))
end;
function RawUrlEncode(const S : string):string;
var i : integer;
begin
Result := '';
for i:=1 to Length(S) do
if Ord(S[i]) in [45,46,48..57,65..90,95,97..122] then
Result := Result + S[i]
else
Result := Result + '%' + Format('%.2x',[Ord(S[i])]);
end;
function UrlEncode(const S : string):string;
var i : integer;
begin
Result := '';
for i:=1 to Length(S) do
case Ord(S[i]) of
45,46,48..57,65..90,95,97..122 : Result := Result + S[i];
32 : Result := Result + '+';
else Result := Result + '%' +
Format('%.2x',[Ord(S[i])]);
end;
end;
end.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.145 / Virov� b�ze: 69 - datum vyd�n�: 4.5.2000
Zobrazeni obsahu bunky pri OnMouseMove
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 3.9.2000 22:40:21
From: "Ing. Ji�� Stecker" <jiri.stecker(zv)vsb(tec)cz>
> Potreboval bych v DBGridu pri OnMouseMove ziskat obsah bunky, na
> kterou prave ukazuje kurzor mysi a text zobrazit do Labelu. Nejsem
> schopny ziskat cislo radku, na kterem jsem vzhledem k zacatku. Se
> sloupci neni problem. Poradite mi ???
Ahoj,
napriklad takhle:
type
TDBGridHack = class(TDBGrid);
function MouseToDBGridCellText(DBGrid: TDBGrid): string;
var
Cell: TGridCoord;
P: TPoint;
LastActiveRecord: Integer;
begin
with TDBGridHack(DBGrid) do
begin
GetCursorPos(P);
P := ScreenToClient(P);
Cell := MouseCoord(P.X, P.Y);
if dgTitles in Options then Dec(Cell.Y);
if (Cell.X >= IndicatorOffset) and (Cell.Y >= 0) then
begin
LastActiveRecord := DataLink.ActiveRecord;
try
DataLink.ActiveRecord := Cell.Y;
Result := GetFieldValue(RawToDataColumn(Cell.X));
finally
DataLink.ActiveRecord := LastActiveRecord;
end;
end else
Result := '';
end;
end;
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Caption := MouseToDBGridCellText(TDBGrid(Sender));
end;
Petr Vones, amatersky programator
ZIPMASTER & EXE
[*] Marek Spisak <spishark(zv)post(tec)cz> - 3.9.2000 23:00:21
Zdravicko,> Naistaloval som kompontu ZIPMASTER, ktora je celkom O.K. Ale neviem urobit
> samorozbalovaci subor, ktory by niesol informaciu o tom, kde sa ma tento
> ZIPak rozbalit.
Ked nainstalujes komponentu ZIPMASTER, v adresari Demo5 najdes ukazku tvorby
SelfExctractoru. Prestuduj si kod, je to tam pisane celkom dobre. Odpoved na
Tvoju otazku je:
ZipMaster1.SFXDefaultDir := 'C:\'; // default extract directory
> Pliiiiiiiiiis nebylo by mozne mi tu komponentu teke poslat ????
> Pekne Prosim
> Predem Dik
Muzes si to sosnout na http://www.geocities.com/SiliconValley/Orchard/8607/
Marek Spisak.
Delphi 5 Profi na Win2000CZ Profi
[*] Marek Spisak <spishark(zv)post(tec)cz> - 3.9.2000 23:06:56
Zdravicko,
pouzivam Win2000 US proto, ze jsem mel s ceskou verzi problemy. Chovala se
nejak nestandardne, IMHO kvuli nejakym ovladacum (nebo nejakemu
lokalizacnimu bugu). Problemy jsem nemel s Delphi, ale se systemem. Z
vlastni zkusenosti mohu rict, ze vetsinou jsou anglicke verze systemu
stabilnejsi a lepsi nez zmutovane, zlokalizovane klony. Vyhodou anglickeho
software je take to, ze jakykoli servicepack nebo patch je k dispozici cca o
pul rocku drive nez jeho lokalizovany kolega.
Marek Spisak
FTP server
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 4.9.2000 01:06:59
Zdravim,
Studoval jsem archiv ale byly tam odkazy a debaty jen ohledne FTP klientu. Potreboval bych nejaky FTP server
a hlavne zdroje k tomuto programku nevite?
V delphi/demos/fastnet/ftp je jen ftp klient.
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
�asova�e ve Windows + tvorba script�
[*] Petr Navr�til <DelphiForum(zv)Dssoft(tec)cz> - 4.9.2000 07:09:36
> From: "Pavol Kaka�ka" <paka(zv)aktis(tec)cz>
> > 1. Windows mozu mat maximalne 32 (myslim) Timerov a to pre vsetky
aplikacie
> > spolocne!
>
> Ahoj,
>
> Toto platilo v 16bit "Windows". Ve Win32 jich muzes mit daleko vice.
>
> Petr Vones, amatersky programator
�au,
to nen� tak docela pravda, ve Win32 se jejich po�et zvedl jen na 64 pro
v�echny spu�t�n� aplikace dohromady.
Petr Navr�til
IIS a databaze
[*] Honza Fiala [Delphi] <delphi(zv)kvasar(tec)cz> - 11.8.2001 16:42:50
Napsal jsem webovou aplikaci v delphi a mam tedka problem. Vse ladim na PWS
a po nasazeni na IIS verze 2-4 mi to pada pri jakemkoliv konektu na
databazi. Zajimave na tom bylo, ze jeste nez jsem zacal neco delat, tak
jsem si to na IIS odzkousel a vse jelo. Potom jsme zjistili, ze se takovy
stav jiz jednou opakoval, ale nedavali jsme mu zadnou pozornost. Nejhorsi
je, ze vubec nevim na jakou chybu to pada, protoze jsem si to odchytil open
pres try-except a do except to vubec nevleze. neni to tim, ze by tam chyba
nenastala! Tak se chci zeptat, jesli jste na neco podobneho nenarazili nebo
kde a jak bych mohl hledat pricinu chyby?
jeste mam problem s debugovanim iis. delam to presne podle helpu pro IIS
verze 3. v parametrech spousteci aplikace inetinfo.exe mam -e w3svc. V
taskmanageru se to ukaze, ale IIS se tvari jako stopnute. nevim, jakym
zpusobem mam spustit server? mozna mi tam chybi nejaky parametr nebo neco v
registrech.
Predem moc diky za radu. Opravdu uz nevim jak dal.Ulozeni System.dat
[*] Jiri Novacek <JNovacek(zv)spst(tec)cz> - 07.4.2000 08:43:57
Ahoj lidi.
Narazil jsem na nasledujici problem. Provedu zmenu v registru a
potrebuji zazalohovat soubor system.dat s touto zmenou. Existuje nejaka
funkce, ktera donuti provest aktualizaci system.dat. Ja to resim tak, ze
cekam az dojde ke zmene datumu tohotou souboru, coz nekdy trva treba i
minutu nebo dve.
Predem dik Jirka
TCollectionItem seznam pol�
[*] Radek Janu� <janus(zv)foresta(tec)cz> - 21.8.2000 13:54:42
Ahoj m�m probl�m ,
m�m vlastn� komponentu , kter� m� property typu TCollection .
tato komponenta m� polo�ku DATASOURCE .
V CollectionItem m�m polo�ku Fieldname, kter� by se mela plnit seznamen pol�
z pripojen�ho DATASOURCE.
Jak na to aby se mi vytvorilo na FIELDNAME vysunovac� combo s seznamem pol�
?
V komponente je to jednoduch� .Ale jak to d�t do TCollectionItem ?
D�ky za radu Radek
BDE a nastavenie langdriver pre nativny pristup k
[*] Ondrej Jaura <jaura(zv)datalock.sk> - 1.9.2000 18:52:53
Prajem prijemny vecer :)
----- Original Message -----
From: Pavel Sommer <p.sommer(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 04, 2000 3:51 PM
Subject: RE: BDE a langdriver
>> Ako v programe (D5) alebo v instalacii (InstallShield) nastavit
>> langdriver v BDE? (V BDE Admin je to
Configuration->Drivers->Native->DBASE a
>> polozka Langdriver.)
>> D5 Prof a InstallShield 5.5 Prof
> -----------------------------------------------
> InstallShield 5.5 primo podporuje instalaci BDE
> (File>New>Template>BDE..).
> Ve vygenerovanem projektu v Script Files najdes
> "aliases.ini", ve kterem jsou nastaveny parametry
> daneho aliasu. Tyto parametry jsou presnym odrazem
> parametru v BDE Admin. Takze staci, kdyz tam pridas
> polozku LANGDRIVER= .... napr:
To zrejme sedi pre Interbase a pod. ale NIE pre nativny pristup k databazam
ako dBase!
Tu alias nenesie informaciu o LANGDRIVER - ta sa nastavuje v zalozke
Configuration (v BDE Admin), uplne mimo aliasu...
Tak ako dalej? (riesenie muoze byt aj pod D5Prof aj pod IS5.5Prof :)
Za zachranne kolesa vopred dakujem :)
Ondrej
[ Ondrej Jaura mailto:jaura(zv)datalock.sk ]
[ Datalock a.s. http://www.datalock.sk ]
[ :) ]
Problem s DBGridom
[*] Peter Mojdis <mojdis(zv)colnicapo.sk> - 4.9.2000 07:31:17
Ahoj !
Editujem data v DBGride (poziadavka zakaznika) a narazil som na jeden
problem (najskor chyba vo VCL).
Ak si v gride definujem nejake stlpce ako ReadOnly a nejake pole ako Lookup
do inej tabulky, tak pri editacii dojde k naledovnej chybe:
Najprv si vyberiem hodnotu z rozbalovacieho pola Lookup, potom sa presuniem
na stlpec ReadOnly, pokusim sa ho editovat (co samozrejme nejde) a potom sa
presuniem na stlpec, ktory uz nie je ReadOnly a nemozem editovat uz ani ten!
Editacia sa znovu rozbehne az pri opatovnom presune na pole lookup a vybrati
hodnoty zo zoznamu. Nevie niekto ako tento problem odstranit ?
- tvorba script�
[*] Tom� Vlad�k������V��?���o�� - 4.9.2000 09:09:31
Do C existuji nastroje LEX - pro tvorbu lexikalniho nalyzatoru a YACC - pro tvorbu synanaktickeho analyzatoru. Je to tusim v ramci licence GNU. Umoznuje to velice rychle vytvorit jednoduchy interpret jazyka. Tusim, ze jsem kdysi (cca pred 3 lety) kdesi videl najakou mutaci pro Delphi (D1 ?), ale nezkousel jsem to.
T.
MessageDlg
[*] Ota Maly <maly(zv)space(tec)cz> - 4.9.2000 08:10:22
Ahoj,
pouzij MessageDlgPos - viz help.
Lepsi je vsak pouzivat Application.MessageBox, na tlacitka totiz pise cesky
(respektive jazykem Windows :).
S pozdravem
Ota Maly
PaPouch elektronika
http://www.pap-el(tec)cz
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of Bab�k
Martin (+42035620,MUS a.s. M.Babik)
Sent: Thursday, August 31, 2000 1:57 PM
To: delphi-l(zv)fwd(tec)cz
Subject: MessageDlg
Zdravim, lze nejak jednoduse subject vycentrovat doprostred me aplikace,
nebo
ho budu muset nahradit vlastnim "Formem"? D5 NT4. Dik
M&B
Delphi a Word2000
[*] Marek Soukup <marek(zv)comberg(tec)cz> - 4.9.2000 09:43:28
Zdravim,
stale zapasim s MS Wordem2000 a Delphi5.
Udelal jsem si ve Wordu sablonu, na ktere zalozim novej dokument, kterej
vytvorim pres Delphi a v tom dokumentu jsou zalozky. Ve Wordu se na ne
dostanu pres funkci Selections.Goto What:= wdGotoBookmark, Name:='Zalozka'
ale zaboha to namuzu zavolat z Delphi. Hlasi mi to, ze zalozka neexistuje.
Je to asi tim, ze nevim jake cislo ma konstanta wdGotoBookmark a take nevim
co mam narvat do parametru, ktery Word vubec nevyplnuje Which a Count.
V helpu u Wordu jsem bohuzel nic co by mi pomohlo nenasel a MSDN mi prijde,
ze je to stejnej help.
Muzete mi nekdo poradit jak na to ?
S pozdravem
Marek Soukup
Roudne 126
370 07 Ceske Budejovice
Ceska Republika
tel./fax: +42(038)6351736
ICQ: 13110124
e-mail: marek(zv)comberg(tec)cz
StringGrid
[*] morzol(zv)atlas(tec)cz - 4.9.2000 09:48:14
1) Nev�te n�hodou o free komponente, ktera podporuje tisk StringGridu a wordwrap.
Pokud by umela schovavat sloupce a snadne kresleni do mrizky bylo by to super. To bych chtel ale asi moc.
2) Nevite o free komponente, ktera zachycuje HSHELL_WINDOWACTIVATE, HSHELL_WINDOW_DEACTIVATE atd. Zkratka potrebuji z me aplikace zjistovat kdy byla spustena jina aplikace ?DBGrid a OnTitleClick
[*] Ji�� Fait���}���6���3 - 4.9.2000 09:49:12
Jak muzu zjisti v eventu DBGrid.OnTitleClick zda byla zaroven stisknuta
nejaka jina klavesa (napr. Ctrl).
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.176 / Virov� b�ze: 85 - datum vyd�n�: 26.7.2000
Rozdil mezi LPARAM a Longint
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 4.9.2000 10:02:09
No jo, bylo to ono. Holt zvyk z Cecka, kde se rozlisuji mala a velka
pismena. Diky moc.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
Sent: Sunday, September 03, 2000 10:16 PM
To: Konference Delphi
Subject: Re: Rozdil mezi LPARAM a Longint
From: "Brant Petr" <Brant(zv)dcomm(tec)cz>
> function BrowseCallbackProc(Wnd: HWnd; Msg: UINT; lParam: LPARAM; lData:
>
> Pritom funkce FormatSelection vraci string, takze typ je stejny jako u
moji
> promenne m_InitialDirectory. A ted ta zahada: Kdyz se pokousim pretypovat
> pomoci LPARAM jako je to u meho vzoru, tak kompilator krici "missing
> operator or semicolon". Kdyz jsem uz ze zoufalstvi napsal misto LPARAM
> LongInt, coz by melo byt stejne, kompilator to vezme a dokonce to i
funguje.
> Nevite nekdo, co je blbe? Mam D5 Prof., W98SE.
Ahoj,
na prvni pohled se mi nelibi stejny nazev promenne "lParam" jako typ
"LPARAM"
v parametrech te callback funkce.
Petr Vones, amatersky programator
Velikost formulare
[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 4.9.2000 10:05:36
Ahoj!
Tento problem je ponekud slozitejsi v souvislosti s pouzivanim hlavniho
panelu (listy) a dalsich TaskBaru ve windows, hlavne jejich pozice a
vlastnosti (schovavat ci neschovavat). Z toho pak vyplyva jakou velikost
zbyvajici casti plochy pouzit pro formy (treba pri maximalizaci).
Ja pouzivam pro reseni sub. nasledujici API fce:
SHAppBarMessage(ABM_GETTASKBARPOS,BarData);
Mam udelanou fci, ktera vraci pozici baru.
function GetPosTaskBar : integer;
Var
Sx,Sy : integer;
begin
SHAppBarMessage(ABM_GETTASKBARPOS,BarData);
Sx := GetSystemMetrics(SM_CXSCREEN);
Sy := GetSystemMetrics(SM_CYSCREEN);
GetPosTaskBar := -1;
with BarData.rc do
begin
if (Top+Bottom = Sy) and (Left<0) then
GetPosTaskBar := 0;
if (Left+Right = Sx) and (Top<0) then
GetPosTaskBar := 1;
if (Top+Bottom = Sy) and (Left>0) then
GetPosTaskBar := 2;
if (Left+Right = Sx) and (Top>0) then
GetPosTaskBar := 3;
end;
end;
Dalsi API fce:
GetSystemMetrics(SM_CXFULLSCREEN);
A pak odchytavam wm_GetMinMaxInfo, na kterou mam navesenou proceduru
procedure TPol1Form.GetMinMax (var MinMaxMessage: TWMGetMinMaxInfo);
begin
with MinMaxMessage.MinMaxInfo^ do
begin
ptMinTrackSize.x := 300;
ptMinTrackSize.y := 200;
case GetPosTaskBar of
0 : begin
if Je_WIN98 then
ptMaxPosition.x := 0
else
ptMaxPosition.x := BarData.rc.BottomRight.x;
ptMaxPosition.y := Main_Form.Height;
ptMaxTrackSize.x := GetSystemMetrics(SM_CXFULLSCREEN);
ptMaxTrackSize.y :=
GetSystemMetrics(SM_CYSCREEN)-Main_Form.Height;
end;
1 : begin
ptMaxPosition.x := 0;
if Je_WIN98 then
ptMaxPosition.y := Main_Form.Height
else
ptMaxPosition.y := BarData.rc.BottomRight.y+Main_Form.Height;
ptMaxTrackSize.x := GetSystemMetrics(SM_CXFULLSCREEN);
ptMaxTrackSize.y :=
GetSystemMetrics(SM_CYSCREEN)-BarData.rc.BottomRight.y-Main_Form.Height;
end;
2 : begin
ptMaxPosition.x := 0;
ptMaxPosition.y := Main_Form.Height;
ptMaxTrackSize.x := GetSystemMetrics(SM_CXFULLSCREEN);
ptMaxTrackSize.y :=
GetSystemMetrics(SM_CYSCREEN)-Main_Form.Height;
end;
3 : begin
ptMaxPosition.x := 0;
ptMaxPosition.y := Main_Form.Height;
ptMaxTrackSize.x := GetSystemMetrics(SM_CXFULLSCREEN);
ptMaxTrackSize.y := BarData.rc.TopLeft.y-Main_Form.Height;
end;
end;
end;
end;
Fce Je_WIN98 my vraci zda jedu na WIN98, protoze na 98
SHAppBarMessage(ABM_GETTASKBARPOS,BarData); vraci trochu jine hodnoty nez na
95 a NT. U WIN2000 nema vyzkouseno.
function Je_WIN98 : boolean;
Var
VerzeOs : TOSVersionInfo;
begin
VerzeOs.dwOSVersionInfoSize := SizeOf(VerzeOS);
GetVersionEx(VerzeOS);
with VerzeOS do
if (dwPlatformID=1) and (dwMinorVersion>0) then
Je_WIN98 := True
else
Je_WIN98 := False;
end;
Zkuste to s pozdravem
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 353 062, Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Petr Falt�nek
Sent: Monday, August 28, 2000 12:04 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Velikost formulare
Ahoj lidi!
Nevite nekdo, jak nastavit velikost formulare automaticky nebo podle
nejakych systemovych hodnot tak, aby pokryvala cely desktop, ale
nepresahoval pres systemovou listu a ani nebyl schovan pod ni?
Diky predem za radu
Falta
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.157 / Virov� b�ze: 73 - datum vyd�n�: 31.5.2000
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.157 / Virov� b�ze: 73 - datum vyd�n�: 31.5.2000
DBGrid a OnTitleClick
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 4.9.2000 10:13:08
Nevim jiste, ale funkce GetKeyboardState by Ti nepomohla?
Petr
-----Original Message-----
From: Ji�� Fait [mailto:fait(zv)jakl(tec)cz]
Sent: Monday, September 04, 2000 9:49 AM
To: Delphi konference (el. adresa)
Subject: DBGrid a OnTitleClick
Jak muzu zjisti v eventu DBGrid.OnTitleClick zda byla zaroven stisknuta
nejaka jina klavesa (napr. Ctrl).
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.176 / Virov� b�ze: 85 - datum vyd�n�: 26.7.2000
Zobrazeni html str�nky
[*] Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 4.9.2000 10:22:58
Zdravim,
zkuste se podivat na http://www.pbear.com/ jsou tam placene i free
komponenty.
S pozdravem
Ing. Igor Vodi�ka
informa�n� syst�my
Nakladatelstv� Sagit, Horn� 1, 700 30 Ostrava-Hrab�vka
Tel.: 069 353 062, Fax: 069 357 758
Mailto:vodicka(zv)sagit(tec)cz
Http:\\www.sagit(tec)cz\ Potrebuji neco takoveho, jako je komponenta WebBrowser v D5, ale abych mohl
html k�d zadat p��mo do t�to komponenty (string list). Staci uplne
jednoducha komponenta (free), jen linky, obrazky (staci Gif) x zadne framy,
javascript atp. Nebo toho mohu docilit i pres WebBrowser?
Diky za radu
S pozdravem Milan Cizek, amatersky programator, D5 Ent
Win98 a Win2k, cizek.milan(zv)seznam(tec)cz, ICQ: 59826637
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.157 / Virov� b�ze: 73 - datum vyd�n�: 31.5.2000
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.157 / Virov� b�ze: 73 - datum vyd�n�: 31.5.2000
Delphi a Word2000
[*] Milan Schembera <spravce(zv)spektrum(tec)cz> - 4.9.2000 11:19:49
ale zaboha to namuzu zavolat z Delphi. Hlasi mi to, ze zalozka neexistuje.
Je to asi tim, ze nevim jake cislo ma konstanta wdGotoBookmark a take nevim
Hodnotu konstanty zjistis, kdyz si pustis ve Wordu ten radoby "Visual
Basic" na makra a tam si nechas hodnotu vypsat pomoci "? wdGotoBookmark" v
"okamzitem okne".
Nevim jak ve Word2000, ale ve Wordu97 to ma hodnotu -1.
S pozdravem a pranim hezkeho dne
Milan Schembera
Spravce IT
SPEKTRUM CZ a.s.
tel. +420-608-944444
http://www.spektrum(tec)cz
BDE a langdriver
[*] Ondrej Jaura <jaura(zv)datalock.sk> - 4.9.2000 11:31:22
Prajem prijemny den :) Ako v programe (D5) alebo v instalacii (InstallShield) nastavit
langdriver v BDE? (V BDE Admin je to Configuration->Drivers->Native->DBASE a
polozka Langdriver.)
D5 Prof a InstallShield 5.5 Prof
Za zachranne kolesa vopred dakujem
Ondrej
[ Ondrej Jaura mailto:jaura(zv)datalock.sk ]
[ Datalock a.s. http://www.datalock.sk ]
[ :) ]�asova�e ve Windows + tvorba script� - kniha Alg
[*] Jind�ich Nikodem <nikodem(zv)kh-kinetic(tec)cz> - 4.9.2000 11:37:19
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Ahoj,
predem vsem dekuji za rady a dobry tip na literaturu, ale knihu shanim na internetu a nejak se mi nedari, je precijenom starsi.
Poradite nekdo kde bych ji sehnal, byla by mi moc uzitecna. Predem dekuji
Jindrich Nikodem
nikodem(zv)kh-kinetic(tec)cz
----- Original Message -----
From: Brant Petr
To: delphi-l(zv)fwd(tec)cz
Sent: Wednesday, August 30, 2000 4:56 PM
Subject: RE: �asova�e ve Windows + tvorba script�
K 2): videl jsem priklad jednoducheho syntaktickeho analyzatoru v knize Algoritmy a struktury udajov, autora si bohuzel nepamatuji.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
�asova�e ve Windows + tvorba script�
[*] CHMEL Karel, Mgr. <kchmel(zv)csob(tec)cz> - 4.9.2000 12:37:20
Ahoj,
knihu Algoritmy a struktury udajouv napsal N. Wirth a byla jednu dobu
brana jako ucebnice jazyka Pascal. Koupit ji novou asi bude problem, vysla
jeste pred rokem 1989 a ve slovenstine. Zkuste knihovny, tam ty knihy
byly k dispozici. Mozna ji nekde budou mit i v nemeckem originale.
Karel Chmel
-----P�vodn� zpr�va-----
Od: Jind�ich Nikodem [mailto:nikodem(zv)kh-kinetic(tec)cz]
Odesl�no: 4. z��� 2000 11:37
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: �asova�e ve Windows + tvorba script� - kniha Algoritmy a
struktury udajov
Ahoj,
predem vsem dekuji za rady a dobry tip na literaturu, ale knihu shanim na
internetu a nejak se mi nedari, je precijenom starsi.
Poradite nekdo kde bych ji sehnal, byla by mi moc uzitecna.
Predem dekuji
Jindrich Nikodem
nikodem(zv)kh-kinetic(tec)cz <mailto:nikodem(zv)kh-kinetic(tec)cz>
----- Original Message -----
From: Brant Petr <mailto:Brant(zv)dcomm(tec)cz>
To: delphi-l(zv)fwd(tec)cz <mailto:delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, August 30, 2000 4:56 PM
Subject: RE: �asova�e ve Windows + tvorba script�
K 2): videl jsem priklad jednoducheho syntaktickeho analyzatoru v knize
Algoritmy a struktury udajov, autora si bohuzel nepamatuji.
RNDr. Petr Brant [ brant(zv)dcomm(tec)cz <mailto:brant(zv)dcomm(tec)cz> ]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
Delphi a Word2000
[*] Tom� Matou�ek - 4.9.2000 12:52:37
Pokud Word nevyplnuje nejake parametry, nevyplnuj je taky.
Je-li procedura ve Wordu X(A,B,C,D), muzes ji z Deplhi volat treba takhle:
var MSWord:OleVariant;
...
MSWord.X(A,,,D).
Tomas Matousek
> Zdravim,
> stale zapasim s MS Wordem2000 a Delphi5.
>
> Udelal jsem si ve Wordu sablonu, na ktere zalozim novej dokument, kterej
> vytvorim pres Delphi a v tom dokumentu jsou zalozky. Ve Wordu se na ne
> dostanu pres funkci Selections.Goto What:= wdGotoBookmark, Name:='Zalozka'
> ale zaboha to namuzu zavolat z Delphi. Hlasi mi to, ze zalozka neexistuje.
> Je to asi tim, ze nevim jake cislo ma konstanta wdGotoBookmark a take
nevim
> co mam narvat do parametru, ktery Word vubec nevyplnuje Which a Count.
> V helpu u Wordu jsem bohuzel nic co by mi pomohlo nenasel a MSDN mi
prijde,
> ze je to stejnej help.
>
> Muzete mi nekdo poradit jak na to ?
>
> S pozdravem
>
> Marek Soukup
> Roudne 126
> 370 07 Ceske Budejovice
> Ceska Republika
>
> tel./fax: +42(038)6351736
> ICQ: 13110124
> e-mail: marek(zv)comberg(tec)cz
>
>Funkce na vypocet kolotoce smien
[*] Marian Hatala <emha(zv)mailbox.sk> - 4.9.2000 12:01:07
Cau,
Velmi jednoducho. Dost to vsak zavisi na tom ake smeny mas vlastne na
mysli - pocet smien, frekvencia striedania a pod.
Majme napriklad klasicku 4-smennost (R,P,N,V) s dlhymi vikendami
(smena zacinajuca v piatok trva 3 dni, inak 2 dni). Potom smenu v
nejaky den mozes zistit z nasledujuceho vztahu (vytahujem to rovno z
Excelu a nehce sa mi to prepisovat, ale myslim, ze je jasne o co ide):
=MOD(ROUND((A1-A2)*3/7;0);4)
pricom v bunke A1 je datum, pre ktory hladas smenu, v A2 nejaky
vztazny datum a rozdiel A1-A2 vyjadruje pocet dni medzi tymito dvoma
datumami. Cisla 3,7 a 4 vzisli zo zavislosti, ze za 7 dni sa smeny
zmenia 3krat, pricom celkove sa tocia 4 smeny.
Ako vysledok dostavas cisla od 0 po 3, kde 0 znamena, ze v den A1 mas
rovnaku smenu ako v A2; 1 znamena nasledujucu smenu atd.
Uff, ten pokec je nejaky krkolomny, takze jednoduchy priklad:
Uvazujme striedanie smien v poradi Ranno, Poobede, Nocna, Volno
Povedzme, ze ako vztazny datum si urcime 1.1.2000 a ze smena A mala R
potom napr. pre 5.1.2000 vychadza vysledok 2, co znamena ze sm. A ma N
a napr. pre 1.9.2000 vychadza vysledok 1, co znamena ze sm. A ma P
....
Ak potrebujes ine striedanie smien, myslim ze nebude problem vzorec si
patricne upravit.
eMHa
-----Original Message-----
From: Bednar��k Dalibor [mailto:dalibor(zv)torola(tec)cz]
Sent: Thursday, August 31, 2000 8:57 AM
To: forum
Subject: Funkce na vypocet kolotoce
Ahoj
Nemate nekdo nejakou obecnou funkci na vypocet smeny typu Kolotoc
Myslim tim, kdyz zadam treba Smenu A + nejakej datum, tak mi to vrati
jestli
je na nocni, nebo na odpoledni..atd.
Dekuji
Interbase - demo.gdb
[*] Delph! <delph(zv)miesto.sk> - 4.9.2000 13:03:08
Dobry den,
existuje niekde na webe alebo "nejakom" ftp "nejaka" demo.gdb databaza -
Interbase, v ktorej su nadefinovane "nejake" tabulky, procedury, spustace a
pod. ?
Aby tam existovalo pre kazdu tabulku pole, ktore jednoznacne identifikuje
zaznam - autoinc a pod. (trigger)
Takisto procedury ktore klient bude volat (na vlozenie, zmazanie zaznamu a
pod.)
Idealne by bolo, ak by to bola nejaka demo aplikacia, ktora sa predvadza
na skoleni Interbase ...
Skratka ukazkova databaza ...
Vopred dik za tipy ...
S pozdravom
Delfin
Funkce na vypocet kolotoce smien
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 4.9.2000 13:42:36
Dekuji za radu.....
----- Original Message -----
From: "Marian Hatala" <emha(zv)mailbox.sk>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 04, 2000 1:01 PM
Subject: RE: Funkce na vypocet kolotoce smien
> Cau,
>
> Velmi jednoducho. Dost to vsak zavisi na tom ake smeny mas vlastne na
> mysli - pocet smien, frekvencia striedania a pod.
>
> Majme napriklad klasicku 4-smennost (R,P,N,V) s dlhymi vikendami
> (smena zacinajuca v piatok trva 3 dni, inak 2 dni). Potom smenu v
> nejaky den mozes zistit z nasledujuceho vztahu (vytahujem to rovno z
> Excelu a nehce sa mi to prepisovat, ale myslim, ze je jasne o co ide):
>
> =MOD(ROUND((A1-A2)*3/7;0);4)
>
> pricom v bunke A1 je datum, pre ktory hladas smenu, v A2 nejaky
> vztazny datum a rozdiel A1-A2 vyjadruje pocet dni medzi tymito dvoma
> datumami. Cisla 3,7 a 4 vzisli zo zavislosti, ze za 7 dni sa smeny
> zmenia 3krat, pricom celkove sa tocia 4 smeny.
> Ako vysledok dostavas cisla od 0 po 3, kde 0 znamena, ze v den A1 mas
> rovnaku smenu ako v A2; 1 znamena nasledujucu smenu atd.
>
> Uff, ten pokec je nejaky krkolomny, takze jednoduchy priklad:
> Uvazujme striedanie smien v poradi Ranno, Poobede, Nocna, Volno
> Povedzme, ze ako vztazny datum si urcime 1.1.2000 a ze smena A mala R
> potom napr. pre 5.1.2000 vychadza vysledok 2, co znamena ze sm. A ma N
> a napr. pre 1.9.2000 vychadza vysledok 1, co znamena ze sm. A ma P
> ....
>
> Ak potrebujes ine striedanie smien, myslim ze nebude problem vzorec si
> patricne upravit.
>
>
> eMHa
>
>
> -----Original Message-----
> From: Bednar��k Dalibor [mailto:dalibor(zv)torola(tec)cz]
> Sent: Thursday, August 31, 2000 8:57 AM
> To: forum
> Subject: Funkce na vypocet kolotoce
>
>
> Ahoj
>
> Nemate nekdo nejakou obecnou funkci na vypocet smeny typu Kolotoc
>
> Myslim tim, kdyz zadam treba Smenu A + nejakej datum, tak mi to vrati
> jestli
> je na nocni, nebo na odpoledni..atd.
>
> Dekuji
>
Zobrazeni obsahu bunky pri OnMouseMove
[*] Ing. Ji�� Stecker <jiri.stecker(zv)vsb(tec)cz> - 4.9.2000 12:47:02
Pane Vones, jste zlaty clovek! Diky moc :-)
> From: "Ing. Ji�� Stecker" <jiri.stecker(zv)vsb(tec)cz>
> > Potreboval bych v DBGridu pri OnMouseMove ziskat obsah bunky, na
> > kterou prave ukazuje kurzor mysi a text zobrazit do Labelu. Nejsem
> > schopny ziskat cislo radku, na kterem jsem vzhledem k zacatku. Se
> > sloupci neni problem. Poradite mi ???
>
> Ahoj,
>
> napriklad takhle:
>
> type
> TDBGridHack = class(TDBGrid);
>
> function MouseToDBGridCellText(DBGrid: TDBGrid): string;
> var
> Cell: TGridCoord;
> P: TPoint;
> LastActiveRecord: Integer;
> begin
> with TDBGridHack(DBGrid) do
> begin
> GetCursorPos(P);
> P := ScreenToClient(P);
> Cell := MouseCoord(P.X, P.Y);
> if dgTitles in Options then Dec(Cell.Y);
> if (Cell.X >= IndicatorOffset) and (Cell.Y >= 0) then
> begin
> LastActiveRecord := DataLink.ActiveRecord;
> try
> DataLink.ActiveRecord := Cell.Y;
> Result := GetFieldValue(RawToDataColumn(Cell.X));
> finally
> DataLink.ActiveRecord := LastActiveRecord;
> end;
> end else
> Result := '';
> end;
> end;
>
> procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
> Y: Integer);
> begin
> Label1.Caption := MouseToDBGridCellText(TDBGrid(Sender));
> end;
>
> Petr Vones, amatersky programator
>
>
Vykonavatel civilni sluzby na VSB - TU Ostrava
Ing. Jiri Stecker
mistnost J307, prozatimni telefon 069/699 54 75
Zjisteni pripojeni k internetu
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 4.9.2000 13:54:14
Nevite nekdo jak "nenasilne" zjistit, jestli je dany pocitac pripojen k inetu? Dokazu si napr. zjistit ip adresu
pocitace, ale i kdyz je off-line tak ma napr. 1.0.0.1 ip adresu, cili z toho se to vycist asi neda. A nechci
posilat zadna data na vystup (protoze napr. pres dialup by se otevrelo okno s zadosti o pripojeni).
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
Trapny dotaz?
[*] -=Ivomir=- <Ivomir(zv)seznam(tec)cz> - 4.9.2000 14:10:00
Mozna se to nekomu bude zdat legracni ale: Programuji ted maly SMTP server a vubec nepotrebuji
videt zadnou visualni podobu programu. V D5 se napr. daji vytvaret console aplication, ale u nich je videt DOS
okno. A ja potrebuji, aby aplikace nebyla vubec detekovana. Uz jsem ji odstranil z TaskManageru (CTRL + ALT + DEL)
i z obrazovky, i z tray, i z dolni listy. Jenomze porat zabira kolem 300kb coz je myslim zbytecne.
Jak se da osekat aplikace v Delphi od visualizace (grafiky, uz. rozhrani)?????????
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
Apache or IIS 5.0
[*] p. Jirman <jim.design(zv)iol(tec)cz> - 4.9.2000 14:19:51
ahoj,
tusim, ze CGI psane v Delphi ma koncovku EXE, to pak naky browsery (hmm,
treba Exlpoder) pousteji, jako reseni bych videl nastavit ten EXE jako
defaultni dokument toho adresare a v browseru psat adresar.
M.Jirman
----- Original Message -----
From: <raul.endymion(zv)ns1.infima(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Thursday, August 31, 2000 11:36 AM
Subject: Apache or IIS 5.0
> Sorry vsem za OT.
> Mam problem. Napsal jsem konzolovou app v delphach.
> Jedna se o cgi. A nyni k problemu.
> Adresar na serveru oznacen jako only skript a spustitelne soubory,
> zadne cteni zadny zapis.
> U MSIE 4 nebo 5 se skript vykona a vse je v pohode. U MSIE 3 se zepta
> zda spustit z aktualniho umisteni nebo ulozit. U Netscapu se mi
> automaticky taha. Uz si nevim rady v kde je chyba. Asi u nastaveni
> serveru. Nevite nekdo ? Kdysi jsem psal jednoduchy chat a ten bezel
> pod apachem a ve vsech browserech to fachalo.
> Diky za info
>
> Raul Endymion
>
>
>�asova�e ve Windows + tvorba script�
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 4.9.2000 14:19:39
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.
Zkus zajit do knihovny a nech si tech nekolik stranek okopirovat, skutecne
jich je jen nekolik. Nebo by se mozna nasla v nejakem antikvariatu.
(Mimochodem ten autor je Niklaus Wirth).
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: Jind�ich Nikodem [mailto:nikodem(zv)kh-kinetic(tec)cz]
Sent: Monday, September 04, 2000 11:37 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: �asova�e ve Windows + tvorba script� - kniha Algoritmy a
struktury udajov
Ahoj,
predem vsem dekuji za rady a dobry tip na literaturu, ale knihu shanim na
internetu a nejak se mi nedari, je precijenom starsi.
Poradite nekdo kde bych ji sehnal, byla by mi moc uzitecna.
Predem dekuji
Jindrich Nikodem
nikodem(zv)kh-kinetic(tec)cz <mailto:nikodem(zv)kh-kinetic(tec)cz>
----- Original Message -----
From: Brant Petr <mailto:Brant(zv)dcomm(tec)cz>
To: delphi-l(zv)fwd(tec)cz <mailto:delphi-l(zv)fwd(tec)cz>
Sent: Wednesday, August 30, 2000 4:56 PM
Subject: RE: �asova�e ve Windows + tvorba script�
K 2): videl jsem priklad jednoducheho syntaktickeho analyzatoru v knize
Algoritmy a struktury udajov, autora si bohuzel nepamatuji.
RNDr. Petr Brant [ brant(zv)dcomm(tec)cz <mailto:brant(zv)dcomm(tec)cz> ]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
Zjisteni pripojeni k internetu
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 4.9.2000 14:33:46
> Nevite nekdo jak "nenasilne" zjistit, jestli je dany pocitac pripojen
k inetu? Dokazu si napr. zjistit ip adresu
> pocitace, ale i kdyz je off-line tak ma napr. 1.0.0.1 ip adresu, cili z
toho se to vycist asi neda. A nechci
> posilat zadna data na vystup (protoze napr. pres dialup by se otevrelo
okno s zadosti o pripojeni).
>
jednoznacne to zjistit nejde. Pouze je mozne zjistit nektere indicie, ktere
mohou (ale take nemusi) znamenat, ze spojeni je navazano.
Existuje nekolik metod:
1) zkusit ping/connect na nejaky server v Internetu. Muze ale zpusobit
nechtene vytoceni spojeni k Internetu
2) detekce aktivniho modemoveho spojeni. Snadno realizovatelne, ale neni
jiste, ze je pripojen modem zrovna do Internetu (da se upresnit zjistenim,
zda modemem jede PPPcko, je nastavena defa gateway na modem,...). Navic
uzivatel muze byt k internetu pripojen jinym zpusobem nez dialupem
3) detekce existence default gatewaye - je ale spousta instalaci bez
pristupu k Interhetu, ktere maji def gateway nastaveno (at blbje
konfigurovane PC, ci sit s vice segmenty)
Zdravi
Dalibor Toman
SMS brana
[*] novos(zv)post(tec)cz - 4.9.2000 14:47:51
cau
nevim jak predat parametry CGI skriptu, ale mam jine reseni. asi ne nejlepsi, ale na nic jineho jsem zatim neprisel. delam takovou aplikaci pro posilani SMSek pres web-branu a sice tak, ze komunikuji s Pegasackym serverem na urovni html. vpodstate simulovat nejaky browser. posup je:
1) odeslu dotaz ve formatu html - neco jako prihlaseni se na prislusnou stranku
2) rozparsuju to co mi prijde - hlavne to autentifikacni cislo
3) odeslu dalsi html s jiz vyplnenymi parametry a s pouzitym autentifikacnim cislem - bez toho autf. cisla to pegasi server nesezere
4) rozparsuju to co mi prijde - z toho poznam, jestli jsem prekrocil casovy limit, nebo jestli odeslani probehlo v poradku
jinak pro posilani pouzivam klasiku socket funkce jak WSAStartup, sendto, bind, listen, .... no a pak uz potrebuji znat tech par html tagu a je to.
ma to sice nevyhodu v tom, ze pokud paegas zmeni html podobu stranky, tak ja musim pozmenit mou aplikaci, ale to zas neni tak velka zmena. a taky to paegas nemeni kazdy tyden. navic je to reseni univerzalni pro ruzne brany a po mensich upravach pouzitelne temer vsude.
taky se nemusim trapit s delemim zpravy pokud je moc dlouha. o to se postara paegasi server.
no takze az to bude hotove tak to dam nekam na web. (pokud bude zajem)
hojky
email: novos(zv)email(tec)cz
icq: 7121363
Aktualni zpravodajstvi?
*** http://NAJDI.TO
velikost normalizovaneho okna
[*] Miloslav Sk�cel <delphicz(zv)stereo(tec)cz> - 4.9.2000 14:53:15
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Ahoj,
nevite nekdo jak zjistit jakou velikost bude mit prave maximalizovane
okno po normalizaci (bez nutnosti menit vlastnost WindowState) ?
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.185 / Virov� b�ze: 88 - datum vyd�n�: 18.8.2000
Result z TQuery (volani stored procedure)
[*] Jezek Petr, Ing. <PETR(zv)sevis.sk> - 4.9.2000 14:54:26
Ja pro storovane porcedury na Informixu pouzivam normalne TQuery,
a pokud dana procedura vraci nejake hodnoty, tak misto ExecSql
pouziju Open. K nim pak pristupuju uplne normalne pres
Fields nebo FieldByName. Mozna tedy, ze mas tu stored proceduru
zle napsanou. Nebo pristupujes jinak na Informix nez ja -
bud pres ODBC nebo INFORMIX native link.
Petr
-----Original Message-----
From: Ondrej Krajicek [mailto:xkrajic(zv)ics.muni(tec)cz]
Sent: Wednesday, August 30, 2000 5:26 PM
To: delphi-l(zv)fwd(tec)cz
Subject: Re: Result z TQuery (volani stored procedure)
V tomhle pripade je TQuery lepsi reseni nez TStoredProc.
Mam to odzkousene.
Ondrej Krajicek
martin.falta(zv)obi.de wrote:
>
> Ahoj,
>
> zkus pouzit komponentu TStoredProc. Ta je delana primo pro spousteni
> ulozenych procedur.
>
> Martin
>
> Von: xkrajic(zv)ics.muni(tec)cz(zv)fwd(tec)cz am 30.08.2000 10:46 OEZ
>
> Bitte antworten an delphi-l(zv)fwd(tec)cz
>
> Gesendet von: owner-delphi-l(zv)fwd(tec)cz
>
> An: delphi-l(zv)fwd(tec)cz
> Kopie:
> Thema: Result z TQuery (volani stored procedure)
>
> Dobry den vsem,
>
> sice je to znacne hloupa otazka, ale databaze nejsou zrovna
> moje parketa, takze si nevim rady. Kdyz volam
> proceduru na SQL serveru (Informix) pomoci
> TQuery (execute procedure...), ktera vraci Integer,
> jak mam ziskat jeji navratovou hodnotu ?
> Pokud to zapisu v Database Exploreru, tak navratovou
> hodnotu vypise.
>
> TIA,
>
> Ondrej Krajicek
>
> --
> OK-)
>
> IMPORTANT NOTICE:
> This email is confidential, may be legally privileged, and is for the
> intended recipient only. Access, disclosure, copying, distribution, or
> reliance on any of it by anyone else is prohibited and may be a criminal
> offence. Please delete if obtained in error and email confirmation to the
sender.
--
OK-)Report Builder - pristup ke globalnim promenym
[*] Michal K�s <kus(zv)tangosw(tec)cz> - 4.9.2000 15:02:23
> S RB mam dobre skusenosti, doporucujem... :)
>
>
> Prijemny zvysok dna
>
> Ondrej
>
> [ Ondrej Jaura mailto:jaura(zv)datalock.sk ]
Testuji RB, a k uplne spokojenosti bych potreboval vedet tohle:
Jak do sestavy dostat nejake globalni informace, napr. jmeno
aplikace, jmeno uzivatele, jmeno zakaznika atd., ktere nejsou
ulozene v zadne databazi/tabulce, ale jsou v programu jako
globalni konstatny/promenne.
Napadlo me, upravit zdroje RB tak, aby tohle nabizel
"System Variable", ale nemaje zdroje nemam tuseni jak to
je slozite.
Taky nevim, jak udelat nejakou "standardni" hlavicku a paticku
stranky.
Diky
Michal Kus
Interbase - demo.gdb
[*] azeleny(zv)csas(tec)cz - 4.9.2000 15:30:59
> existuje niekde na webe alebo "nejakom" ftp "nejaka" demo.gdb
> databaza -
> Interbase, v ktorej su nadefinovane "nejake" tabulky,
> procedury, spustace a
> pod. ?
Po instalaci IB v adfreasi demos je databaze employee.gdb, dal pak
doporucuji na www.ibobjects.com je ke stazeni testovaci verze komponent
(mimochodem naprosto spickovych), ktera obsahuje i vzorove databze, nebo
skripty, kerymi ty vzorove databaze vytvari.
a.Z�kaz spodn� li�ty ve Windows
[*] Petr Kellner <kellner(zv)praktik(tec)cz> - 4.9.2000 13:34:12 -0000
po�eboval bych zak�zat spodn� li�tu ve Windows.
Na�el jsem si p��klad, ale t�m jde pouze zak�zat knofl�k "Start". procedure StartButton;
var
StartHandle: HWND;
begin
StartHandle := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0,
'Button', nil);
EnableWindow(StartHandle, False);
end;
D�ky za radu
Franti�ek M��ala
Trapny dotaz?
[*] Tom� Vin� <T.Vins(zv)Aquasoft(tec)cz> - 4.9.2000 15:44:42
Zkus to napsat jako servis
<Masa>
> -----Original Message-----
> From: -=Ivomir=- [mailto:Ivomir(zv)seznam(tec)cz]
> Sent: Monday, September 04, 2000 2:10 PM
> To: Delphi konference
> Subject: Trapny dotaz?
>
>
> Mozna se to nekomu bude zdat legracni ale: Programuji ted
> maly SMTP server a vubec nepotrebuji
> videt zadnou visualni podobu programu. V D5 se napr. daji
> vytvaret console aplication, ale u nich je videt DOS
> okno. A ja potrebuji, aby aplikace nebyla vubec detekovana.
> Uz jsem ji odstranil z TaskManageru (CTRL + ALT + DEL)
> i z obrazovky, i z tray, i z dolni listy. Jenomze porat
> zabira kolem 300kb coz je myslim zbytecne.
>
> Jak se da osekat aplikace v Delphi od visualizace
> (grafiky, uz. rozhrani)?????????
>
> ....... s pozdravem Ivomir
> --------------------------------------------------
> EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
> WWW: http://www.iwebs(tec)cz ICQ: 28872917
>
>
> BDE a langdriver
[*] Pavel Sommer <p.sommer(zv)volny(tec)cz> - 4.9.2000 15:51:15
Ako v programe (D5) alebo v instalacii (InstallShield) nastavit
langdriver v BDE? (V BDE Admin je to Configuration->Drivers->Native->DBASE a
polozka Langdriver.)
D5 Prof a InstallShield 5.5 Prof
Za zachranne kolesa vopred dakujem
Ondrej
-----------------------------------------------
InstallShield 5.5 primo podporuje instalaci BDE
(File>New>Template>BDE..).
Ve vygenerovanem projektu v Script Files najdes
"aliases.ini", ve kterem jsou nastaveny parametry
daneho aliasu. Tyto parametry jsou presnym odrazem
parametru v BDE Admin. Takze staci, kdyz tam pridas
polozku LANGDRIVER= .... napr:
-----------------------------------------------
[Aliases]
Alias0=XXX
[XXX]
DriverType=INTRBASE
DEFAULT DRIVER=INTRBASE
ENABLE BCD=FALSE
SERVER NAME=<TARGETDIR>\...
USER NAME=
LANGDRIVER=FoxPro Czech 1250
-----------------------------------------------
Stejne tak to nastavis v Setup Files>Lang. indep.>OS Indep.>Aliases.ini
S pozdravem Pavel Sommer.odblokovani dll knihovny
[*] Miroslav Dolecek <xdolecek(zv)informatics.muni(tec)cz> - 4.9.2000 15:55:50
Zdravim vsechny,
mam takovy neprijemny problem. Vyvijim Active Server Object jako dll
knihovnu. Kdyz pouziju dll knihovnu v ASP, tak pri dalsi kompilaci v
Delphi je ta knihovna bloknuta Windows a nelze prepsat, smazat... Pomuze
jedine reboot, pak to jde. Musi existovat nejake reseni jak se tomu
vyhnout. Takhle se neda pracovat. Dik za pomoc.
Mirek Dolecek
Trapny dotaz?
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 4.9.2000 16:59:40
> Mozna se to nekomu bude zdat legracni ale: Programuji ted maly SMTP
server a vubec nepotrebuji
> videt zadnou visualni podobu programu. V D5 se napr. daji vytvaret console
aplication, ale u nich je videt DOS
> okno. A ja potrebuji, aby aplikace nebyla vubec detekovana. Uz jsem ji
odstranil z TaskManageru (CTRL + ALT + DEL)
> i z obrazovky, i z tray, i z dolni listy. Jenomze porat zabira kolem 300kb
coz je myslim zbytecne.
>
> Jak se da osekat aplikace v Delphi od visualizace (grafiky, uz.
rozhrani)?????????
jenoduse vyhod z aplikace vsechny unity souvisejici s VCL (forms,.....) -
stejne jsou k nicemu :-)
I tak sice je nejmensi execko doost dlouhe (borlandi pridavaji spoustu
balastu i k programu, ktery obsahuje jen begin/end...) ale mel bys jeste cca
100-150 kB usetrit
Zdravi
Dalibor Toman
odblokovani dll knihovny
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 4.9.2000 17:00:23
> Zdravim vsechny,
>
> mam takovy neprijemny problem. Vyvijim Active Server Object jako dll
> knihovnu. Kdyz pouziju dll knihovnu v ASP, tak pri dalsi kompilaci v
> Delphi je ta knihovna bloknuta Windows a nelze prepsat, smazat... Pomuze
> jedine reboot, pak to jde. Musi existovat nejake reseni jak se tomu
> vyhnout. Takhle se neda pracovat. Dik za pomoc.
>
stopnout IIS ?
D. Toman
Stisknute klavesy
[*] honza-world <honza.kachlik(zv)worldonline(tec)cz> - 4.9.2000 17:12:18
Potreboval bych to pro cely system ale predem diky. Win98
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, September 03, 2000 10:14 PM
Subject: Re: Stisknute klavesy
> From: "honza-world" <honza.kachlik(zv)worldonline(tec)cz>
> > Potreboval byh poradit jak napsat v delphi program ktery by zapisoval
> > stisknute klavesy.
>
> Ahoj,
>
> jen pro tvoji aplikaci nebo v celem systemu ?
>
> Petr Vones, amatersky programator
>
>
> - tvorba script�
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 4.9.2000 18:27:26
Dal jsem do google.com dotaz "delphi and lex" a nasel jsem toto
http://www.musikwissenschaft.uni-mainz.de/~ag/tply/tply.html
a spoustu dalsich.
Radim
----- Original Message -----
From: "Tom� Vlad�k" <tom.vladik(zv)swadvice(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 04, 2000 9:09 AM
Subject: Re: - tvorba script�
Do C existuji nastroje LEX - pro tvorbu lexikalniho nalyzatoru a YACC - pro
tvorbu synanaktickeho analyzatoru. Je to tusim v ramci licence GNU. Umoznuje
to velice rychle vytvorit jednoduchy interpret jazyka. Tusim, ze jsem kdysi
(cca pred 3 lety) kdesi videl najakou mutaci pro Delphi (D1 ?), ale
nezkousel jsem to.
T.
Trapny dotaz?
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 4.9.2000 18:49:25
Mozna by stacilo vyhodit ze seznamu uses unitu Forms apod.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: -=Ivomir=- [mailto:Ivomir(zv)seznam(tec)cz]
Sent: Monday, September 04, 2000 2:10 PM
To: Delphi konference
Subject: Trapny dotaz? Mozna se to nekomu bude zdat legracni ale: Programuji ted maly SMTP
server a vubec nepotrebuji
videt zadnou visualni podobu programu. V D5 se napr. daji vytvaret console
aplication, ale u nich je videt DOS
okno. A ja potrebuji, aby aplikace nebyla vubec detekovana. Uz jsem ji
odstranil z TaskManageru (CTRL + ALT + DEL)
i z obrazovky, i z tray, i z dolni listy. Jenomze porat zabira kolem 300kb
coz je myslim zbytecne.
Jak se da osekat aplikace v Delphi od visualizace (grafiky, uz.
rozhrani)?????????
....... s pozdravem Ivomir
--------------------------------------------------
EMAIL: Ivomir(zv)iwebs(tec)cz MOBIL: 0602/831270
WWW: http://www.iwebs(tec)cz ICQ: 28872917
odblokovani dll knihovny
[*] Brant Petr <Brant(zv)dcomm(tec)cz> - 4.9.2000 18:51:13
Mam nekde programek, ktery umi DLL odstrelovat (netusim, zda je free ci
nikoliv). Jestli chces, poslu na soukromy mail. Ale pozor, obcas to take
odstreli cely system.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
program�tor
**************************************
D & COMM s.r.o.
Korunova�n� 6, Praha 7
tel. +420-2-3337 3855
+420-2-2431 4538
*************************************
-----Original Message-----
From: Miroslav Dolecek [mailto:xdolecek(zv)informatics.muni(tec)cz]
Sent: Monday, September 04, 2000 3:56 PM
To: Diskuzni skupina o Delphi
Subject: odblokovani dll knihovny
Zdravim vsechny,
mam takovy neprijemny problem. Vyvijim Active Server Object jako dll
knihovnu. Kdyz pouziju dll knihovnu v ASP, tak pri dalsi kompilaci v
Delphi je ta knihovna bloknuta Windows a nelze prepsat, smazat... Pomuze
jedine reboot, pak to jde. Musi existovat nejake reseni jak se tomu
vyhnout. Takhle se neda pracovat. Dik za pomoc.
Mirek Dolecek
odblokovani dll knihovny
[*] Miroslav Dolecek <xdolecek(zv)informatics.muni(tec)cz> - 4.9.2000 19:05:26
Pak me to napadlo taky a funguje to. Diky
Mirek Dolecek
On Mon, Sep 04, 2000 at 05:00:23PM +0200, Dalibor Toman wrote:
> > Zdravim vsechny,
> >
> > mam takovy neprijemny problem. Vyvijim Active Server Object jako dll
> > knihovnu. Kdyz pouziju dll knihovnu v ASP, tak pri dalsi kompilaci v
> > Delphi je ta knihovna bloknuta Windows a nelze prepsat, smazat... Pomuze
> > jedine reboot, pak to jde. Musi existovat nejake reseni jak se tomu
> > vyhnout. Takhle se neda pracovat. Dik za pomoc.
> >
>
> stopnout IIS ?
>
> D. Toman
> Sitovy adapter
[*] Zdenek Janish <medusa(zv)brajan(tec)cz> - 4.9.2000 19:41:32
ok, problem je v tom, ze potrebuju sam (driver or program) ridit casovani
atd...
(...a mimo to mne to dost zajima a jsem zvedavej...)
Zdenek
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: Konference Delphi <delphi-l(zv)fwd(tec)cz>
Sent: Sunday, September 03, 2000 10:14 PM
Subject: Re: Sitovy adapter
> From: "Zdenek Janish" <medusa(zv)brajan(tec)cz>
> > Mel bych jeden dotaz:
> > Porebuji prevadet TCP/IP (i ostatni protokoly) na Seriovy port, kde mam
>
> Ahoj,
>
> na toto existuji specialni HW moduly, je to asi spolehlivejsi nez pouzit
PC.
>
> Petr Vones, amatersky programator
>
>
>
Trapny dotaz?
[*] Maurice <sw.maurice(zv)seznam(tec)cz> - 4.9.2000 19:53:40
Odstran vsechny zbytecne unity, hlavne Forms pokud mozno...
> Mozna se to nekomu bude zdat legracni ale: Programuji ted maly SMTP server
a vubec nepotrebuji
> videt zadnou visualni podobu programu. V D5 se napr. daji vytvaret console
aplication, ale u nich je videt DOS
> okno. A ja potrebuji, aby aplikace nebyla vubec detekovana. Uz jsem ji
odstranil z TaskManageru (CTRL + ALT + DEL)
> i z obrazovky, i z tray, i z dolni listy. Jenomze porat zabira kolem 300kb coz
je myslim zbytecne.
>
> Jak se da osekat aplikace v Delphi od visualizace (grafiky, uz.
rozhrani)?????????
BDE a nastavenie langdriver pre nativny pristup k
[*] Pavel Lavicka <plavicka(zv)mbox.vol(tec)cz> - 4.9.2000 21:04:17
> ----- Original Message -----
> From: Pavel Sommer <p.sommer(zv)volny(tec)cz>
> To: <delphi-l(zv)fwd(tec)cz>
> Sent: Monday, September 04, 2000 3:51 PM
> Subject: RE: BDE a langdriver
>
>
> >> Ako v programe (D5) alebo v instalacii (InstallShield) nastavit
> >> langdriver v BDE? (V BDE Admin je to
> Configuration->Drivers->Native->DBASE a
> >> polozka Langdriver.)
> >> D5 Prof a InstallShield 5.5 Prof
> > -----------------------------------------------
Nemam zkusenosti s D5 a InstallShield 5.5 Prof, ale v D4 a InstallShield
Express 2.2 to delam takto (a funguje to), takze podobne reseni asi pujde
pouzit i v uvedene kombinaci:
BDE uklada nastaveni LangDriveru pro nativni ovladace v registru. Pro DBASE
je to napr. klic HKEY_LOCAL_MACHINE\SOFTWARE\BORLAND\DATABASE
ENGINE\SETTINGS\DRIVERS\DBASE\INIT tento klic obsahuje (krom jinych) hodnotu
LANGDRIVER, do ktere je treba nastavit prislusny ovladac - pro kodovou
stranku Latin 2 je to DB852CZ0 atd. Nechavam proto IS vytvorit tento klic s
prislusnou hdonotou.
Podminkou pro to, aby to fungovalo je, ze Tvoje ani zadna jina instalace
nepouzije nastaveni "Ulozit CFG soubor pro 16bit i 32 bit aplikace", jinak
IS z duvodu zpetne kompatibility BDE ulozi nastaveni LangDriveru primo do
CFG souboru a nastaveni v registru ignoruje.
PAVEL
Report Builder - pristup ke globalnim promenym
[*] delphi <delphi(zv)enterkosice.sk> - 4.9.2000 21:46:46
>
> Jak do sestavy dostat nejake globalni informace, napr. jmeno
> aplikace, jmeno uzivatele, jmeno zakaznika atd., ktere nejsou
Skus napriklad:
SELECT 'Meno aplikacie', 'meno uzivatela', meno zakaznika'
a pripoj ten dotaz na pipu, daj jej meno napriklad GOBALNE_INFO
alebo sa to da urobit cez RAP
forgo
diakritika v Interbase
[*] Filip Hochman <filip.hochman(zv)atlas(tec)cz> - 04.9.2000 22:15:48
Ahoj v�em,
r�d bych kone�n� p�e�el z Paradoxu na n�jakou SQL platformu,
ale prvn� pokusy m� ni��. Zkou�el n�kdo Interb�zi s tabulkou,
kter� obsahuje pole napln�n� znaky s diakritikou.
M� to p�i selectu h�z� chybu:
arithmetic exception, numeric overflow, or string truncation Cannot
transliterate character between character sets
hned jak select vybere z�znam s takov�m polem.
V� n�kdo jak na to ?
D�k za pomoc, Filip.MessageDlg
[*] Roland Turcan \(RoTurSoft\) <rotursoft(zv)nextra.sk> - 4.9.2000 22:37:56
From: "Ota Maly" <maly(zv)space(tec)cz>
Subject: RE: MessageDlg
> Ahoj,
> pouzij MessageDlgPos - viz help.
> Lepsi je vsak pouzivat Application.MessageBox, na tlacitka totiz pise
cesky
> (respektive jazykem Windows :).
>
Ale pokial si nakopirujes subor "consts.pas" do adresara projektu a prelozis
v nom konstanty prisluchajuce tlacitkam MessageDlg tak budu take ake chces
aj tchajwanskej verzii.
Roland.BDE a langdriver
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 5.9.2000 06:51:45
Ahoj, nekde bz jsem mel mit unitu, ktera to umi. link je http://www.volny(tec)cz/ml_software/download/un_dbcfg.pas
Mej se
Martin
-----Puvodni zprava-----
Od: Pavel Sommer [SMTP:p.sommer(zv)volny(tec)cz]
Odeslano: 4. zaoi 2000 15:51
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: RE: BDE a langdriver
Ako v programe (D5) alebo v instalacii (InstallShield) nastavit
langdriver v BDE? (V BDE Admin je to Configuration->Drivers->Native->DBASE a
polozka Langdriver.)
D5 Prof a InstallShield 5.5 Prof
Za zachranne kolesa vopred dakujem
Ondrej
-----------------------------------------------
InstallShield 5.5 primo podporuje instalaci BDE
(File>New>Template>BDE..).
Ve vygenerovanem projektu v Script Files najdes
"aliases.ini", ve kterem jsou nastaveny parametry
daneho aliasu. Tyto parametry jsou presnym odrazem
parametru v BDE Admin. Takze staci, kdyz tam pridas
polozku LANGDRIVER= .... napr:
-----------------------------------------------
[Aliases]
Alias0=XXX
[XXX]
DriverType=INTRBASE
DEFAULT DRIVER=INTRBASE
ENABLE BCD=FALSE
SERVER NAME=<TARGETDIR>\...
USER NAME=
LANGDRIVER=FoxPro Czech 1250
-----------------------------------------------
Stejne tak to nastavis v Setup Files>Lang. indep.>OS Indep.>Aliases.ini
S pozdravem Pavel Sommer.
OT: prekreslovani plochy W98
[*] Ren� Otisk - 5.9.2000 07:32:59
Prominte za OT, ale uz si nevim rady. Nainstaloval jsem W98 na PC a blbonek
mi je pri tazeni ikon po plose ruzne roztrha, prekryje, tamhle necha rozek
ikony, tamhle vrch a tak ruzne. Neni to prilis lahodne oku uzivatele. Nevite
v cem je zakapany pes? Grafika je tam ATI Rage.
Predem dekuji
Sroub
diakritika v Interbase
[*] �ampulka Ji�� <campulka(zv)czas(tec)cz> - 5.9.2000 07:44:06
----- P�vodn� zpr�va -----
Od: Filip Hochman <filip.hochman(zv)atlas(tec)cz>
> r�d bych kone�n� p�e�el z Paradoxu na n�jakou SQL platformu,
> ale prvn� pokusy m� ni��. Zkou�el n�kdo Interb�zi s tabulkou,
> kter� obsahuje pole napln�n� znaky s diakritikou.
> M� to p�i selectu h�z� chybu:
> arithmetic exception, numeric overflow, or string truncation Cannot
> transliterate character between character sets
>
> hned jak select vybere z�znam s takov�m polem.
>
> V� n�kdo jak na to ?
"character set" u te polozky musi byt nastaven treba na WIN1250
(pokud to ma tridit cesky tak jeste collate pxw_csy (bohuzel neumi "ch"))
pred connectem na databazi je jeste nutne nastavit SET NAMES WIN1250
(podivej se do manualu... :)
diakritika v Interbase
[*] Viliam Amerstein <amerstein(zv)vuez.sk> - 5.9.2000 08:01:07
To je chyba IBconsole. Ak si spravis jednoduchy
prg. v Delphi s napr.parametrami na diakritiku :
..Params.Add('lc_ctype=WIN1250');
..Params.Add('USER_NAME='SYSDBA');
..Params.Add('PASSWORD='masterkey');
a vlozis INSERT(name, ...) VALUES ('�軹�',...) bude to fungova�
nazdar
willi
----- Original Message -----
From: "Filip Hochman" <filip.hochman(zv)atlas(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Monday, September 04, 2000 10:15 PM
Subject: diakritika v Interbase
> Ahoj v�em,
>
> r�d bych kone�n� p�e�el z Paradoxu na n�jakou SQL platformu,
> ale prvn� pokusy m� ni��. Zkou�el n�kdo Interb�zi s tabulkou,
> kter� obsahuje pole napln�n� znaky s diakritikou.
> M� to p�i selectu h�z� chybu:
> arithmetic exception, numeric overflow, or string truncation Cannot
> transliterate character between character sets
>
> hned jak select vybere z�znam s takov�m polem.
>
> V� n�kdo jak na to ?
> D�k za pomoc, Filip.
>MessageDlg
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 5.9.2000 08:14:39
On 4 Sep 2000, at 22:37, Roland Turcan (RoTurSoft) wrote:
> > pouzij MessageDlgPos - viz help.
> > Lepsi je vsak pouzivat Application.MessageBox, na tlacitka totiz
> > pise
> cesky
> > (respektive jazykem Windows :).
> >
> Ale pokial si nakopirujes subor "consts.pas" do adresara projektu a
> prelozis v nom konstanty prisluchajuce tlacitkam MessageDlg tak budu
> take ake chces aj tchajwanskej verzii.
Rad bych upozornil na urcita rizika a neprijemnosti tohoto postupu.
1. V okamziku nove verze, nekdy i patche, je nutne cely soubor
projit a znovu prelozit (ci doprelozit).
2. Texty v consts.pas se objevuji v cele rade unitu, pro spravny
chod a bezkonflitnost je tedy nutne prelozit celou VCL, nahrani
consts.pas do sveho adresare je koncepcni chyba.
3. S timto postupem je treba zapomenout na pouzivani
standardnich balicku.
4. Konflikty mohou nastat u komponent tretich stran, zejmena
pokud k nim nejsou zdrojaky pro vlastni kompilaci. Pro priklady
neni treba chodit daleko, staci pouzit Quick Report, a bordel je na
svete.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Phones: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
�asova�e ve Windows + tvorba script� - kniha Alg
[*] Tom� Vlad�k������V��?���o�� - 5.9.2000 08:15:31
V Univerzitni knihovne v Brne (na Kounicove ul.) to urcite meli, ale bylo to
potreba rezervovat.
Taky by se to mozna dalo najit v knihovnach ruznych kateder informatiky na
VS.
T.
----- Original Message -----
From: "CHMEL Karel, Mgr." <kchmel(zv)csob(tec)cz>> Ahoj,
>
> knihu Algoritmy a struktury udajouv napsal N. Wirth a byla jednu dobu
> brana jako ucebnice jazyka Pascal. Koupit ji novou asi bude problem, vysla
> jeste pred rokem 1989 a ve slovenstine. Zkuste knihovny, tam ty knihy
> byly k dispozici. Mozna ji nekde budou mit i v nemeckem originale.
>
BDE a langdriver
[*] Kejval <petr.kejval(zv)worldonline(tec)cz> - 5.9.2000 08:28:44
Lze to vy�e�it zmenou langdriveru v registrech.
V InstalShieldu zapises v sekci Make Registry Changes.
Registry - keys:
HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Database
Engine\Settings\Drivers\DBase\Init
Registry - Values:
Value Name:LANGDRIVER
Value Data:dBASE CSY cp852 (nap��klad)
Obdobn� i z programu.
Petr Kejval
> Ako v programe (D5) alebo v instalacii (InstallShield) nastavit
> langdriver v BDE? (V BDE Admin je to Configuration->Drivers->Native->DBASE
a
> polozka Langdriver.)
>
> D5 Prof a InstallShield 5.5 Prof
>
>
> Za zachranne kolesa vopred dakujem
>
> Ondrej
>
>
> [ Ondrej Jaura mailto:jaura(zv)datalock.sk ]
> [ Datalock a.s. http://www.datalock.sk ]
> [ :) ]
>
>
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.176 / Virov� b�ze: 85 - datum vyd�n�: 26.7.2000
vytvorenie zasupcu exe subora
[*] Peter Mojdis <mojdis(zv)colnicapo.sk> - 5.9.2000 08:34:19
Nemate niekto funkciu na vytvorenie zastupcu ? Najlepsie pre C++ Builder.
Vo Win32 developer`s references som nasiel tento kod ale neviem ho v
Builderi prelozit
// CreateLink - uses the shell's IShellLink and IPersistFile interfaces
// to create and store a shortcut to the specified object.
// Returns the result of calling the member functions of the interfaces.
// lpszPathObj - address of a buffer containing the path of the object
// lpszPathLink - address of a buffer containing the path where the
// shell link is to be stored
// lpszDesc - address of a buffer containing the description of the
// shell link
HRESULT CreateLink(LPCSTR lpszPathObj,
LPSTR lpszPathLink, LPSTR lpszDesc)
{
HRESULT hres;
IShellLink* psl;
// Get a pointer to the IShellLink interface.
hres = CoCreateInstance(&CLSID_ShellLink, NULL,
CLSCTX_INPROC_SERVER, &IID_IShellLink, &psl);
if (SUCCEEDED(hres)) {
IPersistFile* ppf;
// Set the path to the shortcut target, and add the
// description.
psl->lpVtbl->SetPath(psl, lpszPathObj);
psl->lpVtbl->SetDescription(psl, lpszDesc);
// Query IShellLink for the IPersistFile interface for saving the
// shortcut in persistent storage.
hres = psl->lpVtbl->QueryInterface(psl, &IID_IPersistFile,
&ppf);
if (SUCCEEDED(hres)) {
WORD wsz[MAX_PATH];
// Ensure that the string is ANSI.
MultiByteToWideChar(CP_ACP, 0, lpszPathLink, -1,
wsz, MAX_PATH);
// Save the link by calling IPersistFile::Save.
hres = ppf->lpVtbl->Save(ppf, wsz, TRUE);
ppf->lpVtbl->Release(ppf);
}
psl->lpVtbl->Release(psl);
}
return hres;
}
prekreslovani plochy W98
[*] Pavel �imek <kejchal(zv)volny(tec)cz> - 5.9.2000 08:44:21
Dle meho nazoru jde ciste o ovladac grafiky..
Pavel Simek
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Ren� Otisk
Sent: Tuesday, September 05, 2000 7:33 AM
To: delphi-l(zv)fwd(tec)cz
Subject: OT: prekreslovani plochy W98
Prominte za OT, ale uz si nevim rady. Nainstaloval jsem W98 na PC a blbonek
mi je pri tazeni ikon po plose ruzne roztrha, prekryje, tamhle necha rozek
ikony, tamhle vrch a tak ruzne. Neni to prilis lahodne oku uzivatele. Nevite
v cem je zakapany pes? Grafika je tam ATI Rage.
Predem dekuji
Sroub
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.176 / Virov� b�ze: 85 - datum vyd�n�: 26.7.2000
OT: SELECT na SQL DB
[*] mkotaska(zv)atlas(tec)cz - 5.9.2000 08:53:53
Dobry den.
Nejprve omluva za OT, i kdyz souvisi s Delphi.
Da se obecne nejakym nastavenim zajistit, aby dotaz,ktery zasilam DB serveru (MS SQL Server, Interbase) vracel vysledek dotazu - konkretne nazvy vybranych sloupcu tabulek - vcetne jmena tabulky ?
Pr.:
SELECT kniha.*,dodav.* FROM kniha,dodav WHERE hniha.id_partner = dodav.id_partner
Pozadovany vysledek:
kniha.nazev dodav.spojeni
------------ --------------
Test polozka 123456789
.
.
atd.
Kdo by vedel, budu rad, kdyz mi odpovi.
Dekuju.
Milan Kotaska
mkotaska(zv)atlas(tec)cz
Cislo sitove karty
[*] Roman �ev��k��������(��h�̿ - 5.9.2000 09:47:10
Ahoj,
nevite nekdo jak se zjisti cislo sitove karty. Moc by mi to pomohlo.
Dik
Roman
Jeste jednou server Excel
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 5.9.2000 09:58:47
Omlouvam se vsem, kterym jiz tato otazka leze krkem:0-), ale ani po
prozkoumani historie teto konference se mi nepodarilo ziskat nejakou
uspesnou radu. Takze pokusil jsem se pouzit komponenty pro Excel a to bez
uspechu. Nepomohl ani upgrade na komponenty pro 2000 Excel. Smilujte se
tedy nekdo a poradte jak pomoci jmenovanych otevrit existujici soubor v
excelu a dale s nim pracovat. Diky Jura.padajici zapis do typoveho souboru
[*] Tom� Janta��������{����Y��̿ - 5.9.2000 10:09:44
Ahoj,
Pri psani jednoho programu jsem potreboval ukladat namerena data na disk,
data ukladam jako record TData. Pri otevreni souboru file of TData a
naslednem ukladani nastane chyba Access violation. Prikladam zjednoduseny
program ktery tuto chybu vykazuje taky. V puvodnim programu chyba nastavala
na ruznych mistech. Po odstraneni prikazu Write je vse OK.
Pouzivam : D3 std / Win2000 ( Win NT 4 )
Tomas Jantac
PaPouch elektronika
www.pap-el(tec)cz
Prilozeny zdrojak :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
Shape1: TShape;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Type TData = Record
Tlak : Real ;
Teplota : Real ;
Tlak2 : Real ;
Teplota2 : Real ;
end ;
implementation
{$R *.DFM}
Var Data : TData ;
procedure TForm1.Button1Click ( Sender : TObject ) ;
begin
If Timer1.Enabled = True Then
Begin
Shape1.Brush.Color := clRed ;
Timer1.Enabled := False ;
end
else
Begin
Shape1.Brush.Color := clLime ;
Timer1.Enabled := True ;
End ;
end ;
procedure TForm1.Timer1Timer(Sender: TObject);
Var F : File of TData ;
FName : String ;
begin
Randomize ;
Data.Tlak := Random ( 2000 ) / 1000 ;
Data.Tlak2 := Random ( 2000 ) / 1000 ;
Data.Teplota := Random ( 2000 ) / 1000 ;
Data.Teplota2 := Random ( 2000 ) / 1000 ;
Label1.Caption := FloatToStr ( Data.Tlak ) ;
Label2.Caption := FloatToStr ( Data.Tlak2 ) ;
Label3.Caption := FloatToStr ( Data.Teplota ) ;
Label4.Caption := FloatToStr ( Data.Teplota2 ) ;
{1} FName := 'aaa.aa' ;
AssignFile ( F, FName ) ;
If FileExists ( FName ) Then Append ( F ) else Rewrite ( F ) ;
Write ( F, Data ) ;
CloseFile ( F ) ;
{1}
end;
end.
Delphi a Word2000
[*] Marek Soukup <marek(zv)comberg(tec)cz> - 5.9.2000 10:21:19
Uz jsem se v tom trochu zorientoval, pomohlo mi AH_WORD97 a WORD97.PAS primo
z Delphi, ale stejne mi prijde, ze tam nektere funkce proste nejsou:
InsertRowsBellow treba.
Taky jsem moc nepochopil, proc mi nejde vkladat konstanta primo do parametru
funkce, napr:
var
OLEBook: OLEVariant;
begin
OLEBook:= wdGotoBoomark;
WordApplication.Selection.Goto_(OLEBook, EmptyParam, EmptyParam, 'JMENO');
end;
Proc nejde to wdGotoBookmark napsat primo ? Asi uz mam vsech teh variantu na
jeden den az dost :-)))
M.S. (neplest s MS)Posun komponenty a zmena velikosti
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 5.9.2000 10:27:52
Zdravim,
umim po formulari pohybovat "polozenym,a" komponentama pomoci mysi, ale
jeste bych potreboval umet zmenit velikost dane komponenty.
Poradi mi nekdo?
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.185 / Virov� b�ze: 88 - datum vyd�n�: 18.8.2000
padajici zapis do typoveho souboru
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 05.9.2000 10:35:37
> Ahoj,
>
> Pri psani jednoho programu jsem potreboval ukladat namerena data na disk,
> data ukladam jako record TData. Pri otevreni souboru file of TData a
> naslednem ukladani nastane chyba Access violation.
Stretol som sa s podobnym problemom. Nakoniec som musel kapitulovat
a napisal som si vlastnu obsluhu s vyuzitim WinAPI (CreateFile,
WriteFile,
CloseHandle).
Peter
prekreslovani plochy W98
[*] Ren� Otisk - 5.9.2000 10:38:33
zkousel jsem ovladace jak z original CD tak z netu...
Sroub
Dle meho nazoru jde ciste o ovladac grafiky..
Pavel Simek
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Ren� Otisk
Sent: Tuesday, September 05, 2000 7:33 AM
To: delphi-l(zv)fwd(tec)cz
Subject: OT: prekreslovani plochy W98
Prominte za OT, ale uz si nevim rady. Nainstaloval jsem W98 na PC a blbonek
mi je pri tazeni ikon po plose ruzne roztrha, prekryje, tamhle necha rozek
ikony, tamhle vrch a tak ruzne. Neni to prilis lahodne oku uzivatele. Nevite
v cem je zakapany pes? Grafika je tam ATI Rage.
Predem dekuji
Sroub
---
P��choz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.176 / Virov� b�ze: 85 - datum vyd�n�: 26.7.2000
padajici zapis do typoveho souboru
[*] Pavel ZIDEK <kopr(zv)kopr(tec)cz> - 5.9.2000 10:55:42
Zkus jeste dopsat a zjistit cislo chyby.
----- Original Message -----
From: Tom� Janta� <tomasnusle(zv)volny(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 05, 2000 10:09 AM
Subject: padajici zapis do typoveho souboru
>
> Ahoj,
>
> Pri psani jednoho programu jsem potreboval ukladat namerena data na disk,
> data ukladam jako record TData. Pri otevreni souboru file of TData a
> naslednem ukladani nastane chyba Access violation. Prikladam zjednoduseny
> program ktery tuto chybu vykazuje taky. V puvodnim programu chyba
nastavala
> na ruznych mistech. Po odstraneni prikazu Write je vse OK.
>
> Pouzivam : D3 std / Win2000 ( Win NT 4 )
>
> Tomas Jantac
>
> PaPouch elektronika
> www.pap-el(tec)cz
>
>
> Prilozeny zdrojak :
>
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
> ExtCtrls, StdCtrls;
>
> type
> TForm1 = class(TForm)
> Button1: TButton;
> Timer1: TTimer;
> Shape1: TShape;
> Label1: TLabel;
> Label2: TLabel;
> Label3: TLabel;
> Label4: TLabel;
> procedure Button1Click(Sender: TObject);
> procedure Timer1Timer(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> Type TData = Record
> Tlak : Real ;
> Teplota : Real ;
> Tlak2 : Real ;
> Teplota2 : Real ;
> end ;
>
> implementation
>
> {$R *.DFM}
>
> Var Data : TData ;
>
> procedure TForm1.Button1Click ( Sender : TObject ) ;
> begin
> If Timer1.Enabled = True Then
> Begin
> Shape1.Brush.Color := clRed ;
> Timer1.Enabled := False ;
> end
> else
> Begin
> Shape1.Brush.Color := clLime ;
> Timer1.Enabled := True ;
> End ;
> end ;
>
> procedure TForm1.Timer1Timer(Sender: TObject);
> Var F : File of TData ;
> FName : String ;
> begin
> Randomize ;
> Data.Tlak := Random ( 2000 ) / 1000 ;
> Data.Tlak2 := Random ( 2000 ) / 1000 ;
> Data.Teplota := Random ( 2000 ) / 1000 ;
> Data.Teplota2 := Random ( 2000 ) / 1000 ;
>
> Label1.Caption := FloatToStr ( Data.Tlak ) ;
> Label2.Caption := FloatToStr ( Data.Tlak2 ) ;
> Label3.Caption := FloatToStr ( Data.Teplota ) ;
> Label4.Caption := FloatToStr ( Data.Teplota2 ) ;
>
> {1} FName := 'aaa.aa' ;
> AssignFile ( F, FName ) ;
> If FileExists ( FName ) Then Append ( F ) else Rewrite ( F ) ;
{$i-}
> Write ( F, Data ) ;
{$i+}
MesageBox('Cislo chyby: ' + IntToStr(IOResult));
> CloseFile ( F ) ;
> {1}
> end;
>
> end.
>
>prekreslovani plochy W98
[*] SSOU Vodochody s.r.o. <ssouvodochody(zv)mbox.vol(tec)cz> - 5.9.2000 10:56:15
Ty ovladace jsou jednoznacne mizerne. Nova GOZILLA na nich prakticky nejede
a GIMP pro WIN9x ? Uprostred obrazovky si to klidne kus videopameti pouzije
pro beh programu, takze jsou tam dve radky s bordelem, ktery se casto meni a
staci to prekreslit nejakym oknem a klidne to pak muze spadnout. Nepomuze
ani uplne vypnuti urychlovani grafiky. V DELPHI je to zase schopne za urcite
situace zcela poskodit ikony v liste komponent.
Ing. Vlastimil Wagner n.n.n. (novodobe nucene nasazeny - tzn. momentalne na
civilce)
----- Original Message -----
From: Ren� Otisk <otisk(zv)misel(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 05, 2000 10:38 AM
Subject: Re: prekreslovani plochy W98
> zkousel jsem ovladace jak z original CD tak z netu...
>
> Sroub
>
>
> Dle meho nazoru jde ciste o ovladac grafiky..
>
> Pavel Simek
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Ren� Otisk
> Sent: Tuesday, September 05, 2000 7:33 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: OT: prekreslovani plochy W98
>
>
> Prominte za OT, ale uz si nevim rady. Nainstaloval jsem W98 na PC a
blbonek
> mi je pri tazeni ikon po plose ruzne roztrha, prekryje, tamhle necha rozek
> ikony, tamhle vrch a tak ruzne. Neni to prilis lahodne oku uzivatele.
Nevite
> v cem je zakapany pes? Grafika je tam ATI Rage.
>
> Predem dekuji
>
> Sroub
>
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.176 / Virov� b�ze: 85 - datum vyd�n�: 26.7.2000
>
>
>�asova�e ve Windows + tvorba script�
[*] Lauko �tefan <lauko(zv)salamon.sk> - 5.9.2000 11:03:00
Ahoj,
vyborny interpreter Delphi-pascal je na:
Authors:
Andrey Prigunkov (black(zv)infa.ru, ncuxxu(zv)pisem.net)
Roman Tkachev (roman(zv)infa.ru, whiteman(zv)mail.ru)
R&A Library Home Page:
http://www.infa.ru/black/ralib.htm,
http://www.chat.ru/~blacknbs/ralib.htm
Infa-Soft,
Stavropol, Russia.
Vyberam cast "readme.txt" ...
History
-------
RALib 1.00 (Dec 1998).
Initial release available on internet.
RALib 1.10 (Feb 1999).
New components TRAHLEditor, TRAhtListBox, TRAhtComboBox,
TRAScrollText.
New interpreter RAI2 and components TRAI2Program, TRAI2Fm.
Improvements in existing components:
TRAEditor - new properties: SmartTab, KeepTrailingBlanks,
CursorBeyondEOF, AutoIndent, BackSpaceUnindents; two-key commands,
automatically expands tabs when setting Lines property; Some bugs
fixed.
TRADBMove - new property: Mappings.
atd...
Lauko.
----- Original Message -----
From: Jind�ich Nikodem
To: delphi-l(zv)fwd(tec)cz
Sent: Wednesday, August 30, 2000 1:32 PM
Subject: �asova�e ve Windows + tvorba script�
Ahoj vsem,
1)
mam pro svuj program vytvorene nejake komponenty (na zobrazovani cisel, textu ...) a potrebuji aby se mi v mnou zadanych intervalech vykonaval nejaky kod u kazde komponenty. Resil jsem to tak, ze kazda komponenta ma vlastni Timer a ja jen urcim v properties interval a v onTimer napisu svuj kod. Moje otazka zni kolik Timeru ve Windows vlastne mohu mit? Je to nejak omezeno? S kazdou instanci vlastne vytvarim novy Timer.
2)
pro svuj program chci vytvorit nejaky interpret jazyka (nejlepe Pascalu), ale nevim kde zacit. Existuji nejake obecne algoritmy pro psani takoveho programu? Za odpoved predem dekuji
Jindrich Nikodem
nikodem(zv)kh-kinetic(tec)cz
odblokovani dll knihovny
[*] Tom�s Kruz�k \(el. adresa\) <t.kruzik(zv)msp.mesit(tec)cz> - 5.9.2000 11:14:35
Ahoj,
Jestli ten soubor dll v ASP zkousis pomoci Microsoft Personal Web Server
bylo by mozne zkusit to timto zpusobem:
Po pouziti a ukonceni ASP zastavit sluzbu PWS spustit vlastnosti PWS a
vbehnout do polozky upravit a spustit "upravit vlastnosti" slozky ve ktere
je script ulozen. potom vsechny okna PWS uzavrit a soubor je uvolnen.
Alespon me to tak funguje.
Tom� Kru��k
v�vojov� program�tor
t.kruzik(zv)msp.mesit(tec)cz
mobil: 0603-947060
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On
> Behalf Of Miroslav Dolecek
> Sent: Monday, September 04, 2000 3:56 PM
> To: Diskuzni skupina o Delphi
> Subject: odblokovani dll knihovny
>
>
> Zdravim vsechny,
>
> mam takovy neprijemny problem. Vyvijim Active Server Object jako dll
> knihovnu. Kdyz pouziju dll knihovnu v ASP, tak pri dalsi kompilaci v
> Delphi je ta knihovna bloknuta Windows a nelze prepsat,
> smazat... Pomuze
> jedine reboot, pak to jde. Musi existovat nejake reseni jak se tomu
> vyhnout. Takhle se neda pracovat. Dik za pomoc.
>
> Mirek Dolecek
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.185 / Virov� b�ze: 88 - datum vyd�n�: 18.8.2000
>
Ovladaci panely
[*] Josef Straka <strakajosef(zv)seznam(tec)cz> - 5.9.2000 11:24:19
Prijemny den,
D4 Standard, W95 OSR2.
> Tak�e ohledne zak�z�n� objektu v ovladacich panelech.
> HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies
> 3. pokud nexistuje tak vytvorit klic system
> 4. klinete pravym tlacitkem na klic system. Kliknete na vytvorit ---> nova
> hodnota DWORD
> 5. Hodnotu nazvete podle toho ktery panel chcete zakazat
> 6. U kazde hodnoty je treba nastavit 1 - true proto aby se nastaveni
> aplikovalo
> NodispCpl - vypne nastaveni obrazovky
> Nodispscrsavpage - odstrani kartu sporice obrazovky
> uplny seznam moznosti a prvku nemam ale podle mne je vse na
> www.registry.com
To jsem zkousel, ale potreboval jeste bych zjistit jmena polozek jako
System, Klavesnice, Hesla, Internet, Sit, no proste vlastne vsechno. Na
www.registry.com nic takoveho neni. Nejsem anglican, ale na teto adrese je
neco uplne jineho, co ma s registry Windows pramalo spolecneho.
> PS:pokud by mnel nekdo zajem tak muzu poslat vsechny polozky od zakazani
> nabidky spusteni az po kartu site.
> PS2: pokud by nekdo chtel vedet jak to naprogramovat v delphi at se mi
To by bylo neco. Vsechny polozky a jeste vedet, jak to udelat v Delphi.
> pak je zde jeste jedna moznost odstranit cely klic i pod polozkama
> HKEY_CLASSES_ROOT\CLSID\{21EC2020-3AEA-1069-A2DD-08002B30309D}
To jde, ale pokud tuto vetev smazu, stale mi to jde spustit pres
NabidkaStart\Nastaveni\Ovladaci panely
Dekuji predem, protoze zadem se v teto konferenci dekovat nesmi.
Zacinajici programator Straka Josef
email: strakaj(zv)hba(tec)czn(tec)cz
www: http://mujweb(tec)cz/www/strakaj/padajici zapis do typoveho souboru
[*] �ampulka Ji�� <campulka(zv)czas(tec)cz> - 5.9.2000 11:35:14
----- P�vodn� zpr�va -----
Od: Tom� Janta� <tomasnusle(zv)volny(tec)cz>
> Pri psani jednoho programu jsem potreboval ukladat namerena data na disk,
> data ukladam jako record TData. Pri otevreni souboru file of TData a
> naslednem ukladani nastane chyba Access violation. Prikladam zjednoduseny
> program ktery tuto chybu vykazuje taky. V puvodnim programu chyba nastavala
> na ruznych mistech. Po odstraneni prikazu Write je vse OK.
>
> Pouzivam : D3 std / Win2000 ( Win NT 4 )
> {1} FName := 'aaa.aa' ;
> AssignFile ( F, FName ) ;
> If FileExists ( FName ) Then Append ( F ) else Rewrite ( F ) ;
> Write ( F, Data ) ;
> CloseFile ( F ) ;
> {1}
> end;
Nejsem si uplne jistej ale myslim ze Append na typovej soubor nelze pouzit...
TOpenDialog - vyber vice adresaru
[*] Delphi Konference <delphi(zv)zps.skoda-auto(tec)cz> - 5.9.2000 11:43:33
Jenze ja potrebuji vybirat i adresare, coz nejde.
Jakub Flaska
> -----P�vodn� zpr�va-----
> Od: Pavel K�ehula [SMTP:pavel(zv)mas(tec)cz]
> Odesl�no: 30. srpna 2000 16:32
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: TOpenDialog - vyber vice adresaru
>
>
>
> | TOpenDialog slouzi jen pro vyber jednoho ci vice souboru. Ja vsak
> | potrebuji, aby uzivatel mohl vybrat vice souboru i adresaru.
> Existuje na
> | to nejaka hotova komponenta?
>
> Zdravicko,
>
> neni pravda, v Options property TOpenDialogu zaskrtni
> ofAllowMultiSelect a
> pak v property Files budes mit nazvy vsech vybranych souboru.
>
> Pavel
>
> prekreslovani plochy W98
[*] Radek Lev� - 5.9.2000 11:58:47
A deje se tak ve vsech rozlisenich ?
----- Original Message -----
From: Ren� Otisk <otisk(zv)misel(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 05, 2000 10:38 AM
Subject: Re: prekreslovani plochy W98
> zkousel jsem ovladace jak z original CD tak z netu...
>
> Sroub
>
>
> Dle meho nazoru jde ciste o ovladac grafiky..
>
> Pavel Simek
>
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Ren� Otisk
> Sent: Tuesday, September 05, 2000 7:33 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: OT: prekreslovani plochy W98
>
>
> Prominte za OT, ale uz si nevim rady. Nainstaloval jsem W98 na PC a
blbonek
> mi je pri tazeni ikon po plose ruzne roztrha, prekryje, tamhle necha rozek
> ikony, tamhle vrch a tak ruzne. Neni to prilis lahodne oku uzivatele.
Nevite
> v cem je zakapany pes? Grafika je tam ATI Rage.
>
> Predem dekuji
>
> Sroub
>
>
> ---
> P��choz� zpr�va neobsahuje viry.
> Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
> Verze: 6.0.176 / Virov� b�ze: 85 - datum vyd�n�: 26.7.2000
padajici zapis do typoveho souboru
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 5.9.2000 12:09:51
From: "Tom� Janta�" <tomasnusle(zv)volny(tec)cz>
>
> Pri psani jednoho programu jsem potreboval ukladat namerena data na disk,
> data ukladam jako record TData. Pri otevreni souboru file of TData a
> naslednem ukladani nastane chyba Access violation. Prikladam zjednoduseny
> program ktery tuto chybu vykazuje taky. V puvodnim programu chyba
nastavala
> na ruznych mistech. Po odstraneni prikazu Write je vse OK.
>
> Pouzivam : D3 std / Win2000 ( Win NT 4 )
>
Myslim, ze problem bude v pouziti Append.
Append lze pouzit pouze ve spojitosti s textovymi soubory,
ale ne s typovymi. Vymenil bych Append za kombinaci
Reset(F);
Seek(F, Filesize(F));
Vaclav Krmela
Report Builder - pristup ke globalnim promenym
[*] Michal K�s <kus(zv)tangosw(tec)cz> - 5.9.2000 12:18:16
> > Jak do sestavy dostat nejake globalni informace, napr. jmeno
> > aplikace, jmeno uzivatele, jmeno zakaznika atd., ktere nejsou
>
> Skus napriklad:
>
> SELECT 'Meno aplikacie', 'meno uzivatela', meno zakaznika'
>
> a pripoj ten dotaz na pipu, daj jej meno napriklad GOBALNE_INFO
>
> alebo sa to da urobit cez RAP
>
RAP muze pristupovat k promenym nebo funkcim programu? Pokud ano,
tak jak?
A vubec, ma to smysl kupovat RB Ext?
Michal Kus
padajici zapis do typoveho souboru
[*] martin.falta(zv)obi.de - 5.9.2000 11:18:51
Ahoj,
typovy soubor musis otevirat procedurou Reset(). Procedura Append() je
pouze pro textov� soubory.
Martin
---------------------- Weitergeleitet von Martin Falta/OBI/CZ am 05.09.2000
11:24 ---------------------------
Von: tomasnusle(zv)volny(tec)cz(zv)fwd(tec)cz am 05.09.2000 10:09 OEZ
Bitte antworten an delphi-l(zv)fwd(tec)cz
Gesendet von: owner-delphi-l(zv)fwd(tec)cz
An: delphi-l(zv)fwd(tec)cz
Kopie:
Thema: padajici zapis do typoveho souboru
Ahoj,
Pri psani jednoho programu jsem potreboval ukladat namerena data na disk,
data ukladam jako record TData. Pri otevreni souboru file of TData a
naslednem ukladani nastane chyba Access violation. Prikladam zjednoduseny
program ktery tuto chybu vykazuje taky. V puvodnim programu chyba nastavala
na ruznych mistech. Po odstraneni prikazu Write je vse OK.
Pouzivam : D3 std / Win2000 ( Win NT 4 )
Tomas Jantac
PaPouch elektronika
www.pap-el(tec)cz
Prilozeny zdrojak :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
Shape1: TShape;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Type TData = Record
Tlak : Real ;
Teplota : Real ;
Tlak2 : Real ;
Teplota2 : Real ;
end ;
implementation
{$R *.DFM}
Var Data : TData ;
procedure TForm1.Button1Click ( Sender : TObject ) ;
begin
If Timer1.Enabled = True Then
Begin
Shape1.Brush.Color := clRed ;
Timer1.Enabled := False ;
end
else
Begin
Shape1.Brush.Color := clLime ;
Timer1.Enabled := True ;
End ;
end ;
procedure TForm1.Timer1Timer(Sender: TObject);
Var F : File of TData ;
FName : String ;
begin
Randomize ;
Data.Tlak := Random ( 2000 ) / 1000 ;
Data.Tlak2 := Random ( 2000 ) / 1000 ;
Data.Teplota := Random ( 2000 ) / 1000 ;
Data.Teplota2 := Random ( 2000 ) / 1000 ;
Label1.Caption := FloatToStr ( Data.Tlak ) ;
Label2.Caption := FloatToStr ( Data.Tlak2 ) ;
Label3.Caption := FloatToStr ( Data.Teplota ) ;
Label4.Caption := FloatToStr ( Data.Teplota2 ) ;
{1} FName := 'aaa.aa' ;
AssignFile ( F, FName ) ;
If FileExists ( FName ) Then Append ( F ) else Rewrite ( F ) ;
^^^^^^
Write ( F, Data ) ;
CloseFile ( F ) ;
{1}
end;
end.
IMPORTANT NOTICE:
This email is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and email confirmation to the sender.padajici zapis do typoveho souboru
[*] Vojtek Jiri <j_vojtek(zv)del(tec)cz> - 5.9.2000 12:34:41
Ja mam tu zkusenost, ze tahle grafika ma problemy s nekterymi MB hlavne se
hadala s AMD K6-2,3 u novych athlonu je to v pohode. Doporucuji
zkontrolovat, zda nema deska nejake specielni ovladace na AGP pokud ano
totalne zrusit okna ne preinstalovatt ale smazat, nebo sformatovat disk.
Nainstalovat pouze ty ovladace,ktere se staraji o AGP a pokud si je Wokna
nenajdou u sebe tak i ke grafice a zkusit jak se bude chovat.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Ren� Otisk
> Sent: Tuesday, September 05, 2000 7:33 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: OT: prekreslovani plochy W98
>
>
> Prominte za OT, ale uz si nevim rady. Nainstaloval jsem W98 na PC a
blbonek
> mi je pri tazeni ikon po plose ruzne roztrha, prekryje, tamhle necha rozek
> ikony, tamhle vrch a tak ruzne. Neni to prilis lahodne oku uzivatele.
Nevite
> v cem je zakapany pes? Grafika je tam ATI Rage.
>
> Predem dekuji
>
> Sroub
>
>
> ---
Jeste jednou EXCEL
[*] tomas.mazurek(zv)vitkovice(tec)cz - 5.9.2000 10:49:28
Hello,
predchazejici debatu jsem nesledoval, ale kdysi jsem si jen tak neco
zkousel a slo to bez problemu:
ExcelApplication.Connect;
ExcelApplication.Visible[0] := True;
ExcelApplication.Workbooks.Open('c:\working\new.xls', false,
false,EmptyParam,'',false,false,EmptyParam,
EmptyParam,false,false,EmptyParam,false,0);
ExcelWorksheet.ConnectTo(ExcelApplication.ActiveWorkbook.ActiveSheet
as _Worksheet); ExcelWorksheet.Cells.Item[1, 1] := 'foo';
Na formu mam 2 komp. a to ExcelApplication a dale ExcelWorksheet.
Excel se otevrel se souborem new a to bunky se zapsal text...
Samozrejme help k parametrum hledej u Office VB...
TM
prekreslovani plochy W98
[*] Tom� Vlad�k������V��?���o�� - 5.9.2000 12:58:49
Vyzkousel jsi vypnout veskere akceleracni fce graficke karty?
T.
----- Original Message -----
From: "Ren� Otisk" <otisk(zv)misel(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: Tuesday, September 05, 2000 10:38 AM
Subject: Re: prekreslovani plochy W98
> zkousel jsem ovladace jak z original CD tak z netu...
>
Zaloha dat
[*] Bednar��k Dalibor <dalibor(zv)torola(tec)cz> - 5.9.2000 13:00:10
Toto je zpr�va ve form�tu MIME obsahuj�c� v�ce ��st�.
Ahoj
Neporadite mi nekdo jak nejlepe udelat ve svem programu zalohu dat a pak zpetnou obnovu...
Reseni ruznych situaci jako Table is Busy atd..
Hodne by mi to pomohlo..
Pouzivam PARADOX tabulky. Asi 10...
D5Prof.
Predem MOC dekuji
vlastnik komponenty
[*] Miroslav Dolecek <xdolecek(zv)informatics.muni(tec)cz> - 5.9.2000 13:09:11
Ahoj lidi,
vytvarim Active Server Object jako dll a potrebuji pristupovat do databaze
pres BDE. Kdyz vytvarim objekty TTable a TDataSource jaky objekt
TComponent mam udat jako jejich vlastnika, kdyz tam neni TForm. Zkousel
jsem Application, ale rve to nekompatibilitu. Diky
Mirek Dolecek
padajici zapis do typoveho souboru
[*] Ji�� Mat�jka <jiri.matejka(zv)stemmark(tec)cz> - 5.9.2000 13:31:12
Mam ten neblahy dojem, ze Reset() znamena otevreni pouze pro cteni, tudiz tam nebude moc zapisovat. Leda nacist do pameti (pokud to rozsah dovoli) a pak to ukladat i se zmenami cely znova.
Jirka Matejka
-----P�vodn� zpr�va-----
Od: martin.falta(zv)obi.de [SMTP:martin.falta(zv)obi.de]
Odesl�no: 5. z��� 2000 12:19
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: padajici zapis do typoveho souboru
Ahoj,
typovy soubor musis otevirat procedurou Reset(). Procedura Append() je
pouze pro textov� soubory.
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.167 / Virov� b�ze: 80 - datum vyd�n�: 29.6.2000
padajici zapis do typoveho souboru
[*] Jan Fiala <jan.fiala(zv)iol(tec)cz> - 5.9.2000 13:40:52
----- Original Message -----
From: "Ji�� Mat�jka" <jiri.matejka(zv)stemmark(tec)cz>>Mam ten neblahy dojem, ze Reset() znamena otevreni pouze pro cteni, tudiz tam nebude moc zapisovat. Leda nacist do >pameti (pokud to rozsah dovoli) a pak to ukladat i se zmenami cely znova.
>Jirka Matejka
Mam ten neblahy pocit, ze nemas pravdu. Append se skutecne pouziva pouze u textovych souboru. U typovych souboru se pouziva Reset a Seek. Zkus se podivat na priklad z helpu u funkce SEEK.
Jan Fiala
Nazev procedury
[*] Roman �ev��k��������(��h�̿ - 5.9.2000 14:17:59
Ahoj,
nevite nekdo, jak zjistim nazev procedury... Jde mi o to, ze kdyz program
spadne, tak bych potreboval vedet ve ktere procedure se to stalo a ulozit to
na disk.
Diky
Roman
Zaloha dat
[*] Roman �ev��k��������(��h�̿ - 5.9.2000 14:24:43
Kdysi jsem vsechny tabulky prevedl na TXT a zbalil ZIPem, super komprese,
ale obnova byla horsi viz. AutoInc, proto jsem presel na zpusob, kde zbalim
vsechny soubory ZIPem a pri obnove je znovu rozbalim, tam kam potrebuji. V
tomto pripade je komprese sice miziva, ale kdo dnes zalohuje na diskety.
Roman
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Bednar��k Dalibor
Sent: Tuesday, September 05, 2000 1:00 PM
To: forum
Subject: Zaloha dat
Ahoj
Neporadite mi nekdo jak nejlepe udelat ve svem programu zalohu dat a pak
zpetnou obnovu...
Reseni ruznych situaci jako Table is Busy atd..
Hodne by mi to pomohlo..
Pouzivam PARADOX tabulky. Asi 10...
D5Prof.
Predem MOC dekuji
vlastnik komponenty
[*] Radek Janu� <janus(zv)foresta(tec)cz> - 5.9.2000 15:01:20
Je to zvl�tn� , "application" by mel v pohode fungovat .Zkus je�te napsat
co ti to presne hl�s� pri t� nekompatibilite .
PS: Je�te jde pou��t parametr nil - ale u toho mus� zarucit zru�en�
komponenty v ka�d�m pr�pade (tzn. pokud creatuje� komponentu s parametrem
self nebo application tak pokud vypne� okno tak ti delphi automaticky zru��
v�echny komponenty , kter� maj� jako otce tento form - u nil to mus� v
ka�d�m pr�pade udelat s�m jinak ti zustane komtonenta viset v pameti ).
Radek
-----P�vodn� zpr�va-----
Od: Miroslav Dolecek <xdolecek(zv)informatics.muni(tec)cz>
Komu: Diskuzni skupina o Delphi <delphi-l(zv)fwd(tec)cz>
Datum: 5. z��� 2000 13:45
P�edm�t: vlastnik komponenty
>Ahoj lidi,
>
>vytvarim Active Server Object jako dll a potrebuji pristupovat do databaze
>pres BDE. Kdyz vytvarim objekty TTable a TDataSource jaky objekt
>TComponent mam udat jako jejich vlastnika, kdyz tam neni TForm. Zkousel
>jsem Application, ale rve to nekompatibilitu. Diky
>
>Mirek Dolecek
vlastnik komponenty
[*] Raul Endymion <raul.endymion(zv)ns1.infima(tec)cz> - 5.9.2000 15:12:42
MD> Ahoj lidi,
MD> vytvarim Active Server Object jako dll a potrebuji pristupovat do databaze
MD> pres BDE. Kdyz vytvarim objekty TTable a TDataSource jaky objekt
MD> TComponent mam udat jako jejich vlastnika, kdyz tam neni TForm. Zkousel
MD> jsem Application, ale rve to nekompatibilitu. Diky
MD> Mirek Dolecek
Mozna to neni spravne, ale co zkusit self nebo spis nil ?
Raul mailto:raul.endymion(zv)bsdi.infima(tec)cz