Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Osetreni DragDrop na formu
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 25.6.2004 14:16:01
> Potreboval bych osetrit udalost pretazeni ikony souboru napr.
> z pruzkumnika nebo z WinCommanderu na formular me aplikace
> (ekvivalent pretazeni ikony souboru za ucelem kopirovani
> nebo presunu souboru mezi dvema okny).
> Potrebuji zjistit nazev souboru a cestu. Pomuze mi nekdo? Dekuji.
Da sa to aj cez OLE Drag & Drop, ale pre drag&drop suborov z explorera
(alebo inych aplikacii, ktore pouzivaju CF_HDROP format) mozes pouzit
jednoduchsi sposob cez DragAcceptFiles a spracovanie WM_DROPFILES.
Na to som si napisal jeden velmi jednoduchy komponent, snad Ti pomoze.
Staci mu nastavit vlastnost Control (napriklad listview alebo samotny
formular) a napisat si handler na udalost OnDropFiles.
Ak v tom najdes nejaky bug, daj mi prosim vediet, ja to pouzivam zatial bez
problemov.
unit DropFiles;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TDropFilesEvent = procedure (Sender: TObject; Files: TStrings; X, Y:
Integer) of object;
TDropFiles = class(TComponent)
private
FControl: TWinControl;
FFiles: TStrings;
FOldWndProc: TWndMethod;
FSorted: Boolean;
FOnDropFiles: TDropFilesEvent;
procedure SetControl(AControl: TWinControl);
procedure WndProc(var Message: TMessage);
protected
procedure Notification(AComponent: TComponent; Operation: TOperation);
override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property Control: TWinControl read FControl write SetControl;
property Sorted: Boolean read FSorted write FSorted default False;
property OnDropFiles: TDropFilesEvent read FOnDropFiles write
FOnDropFiles;
end;
procedure Register;
implementation
uses
ShellApi;
procedure Register;
begin
RegisterComponents('Additional', [TDropFiles]);
end;
{ TDropFiles private }
procedure TDropFiles.SetControl(AControl: TWinControl);
begin
if AControl <> FControl then
begin
if (csDesigning in ComponentState) then
FControl := AControl
else
begin
if Assigned(FControl) then
begin
DragAcceptFiles(FControl.Handle, False);
FControl.WindowProc := FOldWndProc;
FOldWndProc := nil;
end;
FControl := AControl;
if Assigned(FControl) then
begin
DragAcceptFiles(FControl.Handle, True);
FOldWndProc := FControl.WindowProc;
FControl.WindowProc := WndProc;
end;
end;
end;
end;
procedure TDropFiles.WndProc(var Message: TMessage);
var
P: TPoint;
I, Count, SLen: Integer;
S: string;
begin
case Message.Msg of
WM_DESTROY:
begin
DragAcceptFiles(FControl.Handle, False);
FControl.WindowProc := FOldWndProc;
FOldWndProc(Message);
FOldWndProc := nil;
FControl := nil;
end;
WM_DROPFILES:
begin
FFiles := TStringList.Create;
try
TStringList(FFiles).Sorted := FSorted;
Message.Result := 0;
if Assigned(FOnDropFiles) then
begin
if DragQueryPoint(Message.WParam, P) then
begin
Count := DragQueryFile(Message.WParam, UINT(-1), '', 0);
for I := 0 to Count - 1 do
begin
SLen := DragQueryFile(Message.WParam, I, '', 0);
SetLength(S, SLen + 1);
DragQueryFile(Message.WParam, I, PChar(S), SLen + 1);
FFiles.Add(S);
end;
DragFinish(Message.WParam);
FOnDropFiles(Self, FFiles, P.x, P.y);
end;
end;
finally
FFiles.Free;
FOldWndProc(Message);
end;
end;
else
FOldWndProc(Message);
end;
end;
{ TDropFiles protected }
procedure TDropFiles.Notification(AComponent: TComponent; Operation:
TOperation);
begin
if (AComponent = FControl) and (Operation = opRemove) then
SetControl(nil);
inherited Notification(AComponent, Operation);
end;
{ TDropFiles public }
constructor TDropFiles.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FControl := nil;
FOldWndProc := nil;
FSorted := False;
end;
destructor TDropFiles.Destroy;
begin
SetControl(nil);
inherited Destroy;
end;
end.
HTH
TOndrej
Osetreni DragDrop na formu
[*] Ing. Pavel Spisar <pajastudio(zv)wo(tec)cz> - 25.6.2004 14:07:59
podivej se po komponente FileDrop od Thomas Werner,
pripadne napis mimo konferenci (funguje v D3)
Ing. Igor Kapoun wrote:
> Potreboval bych osetrit udalost pretazeni ikony souboru napr. z
> pruzkumnika nebo z WinCommanderu na formular me aplikace (ekvivalent
> pretazeni ikony souboru za ucelem kopirovani nebo presunu souboru
> mezi dvema okny). Potrebuji zjistit nazev souboru a cestu. Pomuze mi
> nekdo? Dekuji.
> Igor
Osetreni DragDrop na formu
[*] Ing. Igor Kapoun <igor.kapoun(zv)volny(tec)cz> - 25.6.2004 13:31:56
Potreboval bych osetrit udalost pretazeni ikony souboru napr. z pruzkumnika
nebo z WinCommanderu na formular me aplikace (ekvivalent pretazeni ikony
souboru za ucelem kopirovani nebo presunu souboru mezi dvema okny).
Potrebuji zjistit nazev souboru a cestu. Pomuze mi nekdo? Dekuji.
Igor
kodovacia tabulka utf8
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 25.6.2004 13:29:55
> Hladam kodovaciu tabulku utf8 s prekladom do klasickych znakov vo
> Winodowse. Neviete nejaky link? Nepotrebujem finkciu na preklad znakov
> ale rovno tabulku!
Tabulku mit nemuzes, protoze to proste nejde. Jeden a tentyz bajt v
UTF-8 neznamena vzdy totez! Zalezi na poloze, na okolnich znacich,
atd.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Ararat Synapse - TCP/IP Lib.kodovacia tabulka utf8
[*] Martin Kasman <martinkasman(zv)martinkasman.sk> - 25.6.2004 13:21:54
Hladam kodovaciu tabulku utf8 s prekladom do klasickych znakov vo Winodowse.
Neviete nejaky link?
Nepotrebujem finkciu na preklad znakov ale rovno tabulku!
Vdaka za kazdu radu
mutexy na win98, padani aplikace
[*] Karel Plechota <karel.plechota(zv)seznam(tec)cz> - 25.6.2004 12:51:47
No vypada to ze OpenMutex je tam fakt zbytecne, ale vyzkousene to nemam.. funkcni kod ktery pouzivam je tento :
fMutex := CreateMutex( nil, false, PChar(fNazev) );
if GetLastError = ERROR_ALREADY_EXISTS then
begin
CloseHandle(fMutex);
fMutex := OpenMutex( MUTEX_ALL_ACCESS, false, PChar(fNazev) );
end;
Otazkou zustava k cemu je dobra funkce OpenMutex kdyz CreateMutex by bylo dostacujici.> OpenMutex je tam zbytocne, ved CreateMutex bud vytvori novy mutex, alebo
> otvori uz existujuci mutex.
> Ty ho potom otvaras zbytocne este raz.
Instalace JEDI 3
[*] Milan Fabik <fabik(zv)kinekus.sk> - 25.6.2004 12:51:46
Tu je link:
http://prdownloads.sourceforge.net/jvcl/JVCL300BETA1JCL190Complete.zip?downl
oad
MF
mutexy na win98, padani aplikace
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 25.6.2004 12:57:48
> Otazkou zustava k cemu je dobra funkce OpenMutex kdyz
> CreateMutex by bylo dostacujici.
Asi pre pripad, ze chces otvorit mutex, ak existuje, ale nevytvarat ho, ak
neexistuje ;-)
HTH
TOndrej
Poradi oken (Z-Order)
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 25.6.2004 12:49:45
Zdravim konferenci,
Lze nejak ziskat setrideny seznam viditelnych formu
me aplikaci, podle toho jak jsou setridene opticky na obrazovce
(Z-Order)?
Nebo pripadne existuje nejake funkce ktera by mi rekla zda jeden form
je nad nebo pod druhym?
Dekuji za rady a napady
Pavel Poles
Instalace JEDI 3
[*] mstevlik(zv)gamo.sk - 25.6.2004 11:35:36
> Stiahol som si nove instalacky JEDI 3 na inom ftp a bez problemov.Sice
maju
> o 2MB viac ale slape to. Dokonca som nainstaloval najskor JVCL a potom
JCL a
> funguje to OK.
>
> Dakujem za rady.
>
> MF
Posli teda link
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 38493645
Instalace JEDI 3
[*] Milan Fabik <fabik(zv)kinekus.sk> - 25.6.2004 11:19:35
Stiahol som si nove instalacky JEDI 3 na inom ftp a bez problemov.Sice maju
o 2MB viac ale slape to. Dokonca som nainstaloval najskor JVCL a potom JCL a
funguje to OK.
Dakujem za rady.
MF
OT: Undo v MSSQL
[*] mstevlik(zv)gamo.sk - 25.6.2004 10:27:28
Hi all,
Podarilo sa mi nechtiec vymazat obsah tabulky v MSSQL2000 Developer SP3
Viem to nejako vratit spat?
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4372111
ip-tel: 421 48 4372098
mobil: +412 905 462010
icq: 38493645
Instalace JEDI 3
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 25.6.2004 10:07:26
no v registracii to nebude, ja este stale nemam zaregistrovane D6, teda
mam UNREGISTRED,
a pritom mi to zbehlo, pravda okrem instalacie JCL som dost cistil
delphi (predtym ako som skusil
instalovat JCL) som myslel ze chyba je niekde inde ... takze to moze byt
aj niecim inym.
>- potom som instaloval JVCL 2.10 a urobilo mi to to iste - nevidel
>ziadne cesty, ked som mu ich tam zadal tak zase nastala chyba
>instalacie....
>
>
>
rovnake problemy ale uz neviem ako som ich odstranil, tusim treba
vymazat neplatne cesty
Tools/Enviroment Options/Library/Library Path -> delete invalid paths
palo
mutexy na win98, padani aplikace
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 25.6.2004 09:43:23
> fMutex := CreateMutex( nil, false, PChar(fNazev) );
> if GetLastError = ERROR_ALREADY_EXISTS then
> fMutex := OpenMutex( MUTEX_ALL_ACCESS, false, PChar(fNazev) );
OpenMutex je tam zbytocne, ved CreateMutex bud vytvori novy mutex, alebo
otvori uz existujuci mutex.
Ty ho potom otvaras zbytocne este raz.
HTH
TOndrej
Instalace JEDI 3
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 25.6.2004 09:13:20
> Co instalujes?? JCL alebo JVCL?
>
> ak JVCL tusim musis mat najprv JCL nainstalovane. (aspon mne
> to tak fachalo). a pre D6 musis mat SP2 nainstalovanu.
no to ano, to je pravda, ale mne sa to podarilo az po tretej
reinstalacii D6Prof a kompletnom vymaze vsetkych registrov, adresarov a
zabudnutych suborov... az potom to zbehlo, ale chybu som spravil
nasledovnu:
- nainstaloval som D6Prof (neregistroval som ho t.j. nespustil som ho
ani raz)
- hned po instalaci som doinstaloval SP2 a nejake dlasie updaty z
borlandu
- potom som instaloval JVCL 2.10 a urobilo mi to to iste - nevidel
ziadne cesty, ked som mu ich tam zadal tak zase nastala chyba
instalacie....
moje zistenie bolo v tom, ze D6 bolo treba hned po instalaci
zaregistrovat a az potom instalovat tie dalsie veci (medzi tym som musel
vsetky pozostatky predchadzajucich instalacii odstranit)
joka
PS: zaujimalo by ma preco po odinstalaci D6, zostanu vsetky balicky v
system32 a nezmazane vetvy v registroch a nezmazane adresar common....
tak si odinstalaciu naozaj nepredstavujem :o((( hlavne ked sa tvari, ze
vsetko si po sebe upratala.....
Instalace JEDI 3
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 25.6.2004 09:01:18
Co instalujes?? JCL alebo JVCL?
ak JVCL tusim musis mat najprv JCL nainstalovane. (aspon mne to tak
fachalo). a pre D6 musis mat SP2 nainstalovanu.
palo
mutexy na win98, padani aplikace
[*] js-delphi(zv)quick(tec)cz - 25.6.2004 08:57:17
Odesilatel: Karel Plechota <karel.plechota(zv)seznam(tec)cz>
> fMutex := CreateMutex( nil, false, PChar(fNazev) );
> if GetLastError = ERROR_ALREADY_EXISTS then
> fMutex := OpenMutex( MUTEX_ALL_ACCESS, false, PChar(fNazev) );
>
> problem je ale v tom ze pokud dojde k volani OpenMutex pak v
> pameti zustava handle vracene fci CreateMutex. na to jsou w98
> celkem citlive - po case spadnou.
>
> resenim je proste handle zavrit pres CloseHandle();
Ahoj.
Prosim Te, jsem asi hodne natvrdly, znamena to, ze to ma vypadat takto:
if GetLastError = ERROR_ALREADY_EXISTS then
begin
fMutex := OpenMutex( MUTEX_ALL_ACCESS, false, PChar(fNazev) );
CloseHandle(fMutex);
end;
Rad bych to delal spravne...
Diky za odpoved.
Jirka
--------------------------------------------------
Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
D6Prof+SP3; WinXPProf+SP1; FB 1.0.3
programator amater
import struktury a dat tabulek dbf do Interbase/Fi
[*] Richard Kejval <kejval.delphi(zv)centrum(tec)cz> - 25.6.2004 08:21:13
Ahoj,
> potreboval bych importovat jiz vytvorene tabulky v dbf, jejich strukturu a
data do Interbase/Firebird databaze, je na to nejaky prevadec?
v Delphi byval asi jen ve verzi Enterprise Datapump, ktery to umel velmi
dobre..
S pozdravem
ing. Richard Kejval
mobil: 602477679
http://www.icsoftware(tec)cz
mutexy na win98, padani aplikace
[*] Karel Plechota <karel.plechota(zv)seznam(tec)cz> - 24.6.2004 22:38:29
problem s mutexy jsem zda se vyresil. slo o to ze si za behu programu alokuju mutexy a zase je rusim. pouzival jsem kod ktery tu kdysi byl uvedeny:
fMutex := CreateMutex( nil, false, PChar(fNazev) );
if GetLastError = ERROR_ALREADY_EXISTS then
fMutex := OpenMutex( MUTEX_ALL_ACCESS, false, PChar(fNazev) );
problem je ale v tom ze pokud dojde k volani OpenMutex pak v pameti zustava handle vracene fci CreateMutex. na to jsou w98 celkem citlive - po case spadnou.
resenim je proste handle zavrit pres CloseHandle();
good luck
import struktury a dat tabulek dbf do Interbase/Fi
[*] Jaroslav Uher <jarek(zv)iuher(tec)cz> - 24.6.2004 20:38:19
On 24 Jun 2004 at 16:05, znit(zv)centrum(tec)cz wrote:
> Ahoj,
> potreboval bych importovat jiz vytvorene tabulky v dbf, jejich
> strukturu a data do Interbase/Firebird databaze, je na to nejaky
> prevadec?
nejlepsi prevadec je ten, ktery si napises sam !
Vygenerujes si script z DBF do *.sql a ten potom vlozis do IBExpert.
Ver mi, ze je s tim nejmene prace :-)
Jarek Uher
import struktury a dat tabulek dbf do Interbase/Fi
[*] znit(zv)centrum(tec)cz - 24.6.2004 16:05:52
Ahoj,
potreboval bych importovat jiz vytvorene tabulky v dbf, jejich strukturu a data do Interbase/Firebird databaze, je na to nejaky prevadec?
Dekuji za odpoved
Zdenek Nitra
D5p, IBExpert, Firebird 1.5 Nastaveni obsahu RichEdit v designtime
[*] Jiri Matejka <matejka(zv)stemmark(tec)cz> - 24.6.2004 15:53:45
Zdravim,
jak nastavit obsah TRichEditu v designtime? Pokud zkopiruju obsah rtf do
lines (pres object inspector), vzdy mi to hlasi chybu "richedit line
insertion error". Testovaci .rtf soubor obsahuje jen 1 radek Arialem a napr.
ve Wordu se jevi korektne. W2000, D6Pro.
diky
Jirka Matejka
RichEdit
[*] Dusek Karel <dusek(zv)mudk(tec)cz> - 24.6.2004 15:39:43
Lze nejak do RichEditu vlozit tabulku a formatovat jeji obsah. Jako slucovat bunky apod? Kdyz otevru do RichEditu soubor z Wordu tak tabulku nactu. Jen ji neumim vytvorit programove.
D6.
Dik za radu Karel
---
avast!/SMTP2000 Antivirus: Outbound message clean.
Virus Database (VPS): 22.6.2004
Tested on: 24.6.2004 15:36:52 +0200
avast! - copyright (c) 2000-2004 ALWIL Software.
Word OLE
[*] Sula Milos <milos.sula(zv)musumperk(tec)cz> - 24.6.2004 15:11:38
Kdyz si ve wordu pustite zaznam makra , vlozite si zahlavi a pak si ho
prohlednete tak to v podstate jen opisete do sve aplikace jako OLE
prikazy.
Milos
-----Original Message-----
From: mad(zv)worldmail(tec)cz [mailto:mad(zv)worldmail(tec)cz]
Sent: Thursday, June 24, 2004 1:45 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Word OLE
Zdravim vsechny,
potreboval bych do Word dokumentu vlozit zahlavi a zapati - obrazek JPG
- pres OLE. Jak na to ?
Dekuji za "nakopnuti" spravnym smerem.
M.A.zpracovani DWF
[*] Miroslav Novosad <mnprokonf(zv)quick(tec)cz> - 24.6.2004 14:37:33
From: "Miroslav Novosad" <mnprokonf(zv)quick(tec)cz>
> From: "petr palicka" <palicka.petr(zv)seznam(tec)cz>
> > Staci mi nejaky sikovny nastroj, trida, DLL...
> > Proste cokoliv cim se do toho jednoduse dostanu,
>
> IMHO to odporuje podstate/zameru formatu DWF.
> Ale presto. Koukal jsi treba na cadalog? Nejake nastroje pro (jakz
takz)
> import do Acadu jsou, treba by Te to mohlo nekam nasmerovat.
No, je to s tim DWF asi jeste trochu nez se tvrdilo, kdyz se objevil.
Na http://usa.autodesk.com/adsk/servlet/index?siteID=123112&id=823771 je
nejaky DWF Toolkit, ktery cituji:
"... allows you to develop applications that read or write multi-sheet
drawings in DWF (Design Web Format) format. The toolkit contains a C++
library that aids in the generation, reading, and parsing of DWF files.
You can use it to work with DWF files without having to understand their
complete underlying data format. This toolkit contains support for the
DWF file as defined with the release of AutoCAD 2004."
Me osobne to sice pripada silne neprehledne (ostatne jako vsechno co
smrdi C++), ale treba Ti to pomuze.
Miroslav Novosad
mnprokonf(zv)guick(tec)cz
SQL dotaz na neurcite tbl. v MSSQL2000
[*] Lstiburek Pavel <lstiburek(zv)ceb(tec)cz> - 24.6.2004 14:37:34
1. No moznosti je slozit si ten dotaz do stringu a spustit pomoci EXEC
2. pokud se nemeni pocet sloupcu a jejich typ muzes pouzit UDF
Jinak tento navrh je jiz mimo relacni schema, takze pokud mas pocit, ze
to server moc nepodporuje tak se nemylis.
Pavel
> From: Miso [mailto:delphinpp(zv)atlas(tec)cz]
> ----- Original Message -----
> > Zdravim,
> > nieco podobne obvykle riesime rozdelenim dat na samostatnu
> tabulku so
> > spolocnymi stlpcami a dalsie tabulky obsahujuce iba tie
> specificke+odkaz
> do
> > spolocnej tabulky. Funkcnost pracujuca iba nad spolocnymi
> stlpcami je tym
> > podstatne jednoduchsia a funkcnosti nad specifickymi
> stlpcami su iba o
> nieco
> > zlozitejsie. A pokial pritom pouzijes ulozene procedury
> alebo view tak sa
> to
> > rozdelenie navonok ani neprejavi. Naviac pri pridani dalsej
> specifickej
> > tabulky bude potrebne dorobit iba tu specificku funkcnost a
> spolocna moze
> > ostat prakticky bez zmeny.
>
> ...no pre mna teraz nie je podstatne ake su alternativne
> moznosti DB navrhu,
> skor som chcel pomoct s riesenim mojho problemu s uz existujucim DB
> navrhom..kazdopadne vdaka za napad s TmpDB..mozno to takto
> skusim...napada
> este niekoho nieco?
>
> Miso
Word OLE
[*] mad(zv)worldmail(tec)cz - 24.6.2004 13:45:27
Zdravim vsechny,
potreboval bych do Word dokumentu vlozit zahlavi a zapati - obrazek JPG -
pres OLE. Jak na to ?
Dekuji za "nakopnuti" spravnym smerem.
M.A.
.
OLE a word
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 24.6.2004 13:31:25
On Behalf Of Sula Milos
> Generuji z me aplikace texty , ktery vkladam pomoci OLE
> (EditReplace) do dokumentu ve wordu na predem urcena mista
> oznacena napr. {data}. Vse mi funguje, ale problem je v tom
> ze bych chtel cast vkladaneho textu i nejak jednoduse
> formatovat (staci tucne/obycejne pismo, ktere by bylo v tom
> generovanem textu treba oznaceno jako u html
> <B>tucnytext</B>obycejny text) da se to nejak jednoduse
> vyresit bez toho aniz bych musel parsovat generovany text a
> menit font pri kazdem <B> na tucny - vlozit cast textu a pri
> kazdem </B> na obycejny - vlozit zbytek textu - ma word primo
> nejakou specialni sekvenci ktera by pismo umela primo
> prepnout jen tim ze bych ji pred pozadovany text vlozil ?
Ahoj.
Mozna to nebude ono, ale ja podobne vyplnuji sablony v Excelu a to co
vyplnim ma format te bunky.
Takze nemohlo by byt formatovano to urcite misto {data} ? Pri vlozeni
by to melo mit format toho mista.
Ludek
barvy pro shell
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 24.6.2004 13:25:21
> nevite nekdo jak ze systemu vydolovat barvy ktere explorer pouziva k
> zobrazeni kompresovanych a kryptovanych souboru (adresaru), pro
kompresovane
> jsem si myslel ze pouziva COLOR_HOTLIGHT (hodnota 26), ale me to vraci
> tmavsi nez pouziva explorer a pro kryptovanou jsem nenasel vubec nic
odpovim si sam
explorer to hleda v registrech (alespon na WinXP) pokud to tam neni doplni
si napevno vychozi barvy (vetev,klic,defoult)
komprimovane:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer
AltColor $FF0000
kryptovane:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer
AltEncryptionColor $408000
Jak instalovat prohlizec
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 24.6.2004 13:17:20
Jaromir Cermak <cermak(zv)procom(tec)cz> wrote:
> Prosim neporadil by mi nekdo jak nainstalovat prohlizec xxxx.exe
> souboru tak aby pri poklepani na prislusny soubor daneho typu .xyz se
> spusti prohlizec se zadanym souborem jako prvnim parametrem. Staci
> .reg soubor nebo popis jak udelat instalacni program v instalshield
> Expresu verze 3.5 dodavane s D7.
Z nasi knihovny:
procedure NxRegisterFileExtension(const AExtension, AnAplication,
ADescription: string);
var
mReg: TRegistry;
begin
mReg := TRegistry.Create;
try
mReg.RootKey := HKEY_CLASSES_ROOT;
mReg.OpenKey('\.' + AExtension, True);
mReg.WriteString('', AExtension + '_auto_file'); //DoNotLocalize
mReg.OpenKey('\' + AExtension + '_auto_file', True); //DoNotLocalize
mReg.WriteString('', ADescription);
mReg.OpenKey('shell\open', True); //DoNotLocalize
mReg.WriteString('', '');
mReg.OpenKey('command', True); //DoNotLocalize
mReg.WriteString('', AnAplication + ' "%1"'); //DoNotLocalize
finally
mReg.CloseKey;
mReg.Free;
end;
end;
Martin Schayna
Predani retezce mezi procesy
[*] delphin(zv)post(tec)cz - 24.6.2004 13:15:15
Na sdileni pameti mezi dvema procesy je treba pouzit pouzit
CreateFileMapping pripadne message WM_COPYDATA.
OLE a word
[*] Sula Milos <milos.sula(zv)musumperk(tec)cz> - 24.6.2004 12:45:10
Dobry den,
Muze mi nekdo poradit s nasledujicim probleme ?:
Generuji z me aplikace texty , ktery vkladam pomoci OLE (EditReplace) do dokumentu ve wordu na predem urcena mista oznacena napr. {data}. Vse mi funguje, ale problem je v tom ze bych chtel cast vkladaneho textu i nejak jednoduse formatovat (staci tucne/obycejne pismo, ktere by bylo v tom generovanem textu treba oznaceno jako u html <B>tucnytext</B>obycejny text) da se to nejak jednoduse vyresit bez toho aniz bych musel parsovat generovany text a menit font pri kazdem <B> na tucny - vlozit cast textu a pri kazdem </B> na obycejny - vlozit zbytek textu - ma word primo nejakou specialni sekvenci ktera by pismo umela primo prepnout jen tim ze bych ji pred pozadovany text vlozil ?
Diky
Milos
Nemate niekto skusenosti v pripojeni Interbase cez
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 24.6.2004 12:35:08
Hello Ivan,
Thursday, June 24, 2004, 1:50:09 AM, you wrote:
IK> Vcera som pisal otazku, ci nemate niekto skusenosti v pripojeni interbase
IK> cez internet.
IK> Medzitym vidim, ze to jednoznacne suvisi nejako s tym, ze pouzivam
IK> komponentu TIBEvents. Akonahle nepridam do zdrojoveho textu ziaden event
IK> (IBEvents1.Event.add), tak nie je ziaden problem, a viem sa pohybovat po
IK> databaze z programu. Lenze potom pridem o moznost zaregistrovania, ze niekto
IK> urobil v databaze zmenu. Pokus registrovat event vedie k hlaske: Unable to
IK> complete network request to host ... Failed to establish a secondary
IK> connection for event processing.
Event vytvara spojenie na nahodnom IP porte, treba tomu zabranit
a nastavit firewall. Nie je to presne, ale malo by to byt to
podstatne:-)
--
Best regards,
Jaroslav mailto:delphi1(zv)acc.sk
Predani retezce mezi procesy
[*] Pavel Poles <delphi(zv)noni(tec)cz> - 24.6.2004 12:29:07
Zdravim konferneci.
Snazim se pouzivat tento kod k vypsani seznamu
tlacitek v pruhu uloh:
var
H: HWND;
i,j: integer;
Buffer : PChar;
S: LPSTR;
begin
H:=FindWindow('Shell_TrayWnd',nil);
H:=FindWindowEx(H,0,'ReBarWindow32',nil);
H:=FindWindowEx(H,0,'MSTaskSwWClass',nil);
H:=FindWindowEx(H,0,'ToolbarWindow32',nil);
i:=SendMessage(H,TB_BUTTONCOUNT,0,0);
a ted:
for i:=0 to i-1 do begin
GetMem(Buffer,SendMessage(H,TB_GETBUTTONTEXT,i,0));
SendMessage(H,TB_GETBUTTONTEXT,i,LongInt((zv)Buffer));
LB.Items.Add(IntToStr(i)+' - '+string(Buffer));
FreeMem(Buffer);
end;
nebo
for i:=0 to i-1 do begin
S:=PChar(GlobalAlloc(GMEM_FIXED or GMEM_ZEROINIT or GMEM_SHARE ,SendMessage(H,TB_GETBUTTONTEXT,i,0)));
SendMessage(H,TB_GETBUTTONTEXT,i,LongInt((zv)S));
LB.Items.Add(IntToStr(i)+' - '+string(S));
GlobalFree(S);
end;
Ani jedno z toho nefunguje. Dozvedel jsem se ze je to tim ze tem message
posilam vlastne jinemu procesu, ktery ma jiny pametovy prostor a proto
mu predavam v podstate nesmyslny pointer.
Existuje nejak zpusob jak alokovat pamet pro tento pointer tak aby byl
pouzitelny v tomto pripade?
Nebo existuje nejaky jiny zpusob jak nalezt tlacitko na pruhu uloh, resp.
schovat ho (krome WS_EX_TOOLBARWINDOW nebo SetParent)?
Predm dik za odpovedi
Pavel Poles
Jak instalovat prohlizec
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 24.6.2004 12:09:04
Ahoj vsichni
Prosim neporadil by mi nekdo jak nainstalovat prohlizec xxxx.exe souboru tak aby pri poklepani na prislusny soubor daneho typu .xyz se spusti prohlizec se zadanym souborem jako prvnim parametrem. Staci .reg soubor nebo popis jak udelat instalacni program v instalshield Expresu verze 3.5 dodavane s D7.
DEKUJI PREDEM ZA JAKYKOLIV TIP.
Jaromir Cermak
Instalace JEDI 3
[*] Milan Fabik <fabik(zv)kinekus.sk> - 24.6.2004 11:19:00
Ahoj,
mate skusenosti s instalaciou JEDI 3 pre D PROF ?
Mam problem pri najdeni cesty pre JCL root directory. A tym padom mam Install tlacitko neaktivne.
Neviem s tym pohnut.
Dakujem za kazdu radu.
MF
FB - kopie struktury tabulky, db
[*] Dalibor <dalibor(zv)torola(tec)cz> - 24.6.2004 10:56:58
Ahoj, mam FB databazi, potreboval bych udelat programove kopii tehle databaze, ale bez dat.
Jde to nejak udelat?
Pripadne jak udelat kopii Tabulky z jedne DB do druhe DB
Dekuji
FIBPlus,FB 1.5, Delphi 7
barvy pro shell
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 24.6.2004 10:42:56
zdravim
nevite nekdo jak ze systemu vydolovat barvy ktere explorer pouziva k
zobrazeni kompresovanych a kryptovanych souboru (adresaru), pro kompresovane
jsem si myslel ze pouziva COLOR_HOTLIGHT (hodnota 26), ale me to vraci
tmavsi nez pouziva explorer a pro kryptovanou jsem nenasel vubec nic
SQL dotaz na neurcite tbl. v MSSQL2000
[*] Miso <delphinpp(zv)atlas(tec)cz> - 24.6.2004 10:06:46
----- Original Message -----
> Zdravim,
> nieco podobne obvykle riesime rozdelenim dat na samostatnu tabulku so
> spolocnymi stlpcami a dalsie tabulky obsahujuce iba tie specificke+odkaz
do
> spolocnej tabulky. Funkcnost pracujuca iba nad spolocnymi stlpcami je tym
> podstatne jednoduchsia a funkcnosti nad specifickymi stlpcami su iba o
nieco
> zlozitejsie. A pokial pritom pouzijes ulozene procedury alebo view tak sa
to
> rozdelenie navonok ani neprejavi. Naviac pri pridani dalsej specifickej
> tabulky bude potrebne dorobit iba tu specificku funkcnost a spolocna moze
> ostat prakticky bez zmeny.
...no pre mna teraz nie je podstatne ake su alternativne moznosti DB navrhu,
skor som chcel pomoct s riesenim mojho problemu s uz existujucim DB
navrhom..kazdopadne vdaka za napad s TmpDB..mozno to takto skusim...napada
este niekoho nieco?
Miso
SQL dotaz na neurcite tbl. v MSSQL2000
[*] Martin Cajbik <cajbik(zv)sct.sk> - 24.6.2004 09:22:41
Zdravim,
nieco podobne obvykle riesime rozdelenim dat na samostatnu tabulku so
spolocnymi stlpcami a dalsie tabulky obsahujuce iba tie specificke+odkaz do
spolocnej tabulky. Funkcnost pracujuca iba nad spolocnymi stlpcami je tym
podstatne jednoduchsia a funkcnosti nad specifickymi stlpcami su iba o nieco
zlozitejsie. A pokial pritom pouzijes ulozene procedury alebo view tak sa to
rozdelenie navonok ani neprejavi. Naviac pri pridani dalsej specifickej
tabulky bude potrebne dorobit iba tu specificku funkcnost a spolocna moze
ostat prakticky bez zmeny.
Martin Cajbik
> ..zmysel je asi taky, ze existuje nejaka zakladna struktura urciteho typu
> tabulky, ktora ma napr. 10 stlpcov..kazda tabulka ma vsak okrem tychto
> zakladnych 10 stlpcov aj dalsie odlisne stlpce, takze nemalo by zmysel
> vytvorit jednu tbl. s napr. 50 stlpcami, kde by 10 stlpcov urcite
pouzivali
> vsetky tbl. a zvysne stlpce len niektore..
>
> Miso
SQL dotaz na neurcite tbl. v MSSQL2000
[*] Miso <delphinpp(zv)atlas(tec)cz> - 24.6.2004 08:56:38
----- Original Message -----
> Zdravim,
> jedina moznost bude zrejme pouzit kurzor nad MainTbl, v nom spustat zapis
> udajov z "neurcitych tabuliek" do temporary tabulky a nakoniec selectnut
> zaznamy z tej temporary tabulky. Nie je mi vsak jasne aky ucel ma takato
> komplikovana struktura tabuliek, nie je mozne tuto strukturu zaznamov
ulozit
> v jednej databaze a jednej tabulke ?
>..zmysel je asi taky, ze existuje nejaka zakladna struktura urciteho typu
tabulky, ktora ma napr. 10 stlpcov..kazda tabulka ma vsak okrem tychto
zakladnych 10 stlpcov aj dalsie odlisne stlpce, takze nemalo by zmysel
vytvorit jednu tbl. s napr. 50 stlpcami, kde by 10 stlpcov urcite pouzivali
vsetky tbl. a zvysne stlpce len niektore..
Miso
CGI nebo SO pro Apache v Kylixu
[*] Piskac Josef <josef.piskac(zv)comarr(tec)cz> - 24.6.2004 08:30:36
Ahoj,
v soucasne dobe provozujeme komunikaci mezi serverem a klienty
pres IIS a DLL psane v Delphi. Chteli bychom totez provozovat i na
Linuxu pod Apachem. Data mame ve Firebirdu 1.02.
Mate nekdo nejake i negativni zkusenosti s programovanim CGI
nebo SO v Kylixu 3 pro Apache? Jedna se nam o to, jestli se do
toho mame poustet, ceho se vyvarovat nebo jestli to ani nema cenu
zkouset.
Pepa Piskac
Nemate niekto skusenosti v pripojeni Interbase cez
[*] Ivan Kozak <ivan(zv)boucek(tec)cz> - 24.6.2004 01:50:09
Vcera som pisal otazku, ci nemate niekto skusenosti v pripojeni interbase
cez internet.
Medzitym vidim, ze to jednoznacne suvisi nejako s tym, ze pouzivam
komponentu TIBEvents. Akonahle nepridam do zdrojoveho textu ziaden event
(IBEvents1.Event.add), tak nie je ziaden problem, a viem sa pohybovat po
databaze z programu. Lenze potom pridem o moznost zaregistrovania, ze niekto
urobil v databaze zmenu. Pokus registrovat event vedie k hlaske: Unable to
complete network request to host ... Failed to establish a secondary
connection for event processing.
Ak niekto mate napad, napiste prosim.
Dik. Ivan Kozak
................................Vcerajsia otazka
...........................................
Ide o to, ze mam program, ktory bezi na databaze Interbase 7.1 pod
lokalnou sietou, k database zadavam cestu tak, ze pocitac identifikujem
(internou)IP adresou. Funguje to OK.
Teraz som sa vsak chcel pripojit k tejto databaze cez modem (alebo aj cez
kablovku, to je jedno) "zvonka", t.j. nie cez lokalnu siet, pricom cestu som
znova skusil zadat cez (vonkajsiu)IP adresu. Spojenie sa skutocne aj podari,
az na dve veci, s ktorymi si neviem rady:
1. Pri startovani hlavneho formu, este predtym, ako cokolvek robim s
Eventami mi hodi chybove hlasenie:
---------------------------
Debugger Exception Notification
---------------------------
Project DELVA.exe raised exception class EIBInterBaseError with message
'Unable to complete network request to host "193.179.65.231".
Failed to establish a secondary connection for event processing.
unknown Win32 error 10060'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
Hlavne neviem, co to je "secondary connection for event processing.". Treba
nieco nastavit este v Interbase serveri?
Cez tuto fazu to ale prejde (aj ked so zdrzanim, zrejme kvoli neuspesnym
pokusom), otvori tabulky, dokonca aj registracia eventov (Events.Add,
Registered)tam kde ich skutocne robim prebehne bez chyboveho hlasenia. 2. Problem ale potom nastane pri zatvarani formu, kde zostane visiet na
prikaze
with IBEvents1 do UnRegisterEvents;
Strasne dufam, ze je to len v tom, ze som nieco nenastavil, co som mal, ale
teraz som s tym zacal, a zatial neviem, "kam sahnut". Neviete mi niekto
poradit v tychto dvoch veciach?
Dik za kazdu pomoc
Ivan Kozsk
INNO setup soubor Firebirdu
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 23.6.2004 17:37:32
Jan Rizek <abxsw(zv)centrum(tec)cz> wrote:
> Chtel bych do instalacniho souboru nasi aplikace zadelat Firebird.
> Pokousim se najit INNO setup script Firebirdu, ale zatim marne.
> Nevite nekdo, co vsechno by se melo zkopirovat a pustit? Popripade
> kde to najit?
Zdrojaky pro Inno Setup najdes v CVS Firebirdu:
http://cvs.sourceforge.net/viewcvs.py/firebird/firebird2/src/install/arch-specific/win32/?only_with_tag=B1_5_Release
Pokud chces instalacku prelozenou (a drobne upravenou):
http://www.aktis(tec)cz/html/dcenter/firebird.html
Martin Schayna
SQL dotaz na neurcite tbl. v MSSQL2000
[*] Martin Cajbik <cajbik(zv)sct.sk> - 23.6.2004 17:13:28
Zdravim,
jedina moznost bude zrejme pouzit kurzor nad MainTbl, v nom spustat zapis
udajov z "neurcitych tabuliek" do temporary tabulky a nakoniec selectnut
zaznamy z tej temporary tabulky. Nie je mi vsak jasne aky ucel ma takato
komplikovana struktura tabuliek, nie je mozne tuto strukturu zaznamov ulozit
v jednej databaze a jednej tabulke ?
Martin Cajbik
> Zdar,
>
> Mam TblA, kde je nejaky stlpec Catalog, v ktorom su nazvy katalogov, potom
> mam stlpec TblName, kde su nazvy tabuliek, tabulka TblA ma TblA_ID..
> ..su v nej teda udaje napr.
>
> nejake ID, 'Catalog1', 'TblXX'
> nejake ID, 'Catalog1', 'TblXY'... atd..
>
> ..kazda z tychto tabuliek 'TblX...' ma ID stlpec s rovnakym nazvom, napr.
> FldX_ID
>
> ..potom mam MainTbl, kde su stlpce
>
> MainTbl_Id, FldX_ID, TblA_ID
>
> ..ja chcem, aby som na zaklade hodnoty TblA_ID vedel pristupit k urcitej
> tabulke a potom na zaklade hodnoty FldX_ID vedel pristupit k jednotlivym
> stlpcom daneho zaznamu tabulky TblX...
>
> ..skusal som nieco ako :
>
> select * from MainTbl as M
> left join TblA as A on A.TblA_ID = M.TblA_ID
> --- a tu dalej neviem..nieco ako :
> left join (exec ('select * from ['+A.Catalog+']..['+A.TblName+']')) as t
on
> t.FldX_ID = M.FldX_ID
> ----ale to samozrejme nefunguje
>
> ..dufam, ze som sa vyjadril aspon trochu zrozumitelne..
> ...je toto mozne nejako riesit?
>
> dik,
> Miso
SQL dotaz na neurcite tbl. v MSSQL2000
[*] Miso <delphinpp(zv)atlas(tec)cz> - 23.6.2004 16:15:23
Zdar,
Mam TblA, kde je nejaky stlpec Catalog, v ktorom su nazvy katalogov, potom
mam stlpec TblName, kde su nazvy tabuliek, tabulka TblA ma TblA_ID..
..su v nej teda udaje napr.
nejake ID, 'Catalog1', 'TblXX'
nejake ID, 'Catalog1', 'TblXY'... atd..
..kazda z tychto tabuliek 'TblX...' ma ID stlpec s rovnakym nazvom, napr.
FldX_ID
..potom mam MainTbl, kde su stlpce
MainTbl_Id, FldX_ID, TblA_ID
..ja chcem, aby som na zaklade hodnoty TblA_ID vedel pristupit k urcitej
tabulke a potom na zaklade hodnoty FldX_ID vedel pristupit k jednotlivym
stlpcom daneho zaznamu tabulky TblX...
..skusal som nieco ako :
select * from MainTbl as M
left join TblA as A on A.TblA_ID = M.TblA_ID
--- a tu dalej neviem..nieco ako :
left join (exec ('select * from ['+A.Catalog+']..['+A.TblName+']')) as t on
t.FldX_ID = M.FldX_ID
----ale to samozrejme nefunguje
..dufam, ze som sa vyjadril aspon trochu zrozumitelne..
...je toto mozne nejako riesit?
dik,
Miso
INNO setup soubor Firebirdu
[*] Jan Rizek <abxsw(zv)centrum(tec)cz> - 23.6.2004 16:03:14
Chtel bych do instalacniho souboru nasi aplikace zadelat Firebird. Pokousim
se najit INNO setup script Firebirdu, ale zatim marne. Nevite nekdo, co
vsechno by se melo zkopirovat a pustit? Popripade kde to najit?
Dekuju za pripadne odpovedi
JR
Pole jako parametr procedury
[*] Sommer Pavel <psommer(zv)cpoj(tec)cz> - 23.6.2004 14:04:59
>-----Original Message-----
>Subject: Pole jako parametr procedury
>Lze nejakzm zpusobem definovat proceduru kde jako var parametr bude
dynamicke pole?
Je treba si nadeklarovat novy tridu typu toho pole a tu pak pouzit jako
parametr. Napr:
Type
TStrArray = array of string;
Function NejakaFunkce(var a: TStrArray);
Begin
...
End;
PaS.
Problem s provadenim SQL skriptu pres ADO
[*] Erik Salaj, Winsoft <winsoft(zv)netkosice.sk> - 23.6.2004 12:44:52
> SQL Profiler neprichazi v uvahu je to na druhym konci republiky, navic u
> toho pocitace sedi zenska, ktera neumi poslat email s prilohou
tak skus dat tie SQL prikazy do storovanej procedury a over si, ci sa
ta procedura zavola, resp. v nej skontroluj udaje. Obavam sa, ze inak
ako takymto experimentovanim pricinu problemu nezistis. Mozes
este skusit aktualizovat software, t.j. MDAC na danom pocitaci.
Erik
Problem s provadenim SQL skriptu pres ADO
[*] Martin Krim <krim(zv)nzservis(tec)cz> - 23.6.2004 12:32:51
SQL Profiler neprichazi v uvahu je to na druhym konci republiky, navic u
toho pocitace sedi zenska, ktera neumi poslat email s prilohou
> skus skontrolovat pomocou MS SQL Profilera, ci ADO posiela
> SQL prikazy na databazovy server a ake prikazy posiela
Problem s provadenim SQL skriptu pres ADO
[*] Erik Salaj, Winsoft <winsoft(zv)netkosice.sk> - 23.6.2004 12:02:48
> napsal jsem jednoduchou app, ktera provadi sql skript (od 'GO' do 'GO') na
MS SQL Serveru. Skript provadim pomoci ADO, >nikoliv vsak pres ADO Express,
ale primo volam metody COM rozhrani. Takrka u vsech zakazniku funguje vse
bez problemu, krome >jednoho. Skript, ktery provadim obvykle smaze vsechny
data (DELETE FROM tbl1) v jedne tabulce a pak do te same tabulky >nasype
(INSERT ... ) nova data (jedna se o aktualizaci ciselnikovych hodnot). U
problemoveho zakaznika dojde k uspesnemu >smazani starych
skus skontrolovat pomocou MS SQL Profilera, ci ADO posiela
SQL prikazy na databazovy server a ake prikazy posiela
Erik
Odosielanie mailu z aplikacie
[*] Martin Cajbik <cajbik(zv)sct.sk> - 23.6.2004 11:54:46
Zdravim,
ako co najjednoduchsie odoslat mail z aplikacie, potrebujem iba predplnit
text emailu, predmet a adresu v standartnom mail klientovi. Samotne
odoslanie by mal vykonat pouzivatel rucne, s moznostou rucne opravit alebo
doplnit mail. Klasicky cez SimpleMAPI mi to z Outlookom 2002 a vyssim
nefunguje (lepsie povedane mail sa predplni ale nema vyplnenu adresu
odosielatela a tym padom sa odoslanie nepodari). Robit to cez
ShellExecute('mailto...') sa mi prilis nepaci, okrem toho samotny text mailu
moze byt dlhsi. Riesenie by malo vyzerat tak ako som ho popisal, to znamena
program nema k dispozicii konto na odosielanie a ani odoslanie sa nema
vykonat automaticky.
Martin Cajbik
Problem s provadenim SQL skriptu pres ADO
[*] Martin Krim <krim(zv)nzservis(tec)cz> - 23.6.2004 11:40:44
dobry pokus, ale DATEFORMAT nastavuju explicitne (uz jsem se davno proskolil
:-)), DECIMAL SEPARATOR na MS SQL Serveru ??, i kdyby, tak to neni aktualni,
protoze des. cisla ve skriptu nepouzivam, navic pokud by DATEFORMAT byl
nevyhovujici, tak skript spadne a ADO by melo vratit chybu (mam odzkouseno)
>
> ..len tak strelim, nemohol by byt u zakaznika problem s local settings,
t.j.
> problem s DECIMAL SEPARATOR, DATE FORMAT a pod...?
> ..skus sa s tym pohrat..
>
Problem s provadenim SQL skriptu pres ADO
[*] Miso <delphinpp(zv)atlas(tec)cz> - 23.6.2004 11:08:36
----- Original Message -----
From: "Martin Krim" <krim(zv)nzservis(tec)cz>
> sem musel rychle vymyslet alternativni reseni - pouzil jsem utilitku
osql.exe (predpokladam, ze jede pres ODBC), kde je vsechno bez problemu
(takze MS SQL Server neni nijak nakopnuty). Nenapada vas neco??
>
..len tak strelim, nemohol by byt u zakaznika problem s local settings, t.j.
problem s DECIMAL SEPARATOR, DATE FORMAT a pod...?
..skus sa s tym pohrat..
Miso
Chyba pri ulozeni ICO do GIF s pomoci GraphicEx
[*] Bohac Frantisek <bohacf(zv)vnol(tec)cz> - 23.6.2004 10:44:34
Dobry den,
potrebuji ulozit ikonu ulozenou v TImage.Picture.Icon (jeji handle) na disk
ve formatu GIF; kdyz dam TGIFGraphic.SaveToFile(), tak se ulozi do *.gif,
ale je to ve formatu BMP. Co s tim? Kde je chyba?
uses GraphicEx; // http://www.soft-gems.net/Graphics.php
..
procedure TfrmMain.Button3Click(Sender: TObject);
var
GIFGraphic: TGIFGraphic;
begin
GIFGraphic := TGIFGraphic.Create;
try
GIFGraphic.Width := Image1.Picture.Icon.Width;
GIFGraphic.Height := Image1.Picture.Icon.Height;
GIFGraphic.Canvas.Draw(0, 0, Image1.Picture.Icon); // zapise se dobre
GIFGraphic.SaveToFile('d:\pokus.gif'); // ale na disk se zapisuje ve
formatu BMP :-((
finally
GIFGraphic.Free;
end;
end;
Dekuji za jakoukoliv radu.
S pozdravem
Frantisek Bohac
Problem s provadenim SQL skriptu pres ADO
[*] Martin Krim <krim(zv)nzservis(tec)cz> - 23.6.2004 10:22:32
DD,
napsal jsem jednoduchou app, ktera provadi sql skript (od 'GO' do 'GO') na MS SQL Serveru. Skript provadim pomoci ADO, nikoliv vsak pres ADO Express, ale primo volam metody COM rozhrani. Takrka u vsech zakazniku funguje vse bez problemu, krome jednoho. Skript, ktery provadim obvykle smaze vsechny data (DELETE FROM tbl1) v jedne tabulce a pak do te same tabulky nasype (INSERT ... ) nova data (jedna se o aktualizaci ciselnikovych hodnot). U problemoveho zakaznika dojde k uspesnemu smazani starych dat, ale uz se mu do tabulky nenasypou data nova. Bohuzel ADO mi nevraci zadny kod chyby (HRESULT metody Execute objektu Command je roven nule) a tvrdi, ze probehnuvsi operace byla dokoncena uspesne - coz je nysmysl - uspesne se provedl pouze DELETE, ale INSERT uz neprobehl - z praxe vim, ze moje implementace odchytavani chyb funguje bez problemu a myslim si, ze jako programator jsem nic nezvoral, presto me tento ojedinely problem dost zere. Problemovy zakaznik pouziva WinXP Pro SP1 CZ, navic
kdyz se skript nepodarilo provest pres ADO, tak j
sem musel rychle vymyslet alternativni reseni - pouzil jsem utilitku osql.exe (predpokladam, ze jede pres ODBC), kde je vsechno bez problemu (takze MS SQL Server neni nijak nakopnuty). Nenapada vas neco??
S pozdravem
Martin Krim
Nemate niekto skusenosti v pripojeni Interbase cez
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 23.6.2004 10:12:27
> 1. Nevies nahodou, co znamena: "secondary connection for event
processing.".
> ? To je z tej chybovej hlasky.
Tak to bohuzel nevim.> 2. Tu podmienku " IB nebo FB bezi primo na tom pocitaci, ktery je
pripojeny
> k internetu" si niekde cital, alebo vyexperimentoval?
Myslel jsem to tak, ze musi bezet na tom pocitaci, pokud nezajistis nejak
jinak presmerovani na jiny pocitac v siti. Ta IP adresa z venku smeruje na
ten pripojeny pocitac a pokud FB bezi na jinem v siti, tak bez dalsiho
presmerovani to nepojede. Musel bys nejak zajistit, aby pozadavky na port
3050 na tu IP adresu byly smerovany dal do site na jiny pocitac.
Marek Dostal
D7Prof, WinXP Home, FireBird 1.0.2
Nemate niekto skusenosti v pripojeni Interbase cez
[*] Libor Junek, Medisoft International <libor.junek(zv)medisoft(tec)cz> - 23.6.2004 09:58:21
FB muze byt na libovolnem PC. Musis mit ale zajistene ze se dostanes z netu
na port FB u serveru. Kdyz mas nejaky router tak staci si presmerovat port
(3050) na server. Dokonce je mozne kdyz nemas primou viditelnost na ten
pozadovany server FB, ale vidis nejaky jiny FB server, ktery uz se ale
dostane na ten tvuj pozadovany server je mozne si to presmerovat pres ten
viditelny FB.
Libor Junek
----- Original Message -----
From: "Ivan Kozak" <ivan(zv)boucek(tec)cz>
Sent: Wednesday, June 23, 2004 9:24 AM
> 2. Tu podmienku " IB nebo FB bezi primo na tom pocitaci, ktery je
pripojeny
> k internetu" si niekde cital, alebo vyexperimentoval?Nemate niekto skusenosti v pripojeni Interbase cez
[*] Ivan Kozak <ivan(zv)boucek(tec)cz> - 23.6.2004 09:24:18
Dakujem Ti za odpoved.
Na modeme to len odskusavam, inac bude ine pripojenie.
1. Nevies nahodou, co znamena: "secondary connection for event processing.".
? To je z tej chybovej hlasky.
2. Tu podmienku " IB nebo FB bezi primo na tom pocitaci, ktery je pripojeny
k internetu" si niekde cital, alebo vyexperimentoval?
Dik. Ivan Kozak
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Marek Dostal
Sent: Wednesday, June 23, 2004 8:32 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Nemate niekto skusenosti v pripojeni Interbase cez Internet?> Teraz som sa vsak chcel pripojit k tejto databaze cez modem (alebo aj
cez
> kablovku, to je jedno) "zvonka", t.j. nie cez lokalnu siet, pricom cestu
som
> znova skusil zadat cez (vonkajsiu)IP adresu.
Takto jsem to zkousel a fungovalo to. Podminkou je, ze IB nebo FB bezi primo
na tom pocitaci, ktery je pripojeny k internetu. Ja konkretne jsem si na
pocitaci s WinXpProf spustil FB, nakonfiguroval prichozi pripojeni, protoze
ten pocitac je pripojeny pres modem, a odjinud jsem toto pripojeni vytocil,
po pripojeni zjistil z vlastnosti pripojeni IP adresu ciloveho pocitace a
pres tu jsem se mohl pripojovat. Jen pres ten modem to bylo tak pomale, ze
to bylo nepouzitelne.
Marek Dostal
D7Prof, WinXP Home, FireBird 1.0.2
FB - Export, Import dat
[*] Dalibor <dalibor(zv)torola(tec)cz> - 23.6.2004 09:16:15
Ahoj,
mam databazi, ktera obsahuje master-detail tabulky. Potrebuji vyexportovat jeden, nebo i vice zaznamu z master tabulky + prislusne zaznamy z detail tabulek.
Nejprve me napadlo, ze bych mohl databazi zazalohovat potom obnovit jako jiny zdroj, vymazat vsechny nepotrebne udaje, opet ji zazalohovat, na miste kde bych provadel import, ji zase obnovil a vsechny udaje pomoci smycky doplnil do cilove databaze.
Jenze se mi to zda hodne krkolomne, muzete mi poradit jak se to da vyresit lepe?
Jaky exportni format se da pouzit, atd.
Dekuji
D7Prof, FB 1.5
Obnova ze zalohy
[*] Miroslav Novosad <mnprokonf(zv)quick(tec)cz> - 23.6.2004 09:06:14
From: "Zdenek Brejsa" <prog(zv)hjsoft(tec)cz>
> a ihned k veci: pri obnove dat ze zalohy do IB6.0 mi vybehne chyba
"System
> memory exhausted" - co to znamena ?
Malo pameti?
> a hlavne jak se tomu vyhnout ?
Zvetsit odkladaci soubor? Pridat pamet?
Nerika neco dokumentace k IB?
Miroslav Novosad
mnprokonf(zv)guick(tec)cz
Nemate niekto skusenosti v pripojeni Interbase cez
[*] Marek Dostal <konf(zv)agnis(tec)cz> - 23.6.2004 08:32:11
> Teraz som sa vsak chcel pripojit k tejto databaze cez modem (alebo aj
cez
> kablovku, to je jedno) "zvonka", t.j. nie cez lokalnu siet, pricom cestu
som
> znova skusil zadat cez (vonkajsiu)IP adresu.
Takto jsem to zkousel a fungovalo to. Podminkou je, ze IB nebo FB bezi primo
na tom pocitaci, ktery je pripojeny k internetu. Ja konkretne jsem si na
pocitaci s WinXpProf spustil FB, nakonfiguroval prichozi pripojeni, protoze
ten pocitac je pripojeny pres modem, a odjinud jsem toto pripojeni vytocil,
po pripojeni zjistil z vlastnosti pripojeni IP adresu ciloveho pocitace a
pres tu jsem se mohl pripojovat. Jen pres ten modem to bylo tak pomale, ze
to bylo nepouzitelne.
Marek Dostal
D7Prof, WinXP Home, FireBird 1.0.2
Obnova ze zalohy
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 23.6.2004 08:26:10
Ahoj vsem,
a ihned k veci: pri obnove dat ze zalohy do IB6.0 mi vybehne chyba "System
memory exhausted" - co to znamena ? a hlavne jak se tomu vyhnout ?
prosim, prosim, pomoc ...
Zdenek Brejsa, HJ-SOFT
Nemate niekto skusenosti v pripojeni Interbase cez
[*] Ivan Kozak <ivan(zv)boucek(tec)cz> - 22.6.2004 23:43:30
Ide o to, ze mam program, ktory bezi na databaze Interbase 7.1 pod
lokalnou sietou, k database zadavam cestu tak, ze pocitac identifikujem
(internou)IP adresou. Funguje to OK.
Teraz som sa vsak chcel pripojit k tejto databaze cez modem (alebo aj cez
kablovku, to je jedno) "zvonka", t.j. nie cez lokalnu siet, pricom cestu som
znova skusil zadat cez (vonkajsiu)IP adresu. Spojenie sa skutocne aj podari,
az na dve veci, s ktorymi si neviem rady:
1. Pri startovani hlavneho formu, este predtym, ako cokolvek robim s
Eventami mi hodi chybove hlasenie:
---------------------------
Debugger Exception Notification
---------------------------
Project DELVA.exe raised exception class EIBInterBaseError with message
'Unable to complete network request to host "193.179.65.231".
Failed to establish a secondary connection for event processing.
unknown Win32 error 10060'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
Hlavne neviem, co to je "secondary connection for event processing.". Treba
nieco nastavit este v Interbase serveri?
Cez tuto fazu to ale prejde (aj ked so zdrzanim, zrejme kvoli neuspesnym
pokusom), otvori tabulky, dokonca aj registracia eventov (Events.Add,
Registered)tam kde ich skutocne robim prebehne bez chyboveho hlasenia. 2. Problem ale potom nastane pri zatvarani formu, kde zostane visiet na
prikaze
with IBEvents1 do UnRegisterEvents;
Strasne dufam, ze je to len v tom, ze som nieco nenastavil, co som mal, ale
teraz som s tym zacal, a zatial neviem, "kam sahnut". Neviete mi niekto
poradit v tychto dvoch veciach?
Dik za kazdu pomoc
Ivan Kozsk
Pole jako parametr procedury
[*] Jaroslav Bucek <jaroslav.bucek-kd(zv)seznam(tec)cz> - 22.6.2004 16:16:43
----- Original Message -----
From: "Jan Netrval" <jnetrval(zv)pilscom(tec)cz>
Sent: Tuesday, June 22, 2004 3:12 PM
> Lze nejakzm zpusobem definovat proceduru kde jako var parametr bude
> dynamicke pole?
nestaci takhle?
procedure Proc(var AB : array of XY);
Jarda
Pole jako parametr procedury
[*] Petr Daricek <petr.daricek(zv)seznam(tec)cz> - 22.6.2004 15:52:41
Ahoj,
zkus predavat ukazatel na to pole.
Petr
Pole jako parametr procedury
[*] Jan Netrval <jnetrval(zv)pilscom(tec)cz> - 22.6.2004 15:12:35
Lze nejakzm zpusobem definovat proceduru kde jako var parametr bude
dynamicke pole?
Predem diky.
Honza
Odeslani tiskove sestavy jako mail
[*] Jirka <jw-delphi(zv)seznam(tec)cz> - 22.6.2004 15:30:38
Ahoj,
z tech WMF nebo BMP udelat PDF.
Zkus vyhledat na googlu ExportPack.
Jirka
Filip Libor wrote:
> Libi se nam moznost 2. Ale pokud je sestava na vice stranek, tak metoda
> WritePagesToWMF vytvari vice souboru. Potrebujeme, aby to bylo v jednom
> souboru. Existuje nejaka moznost?chyby v dfm - [1] ... [2] atd..
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 22.6.2004 14:54:31
Mozna byl problem v Parent jednoho prvku - v predkovi mel Parent-a jeden
ScrollBar jineho nez v potomku... Tak asi to bylo toto..
Debug version vcl60.bpl atd.
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 22.6.2004 15:00:33
kamarad je mimo :-) a druhej mi nejak neodpovida (asi musi pracovat :-)
tak tohle ja nevim a asi by nejlepsi byla konference... treba nekdo poradi.
Asi bude lepsi, kdyz tam ale napises ty - vys o tom vic nez ja..
Pokud by konference nepomohla, tak bych zacal patrat nebo by to chtelo
zabrousit na nejakou zahranicni konferenci..
H.Odeslani tiskove sestavy jako mail
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 22.6.2004 14:54:32
> From: Filip Libor
>
> Libi se nam moznost 2. Ale pokud je sestava na vice stranek,
> tak metoda
> WritePagesToWMF vytvari vice souboru.
Jeden metafile obsahuje grafickou reprezentaci jedne stranky.
> Potrebujeme, aby to bylo v jednom
> souboru. Existuje nejaka moznost?
Jinou moznosti by bylo pouzit format RTF.
Ten dela celou sestavu do jednoho souboru.
Vaclav Krmela
Odeslani tiskove sestavy jako mail
[*] Filip Libor <filip(zv)fitmin(tec)cz> - 22.6.2004 14:46:30
Libi se nam moznost 2. Ale pokud je sestava na vice stranek, tak metoda
WritePagesToWMF vytvari vice souboru. Potrebujeme, aby to bylo v jednom
souboru. Existuje nejaka moznost?
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Vaclav Krmela
Sent: Friday, June 18, 2004 12:08 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Odeslani tiskove sestavy jako mail
Jsou asi dva zpusoby:
1. vytvorit textovou sestavu a tu primo vlozit do obsahu zpravy
Sestavu vygenerovat do Streamu, ze streamu nacist do StringList
a ten vlozit do obsahu zpravy
2. textovou grafickou sestavu ulozit do pomocneho souboru
a ten vlozit jako prilohu zpravy.
Tento postup lze pouzit na libovolny typ sestavy.
V pripade graficke doporucuji format Metafile.
Vaclav Krmela
Ako zistit externu IP ak som za NAT
[*] Martin Pokorny <kralkonf(zv)purus(tec)cz> - 22.6.2004 14:22:26
Pavol Stugel, NETGraphics napsal(a):
>>Jak na to?
>>
>>
>posles si mail, a v hlavicke mas IPcku natka ... ;)
>
>
To je nesmysl!chyby v dfm - [1] ... [2] atd..
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 22.6.2004 14:12:24
Omlouvam se, chyba byla nekde jinde.. S temi znaky [2] a podobne to ted
chodi.. Stale ovsem nevim, co presne znamenaji.. :-)
chyby v dfm - [1] ... [2] atd..
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 22.6.2004 14:16:25
> neco doplnil do predka, tak zrejme dochazelo
> ke kolizim poradi a neslo to otevrit jinak,
> nez ty cisla rucne vyhazet a pak pripadne znova
> porovnat poradi polozek v menu atp...
>
Diky, za odpoved, ze v tom nejsem sam :-)
Naposledy k tomu doslo, kdyz jsem smazal vic komponent na potomkovi a
prendal je nekam jinam. Nestastne jsem pouzil Ctrl+X a Ctrl+V. Coz formular
nevydychal.. Nasledne nastal problem - pomohlo smazani dvou prvku. Nevim
presne proc, ale byly asi umistneny nejak spatne..
JR
chyby v dfm - [1] ... [2] atd..
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 22.6.2004 13:56:22
Ahoj,
mel jsem jednou tu cest problem potkat.
Nastavalo to, kdyz jsem mel nejakyho predka
TForm, nebo TFrame a v potomkovi jsem si
zprehazel ci doplnil treba polozky v menu a
podobne. Tehdy si tam delphi nahazely ty cislo,
coz je asi nejaky poradovy cislo, kdyz je poradi
objektu jine nez v predkovy. Potom, kdyz jsem
neco doplnil do predka, tak zrejme dochazelo
ke kolizim poradi a neslo to otevrit jinak,
nez ty cisla rucne vyhazet a pak pripadne znova
porovnat poradi polozek v menu atp...
Peca
ListView+OwnerData+OwnerDraw
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 22.6.2004 13:48:19
zdravim
nevite nekdo jestli se da kombinace ListView+OwnerData+OwnerDraw provozovat
v jinem Stylu nez report, nejak mi to blbne pokud mam Icon vykresli se az
nad tim prejedu mysi nejde posunovat se nahoru a dolu (nejsou scrollbary),
...
delphi5 a winXP
chyby v dfm - [1] ... [2] atd..
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 22.6.2004 13:36:15
zapomnel jsem dodat, ze pouzivam D6 profesional .. tak kdyby se to nekomu
taky stavalo... tak se prosim ozvete..
JR
chyby v dfm - [1] ... [2] atd..
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 22.6.2004 13:14:10
Obcas se mi objevi v nejakem formulari nebo framu v dfm souboru znaky [1] [2] atd. Vzdy se objevi za definici objektu.
Pr.:
object PanelKriteria: TPanel [3]
Left = 0
Top = 21
Width = 766
zpusobuje to nemoznost vytvorit tento formular nebo frame - object PanelKriteria nezna..
Nevite, cim je to zpusobene?
Pokud tyto znaky smazu, je vsechno zase v poradku...
Dekuju za pripadne odpovedi
JR
mutexy na win98, padani aplikace
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 22.6.2004 12:12:05
Karel Plechota wrote:> jeste jeden dotaz, muzu si napsat objekt:
> a timto zpusobem pouzivat mutexy? neni v tom nejaky problem?
Kdyz to napises spravne, tak v tom zadny problem neni ;-)
> chtel bych se zeptat - je nejaky znamy problem s mutexy na w98? driv
> jsem pouzival kriticke sekce a aplikace fungovala.
Pokud vim, tak jsme na nikdy na zadne problemy s mutexy pod W98 nenarazili.
***
Kdyz si myslis, ze to ma co delat s prechodem od kritickych sekci na mutexy
a mas je zapouzdrene v objektu, tak muzes zkusit napsat spolecneho predka
a zapouzdrit i kritickou sekci. Pak to muzes jednoduse prehazovat tam a
zpatky
a uvidis, jestli to ma co delat s mutexy vs. kritickymi sekcemi.
Jedine co me napada je, ze kriticka sekce nema timeout, takze pokud nemas
spravne osetrenu nedostupnost mutexu, mohlo by se ti stat, ze vlezes nekam,
kde momentalne nemas co delat a tim to zhavaruje.
HTH, pf
Problem se sferickym trojuhelnikem
[*] martin.ben(zv)ge(tec)com - 22.6.2004 11:22:00
V tomto pripade bych se kouli vubec nezabyval. Kdysi jsem se zabyval vypocty prvku pro strelbu delostrelectva a vsechno jsme resili v rovine. Pro vzdalenosti do 30 km, kterymi jsme se tehdy zabyvali, byla presnost vice nez dostacujici. Jeden kolega resil podobne vypocty pro strelbu taktickymi raketami na vzdalenosti do 300 km a stacila mu taky rovina. Aby taky ne pri presnosti tech raket :-))
Martin Ben
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Petr Brant
Naprosto dostacuje koule, jedna se nejvyse o desitky km a nepresnost je
zanedbatelna, nejedna se o nic kritickeho. Stahl jsem si nekolik PDF na toto
tema, nejak bych to z toho dostal, ale jak rikam, nechce se mi vymyslet
vymyslene. Takze pokud nekdo vite a jste ochoten se podelit....
Problem se sferickym trojuhelnikem
[*] Miroslav Novosad <mnprokonf(zv)quick(tec)cz> - 22.6.2004 10:58:01
From: "Petr Brant" <brant(zv)dcomm(tec)cz>
> Naprosto dostacuje koule, jedna se nejvyse o desitky km a nepresnost
je
> zanedbatelna, nejedna se o nic kritickeho.
V tom pripade (max. desitky km) bych se na nejakou "sfericnost" asi
vykaslal a resil bych to v rovine. Z rozdilu uhlu x R (6378 km) mas
delky odvesen, takze pokud prvni bod prohlasis za [0,0] tak tim dostanes
[x1,y1] a [x2,y2] tech dalsich a vzdalenost bodu [x2,y2] od primky
([0,0],[x1,y1]) zvladnes levou zadni, ne?
M. Novosad
mutexy na win98, padani aplikace
[*] Karel Plechota <karel.plechota(zv)seznam(tec)cz> - 22.6.2004 10:50:00
zdravim,
nedavno jsem predelal rizeni threadu v moji aplikaci pomoci mutexu, ale mam problem. na w2000 aplikace funguje ale na w98 po 5ti minutach spadne. nemuzu ani odchytit zadnou vyjimku na Application.OnException, win98 proste jen zahlasi ze doslo k vyjimce a ukonci aplikaci. Kazde exceute v threadu mam v try - except, veskere veci loguju, ale aplikace stejne zbuchne jako by try except ani nebylo. mam sanci se nejak dovedet co se stalo?
chtel bych se zeptat - je nejaky znamy problem s mutexy na w98? driv jsem pouzival kriticke sekce a aplikace fungovala.
dekuji
ps mam Delphi 5 Enterprise
jeste jeden dotaz, muzu si napsat objekt:
TMutex = class
function Enter: boolean;
end;
a metodu:
function TMutex.Enter: boolean;
begin
case WaitForSingleObject( fHandle, fTimeout ) of
WAIT_OBJECT_0 :
.......
a timto zpusobem pouzivat mutexy? neni v tom nejaky problem?
LMDTrayIcon, obnovena aplikace bez focusu...
[*] Horak Jaroslav <jaroslav.horak(zv)elcomgroup(tec)cz> - 22.6.2004 10:39:58
Zdravim.
Nedelal, nekdo, prosim, s komponentou TLMDTrayIcon? Problem je v tom, ze
aplikace, obnovena z tray icon baru nema focus. Zaleze do pozadi za ostatni
otevrene okna.
Jedine reseni, ktere me napada je odchytavat kdy se okno aplikace obnovuje a
rucne mu pridelit focus. Ale zda se mi to jako dost kostrbate.
Nemate nekdo podobnou zkusenost a pripadne reseni?
Diky Jarda
Prenos souboru po seriovem kabelu
[*] tomsir1.edu(zv)mail.cez(tec)cz - 22.6.2004 10:31:57
Ahoj,
nemate nahodou nekdo naprogramovane %SUBJ% ??
potreboval bych neco trochu inteligentnejsiho a vic user-friendly nez je
prime propojeni a nechce se mi psat jiz napsane (pokud to tedy uz nekdo
napsal :O))
Dekuji Radek
Problem se sferickym trojuhelnikem
[*] Lukas Barton <look_as(zv)cnawr(tec)cz> - 22.6.2004 10:21:50
Zde je reseni pro vzdalenost dvou bodu:
(staci do vzorce dosadit koncovy bod a promitnuti paty vysky toho
trojuhelnika (kdyz se na nej podivame v jeho rovine) na kouli).
Pokud se pletu, tak mne opravte.
Sestavte funkci na vypocet vzdalenosti dvou bodu na zemekouli.
Instrukce: Ulohu je treba dekomponovat do tri funkci. Prvni z nich slouzi k
vypoctu vzdalenosti dvou bodu na jednotkove kouli. Pritom je pouzit temer
400 let stary Napieruv vzorec, ktery neni trivialni odvodit. Druha funkce
slouzi k prevodu kladnych i zapornych uhlu z vyjadreni ve stupnich, minutach
a vterinach na necele stupne. Konecne treti funkce zuroci nase snazeni a
vyvolanim predchozich dvou funkci zajisti vysledek. Reseni:
function d=Napier(bod1, bod2)
% Nejkratsi vzdalenost dvou bodu na jednotkove kouli dle Napiera
% d=Napier(bod1, bod2);
% d ... vzdalenost bodu na kouli
% bod1 ... poloha prvniho bodu jako vektor [delka sirka] ve stupnich
% bod2 ... poloha druheho bodu jako vektor [delka sirka] ve stupnich
% prevod na radiany
bod1=bod1*pi/180; bod2=bod2*pi/180;
% vytazeni z vektoru
l1=bod1(1); w1=bod1(2); l2=bod2(1); w2=bod2(2);
% Napier v 17. stoleti
cose=sin(w1)*sin(w2)+cos(w1)*cos(w2)*cos(l1-l2);
d=acos(cose); % zjisteni vzdalenosti na jednotkove kouli
function phi=Uhel(dms)
% Prevod uhlu ze stupnu, minut a vterin na necele stupne
% phi=Uhel(dms);
% phi ... vysledny uhel ve stupnich
% dms ... uhel jako vektor [d m s], kde
% d ... cele uhlove stupne
% m ... cele uhlove minuty
% s ... uhlove vteriny
d=dms(1);m=dms(2);s=dms(3); % vydolovani informaci z vektoru
z=sign(d); % urceni znamenka vysledku
z=z+(z==0)*sign(m); % chybi-li stupne
z=z+(z==0)*sign(s); % chybi-li minuty
d=floor(abs(d)); % proc asi?
m=floor(abs(m)); % jeste jednou
s=abs(s); % konec spinave prace
phi=d+m/60+s/3600; % proc je to az tady?
phi=z*phi; % bonbonek na vrcholu dortu
function [d]=Geoid(delka1,sirka1,delka2,sirka2)
% Nejkratsi vzdalenost dvou mist na zemekouli
% [d]=Geoid(delka1,sirka1,delka2,sirka2);
% d ... vzdalenost v metrech
% delka1 ... zemepisna delka 1. bodu jako vektor
% [stupne minuty vteriny]
% sirka1 ... zemepisna sirka 1. bodu jako vektor
% [stupne minuty vteriny]
% delka2 ... zemepisna delka 2. bodu jako vektor
% [stupne minuty vteriny]
% sirka2 ... zemepisna sirka 2. bodu jako vektor
% [stupne minuty vteriny]
d1=Uhel(delka1);s1=Uhel(sirka1);
prevody
d2=Uhel(delka2);s2=Uhel(sirka2);
d=6386000*Napier([d1 s1],[d2 s2]);
Priklad 3A.4: Od funkce k formuli pro vypocet merneho tepla
dvouatomoveho plynu.
Instrukce: Nastudujte funkci CpIdeal2, spustte ji pro chlorovodik a ruzne
teploty, nakreslete graf Cp pro teplotu od 0 do 500 stupnu Celsia a napiste
matematickou formuli pro Cp jako jeden celek. Dale sestavte funkci, ktera
zjisti, o kolik procent se zvetsi Cp pri zdvojnasobeni teploty. Nasleduje
vypis funkce: Reseni:
function [Cp]=CpIdeal2(ni,t)
% Molarni teplo Cp pro dvouatomovou molekulu
% podle statisticke termodynamiky
% [Cp]=CpIdeal2(ni,t);
% Cp ... molarni teplo pri konstantnim tlaku (J/kmol/K)
% ni ... frekvence vibraci (8.67e13 Hz pro HCl)
R=8314.3; % plynova konstanta (J/kmol/K)
h=0.66262e-33; % Planckova konstanta (J/s)
k=1.3806e-23; % Boltzmanova konstanta (J/K)
T=t+273.15; % absolutni teplota
x=h*ni/k./T; % pomocna promenna
Cp=7/2*R+R*x.^2.*exp(x)./(exp(x)-1).^2;
demo verze - ochrana..
[*] Jan Rizek <abxsw(zv)centrum(tec)cz> - 22.6.2004 09:29:43
> Jak uz tu nekdo psal, taky pouzivam globalni soubor s direktivami
> kompilatoru. V kazde unite, kde se na ne potrebuju odkazat dam na nej
> include.
>
To je asi nejlepsi zpusob. Dekuji za typy.
JR
Problem se sferickym trojuhelnikem
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 22.6.2004 07:53:35
Naprosto dostacuje koule, jedna se nejvyse o desitky km a nepresnost je
zanedbatelna, nejedna se o nic kritickeho. Stahl jsem si nekolik PDF na toto
tema, nejak bych to z toho dostal, ale jak rikam, nechce se mi vymyslet
vymyslene. Takze pokud nekdo vite a jste ochoten se podelit....
Zdravim vsechny
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant <http://web.redbox(tec)cz/petr.brant>
> From: "Petr Brant" <brant(zv)dcomm(tec)cz>
> > mam souradnice dvou bodu (zemepisna sirka a delka v radianech).
>
> Od kdy jsou zemepisne souradnice v radianech? :-)
>
> > treti bod dany stejnym zpusobem a mam z toho spocitat vzdalenost
> tohoto
> > tretiho bodu od spojnice (ortodromy) tech dvou puvodnich bodu. Neco
> jako
> > vysku ve sferickem trojuhelniku. Neresil jste to nahodou nekdo, at
> > nevymyslim vymyslene?
>
> Neresil, ale urcite je to uz vymyslene... Asi bys mel jeste upresnit o
> jake vzdalenosti a presnost se jedna a tudiz jestli to chces resit na
> referencni kouli nebo elipsoidu. Ta koule by mela byt (relativne)
> jednoducha, ale pro elipsoid, pokud me pamet nemate (pravda, od statnic
> je to uz nejaky patek), obecne reseni nebylo a vypocty se nejak
> iterovaly.
QuickRep, pocet kopii
[*] Jaromir Cermak <cermak(zv)procom(tec)cz> - 22.6.2004 07:41:34
Ahoj vsichni
V D7 mam nasledujici problem. Ve vlastnim prohlizeci vyvolavam PrintDialog. Pred tim nastavim v dialogu pocet kopii na 2. Totez jsem nastavil do PrinterSettings a QRPrinter komponenty TQuickRep a do globalnch promennych Printer a QRPrinter. Presto se mi v dialogu zobrazuje hodnota 1 (nebo dle nast v ovladaci) a ne 2 (dle nastaveni programem) pred volanim Execute dialogu tam je opravdu vsude 2. Kdyz dialog ovlivnuju v temer prazdne aplikaci, vse se chova OK. Prosim pordte kde by mohla byt chyba. Predem diky..
Jaromir Cermak
QuickReport 3.5.0 - tisk vybranych stranek
[*] abtrade(zv)volny(tec)cz - 22.6.2004 07:13:28
Ahoj,
- musis naprogramovat vlastni preview
- Zdroje 1001 Delphi, Help QR 4.0
- google - custom preview
Ahoj Bernard
----- PUVODNI ZPRAVA -----
Od: delphak(zv)centrum(tec)cz
Komu: delphi-l(zv)clexpert(tec)cz
Predmet: QuickReport 3.5.0 - tisk vybranych stranek
Datum: 21.6.2004 - 14:44:58
> Ahoj, mam nasledujici problem. V print preview pod
> volbou printer setup od QReportu si uzivatel vybere
> rozsah stranek, ktere chce vytisknout. Napr. od strany
> 2 do strany 5.
> Potvrdi dialog a da tisk a vytisknou se stranky vsechny
> ...
> Muzete me nekdo nakopnout spravnym smerem, co je
> spatne?
> Diky.
>
>
>
>
>
>
>
--
SPLATKY BEZ NAVYSENI!
www.MALL(tec)cz - nakupujte s urokem 0%!
Mimoradna akce plati do 1. cervence.Problem se sferickym trojuhelnikem
[*] Miroslav Novosad <mnprokonf(zv)quick(tec)cz> - 22.6.2004 01:27:03
From: "Petr Brant" <brant(zv)dcomm(tec)cz>
> mam souradnice dvou bodu (zemepisna sirka a delka v radianech).
Od kdy jsou zemepisne souradnice v radianech? :-)
> treti bod dany stejnym zpusobem a mam z toho spocitat vzdalenost
tohoto
> tretiho bodu od spojnice (ortodromy) tech dvou puvodnich bodu. Neco
jako
> vysku ve sferickem trojuhelniku. Neresil jste to nahodou nekdo, at
> nevymyslim vymyslene?
Neresil, ale urcite je to uz vymyslene... Asi bys mel jeste upresnit o
jake vzdalenosti a presnost se jedna a tudiz jestli to chces resit na
referencni kouli nebo elipsoidu. Ta koule by mela byt (relativne)
jednoducha, ale pro elipsoid, pokud me pamet nemate (pravda, od statnic
je to uz nejaky patek), obecne reseni nebylo a vypocty se nejak
iterovaly.
Miroslav Novosad
mnprokonf(zv)guick(tec)cz
OT: hledam praci
[*] Josef Straka <strakajosef(zv)seznam(tec)cz> - 21.6.2004 22:40:16
D5Prof SP1, W98SE
Prijemny den,
hledam nejakou moznost privydelku pri programovani. Clovek se pri te
prilezitosti i neco noveho nauci, ze. Potrebujete-li nekdo pomoci pri
programovani v Delphi a budou-li stacit moje vedomosti, rad pomohu. Prosim
odpovidejte na muj soukromy mail.
Diky a jsem s pozdravem,
letos jsem slysel zjara kosa jiz po jedenatricate :-)
Straka Josef
mail: strakajosef(zv)quick(tec)cz
www: http://strakaj.zde(tec)cz
OT: Prispevky z tejto konferencie v kategoriach
[*] Martin Kasman <martinkasman(zv)martinkasman.sk> - 21.6.2004 21:54:12
Prispevky z tejto konferencie sa spracuvaju - odpovede s otazkami sa sa
prirazdzuju do diskusii a diskusie sa delia do kategorii.
Adresa s prispevkami bola zmenena na priamu adresu (bez preklikavania):
www.delphil.szm.sk
Na stranke je aj pridana sekcia "Prispievatelia do konferencie", kde mozete
najst svoje meno so zoznamom a linkami na diskusie, ktore ste otvorili alebo
ste do nich prispeli.
Pekny den praje www.MartinKasman.sk
Barva Pixelu Desktopu
[*] Vaclav Sykora <vaclav.sykora(zv)accidis(tec)cz> - 21.6.2004 16:55:50
Zdravim,
screenshot lze udelat takhle:
function GetScreenshot: TBitmap;
var
DesktopDC: HDC;
DesktopCanvas: TCanvas;
DesktopRect: TRect;
bmp: TBitmap;
begin
DesktopDC:= GetWindowDC(GetDeskTopWindow);
DesktopCanvas:= TCanvas.Create;
DesktopCanvas.Handle:= DesktopDC;
DesktopRect:= Rect(0, 0, Screen.Width, Screen.Height);
bmp:= TBitmap.Create;
bmp.Height:= Screen.Height;
bmp.Width:= Screen.Width;
bmp.Canvas.CopyRect(DesktopRect, DesktopCanvas, DesktopRect);
Result:= bmp;
ReleaseDC(GetDesktopWindow, DesktopDC);
end;
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of Milos J. Hrach
> Sent: Monday, June 21, 2004 2:14 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Barva Pixelu Desktopu
>
>
> Nevite nekdo jak zjistit barvu pixelu obrazovky, nebo
> pripadne ulozit celou obrazovku do obrazku. Diky
>
> --
> Milos J. Hrach, D6 profi, WinXP Home
>
>
>
>
>
Problem se sferickym trojuhelnikem
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 21.6.2004 16:51:49
Ahoj vespolek,
mam souradnice dvou bodu (zemepisna sirka a delka v radianech). Dale mam
treti bod dany stejnym zpusobem a mam z toho spocitat vzdalenost tohoto
tretiho bodu od spojnice (ortodromy) tech dvou puvodnich bodu. Neco jako
vysku ve sferickem trojuhelniku. Neresil jste to nahodou nekdo, at
nevymyslim vymyslene?
Zdravim vsechny
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
Prevod RGB - gray
[*] Josef Straka <strakajosef(zv)seznam(tec)cz> - 21.6.2004 16:37:47
Prijemny den,
----- Original Message ----- From: "Pavol Stugel,
> Potreboval bych vedet, z ceho vychazeji ty koeficienty u jednotlivych
> slozek, s ....
Velice pekny clanek na toto tema, ktery bohate postaci na pochopeni tech
koeficientu je tady: http://www.fotoroman(tec)cz/techniques/histogram.htm
Straka Josef
mail: strakajosef(zv)quick(tec)cz
www: http://strakaj.zde(tec)cz
Kompilace a package
[*] Filip Libor <filip(zv)fitmin(tec)cz> - 21.6.2004 15:39:42
Ahoj,
chci kompilovat program pomoci dcc32. Program se odkazuje na package AAA,
kterou jsme vytvorili. Pri kompilaci stale hlasi chybu: File not found:
"AAA.dcp".
Nevite nekdou, jak to mam vyresit.
Dekuji
Libor Filip
D5 Prof + W2000
QuickReport 3.5.0 - tisk vybranych stranek
[*] delphak(zv)centrum(tec)cz - 21.6.2004 14:43:37
Ahoj, mam nasledujici problem. V print preview pod volbou printer setup od QReportu si uzivatel vybere rozsah stranek, ktere chce vytisknout. Napr. od strany 2 do strany 5.
Potvrdi dialog a da tisk a vytisknou se stranky vsechny ...
Muzete me nekdo nakopnout spravnym smerem, co je spatne?
Diky.Barva Pixelu Desktopu
[*] Milos J. Hrach <delphi_konf(zv)post(tec)cz> - 21.6.2004 14:13:35
Nevite nekdo jak zjistit barvu pixelu obrazovky, nebo pripadne
ulozit celou obrazovku do obrazku. Diky
--
Milos J. Hrach, D6 profi, WinXP Home
Jak predat obsah OLEContaineru do jineho OLEContai
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 21.6.2004 13:13:28
Ahoj vespolek,
v OLEContaineru mam vsazeny objekt (MS MapPoint 2002). Chtel bych mit kopii
tohoto objektu jeste v jinem okne s tim, ze veskere akce provedene v tomto
okne by se kopirovaly do toho okna puvodniho. Zkratka takove klasicke
propojeni, kdy se predava pointer na objekt z jednoho okna do jineho. Ale
nemuzu prijit na to, jak predat obsah OLEContaineru do jineho OLEContaineru
bez toho, ze by se musel objekt znovu vytvaret. Jde to vubec?
Zdravim vsechny
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]
http://web.redbox(tec)cz/petr.brant
TNotebook a anchors u jeho komponent
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 21.6.2004 10:40:37
Zdravim vsechny,
pouzivam komponentu TNotebook. Na jejich strankach mam nejake TDBGrid a
TLabel komponenty, ktere pouzivaji Anchors. Na prvni strance komponenty
TNotebook ty anchors funguji, ale na ostatnich ne. Neresil jste to uz nekdo,
nevite cim by to mohlo byt ?
diky
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
Nelze najit dynamicky propojovanou knihovnu ...
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 21.6.2004 11:20:43
Puvodni zprava ze dne 21.6.2004:
> To je mi jasne, ale kde se da zmenit nastaveni cesty hledani, aby nehledal
> na C:, ale na D: (win2000).
No prece v nastaveni cest, tam kde nastavujes cesty do vsech adresaru,
kde mas komponenty - Tools - Environment Options - Library...
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Update tabulky podle hodnot z jine tabulky
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 21.6.2004 10:40:36
a nemelo by update Zbozi mit take alias: update Zbozi z set z.cena=(select
....) aby doslo k propojeni ?
----- Original Message -----
From: "petr palicka" <palicka.petr(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, June 21, 2004 8:30 AM
Subject: Re: Update tabulky podle hodnot z jine tabulky
> AFAIK jedine poddotazem, priblizne takto:
>
> update Zbozi
> set
> cena =
> (
> select a.cena
> from Zbozi z, AkcniCeny a
> where z.id_zbozi = a.id_zbozi
> )
>
> peca
>
>Nelze najit dynamicky propojovanou knihovnu ...
[*] Ing. Igor Vodicka <vodicka(zv)sagit(tec)cz> - 21.6.2004 11:16:42
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Petr Zahradnik
>
> No tak evidentne mas runtime balicky na ceste:
>
> C:\...\Delphi5\Projects\Bpl
>
> a on je tam hleda a hleda...
>
To je mi jasne, ale kde se da zmenit nastaveni cesty hledani, aby nehledal
na C:, ale na D: (win2000).
Igor Vodicka
Nelze najit dynamicky propojovanou knihovnu ...
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 21.6.2004 10:54:40
Puvodni zprava ze dne 21.6.2004:
> Hlaska se objevuje nekolikrat za sebou, pro ruzne dalsi BPL. Nekde jsou
> poznacene cesty, ktere se prohledavaji, po prekopirovani slozky
> Borland\Delphi5\Projects na disk C: (win98) se hlaska neobjevuje.
No tak evidentne mas runtime balicky na ceste:
C:\...\Delphi5\Projects\Bpl
a on je tam hleda a hleda...
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Nelze najit dynamicky propojovanou knihovnu ...
[*] Ing. Igor Vodicka <vodicka(zv)sagit(tec)cz> - 21.6.2004 10:46:38
Zdravim vsechny!
Nejdrive trochu historie:
Provozoval jsem D5 Ent na Win98. Doplnil jsem si dalsi disk do PC (Win2000),
nainstaloval D5 Ent a nakonfiguroval D5 stejne jako na win98. Instalace na
win98 zustala. Pracoval jsem jen ve Win2000 a vse bylo OK. Disk s Win98
pouziva jen synator a byla potreba uvolnit misto na disku, proto jsem
odinstaloval z Win98 D5.
Pri spusteni D5 z Win2000 mne cekalo prekvapeni, objevila se hlaska:
Nelze najit dynamicky propojovanou knihovnu JVCL200_R50.BPL na zadane ceste
D:\Program
files\Borland\Delphi5\Bin;.;D:\WINNT\system32;D:\WINNT\system;...dalsi cesty
a take
;;C:\PROGRA~1\Borland\Delphi5\BIN;C:\PROGRA~1\Borland\Delphi5\Projects\Bpl;.
.. a dalsi cesty
Hlaska se objevuje nekolikrat za sebou, pro ruzne dalsi BPL. Nekde jsou
poznacene cesty, ktere se prohledavaji, po prekopirovani slozky
Borland\Delphi5\Projects na disk C: (win98) se hlaska neobjevuje.
Nevite nekdo co se asi stalo a hlavne jak z toho ven. Zkousel jsem v
nastaveni menit cesty a nic nepomaha.
Ing. Igor Vodicka
informacni systemy
Nakladatelstvi Sagit
Tel.: 59 6786 001
HTTP://www.sagit(tec)cz/
Systemove ikony z MessageBox
[*] Karel Kral <kralkonf(zv)purus(tec)cz> - 21.6.2004 10:36:35
Vaclav Sykora napsal(a):
> Dobry den,
>
> existuje ve WinAPI funkce, ktera vraci systemove ikony, ktere se
> pouzivaji na formulari MessageBox? Staci mi pouze ikona pro Error.
>
> Dekuji,
>
> Vaclav Sykora
> vaclav.sykora(zv)accidis(tec)cz
>
imgWarning.Picture.Icon.Handle := LoadIcon(0, IDI_EXCLAMATION);
--
______________________________________________________
Karel Kral, vedouci odd. IT / IT manager
Purus, s.r.o., Cezavy 627, 664 56 Blucina, CZ
Tel: 547 235 000, 602 552 432, Fax: 547 231 203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
FindFirst a atribut ARCHIVE
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 21.6.2004 10:16:33
Zdravim.
Hledam soubory FindFirst/FindNext a mam problem s tim, ze soubor, ktery
ma smaznuty vsechny atributy nenajdu zadnou kombinaci attributu.
V sysutils jsou definovany tyto konstanty :
faReadOnly = $00000001 platform;
faHidden = $00000002 platform;
faSysFile = $00000004 platform;
faVolumeID = $00000008 platform;
faDirectory = $00000010;
faArchive = $00000020 platform;
faAnyFile = $0000003F;
Zkusil jsem do sveho projektu pridat jeste
faNoArchiveFile = $00000080;
faMyAnyFile=$000000FF;
No a zda se ze to funnguje (viz upraveny priklad z helpu)
Myslite ze je to spravne, resp mohl by to nekdo zkusit na jinem systemu
(W98, XP,XPHome).
Ja to mam na W2000 profi
Diky
Ludek
procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
FileAttrs: Integer;
begin
StringGrid1.RowCount := 1;
if CheckBox1.Checked then
FileAttrs := faReadOnly
else
FileAttrs := 0;
if CheckBox2.Checked then
FileAttrs := FileAttrs + faHidden;
if CheckBox3.Checked then
FileAttrs := FileAttrs + faSysFile;
if CheckBox4.Checked then
FileAttrs := FileAttrs + faVolumeID;
if CheckBox5.Checked then
FileAttrs := FileAttrs + faDirectory;
if CheckBox6.Checked then
FileAttrs := FileAttrs + faArchive;
if CheckBox7.Checked then
FileAttrs := FileAttrs + faAnyFile;
// dodano
if CheckBox8.Checked then
FileAttrs := FileAttrs + faNoArchiveFile;
if CheckBox9.Checked then
FileAttrs := FileAttrs + faMyAnyFile;
// dodano
with StringGrid1 do
begin
RowCount := 0;
if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then
begin
repeat
if (sr.Attr and FileAttrs) = sr.Attr then
begin
RowCount := RowCount + 1;
Cells[1,RowCount-1] := sr.Name;
Cells[2,RowCount-1] := IntToStr(sr.Size);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;
end;
Prevod RGB - gray
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 21.6.2004 10:00:25
> ja pouzivam radeji trochu upravenou (nepouziva desetinna cisla)
ak chces zrychlit tak pouzi pre viac pixlov naraz ;) a hlavne nepouzivat
pf24bit, ale pf32bit!!
> co se tyce daneho poctu odstinutak jak uz tu bylo pouzit div nebo pokud je
> to mozne tak shr (pro hodnoty 2,4,8,16,32,64,128) a to jeste pred radkem
> result:=....
hmmmm, DIV ktory sa da previest na SHR kompilator automaticky prevadza, takze
pokial ide o citatelnost kodu je lepsi ten DIV :)
A dalsia vec, nasobenie cislami 19595, 38469, 7471 ti zozere viac cyklov ako to shr ;)))
pri mensom pocte odtienov farieb ako 64 je vhodne pouzit uz aj nejaky ten rozptil,
lebo obrazok sa ti moze znacte znicit.
palo
ak chces asi najrychlejsi grayscale kukni sem:
http://graph64.netgraphics.sk/download/graph64lib.zip
Prevod RGB - gray
[*] Fitz Ladislav <ladislav.fitz(zv)kodytek(tec)cz> - 21.6.2004 09:26:21
> na internetu jsem nasel nasledujici funkci, bohuzel bez blizsiho
> popisu:
>
> function RgbToGray(RGBColor : TColor) : TColor;
> var
> Gray : byte;
> begin
> Gray := Round((0.30 * GetRValue(RGBColor)) +
> (0.59 * GetGValue(RGBColor)) +
> (0.11 * GetBValue(RGBColor )));
> Result := RGB(Gray, Gray, Gray);
> end;
>
> Potreboval bych vedet, z ceho vychazeji ty koeficienty u jednotlivych
> slozek, s kolika odstiny sedi vlastne pracuju a jakym zpusobem bych
> byl schopen prevest barvy dejme tomu do 8, 16, 32 ... odstinu sedi ...
ja pouzivam radeji trochu upravenou (nepouziva desetinna cisla)
function Gray (color : longint) : longint;
var i : byte;
begin
i:=byte((
(color and $000000ff) *19595+
((color and $0000ff00)shr 8)*38469+
((color and $00ff0000)shr 16)* 7471
)shr 16);
result:=(i)or(i shl 8)or(i shl 16);
end;
jinak ty koeficienty by mely vyjadrovat jak moc je lidske oko citlive na
danou slozku barvy
co se tyce daneho poctu odstinutak jak uz tu bylo pouzit div nebo pokud je
to mozne tak shr (pro hodnoty 2,4,8,16,32,64,128) a to jeste pred radkem
result:=....Vlastni Html prohlizec v Delphi
[*] j.binder(zv)albacon(tec)cz - 21.6.2004 08:58:15
Ahoj,
podivej se na www.pbear.com, pouzivam a jsem spokojen. Umi toho dost a na to co umi to neni drahe.
Zdravi Jiri Binder
Systemove ikony z MessageBox
[*] Vaclav Sykora <vaclav.sykora(zv)accidis(tec)cz> - 21.6.2004 08:58:15
Dobry den,
existuje ve WinAPI funkce, ktera vraci systemove ikony, ktere se
pouzivaji na formulari MessageBox? Staci mi pouze ikona pro Error.
Dekuji,
Vaclav Sykora
vaclav.sykora(zv)accidis(tec)cz
Jak v IB zjistit,zda radek jiz existuje
[*] Lstiburek Pavel <lstiburek(zv)ceb(tec)cz> - 21.6.2004 08:44:13
Nebo mozna :
if EXISTS( SELECT * FROM tabulka where klic = neco ) then
update
else
Inser
Pavel
> From: petr palicka [mailto:palicka.petr(zv)seznam(tec)cz]
> ahoj,
>
> v SP pouzijes necoa jako:
>
> select count(*) from tabulka
> where klic = neco
> into X
> if (X>0) then
> update...
> else
> insert...
>
> peca
Jak v IB zjistit,zda radek jiz existuje
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 21.6.2004 08:14:09
ahoj,
v SP pouzijes necoa jako:
select count(*) from tabulka
where klic = neco
into X
if (X>0) then
update...
else
insert...
peca
Update tabulky podle hodnot z jine tabulky
[*] petr palicka <palicka.petr(zv)seznam(tec)cz> - 21.6.2004 08:30:11
>>update Zbozi
>>set
>> cena = a.cena
>>from Zbozi z, AkcniCeny a
>>where z.id_zbozi = a.id_zbozi
>
>>pouzivam MS SQL, ale tohle by melo byt asi stejny.
bohuzel nikoli
> To mne ve FB 1.5 bohuzel nefunguje:
>
> Dynamic SQL Error
> SQL error code = -104
> Token unknown - line 4, char 1
> from
>
> Nevite nekdo, jak na to ve Firebirdu?
AFAIK jedine poddotazem, priblizne takto:
update Zbozi
set
cena =
(
select a.cena
from Zbozi z, AkcniCeny a
where z.id_zbozi = a.id_zbozi
)
peca
Prevod RGB - gray
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 21.6.2004 08:14:09
Ta funkce je spravne, koeficienty vychazeji z pomeru jasu jednotlivych rgb
slozek. Pro prevod do mensiho poctu odstinu staci hodnotu Gray vhodne
podelit, nyni obsahuje hodnotu pro 256 odstinu.
Daniel
----- Original Message -----
From: <tomsir1.edu(zv)mail.cez(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, June 21, 2004 7:40 AM
Subject: Prevod RGB - gray
na internetu jsem nasel nasledujici funkci, bohuzel bez blizsiho popisu:
function RgbToGray(RGBColor : TColor) : TColor;
var
Gray : byte;
begin
Gray := Round((0.30 * GetRValue(RGBColor)) +
(0.59 * GetGValue(RGBColor)) +
(0.11 * GetBValue(RGBColor )));
Result := RGB(Gray, Gray, Gray);
end;
Potreboval bych vedet, z ceho vychazeji ty koeficienty u jednotlivych
slozek, s kolika odstiny sedi vlastne pracuju a jakym zpusobem bych byl
schopen prevest barvy dejme tomu do 8, 16, 32 ... odstinu sedi ...
Prevod RGB - gray
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 21.6.2004 08:12:08
vysledkom poctu 0.3 * Cervena + 0.59 * Zelena + 0.11 * Modra je INTENZITA farby!
nastavenim RGB na hodnotu intenzity dostanes GRAY farbu.
vysledok mas od 0-255, cize ked chces 8 odtienov tak DIV 8... atd.
palo
> Potreboval bych vedet, z ceho vychazeji ty koeficienty u jednotlivych
> slozek, s kolika odstiny sedi vlastne pracuju a jakym zpusobem bych byl
> schopen prevest barvy dejme tomu do 8, 16, 32 ... odstinu sedi ...HTTP server s Indy komponentou
[*] delphikonf(zv)proxima-soft.sk - 21.6.2004 07:50:05
Zalezi na tom aky Web server pouzivas, ak pouzivas Apache tak do suboru
Httpd.conf musis zapisat nasledujuce parametre.
AddHandler isapi-isa .dll
<Directory "C:/www/Scripts">
AllowOverride None
Options None +ExecCGI
</Directory>
Samozrejme do Directory si treba zadat cestu tam kde sa ta DLL, alebo
ten server nachadza.
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Horak Jaroslav
Sent: Friday, June 18, 2004 5:23 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: HTTP server s Indy komponentou
Zdravim,
delam maly http server postaveny na Indy komponente TIdHTTPServer.
Problem je v tom, ze nevim, jak jej prinutit spoustet cgi scripty,
respektive zda to Indy komponenta vubec dokaze.
Kdyz zadam cestu k souboru se scriptem, tak mi vyhodi okno pro stahovani
souboru, coz ale nepotrebuju :-/
Dekuji Jarda
Prevod RGB - gray
[*] tomsir1.edu(zv)mail.cez(tec)cz - 21.6.2004 07:40:03
Ahoj,
na internetu jsem nasel nasledujici funkci, bohuzel bez blizsiho popisu:
function RgbToGray(RGBColor : TColor) : TColor;
var
Gray : byte;
begin
Gray := Round((0.30 * GetRValue(RGBColor)) +
(0.59 * GetGValue(RGBColor)) +
(0.11 * GetBValue(RGBColor )));
Result := RGB(Gray, Gray, Gray);
end;
Potreboval bych vedet, z ceho vychazeji ty koeficienty u jednotlivych
slozek, s kolika odstiny sedi vlastne pracuju a jakym zpusobem bych byl
schopen prevest barvy dejme tomu do 8, 16, 32 ... odstinu sedi ...
Diky Radek
Jak v IB zjistit,zda radek jiz existuje
[*] Krakora Martin <krakoram(zv)seznam(tec)cz> - 21.6.2004 07:52:06
Preji pekny den,
pisu ulozenou proceduru v InterBase (v 6.5) a potreboval bych v ni nejak
osetrit vkladani noveho radku do tabulky.To znamena ze pokud uz radek
existuje,tak ho pouze upravit, pokud ne tak vlozit novy.
Lze to nejak elegantne resit pomoci SQL v ulozenych procedurach?
Mnohokrat dekuji za kazdou radu, s pozdravem M.Krakora
Circular reference
[*] Tomas Emresz <tomas(zv)emresz(tec)com> - 20.6.2004 19:44:55
Ahojda,
>> type thrd2 = clas.....
>> fSubThread : thrd3;
>> type thrd3 = class....
>> fParent : thrd2;
PZ> Tak si treba udelej abstraktniho tatu tech threadu a mas to...
takze prihodit unit 4 do ktery hodim toto :
type mujstupidthrd = class(TThread)
End;
a v osttanich unitach nededit od tthread ale od mujstupidthrd ?
Dikes
Tomas Emresz
demo verze - ochrana..
[*] Jakub Dusek <delphi(zv)corexpert(tec)com> - 20.6.2004 19:44:54
Jak uz tu nekdo psal, taky pouzivam globalni soubor s direktivami
kompilatoru. V kazde unite, kde se na ne potrebuju odkazat dam na nej
include.
compiler.inc
------------
{$DEFINE DemoVersion}
unit.pas
--------
{$I compiler.inc}
....
{$IFDEF DemoVersion}
Jakub Dusek
----------------------------------------------------------------------
web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
=> Sms GateKeeper, Sms GateKeeper Service
======================================================================
Sunday, June 20, 2004, 4:36:24 PM, you wrote:
JR> Toto je asi nejlepsi zpusob.
JR> Ovsem direktiva kompilatoru musi byt uvedena v kazde unite? Nejde ji nejak
JR> nastavit pro cely projekt? Nechtel bych mit cely projekt prospikovan touto
JR> directivou a pokazde ji hromadne menit..
JR> Jde ji nastavit jen na jednom miste? Kompiler "zapomina" direktivy, ktere
JR> jsou v unite, ktera je v sekci uses.
Circular reference
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.6.2004 19:48:56
Puvodni zprava ze dne 20.6.2004:
> PZ> Tak si treba udelej abstraktniho tatu tech threadu a mas to...
> takze prihodit unit 4 do ktery hodim toto :
> type mujstupidthrd = class(TThread)
> End;
> a v osttanich unitach nededit od tthread ale od mujstupidthrd ?
No jasne, ale jestli to mas takhle jednoduche, tak to prece normalne
odkazuj na TThread a nemusis delat vubec nic... Ja myslel, ze sis tam
neco doplnil, pak bys musel mit toho predka. Jinak pouzij primo
TThread.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Circular reference
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.6.2004 19:20:51
Puvodni zprava ze dne 20.6.2004:
> type thrd2 = clas.....
> fSubThread : thrd3;
> type thrd3 = class....
> fParent : thrd2;
Tak si treba udelej abstraktniho tatu tech threadu a mas to...
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
Circular reference
[*] Tomas Emresz <tomas(zv)emresz(tec)com> - 20.6.2004 19:14:46
Zdravim,
mam dotaz jak se da nejak rozumne vyresit problem s circular reference
a sice :
Mam tri units :
1) definuje nejakej formular
2) definuje thread
3) definuje thread spoustenej s threadu ve 2 s tim ze bych potreboval
definovat neco jako fParent
interface unit 2:
uses classes,..., unit3;
type thrd2 = clas.....
fSubThread : thrd3;
interface unit 3:
uses classes,...., unit2;
type thrd3 = class....
fParent : thrd2;
Nechci mit ty definice v jednom souboru, coz by problem vyreislo, ale
zneprehlednilo kod... Jedine co me napadlo mit nekde interface kusy v
jednom souboru a implementation includovat pomoci {$I filename}
Neni jine reseni ?
Dikes
Tomas Emresz
Update tabulky podle hodnot z jine tabulky
[*] David Klodner <d.klodner(zv)sofico(tec)cz> - 20.6.2004 19:10:43
>> mam tabulku Zbozi (id_zbozi, nazev, cena) a druhou tabulku AkcniCeny
>> (id_zbozi, cena). Do tabulky AkcniCeny nactu par cen zbozi, ktere je
v
>> akci a potrebuju updatovat tabulku zbozi na tyto nove ceny.
>>
>> Jde neco jako
>>
>> update Zbozi z, AkcniCeny a set z.cena = a.cena
>> where z.id_zbozi = a.id_zbozi
>>
>> Pouzivam FB 1.5.
>>
> update Zbozi
> set
> cena = a.cena
> from Zbozi z, AkcniCeny a
> where z.id_zbozi = a.id_zbozi
> pouzivam MS SQL, ale tohle by melo byt asi stejny.
> s pozdravem
> Ladislav Stary
To mne ve FB 1.5 bohuzel nefunguje:
Dynamic SQL Error
SQL error code = -104
Token unknown - line 4, char 1
from
Nevite nekdo, jak na to ve Firebirdu?
David Klodner
demo verze - ochrana..
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.6.2004 18:26:37
Puvodni zprava ze dne 20.6.2004:
> ovsem v balickove aplikaci je nutne toto nastavit u kazdeho balicku (resp. u
> balicku, ktery "Demo verzi" pouziva..).
Tak si udelas nejaky .INC soubor s direktivami, ktere potrebujes
(DEFINE) a normalne si do tech jednotek das $I nebo jak se to
includuje. Vsak se koukni do kterehokoliv baliku komponent, vetsina
jich to tak dela, to musis videt temer vsude...
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
demo verze - ochrana..
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 20.6.2004 18:06:35
Jan Rizek wrote:
> Takze asi uplne globalne (jen na jednom miste) toto (u balickove
> aplikace) nastavit nejde..
Zpravidla se to dela tak, ze se na zacatek kazde unit da direktiva include
nejakeho souboru s globalnimi vlastnostmi projektu.
HTH, pf
demo verze - ochrana..
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 20.6.2004 17:38:33
Direktivu DEFINE
> nikoliv, tu muzes menit napr. v nastaveni projektu primo v tom
> formulari.
>
Ano, v zalozce Project/Options/"Directories/Conditionals" jde nastavit
Conditionals
ovsem v balickove aplikaci je nutne toto nastavit u kazdeho balicku (resp. u
balicku, ktery "Demo verzi" pouziva..).
Takze asi uplne globalne (jen na jednom miste) toto (u balickove aplikace)
nastavit nejde..demo verze - ochrana..
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 20.6.2004 16:46:27
Puvodni zprava ze dne 20.6.2004:
> Toto je asi nejlepsi zpusob.
> Ovsem direktiva kompilatoru musi byt uvedena v kazde unite? Nejde ji nejak
Direktivu IFDEF/IFNDEF samozrejme musis mit vsude. Direktivu DEFINE
nikoliv, tu muzes menit napr. v nastaveni projektu primo v tom
formulari.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
demo verze - ochrana..
[*] Jan Rizek <jan_rizek(zv)centrum(tec)cz> - 20.6.2004 16:36:24
Toto je asi nejlepsi zpusob.
Ovsem direktiva kompilatoru musi byt uvedena v kazde unite? Nejde ji nejak
nastavit pro cely projekt? Nechtel bych mit cely projekt prospikovan touto
directivou a pokazde ji hromadne menit..
Jde ji nastavit jen na jednom miste? Kompiler "zapomina" direktivy, ktere
jsou v unite, ktera je v sekci uses.
> Misto promenne pouzij direktivu kompilatoru. Kdyz tam ta funkce proste
> nebude, tak s tim nikdo nehne :)
>
> {$DEFINE DemoVersion}
> ....
>
> {$IFNDEF DemoVersion}
> AdvancedForm.Show;
> {$ELSE}
> ShowMessage('Funkce neni v demoverzi implementovana.');
> {$ENDIF}
>
> Jakub Dusek
> ----------------------------------------------------------------------
> web: http://www.corexpert.com, mobile: +420 604 615 795, ICQ: 86063232
> odesilani smsek, vizitek, log a melodii, snadna integrace do Vaseho IS
> => Sms GateKeeper, Sms GateKeeper Service
>
> ======================================================================
> Friday, June 18, 2004, 2:56:33 PM, you wrote:
>
> JR> Vytvorili jsme aplikaci. Chteli bychom vytvorit demoverzi.
>
> JR> Dejme tomu, ze budu mit promenou XY:boolean, ktera mi bude rikat, zda
se
> JR> jedna o demoverzi nebo ne..
>
> JR> Je tezke nejak zvenci najit tuto promennou a zmenit jeji hodnotu?
>
> JR> Jak ochranit demoverzi, ktera obsahuje vse proti crackovani?
>
> JR> JR
>
>
>
>
>
>Vyjimku prevest na string
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 20.6.2004 07:43:45
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf Of vponecha(zv)volny(tec)cz
>
> Ahoj vsichni,
Ahoj,
> Po tom, co mi spadne aplikace na chybu, rad bych chybu kterou
> obdrzim prevedl na string, abych ji mohl zapsat do logu.
[...]
> .
> expect
> raise //Potrebuji neco ve smyslu memo1.lines.add(raise);
> end;
try
...
except
on E: Exception do
begin
Memo1.Lines.Add(E.Message);
end;
end;
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Vyjimku prevest na string
[*] vponecha(zv)volny(tec)cz - 20.6.2004 05:27:35
Ahoj vsichni,
Po tom, co mi spadne aplikace na chybu, rad bych chybu kterou
obdrzim prevedl na string, abych ji mohl zapsat do logu.
Poradte prosim jak na to.
Diky,
Vlada
PS: (Priklad)
Try
.
.
.
expect
raise //Potrebuji neco ve smyslu memo1.lines.add(raise);
end;
Vlastni Html prohlizec v Delphi
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 19.6.2004 11:48:28
Altius wrote:
> Rad bych si udelal program na zobrazovani ruznych textu a obrazku,
> zalozeny na html strankach.
> Melo by to byt neco takoveho jako navigacni program na CD-ROM k
> casopisu Computer.
> Tedy win formular s pevne definovanou velikosti, titulkovym pruhem,
> ikonkou, ale jeho obsah by byly vlastne html stranky, ktere by se
> nacitaly z adresaru na CD.
> Nechci totiz pouzivat komercni prohlizec, hlavne z duvodu velikosti,
> a potrebuji aby okno melo urcite vlastnosti, atd.
> Stranky by se mely nacitat do okna pouze off-line z CD, tudiz sitovou
> funkcionalitu nepotrebuji.
> Vim ze neco takoveho jde udelat v Delphi, ale jsem zacatecnik a
> potreboval bych nakopnout kterym smerem zacit hledat. Uvitam i tipy
> na komercni sady specializovanych komponent.
V Delphi je primo komponenta TWebBrowser. Pokud myslis, jen zobrazovani
stranek.
Pokud bys chtel napsat i svoje zobrazovani, podivat bych se treba na
torry.net, mohl bys tam neco najit.
Jiri Cincura
ICQ#:
__314711544
web:
__[url]http://www.cincura.net[/url]
__[url]http://cincura.net/photo[/url]
Vlastni Html prohlizec v Delphi
[*] Altius <altius(zv)centrum(tec)cz> - 19.6.2004 11:38:27
Rad bych si udelal program na zobrazovani ruznych textu a obrazku, zalozeny na html strankach.
Melo by to byt neco takoveho jako navigacni program na CD-ROM k casopisu Computer.
Tedy win formular s pevne definovanou velikosti, titulkovym pruhem, ikonkou, ale jeho obsah by byly vlastne html stranky, ktere by se nacitaly z adresaru na CD.
Nechci totiz pouzivat komercni prohlizec, hlavne z duvodu velikosti, a potrebuji aby okno melo urcite vlastnosti, atd.
Stranky by se mely nacitat do okna pouze off-line z CD, tudiz sitovou funkcionalitu nepotrebuji.
Vim ze neco takoveho jde udelat v Delphi, ale jsem zacatecnik a potreboval bych nakopnout kterym smerem zacit hledat. Uvitam i tipy na komercni sady specializovanych komponent.
Altius, D6, W2000.
.generovani ID v tabulce IB
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 19.6.2004 10:38:22
Jestli myslis neco jako AutoIncrement, tak to v IB nejni.
Mam to osetreno takto:
CREATE TRIGGER "AUTOINC_DILY" FOR "DILY"
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
NEW.id = GEN_ID(AUTOID_DILY, 1);
END
Kde AUTOID_DILY je generator (CREATE GENERATOR ...).
Jiri Cincura
ICQ#:
__314711544
web:
__[url]http://www.cincura.net[/url]
__[url]http://cincura.net/photo[/url]
generovani ID v tabulce IB
[*] znit(zv)centrum(tec)cz - 19.6.2004 10:22:21
Ahoj,
jak generovat ID v tabulce vytvorene v Interbase? Pomoci IB nebo Delphi? Jsou nejake demonstracni priklady?
Dik Zdenek
D5, IBExpert, IB, FireBird
Odeslani tiskove sestavy jako mail
[*] Pavel ZIDEK <delphi(zv)kopr(tec)cz> - 19.6.2004 08:08:07
Zdravim,
naprogramoval jsem program kMail, kde jako parametr das dany soubor
napr. kMail C:\config.sys
Jestli umis se Sinei vytvorit datovy soubor a ze sveho programu spustit jiny
program tak zde je nejake reseni.
Program kMail najdes na www.kopr(tec)cz v sekci Download/Aktualizace programu
Pavel ZIDEK
do naseho software chceme obecne zabudovat moznost mailoveho odeslani
tiskove sestavy.
Jako generator pouzivame Sineu. Mate s tim nekdo zkusenosti?
Libor
D5 Prof + W2000
Update tabulky podle hodnot z jine tabulky
[*] Ladislav Stary <ladislav.stary(zv)openmim(tec)cz> - 19.6.2004 07:28:03
> mam tabulku Zbozi (id_zbozi, nazev, cena) a druhou tabulku AkcniCeny
> (id_zbozi, cena).
> Do tabulky AkcniCeny nactu par cen zbozi, ktere je v akci a potrebuju
> updatovat tabulku zbozi na tyto nove ceny.
>
> Jde neco jako
>
> update Zbozi z, AkcniCeny a set z.cena = a.cena
> where z.id_zbozi = a.id_zbozi
>
> Pouzivam FB 1.5.
>
update Zbozi
set
cena = a.cena
from Zbozi z, AkcniCeny a
where z.id_zbozi = a.id_zbozi
pouzivam MS SQL, ale tohle by melo byt asi stejny.
s pozdravem
Ladislav Stary
Update tabulky podle hodnot z jine tabulky
[*] David Klodner <d.klodner(zv)sofico(tec)cz> - 18.6.2004 22:05:58
Zdravim konferenci,
mam tabulku Zbozi (id_zbozi, nazev, cena) a druhou tabulku AkcniCeny
(id_zbozi, cena).
Do tabulky AkcniCeny nactu par cen zbozi, ktere je v akci a potrebuju
updatovat tabulku zbozi na tyto nove ceny.
Jde neco jako
update Zbozi z, AkcniCeny a set z.cena = a.cena
where z.id_zbozi = a.id_zbozi
Pouzivam FB 1.5.
David Klodner
HTTP server s Indy komponentou
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 18.6.2004 21:37:53
> delam maly http server postaveny na Indy komponente TIdHTTPServer. Problem
> je v tom, ze nevim, jak jej prinutit spoustet cgi scripty, respektive zda to
> Indy komponenta vubec dokaze.
> Kdyz zadam cestu k souboru se scriptem, tak mi vyhodi okno pro stahovani
> souboru, coz ale nepotrebuju :-/
Nevim, jestli na to Indy ma nejakou specielni podporu (filozofie
komponent na servery se mi nijak ani nezamlouva...), ale tvuj problem je
zcela jasne zpusobeny tim, ze indy se ti pokousi to CGI stahnout.
Tedy ty se musis napojit nekam tam, kde se prebira vstupni pozadavek na
server (nema to nejaky takovy event?), a tak zjistit, jestli ma jit o
download ci o CGI (obvykle jsou CGi v nejakem specielnim adresari, takze
se rozhodujes podle URI).
A pokud ma jit o CGI, tak musis zavolat to CGI, predat mu patricnym
zpusobem parametry, a jeho vystup poslat jako odpoved.
Jak konkretne, to ti ja fakt neporadim. ;-)
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
WEB: http://www.ararat(tec)cz/synapse - Synapse Delphi and Kylix TCP/IP
Library
I/O error for file "C:\DATABASE.GDB"
[*] Tomas Bradle <t.bradle(zv)worldonline(tec)cz> - 18.6.2004 19:31:43
No to urcite je chyba nekde v tech IBX, dokonce jen v designtime, cili v IDE
Delphi. Program po prelozeni a spusteni chodi normalne.
Tomas Bradle
t.bradle(zv)worldonline(tec)cz
----- Original Message -----
From: "Libor Junek, Medisoft International" <libor.junek(zv)medisoft(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, June 18, 2004 1:46 PM
Subject: Re: I/O error for file "C:\DATABASE.GDB"> Ve firebird\bin\aliases.conf. Zkousel jsi se nakonektovat na tu DB i z
> neceho jineho nez z IBX v Delphi? Napr. IBExpert? Pokud ti to jde odjinud
> tak je problem v tech IBX.
> Libor
>
>
demo verze - ochrana..
[*] Ing. Radek Tomsik <radek(zv)tomsige(tec)cz> - 18.6.2004 18:49:37
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Stasko Peter
Sent: Friday, June 18, 2004 3:21 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: demo verze - ochrana..>Dejme tomu, ze budu mit promenou XY:boolean, ktera mi bude rikat, zda
se >jedna o demoverzi nebo ne..
>Je tezke nejak zvenci najit tuto promennou a zmenit jeji hodnotu?
Bez nejmensiho problemu
>Jak ochranit demoverzi, ktera obsahuje vse proti crackovani?
a/ PE cryptor v kombinaci packerem
b/ kontrola registrace/obdobi pri behu programu, nejen pri startu
c/ nevypisovat hlasky o tom, ze je to demo a ze uplynula nejaka doba,
ale nechat program treba zhavarovat, nebo nejak jinak "zkriplovat"
funkci programu
Radegast
HTTP server s Indy komponentou
[*] Horak Jaroslav <jaroslav.horak(zv)elcomgroup(tec)cz> - 18.6.2004 17:23:27
Zdravim,
delam maly http server postaveny na Indy komponente TIdHTTPServer. Problem
je v tom, ze nevim, jak jej prinutit spoustet cgi scripty, respektive zda to
Indy komponenta vubec dokaze.
Kdyz zadam cestu k souboru se scriptem, tak mi vyhodi okno pro stahovani
souboru, coz ale nepotrebuju :-/
Dekuji Jarda
Zpusob odmenovani
[*] Petr Jarkovsky <pejasoft(zv)volny(tec)cz> - 18.6.2004 16:42:48
Dle mych zkusenosti:
1. pausalni mzda - vyborna pro zamestnance, spatna pro zamestnavatele.
Zamestnanec je honen do prace jen pripadnyma kontrolama. Nema zadnou motivaci.
2. Zadavatel (technicky znaly, nebo spolu s nejakym programatorskym guru)
odhadnou pracnost a to skonzultuji s programatorem, ktery bude ukol provadet.
Ten se musi do casoveho odhadu vejit, jinak nasleduje obhajoba prekrocenych
hodin a nasledne uznani/neuznani. Vyplata (resp. odmeny) se pak daji vypocitavat
napr. z celkoveho odpracovaneho casu. Napr. pokud programator odpracoval 75%
hodin (a vic) v mesici, ma narok na urcitou pomernou cast odmen. ...Skvele pro
zamestnavatele, ale bic na zamestnance, ktereho to muze casem prestat bavit.
3. viceslozkova stabilni mzda - Programator dostava nejaky zaklad za standardni
praci + odmeny z projektu (predem dohodnute). Pokud nedodrzi termin, odmeny se
odecitaji. ...Tohle pujde pouzit asi jen pro samostatne ukoly jako je zakazka od
zakaznika apod. Nebo mohou byt odmeny urcovany vedenim podle osobniho hodnoceni.
Petr Jarkovsky
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On Behalf
Of Jan Kadraba
chtel bych se zeptat tech co se to tyka,jak jste odmenovani v zamestnani popr.
jak odmenujete zamestnance za programovani? Mam na mysli zda dostavate/platite
pausalni mzdu dle dohody popr. zda mate podily na prodejich nebo nejaky jiny
zpusob? Jak merite mnozstvi vykonane prace nad ramec povinnosti pro pripadne
odmeny navic? Hledam zpusob jak nejlepe ohodnotit a tim i motivovat zamestnance
k oboustrane spokojenosti... Dekuji za kazde nakopnuti spravnym smerem
JK
OT: Zpusob odmenovani
[*] Jan Kadraba <jan.kadraba(zv)post(tec)cz> - 18.6.2004 16:18:45
Zdravim vsechny,
chtel bych se zeptat tech co se to tyka,jak jste odmenovani v
zamestnani popr. jak odmenujete zamestnance za programovani? Mam
na mysli zda dostavate/platite pausalni mzdu dle dohody popr. zda
mate podily na prodejich nebo nejaky jiny zpusob? Jak merite
mnozstvi vykonane prace nad ramec povinnosti pro pripadne odmeny
navic? Hledam zpusob jak nejlepe ohodnotit a tim i motivovat
zamestnance k oboustrane spokojenosti... Dekuji za kazde
nakopnuti spravnym smerem
JK
demo verze - ochrana..
[*] Pavol Stugel, NETGraphics <palo(zv)netgraphics.sk> - 18.6.2004 15:34:41
najlepsie tam tu obmedzenu funkcionalitu nedat ;)
> Je tezke nejak zvenci najit tuto promennou a zmenit jeji hodnotu?
otazka 5 sekund!
> Jak ochranit demoverzi, ktera obsahuje vse proti crackovani?
pre vacsi soft HW kluc.
To mas tak podla toho aky je to soft. a ake je jeho urcenie!
napr. cely svet (nejaka utilitka), pre par firiem specializovany ...
palo
ADMIN: demo verze - ochrana..
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 18.6.2004 15:34:40
Puvodni zprava ze dne 18.6.2004:
> ;) DEMO ? :) to asi nijak netreba chranit.. DEMO je program,
> ktory je len na ukazku.. Ostatne veci skratka nefunguje. Niesu
> pristupne...
> Skor si treba ujasnit pojmi: shareware,freeware, demo ;) xixixi
Za prve jsi mu nic neporadil. Za druhe se mu chechtas za nepresnosti
ve vyjadrovani a hemzi se to smajliky. Za treti ani spravne quotovat
neumis.
Vysledek tedy nulovy, binec v konferenci, ale hlavne ze se dobre bavis
- takze to ber jako napomenuti administratora.
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
demo verze - ochrana..
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 18.6.2004 15:12:36
On Friday, June 18, 2004 2:56 PM [CET], Jan Rizek <abxsw(zv)centrum(tec)cz>
wrote:
> Vytvorili jsme aplikaci. Chteli bychom vytvorit demoverzi.
>
> Dejme tomu, ze budu mit promenou XY:boolean, ktera mi bude rikat,
> zda se jedna o demoverzi nebo ne..
>
> Je tezke nejak zvenci najit tuto promennou a zmenit jeji hodnotu?
pokud bude v zavislosti na stavu teto promenne program vypisovat 'ja
jsem demoverze' pak je prolomeni zalezitost nekolika minut...
> Jak ochranit demoverzi, ktera obsahuje vse proti crackovani?
tezko. Zalezi na aplikaci (resp. na tom kolik stal vyvoj a za kolik se
prodava atd), zda se vyplati investovat cas do nejake hardcore
ochrany. Myslim, ze v naproste vetsine pripadu je to promarneny cas
programatoru. Zrejme neexistuje ochrana se kterou by si hackerske
gangy neporadily v relativne kratke dobe.
Jsem zastance jednoduche varianty - nejakym zpusobem inetligentne
zakodovane licencni cislo na jehoz validite je zavisla plna funkcnost
programu. Ze se drive ci pozdeji na internetu objevi seznam licencnich
cisel ci rovnou (pravdepodovnejsi varianta) rovnou jejich generator je
dan, ktera se musi zaplatit (zaroven je to jeden z indikatoru
oblibenosti produktu :-) ). Stale nastesti existuji lide/firmy, kteri
kupuji licence i kdyz 'nemusi'... a pokud implementujes nejake
'silene' ochrany dostanes se do stavu, kdy tuhle skupinu lidi budes
otravovat nejvic (negativni projevy 'dokonalych' ochran = nemoznost
upgrade PC protoze aplikace je vazana na seriova cisla hardware,
nechodici aplikace, protoze detekuje instalovanu debugger pouzivany k
ladeni uplne jine aplikace atd).
Ostatne tahle debata se tady vede periodicky nekolikrat do roka stale
se stejnym vysledkem (aspon doufam)
D. Toman
Fortech s.r.o.
demo verze - ochrana..
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 18.6.2004 15:12:35
> Jak ochranit demoverzi, ktera obsahuje vse proti crackovani?
Nejlepe, tak, ze veci, ktere nemaji byt v demo, ani nezakompilovavat do exe.
Zdenek Brejsa
HJ-SOFT