Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Runtime error
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 18.9.1998 13:20:35
Error 202 je konkretne Stack overflow. Kdybys chtel vedet o dalsich kodech chyb, podivej se do helpu k Delphi pod Runtime Error
Jan Fiala
-----P�vodn� zpr�va-----
Od: Ing. Miroslav Ond��ek <bonnel(zv)telecom(tec)cz>
Komu: Delphi konference <delphi-l(zv)fwd(tec)cz>
Datum: 18. z��� 1998 10:13
P�edm�t: Runtime error
Vyskytuje se nekde seznam runtime errors podle cisel ? Zajimalo by me
predevsim cislo 202, ktere vyskakuje v metode OnResize formulare pri
nastavovani velikosti.
Diky
Ing. Miroslav Ond��ek
Bonnel Technologie, s.r.o.
E-mail:
bonnel-ondrisek(zv)telecom(tec)cz - v�voj software
internet: http://www.bonnel-tech.com
PGP podporov�no - ve�ejn� kl�� na na�� homepage
DBGRID
[*] Michal Hruska <hruska(zv)pha.pvt(tec)cz> - 18.9.1998 14:14:45
Omluvte prosim dotaz zacatecnika. Pri editaci databazove polozky typu
Integer v DBGRIDu chci povolit pouze zapis 3 ciselnych znaku. Nevite nekdo
jak to mam udelat?
Diky Reichmann
Pouziti GetCharacterPlacement
[*] Jiri Fajtl <chip(zv)oku-pi(tec)cz> - 18.9.1998 14:40:40
Diky za odpoved.
Martin Fron�k wrote:
>
> Hi,
>
> to tam fakt nepatri, poradne si prohlidni definici funkce:
>
> DWORD GetCharacterPlacement(
>
> HDC hdc, // handle to device context
> LPCTSTR lpString, // pointer to string
> int nCount, // number of characters in string
> int nMaxExtent, // maximum extent for displayed string
> LPGCP_RESULTS *lpResults, // pointer to buffer for placement
> result
> DWORD dwFlags // placement flags
> );
>
> PARAMETRY: handle kontextu, ukazatel na retezec, delka retezce,
> maximalni delka v logickych jednotkach (pouziva se zridka), ukazatel na
> strukturu pro vysledek, prepinace.
>
> navratova hodnota je 0 pri neuspechu, jinak je nenulova.
>
> PRECTI SI TO PORADNE, NENI DUVOD K TOMU, ABY TO NEFUNGOVALO.
To je fakt pekne ovsem toto je ceckova definice z win32 helpu od
borlandu.
Takhle je funkce GetCharacterPlacement definovana v unit windows.pas v
delphi 3.0
function GetCharacterPlacement(DC: HDC; p2: PChar; p3, p4: BOOL;
var p5: TGCPResults; p6: DWORD): DWORD; stdcall;
Bohuzel nacpat integer do BOOL bez pretypovani se mi jaksi nevede.
Faktem je to, ze kdyz budu chtit pouze zjistit delku retezce v pixelech
je idealnim resenim pouzit funkci GetTextExtentPoint.
Napada me jeste jeden problem, ktery jsem chtel resit funkci
GetCharacterPlacement
a to ziskani casti retezce podle zadane sirky v pixelech.
Mozna delam neco spatne. HELP HELP.
Diky za kazde napady a informace.
Jiri Fajtl
mailto: chip(zv)oku-pi(tec)cz
Pouziti GetCharacterPlacement
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 18.9.1998 16:19:28
Hi,
tak to budes muset upravit tu definici. I mistr tesar se nekdy utne. Ja
pouzivam Builder, takze me se tyhle problemy netykaji :-)
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Jiri Fajtl [SMTP:chip(zv)oku-pi(tec)cz]
> Odesl�no: 18. z��� 1998 14:41
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Pouziti GetCharacterPlacement
>
> Diky za odpoved.
>
>
> Martin Fronik wrote:
> >
> > Hi,
> >
> > to tam fakt nepatri, poradne si prohlidni definici funkce:
> >
> > DWORD GetCharacterPlacement(
> >
> > HDC hdc, // handle to device context
> > LPCTSTR lpString, // pointer to string
> > int nCount, // number of characters in string
> > int nMaxExtent, // maximum extent for displayed string
> > LPGCP_RESULTS *lpResults, // pointer to buffer for placement
> > result
> > DWORD dwFlags // placement flags
> > );
> >
> > PARAMETRY: handle kontextu, ukazatel na retezec, delka retezce,
> > maximalni delka v logickych jednotkach (pouziva se zridka), ukazatel
> na
> > strukturu pro vysledek, prepinace.
> >
> > navratova hodnota je 0 pri neuspechu, jinak je nenulova.
> >
> > PRECTI SI TO PORADNE, NENI DUVOD K TOMU, ABY TO NEFUNGOVALO.
>
>
> To je fakt pekne ovsem toto je ceckova definice z win32 helpu od
> borlandu.
> Takhle je funkce GetCharacterPlacement definovana v unit windows.pas v
> delphi 3.0
>
> function GetCharacterPlacement(DC: HDC; p2: PChar; p3, p4: BOOL;
> var p5: TGCPResults; p6: DWORD): DWORD; stdcall;
>
> Bohuzel nacpat integer do BOOL bez pretypovani se mi jaksi nevede.
>
>
> Faktem je to, ze kdyz budu chtit pouze zjistit delku retezce v
> pixelech
> je idealnim resenim pouzit funkci GetTextExtentPoint.
>
> Napada me jeste jeden problem, ktery jsem chtel resit funkci
> GetCharacterPlacement
> a to ziskani casti retezce podle zadane sirky v pixelech.
>
> Mozna delam neco spatne. HELP HELP.
> Diky za kazde napady a informace.
>
>
> Jiri Fajtl
> mailto: chip(zv)oku-pi(tec)cz
OCX registrace - dotaz
[*] Zden�k Marecek <marecek(zv)phil.muni(tec)cz> - 18.9.1998 16:30:46
Hi !
Nasel jsem OCXko, ktere dela vec kterou bzch moc potrboval (komprese s heslovanim, rychla, ...),
ale jen soubor.ocx, tj zkousel jsem ho registrovat pomoci regserv32 (nebo jak se jmenuje), ale to
po instalaci do D3 a pretazeni na form napise "licence information not found" atd, a neumozni ji
pouzit (jinak na palete se i spravne zobrazi ikonka). koukal jsem se do regstru jak je to delany
(v registrech pod cimsi je tusim PGUID, kde je vzdycky GUID a v nem nejake info) , ale
zjistil jsem jen ze regserv to registruje s asi 5 polozkami, kdezto vetsina ActiveX, ktere pouzivam,
je registrovanzch asi s 10, sice nevim jak to funguje, ale nevypada, ze by tam bylo nejaky magicnumber.
predem diky za vsechny informace,
jakub marecek, marecek(zv)phil.muni(tec)cz, jakub.marecek(zv)gvid(tec)cz
MIESANIE WAV
[*] Ing. J�n Kuch�r�����!j��G - 18.9.1998 16:41:15
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute
Potrebujem nasledovne veci a neviem ako na to :
1) chcem zakazat generovanie akychkolvek zvukovych tonov pocas mojej aplikacie
2) mam dva WAV subory, v Delphi sa najskor prehraje jeden WAV a ked skonci
tak potom druhy WAV subor, ja by som ale potreboval aby sa prehravaly obidva
WAV subory sucasne a neviem ako
Beriem vsetky rady a napady
Dik
Ing. J�n Kuch�r
Katedra inv�ci� a rein�inieringu
SjF TU Ko�ice
Letn� 9
040 01 Ko�ice
E-mail : kuchar(zv)tuke.sk Zji�t�n� jm�na PC
[*] Ing. Josef Kryml <Josef.Kryml(zv)uhul(tec)cz> - 18.9.1998 17:42:19
v pascalu nebo v tcp/ip
> ----------
> From: Jaroslav Chadt[SMTP:Chadt(zv)cbu.uhul(tec)cz]
> Reply To: delphi-l(zv)fwd(tec)cz
> Sent: 17. z��� 1998 9:16
> To: 'delphi(zv)pinknet(tec)cz'
> Subject: Zji�t�n� jm�na PC
>
> Nev�t� n�kdo n�hodou, jak zjistit jm�no PC ve Win95, pop�. IP adresu,
> jestli j� m� a jakou.
>
> D�ky
>
>
> Jaroslav Chadt
> ---------------------------------------------
> �H�L Brand�s nad Labem
> pobo�ka �esk� Bud�jovice
> Lipov� 15
> 373 71 Rudolfov
>
> tel./z�zn.: 038/72 38 388
> fax:038/72 38 288
> E-mail: chadt(zv)cbu.uhul(tec)cz
> www: http://www.uhul(tec)cz/cbu
> Metoda POST
[*] Petr Vale� <Petr.Vales(zv)gopas(tec)cz> - 18.9.1998 18:02:10
Hi all,
nevite prosim nekdo jak pouzit HTTP komponentu pro
metodu POST ???
Zkousel jsem funkce GetDocument(...) a SendDocument(...)
a nejak sem nic nezjistil. V helpu take nic neni.
Diik za kazdou radu
OffTopic: 16-ti bit programy a Fat32xFAT16
[*] Prantl Zden�k <Zdenek.Prantl(zv)pvt(tec)cz> - 18.9.1998 20:30:09
Zdravim,
a chci se zeptat:
Je nejake omezeni pro spousteni 16-ti bit programu
psanych v D1 na systemu s FAT32 (NT a WIN95 OSR2)?
Pokud ano, tak jake a proc.
Diky
ZdeP Komunikacia medzi dvoma aplikaciami...
[*] Michal Moscovic <moscovic(zv)fred.utc.sk> - 18.9.1998 20:31:54
Subject: Komunikacia medzi dvoma aplikaciami...>[Petr Brant]
>Nemel by to byt problem, pouzij handle okna a muzes mezi nimi posilat
>messages. Delal jsem takhle komunikaci mezi DLL v Cecku a formem v Delphi a
>chodilo to bezvadne.
Zdar... vdaka za odpoved. Predpokladam, ze toto je to co potrebujem,
ale nakolko som pod windowsami zaciatocnik tak mi veci ako "handle okna" a
podobne este moc nehovoria (aj ked predstavu mam, no chybaju skusenosti).
Chcelo by to asi trochu lopatistickejsie (prosiiiiiim).
>[Martin Fronek]
>skus se rozepsat o tom, jake mas predstavy a co by si mely ty aplikace
>sdelovat. Moznosti je spoustu.
Pre upresnenie problemu:
Z aplikacie "A" pustam za pomoci CreateProcess aplikaciu "B", ktorej
potrebujem na zaciatku poslat nejake info o nastaveniach, ktore previedol
uzivatel v aplikacii "A". Toto som vyriesil cez parameter CommandLine (alebo
nieco podobne) - aplikacia "B" si ich precita cez ParamStr(...). Problem
nastava, ked chcem pocas behu aplikacie "B" pripadne pri jej ukonceni
odovzdat inforamcie z aplikacie "B" do aplikacie "A". Jedna sa o rozne
informacie napr. v tvare STRING (su aj ine ale dali by sa prekonvertovat na
string a potom spet). Aplikacia "A" je pocas behu aplikacie "B" necinna
(caka na jej ukoncenie) takze moze vklude cakat na informacie od aplikacie
"B".
Nuz zrozumitelnejsie to uz asi v mail-i nevysvetlim (dufam ze to
bude stacit).
[lubos dusanic]
>a co takto skusit komunikaciu cez tcpip - najlepsie s komponentami d
f.piette
>(ics). funguje to uplne spolahlivo ...
Na jednom pocitaci??? Tak to si neviem predstavit... To asi nie...
Ale aj tak vdaka za snahu.
Vas verny Salmon Salmonovic
Vlastnosti komponent za behu
[*] Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz> - 18.9.1998 22:59:21
> Myslel jsem toto: ve formulari si zjistim vsechny komponenty, u kazde z nich
> si overim jejich vlastnosti pomoci GetPropList, vyberu vlastnosti ktere maji
> List^[j]^.PropType^.Kind=tkClass abych dostal mezi jinymi i vlastnost Lines
> typu TStrings (napr pro TMemo ale taky pro TSuperMemo a dalsi, u jinych
> komponent to muze byt treba i vlastnost Items). A ted prichazi muj problem.
> U takto zjisteneho prvku bych potreboval zjistit obsah Lines, Items (oba
> TStrings) tj. Count, Strings[0..Count-1], atd.
V tom nevidim zadny problem. GetPropList moc neznam. Osobne bych to delal jinak :
- kdybych znal nazev komponenty kterou hledam (Name),
tak pomoci FindComponent(const AName: string): TComponent;
- kdyz uz je musis vsechny projit, tak bych prislusnost k typu
overoval pomoci takto :
if (NalezenyControl is TMemo) or (NalezenyControl is TSupermemoMemo) then ...
No a kdyz uz mam tu komponentu overenou, tak k jejim
propertam pristupuju takhle :
TMemo(NalezenyControl).Items.Count
TMemo(NalezenyControl).Items.Strings
TSuperMemo(NalezenyControl).Items.Count
TSuperMemo(NalezenyControl).Items.Strings
apod.
Doufam, ze je to to, co si chtel vedet.
S pozdravem
Vojtech Semecky
DBGRID
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 19.9.1998 00:20:37
Ahoj,
coz takhle Fields nadefinovat integer na 3 a
ve fields editoru nastavit MaxValue:= 999 a pri pokusu
o zapis osetrit nastalou vyjimku.
S pozdravem
==============================
> Pavel Malinsky; spiderland(zv)usa.net <
==============================
-----P�vodn� zpr�va-----
Od: Michal Hruska <hruska(zv)pha.pvt(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. z��� 1998 15:18
P�edm�t: DBGRID
>Omluvte prosim dotaz zacatecnika. Pri editaci databazove polozky typu
>Integer v DBGRIDu chci povolit pouze zapis 3 ciselnych znaku. Nevite nekdo
>jak to mam udelat?
>
> Diky Reichmann
>OffTopic: 16-ti bit programy a Fat32xFAT16
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 19.9.1998 00:23:04
Ahoj,
16-bit programy budou chodit, ale:
- nebudou schopny pouzivat nektere fce pro praci se soubory
ktere neumeji spolupracovat s FAT 32
- budou zdrzovat system
Je treba zvazit zda je opravdu nutne psat v D1 pro W95 OSR 2 & NT.
S pozdravem
===============================
> Pavel Malinsky; spiderland(zv)usa.net <
===============================
-----P�vodn� zpr�va-----
Od: Prantl Zden�k <Zdenek.Prantl(zv)pvt(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. z��� 1998 20:57
P�edm�t: OffTopic: 16-ti bit programy a Fat32xFAT16
>Zdravim,
>a chci se zeptat:
>
>Je nejake omezeni pro spousteni 16-ti bit programu
>psanych v D1 na systemu s FAT32 (NT a WIN95 OSR2)?
>Pokud ano, tak jake a proc.
>
> Diky
> ZdeP
>
Home banking
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.9.1998 00:41:55
> Nemate nekdo zkusenosti s homebanking? Konkretne se mi jedna o IPB a
> programy spolecnosti ComTech. Ale zajimaly by me i zkusenosti s jinymi
> bankami.
Mam velke zkusenosti, ale nepatri to do konference, takze na muj
e-mail napis dotazy...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Chyby D4
[*] Jaroslav KULHEIM <kulheim(zv)fp-brno(tec)cz> - 19.9.1998 09:06:00
Pro vsechny, jez zajima %subj.
Nekde na inetu jsem nasel nasledujici text,
jelikoz D4 nevlastnim, tak jsem to neoveroval.
Asi pro nektere amatery a experty to nebude zadna
novinka.
Jaroslav KULHEIM
kulheim(zv)fp-brno(tec)cz
I suggest that you look at the following URL for a reasonably complete list
of D4 bugs reported. Your experience is not the first of that type.
Mr.Stowers keeps up to date on all Delphi releases and bugs. Look under
his misc. section for D4 Bugs and links to fixes/workarounds. Also watch
the list ddj-thread(zv)zdtips.com for comments on D4, it is a dog with fleas.
http://members.aye.net/~bstowers/delphi/index.html
Vlastnosti komponent za behu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.9.1998 13:55:03
Zbysek Hlinka wrote:
>
> Robert Walaski wrote:
>
> > Asi jsem se nevyjadril presne, tedy jeste jednou popisuji cely postup:
> >
> > Myslel jsem toto: ve formulari si zjistim vsechny komponenty, u kazde z
> > nich si overim jejich vlastnosti pomoci GetPropList, vyberu vlastnosti
> > ktere maji List^[j]^.PropType^.Kind=tkClass abych dostal mezi jinymi i
> > vlastnost Lines typu TStrings (napr pro TMemo ale taky pro TSuperMemo a
> > dalsi, u jinych komponent to muze byt treba i vlastnost Items). A ted
> > prichazi muj problem. U takto zjisteneho prvku bych potreboval zjistit
> > obsah Lines, Items (oba TStrings) tj. Count, Strings[0..Count-1], atd.
> >
> Tak to nevim, to je dost komplikovane. Clovek by si rekl, ze to
> bude stacit prekryt vhodnym typem, ale ono ne.
>
Ahoj,
mohlo by to jit treba takhle (jestli je to ono):
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ResultsMemo: TMemo;
ListBox1: TListBox;
Memo2: TMemo;
RichEdit1: TRichEdit;
ComboBox1: TComboBox;
procedure Button1Click(Sender: TObject);
private
function GetTStringsProp(AObject: TObject): TStrings;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
uses
TypInfo;
{ TForm1 }
function TForm1.GetTStringsProp(AObject: TObject): TStrings;
var
List: PPropList;
Count, I: Integer;
PropInfo: PPropInfo;
TypeData: TTypeData;
Method: TMethod;
begin
Result := nil;
Count := GetPropList(AObject.ClassInfo, [tkClass], nil);
GetMem(List, Count * Sizeof(Pointer));
GetPropList(AObject.ClassInfo, [tkClass], List);
for I := 0 to Count - 1 do
begin
PropInfo := List^[I];
TypeData := GetTypeData(PropInfo^.Proptype^)^;
if TypeData.ClassType.InheritsFrom(TStrings) then
begin
Method := GetMethodProp(AObject, PropInfo);
Result := TStrings(Method.Code);
Break;
end;
end;
FreeMem(List);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
TS: TStrings;
I: Integer;
begin
ResultsMemo.Lines.Clear;
for I := 0 to ComponentCount - 1 do
if Components[I] <> ResultsMemo then
begin
TS := GetTStringsProp(Components[I]);
if TS <> nil then with ResultsMemo.Lines do
begin
Add(Format('%s - Count: %d', [Components[I].Name, TS.Count]));
Add('Last line: ' + TS[TS.Count - 1]);
Add('');
end;
end;
end;
end.
--
Petr Vones, amatersky programator
problem s Alloc memory
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 19.9.1998 14:52:50
Jiri Szopa wrote:
>
> >zdravim,
> >
> >muze mi prosim nekdo poradit s nasledujicim problemem...
> >
> >mam definovano
> >
> >type
> >
> > ukazNaPole = ^GrafData;
> >
> > GrafData = record
> > teplota : integer;
> > vykon : integer;
> > cas : integer;
> > end;
> >
> >promenne -> ukaz : ukazNaPole
> > Gbod : GrafData
> >
> >a potom s vyhradim pamet pro data pomoci funkce allocMem
> >
> >ukaz:=allocMem(sizeOf(GrafData)*1000);
> >... cimz dostanu ukazate na zacatek bloku dat. Az potud je vse snad v
> >poradku, ale potom potrebuji do/z toho bloku zapisovat/cist a to uz mi
> >moc nejde (lepe receno vubec nejde)
> >
> co takhle:
>
> type
> GrafData = record
> teplota : integer;
> vykon : integer;
> cas : integer;
> end;
> PTR_GrafData = ^GrafData;
>
> nejaka funkce
> var
> ukaz : PTR_GrafData;
> begin
> New(ukaz);
> ukaz^.teplota := integerhodnota;
> ukaz^.vykon := integerhodnota;
> ukaz^.cas := integerhodnota;
> ....
> Dispose(ukaz);
> end;
Nebo pokud mas Delphi 4 tak muzes vyuzit dynamicka pole, pak to muze byt takhle:
type
TGrafData = record
Teplota : Integer;
Vykon : Integer;
Cas : Integer;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
GrafData: array of TGrafData;
begin
SetLength(GrafData, 500);
GrafData[0].Teplota := 20;
GrafData[0].Vykon := 2000;
end;
--
Petr Vones, amatersky programator
Pomoc s pouzitim QReportu
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.9.1998 15:05:53
> dokument ve Wordu, kde byly vzorecky a vubec cely text. Existuje nejaky
> jednoduchy zpusob, jak co nejlepe prevest tento dokument do QuickReportu?
> Samozrejme to pujde pomoci schranky. Je jeste jiny zpusob? (Dokument je
> relativne dlouhy cca 10 stran).
Kdepak, tak jednoduse to nejde.
> Ke kroku napsani vlastni aplikace jsme dospeli proto, ze budeme danou vec
> provozovat na 4 pocitacich a je pro nas neunosne kupovat 4x MS Word.
Ted jde o to, co bude jednodussi. Pokud to je smlouva, tak si troufam
rici, ze lepsi bude vyuzit Delphi + Word s tim, ze do Wordu se to
pomoci OLE nacpe a pak ve Wordu vytiskne. Tak to delam i ja, kdyz
tisknu smlouvy z programu. Zbytek tisknu pomoci QR (treba vyuctovani,
sestavy apod.), ale smlouvy pomoci Wordu.
> Dalsi problem se tyka toho, ze cast pobezi na Win95 a cast na WIN 3.11.
> Pujde to rozchodit pokud doinstalim do 3.11 knihovnu WIN 32? Nebo mam
> aplikaci prepsat i pro Delphi 1? Jake muzou nastat komplikace?
Pod Win31 ti program z D3 nepobezi, to musis udelat v D1
a tam neni QR, leda bys ho koupil za $99.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Nulova hodnota Date
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.9.1998 15:05:53
> dovolim si nesouhlasit......
To muzes.
> > 1. Je zde mnoho uzivatelu, kteri chteji vyuzivat standardni
> > komponenty, ktere maji v Delphi zdarma. Treba jim ani RX
> > nevyhovuje - napriklad ja RX Library vubec nepouzivam.
> [Martin Fron�k] RX tady pouziva skoro kazdy. Mas nejaky duvod k
> tomu, abys ji nepouzival? (krome toho, ze je zdarma, a tak na ni nic
> netrhnes?)
Fronku, zacnu od konce - prosim nech si sve invektivy, ja na
ne zvedavy nejsem. Nevim, jak ostatni. Jinak co se tyka
mych duvodu - at si kazdy pouziva, co je mu libo, ale ja
nepouzivam free veci tohoto druhu. Ne proto, ze nevim, co
s penezi, ale protoze, ze RX Library nema jistou budoucnost.
Je to neco, co je free, jsou k tomu dokonce i zdrojaky. Ale
nemam zadnou zaruku, ze zde vyvoj bude i za 2 roky a ze ja
nebudu muset predelavat programy. U komercnich produktu mam
tuto jistotu preci jen o neco vetsi. Je to ciste muj nazor,
nekdo a dokonce i ty muzes mit jiny nazor. Ze to tady pouziva
skoro kazdy, to neni zadny argument.
> > 2. Pokud nekdo pouzije flat tlacitka, TCoolBar apod., pak
> > stejne musi COMCTL32.DLL do sveho projektu zahrnout a nebo
> > doufat, ze na cilovem pocitaci jiz bude.
> [Martin Fron�k] Tak nebude pouzivat TCoolBar, ale TToolBar od
> J. Russela, ten je zdrama a nepotrebuje zadnou novou knihovnu, resi si
> to sam a myslim ze velmi dobre.
Opet stejny problem - co je od Russela zdarma nemusi byt zdarma
nebo vubec nemusi byt za 2 roky, zatimco TCoolBar bude v Delphi
jiz naporad, pokud je v komponente COMCTL32.DLL a je tedy
standardem.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================MIESANIE WAV
[*] Ing. J�n Kuch�r�����!j��G - 19.9.1998 16:17:34
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Dalsie otazky :
Ako natiahnut Wav do pamati, a ako to zmiesat ked potrebujem priklad, aby sa druhy Wav zacal prehravat, ked 75% z prveho Wav je uz prehrate.
-----P�vodn� zpr�va-----
Od: Martin Tichacek <martin t(zv)mrp(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 24. september 1998 19:23
P�edm�t: Re: MIESANIE WAV
Zdar
k bodu 2)
vlastne mas dve moznosti:
a) - nactes si Wavy jako data do pameti a kazdy vzorek sectes necim jako wav3:=(wav1+vaw2) shr 1 a pak to cele prehrajes.
pripadne nepouzijes prumer aritmeticky ale muzes to udelat v nejakem pomeru a nebo jakkliv jinak :-)
(toto pouziva "treba" winamp nebo mod4win - he akorat asi nebudou v delphi :-) - cimz nenarazim na srovnani delphi/C++ - C++neumim :-)))) )
b) - pouzijes DirectX (mam pocit ze na http://www.users.dircon.co.uk/~zeus/main.htm jsou uzitecne komp. i sprikladama) a muzes si toho mixovat kolik chces. Ma to nespornou vyhodu v tom, ze pokud mas zvukovou kartu, ktera neco takoveho podporuje // :-) // tak se Ti o to postara vetsinou HW a nezdrzis procesor. rikas mu jen ktery "sampl" ma kdy prehrat.
(toto pouzivaji hry. (pod w95 a spol))
pokud si otevres "pristup" na zvuk pres DirectX ty, nikdo ti do toho uz ani necekne. (leda speakrer :-). Pokud Te nekdo predbehne pri startu app., mas smulu v obou pripadech.
Mti.
.....kdybys nenapsal, ze beres vsechny , tak se ani neozvu :-)
Potrebujem nasledovne veci a neviem ako na to :
1) chcem zakazat generovanie akychkolvek zvukovych tonov pocas mojej aplikacie
2) mam dva WAV subory, v Delphi sa najskor prehraje jeden WAV a ked skonci
tak potom druhy WAV subor, ja by som ale potreboval aby sa prehravaly obidva
WAV subory sucasne a neviem ako
Beriem vsetky rady a napady
Vlastnosti komponent za behu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 19.9.1998 17:32:55
Vojtech Semecky wrote:
> > dalsi, u jinych komponent to muze byt treba i vlastnost Items). A ted
> > prichazi muj problem. U takto zjisteneho prvku bych potreboval zjistit
> > obsah Lines, Items (oba TStrings) tj. Count, Strings[0..Count-1], atd.
>
> if (NalezenyControl is TMemo) or (NalezenyControl is TSupermemoMemo)
> then ...
>
> No a kdyz uz mam tu komponentu overenou, tak k jejim
> propertam pristupuju takhle :
>
> TMemo(NalezenyControl).Items.Count
> TMemo(NalezenyControl).Items.Strings
> TSuperMemo(NalezenyControl).Items.Count
> TSuperMemo(NalezenyControl).Items.Strings
To je sice hezke, ale ma to jeden hacek: musis vyjmenovat
vsechny (vhodne) tridy, ktere znas. Takze pokud zaradis nejakou
tridu, napr. TNovaBlbost, ktera bude mit property
Kokotina:TStrings, jsi v haji, pokud takove reseni budes chtit delat
jako komponentu.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Komunikacia medzi dvoma aplikaciami...
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 19.9.1998 17:32:54
Michal Moscovic wrote:
> [lubos dusanic]
> >a co takto skusit komunikaciu cez tcpip - najlepsie s komponentami d
> f.piette
> >(ics). funguje to uplne spolahlivo ...
>
> Na jednom pocitaci??? Tak to si neviem predstavit... To asi nie...
> Ale aj tak vdaka za snahu.
Pokud to spojis napr. pres WinSock, muzes tak skutecne
komunikovat i na jednom pocitaci. A ma to vyhodu, ze kdyz se
nekdy rozmyslis a das to na vic pocitacu, bude to fungovat take.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Home banking
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 19.9.1998 17:34:12
Resp. abych to upresnil (pak uz to bude do konference preci jen asi
patrit ;-). Nedelal jste nekdo (napr. do ucetniho systemu) software pro
primou komunikaci s bankou? Vetsina bank uz to umi a nektere dokonce i
pres Internet, coz se mi jevi do budoucna nadejne. Nerad bych pouzival
mezi nasim programem jeste nejaky 'prestupny' software. Libilo by se mi
napr. odeslat vygenerovany prevodni prikaz zcela automaticky do banky
atd.
Diky
Martin
Petr Zahradnik wrote:
> Mam velke zkusenosti, ale nepatri to do konference, takze na muj
> e-mail napis dotazy...
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================Pouziti GetCharacterPlacement
[*] Jiri Fajtl <chip(zv)oku-pi(tec)cz> - 19.9.1998 17:47:11
Ahoj
Martin Fron�k wrote:
>
> Hi,
>
> tak to budes muset upravit tu definici. I mistr tesar se nekdy utne. Ja
> pouzivam Builder, takze me se tyhle problemy netykaji :-)
>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int max = 20;
unsigned int isok = 0;
GCP_RESULTSA gpc; pch = "ahoj jak se mas";
gpc.lStructSize = sizeof(gcp);
isok = GetCharacterPlacement(Canvas->Handle, pch, strlen(pch), max,
&gpc, GCP_MAXEXTENT);
}
Zkusil jsem to v Builderu, ale ten nerad porad nefunguje. Stale vraci
0. :-(
Take jsem zkousel upravit jednotku windows.pas v knihonvne delphi.
Dosahl jsem toho ze jiz akceptuje na pozicich nCount a nMaxExtent
integer, ale vysledek
se nezmenil.
Zkousel jsem i prednastavovat strukturu GCP_RESULTSA, ale bezvysledne.
Dochazim k zaveru ze tato funkce nefunguje.
V kazdem pripade dekuji za kazde info.
Jiri Fajtl
mailto: chip(zv)oku-pi(tec)cz
Home banking
[*] M-PRO s.r.o. <software(zv)mpro(tec)cz> - 19.9.1998 18:06:54
Kazda banka ma vlasni format prestupniho souboru, a kazda uplne jinej - nase
firma dela software pro MZDY - prevodni prikazi pro mzdu na ucet a odvody
pojisteni+dani jsou samozrejmosti, takze vim o cem mluvim. Navic si formaty
docela peclive strezej a poskytujou je vetsinou jenom urcite
firme(klientovi) - na druhou stranu napr. sporitelna je dava automaticky s
uzavrenim smlouvy o el. vymene dat
M.Macko, martinm(zv)m-pro(tec)cz, www.m-pro(tec)cz
-----P�vodn� zpr�va-----
Od: Martin Kubecka <martin.kubecka(zv)amenit(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 19. z��� 1998 17:42
P�edm�t: Re: Home banking
>Resp. abych to upresnil (pak uz to bude do konference preci jen asi
>patrit ;-). Nedelal jste nekdo (napr. do ucetniho systemu) software pro
>primou komunikaci s bankou? Vetsina bank uz to umi a nektere dokonce i
>pres Internet, coz se mi jevi do budoucna nadejne. Nerad bych pouzival
>mezi nasim programem jeste nejaky 'prestupny' software. Libilo by se mi
>napr. odeslat vygenerovany prevodni prikaz zcela automaticky do banky
>atd.
>
>Diky
>
>Martin
>
>Petr Zahradnik wrote:
>
>> Mam velke zkusenosti, ale nepatri to do konference, takze na muj
>> e-mail napis dotazy...
>
>--
>==============================================================
>= Ing. Martin Kubecka - Amenit s.r.o. =
>= Na Valech - budova Dytron, 741 01 Novy Jicin =
>= telefon: +420 603 265926 =
>= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
>==============================================================Mistrovstvi v Delphi 3
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 19.9.1998 19:02:30
Treba vas to bude zajimat.
Kniha Mistrovstvi v Delphi 3, ktera vyjde v Cpressu, udajne NENI
TOTOZNA s knihou Master...d3 o M. Cantu. Jde o jinou knihu.
Jde o sdeleni primo od Cpressu.
Radim Kunz
NeRe: Delphi 2 - spatne ikony u komponent dotaz II
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 19.9.1998 22:51:54
Ahoj,
problem ktery Ales popisuje (viz nize) mam take, ale presne obracene.
D2 je v poradku a u D3 mam na palete komponent bud barevne cmouhy
nebo uplne cerny pruh misto ikon.
Zkousel jsem ruzne nastavit pocet barev na obrazovce, rozliseni i
preinstalovani D3,
ale zatim bezvysldne.
Mam PII 266, AGP a g.kartu Viper 330.
Kdyby nekdo vedel co s tim ozvete se prosim.
Pavel Malinsky
spiderland(zv)usa.net
-----P�vodn� zpr�va-----
Od: RADIK(zv)p15.monet(tec)cz <RADIK(zv)p15.monet(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 17. z��� 1998 16:06
P�edm�t: Delphi 2 - spatne ikony u komponent
>Po nainstalovani Delphi 2 na novy pocitac (AGP, Intel740, AMD K6) se na
>palete komponent zobrazila misto ikon jen barevna cmouha (hezky se tomu
>rika rozsypany caj). Ostatni tlacitka jsou v poradku.
>
>Delphi 3 na stejnem pocitaci jsou v poradku.
>
>Nemate s tim nekdo zkudenosti?
>
>Ales
Home banking
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 19.9.1998 23:23:08
> > Mam velke zkusenosti, ale nepatri to do konference, takze na muj
> > e-mail napis dotazy...
>
> Resp. abych to upresnil (pak uz to bude do konference preci jen asi
> patrit ;-). Nedelal jste nekdo (napr. do ucetniho systemu) software pro
> primou komunikaci s bankou? Vetsina bank uz to umi a nektere dokonce i
> pres Internet, coz se mi jevi do budoucna nadejne. Nerad bych pouzival
> mezi nasim programem jeste nejaky 'prestupny' software. Libilo by se mi
> napr. odeslat vygenerovany prevodni prikaz zcela automaticky do banky
> atd.
Toto by do konference patrit mohlo, nicmene predtim ses ptal na neco
uplne jineho - na zkusenosti s ruznymi homebankingy. A o tech
zkusenostech prave nejsem ochoten diskutovat verejne, protoze to
nejsou informace pro kazdeho...
Co se tyka prime komunikace s bankou, to je problem, protoze vetsinou
maji banky ruzne formaty prenasenych dat. Dokonce, predstav si, jsou
banky (nebo jedna banka), ktere ani nepouzivaji RSA kodovani (nebo
aspon pred casem nepouzivaly - to je vrchol!). Nektere pouzivaji
trapne seskupeni mnoha programu (porizovac + PGP + BBSMAN), coz vypada
zcela neprofesionalne, nicmene zase by se ti tam lepe napojovalo
tvym programem, protoze je to otevrenejsi (ackoliv ja bych za to
vrazdil, kdyz s tim ma pracovat normalni clovek). Jine maji opravdu
kvalitni programy, ktere jsou jeden program delajici vsechno, coz
povazuji za spravne reseni. Snad do vsech programu se da vstoupit
externe z jineho programu, nejlepsi ovsem je pomoci importu dat,
at jiz se o to dalsi postara sam klienstsky program. Ma to vyhodu,
ze nemusis nic kodovat. Treba u toho sileneho systemu s PGP to neni
tak slozite, to bys take dokazal zavolat, ale u poradnych systemu,
kde se koduje neprve pomoci RSA, kdy ani tajny klic neznas, protoze
je schovany v databazi nebo na cipove karte, a pote jeste pomoci
algoritmu DES, uz to neni tak jednoduche.
Zapomen na to, ze udelas neco, co bude chodit s libovolnou bankou,
musis vedet konkretni udaje o konkretni bance, pak se muzez o neco
pokouset. Protoze ja mam kvalitni homebanking, ktery funguje trochu
lepe, delam to tak, ze z informacniho systemu se generuje exportni
soubor a ten se importuje do klinta homebankingu, v nem se teprve
podepisuje a odesila. Je to jednoduche, rychle a bezpecne.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Jak NA INSTALACI
[*] profia(zv)post(tec)cz - 20.9.1998 06:37:44
Vim ze bych to chtel mit asi moc jednoduchy ale neni nekde neco na INSTALACI programu ? Myslim instalace a nastaveni BDE, nastaveni alias a pote instalace produktu ? Jak to resite Vy ostatni?
amatersky programator KROKODYL
Vlastnosti komponent za behu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 20.9.1998 08:42:03
Petr Vones wrote:
> > Robert Walaski wrote:
> > > Myslel jsem toto: ve formulari si zjistim vsechny komponenty, u kazde
> > > z nich si overim jejich vlastnosti pomoci GetPropList, vyberu
[...]
> > > bych potreboval zjistit obsah Lines, Items (oba TStrings) tj. Count,
> > > Strings[0..Count-1], atd.
> > >
> > Tak to nevim, to je dost komplikovane. Clovek by si rekl, ze to
> > bude stacit prekryt vhodnym typem, ale ono ne.
> mohlo by to jit treba takhle (jestli je to ono):
> [...]
No jo, clovece, to je ono, co jsme oba hledali. Pouziju to ve svem
kazani - eh - skoleni. Diky.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Jak NA INSTALACI
[*] Mgr. Jan Sluka <snipe(zv)mail.cybernet(tec)cz> - 20.9.1998 11:08:17
Ahoj,
primo s Delphi je dodavan program Install Shield,
ktery umoznuje vytvaret instalacni programy.
Tento program umoznuje velmi jednoduchym zpusobem
zaclenit napr. zminene BDE. Bohuzel tento program
je s Delphi dodavan pouze v anglicke verzi, tj.
komunikace pri instalaci probiha v anglictine.
S pozdravem
Mgr. Jan Sluka
profia(zv)post(tec)cz p�e:
>
> Vim ze bych to chtel mit asi moc jednoduchy ale neni nekde neco na INSTALACI programu ? Myslim instalace a nastaveni BDE, nastaveni alias a pote instalace produktu ? Jak to resite Vy ostatni?
>
> amatersky programator KROKODYL
Delphi 2 - spatne ikony u komponent
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 20.9.1998 11:29:54
Tohle se mi pravidelne stava po instalaci RX Lib na D2. A to na dvou ruznych
pocitacich,
maji spolecnou jenom graf. kartu ATI, ale 2 ruzne typy.
Vetsinou potom vyhodim vsechny komponenty, ktere nepotrebuju (win31 atd) a
spravi se to.
Radim
>Po nainstalovani Delphi 2 na novy pocitac (AGP, Intel740, AMD K6) se na
>palete komponent zobrazila misto ikon jen barevna cmouha (hezky se tomu
>rika rozsypany caj). Ostatni tlacitka jsou v poradku.
>
>Delphi 3 na stejnem pocitaci jsou v poradku.
>
>Nemate s tim nekdo zkudenosti?
>
>Ales
Microsoft FAX
[*] Mgr. Jan Sluka <snipe(zv)mail.cybernet(tec)cz> - 20.9.1998 11:41:09
Vazeni,
obracim se na Vas s nasledujicim problemem.
V programu mam komponentu TMemo a chci jeji
obsah poslat za pomoci Microsoft Fax.
Zajimalo by mne nasledujici:
1. Microsoft Fax se ve Windows 95 tvari jako
tiskarna. Lze tedy psat na jeho canvas tak,
jako u skutecne tiskarny?
2. Jak urcit na ktere telefonni cislo se ma
fax poslat? Nejlepsi by bylo, aby se nezobrazovalo
zadne systemove okno.
Dekuji Vam vsem za spustu odpovedi a napadu.
S pozdravem
Mgr. Jan Sluka
Tkalcovska 856/B, 68801 Uh. Brod
tel: 0633/63 92 50
mobil: 0602/854 725
ReadFile & WriteFile
[*] Pavel Koutn� <koutny(zv)tkcmt.sk> - 20.9.1998 14:51:19
Mam nasledujuci problem, v starsich programoch (Delphi2) mi fungovalo toto:
var
InFile,OutFile : THandle;
NumBytes : integer;
OutBuf : PChar;
Min : longint;
begin
...
ReadFile(InFile,OutBuf^,Min,NumBytes,nil);
...
WriteFile(OutFile,OutBuf^,Min,NumBytes,nil);
...
end;
no v D4 mi to akosi nebeha. Ak ma niekto skusenosti, tak nech mi prosim pomoze, diki moc.
Pavel
Pouziti GetCharacterPlacement
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 20.9.1998 16:30:05
Hi,
a jaky OS pouzivas? Chvili jsem pouzival W98CZ skororelease, a tam jsem
narazil na nejake "nedodelky" treba GetUserName
Zkus to na jinem OS.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Jiri Fajtl [SMTP:chip(zv)oku-pi(tec)cz]
> Odesl�no: 19. z��� 1998 17:47
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Pouziti GetCharacterPlacement
>
> Ahoj
>
> Martin Fronik wrote:
> >
> > Hi,
> >
> > tak to budes muset upravit tu definici. I mistr tesar se nekdy utne.
> Ja
> > pouzivam Builder, takze me se tyhle problemy netykaji :-)
> >
>
> void __fastcall TForm1::Button1Click(TObject *Sender)
> {
> int max = 20;
> unsigned int isok = 0;
> GCP_RESULTSA gpc;
>
>
> pch = "ahoj jak se mas";
>
> gpc.lStructSize = sizeof(gcp);
> isok = GetCharacterPlacement(Canvas->Handle, pch, strlen(pch),
> max,
> &gpc, GCP_MAXEXTENT);
> }
>
> Zkusil jsem to v Builderu, ale ten nerad porad nefunguje. Stale vraci
> 0. :-(
> Take jsem zkousel upravit jednotku windows.pas v knihonvne delphi.
> Dosahl jsem toho ze jiz akceptuje na pozicich nCount a nMaxExtent
> integer, ale vysledek
> se nezmenil.
> Zkousel jsem i prednastavovat strukturu GCP_RESULTSA, ale bezvysledne.
> Dochazim k zaveru ze tato funkce nefunguje.
>
> V kazdem pripade dekuji za kazde info.
>
> Jiri Fajtl
> mailto: chip(zv)oku-pi(tec)cz
Microsoft FAX
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 20.9.1998 16:32:43
Hi,
s timhle nemam ani tu nejmensi skusenost, ale doporucil bych komponentu
TEmail2 (muzu poslat - napis), autor tam tvrdi, ze s ni jde i faxovat,
je tam k tomu i priklad. Hodne stesti......
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Mgr. Jan Sluka [SMTP:snipe(zv)mail.cybernet(tec)cz]
> Odesl�no: 20. z��� 1998 11:41
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Microsoft FAX
>
> Vazeni,
>
> obracim se na Vas s nasledujicim problemem.
>
> V programu mam komponentu TMemo a chci jeji
> obsah poslat za pomoci Microsoft Fax.
> Zajimalo by mne nasledujici:
>
> 1. Microsoft Fax se ve Windows 95 tvari jako
> tiskarna. Lze tedy psat na jeho canvas tak,
> jako u skutecne tiskarny?
>
> 2. Jak urcit na ktere telefonni cislo se ma
> fax poslat? Nejlepsi by bylo, aby se nezobrazovalo
> zadne systemove okno.
>
> Dekuji Vam vsem za spustu odpovedi a napadu.
>
> S pozdravem
>
> Mgr. Jan Sluka
> Tkalcovska 856/B, 68801 Uh. Brod
> tel: 0633/63 92 50
> mobil: 0602/854 725
Komunikacia medzi dvoma aplikaciami...
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 20.9.1998 16:35:10
Hi,
poradil bych asi to same, jenze to ma tu nevyhodu, ze musi byt
nainstalovany sitovy protokol. Co treba zkusit pipes?
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Zbysek Hlinka [SMTP:zhlinka(zv)login(tec)cz]
> Odesl�no: 19. z��� 1998 17:33
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Komunikacia medzi dvoma aplikaciami...
>
> Michal Moscovic wrote:
>
> > [lubos dusanic]
> > >a co takto skusit komunikaciu cez tcpip - najlepsie s komponentami
> d
> > f.piette
> > >(ics). funguje to uplne spolahlivo ...
> >
> > Na jednom pocitaci??? Tak to si neviem predstavit... To asi
> nie...
> > Ale aj tak vdaka za snahu.
>
> Pokud to spojis napr. pres WinSock, muzes tak skutecne
> komunikovat i na jednom pocitaci. A ma to vyhodu, ze kdyz se
> nekdy rozmyslis a das to na vic pocitacu, bude to fungovat take.
>
>
> S pozdravem
>
> Zbysek Hlinka
> E-mail: zhlinka(zv)login(tec)cz
> Tel.: 02/795 29 56; GSM: 0603 551 282
> Krystofova 1016, 149 00 Praha 4
> CZ
ReadFile & WriteFile
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.9.1998 17:20:46
Pavel Koutn� wrote:
>
> Mam nasledujuci problem, v starsich programoch (Delphi2) mi fungovalo toto:
>
> var
> InFile,OutFile : THandle;
> NumBytes : integer;
> OutBuf : PChar;
> Min : longint;
> begin
> ...
> ReadFile(InFile,OutBuf^,Min,NumBytes,nil);
> ...
> WriteFile(OutFile,OutBuf^,Min,NumBytes,nil);
> ...
> end;
>
> no v D4 mi to akosi nebeha. Ak ma niekto skusenosti, tak nech mi prosim pomoze, diki moc.
Ahoj,
patrne ti to hlasi chybu pri prekladu, v D4 doslo ke zmenam v typech
promennych protoze prekladac konecne podporuje 32bitovy unsigned typ.
V tom prikladu zmen Min a NumBytes na DWORD.
--
Petr Vones, amatersky programator
Nefunguje mi DbiAnsiToNative
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.9.1998 17:29:19
Marek Erban wrote:
>
> Chci pouzit BDE funkci DbiAnsiToNative na prevod znaku, ale vystup je
> stejny jako vstup.
> Muze mi nekdo rici proc?
> (result je 'Succesfull completion')
>
> P.S.: Nemate nekdo funkci na prevod z ANSI(Win1250) do ISO Latin 2 CZ
> (il2czw)
Ahoj,
priklad mas treba v BDE API helpu k teto funkci
--
Petr Vones, amatersky programator
Interbase & UDF
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 20.9.1998 17:41:02
Hi All,
mam takovy dotaz na ctene kolegy,
je, ci neni mozne z UDF v nejake DLL zpetne pouzivat napojeni na
Interbase?
Asi takto: zavolam UDF, predam parametry, UDF neco vypocita, a ulozala
by vysledky do nejake tabulky v IB.
Jde to? Nebo to jde nejak jinak?
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Michal Moscovic [SMTP:moscovic(zv)fred.utc.sk]
> Odesl�no: 18. z��� 1998 20:32
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Komunikacia medzi dvoma aplikaciami...
>
> Subject: Komunikacia medzi dvoma aplikaciami...
>
>
> >[Petr Brant]
> >Nemel by to byt problem, pouzij handle okna a muzes mezi nimi posilat
> >messages. Delal jsem takhle komunikaci mezi DLL v Cecku a formem v
> Delphi a
> >chodilo to bezvadne.
>
> Zdar... vdaka za odpoved. Predpokladam, ze toto je to co
> potrebujem,
> ale nakolko som pod windowsami zaciatocnik tak mi veci ako "handle
> okna" a
> podobne este moc nehovoria (aj ked predstavu mam, no chybaju
> skusenosti).
> Chcelo by to asi trochu lopatistickejsie (prosiiiiiim).
>
> >[Martin Fronek]
> >skus se rozepsat o tom, jake mas predstavy a co by si mely ty
> aplikace
> >sdelovat. Moznosti je spoustu.
>
> Pre upresnenie problemu:
>
> Z aplikacie "A" pustam za pomoci CreateProcess aplikaciu "B",
> ktorej
> potrebujem na zaciatku poslat nejake info o nastaveniach, ktore
> previedol
> uzivatel v aplikacii "A". Toto som vyriesil cez parameter CommandLine
> (alebo
> nieco podobne) - aplikacia "B" si ich precita cez ParamStr(...).
> Problem
> nastava, ked chcem pocas behu aplikacie "B" pripadne pri jej ukonceni
> odovzdat inforamcie z aplikacie "B" do aplikacie "A". Jedna sa o rozne
> informacie napr. v tvare STRING (su aj ine ale dali by sa
> prekonvertovat na
> string a potom spet). Aplikacia "A" je pocas behu aplikacie "B"
> necinna
> (caka na jej ukoncenie) takze moze vklude cakat na informacie od
> aplikacie
> "B".
>
> Nuz zrozumitelnejsie to uz asi v mail-i nevysvetlim (dufam ze
> to
> bude stacit).
>
> [lubos dusanic]
> >a co takto skusit komunikaciu cez tcpip - najlepsie s komponentami d
> f.piette
> >(ics). funguje to uplne spolahlivo ...
>
> Na jednom pocitaci??? Tak to si neviem predstavit... To asi
> nie...
> Ale aj tak vdaka za snahu.
>
> Vas verny Salmon Salmonovic
Interbase & UDF
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 20.9.1998 17:42:30
Hi,
omluva za predesly mail, ten spodek jsem mel smazat. Stalo se, uz to je
v konferenci......
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
Komunikacia medzi dvoma aplikaciami...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.9.1998 17:51:38
Martin Fron�k wrote:
>
> Hi,
>
> poradil bych asi to same, jenze to ma tu nevyhodu, ze musi byt
> nainstalovany sitovy protokol. Co treba zkusit pipes?
Mit nainstalovany sitovy protokol snad neni takovy problem, hlavne dnes v dobe
Internetu (teda i kdyz u nas si na ten boom asi budeme muset minimalne do
1.1.2001 jeste pockat :-(
Pipes vypadaji lakave, ale nevyhoda je v tom ze je nemuzes vytvaret na Win95.
Dalsi moznost je bud zasilani uzivatelskych zprav, vyuziti zpravy WM_COPYDATA,
pak DDE (i kdyz dnes uz snad radeji ani ne) a posledni moznost me napada OLE
Automation, ale o tom toho prilis nevim. Nicmene asi jako nejlepsi zpusob
(perspektivni) me prijde pouziti TCP/IP.
--
Petr Vones, amatersky programator
tabulky excell
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.9.1998 17:55:42
> Richard Willmann wrote:
>
> hELLO,
>
> riesil z vas niekto pristup k tabulkam excelu? Cez OLE, dde alebo ,,,
>
> dakujem
Tady je o tom clanek:
http://www.inprise.com/delphi/papers/microexcel/
--
Petr Vones, amatersky programator
Vlastnosti komponent za behu
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.9.1998 18:01:39
Zbysek Hlinka wrote:
>
> No jo, clovece, to je ono, co jsme oba hledali. Pouziju to ve svem
> kazani - eh - skoleni. Diky.
A podivejme, ze by prisny pan ucitel ? :-)
Jinak ohledne diskuze o naplni skoleni, myslim ze by byly zajimave veci okolo
OLE, ActiveX, COM, DCOM ....
--
Petr Vones, amatersky programator
MIESANIE WAV
[*] Ing. J�n Kuch�r�����!j��G - 20.9.1998 18:01:17
Z toho tvojho vysvetlenia som vela nepochytil, tak ta chcem poziadat ci by
si nemohol daco napisat presne na mixovanie dvoch WAV suborou s t�m ze si to
percento prelinania (%75) nejak budem volit.
Dik
-----P�vodn� zpr�va-----
Od: Martin Tichacek <martin_t(zv)mrp(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 25. september 1998 17:50
P�edm�t: Re: MIESANIE WAV
>Hm. v DIRECTX to je uz resene, (viz odkaz minule)
>pokud pouzivas "bezne" api fce. windows tak :
>
> pokud vis, ze se budou vzdy prehravat max. 2 wavy, tak mu proste mixuj
celou
>druhou hodnotu "0" a az pozdeji do toho pridas (misto te nuly) data z
druheho
>wavu - hm a casem zase umlcis en prvni.
>pokud totiz napchas prvnich 75% jen tak, budou hlasitejsi nez ta mixovana
>cast. - he a naopak - pokud budes mixovat zvukova data jen tim ze je sectes
>(nezprumerujes) muzes "obcas" dojit k tomu, ze ti pretece 16tibit .
>
>Popis hlavicky wavu momentalne nemam po noze. - hodne jsem ziskal jen tim,
ze
>jsem si zakladal prazdne, pripadne kratke wavy a porovnaval zacatky. Mam
pocit
>ze hlavicka mela neco malo pres 40B (44?)
>
>Nebo na netu urcite lezi nejaky prehravac mp3 nebo mod,xm,s3m a spol. se
>zdrojackem - tam musi delat temer to same - teda ne cteni wav , ale
mixovani
>dat. (akorat to bude v 80% v Ccku)
>
>mp3 playery "jen" dekomprimuje data a po blokoch je tlaci api fcemi do
windows
>mod si vlastne dela to co ty, ale s podstatne vetsi spoustou kanalu (mod -
4,
>xm pres 16)
>
>jdu hledat - pokud nic nenajdu zustanu radeji mlcet.
>
> Mti.
>
>Zel jsem to zkousel jiz drive a jaksi nemuzu najit kus kloudneho zdrojaku.
>
> Dalsie otazky :
> Ako natiahnut Wav do pamati, a ako to zmiesat ked potrebujem priklad,
aby sa
>druhy Wav zacal prehravat, ked 75% z prveho Wav je uz prehrate.
>
>MIESANIE WAV
[*] Ing. J�n Kuch�r�����!j��G - 20.9.1998 18:02:38
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
ako si mam otvorit pristup na zvuk cez DirectX
-----P�vodn� zpr�va-----
Od: Martin Tichacek <martin t(zv)mrp(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 24. september 1998 19:23
P�edm�t: Re: MIESANIE WAV
Zdar
k bodu 2)
vlastne mas dve moznosti:
a) - nactes si Wavy jako data do pameti a kazdy vzorek sectes necim jako wav3:=(wav1+vaw2) shr 1 a pak to cele prehrajes.
pripadne nepouzijes prumer aritmeticky ale muzes to udelat v nejakem pomeru a nebo jakkliv jinak :-)
(toto pouziva "treba" winamp nebo mod4win - he akorat asi nebudou v delphi :-) - cimz nenarazim na srovnani delphi/C++ - C++neumim :-)))) )
b) - pouzijes DirectX (mam pocit ze na http://www.users.dircon.co.uk/~zeus/main.htm jsou uzitecne komp. i sprikladama) a muzes si toho mixovat kolik chces. Ma to nespornou vyhodu v tom, ze pokud mas zvukovou kartu, ktera neco takoveho podporuje // :-) // tak se Ti o to postara vetsinou HW a nezdrzis procesor. rikas mu jen ktery "sampl" ma kdy prehrat.
(toto pouzivaji hry. (pod w95 a spol))
pokud si otevres "pristup" na zvuk pres DirectX ty, nikdo ti do toho uz ani necekne. (leda speakrer :-). Pokud Te nekdo predbehne pri startu app., mas smulu v obou pripadech.
Mti.
.....kdybys nenapsal, ze beres vsechny , tak se ani neozvu :-)
Potrebujem nasledovne veci a neviem ako na to :
1) chcem zakazat generovanie akychkolvek zvukovych tonov pocas mojej aplikacie
2) mam dva WAV subory, v Delphi sa najskor prehraje jeden WAV a ked skonci
tak potom druhy WAV subor, ja by som ale potreboval aby sa prehravaly obidva
WAV subory sucasne a neviem ako
Beriem vsetky rady a napady
Jak ulozit asm vypis z CPU okna v D4 ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 20.9.1998 18:07:03
Ahoj,
nevite nekdo jestli lze nejakym zpusobem ulozit do textoveho souboru nebo do
schranky prelozeny kod z CPU okna v rozmezi zadanych adres ci radku zdrojoveho
kodu ? Popripade jestli existuje rozhrani Delphi IDE k CPU oknu.
Dekuji.
--
Petr Vones, amatersky programator
Komponenta TMemo nefunguje ?
[*] Petr Medek <xmedekp(zv)sun.felk.cvut(tec)cz> - 20.9.1998 21:23:30
Zdravim vsechny
Pri psani pomucky pro nahrady textu ve zdrojovem kodu jsem narazil na
problem, ktery se mi podarilo vytahnout do jednoducheho prikladu.
Ve formulari, kde jsou jen dva buttony a memo, prvnim z buttonu nahraji
do mema soubor (zdrojak). Pak druhym buttonem chci ocislovat radky.
Pro kratke soubory vse funguje, jak ma.
Nahraji-li zdrojak dlouhy zhruba 40kb (nevim presne, kde je hranice),
cislovani funguje tak do 6teho radku.
Potom se prirazeni
Memo1.Lines[i] := Radka;
proste neprovede. V Memo.Lines[i] zustane puvodni text a v Radka jiny.
Dokonce lze chybu odchytit podminkou hned za prirazenim
if Memo1.Lines[i] <> Radka then
ShowMessage('Co se to deje ?');
Puvodne jsem nahradu resil pres Memo1.SelText s uplne stejnym vysledkem.
Jiz jste na to nekdo narazil ?
Uvadim zdrojak unitu, protoze je extreme jednoduchy. Muzete si to
zkusit, treba mam jen vyjimecny pocitac.
Jsem vdecny za kazdou poznamku, nevim co s tim.
Petr Medek
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
OpenDialog1: TOpenDialog;
Memo1: TMemo;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
procedure TForm1.Button2Click(Sender: TObject);
var i : LongInt;
Radka : string;
begin
for i := 0 to Memo1.Lines.Count - 1 do
begin
Radka := Memo1.Lines[i];
Radka := IntToStr(i) + ' - ' + Memo1.Lines[i];
Memo1.Lines[i] := Radka; //nefunkcni ???
end;
end;
end.tabulky excell
[*] Petr Ma��k - 20.9.1998 22:04:53
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�. -----P�vodn� zpr�va-----
Od: Richard Willmann <sales(zv)nocomment.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 17. z��� 1998 10:57
P�edm�t: tabulky excell
hELLO,
riesil z vas niekto pristup k tabulkam excelu? Cez OLE, dde alebo ,,,
dakujem
richard willmann
Ahoj,
pou��v�m komponentu Aexcel od Stefana hoffmeistera, je opravdu dobr�.
Pou��v� DDE. Mohu zaslat nebo je ke sta�en� na
www.programmers/net/mirrors/DSP pod jm�nem AEXCEL.ZIP.
Zdrav� Petr Ma��k, rtepema(zv)mbox.vol(tec)cz
Komponenta TMemo nefunguje ?
[*] Vojtech Semecky <v-soft(zv)mbox.lantanet(tec)cz> - 20.9.1998 22:36:49
> Zdravim vsechny
> Pri psani pomucky pro nahrady textu ve zdrojovem kodu jsem narazil na
> problem, ktery se mi podarilo vytahnout do jednoducheho prikladu.
>
> Ve formulari, kde jsou jen dva buttony a memo, prvnim z buttonu nahraji
> do mema soubor (zdrojak). Pak druhym buttonem chci ocislovat radky.
> Pro kratke soubory vse funguje, jak ma.
> Nahraji-li zdrojak dlouhy zhruba 40kb (nevim presne, kde je hranice),
> cislovani funguje tak do 6teho radku.
> ...
To je tim, ze TMemo ma omezenou delku na 32 kB. Je to hrozne,
ale je to tak. A Borland za to nemuze, protoze je to tak
implementovano ve Win95. Ve WinNT by ten samy program fungoval
s neomezenou delkou.
Nejjednodussi reseni je pouzit TRichEdit. Ten ma horni hranici
nastavitelnou az na 2 GB a nejspis nebudes muset zmenit ani
radku kodu.
Ale pro profesionalni pouziti bych doporucoval nejaky lepsi
textovy pharser. Je jich na trhu docela dost. Par jich je i
free, ale ty lepsi pochopitelne ne.
S pozdravem
Vojtech Semecky
Komponenta TMemo nefunguje ?
[*] Petr Medek <xmedekp(zv)sun.felk.cvut(tec)cz> - 20.9.1998 23:08:57
Bylo to tim, jiz funkcni.
Dekuji
Petr Medek
Vojtech Semecky wrote:
>
> > Zdravim vsechny
> > Pri psani pomucky pro nahrady textu ve zdrojovem kodu jsem narazil na
> > problem, ktery se mi podarilo vytahnout do jednoducheho prikladu.
> >
> > Ve formulari, kde jsou jen dva buttony a memo, prvnim z buttonu nahraji
> > do mema soubor (zdrojak). Pak druhym buttonem chci ocislovat radky.
> > Pro kratke soubory vse funguje, jak ma.
> > Nahraji-li zdrojak dlouhy zhruba 40kb (nevim presne, kde je hranice),
> > cislovani funguje tak do 6teho radku.
> > ...
>
> To je tim, ze TMemo ma omezenou delku na 32 kB. Je to hrozne,
> ale je to tak. A Borland za to nemuze, protoze je to tak
> implementovano ve Win95. Ve WinNT by ten samy program fungoval
> s neomezenou delkou.
>
> Nejjednodussi reseni je pouzit TRichEdit. Ten ma horni hranici
> nastavitelnou az na 2 GB a nejspis nebudes muset zmenit ani
> radku kodu.
>
> Ale pro profesionalni pouziti bych doporucoval nejaky lepsi
> textovy pharser. Je jich na trhu docela dost. Par jich je i
> free, ale ty lepsi pochopitelne ne.
>
> S pozdravem
> Vojtech Semecky
Vlastnosti komponent za behu
[*] Robert Walaski <robert(zv)silesnet(tec)cz> - 20.9.1998 23:34:25
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 19. z��� 1998 14:16
P�edm�t: Re: Vlastnosti komponent za behu
>Zbysek Hlinka wrote:
>>
>> Robert Walaski wrote:
>>
>> > Asi jsem se nevyjadril presne, tedy jeste jednou popisuji cely postup:
[...]
>> Tak to nevim, to je dost komplikovane. Clovek by si rekl, ze to
>> bude stacit prekryt vhodnym typem, ale ono ne.
>
>mohlo by to jit treba takhle (jestli je to ono):
Ahoj,
Tak to opravdu bylo presne to, co jsem hledal. Jeste jednou MOCKRAT DIK za
pomoc.
S pozdravem
Robert Walaski
__________________________
e-mail: robert(zv)silesnet(tec)cz
Runtime Object Inspector
[*] Ing. Miroslav Ond��ek - 21.9.1998 06:21:08
Toho freeware Object inspektora pro Runtime jsem dal do ftp archivu do
adresare D3/Other. Timto uz nebudu reagovat na soukrome prosby o zaslani (uz
je jich moc :))
Zdravim vsechny kolegy
!!! M��ete n�s nav�t�vit na INVEXU od 5.10.1998 !!!
!!! Hala Z 1, st�nek 170
S pozdravem
Ing. Miroslav Ond��ek
Bonnel Technologie, s.r.o.
E-mail:
bonnel-ondrisek(zv)telecom(tec)cz - v�voj software
internet: http://www.bonnel-tech.com
PGP podporov�no - ve�ejn� kl�� na na�� homepage
pohyblive komponenty
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 21.9.1998 06:30:48
Ahoj,
potrebujes-li zachazet s viditelnymi komponentami podobne jako v
object inspectoru (mysi je presouvat, menit velikost...), pak existuje
komponent THandle, ktery takto funguje.
Jaro B.> -----P�vodn� zpr�va-----
> Od: heinisch(zv)post(tec)cz [SMTP:heinisch(zv)post(tec)cz]
> Odesl�no: 17. z��� 1998 20:56
> Komu: Konference Delphi
> P�edm�t: pohyblive komponenty
>
>
> Ahoj All
>
>
>
> Potreboval bych poradit ja za behu zachazet s editacnimi komponentami jako
> v
> Design rezimu. presun po formulari zmena velikosti
>
>
>
>
> Very Very Diky
> HEiju
Ceske resource pro Orpheus V2.17
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 21.9.1998 06:44:15
Dobre rano,
Touto cestou se na Vas vsechny obracim, zda nevite existuji-li pro
Orpheus V2.17 ceske resource (nebo RC soubory);velmi nutne bych je
potreboval. Dekuji za jakoukoliv odpoved.
Jaroslav Benes micrel(zv)micrel(tec)cz
Pouziti GetCharacterPlacement
[*] Jiri Fajtl <chip(zv)oku-pi(tec)cz> - 21.9.1998 07:12:42
Krasny den preji vsem.
Pouzivam winNT v praci a Win98 doma. Funkce GetCharacterPlacement
nefunguje ani v jednom s tehto OS. Nebo delam nekde chybu :-(
Jiri Fajtl
mailto: chip(zv)oku-pi(tec)cz
Martin Fron�k wrote:
>
> Hi,
>
> a jaky OS pouzivas? Chvili jsem pouzival W98CZ skororelease, a tam jsem
> narazil na nejake "nedodelky" treba GetUserName
> Zkus to na jinem OS.
>
> Martin Fron�k
> ZZN Slan� a.s.
> Pra�sk� 1579, 274 49, Slan�
> tel. +420-314-522986
> e-mail: fronek(zv)zznslany(tec)cz
>
> > -----P�vodn� zpr�va-----
> > Od: Jiri Fajtl [SMTP:chip(zv)oku-pi(tec)cz]
> > Odesl�no: 19. z��� 1998 17:47
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Re: Pouziti GetCharacterPlacement
> >
> > Ahoj
> >
> > Martin Fronik wrote:
> > >
> > > Hi,
> > >
> > > tak to budes muset upravit tu definici. I mistr tesar se nekdy utne.
> > Ja
> > > pouzivam Builder, takze me se tyhle problemy netykaji :-)
> > >
> >
> > void __fastcall TForm1::Button1Click(TObject *Sender)
> > {
> > int max = 20;
> > unsigned int isok = 0;
> > GCP_RESULTSA gpc;
> >
> >
> > pch = "ahoj jak se mas";
> >
> > gpc.lStructSize = sizeof(gcp);
> > isok = GetCharacterPlacement(Canvas->Handle, pch, strlen(pch),
> > max,
> > &gpc, GCP_MAXEXTENT);
> > }
> >
> > Zkusil jsem to v Builderu, ale ten nerad porad nefunguje. Stale vraci
> > 0. :-(
> > Take jsem zkousel upravit jednotku windows.pas v knihonvne delphi.
> > Dosahl jsem toho ze jiz akceptuje na pozicich nCount a nMaxExtent
> > integer, ale vysledek
> > se nezmenil.
> > Zkousel jsem i prednastavovat strukturu GCP_RESULTSA, ale bezvysledne.
> > Dochazim k zaveru ze tato funkce nefunguje.
> >
> > V kazdem pripade dekuji za kazde info.
> >
> > Jiri Fajtl
> > mailto: chip(zv)oku-pi(tec)cz
ReadFile & WriteFile
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.9.1998 07:37:27
Pavel Koutn wrote:
> Mam nasledujuci problem, v starsich programoch (Delphi2) mi fungovalo
> toto:
>
> var
> InFile,OutFile : THandle;
> NumBytes : integer;
> OutBuf : PChar;
> Min : longint;
> begin
> ...
> ReadFile(InFile,OutBuf^,Min,NumBytes,nil);
> ...
> WriteFile(OutFile,OutBuf^,Min,NumBytes,nil);
Zkus pretypovat NumBytes a Min na DWORD.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Asynchr�nna komunik�cia vo Win32
[*] Branislav Danko <danko(zv)ns.basl.sk> - 21.9.1998 07:58:55
V Delphi 1 som na asynchronnu komunikaciu cez RS232 pouzil freewarovu komponentu TComm. Pred zapisom retazca na port som pouzil EscapeCommFunction (port, CLRDTR). Po zapise posledneho znaku do vystupneho buffra (OnTxEmpty) som nastavil DTR cez SETDTR.Po prijati retazca zariadenie vratilo odpoved a ja som ju precital v udalosti OnReceiveData.
Problem je v tom, ze v Win32 doslo k radikalnej zmene pri I/O komunikaciach. Samozrejme ani komponenta TComm nefunguje. Nasiel som na Internete niekolko dalsich freewareovych. No ako z uvodu vyplyva nutne potrebujem udalosti OnTxEmpty a
OnReceiveData a ziadna z nich mi ich neposkytovala (TCommDriver32 ...vedel som poslat poziadavku ale nevedel som prijat odpoved, lebo som nevedel, kedy je posledny znak zapisany a teda som nevedel nastavit SETDTR cez TCommPort.ToggleDTR).
Jedina komponenta, ktora by vcelku vyhovovala je Async32, no tu neviem nadviazat komunikaciu ani so zariadenim (z mojej strany). Urcite niekde robim chybu ale sam si s nou neviem poradit, takze ak by niekto mohol pomoct navodom (najlepsie fragmentom kodu) alebo informaciou o nejakej freewarovej komponente vopred mu dakujem.
P.S.: Zariadenie, s ktorym komunikujem je snimac kariet od firmy Linear Industies. Z RS232 sa signal konvertuje RS-485 konvertorom a posiela zariadeniu. Po poslani spravy zariadeniu, zariadenie na nu zareaguje a potvrdi prijatie specialnym
retazcom ktory mi posle naspat (dopyt-odpoved).
S pozdravom Brano.Asynchr�nna komunik�cia vo Win32
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 21.9.1998 09:52:24
Hi All,
uz jsem se jednou ptal, ale je tady o tomto nejak ticho........
mam takovy dotaz na ctene kolegy,
je, ci neni mozne z UDF v nejake DLL zpetne pouzivat napojeni na
Interbase?
Asi takto: zavolam UDF, predam parametry, UDF neco vypocita, a ulozala
by vysledky do nejake tabulky v IB.
Jde to? Nebo to jde nejak jinak?
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
QReport + soucty
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 21.9.1998 10:01:21
Zdravim,
mam setrideny soubor, ktery se snazim tisknout. Potrebuji udelat soucty
nekterych polozek vzdy po zmene hodnoty (napr.soucet za Query1.Kategorie).
kat. nazev hodnota
1 svvasfv 12
1 sdfvsb 5
pocet 2 soucet 17
2 dnynd 14
2 ndfgn 8
2 dfgym 21
pocet 3 soucet 43
...
Zkousel jsem udelat SummaryBand a v nem SUM(Query1.Hodnota), ale pada to s
chybou 202.
Soucet polozek Count, mne jde, ale jen cele databaze, neumim to udelat po
zmenu polozky, vytisknout, znulovat, .....
Diky za kazdou radu.
Kuba
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
---------------------------------
Asynchr�nna komunik�cia vo Win32
[*] Kosta <kosta(zv)iol(tec)cz> - 21.9.1998 10:34:41
-----P�vodn� zpr�va-----
Od: Branislav Danko <danko(zv)ns.basl.sk>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 21. z��� 1998 9:32
P�edm�t: Asynchr�nna komunik�cia vo Win32
> V Delphi 1 som na asynchronnu komunikaciu cez RS232 pouzil freewarovu
komponentu TComm. Pred zapisom retazca na port som pouzil EscapeCommFunction
(port, CLRDTR). Po zapise posledneho znaku do vystupneho buffra (OnTxEmpty)
som nastavil DTR cez SETDTR.Po prijati retazca zariadenie vratilo odpoved a
ja som ju precital v udalosti OnReceiveData.
> Problem je v tom, ze v Win32 doslo k radikalnej zmene pri I/O
komunikaciach. Samozrejme ani komponenta TComm nefunguje. Nasiel som na
Internete niekolko dalsich freewareovych. No ako z uvodu vyplyva nutne
potrebujem udalosti OnTxEmpty a
>OnReceiveData a ziadna z nich mi ich neposkytovala (TCommDriver32 ...vedel
som poslat poziadavku ale nevedel som prijat odpoved, lebo som nevedel, kedy
je posledny znak zapisany a teda som nevedel nastavit SETDTR cez
TCommPort.ToggleDTR).
> Jedina komponenta, ktora by vcelku vyhovovala je Async32, no tu neviem
nadviazat komunikaciu ani so zariadenim (z mojej strany). Urcite niekde
robim chybu ale sam si s nou neviem poradit, takze ak by niekto mohol pomoct
navodom (najlepsie fragmentom kodu) alebo informaciou o nejakej freewarovej
komponente vopred mu dakujem.
>
>P.S.: Zariadenie, s ktorym komunikujem je snimac kariet od firmy Linear
Industies. Z RS232 sa signal konvertuje RS-485 konvertorom a posiela
zariadeniu. Po poslani spravy zariadeniu, zariadenie na nu zareaguje a
potvrdi prijatie specialnym
> retazcom ktory mi posle naspat (dopyt-odpoved).
>
> S pozdravom Brano.
Skus prostudovat nasledujici unitu, k spokojenosti pouzivam jiz delsi dobu.
Vlastni protokol neni problem implementovat, k prepinani RS485 pouzivam RTS
{***************************************************************************
****
*
*
* ComPort COMPONENT v1.01
*
*
*
****************************************************************************
***}
unit ComPort;
interface
uses Windows, Messages, SysUtils, Classes, Forms, ExtCtrls, dialogs;
const
SDX = $A5; // Start Delimiter
SDS = $A6; // Short Start Delimiter
ACK = $55; // kladne povrzeni
NACK = $AA; // zaporne potvrzeni
EDX = $5A; // End Delimiter
HWErr = CE_FRAME or CE_OVERRUN or CE_RXPARITY;
type
TBuffer = array[0..$FF] of byte;
TCEvent = procedure(Sender: TObject; Status: dword) of object;
TCEventState = (evBreak, evCTS, evDSR, evError, evRing,
evRlsd, evRxChar, evRxFlag, evTxEmpty);
TCEventType = set of TCEventState;
//--------------------------------------------------------------------------
----
// TCommThread
//--------------------------------------------------------------------------
----
TCommThread = class(TThread)
private
FHandle : THandle;
FStatus : dword;
FOnSignal : TCEvent;
hCloseEvent: THandle;
protected
procedure Execute; override;
procedure DoOnSignal;
public
constructor Create(Handle: THandle; Events: TCEventType);
destructor Destroy; override;
procedure ReleaseThread;
property OnSignal: TCEvent read FOnSignal
write FOnSignal;
end;
TBaudRate = (cbr110, cbr300, cbr600, cbr1200, cbr2400, cbr4800,
cbr9600, cbr14400, cbr19200, cbr38400, cbr56000,
cbr57600, cbr115200, cbr128000, cbr256000);
TParity = (paNone, paOdd, paEven, paMark, paSpace);
TStopbits = (sb10, sb15, sb20);
TDatabits = (da4, da5, da6, da7, da8);
TFlowControl = (fcNone, fcCTS, fcDTR, fcSoftware, fcDefault);
TCommOption = (osParityCheck, osDsrSensitivity, osIgnoreXOff,
osErrorChar, osNullStrip);
TCommOptions = set of TCommOption;
TCRxCharEvent = procedure(Sender: TObject; Count : Integer) of object;
TCOpenEvent = procedure(Sender: TObject;
ProviderSubType, Error : Integer) of object;
TCErrorEvent = procedure(Sender: TObject; Errors : Integer) of object;
TCRxMsgEvent = procedure(Sender: TObject; MsgType,
Count : Integer;
MsgData: TBuffer) of object;
//--------------------------------------------------------------------------
----
// TCommPort
//--------------------------------------------------------------------------
----
TCommPort = class(TComponent)
private
FHandle : THandle; //
FComPortAddr : Word; // bazova adresa pouziteho CommPurtu
(HW)
FRS485Mode : Boolean; // povoleni RS485 modu
FRxTimeOut : integer; // TimeOut po odeslati zpravy
FWriteEvent : THandle; //
FCT : TComStat; //
FDCB : TDCB; //
FCommConfig : TCommConfig; //
FTCommThread : TCommThread; //
FErrors : dword; //
FIOpending : Boolean; //
FWriteOS : TOverlapped; //
FDeviceName : String; //
FBaudRate : TBaudRate; //
FParity : TParity; //
FStopbits : TStopbits; //
FDatabits : TDatabits; //
FReadBufferSize : Integer; //
FWriteBufferSize: Integer; //
FFlowControl : TFlowControl; //
FXonChar : char; //
FXoffChar : char; //
FOptions : TCommOptions; //
LenOfData : byte; // pocet prijimanych datovych znaku
ModeRx : (sd, // start ----|
fcb, // typ zpravy |
le, // pocet dat | stavy
dt1, // data 1 pri SDS | dekoderu
dt2, // data 2 pri SDS | zpravy
dta, // data n pri SDX | pri
csu, // kontrolni soucet | prijmu
ed, // konec |
err, // CHYBA |
all); // VSECHNO ----|
Fcs : integer; // prubezny kontrolni soucet zpravy
RxMsg : integer; // typ prijate zpravy
RxData : byte; // pocet prijatych datovych znaku ve
zprave
IsOK : boolean; // priznak ze prijem skoncil spravne
IsError : boolean; // priznak spatne komunikace na prijmu
IsHWError : boolean; // priznak spatne komunikace na prijmu
od HW
BufIn : TBuffer; // data prijate zpravy
ComTimer : TTimer; // casovac timeoutu
FMonitorEvents : TCEventType; //
FOnOpen : TCOpenEvent; //
FOnRxMsg : TCRxMsgEvent; //
FOnRxError : TCErrorEvent; //
FOnTxReady : TNotifyEvent; //
procedure DoError(XError: integer);
procedure DoTimeOut(Sender: TObject);
procedure RxByte(Ch: byte);
function GetModemState (Index : Integer): Boolean;
procedure HandleTCEvent (Sender: TObject; Status: dword);
procedure SetBaudRate (Value: TBaudRate);
procedure SetParity (Value: TParity);
procedure SetStopbits (Value: TStopBits);
procedure SetDatabits (Value: TDatabits);
procedure SetFlowControl (Value: TFlowControl);
procedure SetXonChar (Value: Char);
procedure SetXoffChar (Value: Char);
procedure SetOptions (Value: TCommOptions);
procedure SetRS485Mode (Value: Boolean);
procedure SetFDCB;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure ConfigDialog;
procedure Open;
procedure Close;
function Enabled: Boolean;
function Write(const Buf; Count: Integer): Integer;
function Read (var Buf; Count: Integer): Integer;
function InQueCount : Integer;
function OutQueCount: Integer;
procedure PurgeIn;
procedure PurgeOut;
function MsgWrite(TxMsg, Count : integer; const Buf): Integer;
// CommEscape funkce
function DTR (State: Boolean): boolean;
function RTS (State: Boolean): boolean;
function BREAK(State: Boolean): boolean;
function XON (State: Boolean): boolean;
// vraci interni DeviceHandle
property Handle: THandle read FHandle;
published
property DeviceName : string read FDeviceName
write FDeviceName;
property RS485Mode : boolean read FRS485Mode
write SetRS485Mode
default True;
property RxTimeOut : integer read FRxTimeOut
write FRxTimeOut
default 0;
property BaudRate : TBaudRate read FBaudRate
write SetBaudRate
default cbr9600;
property Parity : TParity read FParity
write SetParity
default paNone;
property Stopbits : TStopbits read FStopbits
write SetStopbits
default sb10;
property Databits : TDatabits read FDatabits
write SetDatabits
default da8;
property ReadBufferSize : Integer read FReadBufferSize
write FReadBufferSize
default 4096;
property WriteBufferSize: Integer read FWriteBufferSize
write FWriteBufferSize
default 2048;
property FlowControl : TFlowControl read FFlowControl
write SetFlowControl
default fcDefault;
property XonChar : char read FXonChar
write SetXonChar
default #17;
property XoffChar : char read FXoffChar
write SetXoffChar
default #19;
property Options : TCommOptions read FOptions
write SetOptions;
property CTS : Boolean index 1 read GetModemState;
property DSR : Boolean index 2 read GetModemState;
property RING : Boolean index 3 read GetModemState;
property RLSD : Boolean index 4 read GetModemState;
property MonitorEvents : TCEventType read FMonitorEvents
write FMonitorEvents;
property OnOpen : TCOpenEvent read FOnOpen
write FOnOpen;
property OnRxError : TCErrorEvent read FOnRxError
write FOnRxError;
property OnRxMsg : TCRxMsgEvent read FOnRxMsg
write FOnRxMsg;
property OnTxReady : TNotifyEvent read FOnTxReady
write FOnTxReady;
end;
//--------------------------------------------------------------------------
----
procedure Register;
implementation
const
fBinary = $00000001;
fParity = $00000002;
fOutxCtsFlow = $00000004;
fOutxDsrFlow = $00000008;
fDtrControl = $00000030;
fDsrSensitivity = $00000040;
fTXContinueOnXoff = $00000080;
fOutX = $00000100;
fInX = $00000200;
fErrorChar = $00000400;
fNull = $00000800;
fRtsControl = $00003000;
fAbortOnError = $00004000;
fDummy2 = $FFFF8000;
CBR: array[TBaudRate] of Integer =(CBR_110,
CBR_300,
CBR_600,
CBR_1200,
CBR_2400,
CBR_4800,
CBR_9600,
CBR_14400,
CBR_19200,
CBR_38400,
CBR_56000,
CBR_57600,
CBR_115200,
CBR_128000,
CBR_256000);
DAB: array[TDatabits] of Integer =(4,
5,
6,
7,
8);
PAR: array[TParity] of Integer =(NOPARITY,
ODDPARITY,
EVENPARITY,
MARKPARITY,
SPACEPARITY);
STB: array[TStopbits] of Integer =(ONESTOPBIT,
ONE5STOPBITS,
TWOSTOPBITS);
OPT: array[TCommOption] of Integer =(fParity,
fDsrSensitivity,
fTXContinueOnXoff,
fErrorChar,
fNull);
//==========================================================================
====
// PortIn
//==========================================================================
====
function PortIn(Address: Word): Byte;
begin
asm
mov dx,Address
in al,dx
mov (zv)Result,al
end;
end;
//==========================================================================
====
// Register
//==========================================================================
====
procedure Register;
//*****************
begin
RegisterComponents('Moje', [TCommPort]);
end;
//==========================================================================
====
// TCommThread
//==========================================================================
====
constructor TCommThread.Create(Handle: Integer; Events: TCEventType);
//*******************************************************************
const
EvList: array[TCEventState] of dword = (EV_BREAK, EV_CTS, EV_DSR,
EV_ERR, EV_RING, EV_RLSD,
EV_RXCHAR, EV_RXFLAG, EV_TXEMPTY);
var EvIndex : TCEventState;
AttrWord: dword;
begin
Inherited Create(true);
Priority := tpHighest;
FHandle := Handle;
AttrWord := 0;
for EvIndex := evBREAK to evTXEMPTY do
if EvIndex in Events then AttrWord := AttrWord or EvList[EvIndex];
SetCommMask(FHandle, AttrWord);
Resume;
end;
destructor TCommThread.Destroy;
//*****************************
begin
CloseHandle(hCloseEvent);
Inherited Destroy;
end;
procedure TCommThread.Execute;
//****************************
var HandlesToWaitFor : array[0..2] of THandle;
dwHandleSignaled : DWORD;
BytesTransferred : DWORD; // nevyuzito -> neplatne
OverlappedCommEvent: TOverlapped;
begin
FillChar(OverlappedCommEvent, Sizeof(OverlappedCommEvent), 0);
hCloseEvent := CreateEvent(nil, True, False, nil);
OverlappedCommEvent.hEvent := CreateEvent(nil, True, True, nil);
HandlesToWaitFor[0] := hCloseEvent;
HandlesToWaitFor[1] := OverlappedCommEvent.hEvent;
repeat
WaitCommEvent(FHandle,
FStatus,
(zv)OverlappedCommEvent);
dwHandleSignaled := WaitForMultipleObjects(2,
(zv)HandlesToWaitFor,
False,
INFINITE);
case dwHandleSignaled of
WAIT_OBJECT_0 : Break;
WAIT_OBJECT_0+1: if GetOverlappedResult(FHandle,
OverlappedCommEvent,
BytesTransferred,
false)
then Synchronize(DoOnSignal);
else Break // sem by to nemelo nikdy spadnout
end;
until Terminated;
PurgeComm(FHandle, PURGE_RXABORT + PURGE_RXCLEAR);
CloseHandle(OverlappedCommEvent.hEvent);
end;
procedure TCommThread.ReleaseThread;
//**********************************
begin
SetEvent(hCloseEvent);
end;
procedure TCommThread.DoOnSignal;
//*******************************
begin
if Assigned(FOnSignal) then FOnSignal(Self, FStatus);
end;
//==========================================================================
====
// TCommPort
//==========================================================================
====
constructor TCommPort.Create(AOwner: TComponent);
//***********************************************
begin
Inherited Create(AOwner);
FHandle := INVALID_HANDLE_VALUE;
FDeviceName := 'COM2';
FBaudRate := cbr9600;
FParity := paNone;
FStopbits := sb10;
FDatabits := da8;
FXonChar := #17;
FXoffChar := #19;
FOptions := [];
FRS485Mode := True;
FRxTimeOut := 0;
FMonitorEvents := [evError, evRxChar, evTxEmpty];
FReadBufferSize := 4096;
FWriteBufferSize := 2048;
FFlowControl := fcDefault;
FWriteEvent := CreateEvent(nil, false, false, nil);
ComTimer := TTimer.Create(Self);
ComTimer.Enabled := False;
ComTimer.Interval:= 500;
ComTimer.OnTimer := DoTimeOut;
end;
destructor TCommPort.Destroy;
//***************************
begin
Close;
ComTimer.Free;
CloseHandle(FWriteEvent);
Inherited Destroy;
end;
function TCommPort.Enabled: Boolean;
//**********************************
begin
Result := FHandle <> INVALID_HANDLE_VALUE;
end;
procedure TCommPort.Open;
//***********************
var CommTimeouts: TCommTimeouts;
Size : Integer;
begin
Close;
SetLastError(0); // zrusi vsechny pending chyby
Fillchar(FCommConfig, Sizeof(FCommConfig), 0);
FHandle := CreateFile(PCHAR(FDeviceName),
GENERIC_READ or GENERIC_WRITE,
0,
nil,
OPEN_EXISTING,
FILE_FLAG_OVERLAPPED,
0);
if Enabled then begin
Size := Sizeof (TCommConfig);
GetCommConfig (FHandle, FCommConfig, Size);
SetCommState (FHandle, FCommConfig.DCB);
SetupComm (FHandle, FReadBufferSize, FWriteBufferSize);
GetCommTimeOuts(FHandle, CommTimeOuts);
with CommTimeouts do begin
ReadIntervalTimeout := 250;
ReadTotalTimeoutMultiplier := 0;
ReadTotalTimeoutConstant := 0;
WriteTotalTimeoutMultiplier:= 0;
WriteTotalTimeoutConstant := 0;
end;
SetCommTimeOuts(FHandle, CommTimeOuts);
SetFDCB;
RTS(False);
FTCommThread := TCommThread.Create(FHandle, FMonitorEvents);
FTCommThread.OnSignal := HandleTCEvent;
end;
if assigned(FOnOpen) then
FOnOpen(Self, FCommConfig.dwProviderSubType, GetLastError );
end;
procedure TCommPort.Close;
//************************
begin
if Enabled then begin
if FTCommThread <> nil then begin
FTCommThread.ReleaseThread;
FTCommThread.Suspend;
end;
FTCommThread.Free;
CloseHandle(FHandle);
FHandle := INVALID_HANDLE_VALUE;
end;
end;
procedure TCommPort.ConfigDialog;
//*******************************
var Size: Integer;
begin
GetCommConfig (FHandle, FCommConfig, Size);
CommConfigDialog(PChar(FDeviceName),0,FCommConfig);
SetCommConfig (FHandle, FCommConfig, Size);
// FDCB.BaudRate:= CBR[FBaudRate];
// FDCB.Parity := PAR[FParity];
// FDCB.Stopbits:= STB[FStopbits];
// FDCB.Bytesize:= DAB[FDatabits];
end;
function TCommPort.Write(const Buf; Count: Integer): Integer;
//***********************************************************
var dwBytesTransfered: DWORD;
begin
// zadny zapis pokud je IOPending
if FIOPending then begin
while not GetOverlappedResult(FHandle,
FWriteOS,
dwBytesTransfered,
false)
do begin
Result := 0;
exit;
end;
FIOPending := False;
end;
FillChar(FWriteOS, Sizeof(FWriteOS), 0);
FWriteOS.hEvent := FWriteEvent;
Rts(True);
if not WriteFile(FHandle, Buf, Count, Result, (zv)FWriteOS) then
if GetLastError = Error_IO_Pending then FIOPending := True
else Result:= -1;
end;
function TCommPort.Read(var Buf; Count: Integer): Integer;
//********************************************************
var OS: TOverlapped;
begin
Fillchar(OS, Sizeof(OS), 0);
if not ReadFile(FHandle, Buf, Count, Result, (zv)OS) then Result:= -1;
end;
procedure TCommPort.SetBaudRate(Value: TBaudRate);
//************************************************
begin
FBaudRate := Value;
SetFDCB;
end;
procedure TCommPort.SetParity(Value: TParity);
//********************************************
begin
FParity := Value;
SetFDCB;
end;
procedure TCommPort.SetStopbits(Value: TStopbits);
//************************************************
begin
FStopbits := Value;
SetFDCB;
end;
procedure TCommPort.SetDataBits(Value: TDatabits);
//************************************************
begin
FDataBits:=Value;
SetFDCB;
end;
procedure TCommPort.SetFlowControl(Value: TFlowControl);
//******************************************************
begin
FFlowControl := Value;
SetFDCB;
end;
procedure TCommPort.SetXonChar(Value: char);
//******************************************
begin
FXonChar := Value;
SetFDCB;
end;
procedure TCommPort.SetXoffChar(Value: char);
//*******************************************
begin
FXoffChar := Value;
SetFDCB;
end;
procedure TCommPort.SetRS485Mode(Value : Boolean);
//************************************************
begin
FRS485Mode := Value;
SetFDCB;
end;
procedure TCommPort.SetOptions(Value: TCommOptions);
//****************************************************
begin
FOptions := Value;
SetFDCB;
end;
procedure TCommPort.SetFDCB;
//**************************
const dcb_RTSBit1 = $1000;
dcb_RTSBit2 = $2000;
dcb_RTS_CONTROL_TOGGLE = dcb_RTSBit1 + dcb_RTSBit2;
var OptIndex: TCommOption;
LocalCommPortAddr: Word;
begin
if Enabled then begin
GetCommState(FHandle, FDCB);
FDCB.BaudRate:= CBR[FBaudRate];
FDCB.Parity := PAR[FParity];
FDCB.Stopbits:= STB[FStopbits];
FDCB.Bytesize:= DAB[FDatabits];
FDCB.XonChar := FXonChar;
FDCB.XoffChar:= FXoffChar;
for OptIndex := osParityCheck to osNullStrip do
if OptIndex in FOptions then FDCB.Flags:= FDCB.Flags or OPT[OptIndex]
else FDCB.Flags:= FDCB.Flags and not
OPT[OptIndex];
case FFlowControl of
fcNone: begin
FDCB.Flags := FDCB.Flags and (not fOutxCtsFlow);
FDCB.Flags := FDCB.Flags and (not fRtsControl)
or (RTS_CONTROL_TOGGLE shl 12);
FDCB.Flags := FDCB.Flags and (not fOutxDsrFlow);
FDCB.Flags := FDCB.Flags and (not fDtrControl)
or (DTR_CONTROL_ENABLE shl 4);
FDCB.Flags := FDCB.Flags and (not fOutX)
and (not fInX);
end;
fcCTS: begin
FDCB.Flags := FDCB.Flags or fOutxCtsFlow;
FDCB.Flags := FDCB.Flags and (not fRtsControl)
or (RTS_CONTROL_HANDSHAKE shl
12);
FDCB.Flags := FDCB.Flags and (not fOutxDsrFlow);
FDCB.Flags := FDCB.Flags and (not fDtrControl)
or (DTR_CONTROL_ENABLE shl 4);
FDCB.Flags := FDCB.Flags and (not fOutX)
and (not fInX);
end;
fcDTR: begin
FDCB.Flags := FDCB.Flags and (not fOutxCtsFlow);
FDCB.Flags := FDCB.Flags and (not fRtsControl)
or (RTS_CONTROL_ENABLE shl 12);
FDCB.Flags := FDCB.Flags or fOutxDsrFlow;
FDCB.Flags := FDCB.Flags and (not fDtrControl)
or (DTR_CONTROL_HANDSHAKE shl
4);
FDCB.Flags := FDCB.Flags and (not fOutX)
and (not fInX);
end;
fcSoftware: begin
FDCB.Flags := FDCB.Flags and (not fOutxCtsFlow);
FDCB.Flags := FDCB.Flags and (not fRtsControl)
or (RTS_CONTROL_ENABLE shl 12);
FDCB.Flags := FDCB.Flags and (not fOutxDsrFlow);
FDCB.Flags := FDCB.Flags and (not fDtrControl)
or (DTR_CONTROL_ENABLE shl 4);
FDCB.Flags := FDCB.Flags or fOutX
or fInX;
end;
end;
if FRS485Mode then begin { povoleni RS485 modu}
if Win32Platform = VER_PLATFORM_WIN32_NT then begin
{Pod NT, pouze nastavime Rts_toggle_flag}
GetCommState(FHandle, FDCB);
FDCB.Flags:= FDCB.Flags or dcb_RTS_CONTROL_TOGGLE;
SetCommState(FHandle,FDCB);
end
else begin
{Nedokumentovana funkce - vraci bazovou adresu COM Portu v edx}
EscapeCommFunction(FHandle, 10);
asm
mov LocalCommPortAddr, dx
end;
FComPortAddr:= LocalCommPortAddr;
end;
end
else begin {zakazani RS485 modu}
if Win32Platform = VER_PLATFORM_WIN32_NT then begin
{Pod NT, pouze schodime Rts_toggle_flag}
GetCommState(FHandle, FDCB);
FDCB.Flags:= FDCB.Flags and not dcb_RTSBit1;
SetCommState(FHandle,FDCB);
end;
end;
SetCommState(FHandle, FDCB);
end;
end;
function TCommPort.InQueCount: Integer;
//*************************************
var Errors: dword;
begin
ClearCommError(FHandle, Errors, (zv)FCT);
Result := FCT.cbInQue;
end;
function TCommPort.OutQueCount: Integer;
//**************************************
var Errors: dword;
begin
ClearCommError(FHandle, Errors, (zv)FCT);
Result := FCT.cbOutQue;
end;
procedure TCommPort.PurgeIn;
//**************************
begin
PurgeComm(FHandle, PURGE_RXABORT or PURGE_RXCLEAR);
end;
procedure TCommPort.PurgeOut;
//***************************
begin
PurgeComm(FHandle, PURGE_TXABORT or PURGE_TXCLEAR);
end;
function TCommPort.GetModemState(Index: Integer): boolean;
//********************************************************
var Flag, State: dword;
begin
case Index of
1: State := MS_CTS_ON;
2: State := MS_DSR_ON;
3: State := MS_RING_ON;
4: State := MS_RLSD_ON;
else State := 0;
end;
Result := false;
if Enabled then
if GetCommModemStatus(FHandle, Flag) then Result := (Flag and State >
0);
end;
function TCommPort.DTR(State: boolean): boolean;
//**********************************************
const DTR: array[boolean] of Integer = (CLRDTR, SETDTR);
begin
Result := EscapeCommFunction(FHandle, DTR[State]);
end;
function TCommPort.RTS(State: boolean): boolean;
//**********************************************
const RTS: array[boolean] of Integer = (CLRRTS, SETRTS);
begin
Result := EscapeCommFunction(FHandle, RTS[State]);
end;
function TCommPort.BREAK(State: Boolean): boolean;
//************************************************
const BREAK: array[boolean] of Integer = (CLRBREAK, SETBREAK);
begin
Result := EscapeCommFunction(FHandle, BREAK[State]);
PurgeComm(FHandle, PURGE_RXABORT +
PURGE_RXCLEAR +
PURGE_TXABORT +
PURGE_TXCLEAR);
end;
function TCommPort.XON(State: Boolean): boolean;
//**********************************************
const XON: array[boolean] of Integer = (SETXOFF, SETXON);
begin
Result := EscapeCommFunction(FHandle, XON[State]);
end;
procedure TCommPort.DoTimeOut(Sender: TObject);
//*********************************************
begin
ComTimer.Enabled:= False;
DoError(4);
end;
procedure TCommPort.DoError(XError: integer);
//*******************************************
// XError = 1 - chyba ramce zpravy
// 2 - chyba cteni z InputQue
// 3 - chyba znaku HW - parita, preteceni, ramec
// 4 - chyba TimeOutu - po odeslani zpravy nedosla odpoved
//
begin
IsHWError:= False;
if assigned(FOnRxError)then FOnRxError(Self, XError);
end;
procedure TCommPort.HandleTCEvent(Sender: TObject; Status: dword);
//******************************************************************
var Buffer: array[0..512] of Byte;
Bytes, i: Integer;
begin
//--------------------------------------------------------------------------
--
ClearCommError(FHandle, FErrors, (zv)FCT);
if (FErrors and HWErr > 0) then IsHWError:= True;
//--------------------------------------------------------------------------
--
if (Status and EV_TXEMPTY > 0) then begin
if (Win32Platform <> VER_PLATFORM_WIN32_NT)and(FRS485Mode)then begin
repeat
until (PortIn(FComPortAddr+5) and $40) <> 0;
RTS(False);
end;
ComTimer.Interval:= 500 + FRxTimeOut;
ComTimer.Enabled := True;
IsHWError := False;
end;
//--------------------------------------------------------------------------
--
if (Status and EV_RXCHAR > 0) then begin
Bytes:= Read(Buffer, FCT.cbInQue);
if Bytes = -1 then DoError(2)
else for i:= 0 to Bytes-1 do begin
RxByte(Buffer[i]);
if IsOK then begin
ComTimer.Enabled:= False;
if IsHWError then DoError(3)
else if assigned(FOnRxMsg) then FOnRxMsg(Self, RxMsg, RxData,
BufIn);
end
else if IsError then DoError(1);
end;
end;
//--------------------------------------------------------------------------
--
end;
procedure TCommPort.RxByte(Ch: byte);
//***********************************
begin
case ModeRx of
sd : case ch of
SDX : ModeRx:= fcb;
SDS : ModeRx:= dt1;
ACK : ModeRx:= all;
NACK: ModeRx:= all;
end;
fcb: begin
ModeRx:= le;
fcs := ch;
case ch of
0: RxMsg:= 0;
1: RxMsg:= 1;
2: RxMsg:= 2;
else ModeRx:= err;
end;
end;
le : if ch = 0 then ModeRx:= csu
else begin
Inc(fcs,ch);
RxData := 0;
LenOfData:= ch;
ModeRx := dta;
end;
dt1: begin
BufIn[0]:= ch;
ModeRx := dt2;
end;
dt2: begin
BufIn[1]:= ch;
ModeRx := all;
RxData := 2;
end;
dta: begin
Inc(fcs,ch);
BufIn[RxData]:= ch;
Inc(RxData);
if RxData = LenOfData then ModeRx:= csu;
end;
csu: if ch = (fcs and $00ff) then ModeRx:= ed
else ModeRx:= err;
ed : if ch = EDX then ModeRx:= all
else ModeRx:= err;
else ModeRx:= err;
end;
IsError:= (ModeRx = err);
IsOK := (ModeRx = all);
if IsOK or IsError then ModeRx:= sd;
end;
(*
procedure TCommPort.RecChar(Ch: byte);
//************************************
begin
case mode of
sd : begin
case ch of
SC : mode:= all;
SD1: mode:= da;
SD2: mode:= le;
else mode:= err;
end;
tempsd := ch;
end;
da : if ch = src then begin
inc(fcs,ch);
mode := sa;
end
else mode := err;
sa : if ch = dst then begin
inc(fcs,ch);
mode := mfcb;
end
else mode := err;
mfcb: begin
tempfcb := ch;
if tempsd = SD1 then mode := csu
else begin
mode := dta;
lenind := 0;
end;
inc(fcs,ch);
end;
le : begin
temple := ch;
mode := ler;
end;
ler : if temple = ch then begin
lenexp := ch - 3;
mode := sdr;
end
else mode := err;
sdr : if tempsd = ch then mode := da
else mode := err;
dta : begin
inc(fcs,ch);
bufin[lenind]:= ch;
inc(lenind);
if lenind = lenexp then mode := csu;
end;
csu : if ch = (fcs and $00ff) then mode := ed
else mode := err;
ed : if ch = EDX then begin
mode := all;
case tempfcb of
OK,DL,DH : IsOK_R:=TRUE;
UE : {Pute(E_DEATH)};
RS,RR : {Pute(E_FCENAC)};
NR : {Pute(E_DTANAC)};
RDL,RDH : {Pute(E_PARAM)};
end;
end
else mode:=err;
else mode:= err;
end;
IsAll:= Mode = all;
IsErr:= Mode = err;
end;
*)
function TCommPort.MsgWrite(TxMsg, Count : integer; const Buf): Integer;
//**********************************************************************
// Result = -1 = chyba zapisu na COM
// -2 = neplatna sluzba
// 0 = prave probiha vysilani
// n = pocet odeslanych bajtu
var
OutBuf : array[0..512] of Byte;
i,
Counter: integer;
CSum : integer;
ModeTx : (sd, // start ----|
sd0, // start - kratka zprava |
sd1, // ACK - potvrzeni |
sd2, // NACK - potvrzeni |
fcb, // typ zpravy |
le, // pocet dat | stavy
dt1, // data 1 pri SDS | koderu
dt2, // data 2 pri SDS | zpravy
dta, // data n pri SDX | pri
csu, // kontrolni soucet | vysilani
ed, // konec |
err, // CHYBA |
all); // VSECHNO ----|
begin
Result:= -2;
case TxMsg of
1 : ModeTx:= sd0;
2 : ModeTx:= sd1;
3 : ModeTx:= sd2;
4..10: ModeTx:= sd;
else Exit;
end;
Counter:= 0;
repeat
case ModeTx of
sd : begin
OutBuf[Counter]:= SDX;
ModeTx:= fcb;
end;
sd0: begin
OutBuf[Counter]:= SDS;
ModeTx:= dt1;
end;
sd1: begin
OutBuf[Counter]:= ACK;
ModeTx:= all;
end;
sd2: begin
OutBuf[Counter]:= NACK;
ModeTx:= all;
end;
fcb: begin
case TxMsg of
4: OutBuf[Counter]:= 4;
5: OutBuf[Counter]:= 5;
10: OutBuf[Counter]:= 10;
end;
CSum:= OutBuf[Counter];
ModeTx:= le;
end;
le : begin
OutBuf[Counter]:= Count;
inc(CSum,Count);
ModeTx:= dta;
end;
dt1: begin
OutBuf[Counter]:= TBuffer(Buf)[0];
ModeTx:= dt2;
end;
dt2: begin
OutBuf[Counter]:= TBuffer(Buf)[1];
ModeTx:= all;
end;
dta: begin
for i:=0 to Count-1 do begin
OutBuf[Counter]:= TBuffer(Buf)[i];
inc(CSum, TBuffer(Buf)[i]);
inc(Counter);
end;
dec(Counter);
ModeTx:= csu;
end;
csu: begin
OutBuf[Counter]:= Byte(CSum);
ModeTx:= ed;
end;
ed : begin
OutBuf[Counter]:= EDX;
ModeTx:= all;
end;
end;
inc(Counter);
until ModeTx = all;
Result:= Write(OutBuf[0], Counter);
end;
//--------------------------------------------------------------------------
----
end.
Interbase & UDF
[*] Ales Zeleny <zelenya(zv)mlp(tec)cz> - 21.9.1998 11:11:18
> Hi All,
>
> mam takovy dotaz na ctene kolegy,
>
> je, ci neni mozne z UDF v nejake DLL zpetne pouzivat napojeni na
> Interbase?
> Asi takto: zavolam UDF, predam parametry, UDF neco vypocita, a ulozala by
> vysledky do nejake tabulky v IB. Jde to? Nebo to jde nejak jinak?
Pokud to ma ukldat do stejne databaze, pak staci toto UDF zavolat v storovane
procedure, pokud do jina databaze, tak pak by to chtelo se pripojit na to
databazi a naplacat to tam. Jak moc je to jednoduche a zda odpovidam na to nac
byle tento dotaz, to netusim. Chce to asi psat to v C, neb pri pripadnych
prenosech mezi NT a UNIX se tim predejde sposte problemu, byt nejake upravy to
bude chtit stejne.
a.+------------------------+ +---------------------------+
|Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
|Mestska knihovna v Praze| |Municipal Library of Prague|
|Marianske nam. 1 | |Marianske nam. 1 |
|115 72 | |115 72 |
| | | |
|Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
|E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
|MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
+------------------------+ +---------------------------+
Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
Multitasking means that applications can crash simultaneously.QReport + soucty
[*] M-PRO s.r.o. <software(zv)mpro(tec)cz> - 21.9.1998 11:36:09
Resil sem ten samej problem, staci vymazat Query1 z vyrazu, v dalsich
verzich QuickReportu by to melo bej opraveny
M.Macko, M-PRO s.r.o.
Software pro RIZENI LIDSKYCH ZDROJU, MZDY A PERSONALISTIKU
-----P�vodn� zpr�va-----
Od: SATON Glass s.r.o. <info(zv)saton(tec)cz>
Komu: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
Datum: 21. z��� 1998 10:29
P�edm�t: QReport + soucty
Zdravim,
mam setrideny soubor, ktery se snazim tisknout. Potrebuji udelat soucty
nekterych polozek vzdy po zmene hodnoty (napr.soucet za Query1.Kategorie).
kat. nazev hodnota
1 svvasfv 12
1 sdfvsb 5
pocet 2 soucet 17
2 dnynd 14
2 ndfgn 8
2 dfgym 21
pocet 3 soucet 43
...
Zkousel jsem udelat SummaryBand a v nem SUM(Query1.Hodnota), ale pada to s
chybou 202.
Soucet polozek Count, mne jde, ale jen cele databaze, neumim to udelat po
zmenu polozky, vytisknout, znulovat, .....
Diky za kazdou radu.
Kuba
----------------------------------------------------------------------------
---------------------------------
SATON Glass, s.r.o. - slu�by v oblasti programov�n� a v�po�etn� techniky
Klicperova 26, Brno, 628 00 �R
Tel.:+420 5 44217819 Fax.:+420 5 44217529
Mob:+420 603 429505
mail: info(zv)saton(tec)cz
----------------------------------------------------------------------------
---------------------------------
Knihovna Apollo
[*] RADIK(zv)p15.monet(tec)cz - 21.9.1998 11:50:00
Nemate nekdo zkusenosti s knihovnou Apollo od f. SuccessWare? Nebo
nevite o prodejci u nas, rad bych se vyhnul nakupu pres kreditku.
Ales
Vlastnosti komponent za behu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.9.1998 12:14:03
Petr Vones wrote:
> > No jo, clovece, to je ono, co jsme oba hledali. Pouziju to ve svem
> > kazani - eh - skoleni. Diky.
>
> A podivejme, ze by prisny pan ucitel ? :-)
Jasne. A kdo nebude chapat, toho zmlatim rakoskou. :-)
> Jinak ohledne diskuze o naplni skoleni, myslim ze by byly zajimave veci
> okolo OLE, ActiveX, COM, DCOM ....
ActiveX? To snad ani neee. Tedy pokud mas na mysli ty hruzy s
priponou OCX. Tedy, samozrejme se zminim, ze toto lze vyrobit a
jak, ale pitvat to nehodlam.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Ceske resource pro Orpheus V2.17
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 21.9.1998 12:14:04
Bene Jaroslav wrote:
> Touto cestou se na Vas vsechny obracim, zda nevite existuji-li pro
> Orpheus V2.17 ceske resource (nebo RC soubory);velmi nutne bych je
> potreboval. Dekuji za jakoukoliv odpoved.
Jo. V mem Lokalizatoru je prelozeny. A take AsyncPro. Ale pokud
bys to bral od nekoho jineho, nebo to prekladal sam, davej si
pozor, oni tam nacpali nektere stringy, ktere museji zustat v
puvodni podobe - napr. "Grid", "Default" a podobne.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Knihovna Apollo
[*] Bene� Jaroslav <JBenes(zv)cpoj(tec)cz> - 21.9.1998 12:28:32
Ahoj,
Apollo {Apollo Rocket} prodavalo Apro, pokud se jedna o rychly
viceuzivatelsky pristup k DB indexovym a memo souborum FoxPro, Clipper a
HiPer-Slx. Muze pracovat s/bez DBE/IDAPI Delphi. Stalo to 10,840.- Kc se
zdroji VCL (7,220.- Kc bez), ale ta cena je vic jak rok stara.
Jaro B.
> -----P�vodn� zpr�va-----
> Od: RADIK(zv)p15.monet(tec)cz [SMTP:RADIK(zv)p15.monet(tec)cz]
> Odesl�no: 21. z��� 1998 11:50
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Knihovna Apollo
>
> Nemate nekdo zkusenosti s knihovnou Apollo od f. SuccessWare? Nebo
> nevite o prodejci u nas, rad bych se vyhnul nakupu pres kreditku.
>
> Ales
Menu & Vytvar. soub.
[*] SobanZ(zv)mail.spsuh.hiedu(tec)cz - 21.9.1998 12:31:44
Dobry den,
mam dva dotazy:
1. Pri startu sveho programu vytvarim menu, jednotlive pol. pridavam
fci AddItem...?, vsechno je v poradku, az na maly zadrhel - menu saha
za okraj obrazovky. Co stim?
2. Da se v D3 nebo pomoci API fce zjistit vytvareni souboru - okamzik
kdy si chce nejaka aplikace vytvorit soubor. A pripadne tento soubor
presmerovat, tam kde je mozne ho vytvorit. Pripad spousteni aplikace
z CD.
Zbynek Soban
Sobanz(zv)spsuh.hiedu(tec)cz
Interbase & UDF
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 21.9.1998 12:32:23
Hi,
asi jsem se nevyjadril presne. Jde mi o to, ze navratova hodnota muze
byt pouze jedna, ale ja bych potreboval nekdy vic. Nezbyva, naz to resit
na klientu. Ale to neni bezpecne. Proto bych rad volal tuto proceduru, a
treba ji predal ukazatel na strukturu, kam ma ulozit data. To chci asi
od SQL serveru moc, ze jo?
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Ales Zeleny [SMTP:zelenya(zv)mlp(tec)cz]
> Odesl�no: 21. z��� 1998 11:11
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Interbase & UDF
>
> > Hi All,
> >
> > mam takovy dotaz na ctene kolegy,
> >
> > je, ci neni mozne z UDF v nejake DLL zpetne pouzivat napojeni na
> > Interbase?
> > Asi takto: zavolam UDF, predam parametry, UDF neco vypocita, a
> ulozala by
> > vysledky do nejake tabulky v IB. Jde to? Nebo to jde nejak jinak?
>
> Pokud to ma ukldat do stejne databaze, pak staci toto UDF zavolat v
> storovane
> procedure, pokud do jina databaze, tak pak by to chtelo se pripojit na
> to
> databazi a naplacat to tam. Jak moc je to jednoduche a zda odpovidam
> na to nac
> byle tento dotaz, to netusim. Chce to asi psat to v C, neb pri
> pripadnych
> prenosech mezi NT a UNIX se tim predejde sposte problemu, byt nejake
> upravy to
> bude chtit stejne.
>
> a.
>
>
> +------------------------+ +---------------------------+
> |Ales Zeleny OK1UUE| |Ales Zeleny OK1UUE|
> |Mestska knihovna v Praze| |Municipal Library of Prague|
> |Marianske nam. 1 | |Marianske nam. 1 |
> |115 72 | |115 72 |
> | | | |
> |Tel.: (420)(2)22113 452 | |Tel.: (420)(2) 22113 452 |
> |E-mail:zelenya(zv)mlp(tec)cz | |E-mail:zelenya(zv)mlp(tec)cz |
> |MIME: ISO-8859-2 OK! | |MIME: ISO-8859-2 OK! |
> +------------------------+ +---------------------------+
>
> Multitasking, to je kdyz se aplikace mohou hroutit paralelne.
>
> Multitasking means that applications can crash simultaneously.OCX registrace - dotaz
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 21.9.1998 12:42:49
-----Puvodni zprava-----
Od: Zdenik Marecek
Odeslano: 18. zaoi 1998 16:31
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: OCX registrace - dotaz
Hi !
Nasel jsem OCXko, ktere dela vec kterou bzch moc potrboval (komprese s
heslovanim, rychla, ...),
ale jen soubor.ocx, tj zkousel jsem ho registrovat pomoci regserv32 (nebo
jak se jmenuje), ale to
po instalaci do D3 a pretazeni na form napise "licence information not
found" atd, a neumozni ji
pouzit (jinak na palete se i spravne zobrazi ikonka). koukal jsem se do
regstru jak je to delany
(v registrech pod cimsi je tusim PGUID, kde je vzdycky GUID a v nem nejake
info) , ale
zjistil jsem jen ze regserv to registruje s asi 5 polozkami, kdezto vetsina
ActiveX, ktere pouzivam,
je registrovanzch asi s 10, sice nevim jak to funguje, ale nevypada, ze by
tam bylo nejaky magicnumber.
predem diky za vsechny informace,
jakub marecek, marecek(zv)phil.muni(tec)cz, jakub.marecek(zv)gvid(tec)cz
[Petr Brant]
Protoze uz jsem par OCXu stvoril, tak patrne vim, o co go: Pri tvorbe OCXu
(mluvim ted z pozice MSVC++, nikoli Delphi) je mozne zvolit, zda bude
"licensed" nebo nikoli. V prvnim pripade se vytvari soubor *.lic, ve kterem
je jakasi standardni informace (nazev, copyright apod.). Pri pouziti OCXu
pro vyvoj (to je tvuj pripad) se kontroluje, zda je tento soubor pritomen a
je v nem prislusny text. Pokud ano, je vse OK, pokud ne, nelze vytvorit
instanci OCXu a hostitelska aplikace vrati prislusne hlaseni. V tvem
pripade to je "licence information not found" Takze se zrejme jedna o
komercni SW chraneny timto zpusobem. Chybi ti soubor *.LIC resp. neni v nem
prislusna informace.
Pritom kdyz je OCX jiz "zadratovan" v nejake aplikaci a tato je spustena,
OCX zadny soubor *.LIC nehleda. Jedna se tedy o to, aby se OCX nedal pouzit
pro vyvoj, pokud si to jeho tvurce nepreje.
Nekdy funguje vytvoreni OCXu dynamicky i bez LIC souboru, tj. napr.
x:=TTvujOCX.Create... Zkus to.
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************
Chybova hlaska v D3
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 21.9.1998 12:51:18
Potrebuju poradit s nasledujici chybovou hlaskou v D3:
Error: (0) : RLINK32: Out of memory!.
Help mi radi abych zavolal Borlandu, coz neni spatna rada,
ale radsi bych to jeste konzultoval zde.
Chyba vznikla bohuzel v dost rozsahle aplikaci a hledani bude dost
slozite. Mozna ze pomuze, kdyz jeste doplnim, ze prepisuji
aplikaci z D1.
Kdyby nekdo mel nejaky napad, ozvete se prosim.
Diky
Martin
nedopil(zv)eskon(tec)cz
Zji�t�n� jm�na PC
[*] Josef Kokes <kokes(zv)fsid.cvut(tec)cz> - 21.9.1998 12:58:28
Tato informace je v registrech stanice, odkud to lze dost jednoduse vytahnout, napriklad:
{----------------------------------------------------------}
function NactiJmenoStanice: string;
{ Vytahne z registru jmeno pocitace; mus� b�t jdnoznacne, max 15 znaku dlouhe. }
var
Reg : TRegistry;
begin
{ Pri chybe vraci prazdny string }
Result := '';
Reg:=TRegistry.Create;
with Reg do
try {try-finally}
RootKey:=HKEY LOCAL MACHINE;
OpenKey('\System\CurrentControlSet\control\ComputerName\ComputerName',False);
Result := UpperCase( ReadString('ComputerName') );
finally
Free;
end; {try-finally}
end;
Prijemnou zabavu. Kokes.Knihovna Apollo
[*] Mirek �ipel <miroslav.cipel(zv)oku-tu(tec)cz> - 21.9.1998 13:08:06
jo pou��v�m to a koupil jsem to na fakturu od ATIX s.r.o. tel.:0659/24528
M.
-----P�vodn� zpr�va-----
Od: RADIK(zv)p15.monet(tec)cz <RADIK(zv)p15.monet(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 21. z��� 1998 12:24
P�edm�t: Knihovna Apollo
>Nemate nekdo zkusenosti s knihovnou Apollo od f. SuccessWare? Nebo
>nevite o prodejci u nas, rad bych se vyhnul nakupu pres kreditku.
>
>Ales
>
Komunikacia medzi dvoma aplikaciami...
[*] Petr Brant <pbrant(zv)softhome(tec)net> - 21.9.1998 13:18:11
-----Puvodni zprava-----
Od: Michal Moscovic
Odeslano: 18. zaoi 1998 20:32
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Re: Komunikacia medzi dvoma aplikaciami...
Subject: Komunikacia medzi dvoma aplikaciami...>[Petr Brant]
>Nemel by to byt problem, pouzij handle okna a muzes mezi nimi posilat
>messages. Delal jsem takhle komunikaci mezi DLL v Cecku a formem v Delphi
a
>chodilo to bezvadne.
Zdar... vdaka za odpoved. Predpokladam, ze toto je to co
potrebujem,
ale nakolko som pod windowsami zaciatocnik tak mi veci ako "handle okna" a
podobne este moc nehovoria (aj ked predstavu mam, no chybaju skusenosti).
Chcelo by to asi trochu lopatistickejsie (prosiiiiiim).
Pre upresnenie problemu:
Z aplikacie "A" pustam za pomoci CreateProcess aplikaciu "B",
ktorej
potrebujem na zaciatku poslat nejake info o nastaveniach, ktore previedol
uzivatel v aplikacii "A". Toto som vyriesil cez parameter CommandLine
(alebo
nieco podobne) - aplikacia "B" si ich precita cez ParamStr(...). Problem
nastava, ked chcem pocas behu aplikacie "B" pripadne pri jej ukonceni
odovzdat inforamcie z aplikacie "B" do aplikacie "A". Jedna sa o rozne
informacie napr. v tvare STRING (su aj ine ale dali by sa prekonvertovat na
string a potom spet). Aplikacia "A" je pocas behu aplikacie "B" necinna
(caka na jej ukoncenie) takze moze vklude cakat na informacie od aplikacie
"B".
[Petr Brant]
Zakladem je vedet, jak aplikaci donutit k reakci na nejaky message. Viz
napr. knihu "Delphi pro vyvojare" nebo se snad neco majde i v "Mistrovstvi
v Delphi", ale to nevim jiste.
Zakladem kazde Win aplikace je tzv. okenni procedura, ktera pracuje tak, ze
neustale prochazi vsechna hlaseni, ktera aplikaci prijdou, a zabezpecuje
reakci na ne. Hlaseni mohou byt standardni (presunuti okna apod.) nebo
uzivatelska (to je tvuj pripad). Pri hlaseni se predava jednak cislo
hlaseni (to bude v tvem pripade WM_USER + cislo) a cisla LPARAM a WPARAM.
To mohou byt napr. pointery na retezce nebo jakekoli struktury, ktere
potrebujes predavat. Takze staci z aplikace "B" poslat message
SendMessage(HANDLE_A, WM_MYMESSAGE, p, q), kde HANDLE_A je handle okna, kam
se message posila (handle na okno aplikace "A" nebo staci jen handle napr.
na LIstBox, ktery chces plnit apod.), p a q jsou pointery na to, co chces
predat. V aplikaci uz "ciha" okenni procedura, ktera tvuj message odchyti a
preda ke zpracovani. Je tedy nutne znat handle okna, kam se message posila.
To je pristupne z Delphi jako napr. Form1.Handle. Tento muzes predat
aplikaci "B" pri jejim zavolani jako cislo Long. Takze studuj (to hlavne),
zkousej, vysledek se dostavi. Kdyz nebudes vedet, napis soukromy mail.
void AddToListBox(HWND Handle,LPSTR Item)
{
//adds Item to ListBox specified by Handle
SendMessage(Handle,LB_ADDSTRING,0,(LPARAM) Item);
} -> takhle to muze treba vypadat pri "dalkovem" naplnovani ListBoxu
Ahoj
*************************************************************************
Petr Brant [pbrant(zv)softhome.net]
programator v MSVC++, obcas Delphi nebo Visual Basic
*************************************************************************
Home banking
[*] Mgr. Petr Kellner <kellner(zv)praktik(tec)cz> - 21.9.1998 13:18:45
k nasl. radkum bych se pripojil, opravdu co banka to jiny SW, vetsina ale podporuje import a export ABO formatu dat (ten tusim pochazi od KB) i kdyz
se tam vyskytuji urcite drobne odchylky. El. podpis se opravdu pripojuje az v sw banky (ABO je textovy format). Existuje dokonce banka, ktera krome el.podpisu, vy�aduje je�t� fax, ktery musi obsahovat podpis dle vzoru a dalsi tajne cislo ze seznamu, ktery ma kazdy klient jiny, distr. bankou jako cenne psani v papirove forme.
Opravdu nevidim moc pruchodne, aby tvuj SW resil tohle vse pro siroky okruh bank, mmj. nas ucetni SW podporije import a export ABO formatu a je to naprosto dosta�ujici.
Zapomen na to, ze udelas neco, co bude chodit s libovolnou bankou,
musis vedet konkretni udaje o konkretni bance, pak se muzez o neco
pokouset. Protoze ja mam kvalitni homebanking, ktery funguje trochu
lepe, delam to tak, ze z informacniho systemu se generuje exportni
soubor a ten se importuje do klinta homebankingu, v nem se teprve
podepisuje a odesila. Je to jednoduche, rychle a bezpecne.
Mgr. Petr Kellner
Praktik SW, spol. s r.o. Dom� : Na Z�kop� 27
V. Outraty 7, Prost�jov, 796 00 Olomouc, 773 00
Tel : 0508/365583 Tel : 068/5314129
Fax : 0508/365512 Tel : 0603/457623
e-mail: kellner(zv)praktik(tec)cz pekol(zv)praktik(tec)cz
Web: www.praktik(tec)cz
e-mail pro velmi kr�tk� zpr�vy: kellner.mobil(zv)sms.paegas(tec)cz
QReport + soucty
[*] Jiri Szopa <jiri.szopa(zv)telecom(tec)cz> - 21.9.1998 13:22:35
Zdravim,
mam setrideny soubor, ktery se snazim tisknout. Potrebuji udelat soucty
nekterych polozek vzdy po zmene hodnoty (napr.soucet za Query1.Kategorie).
kat. nazev hodnota
1 svvasfv 12
1 sdfvsb 5
pocet 2 soucet 17
2 dnynd 14
2 ndfgn 8
2 dfgym 21
pocet 3 soucet 43
...
Zkousel jsem udelat SummaryBand a v nem SUM(Query1.Hodnota), ale pada to s
chybou 202.
Soucet polozek Count, mne jde, ale jen cele databaze, neumim to udelat po
zmenu polozky, vytisknout, znulovat, .....
Diky za kazdou radu.
Kuba
V QR 2.0x pouzivej TRQGoup, k nemu TQRBand s BandType =rbGroupFooter, na
nej TQREXpr s Expresion= Count a ResetAfterPrint=True. V QR 1.0x misto
TQREXpr TQRCalc s Operation= qrcCount .
-------------------------------------------
Ing. Jiri Szopa
tel.: +420 659 713393
fax.: +420 659 713392
email: jiri.szopa(zv)telecom(tec)cz
Chybova hlaska v D3
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 21.9.1998 13:24:25
Martin Nedopil wrote:
>
> Potrebuju poradit s nasledujici chybovou hlaskou v D3:
>
> Error: (0) : RLINK32: Out of memory!.
>
> Help mi radi abych zavolal Borlandu, coz neni spatna rada,
> ale radsi bych to jeste konzultoval zde.
>
> Chyba vznikla bohuzel v dost rozsahle aplikaci a hledani bude dost
> slozite. Mozna ze pomuze, kdyz jeste doplnim, ze prepisuji
> aplikaci z D1.
>
> Kdyby nekdo mel nejaky napad, ozvete se prosim.
>
> Diky
Ahoj,
Pravdepodobne se bude jednat o chybu kdy linker neumi zpracovat stare 16bitove
.RES soubory. Projektove RES soubory muzes odstranit, pokud mas jeste nejake
ostatni tak je budes muset zkonvertovat.
--
Petr Vones, amatersky programator
QReport + soucty
[*] info(zv)saton(tec)cz (SATON Glass s.r.o.) - 21.9.1998 13:43:33
Ted jsem to zkousel a je to stejny vysledek. Vrtalo mne v hlave, proc jsem s
tim pred tim nemel problemy. Zjistil jsem, ze pred tim jsem pouzival
TQRDBCalc. Ted (verze K) jsem ji nenasel. Stare programy prelozim, v helpu
ji najdu, ale v panelu neni. Nevite nekdo proc ? Moje chyba ??
Kuba
-----P�vodn� zpr�va-----
Od: M-PRO s.r.o. <software(zv)mpro(tec)cz>
P�edm�t: Re: QReport + soucty
>Resil sem ten samej problem, staci vymazat Query1 z vyrazu, v dalsich
>verzich QuickReportu by to melo bej opraveny
>M.Macko, M-PRO s.r.o.
>Software pro RIZENI LIDSKYCH ZDROJU, MZDY A PERSONALISTIKU
-----P�vodn� zpr�va-----
Zdravim,
mam setrideny soubor, ktery se snazim tisknout. Potrebuji udelat soucty
nekterych polozek vzdy po zmene hodnoty (napr.soucet za Query1.Kategorie).
kat. nazev hodnota
1 svvasfv 12
1 sdfvsb 5
pocet 2 soucet 17
2 dnynd 14
2 ndfgn 8
2 dfgym 21
pocet 3 soucet 43
...
Zkousel jsem udelat SummaryBand a v nem SUM(Query1.Hodnota), ale pada to s
chybou 202.
Soucet polozek Count, mne jde, ale jen cele databaze, neumim to udelat po
zmenu polozky, vytisknout, znulovat, .....
Diky za kazdou radu.
Kuba
Chybova hlaska v D3
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 21.9.1998 14:08:11
:-) presne tak ja rikas, staci z DPR odstranit.
{$R *.RES} a uz to jede jak po masle. Ale nepomuze vzit
libovolny jiny RES a prejmenovat ho (i kdyby byl 32bitovy}
Diky moc a za odmenu ti posilam par hezkych rozvitych
((((((((((((((((((((((())))))))))))))))))))))))
zavorek.
Martin
P.S. ... a tato chyba budiz pro ostatni dalsi zmapovanou slepou cestickou.
>Martin Nedopil wrote:
>>
>> Potrebuju poradit s nasledujici chybovou hlaskou v D3:
>>
>> Error: (0) : RLINK32: Out of memory!.
>>
>> Help mi radi abych zavolal Borlandu, coz neni spatna rada,
>> ale radsi bych to jeste konzultoval zde.
>>
>> Chyba vznikla bohuzel v dost rozsahle aplikaci a hledani bude dost
>> slozite. Mozna ze pomuze, kdyz jeste doplnim, ze prepisuji
>> aplikaci z D1.
>>
>> Kdyby nekdo mel nejaky napad, ozvete se prosim.
>>
>> Diky
>
>Ahoj,
>
>Pravdepodobne se bude jednat o chybu kdy linker neumi zpracovat stare
16bitove
>.RES soubory. Projektove RES soubory muzes odstranit, pokud mas jeste
nejake
>ostatni tak je budes muset zkonvertovat.
>
>--
> Petr Vones, amatersky programator
Runtime error
[*] Ing. Miroslav Ond��ek - 21.9.1998 14:16:18
D�ky za radu, byla velmi k v�ci.
!!! M��ete n�s nav�t�vit na INVEXU od 5.10.1998 !!!
!!! Hala Z 1, st�nek 170
S pozdravem
Ing. Miroslav Ond��ek
Bonnel Technologie, s.r.o.
E-mail:
bonnel-ondrisek(zv)telecom(tec)cz - v�voj software
internet: http://www.bonnel-tech.com
PGP podporov�no - ve�ejn� kl�� na na�� homepage
-----P�vodn� zpr�va-----
Od: Bene� Jaroslav <JBenes(zv)cpoj(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 18. z��� 1998 13:22
P�edm�t: RE: Runtime error
Ahoj,
202 je Stack overflow error a nastava napr. je-li alokovano prilis
mnoho �i velkych parametru na zasobniku pri vyvolavani z procedury/vnorenych
(kaskadovanych volani) procedur nebo pri rekursivnim volani (kde je potreba
zmensit lokalni parametry na uplne minimum) nebo pri poruseni zasobniku jako
takoveho (sledovani lze ridit direktivou prekladace).
Jaro B.
> -----P�vodn� zpr�va-----
> Od: Ing. Miroslav Ond��ek [SMTP:bonnel(zv)telecom(tec)cz]
> Odesl�no: 18. z��� 1998 10:08
> Komu: Delphi konference
> P�edm�t: Runtime error
>
> Vyskytuje se nekde seznam runtime errors podle cisel ? Zajimalo by me
> predevsim cislo 202, ktere vyskakuje v metode OnResize formulare pri
> nastavovani velikosti.
>
> Diky
>
> Ing. Miroslav Ond��ek
> Bonnel Technologie, s.r.o.
>
> E-mail:
> bonnel-ondrisek(zv)telecom(tec)cz - v�voj software
>
> internet: http://www.bonnel-tech.com
> PGP podporov�no - ve�ejn� kl�� na na�� homepage
>
Runtime error
[*] Ing. Miroslav Ond��ek - 21.9.1998 14:16:09
D�ky za radu, d�l� to i p�esto v ur�it�ch chv�l�ch paseku, musel jsem ud�lat
formul�� bsDialog, aby ne�el ru�n� resizovat (kupodivu extern� vol�n� metody
OnResize probl�my ned�l�.
!!! M��ete n�s nav�t�vit na INVEXU od 5.10.1998 !!!
!!! Hala Z 1, st�nek 170
S pozdravem
Ing. Miroslav Ond��ek
Bonnel Technologie, s.r.o.
E-mail:
bonnel-ondrisek(zv)telecom(tec)cz - v�voj software
internet: http://www.bonnel-tech.com
PGP podporov�no - ve�ejn� kl�� na na�� homepage
-----P�vodn� zpr�va-----
Od: Pavel Kral <kral(zv)afx(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 18. z��� 1998 14:18
P�edm�t: Re: Runtime error
K chybe preplneni zasobniku typicky dochazi, pokud v handleru udalosti
udelate
akci, ktera zpusobi opetovny vznik teto udalosti.
V onResize prvku asi menite velikost tohoto prvku.
K takovemu zacykleni se da predejit tim, ze pred volanim akce,
ktera by mohla zpusobit opetovne volani udalosti zrusite handler udalosti.
asi takto:
procedure TFOrm1.FormResize(Sender: TObject);
var PuvOnResize: TNotifyEvent;
begin
PuvOnResize:= OnResize;
OnResize:= nil;
try
ClientWidth:= ...
finally
OnResize:= PuvOnResize;
end;
end;
S pozdravem
Pavel Kral
> -----P�vodn� zpr�va-----
>
> Vyskytuje se nekde seznam runtime errors podle cisel ? Zajimalo by me
> predevsim cislo 202, ktere vyskakuje v metode OnResize formulare pri
> nastavovani velikosti.
>
> Diky
>
> Ing. Miroslav Ond��ek
> Bonnel Technologie, s.r.o.INT 13
[*] Administrator <Administrator(zv)rosoft.sk> - 21.9.1998 14:49:14
Viete mi niekto poradit ako bude fungovat INT 13 v Delphi 4.0 - >
Win95/NT?
A ak ano tak ako k nemu pristupovat?
Dakujem
Patrik Tesar
ROSOFT
PROLOG - Nieco mimo konferencie
[*] Pavel Koutn� <koutny(zv)tkcmt.sk> - 21.9.1998 15:12:38
Caute vsetci, predom sa ospravedlnujem za moju otazku, nepatri sem, ale nevie niekto o nejakom volnom PROLOG-u ??? (Programovaci jazyk, ale to asi viete),
Dik,
Pavel
None
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 21.9.1998 15:25:22
Pravdepodobne to nie je mozne. Ulozit udaje do tabulky nepojde.
Ale neviem to presne vysvetlit.
TUNGLI Jan
tungli(zv)pvt.sk
----------
> Od: Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ>
> Pre: 'delphi-l(zv)fwd(tec)cz'
> Predmet:
> D�tum: 21. september 1998 9:52
>
> Hi All,
>
> uz jsem se jednou ptal, ale je tady o tomto nejak ticho........
>
> mam takovy dotaz na ctene kolegy,
>
> je, ci neni mozne z UDF v nejake DLL zpetne pouzivat napojeni na
> Interbase?
> Asi takto: zavolam UDF, predam parametry, UDF neco vypocita, a ulozala
> by vysledky do nejake tabulky v IB.
> Jde to? Nebo to jde nejak jinak?
>
>
>
> Martin Fron�k
> ZZN Slan� a.s.
> Pra�sk� 1579, 274 49, Slan�
> tel. +420-314-522986
> e-mail: fronek(zv)zznslany(tec)cz
> Home banking
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 21.9.1998 15:54:50
To ze nelze udelat univerzalni sw pro homebanking je mi jasne (to by se
ty banky musely nejak domluvit). Spise jsem chtel obejit onen klientsky
sw od banky (jasne ze by to banka musela asi nejak schvalit) a mit vse v
jednom programu. Momentalne mi jde o IPB, mam tam ctyri ucty a nebavi me
furt courat do banky. Ale nechce se mi davat 7.000 Kc za software pro
odeslani a prijem souboru do banky, navic kdyz z nej pouziju jen
ctvrtinu funkci. Nic jineho mi banka nenabidla. Nemate nekdo prehled o
firmach, ktere delaji pro banky ony klienty pro prenos dat
klient-banka-klient?
Diky
Martin
P.S. Uplne nejlepsi by byla nejaka bankou certifikovana komponenta, to
by se vsem delalo co?
"Mgr. Petr Kellner" wrote:
>
> k nasl. radkum bych se pripojil, opravdu co banka to jiny SW, vetsina ale podporuje import a export ABO formatu dat (ten tusim pochazi od KB) i kdyz
> se tam vyskytuji urcite drobne odchylky. El. podpis se opravdu pripojuje az v sw banky (ABO je textovy format). Existuje dokonce banka, ktera krome el.podpisu, vy�aduje je�t� fax, ktery musi obsahovat podpis dle vzoru a dalsi tajne cislo ze seznamu, ktery ma kazdy klient jiny, distr. bankou jako cenne psani v papirove forme.
>
> Opravdu nevidim moc pruchodne, aby tvuj SW resil tohle vse pro siroky okruh bank, mmj. nas ucetni SW podporije import a export ABO formatu a je to naprosto dosta�ujici.
>
> Zapomen na to, ze udelas neco, co bude chodit s libovolnou bankou,
> musis vedet konkretni udaje o konkretni bance, pak se muzez o neco
> pokouset. Protoze ja mam kvalitni homebanking, ktery funguje trochu
> lepe, delam to tak, ze z informacniho systemu se generuje exportni
> soubor a ten se importuje do klinta homebankingu, v nem se teprve
> podepisuje a odesila. Je to jednoduche, rychle a bezpecne.
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================Home banking
[*] Rul��ek Daniel <dan.r(zv)avizo(tec)cz> - 21.9.1998 16:02:35
Udelej si ucet u Expandie banky. Tam si vsechno ridis pres internet,
dostanes za 700 Kc mezinarodni platebni kartu a je to celkem v klidu.
Sice jsou tam trochu vyssi poplatky, ale za ten komfort to stoji.
Dan
> -----Original Message-----
> From: Martin Kubecka [mailto:martin.kubecka(zv)amenit(tec)cz]
> Sent: Monday, September 21, 1998 3:55 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: Home banking
>
>
> To ze nelze udelat univerzalni sw pro homebanking je mi jasne
> (to by se
> ty banky musely nejak domluvit). Spise jsem chtel obejit onen
> klientsky
> sw od banky (jasne ze by to banka musela asi nejak schvalit)
> a mit vse v
> jednom programu. Momentalne mi jde o IPB, mam tam ctyri ucty
> a nebavi me
> furt courat do banky. Ale nechce se mi davat 7.000 Kc za software pro
> odeslani a prijem souboru do banky, navic kdyz z nej pouziju jen
> ctvrtinu funkci. Nic jineho mi banka nenabidla. Nemate nekdo prehled o
> firmach, ktere delaji pro banky ony klienty pro prenos dat
> klient-banka-klient?
>
> Diky
>
> Martin
>
> P.S. Uplne nejlepsi by byla nejaka bankou certifikovana komponenta, to
> by se vsem delalo co?
>
> "Mgr. Petr Kellner" wrote:
> >
> > k nasl. radkum bych se pripojil, opravdu co banka to jiny
> SW, vetsina ale podporuje import a export ABO formatu dat
> (ten tusim pochazi od KB) i kdyz
> > se tam vyskytuji urcite drobne odchylky. El. podpis se
> opravdu pripojuje az v sw banky (ABO je textovy format).
> Existuje dokonce banka, ktera krome el.podpisu, vy�aduje
> je�t� fax, ktery musi obsahovat podpis dle vzoru a dalsi
> tajne cislo ze seznamu, ktery ma kazdy klient jiny, distr.
> bankou jako cenne psani v papirove forme.
> >
> > Opravdu nevidim moc pruchodne, aby tvuj SW resil tohle vse
> pro siroky okruh bank, mmj. nas ucetni SW podporije import a
> export ABO formatu a je to naprosto dosta�ujici.
> >
> > Zapomen na to, ze udelas neco, co bude chodit s libovolnou bankou,
> > musis vedet konkretni udaje o konkretni bance, pak se muzez o neco
> > pokouset. Protoze ja mam kvalitni homebanking, ktery funguje trochu
> > lepe, delam to tak, ze z informacniho systemu se generuje exportni
> > soubor a ten se importuje do klinta homebankingu, v nem se teprve
> > podepisuje a odesila. Je to jednoduche, rychle a bezpecne.
>
> --
> ==============================================================
> = Ing. Martin Kubecka - Amenit s.r.o. =
> = Na Valech - budova Dytron, 741 01 Novy Jicin =
> = telefon: +420 603 265926 =
> = http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
> ==============================================================
> DBGRID
[*] Branislav Danko <danko(zv)ns.basl.sk> - 21.9.1998 16:22:58
Predpoklad�m �e m� DBGrid naviazan� na tabu�ku (TTable) alebo na query (TQuery). Ak klikne� prav�m tla�idlom na objekt TTable alebo TQuery, �plne hore m� ponuku Fields editor ..., zobraz� sa ti tabu�ka, so st�pcami ktor� m� k dispoz�cii pre DBGrid (ak tam nie je ni� st�pce s� v�etky). Prav�m tla�idlom dostane� ponuku v�etk�ch st�pcov, ktor� datasource obsahuje povyberaj v�etky potrebn� a pri tom, kde chce� zapisova� len 3 ��seln� znaky nastav v Objekt Inspektore properties Edit format na
000. (0-znamen� ��slo na tejto poz�ci� ...), Display width na 3, a m�e� aj Default expression na 000.
P.S.: Nesk��al som to, ale �s� by to malo.
S pozdravom Bra�o.
-----P�vodn� zpr�va-----
Od: Michal Hruska [SMTP:hruska(zv)pha.pvt(tec)cz]
Odesl�no: piatok, september 18, 1998 14:15
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: DBGRID
Omluvte prosim dotaz zacatecnika. Pri editaci databazove polozky typu
Integer v DBGRIDu chci povolit pouze zapis 3 ciselnych znaku. Nevite nekdo
jak to mam udelat?
Diky Reichmann
PROLOG - Nieco mimo konferencie
[*] Mgr. Jan Sluka <snipe(zv)mail.cybernet(tec)cz> - 21.9.1998 19:58:28
Zdravim,
matne si pamatuji, ze ve skole jsme meli 'Logicke programovani'
coz byl vlastne Prolog a delali jsme to v Unixu. Modul se
jmenoval tusim SWI Prolog, ale to nevim jiste.
S pozdravem
Mgr. Jan Sluka, snipe(zv)mail.cybernet(tec)cz
=?ISO-8859-2?Q?Pavel_Koutn=FD?= p�e:
>
> Caute vsetci, predom sa ospravedlnujem za moju otazku, nepatri sem, ale nevie niekto o nejakom volnom PROLOG-u ??? (Programovaci jazyk, ale to asi viete),
>
> Dik,
>
> Pavel
Predani nastaveni tiskarny z jedne DLL do druhe
[*] Pavel Malinsk� <spiderland(zv)usa(tec)net> - 21.9.1998 23:01:40
Zdravim vsechny,
nevite nekdo, prosim, jak na nasledujici problem?
Z aplikace si zavolam DLL a v ni provedu nastaveni tiskarny.
Toto nastaveni si knihovna v poradku drzi, ale pouze pro sebe.
Tisk probiha podle nastaveni, kterre jsem nadefinoval - dobra
to by se mi libilo. Ovsem naloaduju si druhou DLL (ta prvni stale bezi)
a z ni opet zavolam nastaveni tiskarny, ale jako default se mi nabidne
systemove nastaveni. Nemuzu prijit na to, jakym zpusobem predat
nastaveni tiskarny z prvni DLL do te druhe.
Jinak receno zabranit vytvoreni vlastni instance nast. tiskarny a pouziti
instance, kterou si vytvorila ta prvni DLL.
Dulezite: bohuzel to potrebuju udelat v D1.
Dik za kazdy napad
S pozdravem
==============================
> Pavel Malinsky; spiderland(zv)usa.net <
==============================
Home banking
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 21.9.1998 23:02:40
> To ze nelze udelat univerzalni sw pro homebanking je mi jasne (to by se
> ty banky musely nejak domluvit). Spise jsem chtel obejit onen klientsky
Banky se nikdy nedomluvi, to vubec nehrozi.
> sw od banky (jasne ze by to banka musela asi nejak schvalit) a mit vse v
Banka by ti to vubec nemusela schvalovat, protoze bys jim to ani nemusel
rikat, ze si to posilas svym programem - pokud bys to delal tak, jak oni
vyzaduji, coz ani jinak nejde, pak by to prece nepoznali.
> jednom programu. Momentalne mi jde o IPB, mam tam ctyri ucty a nebavi me
> furt courat do banky. Ale nechce se mi davat 7.000 Kc za software pro
IPB chce za software 7 tisic? Co ja vim, tak pred casem to pro ne
delal ComTech s tim, ze software daval zdarma a uctoval si "jen"
dopravne na instalaci, coz delalo kolem 12 tisic z Brna do Usti.
Nicmene nabizeli, ze smluvi vice klientu na jeden den a pak to
nejak rozdeli...
> odeslani a prijem souboru do banky, navic kdyz z nej pouziju jen
> ctvrtinu funkci. Nic jineho mi banka nenabidla. Nemate nekdo prehled o
Tak jdi do jine banky, kdyz ti tahle nevyhovuje...
> firmach, ktere delaji pro banky ony klienty pro prenos dat
> klient-banka-klient?
Mam prehled, uz jsem ti to psal. Ale nemyslim si, ze je to vhodne
do konference o Delphi. Mimochodem, co se tyka firem, ktere delaji
homebankingove systemy (ComTech, A&&L, Unicom apod.) ti tezko
budou predavaz know-how, na kterem vydelavaji, to ani nemusis
zkouset.
Jak jsem ti uz psal, mas dve moznosti. Bud si vyber takovou banku,
ktera nema poradny homebanking, ale bastl, coz je treba Komercni
banka. Tam si snadno PGP zakomponujes do sveho programu a normalne
si udelas komunikacni programek, protoze to prijimaji pres BBS.
Ale pokud mas banku, ktera ma opravdovy homebanking (Union banka,
IPB banka, Pragobanka, CSOB, Univerzal banka, byvala Foresbank apod.),
pak na to zapomen, protoze (a) ti nereknou presny format dat
a (b) to maji lepe zabezpecene (RSA+DES), coz se ti bude spatne
delat.
> P.S. Uplne nejlepsi by byla nejaka bankou certifikovana komponenta, to
> by se vsem delalo co?
Standardy jsou jasne, tady neni o cem diskutovat. Napriklad
ta Komercni banka pouziva textovy editor (textovy tvar vypisu),
normalni PGP a BBSMAN, ktery to tam formou BBS posle. Co se
tyka tech ostatnich, to nevim, jestli bys to od nich vyskemral,
mozna ano, mozna ne, mozna by se na to i dalo prijit. Ale
zeptam se takto - umis kodovat 512 bitovym RSA? Pokud ne, tak
nezacinej delat homebanking. Umis kodovat 64 bitovym DES?
Pokud ne, tak take nezacinej delat homebanking.
Muj software na homebanking stal asi 5,5 tisice, platim poplatek
asi 350 mesicne, i presto se to vyplati. Ma import, coz mi vyhovuje,
je to idealni. Chapu, ze by te mozna bavilo delat ten program,
ale myslim si, ze nez sezenes potrebne informace (pokud vubec)
a nez to naprogramujes, prodelas vice nez tech 7 tisic, co mas
zaplatit. Bez kvalitniho zabezpeceni nema takova vec smysl
a zabezpeceni je prave to, co te chrani pred zneuzitim treti
osobou. Dnes banky bezne nabizeji moznosti platby take pomoci
faxu, tak jestli nemas penize na homebanking, pouzij toto. Nebo
si zaloz ucet v Expandia bance, nabizi platby i pomoci Internetu
a mobilu, sice mesicni poplatek je mnohem vyssi nez jinde,
ale treba by ti to vyhovovalo...
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================PROLOG - Nieco mimo konferencie
[*] Robert Walaski <robert(zv)silesnet(tec)cz> - 21.9.1998 23:03:20
Taky jsme ve skole delali s Prologem. Jmenovalo se to Arity/Prolog a chodilo
to pod DOSem. Jestli je to volne? nevim
S pozdravem
Robert Walaski
__________________________
e-mail: robert(zv)silesnet(tec)cz
-----P�vodn� zpr�va-----
Od: Pavel Koutn� <koutny(zv)tkcmt.sk>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 21. z��� 1998 16:00
P�edm�t: PROLOG - Nieco mimo konferencie
>Caute vsetci, predom sa ospravedlnujem za moju otazku, nepatri sem, ale
nevie niekto o nejakom volnom PROLOG-u ??? (Programovaci jazyk, ale to asi
viete),
>
>Dik,
>
>Pavel
InterbaseProLinuch
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 22.9.1998 00:57:32
On Wed, Sep 09, 1998 at 08:21:00AM +0200, RADIK(zv)p15.monet(tec)cz wrote:
> Nevim jestli to uvedu presne, ale me to fungovalo bez nahravani dalsich
> souboru na PLNE instalaci Linuxu.
> Dle meho skromneho nazoru by ale pomohlo doinstalovat k novym glibc
> knihovnam (ktere jsou v RH5 implicitne) stare knihovny libc (byly v RH4)
> a jsou hlavne na CD k RH5.
>
> Ales
neni snad problem
rpm -i libc*
v adresari s RPMS na CD s 4.2, ne ?
milan sorm
-------------------------------------------------------------
Milan Sorm (aka John Popelnik) telefon: +420 5 41512348
FI MU, Botanicka 68a, Brno sorm(zv)informatics.muni(tec)cz
http://www.fi.muni(tec)cz/~sorm/ tel. domu: (05) 46211083
fingerprint: E4 78 1D A7 C5 2C F5 3F 83 A7 97 29 73 F7 17 63
Propojovani tabulek
[*] Michal KNEZ <michalknez(zv)rocketmail(tec)com> - 22.9.1998 04:18:10 -0700 (pdt)
Ahoj,
prave zacinam s databazemi v Delphi. Pouzivam
tabulky vytvorene v MS-Accessu. Pokousim se u nich o
propojeni Master-Detail (v kazde tabulce mam
celociselne identifikacni policko, a podle nich
tabulky propojuji), ale po spusteni formulare, na
kterem mam 2x DB-Grid (pro kazdou tabulku jeden) se
mi objevi chyba: EBDE runtime error: Non-blob column
requred for application...... nebo tak nejak. Prosim,
jestli se s timhle nekdo setkal, at mi poradi,
protoze ja nemuzu prijit na chybu a tyhle hlasce moc
nerozumim. Predem diky moc za radu, zacatecnik Michal KNEZ
_________________________________________________________
DO YOU YAHOO!?
Get your free (zv)yahoo.com address at http://mail.yahoo.com
datove typy v PCFAND-u a Oracle
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 22.9.1998 07:01:43
Ahoj damy a pani programatorky(i)
stojim pred problemem prevodu dosavadni aplikace psane v PCFAND-u, pozdeji v
Delphi3 s vyuzitim FAND ODBC na databazovy stroj ORACLE (nyni verze 7.2,
pozdeji to bude 8).
Bohuzel datove typy nejsou, v nekterych pripadech, vubec kompatibilni.
Zajmalo by mne, jaky je nazor cteneho publika na nasledujici prevody:
FAND:
F,m.n ... ��slo, m, n ud�v� po�et m�st p�ed a za ��rkou,
rozsah ��sla je a� 18 m�st, z toho je 11 platn�ch m�st
ve verzi pro matematick� koprocesor 15 platn�ch m�st
==>ORACLE number(m+n,n) zde je to nastesti zcela jasne
FAND:
R ... re�ln� ��slo v pohybliv� ��dov� ��rce, intern� ulo�en
jako (Pascal) typ real v 6 bytech.
==>ORACLE number (12,6) tento typ v aplikaci nepouzivam
FAND:
A,n ... znakov� �et�zec, n ud�v� d�lku (a� 255 znak�)
==>ORACLE char(n) opet jeden z jasnych prevodu
FAND:
N,n ... ��seln� �et�zec, n ud�v� d�lku (a� 79 znak�)
==>ORACLE char(n) a v aplikaci (nebo ulozene procedure) hlidat zadani pouze
ciselnych znaku a zleva
doplnovat nulama
FAND:
D ... datum s implicitn� maskou 'DD.MM.YY'
==>ORACLE date opet zceka jasne (pozn. ackoliv interni zapis je u obou
databazi rozdilny, navenek se
chovaji zcela stejne)
FAND:
B ... logick� typ (pravda=true='A', nepravda=false='N')
==>ORACLE tezko rict. Muze to byt number(1) a aplikaci osetrovat stav 0-1,
nebo to muze byt primo RAW(pocet tecto typu na radku tabulky) a rozebirat jej
po bitech,
nebo to muze byt char(3) a aplikaci osetrit zapis 'ano' - 'ne'
nebo jeste neco uplen jineho
FAND:
T ... voln� text (form�tovan� text maxim. d�lky 65 000 B)
==>ORACKE long opet zcela jasne
Dekuji za trpelivost s niz jste docetli zpravu az do konce :-)
===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
Shareware - off-topic
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 22.9.1998 07:25:11
Zdravim,
mam off-topic dotaz. Chtel bych sirit sve programy jako shareware. Co je
k tomu zapotrebi (zivnostensky list, apod)?
.........................................................
. Libor Krayzel .
. Czech Television, Studio Ostrava .
. Dvorakova 18, 702 00 Ostrava .
. Telephone: 069-6201375 .
. URL: http://members.tripod.com/~sovtop .
. E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
. Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
. E-mail2: mailto:sovtop(zv)email(tec)cz .
.........................................................
Shareware - off-topic
[*] Pavel Kral <kral(zv)afx(tec)cz> - 22.9.1998 09:47:01
ahoj
Jako autor programu jej muzes prodavat bez zivnostenskeho listu.
Autor muze prodavat bez jakehokoliv povoleni, takze krome
samotneho programu nepotrebujes nic.
Pavel Kral
-----Original Message-----
>Zdravim,
>
>mam off-topic dotaz. Chtel bych sirit sve programy jako shareware. Co je
>k tomu zapotrebi (zivnostensky list, apod)?
>
>..........................................................
>.. Libor Krayzel .
LoadLibrary na NT
[*] Pavel Kral <kral(zv)afx(tec)cz> - 22.9.1998 10:13:29
Zdravim programatory a zvlast programatorky.
Narazil jsem na zvlastni problem pri dynamickem natahovani
DLL s pomoci LoadLibrary.
Na NT mi to pri neuspesnem natazeni knihovny hlasi
cosi jako ze natazeni knihovny probehlo neuspesne.
Nedari se mi presvedcit program, aby nezobrazoval ono
hlaseni, dokonce ani kdyz je funkce LoadLibrary
v bloku Try - except. Ani to neskoci do bloku except.
Proste funkce projde, vrati nulu, ale zobrazi hlaseni,
ze byla neuspesna. Podle vseho se nejedna o vyjimku.
Nevi nekdo z vas, co s tim? Neda se nekde nastavit nejaky
parametr, aby se pri neuspechu nezobrazovalo zadne hlaseni?
Diky
Pavel Kral
Home banking
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 22.9.1998 10:23:33
Petr Zahradnik wrote:
> IPB chce za software 7 tisic? Co ja vim, tak pred casem to pro ne
> delal ComTech s tim, ze software daval zdarma a uctoval si "jen"
> dopravne na instalaci, coz delalo kolem 12 tisic z Brna do Usti.
> Nicmene nabizeli, ze smluvi vice klientu na jeden den a pak to
> nejak rozdeli...
viz. http://www.com-tech(tec)cz
Jinak dik za vycerpavajici info ...
Mac
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================datove typy v PCFAND-u a Oracle
[*] jk(zv)tzus(tec)cz - 22.9.1998 10:35:28
>Delphi3 s vyuzitim FAND ODBC na databazovy stroj ORACLE (nyni verze 7.2,
>pozdeji to bude 8).
>Bohuzel datove typy nejsou, v nekterych pripadech, vubec kompatibilni.
>
>Zajmalo by mne, jaky je nazor cteneho publika na nasledujici prevody:
>
>FAND:
>F,m.n ... cislo, m, n udava pocet mist pred a za carkou,
> rozsah cisla je az 18 mist, z toho je 11 platnych mist
> ve verzi pro matematicky koprocesor 15 platnych mist
> ==>ORACLE number(m+n,n) zde je to nastesti zcela jasne
Jasne, ale muzete vyuzit vysi presnosti Oracle (az 38 mist).
>FAND:
>R ... realne cislo v pohyblive radove carce, interne ulozen
> jako (Pascal) typ real v 6 bytech.
> ==>ORACLE number (12,6) tento typ v aplikaci nepouzivam
>
Totez.
>FAND:
>A,n ... znakovy retezec, n udava delku (az 255 znaku)
> ==>ORACLE char(n) opet jeden z jasnych prevodu
>
Pri vetsi delce retezcu stoji za zvazeni VARCHAR2(pocet_znaku)
>FAND:
>N,n ... ciselny retezec, n udava delku (az 79 znaku)
> ==>ORACLE char(n) a v aplikaci (nebo ulozene procedure) hlidat zadani
>pouze ciselnych znaku a zleva doplnovat nulama
Totez.
>FAND:
>B ... logicky typ (pravda=true='A', nepravda=false='N')
> ==>ORACLE tezko rict. Muze to byt number(1) a aplikaci osetrovat stav 0-
>1,
> nebo to muze byt primo RAW(pocet tecto typu na radku tabulky) a rozebirat
>jej
>po bitech,
> nebo to muze byt char(3) a aplikaci osetrit zapis 'ano' - 'ne'
> nebo jeste neco uplen jineho
Doporucuji spise char(1) s hodnotou 0 a 1 nebo neco podobneho. RAW se nehodi
pro Oracle 8 :
The RAW and LONG RAW datatypes are provided for backward compatibility with
existing applications. For new applications,you should use the BLOB and
BFILE datatypes for large amounts of binary data.
>FAND:
>T ... volny text (formatovany text maxim. delky 65 000 B)
> ==>ORACKE long opet zcela jasne
Obavam se ze pokud budete v budoucnu pouzivat pouze Oracle 8 je lepsi se
drzet nasledujiciho doporuceni z dokumentace:
The LONG datatype is provided for backward compatibility with existing
applications. In new applications, you should use CLOB and NCLOB datatypes
for large amounts of character data.
Jan Kadlecek
HTK Pro s.r.o.
Ceske resource pro Orpheus V2.17
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.9.1998 10:40:01
> Touto cestou se na Vas vsechny obracim, zda nevite existuji-li pro
> Orpheus V2.17 ceske resource (nebo RC soubory);velmi nutne bych je
> potreboval. Dekuji za jakoukoliv odpoved.
Soubor RC ti asi nepomuze, texty jsou v souborech STR, pak se
prekladaji pomoci Resource Manageru a nakonec pomoci Resource
Compileru, aby z toho vylezl RES. Je jednoduche prelozit texty
v STR souboru a pak to takto udelat. Kazdy si to dela vetsinou
sam.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================datove typy v PCFAND-u a Oracle
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 22.9.1998 11:11:25
> >FAND:
> >N,n ... ciselny retezec, n udava delku (az 79 znaku)
> > ==>ORACLE char(n) a v aplikaci (nebo ulozene procedure) hlidat zadani
> >pouze ciselnych znaku a zleva doplnovat nulama
>
> Totez.
Jeste jeden dotaz. Slo by to delat i ulozenym tiggerem? Co je vyhodnejsi?
> >FAND:
> >T ... volny text (formatovany text maxim. delky 65 000 B)
> > ==>ORACKE long opet zcela jasne
>
> Obavam se ze pokud budete v budoucnu pouzivat pouze Oracle 8 je lepsi se
> drzet nasledujiciho doporuceni z dokumentace:
> The LONG datatype is provided for backward compatibility with existing
> applications. In new applications, you should use CLOB and NCLOB datatypes
> for large amounts of character data.
Rozumim-li tomu dobre, tak vlastne MEMO polozky ORACLE definovat jako CLOB
Diky
===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
Home banking
[*] Mgr. Petr Kellner <kellner(zv)praktik(tec)cz> - 22.9.1998 11:38:52
----------
Od: Martin Kubecka[SMTP:martin.kubecka(zv)amenit(tec)cz]
Odesl�no: 21. z��� 1998 15:54
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Home banking
To ze nelze udelat univerzalni sw pro homebanking je mi jasne (to by se
ty banky musely nejak domluvit). Spise jsem chtel obejit onen klientsky
sw od banky (jasne ze by to banka musela asi nejak schvalit) a mit vse v
jednom programu. Momentalne mi jde o IPB, mam tam ctyri ucty a nebavi me
furt courat do banky. Ale nechce se mi davat 7.000 Kc za software pro
odeslani a prijem souboru do banky, navic kdyz z nej pouziju jen
ctvrtinu funkci. Nic jineho mi banka nenabidla. Nemate nekdo prehled o
firmach, ktere delaji pro banky ony klienty pro prenos dat
klient-banka-klient20
Nahl�dl jsem zat�m pod pokli�ku 2 HomeB dvou ruznych bank a i ruznych dodavatelu a oba syst�my pot�ebovali krome klienta na mem pocitaci jeste povoleni vstupu na bankovni server, tedy bez smlouvy s bankou, by mi byl jakykoliv SW na nic, protoze se autorizuje uz samotny vstup na jejich server, krome dalsich el. podpisu dale zasilanych prikazu a.j. Takze napr., kdyz od jineho klienta te same banky ziskas SW, stejne se na svuj ucet nedostanes.
Mgr. Petr Kellner
Praktik SW, spol. s r.o. Dom� : Na Z�kop� 27
V. Outraty 7, Prost�jov, 796 00 Olomouc, 773 00
Tel : 0508/365583 Tel : 068/5314129
Fax : 0508/365512 Tel : 0603/457623
e-mail: kellner(zv)praktik(tec)cz pekol(zv)praktik(tec)cz
Web: www.praktik(tec)cz
e-mail pro velmi kr�tk� zpr�vy: kellner.mobil(zv)sms.paegas(tec)cz
Osahani procesu po siti
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 22.9.1998 11:55:20
Neco podobneho jsem resil i pro nase aplikace.
Nakonec z toho byl licencni server, ktery povoluje spusteni aplikace,
hlida celkovy pocet, hlida spusteni z jedne IP adresy, umoznuje na dalku
aplikaci ukoncit ci restartovat windows, resi take problem semaforu.
Puvodne jsem to chtel mit nezavisle na sitovem prostedi, ale nenasel
jsem cestu, kudy na to. Takze nyni pouzivame TCP/IP a komunikaci
pomoci komponent od F. Piette. Ma to jeste mouchy:
Napriklad nelze soucasne komunikovat na jedne stanici s vice programy -
- port TCP je jiz otevren a zatim se mi nedari ho nejak "sdilet". To snad
casem nejak vyresim.
S pozdravem Zdenek
---------------------------------------------------------------
: o__o Zdenek Sraier e-mail: sraierzd(zv)czn(tec)cz :
: ( o o) http://users(tec)czn(tec)cz/~sraierzd/ :
: (. .) Stranky Potapecske http://www.byll(tec)cz/scuba/ :
---------------------------------------------------------------
This message was delivered using 100% recyclable electrons.
----------
> Odes�latel: Petr Brant <pbrant(zv)softhome.net>
> Komu: 'Konference Delphi' <delphi(zv)pinknet(tec)cz>
> P�edm�t: Osahani procesu po siti
> Datum: 14. z��� 1998 11:15
>
> Ahoj vsem,
>
> resime momentalne problem: na pocitacich v siti bezi nekolik (nasich)
> programu. Jde jen o to, aby uzivatel mohl v siti spustit jen tolik
> programu, kolik si zakoupil licenci. Tusite nekdo, co s tim ? (Resime to
> sice v C++, ale i reseni v Delphi snad bude mit svou cenu).
>
> Diky za vsechny napady a odpovedi
>
> *************************************************************************
> Petr Brant [pbrant(zv)softhome.net]
> programator v MSVC++, obcas Delphi nebo Visual Basic
> *************************************************************************PROLOG - Nieco mimo konferencie
[*] Pavel Koutn� <koutny(zv)tkcmt.sk> - 22.9.1998 11:59:20
Ja by som mal mat coskoro predmety 'Umela inteligencia' a 'Expertne systemy' no a tam ma byt PROLOG, preto si ho chcem 'omakat' este predtym.
Pavel
-----P�vodn� zpr�va-----
Od: Mgr. Jan Sluka [SMTP:snipe(zv)mail.cybernet(tec)cz]
Odesl�no: 21. september 1998 19:58
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: PROLOG - Nieco mimo konferencie
Zdravim,
matne si pamatuji, ze ve skole jsme meli 'Logicke programovani'
coz byl vlastne Prolog a delali jsme to v Unixu. Modul se
jmenoval tusim SWI Prolog, ale to nevim jiste.
S pozdravem
Mgr. Jan Sluka, snipe(zv)mail.cybernet(tec)cz
=?ISO-8859-2?Q?Pavel Koutn=FD3D p�e:
>
> Caute vsetci, predom sa ospravedlnujem za moju otazku, nepatri sem, ale nevie niekto o nejakom volnom PROLOG-u ??? (Programovaci jazyk, ale to asi viete),
>
> Dik,
>
> Pavel
I/O error 32
[*] Simicek Pavel <simicek(zv)uvss.fme.vutbr(tec)cz> - 22.9.1998 12:00:19
Ahoj vsem!
Nevite prosim vas nekdo co konkretne znamena chyba I/O error 32.
Snazim se kopirovat hlavicku jednoho souboru do druheho asi takhle:
var Zdroj: file;
Cil: file;
begin
AssignFile(Zdroj, PuvodniJmeno);
AssignFile(Cil, NoveJmeno);
Reset(Zdroj, 1);
Rewrite(Cil, 1);
......... atd
a na radku Reset(Zdroj, 1); mi naskoci tato chyba.
Pritom soubor existuje. Mam za to ze to nejak souvisi s tim ze je
tento soubor jeste otevren v MediaPlayer pro prehravani, jedna se o
WAV. Jinak si to neumim vysvetlit.
Bohuzel se mi nepodarilo nikde najit co tato chyba znamena, v helpu
jsou I/O chyby vedeny az od 100.
Dekuji za kazdou radu a pokud byste i pripojili navod kde se daji najit
chyby nepublikovane v helpu, byl bych vam nesmirne zavazan.
Diky Pavel
-----------------------------------------------------------
Ing. Pavel Simicek
UVSSaR, FS, VUT Brno, Technicka 2, 616 69
Tel. 05/41142461
e-mail simicek(zv)uvss.fme.vutbr(tec)cz
-----------------------------------------------------------
Vice ikon v EXE
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 22.9.1998 12:14:18
Srdecne zdravim,
chtel bych do PROJECT1.EXE umistit vice ikon: ikona aplikace, ikona dokumentu, ...
Zkousel jsem editovat PROJECT1.RES a pridat tam ikonu. Ale tento soubor
se asi pri ulozeni projektu prepisuje, ikona zmizela.
Kam ikonu pridat, aby bylo mozne opakovane PROJECT editovat, ukladat a kompilovat.
Nechce se mi po kazde kompilaci prilinkovavat na konec EXE ikonu,
pokud to vubec jde.
S pozdravem Zdenek
---------------------------------------------------------------
: o__o Zdenek Sraier e-mail: sraierzd(zv)czn(tec)cz :
: ( o o) http://users(tec)czn(tec)cz/~sraierzd/ :
: (. .) Stranky Potapecske http://www.byll(tec)cz/scuba/ :
---------------------------------------------------------------
This message was delivered using 100% recyclable electrons.
Problem s MEMO
[*] Karel Chmel <kchmel(zv)csob(tec)cz> - 22.9.1998 12:21:03
Ja bych navrhoval zpracovavat bez posouvani kurzoru a jednotlive radky ziskavat
pres Memo.Lines a v ramci jednotlivych radku uz k romu pristupovat jako k typu string.
Karel
----------
Odes�latel: Ing. J�n Kuch�r <kuchar(zv)tuke.sk>
Komu: Delphi <delphi(zv)pinknet(tec)cz>
P�edm�t: Problem s MEMO
Datum: 16. z��� 1998 10:33
Caute
�
Mam nasledujuci problem. Potrebujem aby sa mi v komponente MEMO posuval
kurzor vzdy o jeden znak a zistil ake pismeno sa na tej danej pozicii
nachadza a neviem ako na to. Beriem vsetky redy.
������������������������������������������������������������������������
��������������� Dik
Ing. J�n Kuch�r
Katedra inv�ci� a rein�inieringu
SjF TU Ko�ice
Letn� 9
040 01 Ko�ice
E-mail : kuchar(zv)tuke.sk Neco pro damy ;) (fwd)
[*] Liane BBS <bbs(zv)edulib(tec)cz> - 22.9.1998 12:29:26
*** Forwarded file follows ***
Posted By: Suzanne (cokoli z formely :)) on 'CZaddresses'
Title: Neco pro damy ;)
Date: Tue Aug 25 10:16:04 1998
Na postcardech pribyla dalsi sekce, tentokrat cilena na zeny :)
http://www.postcard(tec)cz/Lide/Erotika/Pro_zeny/
WinErr 16547: LPT1 not found. Use backup. (PENCIL & PAPER.SYS)
SuE DirectX a Delphi 3 (fwd)
[*] Liane BBS <bbs(zv)edulib(tec)cz> - 22.9.1998 12:32:04
*** Forwarded file follows ***
Posted By: JOJO (JOJO) on 'CZaddresses'
Title: DirectX a Delphi 3
Date: Sat Sep 19 19:17:16 1998
Cau,
Na www strance http://www.stud.fee.vutbr(tec)cz/~xholan00
najdete v oddeleni DirectX muj projekt orzhrani pro directX napsane v Delphi
3,dale jsou je tam soubor, ktery obsahuje ruzne sesbirane stranky s
informacemi o DirectX.
Jojo
-----------------------------------------------------------------------------
WWW stranka : http://www.stud.fee.vutbr(tec)cz/~xholan00
e-mail : xholan00(zv)stud.fee.vutbr(tec)cz
-----------------------------------------------------------------------------
datove typy v PCFAND-u a Oracle
[*] jk(zv)tzus(tec)cz - 22.9.1998 12:32:06
>> >FAND:
>> >N,n ... ciselny retezec, n udava delku (az 79 znaku)
>> > ==>ORACLE char(n) a v aplikaci (nebo ulozene procedure) hlidat
>zadani
>> >pouze ciselnych znaku a zleva doplnovat nulama
>>
>> Totez.
>Jeste jeden dotaz. Slo by to delat i ulozenym tiggerem? Co je vyhodnejsi?
Slo.
U formatovani vstupu (ciste subjektivni nazor) bych dal prednost uprave na
strane klienta napr. OnValidate u TField nebo pouziti komponenty, ktera umi
LeftPadCh na zadavany text (myslim ze to umi Orpheus nebo nejaka freeware
komponenta). Trigry a procedury bych pouzil ve slozitejsich pripadech, ktere
spis souviseji s integritou dat nez s formatem sloupce v tabulce.
>> >FAND:
>> >T ... volny text (formatovany text maxim. delky 65 000 B)
>> > ==>ORACKE long opet zcela jasne
>>
>> Obavam se ze pokud budete v budoucnu pouzivat pouze Oracle 8 je lepsi se
>> drzet nasledujiciho doporuceni z dokumentace:
>> The LONG datatype is provided for backward compatibility with existing
>> applications. In new applications, you should use CLOB and NCLOB
>datatypes
>> for large amounts of character data.
>Rozumim-li tomu dobre, tak vlastne MEMO polozky ORACLE definovat jako CLOB
Presne tak.
Jan Kadlecek
HTK Pro s.r.o.Shareware - off-topic
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 22.9.1998 12:33:10
Krayzel Libor wrote:
> mam off-topic dotaz. Chtel bych sirit sve programy jako shareware. Co je k
> tomu zapotrebi (zivnostensky list, apod)?
Predevsim vlastni nastroj (Delphi, ...). Na programovani neni
zivnostak treba, dokonce by ti ho na tohle ani nemeli dat. Jenom
musis priznat prijmy z utorske cinnosti (jestli nejake budes mit).
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Problem s MEMO
[*] Branislav Danko <danko(zv)ns.basl.sk> - 22.9.1998 12:48:07
Nerob to posunom kurzora v komponente, je to pomale a zle to vyzera, ked ti tam blika kurzor. Predsa obsah riadku X mas v MemoXX.Lines[X].Text a zistit Y-ty znak v riadku X teda dokazes cez MemoXX.Lines[X].Text[Y]. Teda ak v cykle prejdes vsetky riadky (je ich MemoXX.Lines.Count) a aplikujes vyssie uvedene vies zistit znak na lubovolnej pozicii. No ak by si predsa chcel presunut kurzor na nejaku poziciu [X,Y] v texte musis pouzit Windows API, lebo z Delphi to nejde.
Windows API:
SendMessage(MemoXX.Handle, WM LINESCROLL, X, Y);
SendMessage(MemoXX.Handle, WM SCROLLCARET, 0, 0);
... dufam ze by to takto mohlo ist
P.S.: Pozor v memo sa riadky cisluju od nuly ...
Cau Brano
-----P�vodn� zpr�va-----
Od: Ing. J�n Kuch�r [SMTP:kuchar(zv)tuke.sk]
Odesl�no: streda, september 16, 1998 10:34
Komu: Delphi
P�edm�t: Problem s MEMO
Caute
Mam nasledujuci problem. Potrebujem aby sa mi v komponente MEMO posuval kurzor vzdy o jeden znak a zistil ake pismeno sa na tej danej pozicii nachadza a neviem ako na to. Beriem vsetky redy.
Dik
Ing. J�n Kuch�r
Katedra inv�ci� a rein�inieringu
SjF TU Ko�ice
Letn� 9
040 01 Ko�ice
E-mail : kuchar(zv)tuke.sk
<<Soubor: ATT00000.html>>
Shareware - off-topic
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 22.9.1998 13:08:32
> Predevsim vlastni nastroj (Delphi, ...). Na programovani neni
> zivnostak treba, dokonce by ti ho na tohle ani nemeli dat. Jenom
> musis priznat prijmy z utorske cinnosti (jestli nejake budes mit).
V danovem priznani u zamestnavatele, kde mam trvaly pomer?Shareware - off-topic
[*] TucekR(zv)p15.monet(tec)cz - 22.9.1998 13:15:00
TO BYCH SES TEDA DIVIL
na prodej softu musis mit zivnostensky list jinak je to nedovolene
obohacovani a danovy unik.
TRT
----------
Od: Pavel Kral
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Shareware - off-topic
Datum: 22. z��� 1998 9:47
ahoj
Jako autor programu jej muzes prodavat bez zivnostenskeho listu.
Autor muze prodavat bez jakehokoliv povoleni, takze krome
samotneho programu nepotrebujes nic.
Pavel Kral
-----Original Message-----
>Zdravim,
>
>mam off-topic dotaz. Chtel bych sirit sve programy jako shareware. Co
je
>k tomu zapotrebi (zivnostensky list, apod)?
>
>..........................................................
>.. Libor Krayzel .
Home banking
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 22.9.1998 13:40:59
Hi,
no samozrejme, cos jineho cekal? Ze si jen tak zavolas do banky a nechas
si zapnout nejaky vzdaleny pristup? Kdepak, oni maji lobystickou smlouvu
s nejakou SW firmou a bud si to koupis (a pak si treba udelej neco
sveho), nebo chod do banky pesky.... A za vsechno muzou zase jenom
prachy (a pritom je porad nikdo nema :-)
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: kellner(zv)praktik(tec)cz [SMTP:kellner(zv)praktik(tec)cz]
> Odesl�no: 22. z��� 1998 11:39
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Home banking
>
>
>
> ----------
> Od: Martin Kubecka[SMTP:martin.kubecka(zv)amenit(tec)cz]
> Odesl�no: 21. z��� 1998 15:54
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Home banking
>
> To ze nelze udelat univerzalni sw pro homebanking je mi jasne
> (to by se
> ty banky musely nejak domluvit). Spise jsem chtel obejit onen
> klientsky
> sw od banky (jasne ze by to banka musela asi nejak schvalit) a
> mit vse v
> jednom programu. Momentalne mi jde o IPB, mam tam ctyri ucty a
> nebavi me
> furt courat do banky. Ale nechce se mi davat 7.000 Kc za
> software pro
> odeslani a prijem souboru do banky, navic kdyz z nej pouziju jen
> ctvrtinu funkci. Nic jineho mi banka nenabidla. Nemate nekdo
> prehled o
> firmach, ktere delaji pro banky ony klienty pro prenos dat
> klient-banka-klient?
>
> Nahl�dl jsem zat�m pod pokli�ku 2 HomeB dvou ruznych bank a i ruznych
> dodavatelu a oba syst�my pot�ebovali krome klienta na mem pocitaci
> jeste povoleni vstupu na bankovni server, tedy bez smlouvy s bankou,
> by mi byl jakykoliv SW na nic, protoze se autorizuje uz samotny vstup
> na jejich server, krome dalsich el. podpisu dale zasilanych prikazu
> a.j. Takze napr., kdyz od jineho klienta te same banky ziskas SW,
> stejne se na svuj ucet nedostanes.
>
>
> Mgr. Petr Kellner
> Praktik SW, spol. s r.o. Dom� : Na Z�kop� 27
> V. Outraty 7, Prost�jov, 796 00 Olomouc, 773 00
> Tel : 0508/365583 Tel :
> 068/5314129
> Fax : 0508/365512 Tel :
> 0603/457623
> e-mail: kellner(zv)praktik(tec)cz pekol(zv)praktik(tec)cz
> Web: www.praktik(tec)cz
> e-mail pro velmi kr�tk� zpr�vy: kellner.mobil(zv)sms.paegas(tec)cz
> Shareware - off-topic
[*] Pavel Kral <kral(zv)afx(tec)cz> - 22.9.1998 13:53:04
Pokud mas jiny prijem nez ze zamestnani, tak musis podavat
danove priznani na financni urad.
-----Original Message-----
From: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
To: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Date: 22. z��� 1998 13:13
Subject: RE: Shareware - off-topic
>> Predevsim vlastni nastroj (Delphi, ...). Na programovani neni
>> zivnostak treba, dokonce by ti ho na tohle ani nemeli dat. Jenom
>> musis priznat prijmy z utorske cinnosti (jestli nejake budes mit).
>
>V danovem priznani u zamestnavatele, kde mam trvaly pomer?
>
>
Volani LoadLibrary
[*] Pavel Kral <kral(zv)afx(tec)cz> - 22.9.1998 14:07:01
Zdravim programatory a zvlast programatorky.
Narazil jsem na zvlastni problem pri dynamickem natahovani
DLL s pomoci LoadLibrary.
Na NT mi to pri neuspesnem natazeni knihovny hlasi
cosi jako ze natazeni knihovny probehlo neuspesne.
Nedari se mi presvedcit program, aby nezobrazoval ono
hlaseni, dokonce ani kdyz je funkce LoadLibrary
v bloku Try - except. Ani to neskoci do bloku except.
Proste funkce projde, vrati nulu, ale zobrazi hlaseni,
ze byla neuspesna. Podle vseho se nejedna o vyjimku.
Nevi nekdo z vas, co s tim? Neda se nekde nastavit nejaky
parametr, aby se pri neuspechu nezobrazovalo zadne hlaseni?
Diky
Pavel Kral
Shareware - off-topic
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 22.9.1998 14:33:58
Krayzel Libor wrote:
>
> > Predevsim vlastni nastroj (Delphi, ...). Na programovani neni
> > zivnostak treba, dokonce by ti ho na tohle ani nemeli dat. Jenom
> > musis priznat prijmy z utorske cinnosti (jestli nejake budes mit).
>
> V danovem priznani u zamestnavatele, kde mam trvaly pomer?
Danove priznani za tebe vyplni zamastnavatel jenom kdyz
nemas zadny dalsi prijem (a musis mu to podepsat, ze
takovy prijem nemas). Pokud jsi mel jakykoliv jiny zdanitelny
prijem, musis pozadat sveho zamestnavatele o vystaveni
potvrzeni o prijmu a vyplnit si danove proznani sam. A to
potvrzeni k tomu das jako prilohu. Stejne musis postupovat
kdyz mas treba nejaky vedlejsak a pod.
--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/57805
038/7512861
Shareware - off-topic
[*] Ing. Jindrich Danihelka <jidas(zv)mbox.vol(tec)cz> - 22.9.1998 14:46:44
TucekR(zv)p15.monet(tec)cz wrote:
>
> TO BYCH SES TEDA DIVIL
>
> na prodej softu musis mit zivnostensky list jinak je to nedovolene
> obohacovani a danovy unik.
>
> TRT
Pokud prodavam a sirim programy jako autor, tak to delam
podle autorskeho zakona a ne podle zivnostenskeho zakona.
Na to zadny zivnostensky list mit nemusim. Danovy unik by to byl,
kdybych prijmy, ktere z toho mam neprihlasil ke zdaneni.
A k tomu, abych prihlasil prijem ke zdaneni nemusim mit zivnost
(prijmy podle autorskeho zakona, z pronajmu, prodej prebytku z
vlastni zahrady ... ... ...).
Jina situace je, kdybych prodaval programy, ktere napsal
nekdo jiny nebo ke svym programum poskytoval (a uctoval) jeste
nejake doplnkove sluzby (instalace, skoleni, placeny Hot Line a tak)
--
Ing. Jindrich Danihelka
E-Mail jidas(zv)mbox.vol(tec)cz
Tel. 038/57805
038/7512861
Shareware - off-topic
[*] Pavel Kral <kral(zv)afx(tec)cz> - 22.9.1998 14:56:08
Zivnostensky list nesouvisi s obohacovanim. Kdyz mas prijem,
musis podavat danove priznani a platit dan, pokud neni od dane
osvobozen, bez ohledu na to, zda mas zivnostensky list ci nikoli.
Zivnostensky list je zapotrebi na prodej jineho nez vlastniho softu.
Ale urcite nebude na skodu mit ZL, protoze mnozi ziji v domneni,
ze ho mit musis, a nevymluvis to ani nekterym urednikum.
Pavel Kral
-----Original Message-----
TO BYCH SES TEDA DIVIL
na prodej softu musis mit zivnostensky list jinak je to nedovolene
obohacovani a danovy unik.
TRT
Shareware - off-topic
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 22.9.1998 15:06:16
> -----P�vodn� zpr�va-----
> Od: TucekR(zv)p15.monet(tec)cz [SMTP:TucekR(zv)p15.monet(tec)cz]
> Odesl�no: 22. z��� 1998 13:15
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Shareware - off-topic
>
> TO BYCH SES TEDA DIVIL
>
> na prodej softu musis mit zivnostensky list jinak je to nedovolene
> obohacovani a danovy unik.
>
> TRT
>
Podle vyjadreni bab od nas ze zivnostnaku pokud prodavas POUZE VLASTNI soft,
podnikas podle autorskeho zakona ==> zadne opravneni nepotrebujes.
Prijmy samozrejme na konci roku danis. Tento zpusob prodeje ma jeste dalsi
vyhodu ze nepotrebujes povoleni od zamestnavatele k podnikani ve stejnem (nebo
podobnem) odboru jako Te plati.
Pokud ale do sveho baliku zahrnes soft od treti osoby (treba jen tim ze platis
za pouziti jejich komponent podle mnozstvi prodanych licenci, soucasti baliku
je jakysi runtime ..) musis mit minimalne volnou zivnost na poskytovani
software.
===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
Volani LoadLibrary
[*] Jan Stuchlik <xstuchli(zv)feld.cvut(tec)cz> - 22.9.1998 15:07:25
> Zdravim programatory a zvlast programatorky.
>
> Narazil jsem na zvlastni problem pri dynamickem natahovani
> DLL s pomoci LoadLibrary.
> Na NT mi to pri neuspesnem natazeni knihovny hlasi
> cosi jako ze natazeni knihovny probehlo neuspesne.
>
> Nedari se mi presvedcit program, aby nezobrazoval ono
> hlaseni, dokonce ani kdyz je funkce LoadLibrary
> v bloku Try - except. Ani to neskoci do bloku except.
> Proste funkce projde, vrati nulu, ale zobrazi hlaseni,
> ze byla neuspesna. Podle vseho se nejedna o vyjimku.
>
> Nevi nekdo z vas, co s tim? Neda se nekde nastavit nejaky
> parametr, aby se pri neuspechu nezobrazovalo zadne hlaseni?
>
> Diky
>
> Pavel Kral
viz WIN32 API help "SetErrorMode"
Sir
Probl�my s video kartou
[*] rk0w <rk0w(zv)rk.cesnet(tec)cz> - 22.9.1998 15:22:27
----------
Odes�latel: rk0w <rk0w(zv)rk.cesnet(tec)cz>
Komu: Delphi konference <delphi(zv)fwd(tec)cz>
P�edm�t: Probl�my s video kartou
Datum: 22. z��� 1998 15:16
HHHHHEEELLLLPPPP Pros�m pomo�te !!!!!
Pros�m v�echny odborn�ky i amat�ry o pomoc s instalac� Delphi 1.0 a 2.0.
Zakoupil jsem video kartu 4MB ATI All_in_Wonder a m�m v obou p��padech po instalaci DELPHI na li�t�ch komponent m�sto obr�zk� ikon rozmazan� fleky. Karta mak� se v��m mo�n�m jen s Delphi ne. V prost�ed� je vid�t Object inspector i v�e ostatn� jen ty ikony v palet�ch nejdou. V konferenci jsem ji� del�� dobu a v�m, �e se o tom probl�mu ji� psalo, ale vlastn� arch�v jsem minul� t�den smazal a ten na webu nic nena�el.
D�kuji
Roszynec Ji��
admin IT
e-mail: rk0w(zv)rk.cesnet(tec)cz
tel.zam.: 0445/336220
tel.dom�: 0445/23962
P.S. Bez Delphi je to kone�n� ..... ������
----------
ORACLE a prava
[*] Richard Valny <richard.valny(zv)oku-st(tec)cz> - 22.9.1998 15:24:23
Ahojky chlapci a devcata,
opet jsem narazil na dalsi problem pri prevadeni aplikace z lokalni na klient
server (Oracle).
Mam nektere soukrome tabulky, ktere nejso sdileny a uzvatel je ma ve svem home
adresari na Novellu ==> nikdo se mu do nich nemuze dostat (mimo supervisora)
Pokud aplikaci prevedu na Oracle jsou dve moznosti:
1) kazdemu uzivateli (v pripade potreby) necham zalozit tabulku pod nazvem
login_name_tabulka ke ktere dostane prava jen on sam a ostatni je mit nebudou
==> + nikdo nebude moci (napr. ODBC -> Excel) koukat jinym do tabulek
- bude v tom docela hokej co se tyce poctu tabulek
- pri ruseni uzvatele (propusten, umren, odejit ..) bude treba rucne
smazat
i jeho tabulky
2) data se budou cpat do stejne tabulky ve ktere bude sloupec login_name
vyplnovany (kdo by to byl rekl) jeho login name
==> + na serveru bude vzdy jen jedna tabulka daneho typu
+ jako spravce se mohu lehce kouknout na vyuzivani
- ve vsech selectech se musi pridat podminka na login_name
- bude mozne se kouknout do "cizich" dat pomoci ODBC
Obecne vice se mi libi varianta 2 pokud by slo nejak rozumne osetrit ono videni
jen svych radek odkudkoliv a ne jen z meho softu.
ODBC se nezbavim, nebot
a) nevlastnim Delphi Client-Server a zamenstnavatel mi jej z Vasich dani
nekoupi
b) rad bych nechal uzivatelum moznost vlastnich grafu napr. v Excelu
Dik
===========mozno pouzit PGP==============
Richard Valny richard.valny(zv)oku-st(tec)cz
Okresni urad Strakonice tel. 0342-441 l. 216
Smetanova 533 fax. 0342-21208
386 22 STRAKONICE FiDoNet 2:423/35
===========mozno pouzit PGP==============
Shareware - off-topic
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 22.9.1998 15:33:18
Panove, s danovym priznanim jdete na FU, ne do konference prosim. Diky.
Od rana tu nebyl zadny poradny prispevek, amater je asi na dovolene...
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Pavel Kral [SMTP:kral(zv)afx(tec)cz]
> Odesl�no: 22. z��� 1998 13:53
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Shareware - off-topic
>
> Pokud mas jiny prijem nez ze zamestnani, tak musis podavat
> danove priznani na financni urad.
>
> -----Original Message-----
> From: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
> To: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
> Date: 22. z��� 1998 13:13
> Subject: RE: Shareware - off-topic
>
>
> >> Predevsim vlastni nastroj (Delphi, ...). Na programovani neni
> >> zivnostak treba, dokonce by ti ho na tohle ani nemeli dat. Jenom
> >> musis priznat prijmy z utorske cinnosti (jestli nejake budes mit).
> >
> >V danovem priznani u zamestnavatele, kde mam trvaly pomer?
> >
> >
> Jedna instance DLL
[*] Jan Stuchlik <xstuchli(zv)feld.cvut(tec)cz> - 22.9.1998 15:49:37
Zdravym panove !
Mam takovy problem: bezi mi DLL knihovna, ktera kontroluje cas. V zadany
cas ma spustit z dane aplikace nejakou exportovanou funkci. Problem ale
je, ze bych potreboval, aby kdyz ta aplikace uz bezi, aby se nepoustela
nova instance, ale ta stara. Da se to nejak zaridit ? Nebo tady jenom
mlzim.
Sir
Shareware - off-topic
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 22.9.1998 16:04:53
> TO BYCH SES TEDA DIVIL
>
> na prodej softu musis mit zivnostensky list jinak je to nedovolene
> obohacovani a danovy unik.
Tvorba software a jeho prodej je autorska cinnost a zrovna jako
na malovani obrazu nepotrebujes zivnostensky list (ANI NEJDE
UDELAT, TO BY SES MOZNA ZASE DIVIL TY), stejne tak na tvorbu
a prodej programu podle autorskeho zakona. Neco jineho jsou
programy na zakazku a prodej nakoupenych programu.
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================Shareware - off-topic
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 22.9.1998 16:14:48
Zdravim ucastniky konference o prodeji SW!
Opravdu je to mimo misu, nechte toho. Diky.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Richard Valny [SMTP:richard.valny(zv)oku-st(tec)cz]
> Odesl�no: 22. z��� 1998 15:06
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Shareware - off-topic
>
>
> > -----P�vodn� zpr�va-----
> > Od: TucekR(zv)p15.monet(tec)cz [SMTP:TucekR(zv)p15.monet(tec)cz]
> > Odesl�no: 22. z��� 1998 13:15
> > Komu: delphi-l(zv)fwd(tec)cz
> > P�edm�t: Re: Shareware - off-topic
> >
> > TO BYCH SES TEDA DIVIL
> >
> > na prodej softu musis mit zivnostensky list jinak je to nedovolene
> > obohacovani a danovy unik.
> >
> > TRT
> >
> Podle vyjadreni bab od nas ze zivnostnaku pokud prodavas POUZE VLASTNI
> soft,
> podnikas podle autorskeho zakona ==> zadne opravneni nepotrebujes.
> Prijmy samozrejme na konci roku danis. Tento zpusob prodeje ma jeste
> dalsi
> vyhodu ze nepotrebujes povoleni od zamestnavatele k podnikani ve
> stejnem (nebo
> podobnem) odboru jako Te plati.
>
> Pokud ale do sveho baliku zahrnes soft od treti osoby (treba jen tim
> ze platis
> za pouziti jejich komponent podle mnozstvi prodanych licenci, soucasti
> baliku
> je jakysi runtime ..) musis mit minimalne volnou zivnost na
> poskytovani
> software.
>
> ===========mozno pouzit PGP==============
> Richard Valny richard.valny(zv)oku-st(tec)cz
> ROM-BIOS
[*] Martin Tichacek <martin_t(zv)mrp(tec)cz> - 22.9.1998 16:25:28
>nemate nekdo prosim zkusenosti se ctenim ROMBIOSU pod Windows
>nebo pod DOSem ?
no v DOSU je to bezpecnejsi :-)
BIOS je vlastne "jen" kus pameti (jeho kopie je mapovana v pameti nad c000h -
jak kdy/jak kde ale dulezite jsou vetsinou seg e000h a f000h)
// a romku treba v modemu takto precist nepujde
no a ve w95 aplikacich (treba z delphi3)
SYSMAN : (uryvek)
e000:0000 ? ROM-BIOS: POST a kod studeneho startu, obsluhy preruseni atd.
az ? Konkretni rozmisteni zavisi na velikosti BIOSu a pomocnych
progra-
fe00:0000 ? mu (SETUP, diagnostika) jednotlivych vyrobcu.
----------+--------------------------------------------------------------------
f000:fff0 ? Instrukce JMP na prvni instrukci, ktera se provede po
zapnuti/resetu (hehe - reset)
----------+--------------------------------------------------------------------
f000:fff5 ? Datum verze BIOSu (v ASCII)
VYBORNE POPSANE je to v SYSMANu (v cestine) nebo (snad :-) i v TECHHelpu (angl)
a jak dostat byte z pameti.....
zkusit si proste udelat neco jako
type Pmujbyte=^byte;
var Pb:Pmujbyte;
...
pb:=adresa; {v d3; v pascalu(treba 7.0) pouzit treba "fci" PTR(seg:ofs) }
vysledek := pb^;
{pripadne}
pb:=adresa;
move(pb^, kam_placnout_kusdat, kolik_byte);
{ procedura move - viz helpy ; v tomto pripade pb uz staci netypovy pointer}
Pripadne na to postavit malou a milou rutinku v assemblerku. :-)
pomuze? :-)
Mti.Volani LoadLibrary
[*] Pavel Kral <kral(zv)afx(tec)cz> - 22.9.1998 16:31:25
-----Original Message-----
>
>viz WIN32 API help "SetErrorMode"
> Sir
>
Diky to je presne ono. Clovek se porad uci.
Pavel Kral
Problem s MEMO
[*] Pavel Kral <kral(zv)afx(tec)cz> - 22.9.1998 17:06:56
Ahoj
Nastaveni pozice uz ti nekdo poslal, tak jeste zjisteni:
Pouziva se na to poslani zpravy na Memo
LineNumber := Memo1.Perform(EM_LINEFROMCHAR, -1, 0);
FromLeft := Memo1.Perform(EM_LINEINDEX, WParam(LineNumber), 0);
popis techto zprav najdes ve Win API
Pavel Kral
-----Original Message-----
A ako zist�m v ktorom riadku a na ktorej pozicii sa nachadza kurzor v MEMU,
a ako ho umiestn�m na dan� riadok a na danu poziciu.Jedna instance DLL
[*] peterrus(zv)intesys(tec)cz (Peter Rus) - 22.9.1998 17:49:16
Ahoj,
resenim muze byt, aby DLL poslala hlavni aplikaci zpravu ("Mami, tati,
uz je cas!!" :-))) ) a ta na zaklade zpravy spustila fci... myslis
tohle??
S pozdravem,
Peter Rus ml.
mailto:peterrus(zv)intesys(tec)cz
http://www.intesys(tec)cz/studio-r
Jan Stuchlik wrote:
>
> Zdravym panove !
>
> Mam takovy problem: bezi mi DLL knihovna, ktera kontroluje cas. V zadany
> cas ma spustit z dane aplikace nejakou exportovanou funkci. Problem ale
> je, ze bych potreboval, aby kdyz ta aplikace uz bezi, aby se nepoustela
> nova instance, ale ta stara. Da se to nejak zaridit ? Nebo tady jenom
> mlzim.
> Sir
Jedna instance DLL
[*] Jan Stuchlik <xstuchli(zv)feld.cvut(tec)cz> - 22.9.1998 18:02:40
> Ahoj,
>
> resenim muze byt, aby DLL poslala hlavni aplikaci zpravu ("Mami, tati,
> uz je cas!!" :-))) ) a ta na zaklade zpravy spustila fci... myslis
> tohle??
Vicemene ano. Problem je v tom, ze ta aplikace nemusi bezet, takze jsem
to chtel resit prave volanim te exportovane fce. Jenomze pak je zase
problem kdyz bezi, protoze to by se ta fce zavolala z nove instance
(alespon myslim, ze ve win32 je to tak delano), no a tim by se
nereflektovalo to, co ta aplikace mezitim udelala. Jasne, nebo jeste
porad mlzim ?
Sir
Application.BringToFront
[*] Pavel Kral <kral(zv)afx(tec)cz> - 22.9.1998 18:25:59
Ahoj,
dnes mam jeste jeden problem.
Od te doby, co jsem zacal pouzivat WIn98, kdyz chci aktivovat aplikaci,
tak se sice prenese do popredi, ale neni aktivni.
To same se mi deje s Delphi IDE pri zastaveni aplikace na breakpointu.
Docela me to stve, ale vim, ze to jde vyresit, protoze MS Outlook se chova
spravne, tj. prenese se na popredi a aktivuje se.
Zkousel jsem uz ruzna reseni, vcetne vselijak krkolomnych, ale zatim se
mi nezadarilo.
Moje dosavadni pokusy:
Application.BringToFront
Application.SetFocus
SetForegroundWindow(Application.Handle)
SetForegroundWindow(HlavniOknoAplikace)
SetActiveWindow(HlavniOknoAplikace)
PostMessage(Application.Handle, wm_ActivateApp,WParam(true),0)
a nektere dalsi
a jejich ruzne kombinace a posloupnosti.
Zkusil jsem taky simulovat stisk mysi na okne aplikace poslanim zpravy,
ale taky nic.
Doufam, ze nekdo zna reseni, presto ze mistr Vones je asi na dovolene.
Dekuji za napady
Pavel Kral
Home banking
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 22.9.1998 18:38:41
Ale jo, ja bych si to i koupil coz o to, akorat jsem zjistoval, zda se
da odbourat ten 'meziprogram'. Skoda ze banky neprodavaji treba
THomeBankingIPB :-)
Mac
Martin Fron�k wrote:
>
> Hi,
>
> no samozrejme, cos jineho cekal? Ze si jen tak zavolas do banky a nechas
> si zapnout nejaky vzdaleny pristup? Kdepak, oni maji lobystickou smlouvu
> s nejakou SW firmou a bud si to koupis (a pak si treba udelej neco
> sveho), nebo chod do banky pesky.... A za vsechno muzou zase jenom
> prachy (a pritom je porad nikdo nema :-)
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================Chyba pri startu programu
[*] Jiri Binder <binderj(zv)dec59.ruk.cuni(tec)cz> - 22.9.1998 21:36:19
Vazeni pratele,
zacala se mi objevovat neprijemna kolize se systemem
pri startu programu.
Projevy:
Pri startu mnou vytvoreneho programu se objevi zprava:
Aplikace EXPLORER! zpusobila ... obratte se na vyrobce.
Chyba se objevuje bez ohledu na to zda program spoustim
z okna exploreru nebo z ikonky na desktopu, nebo zda je explorer
vubec otevren. po odklepnuti zpravy bezi program jiz bez problemu .
Okolnosti:
Zajimave je, ze se chyba projevuje pouze u programu nove
prekompilovanych v D4 + patch na mem novem pocitaci v praci, zato
ovsem u vsech, vcetne tech, ktere jiz jinak dlouho bez problemu
chodily. Dale pokud spoustim programy z prostredi Delphi, chyba se
neobjevi. Aby to nebylo jednoduche, tak exe prenesene domu chodi bez
problemu. To by vypadalo spise na chybu v instalaci windousu na
pocitaci v praci, ovsem zadne programy nepochazejici z Delphi
na nem nevykazuji zadne anomalie.
Byl bych vdecny za jakykoliv namet.
Jiri Binder
Application.BringToFront
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 22.9.1998 22:44:58
Dne Tue, 22 Sep 1998 18:25:59 +0200 Pavel Kral napsal:
> Ahoj,
> dnes mam jeste jeden problem.
> Od te doby, co jsem zacal pouzivat WIn98, kdyz chci aktivovat aplikaci,
> tak se sice prenese do popredi, ale neni aktivni.
> To same se mi deje s Delphi IDE pri zastaveni aplikace na breakpointu.
> Docela me to stve, ale vim, ze to jde vyresit, protoze MS Outlook se chova
> spravne, tj. prenese se na popredi a aktivuje se.
> Zkousel jsem uz ruzna reseni, vcetne vselijak krkolomnych, ale zatim se
> mi nezadarilo.
>
> Moje dosavadni pokusy:
>
> Application.BringToFront
> Application.SetFocus
> SetForegroundWindow(Application.Handle)
> SetForegroundWindow(HlavniOknoAplikace)
> SetActiveWindow(HlavniOknoAplikace)
>
> PostMessage(Application.Handle, wm_ActivateApp,WParam(true),0)
>
> a nektere dalsi
> a jejich ruzne kombinace a posloupnosti.
>
> Zkusil jsem taky simulovat stisk mysi na okne aplikace poslanim zpravy,
> ale taky nic.
>
> Doufam, ze nekdo zna reseni, presto ze mistr Vones je asi na dovolene.
Mel jsem podobny problemy, nicmene vsechno to bylo tim, ze tydle podobny
prikazy byly volany z extra threadu BEZ Synchronize(). Samozrejme na to
pan Vones prisel, muze to bejt cesta i pro tebe.
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
Shareware - off-topic
[*] Zdenek Drvota <zds(zv)pce.fairnet(tec)cz> - 22.9.1998 23:55:05
> TO BYCH SES TEDA DIVIL
To se teda DIVTE!
>
> na prodej softu musis mit zivnostensky list jinak je to nedovolene
> obohacovani a danovy unik.
Nemusis, na tohle plati autorsky zakon a zdanuje se zvlastnim
zpusobem (je na to extra kolonka :-)
Doporucuji si prostudovat jak autorsky, tak zivnostensky zakon.
> TRT
>
>
> ----------
> Od: Pavel Kral
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Shareware - off-topic
> Datum: 22. z��� 1998 9:47
>
> ahoj
>
> Jako autor programu jej muzes prodavat bez zivnostenskeho listu.
> Autor muze prodavat bez jakehokoliv povoleni, takze krome
> samotneho programu nepotrebujes nic.
>
> Pavel Kral
>
> -----Original Message-----
>
>
> >Zdravim,
> >
> >mam off-topic dotaz. Chtel bych sirit sve programy jako shareware. Co
> je
> >k tomu zapotrebi (zivnostensky list, apod)?
> >
> >..........................................................
> >.. Libor Krayzel .
>
>
>
*-----------------------------------------------*
ZDS, spol. s r. o.
Ing. Zdenek Drvota, director
Devotyho 775 tel/fax:+420-40-33837
530 02 Pardubice 41691
Czech Republic
e-mail: drvota(zv)zds(tec)cz (Win1250/ISO-8859-2)
http://www.zds(tec)cz
*-----------------------------------------------*Application.BringToFront
[*] Pavel Kral <kral(zv)afx(tec)cz> - 23.9.1998 08:05:00
>> Od te doby, co jsem zacal pouzivat WIn98, kdyz chci aktivovat aplikaci,
>> tak se sice prenese do popredi, ale neni aktivni.
>> To same se mi deje s Delphi IDE pri zastaveni aplikace na breakpointu.
>> Docela me to stve, ale vim, ze to jde vyresit, protoze MS Outlook se
chova
>> spravne, tj. prenese se na popredi a aktivuje se.
>> Zkousel jsem uz ruzna reseni, vcetne vselijak krkolomnych, ale zatim se
>> mi nezadarilo.
>>
>Mel jsem podobny problemy, nicmene vsechno to bylo tim, ze tydle podobny
>prikazy byly volany z extra threadu BEZ Synchronize(). Samozrejme na to
>pan Vones prisel, muze to bejt cesta i pro tebe.
>
>Lubor bIRDIE Kolar
>====================
Tim to urcite neni, pouzivam jen hlavni thread.
Pavel
Remote Check
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 23.9.1998 08:12:26
Vazeni Delphisti!
Mam nasledujici problem. Na jednom PC se napojim na databazi, ktera je
ulozena na serveru, na PC menim data a potrebuji je prubezne ukladat na
serveru (k teto databazi je pripojeno vice PC). Jak pred ulozenim zmenenych
dat zjistim, ze nedoslo k preruseni spojeni? Potrebuji to zjistit relativne
rychle 1-5 sekund. Pri pokusu o pristup na data a porusenem spojeni PC na
neprijatelne dlouhou dobu vytuhne. Predem dekuji za rady i nakopnuti. M&B
Shareware - off-topic
[*] Stepan Cerny <chaosz(zv)geocities(tec)com> - 23.9.1998 08:27:25
Ha Ha Ha :-))) ... to se nam to pekne rozjelo !!!!
Vsem zajemcum o tuto problematiku doporucuji SWN 9/98, str. 88-94, je tam
docela pekny, prehledny a obsahly clanek na toto tema.
PS1: Jsou tam i jine prima clanky ....
PS2: Jdete negdo zitra(Ct) na "DDD" ???
--
Stepan "Chaosz" Cerny
tvoric of software
chaosz(zv)geocities.com
PROLOG - Nieco mimo konferencie
[*] Michal Motalik <motalik(zv)zl.inext(tec)cz> - 23.9.1998 08:27:50
-----P�vodn� zpr�va-----
Od: Pavel Koutn� <koutny(zv)tkcmt.sk>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 21. z��� 1998 15:47
P�edm�t: PROLOG - Nieco mimo konferencie
>Caute vsetci, predom sa ospravedlnujem za moju otazku, nepatri sem, ale
nevie niekto o nejakom volnom PROLOG-u ??? (Programovaci jazyk, ale to asi
viete),
>
>Dik,
>
>Pavel
>
Doma jsem na�el dva Prology, co mam ze skoly. Tak jestli je jeste chces, tak
mi posli zpravu.
Ing. Pavel CABAK
cabak(zv)zl.inext(tec)cz
Shareware - off-topic
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 23.9.1998 09:04:14
> Vsem zajemcum o tuto problematiku doporucuji SWN 9/98, str.
> 88-94, je tam
> docela pekny, prehledny a obsahly clanek na toto tema.
Je to i na webu?Jedna instance DLL
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 23.9.1998 09:06:16
Hi,
a co kdybys poslal zpravu a cekal na odpoved, kdyz neprijde, tak pustis
novou instanci (prvni)
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Jan Stuchlik [SMTP:xstuchli(zv)feld.cvut(tec)cz]
> Odesl�no: 22. z��� 1998 18:03
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Jedna instance DLL
>
> > Ahoj,
> >
> > resenim muze byt, aby DLL poslala hlavni aplikaci zpravu ("Mami,
> tati,
> > uz je cas!!" :-))) ) a ta na zaklade zpravy spustila fci... myslis
> > tohle??
>
> Vicemene ano. Problem je v tom, ze ta aplikace nemusi bezet, takze
> jsem
> to chtel resit prave volanim te exportovane fce. Jenomze pak je zase
> problem kdyz bezi, protoze to by se ta fce zavolala z nove instance
> (alespon myslim, ze ve win32 je to tak delano), no a tim by se
> nereflektovalo to, co ta aplikace mezitim udelala. Jasne, nebo jeste
> porad mlzim ?
> Sir
Osahani procesu po siti
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 23.9.1998 09:12:33
Hi,
a co kdybys porty prirazoval dynamicky, ten "dobre znamy" pouzivej jen
na prihlaseni a dohodnuti toho dynamickeho portu. Nevim sice, co vsechno
delas s tim TCP/IP, ale me se na podobne veci osvedcila jina komponenta.
Ale to snad neni takovy rozdil ani problem....
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Ing. Zdenek Sraier [SMTP:sraierzd(zv)czn(tec)cz]
> Odesl�no: 22. z��� 1998 11:55
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: Osahani procesu po siti
>
> Neco podobneho jsem resil i pro nase aplikace.
> Nakonec z toho byl licencni server, ktery povoluje spusteni aplikace,
> hlida celkovy pocet, hlida spusteni z jedne IP adresy, umoznuje na
> dalku
> aplikaci ukoncit ci restartovat windows, resi take problem semaforu.
>
> Puvodne jsem to chtel mit nezavisle na sitovem prostedi, ale nenasel
> jsem cestu, kudy na to. Takze nyni pouzivame TCP/IP a komunikaci
> pomoci komponent od F. Piette. Ma to jeste mouchy:
> Napriklad nelze soucasne komunikovat na jedne stanici s vice programy
> -
> - port TCP je jiz otevren a zatim se mi nedari ho nejak "sdilet". To
> snad
> casem nejak vyresim.
>
>
> S pozdravem Zdenek
> ---------------------------------------------------------------
> : o__o Zdenek Sraier e-mail: sraierzd(zv)czn(tec)cz :
> : ( o o) http://users(tec)czn(tec)cz/~sraierzd/ :
> : (. .) Stranky Potapecske http://www.byll(tec)cz/scuba/ :
> ---------------------------------------------------------------
> This message was delivered using 100% recyclable electrons.
>
>
> ----------
> > Odes�latel: Petr Brant <pbrant(zv)softhome.net>
> > Komu: 'Konference Delphi' <delphi(zv)pinknet(tec)cz>
> > Poedmit: Osahani procesu po siti
> > Datum: 14. z�o� 1998 11:15
> >
> > Ahoj vsem,
> >
> > resime momentalne problem: na pocitacich v siti bezi nekolik
> (nasich)
> > programu. Jde jen o to, aby uzivatel mohl v siti spustit jen tolik
> > programu, kolik si zakoupil licenci. Tusite nekdo, co s tim ?
> (Resime to
> > sice v C++, ale i reseni v Delphi snad bude mit svou cenu).
> >
> > Diky za vsechny napady a odpovedi
> >
> >
> **********************************************************************
> ***
> > Petr Brant [pbrant(zv)softhome.net]
> > programator v MSVC++, obcas Delphi nebo Visual Basic
> >
> **********************************************************************
> ***Remote Check
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 23.9.1998 09:15:31
Hi,
a jake pouzivas prostredi? NT? NW?
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Martin Bab�k [SMTP:M.Babik(zv)mus(tec)cz]
> Odesl�no: 23. z��� 1998 8:12
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Remote Check
>
> Vazeni Delphisti!
> Mam nasledujici problem. Na jednom PC se napojim na databazi, ktera je
> ulozena na serveru, na PC menim data a potrebuji je prubezne ukladat
> na
> serveru (k teto databazi je pripojeno vice PC). Jak pred ulozenim
> zmenenych
> dat zjistim, ze nedoslo k preruseni spojeni? Potrebuji to zjistit
> relativne
> rychle 1-5 sekund. Pri pokusu o pristup na data a porusenem spojeni PC
> na
> neprijatelne dlouhou dobu vytuhne. Predem dekuji za rady i nakopnuti.
>
>
> M&B
Application.BringToFront
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 23.9.1998 09:31:19
> > Od te doby, co jsem zacal pouzivat WIn98, kdyz chci aktivovat aplikaci,
> > tak se sice prenese do popredi, ale neni aktivni.
> > To same se mi deje s Delphi IDE pri zastaveni aplikace na breakpointu.
> > Docela me to stve, ale vim, ze to jde vyresit, protoze MS Outlook se
chova
> > spravne, tj. prenese se na popredi a aktivuje se.
> > Zkousel jsem uz ruzna reseni, vcetne vselijak krkolomnych, ale zatim se
> > mi nezadarilo.
> >
> > Moje dosavadni pokusy:
> >
> > Application.BringToFront
> > Application.SetFocus
> > SetForegroundWindow(Application.Handle)
> > SetForegroundWindow(HlavniOknoAplikace)
> > SetActiveWindow(HlavniOknoAplikace)
> >
> > PostMessage(Application.Handle, wm_ActivateApp,WParam(true),0)
> >
> > a nektere dalsi
> > a jejich ruzne kombinace a posloupnosti.
Nazdar,
nieco podobne sa mi dialo v jednej MDI aplikacii. Zistil som, ze child okno
sa aktivuje az
ked urobim SetFocus na TEdit alebo jemu podobnu componentu, ktora je na
tomto okne.
Marek Repisky
mrepisky_zl(zv)zsnp.sk
Remote Check
[*] Martin Bab�k <M.Babik(zv)mus(tec)cz> - 23.9.1998 10:24:31
Pouzivam Novel, Informix, Delphi IV a na PC NT Workstation.
M&B
Hi,
a jake pouzivas prostredi? NT? NW?
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Martin Bab�k [SMTP:M.Babik(zv)mus(tec)cz]
> Odesl�no: 23. z��� 1998 8:12
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Remote Check
>
> Vazeni Delphisti!
> Mam nasledujici problem. Na jednom PC se napojim na databazi, ktera je
> ulozena na serveru, na PC menim data a potrebuji je prubezne ukladat
> na
> serveru (k teto databazi je pripojeno vice PC). Jak pred ulozenim
> zmenenych
> dat zjistim, ze nedoslo k preruseni spojeni? Potrebuji to zjistit
> relativne
> rychle 1-5 sekund. Pri pokusu o pristup na data a porusenem spojeni PC
> na
> neprijatelne dlouhou dobu vytuhne. Predem dekuji za rady i nakopnuti.
>
> M&B
ORACLE a prava
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 23.9.1998 10:44:44
Ahoj,
videl bych to trochu jinak:
ad 1
- pri ruseni uzivatele se smazou i jeho objekty - tedy i tabulky, jedno
minus tedy pada.
- pokud ma uzivatel pravo zalozit tabulku, pak k ni ma automaticky i prava a
zalozi se (rovnez automaticky) pod jeho loginem. Ostatni uzivatele tam prava
nemaji. Neni tedy potreba vubec nic nastavovat, jenom dat uzivatelum GRANT
na CREATE TABLE.
ad 2
- tohle bych resil pomoci VIEW a prava na celkovou tabulku bych vubec
nedaval. Ve VIEW se pak jednoduse osetri vyberova podminka na login.
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Richard Valny [SMTP:richard.valny(zv)oku-st(tec)cz]
> Odesl�no: 22. z��� 1998 15:24
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: ORACLE a prava
>
> Ahojky chlapci a devcata,
> opet jsem narazil na dalsi problem pri prevadeni aplikace z lokalni
> na klient
> server (Oracle).
>
> Mam nektere soukrome tabulky, ktere nejso sdileny a uzvatel je ma ve
> svem home
> adresari na Novellu ==> nikdo se mu do nich nemuze dostat (mimo
> supervisora)
> Pokud aplikaci prevedu na Oracle jsou dve moznosti:
>
> 1) kazdemu uzivateli (v pripade potreby) necham zalozit tabulku pod
> nazvem
> login_name_tabulka ke ktere dostane prava jen on sam a ostatni je
> mit nebudou
> ==> + nikdo nebude moci (napr. ODBC -> Excel) koukat jinym do
> tabulek
> - bude v tom docela hokej co se tyce poctu tabulek
> - pri ruseni uzvatele (propusten, umren, odejit ..) bude
> treba rucne
> smazat
> i jeho tabulky
>
> 2) data se budou cpat do stejne tabulky ve ktere bude sloupec
> login_name
> vyplnovany (kdo by to byl rekl) jeho login name
> ==> + na serveru bude vzdy jen jedna tabulka daneho typu
> + jako spravce se mohu lehce kouknout na vyuzivani
> - ve vsech selectech se musi pridat podminka na login_name
> - bude mozne se kouknout do "cizich" dat pomoci ODBC
> Obecne vice se mi libi varianta 2 pokud by slo nejak rozumne osetrit
> ono videni
> jen svych radek odkudkoliv a ne jen z meho softu.
> ODBC se nezbavim, nebot
> a) nevlastnim Delphi Client-Server a zamenstnavatel mi jej z Vasich
> dani
> nekoupi
> b) rad bych nechal uzivatelum moznost vlastnich grafu napr. v
> Excelu
>
>
> Dik
>
> ===========mozno pouzit PGP==============
> Richard Valny richard.valny(zv)oku-st(tec)cz
> Okresni urad Strakonice tel. 0342-441 l. 216
> Smetanova 533 fax. 0342-21208
> 386 22 STRAKONICE FiDoNet 2:423/35
> ===========mozno pouzit PGP==============ORACLE a prava
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 23.9.1998 10:46:04
Ahoj,
videl bych to trochu jinak:
ad 1
- pri ruseni uzivatele se smazou i jeho objekty - tedy i tabulky, jedno
minus tedy pada.
- pokud ma uzivatel pravo zalozit tabulku, pak k ni ma automaticky i prava a
zalozi se (rovnez automaticky) pod jeho loginem. Ostatni uzivatele tam prava
nemaji. Neni tedy potreba vubec nic nastavovat, jenom dat uzivatelum GRANT
na CREATE TABLE.
ad 2
- tohle bych resil pomoci VIEW a prava na celkovou tabulku bych vubec
nedaval. Ve VIEW se pak jednoduse osetri vyberova podminka na login.
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Richard Valny [SMTP:richard.valny(zv)oku-st(tec)cz]
> Odesl�no: 22. z��� 1998 15:24
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: ORACLE a prava
>
> Ahojky chlapci a devcata,
> opet jsem narazil na dalsi problem pri prevadeni aplikace z lokalni
> na klient
> server (Oracle).
>
> Mam nektere soukrome tabulky, ktere nejso sdileny a uzvatel je ma ve
> svem home
> adresari na Novellu ==> nikdo se mu do nich nemuze dostat (mimo
> supervisora)
> Pokud aplikaci prevedu na Oracle jsou dve moznosti:
>
> 1) kazdemu uzivateli (v pripade potreby) necham zalozit tabulku pod
> nazvem
> login_name_tabulka ke ktere dostane prava jen on sam a ostatni je
> mit nebudou
> ==> + nikdo nebude moci (napr. ODBC -> Excel) koukat jinym do
> tabulek
> - bude v tom docela hokej co se tyce poctu tabulek
> - pri ruseni uzvatele (propusten, umren, odejit ..) bude
> treba rucne
> smazat
> i jeho tabulky
>
> 2) data se budou cpat do stejne tabulky ve ktere bude sloupec
> login_name
> vyplnovany (kdo by to byl rekl) jeho login name
> ==> + na serveru bude vzdy jen jedna tabulka daneho typu
> + jako spravce se mohu lehce kouknout na vyuzivani
> - ve vsech selectech se musi pridat podminka na login_name
> - bude mozne se kouknout do "cizich" dat pomoci ODBC
> Obecne vice se mi libi varianta 2 pokud by slo nejak rozumne osetrit
> ono videni
> jen svych radek odkudkoliv a ne jen z meho softu.
> ODBC se nezbavim, nebot
> a) nevlastnim Delphi Client-Server a zamenstnavatel mi jej z Vasich
> dani
> nekoupi
> b) rad bych nechal uzivatelum moznost vlastnich grafu napr. v
> Excelu
>
>
> Dik
>
> ===========mozno pouzit PGP==============
> Richard Valny richard.valny(zv)oku-st(tec)cz
> Okresni urad Strakonice tel. 0342-441 l. 216
> Smetanova 533 fax. 0342-21208
> 386 22 STRAKONICE FiDoNet 2:423/35
> ===========mozno pouzit PGP==============