Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Array of ...
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 7.7.2003 14:59:24
Zdravim
TO prvni mi funguje bez problemu to druhe jsem skousel ale vypsalo
to uplnej nesmysl. Akorat jsem pak narazil jeste na jeden problem ze
mi to u nekterych serveru nahlasi chyba 5 pristup odepren. No je jasne
ze to potrebuje nejak vyuzit IPC$ ale to uz jsem nedelal... skoda
> var
> Server: THandle;
> Sessions, P: PWTS_SESSION_INFO;
> I, Count: Cardinal;
> begin
> Server := WTSOpenServer('\\192.168.0.231');
> if Server = 0 then
> RaiseLastOSError;
> try
> if not WTSEnumerateSessions(Server, 0, 1, Sessions, Count) then
> RaiseLastOSError;
> try
> P := Sessions;
> for I := 0 to Count - 1 do
> begin
> Memo1.Lines.Add(P^.pWinStationName);
> Inc(P);
> end;
> finally
> WTSFreeMemory(Sessions);
> end;
> finally
> WTSCloseServer(Server);
> end;
> end;
> 2.
> var
> Server: THandle;
> Sessions: array[0..0] of PWTS_SESSION_INFO;
> I, Count: Cardinal;
> begin
> Server := WTSOpenServer('\\192.168.0.231');
> if Server = 0 then
> RaiseLastOSError;
> try
> if not WTSEnumerateSessions(Server, 0, 1, Sessions[0], Count) then
> RaiseLastOSError;
> try
> for I := 0 to Count - 1 do
> Memo1.Lines.Add(Sessions[I]^.pWinStationName);
> finally
> WTSFreeMemory(Sessions[0]);
> end;
> finally
> WTSCloseServer(Server);
> end;
> end;
> Neviem to ale vyskusat, pretoze nemam pristup k Terminal Server.
> Je to bez zaruky a na vlastne riziko.
> HTH
> TOndrej
S pozdravem
Milan Vymazal
Zmensovani grafiky
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 7.7.2003 14:35:22
Potrebuji JPGcko zmensit na mensi obrazek - avsak pri rozmerech 80x60 uz vypada grafika prilis kostickovana - nepomaha ani level komprese, apod.
Jpg.LoadFromFile(InputFileName);
ScaleX := NewHeight / Jpg.Width;
ScaleY := NewWidth / Jpg.Height;
Bmp := TBitmap.Create;
Bmp.Width := Round(Jpg.Width * ScaleX);
Bmp.Height := Round(Jpg.Height * ScaleY);
Bmp.Canvas.StretchDraw(Bmp.Canvas.Cliprect, Jpg);
Existuje na tohle nejaka lepsi vec - komponenta, zdrojak, apod?
Jiri
Aplikace s vyssimi pravy
[*] Ing. Jan Kuchar <kuchar(zv)unicodesys(tec)cz> - 7.7.2003 14:01:18
a da se nejak jeste zakazat zobrazeni hlasky windowsu, ze "spravce tohoto
systemu zakazal soravce uloh" ?
----- Original Message -----
From: "Jiri Cincura" <jiri(zv)cincura.net>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Sunday, July 06, 2003 10:00 PM
Subject: Re: Aplikace s vyssimi pravy
> Muzes TaskMgr zakazat. Zapis do registru:
>
> reg:=TRegistry.Create;
> try
> reg.RootKey:=HKEY_CURRENT_USER;
> if
> reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System'
> , True) then
> begin
> reg.WriteBool('DisableTaskMgr', True);
> end;
> finally
> reg.Free;
> end;
>
> A nebo se mrkni na gina dll, ale to uz je jiny kafe.
>
> Jiri Cincura
> mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
> http://www.cincura.net/
>
> Delphi 7, WinXP HE
>
>
>
>
Dlzka exe a jej vplyv na vykon
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.7.2003 12:23:11
> a)
> pred casom som do konferencie posielal prispevok ohladom zahadneho
padania
> programov vytvorenych v delphi na win2000 na jniektorych PC. Po
dlhom
> laborovani sa mi zrejme podarilo prist na to cim to v mojom pripade
bolo. V
> Project options som zapol Overflow chcking a Pentium f-save FDIV.
Problem s
> padanim programu sa stratil.
to je divny. Pokud klienti maji nejake stare procesory, muzou
skutecne v
plovouci carce pocitat spatne ale padani programu by tahle chyba primo
zpusobovat nemela.
Podobne zapnuti Overflow checkingu samo o sobe by mohlo problem
vyresit
jen neprimo (jinak by Ti vyskakovaly exceptions, ze doslo k preteceni
promenne).
> b)
> Az dnes som si vsak vsimol ze dlzka skompilovaneho exe suboru sa mi
natiahla
> z 2,8 MB na 3,5MB, preto by som sa rad opytal ma dlzka exe suboru
vplyv na
> vykon?
delka sama o sobe mit vliv na rychlost nemusi. Ve Tvem pripade ale
vykon samozrejme bude nizsi - overflow kontroly neco CPU cyklu
spotrebuji. Projevi se to samozrejme jen v nejakych intenzivne
vyuzivanych smyckach, kde zalezi na rychlosti pruchodu (a kde se
pouzivaji promenne u nichz dochazi ke kontrole mezi pripustnych
hodnot).
D. Toman
BorderIcons dcerinnych formu
[*] \Jakub Sramek\ <jsramek(zv)kodys(tec)cz> - 7.7.2003 11:59:10
Ahoj,
v D5 mam problem v MDI aplikaci. Pokud mam dcerinna okna maximalizovana, tak
mi v nekterych pripadech blbne zobrazeni jeho BorderIcon. Nekdy napriklad
zmizi z formu uplne, jindy je treba ikona pro zruseni zobrazena jako
Enabled=False, ale presto funguje..., proste zmatek. Co s tim ???
Diky za radu,
Jakub.
WinForms
[*] Borkovec Software Info <info(zv)borkovec(tec)com> - 7.7.2003 11:55:09
neni to nutne, na XPHE provozuji visualstudio (dokonce i web matrix ).
Roman Borkovec
----- Original Message -----
From: "Zdenek Moravec" <zmo(zv)volny(tec)cz>
To: <dotnet-l(zv)clexpert(tec)cz>
Sent: Monday, July 07, 2003 11:31 AM
Subject: WinForms
Zdravim vsechny
je nutne, abych mel instalovany IIS, pokud chci vyvijet pouze WinForms
aplikace? Jedna se mi o instalaci na Windows XP Home a tam IIS nechodi.
S pozdravem (Regards)
Zdenek Moravec zmo(zv)volny(tec)cz
Array of ...
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 7.7.2003 11:35:08
> WTSEnumerateSessions(h,0,1,wts,pocet)
>
>
> ktera mi ma navratit seznam session na TS. Podle wtsapi32 a msdn je to
> array of PWTS_SESSION_INFO ale nevim presne jak to mam prevest
Mozes skusite tieto dva sposoby:
1.
var
Server: THandle;
Sessions, P: PWTS_SESSION_INFO;
I, Count: Cardinal;
begin
Server := WTSOpenServer('\\192.168.0.231');
if Server = 0 then
RaiseLastOSError;
try
if not WTSEnumerateSessions(Server, 0, 1, Sessions, Count) then
RaiseLastOSError;
try
P := Sessions;
for I := 0 to Count - 1 do
begin
Memo1.Lines.Add(P^.pWinStationName);
Inc(P);
end;
finally
WTSFreeMemory(Sessions);
end;
finally
WTSCloseServer(Server);
end;
end;
2.
var
Server: THandle;
Sessions: array[0..0] of PWTS_SESSION_INFO;
I, Count: Cardinal;
begin
Server := WTSOpenServer('\\192.168.0.231');
if Server = 0 then
RaiseLastOSError;
try
if not WTSEnumerateSessions(Server, 0, 1, Sessions[0], Count) then
RaiseLastOSError;
try
for I := 0 to Count - 1 do
Memo1.Lines.Add(Sessions[I]^.pWinStationName);
finally
WTSFreeMemory(Sessions[0]);
end;
finally
WTSCloseServer(Server);
end;
end;
Neviem to ale vyskusat, pretoze nemam pristup k Terminal Server.
Je to bez zaruky a na vlastne riziko.
HTH
TOndrej
WinForms
[*] Zdenek Moravec <zmo(zv)volny(tec)cz> - 7.7.2003 11:31:07
Zdravim vsechny
je nutne, abych mel instalovany IIS, pokud chci vyvijet pouze WinForms
aplikace? Jedna se mi o instalaci na Windows XP Home a tam IIS nechodi.
S pozdravem (Regards)
Zdenek Moravec zmo(zv)volny(tec)cz
Dlzka exe a jej vplyv na vykon
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 7.7.2003 11:25:07
Petr Vones <pvones(zv)mbox.vol(tec)cz> wrote:
> From: "spisiak" <spisiak(zv)zoznam.sk>
>> vytvara len 3 formulare a ostatne vytvaram az ked su potreba a hned
>> ich uvolnujem. Dnes som si pozeral aj ine programy v delphi
>> stiahnute z inetu a nasiel som medzi nimi aj jeden s 8,65MB a chodi
>> celkom svizne.
>
> Patrne tam nekdo zapomel TD32 debug informace pro ladeni nebo
> pouzival nejake velke resource, napriklad obrazek jako bitmapu na
> formulari.
Kdyz je projekt *opravdu* velky, narusta velikost EXE kompilovaneho
bez balicku do primo oblubnych rozmeru, napriklad v nasem projektu
je okolo 270 binarek (EXE, BPL, DLL) a kdyz se to vsechno zkompiluje
pro ucely jednodussiho ladeni do jednoho EXE, ma cca 21 MB!
Martin Schayna
Typ tridy
[*] Jakub Dusek <net(zv)corexpert(tec)com> - 7.7.2003 11:07:06
Zdravim,
potreboval bych v C# udelat typ ktery bude obsahovat primo tridu,
nevim jak to spravne popsat, ale v pascalu je to tohle:
type
TButtonClass = class of TButton;
Jakub Dusek
------------------------------------
Web : http://www.corexpert.com
Phone : +420 604 615 795
Icq : 86063232
------------------------------------
Sms GateKeeper - komfortni odesilani
sms zprav pro platformu Windows
------------------------------------
Array of ...
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 7.7.2003 10:49:04
Zdravim
programuji jednu utiliktu a pouzivam termsrv (terminal service API ) z delphi-jedi.org
mam funkci
var
wts:PWTS_SESSION_INFO;
begin
WTSEnumerateSessions(h,0,1,wts,pocet)
ktera mi ma navratit seznam session na TS. Podle wtsapi32 a msdn je to
array of PWTS_SESSION_INFO ale nevim presne jak to mam prevest
skousel jsem
type
SESINFARRAY=array [1..1000] of PWTS_SESSION_INFO;
PSESINFARRAY=^SESINFARRAY;
var
wts:PWTS_SESSION_INFO;
wtsarray:PSESINFARRAY;
pocet:dword;
x:integer;
h:THandle;
begin
h:=wtsopenserver('\\192.168.0.231');
if WTSEnumerateSessions(h,0,1,wts,pocet) then
begin
wtsarray:=PSESINFARRAY(wts); memo1.Lines.add('jo'+inttostr(pocet));
for x:=1 to pocet do
begin
memo1.lines.Add('====[ '+inttostr(x)+' ]====');
memo1.Lines.add(wtsarray[x].pWinStationName);
ale jakmile volam data z wtsarray[x] tam mi to padne.. Nemohl by mi
nekdo skusenejsi please poradit ?
--
Best regards,
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
OT: prace
[*] x2000(zv)email(tec)cz - 7.7.2003 10:51:04
Zdravim vsecky. Obracim se na vas s prosbou. Hledam pro moji manzelku jiz delsi dobu nejakou praci na doma, nejlepe na pocitaci (i pres internet), muze to byt i na ico. Jsme z Prahy, ale v pripade prace skrz internet privitame nabidku prace odkudkoliv. Prace typu kopirovani disket ci rozesilani reklamnich mejlu apod., prosim vas, ne. Pripadne odpovedi posilejte, prosim, na muj mejl (x2000(zv)email(tec)cz). Diky.
Jak na sdileni ??
[*] Bohac Frantisek <bohacf(zv)vnol(tec)cz> - 7.7.2003 09:57:01
Nevim, jestli Ti tohle pomuze, ale mapovani disku pod NT delam takto:
// odpojeni disku
UnmapNetworkDrive(PChar(pracovni_disk),true);
// pripojeni disku
if not
MapNetworkDrive(PChar(pracovni_disk),PChar('\\'+stanice+'\c$'),nil,nil) then
// chyba
// pracovni disk := 't:';
function MapNetworkDrive(disk,prostredek,jmeno,heslo: PChar): boolean;
var
nw: TNetResource;
begin
result := false;
nw.dwType := RESOURCETYPE_DISK;
nw.lpLocalName := disk;
nw.lpRemoteName := PChar(prostredek);
nw.lpProvider := nil;
if WNetAddConnection2(nw, jmeno, heslo, 0) = NO_ERROR then
result := true;
end;
// Pozor!! Velikost pismena (format) musi byt stejna jako v pripojeni ...
function UnmapNetworkDrive(disk: PChar; force: boolean): boolean;
begin
result := false;
if WNetCancelConnection2(disk, CONNECT_UPDATE_PROFILE ,force) = NO_ERROR
then
// if WNetCancelConnection2(disk, 0 ,force) = NO_ERROR then
result := true;
end;
-------------------------------------------------------
S pozdravem
Frantisek Bohac
----- Original Message -----
From: "KinDRik" <kindrik(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, July 07, 2003 8:40 AM
Subject: Re: Jak na sdileni ??> Diky za skvely ydrojak ale je tu malinky problemek asi to pod NT
> konkretne pod WinXP nechodi.skoda
>
Jak na sdileni ??
[*] KinDRik <kindrik(zv)centrum(tec)cz> - 7.7.2003 10:11:02
Omlouvam se ,
ale asi jsem se spatne vyjadril .... ja nepotrebuji pripojit sitovy
disk ja potrebuji nasdilet nejaky adresar na disku
>function MapNetworkDrive(disk,prostredek,jmeno,heslo: PChar):
boolean;
>var
> nw: TNetResource;
>begin
> result := false;
> nw.dwType := RESOURCETYPE_DISK;
> nw.lpLocalName := disk;
> nw.lpRemoteName := PChar(prostredek);
> nw.lpProvider := nil;
> if WNetAddConnection2(nw, jmeno, heslo, 0) = NO_ERROR then
> result := true;
>end;
Aplikace s vyssimi pravy
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 7.7.2003 10:03:01
Zdravim
> No ve W2000 a XP mi to jede a podle MSDN i ve WNT.
no taky jsem koukal do MSDN a opravdu to je i pro winnt. Ted jde o to
jestli to bude akceptovat zakaznik
> Jiri Cincura
> e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
> web: http://www.cincura.net/
S pozdravem
Milan Vymazal
Aplikace s vyssimi pravy
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 7.7.2003 09:20:58
No ve W2000 a XP mi to jede a podle MSDN i ve WNT.
Jiri Cincura
e-mail: mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
web: http://www.cincura.net/
tisk stitku
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 7.7.2003 09:20:58
Vetsina lepsich termotiskaren ma svuj vlastni jazyk napr. Zebra ma jazyk ZPL... Proto nelze posilat primo znaky na tiskarnu, ale vzdycky se nejdrive poslou nejake esc sekvence (delka etikety, orientace, typ pisma, text...)
Jirka
-----Original Message-----
From: Rostislav Lekes [mailto:rlekes(zv)atlas(tec)cz]
Sent: Monday, July 07, 2003 9:15 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: tisk stitku
Zdravim,
mate nekdo zkusenost s tiskem stitku na termalni tiskarnu (Novexx Avery TTX300 ONLINE) primo z Delphi, nejlepe primy tisk ESCAPE seqence. U klasickych tiskaren staci poslat eskape sekvenci na tisk tucnym pismem a uz to jede. Tahle tiskarna se brani vsem moznym zpusobum tisku... W2000,D6E,komponenta Raw Printer Diky Rosta
tisk stitku
[*] Tyslic Jiri <jiri.tyslic(zv)opp.tbggroup(tec)com> - 7.7.2003 09:22:58
Jeste abych to doplnil, v navodu urcite najdes priklady tisku. Vytvor si podle toho navodu kratkou sekvenci kodu a posli to z prikazove radky na tiskarnu. Terpve az Ti toto bude fungovat, poustel bych se do programovani v delphi.
-----Original Message-----
From: Rostislav Lekes [mailto:rlekes(zv)atlas(tec)cz]
Sent: Monday, July 07, 2003 9:15 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: tisk stitku
Zdravim,
mate nekdo zkusenost s tiskem stitku na termalni tiskarnu (Novexx Avery TTX300 ONLINE) primo z Delphi, nejlepe primy tisk ESCAPE seqence. U klasickych tiskaren staci poslat eskape sekvenci na tisk tucnym pismem a uz to jede. Tahle tiskarna se brani vsem moznym zpusobum tisku... W2000,D6E,komponenta Raw Printer Diky Rosta
tisk stitku
[*] Rostislav Lekes <rlekes(zv)atlas(tec)cz> - 7.7.2003 09:14:57
Zdravim,
mate nekdo zkusenost s tiskem stitku na termalni tiskarnu (Novexx Avery
TTX300 ONLINE) primo z Delphi, nejlepe primy tisk ESCAPE seqence. U
klasickych tiskaren staci poslat eskape sekvenci na tisk tucnym pismem a uz
to jede. Tahle tiskarna se brani vsem moznym zpusobum tisku...
W2000,D6E,komponenta Raw Printer
Diky Rosta
Jak na sdileni ??
[*] KinDRik <kindrik(zv)centrum(tec)cz> - 7.7.2003 08:40:55
Diky za skvely ydrojak ale je tu malinky problemek asi to pod NT
konkretne pod WinXP nechodi.skoda
>function OpenSharedResource(const Path,Password: String): Boolean;
>var
> NetRes: TNetResource;
> UserName: array[0..31] of Char;
> UserNameSize: DWORD;
>begin
> Result := False;
> if DirectoryExists(Path) then
> begin
> Result := true; exit;
> end;
> UserNameSize := Sizeof(UserName);
> WNetGetUser(nil, UserName, UserNameSize);
> ZeroMemory((zv)NetRes, Sizeof(NetRes));
> NetRes.dwType := RESOURCETYPE_DISK;
> NetRes.lpRemoteName := PChar (Path);
> Result := WNetAddConnection2(NetRes, PChar (PassWord), UserName,
>0) =
>NO_ERROR;
>end;
Aplikace s vyssimi pravy
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 7.7.2003 00:28:25
Cau Jiri,
Sunday, July 6, 2003, 10:00:15 PM, you wrote:
> Muzes TaskMgr zakazat. Zapis do registru:
> reg:=TRegistry.Create;
> try
> reg.RootKey:=HKEY_CURRENT_USER;
> if
> reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System'
> , True) then
> begin
> reg.WriteBool('DisableTaskMgr', True);
> end;
> finally
> reg.Free;
> end;
NO nevim jestli to funguje i pod NT ale skusim
> A nebo se mrkni na gina dll, ale to uz je jiny kafe.
> Jiri Cincura
> mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
> http://www.cincura.net/
> Delphi 7, WinXP HE
S pozdravem
Milan Vymazal
Aplikace s vyssimi pravy
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 6.7.2003 22:00:15
Muzes TaskMgr zakazat. Zapis do registru:
reg:=TRegistry.Create;
try
reg.RootKey:=HKEY_CURRENT_USER;
if
reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System'
, True) then
begin
reg.WriteBool('DisableTaskMgr', True);
end;
finally
reg.Free;
end;
A nebo se mrkni na gina dll, ale to uz je jiny kafe.
Jiri Cincura
mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
http://www.cincura.net/
Delphi 7, WinXP HE
Aplikace s vyssimi pravy
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 6.7.2003 20:26:09
Zdravim konferenci
neprogramoval jste nekdo aplikaci kterou nelze zhodit ?. Potreboval
bych naprogramovat aplikaci ktera se spusti po prihlaseni kazdeho
uzivatele (vyreseno pres registry) a uzivatel ji hned tak nezrusi.
Jedine reseni bude asi canclose ale i to se da zhodit pomoci task
managera (windows 2000, NT).. nevite nekdo jak tento problem resit ?
--
Best regards,
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
Paralelni port
[*] Pavel Malinsky <malinsky(zv)pmcom(tec)cz> - 6.7.2003 17:33:58
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Shindy
> Sent: Sunday, July 06, 2003 2:58 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Paralelni port
>
> Ahoj, da se nekde stahnou komponenta, nebo knihovna pro cteni a zapis na
> seriovem portu? (WinNT/2K/Me)
Na seriovem:
Treba AsyncFree http://sourceforge.net/projects/asyncfree/,
nebo NEkomponentova knihovna Synaser http://www.ararat(tec)cz/synapse/.
Obe z ceske dilny.
Nebo snad na paralelni dle subjectu ? :)
S pozdravem a dikem
=====================================
> Pavel Malinsky; malinsky(zv)pmcom(tec)cz <
=====================================
> GSM: 602 652 203 | ICQ: 322015967 <
=====================================
Paralelni port
[*] Shindy <shindy2m(zv)centrum(tec)cz> - 6.7.2003 14:57:49
Ahoj, da se nekde stahnou komponenta, nebo knihovna pro cteni a zapis na
seriovem portu? (WinNT/2K/Me)
Pripadne staci i odkaz na nejaky kvalitni informacni zdroj, ve kterem je
popsano, jak komunikaci naprogramovat.
Diky .. Jiri Sindelar
Dlzka exe a jej vplyv na vykon
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 6.7.2003 02:19:02
From: "spisiak" <spisiak(zv)zoznam.sk>
> Az dnes som si vsak vsimol ze dlzka skompilovaneho exe suboru sa mi natiahla
> z 2,8 MB na 3,5MB, preto by som sa rad opytal ma dlzka exe suboru vplyv na
> vykon? Je program pomalsi ako ked je mensi exe? Moj program ma 3,5MB ale
Ne, velikost souboru nema naprosto zadnou souvislost s rychlosti behu kodu.
> vytvara len 3 formulare a ostatne vytvaram az ked su potreba a hned ich
> uvolnujem. Dnes som si pozeral aj ine programy v delphi stiahnute z inetu a
> nasiel som medzi nimi aj jeden s 8,65MB a chodi celkom svizne.
Patrne tam nekdo zapomel TD32 debug informace pro ladeni nebo pouzival nejake
velke resource, napriklad obrazek jako bitmapu na formulari.
Petr Vones
instalacni balik
[*] dotnet(zv)email(tec)cz - 5.7.2003 22:58:49
Nazdar. Ve Visual Studiu 6 jsem pomoci "Package & Deployment Wizard" vyrobil komplet instalaci me aplikace. Jak neco podobneho se resi ve Visual Studio Net 2003 ??? DotNet
pripojeni k MDB
[*] dotnet(zv)email(tec)cz - 5.7.2003 22:30:48
Nazdar. Zkousim ve VB.NET a chci se pripojit k MDB (Access97). Pouzil jsem "Tools/Connect to database" a pak zvolil "Microsoft Jet 3.51 OLE DB Provider", nastavil "Access permision" na ReadWrite. Udelal jsem jednoduchy formular, kde jsem umistil DataGrid, ktery jsem napojil na "DataSet11.Adresa" (connect do MDB na tabuli Adresa). V DataGridu se zobrazi sloupecky tabulky Adresa. Aplikaci spustim, zobrazi se okno s gridem, ktery obsahuje udaje tabulky Adresa. A ted nastava problem - zadam novy radek (treba dva i vice), pak okno zavru (ukoncim aplikaci). Kdyz to znovu spustim, tak nove zadane radky tam nejsou, jen ty puvodni. Kde asi delam chybku ???
DotNet
Dlzka exe a jej vplyv na vykon
[*] spisiak <spisiak(zv)zoznam.sk> - 5.7.2003 22:00:46
Zdravim,
a)
pred casom som do konferencie posielal prispevok ohladom zahadneho padania
programov vytvorenych v delphi na win2000 na jniektorych PC. Po dlhom
laborovani sa mi zrejme podarilo prist na to cim to v mojom pripade bolo. V
Project options som zapol Overflow chcking a Pentium f-save FDIV. Problem s
padanim programu sa stratil.
b)
Az dnes som si vsak vsimol ze dlzka skompilovaneho exe suboru sa mi natiahla
z 2,8 MB na 3,5MB, preto by som sa rad opytal ma dlzka exe suboru vplyv na
vykon? Je program pomalsi ako ked je mensi exe? Moj program ma 3,5MB ale
vytvara len 3 formulare a ostatne vytvaram az ked su potreba a hned ich
uvolnujem. Dnes som si pozeral aj ine programy v delphi stiahnute z inetu a
nasiel som medzi nimi aj jeden s 8,65MB a chodi celkom svizne.
Diky
KaSi
----- Original Message -----
From: "Pavel Cisar" <pcb(zv)atlas(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Saturday, July 05, 2003 7:38 PM
Subject: Re: Kylix Professional, Firebird
> Haj hou!
>
> On 4 Jul 2003 at 18:56, Zdenek Telicka wrote:
>
> > Jenom skoda, ze v tom Kylixu OE to pres zeos 6 proste ne a ne jet.
> > Myslim ze jakmile se zavola fce isc_attach_database, tak se program bez
> > jedine hlasky ukonci a nic (zkousel jsem to na mysql a jede to).
> > FirebirdCS 1.03 jsem nainstaloval pres instalacni skript.
> > Nainstalovalo se to pod xinetd asi, nemuze to byt prave tim?
>
> Opravdu nemam se ZEOS zadne zkusenosti, alespon ne na Linuxux ani z
> posledni doby. XINETD by rozhodne nemel mit vliv na funkci ZEOS, ale kdo
vi -
> je lepsi podivat se do dokumentace k ZEOS.
>
> S pozdravem
> Pavel Cisar
> Mobil: 724 281429
> http://www.ibphoenix(tec)cz
> Vse co potrebujete pro Firebird a InterBase
>
>
>
Kylix Professional, Firebird
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 5.7.2003 19:38:36
Haj hou!
On 4 Jul 2003 at 18:56, Zdenek Telicka wrote:
> Jenom skoda, ze v tom Kylixu OE to pres zeos 6 proste ne a ne jet.
> Myslim ze jakmile se zavola fce isc_attach_database, tak se program bez
> jedine hlasky ukonci a nic (zkousel jsem to na mysql a jede to).
> FirebirdCS 1.03 jsem nainstaloval pres instalacni skript.
> Nainstalovalo se to pod xinetd asi, nemuze to byt prave tim?
Opravdu nemam se ZEOS zadne zkusenosti, alespon ne na Linuxux ani z
posledni doby. XINETD by rozhodne nemel mit vliv na funkci ZEOS, ale kdo vi -
je lepsi podivat se do dokumentace k ZEOS.
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Jak na sdileni ??
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 5.7.2003 11:55:26
Ahoj,
KinDRik wrote:
> Nevi nekdo jak nazdilet pod windowsem nejakou slozku a jak zjistit
> heslo nastavene u sdilene slozky
function OpenSharedResource(const Path,Password: String): Boolean;
var
NetRes: TNetResource;
UserName: array[0..31] of Char;
UserNameSize: DWORD;
begin
Result := False;
if DirectoryExists(Path) then
begin
Result := true; exit;
end;
UserNameSize := Sizeof(UserName);
WNetGetUser(nil, UserName, UserNameSize);
ZeroMemory((zv)NetRes, Sizeof(NetRes));
NetRes.dwType := RESOURCETYPE_DISK;
NetRes.lpRemoteName := PChar (Path);
Result := WNetAddConnection2(NetRes, PChar (PassWord), UserName, 0) =
NO_ERROR;
end;
Jak zjistit heslo nevim, a doufam, ze to ani nejde. Teda krome toho, ze
Ti ho nekdo vyzradi.
Vaclav Sazima
P.S. Zdroj: jak jinak, tahle konference
Dalsia informacia v TSringu
[*] Marek Soukup <nodes(zv)atlas(tec)cz> - 5.7.2003 11:53:21
Ja jsem na to pouzil TCollection a TCollectionItem.
S pozdravem
Marek Soukup
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Koteles Jan
Sent: Friday, July 04, 2003 3:42 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Dalsia informacia v TSringu
Potrebujem uchovavat v polozkach ListBoxu.Items (Tstrig) aj dalsiu
nezobrazovanu informaciu (napr. index do databazy). Ako to najjednoduchsie
urobim? Myslim si ze by som to mal robit cez Tstring.AddObject, ale neviam
si to predstavit ze ako. Mozete mi prosim pomoct?
Dakujem
trochu OT: konverze iso-8859-2 -> Windows-1250 v
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 5.7.2003 10:57:17
Ahoj,
nevim presne co chces, ale treba stary dobry prikaz tr. Ten
transformuje jednotlive znaky a muzes je zadat i osmickove ... Mozna, ze
v Linuxu uz bude nejaka volba na sady, mrkni do manu. Ale jinak je to tr
b-d B-D, cili za b,c,d to da B,C,D. Ale jak rikam, klidne mu to muzes
dat i jako kod znaku, coz by mohlo pro konverzi stacit (pokud jsou znamy
ty rozdily, a nekde je to urcite posany)
BTW: Mrkni na root(tec)cz, abclinuxu(tec)cz, ..., tam by mohli vedet o necem, co
je v Linuxu a umi to, tohle je fakt z UNIXu a z radky cili dost stary
(ale dobry).
Jiri Cincura
mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
http://www.cincura.net/
Delphi 7, WinXP HE
==
Vadi vam klavesove zkratky ve Windows, ktere vam prerusuji vasi praci
nebo hry? Nebo potrebuje nejake kombinace nenechavym uzivatelum zakazat?
Na www.cincura.net, muzete stahnout program Keys, ktery umi zablokovat
vsechny klavesy.
Zmena FormStyle
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 5.7.2003 10:47:16
A co zkusit celej form kreslit "rucne". Pak by to slo omezit, ne?
Jiri Cincura
mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
http://www.cincura.net/
Delphi 7, WinXP HE
==
Potrebujete neco spocitat, ale znalosti ze skoly uz nejsou to co byvaly?
Nebo se vam nechce neco dlouze pocitat? Navstivte www.cincura.net a
stahnete si program Rovnice.
Tlacitko s obrazkem
[*] Martin Falta <martin(zv)aprog(tec)cz> - 5.7.2003 10:37:11
Nevite nekdo o tlacitku, ktere by na sobe krome textu neslo i obrazek
(neco jako je v Delphi TBitBtn)?
Diky.
Martin
trochu OT: konverze iso-8859-2 -> Windows-1250 v
[*] Jakub Cizek <jakub.cizek(zv)chatspace(tec)cz> - 5.7.2003 00:38:33
Zdravim,
neznate nejaky nastroj v linuxu, ktery umi ukladat dokumenty ve wokennim
kodovani windows-1250??
--
Best regards,
jakub.cizek(zv)chatspace(tec)cz
"I am using plaintext,
you should too!"
Kupa Delphi7 personal, upgrade na professional
[*] Zdenek Telicka <telda(zv)raz-dva(tec)cz> - 4.7.2003 22:28:25
V souvislosti s pomalym koncem Delphi by me zajimalo, jak to bude s
Kylixem? Pochybuji, ze Borland bude dal vyvijet Kylix, kdyz ve Winech
vlastne odboura Pascal a C++ bude nahrazeno C#? Takhle se mi to jevi,
ale mozna sem to pochopil spatne.
s pozdravem
Zdenek Telicka
Zbysek Hlinka wrote:
>On 4 Jul 2003 at 12:01, Ludek ZITA wrote:
>
>
>
>>D4S na D5S bych prisel o podporu databazi). Takze mi nezbylo nez
>>koupit D5P za plnou cenu. Takze at ti reknou co ti reknou never jim.
>>Stejne to bude jinak a vzhledem k tomu, ze topici se slamy chyta budou
>>jiste chtit pred konecnym krachem jezte neco narejzovat zakze bych moc
>>s moznosti upgrade radeji nepocital.
>>
>>
>
>Ja bych to nevidel jako krach Borlandu, jako spis postupny konec
>Delphi jako produktove rady. Delphi uz pro Win32 nic prevratne noveho
>nenabizi. Moje doporuceni tedy zni: nove se ucit Delphi nema smysl,
>je to ztrata casu a investic. Lepsi je treba zacit s C# nebo necim,
>co ma pred sebou rozumnou budoucnost. A klidne je mozne koupit u
>Borlandu treba C#Builder, kdyz se to nekomu bude libit.
>
>S pozdravem
>
>Zbysek Hlinka
>
>
>
>
>
>
Kylix Professional, Firebird
[*] Zdenek Telicka <telda(zv)raz-dva(tec)cz> - 4.7.2003 18:56:12
Hezky den pane Cisari,
dekuji za tipy. Prave vcera sem si poridil vasi prirucku
Inrebase/Firebird :-) Cetl jsem zatim jenom prvni stranky, velmi sikovna
knizecka, rozhodne dobra investice. Jenom skoda, ze v tom Kylixu OE to
pres zeos 6 proste ne a ne jet. Myslim ze jakmile se zavola fce
isc_attach_database, tak se program bez jedine hlasky ukonci a nic
(zkousel jsem to na mysql a jede to). FirebirdCS 1.03 jsem nainstaloval
pres instalacni skript. Nainstalovalo se to pod xinetd asi, nemuze to
byt prave tim?
S pozdravem
Zdenek Telicka
Pavel Cisar wrote:
>Haj hou!
>
>On 3 Jul 2003 at 20:38, Zdenek Telicka wrote:
>
>
>
>>Jak to funguje, kdyz pouziji lokalni Firebird misto Interbase?
>>
>>
>
>Melo by to fungovat bez problemu. Da se stahnout IBX pro Kylix z CodeCentral
>na Borlandu. Doporucuji ale pouzit UIB (Unified Interbase):
>
>http://www.progdigy.com/UIB/
>
>These components were born from the need to use Interbase, FireBird or Yaffil
>indifferently as fast as possible in a Multithreading environment, a Server for
>example.
>
>UIB include a Borland Compliant conversion API for Interbase, FireBird and
>YAFFIL.
>
>UIB Include a Client Server ORB (Object Request Broquer) working with Indy.
>
>UIB include 5 components at this time:
>
> *TJvUIBDatabase.
> *TJvUIBTransaction.
> *TJvUIBQuery.
> *TJvUIBBackup.
> *TJvUIBRestore.
>
> These components are "Thread-Safe" with any version of Interbase, FireBird
>and Yaffil and are working with Delphi, BCB, Kylix.
>
>
>
>>A pak mam jeste jednu otazku, zda-li mate nekdo zkusenosti v Kylixu
>>prof. se ZEOS komponentami? A nejlepe s pouzitim Firebirdu?
>>Predpokladam, ze tam se jiz muzu pripojit i ke vzdalenemu serveru?
>>Licence je u nich myslim LGPL, znamena to, ze to muzu volne pouzit v
>>komernich aplikacich - mysleno i tak, ze to je treba i zdarma, ale bez
>>zdrojaku.
>>
>>
>
>Se ZEOS primou zkusenost nemam, ale melo by to rovnez fungovat.
>
>S pozdravem
>Pavel Cisar
>Mobil: 724 281429
>http://www.ibphoenix(tec)cz
>Vse co potrebujete pro Firebird a InterBase
>
>
>
>
>
TreeView a zmena FormStyle
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 4.7.2003 17:04:05
Slavek Rydval <konference(zv)rydval(tec)cz> wrote:
> na formulari mam TreeView a kazdy jeho Item.Data okazuje na nejaky
> vytvoreny objekt. Pokud formulari zmenim FormStyle, prijde pozadavek
> i na TreeView, at se ,,pretvori`` znovu - tim padem zrusi vsechny
> itemy a vytvori znovu, cimz prijdu o spravne hodnoty v Item.Data
> (priklad je na konci). Jak tento problem vyresit, aniz bych prechazel
> k jine komponente?
Resil jsem to tak, ze jsem pred akci ktera by zpusobila recreate handlu
zavolal funkci, ktere jsem predal TWinControl (ale slo by to i pro cely
TForm) a libovolny TStream, ona prosla vsechny podrizene prvky
a pro ty ktere maji se ztratou handlu problemy, a neni to jenom
treeview, si do streamu zastreamovala potrebna data. Obdobna funkce je
zase umela po novem vytvoreni handlu prvkum vratit. Ve starych
D3 se to tykalo napr. i TComboBox, ktery ztratil ItemIndex, TListBoxu
v rezimu multiselect ktery ztratil oznacene zaznamy apod. Ve vyssich
verzich uz je lecos z toho opravene, ale urcite ne vsechno na 100%.
Jak na sdileni ??
[*] KinDRik <kindrik(zv)centrum(tec)cz> - 4.7.2003 16:12:01
Opet sem zde
a ydravim vsechny Pany programatory ,
mam takovou otazku .
Nevi nekdo jak nazdilet pod windowsem nejakou slozku a jak zjistit
heslo nastavene u sdilene slozky
Predem dekuji za jakoukoliv radu
Jiri Betunak
Dalsia informacia v TSringu
[*] Koteles Jan <koteles(zv)lumen.sk> - 4.7.2003 15:42:00
Potrebujem uchovavat v polozkach ListBoxu.Items (Tstrig) aj dalsiu
nezobrazovanu informaciu (napr. index do databazy). Ako to najjednoduchsie
urobim? Myslim si ze by som to mal robit cez Tstring.AddObject, ale neviam
si to predstavit ze ako. Mozete mi prosim pomoct?
Dakujem
Delphi vs. Citrix
[*] Martin Fisar <martin_fisar(zv)gordic(tec)cz> - 4.7.2003 15:35:57
Zdravim,
nema nekdo zkusenosti se SUBJ. Jde mi o to, ze kdyz spustim
aplikace jako napr. FAR, tak na Windows liste pribude tlacitko
s FARem (ikona je i na Alt+TAB akorat ma navic ICA poznamku). Kdyz
ale spustim neco udelany v Delphi (Delphi 3), tak se to sice spusti,
ale na liste nic nepribude a ani v Alt+TAB vyberu ta moje aplikace
videt neni. Kdyz to nepoustim pres Citrix, ale normalne se stanice
nebo ze serveru, tak to funguje OK.
Martin Fisar
Martin_Fisar(zv)gordic(tec)cz
TreeView a zmena FormStyle
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.7.2003 15:05:55
From: "Slavek Rydval" <konference(zv)rydval(tec)cz>
> na formulari mam TreeView a kazdy jeho Item.Data okazuje na nejaky vytvoreny
> objekt. Pokud formulari zmenim FormStyle, prijde pozadavek i na TreeView, at
> se ,,pretvori`` znovu - tim padem zrusi vsechny itemy a vytvori znovu, cimz
Dalsi moznost, ktera to asi opravdu konecne resi. Odvodit vlastni tridu od
TTreeNode a tu predat v udalosti OnCreateNodeClass. Tim by mel byt zajisten i
streaming v pripade, ze se vyvolalo RecreateWnd.
Petr Vones
TreeView a zmena FormStyle
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.7.2003 14:49:54
From: "Slavek Rydval" <konference(zv)rydval(tec)cz>
> na formulari mam TreeView a kazdy jeho Item.Data okazuje na nejaky vytvoreny
> objekt. Pokud formulari zmenim FormStyle, prijde pozadavek i na TreeView, at
> se ,,pretvori`` znovu - tim padem zrusi vsechny itemy a vytvori znovu, cimz
> prijdu o spravne hodnoty v Item.Data (priklad je na konci). Jak tento
> problem vyresit, aniz bych prechazel k jine komponente?
Resenim by mohlo byt vytvaret ten objekt az v udalosti OnAddition a rusit v
OnDeletion. Tim se vzdy vytvori znovu pokud je volano RecreateWnd. Cele je to
ovsem ponekud nelogicke, spravne by se spise nemelo volat OnDeletion pokud jde
o volani RecreateWnd.
Petr Vones
TreeView a zmena FormStyle
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.7.2003 14:37:53
From: "Slavek Rydval" <konference(zv)rydval(tec)cz>
> na formulari mam TreeView a kazdy jeho Item.Data okazuje na nejaky vytvoreny
> objekt. Pokud formulari zmenim FormStyle, prijde pozadavek i na TreeView, at
> se ,,pretvori`` znovu - tim padem zrusi vsechny itemy a vytvori znovu, cimz
> prijdu o spravne hodnoty v Item.Data (priklad je na konci). Jak tento
V jake je to verzi Delphi ? Podle zdrojaku VCL v Delphi 7 by to melo fungovat
a take to funguje:
procedure TForm1.Button1Click(Sender: TObject);
var
N: TTreeNode;
begin
TreeView1.Items.Clear;
N := TreeView1.Items.AddChild(nil, 'Text');
N.Data := Pointer(1);
ShowMessageFmt('%p', [TreeView1.Items[0].Data]);
TreeView1.Perform(CM_RECREATEWND, 0, 0);
ShowMessageFmt('%p', [TreeView1.Items[0].Data]);
end;
Petr Vones
Chyba Internal gds konsistency check
[*] Jaroslav Vorlicek <vorlicek(zv)ders(tec)cz> - 4.7.2003 14:23:52
Zdravim vespolek
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Pavel Cisar
Sent: Friday, July 04, 2003 12:44 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Chyba Internal gds konsistency check
>Zkuste vytvorit index na prazdne databazi (melo by projit), a pak pridavat
data z databaze a sledovat ktery selze.
Bohuzel nelze. Na to je databaze moc slozita.
>Rovnez by mohla neco odhalit validace na puvodni databazi.
To byla rada spravnym smerem.
Postupoval jsem takto :
>gfix -shut -attach 300 -user sysdba -password masterkey prazdnadatabaze.gdb
>gfix -validate -full -user sysdba -password masterkey prazdnadatabaze.gdb
-nic nebylo hlaseno, takze si myslim, ze by struktura mohla byt vporadku.
>gfix -sweep -user sysdba -pasword masterkey prazdnadatabaze.gdb
-sweep nemuze uskodit
A znovu vytvoril databazi :
>gbak -backup -v -ignore -user sysdba -password masterkey
prazdnadatabaze.gdb prazdnadatabaze.gbk
> gbak -create -v -p 8192 -user sysdba -password masterkey
prazdnadatabaze.gbk prazdnadatabaze.gdb
Vypada to, ze chyba byla odstranena. Nevim, co ji odstranilo, ale povedlo
se. Index jsem nasledne vytvoril.
Dekuji
Jaroslav Vorlicek
Zmena FormStyle
[*] Slavek Rydval <konference(zv)rydval(tec)cz> - 4.7.2003 14:01:50
Preji vsem pekneho dne,
lze zaridit, aby pri zmene vlastnosti FormStyle objektu formulare nedoslo k
jeho probliknuti?
Diky za kazde info
Slavek
-----------------------------------------
slavek(zv)rydval(tec)cz
http://www.rydval(tec)cz
-----------------------------------------
TreeView a zmena FormStyle
[*] Peter Sulek <psulek(zv)seznam(tec)cz> - 4.7.2003 14:13:51
Skusil by som pouzit VirtualTreeView:
http://www.delphi-gems.com/VirtualTreeview/VT.php
> Preji vsem pekneho dne,
>
> na formulari mam TreeView a kazdy jeho Item.Data okazuje na nejaky
vytvoreny
> objekt. Pokud formulari zmenim FormStyle, prijde pozadavek i na TreeView,
at
> se ,,pretvori`` znovu - tim padem zrusi vsechny itemy a vytvori znovu,
cimz
> prijdu o spravne hodnoty v Item.Data (priklad je na konci). Jak tento
> problem vyresit, aniz bych prechazel k jine komponente?
>
> Diky za kazde info
>
> Slavek
Jeste jednou minimalizace aplikace
[*] Ing. Pavel Zilinec <zilinec(zv)psinfos(tec)cz> - 4.7.2003 14:17:51
Staci odchytit zpravu a pak uvest nasl. kod
procedure OnMinimize(var Message : TMessage); message WM_SysCommand;
{ Zajistim minimalizaci nebo obnovu i hlavniho okna spolecne s minimalizaci
nebo obnovou tohoto okna (ale jen kdyz nebude okno MDIChild)}
if (FormStyle <> fsMDIChild) and (Message.Msg = WM_SYSCOMMAND) and
(Application.MainForm <> Self) then
case Message.WParam of
SC_Minimize : if Application.MainForm.WindowState <> wsMinimized then
Application.MainForm.WindowState := wsMinimized;
SC_Maximize : if Application.MainForm.WindowState = wsMinimized then
Application.MainForm.WindowState := wsMaximized;
SC_Restore : if Application.MainForm.WindowState <> wsNormal then
Application.MainForm.WindowState := wsNormal;
end;
Jenom se to minimalizuje nad listu, ale lepsi nez nic :)
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
PB> Trknete mne nekdo prosim...
PB> Rad bych vedel, jak minimalizovat aplikaci pote, co minimalizuji modalni okno. Predtavoval bych si tak, ze po minimalizaci okna se mi zminimalizuje aplikace a po jejim obnoveni se obnovi i
PB> modalni okno ve sve puvodni velikosti (Restore).
PB> Diky Petr
Jeste jednou ikona z BPL
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 4.7.2003 14:11:51
> do toho druheho. Nejznaszi mas pouzit API funkci LoadIcon, kde vracene
handle
Diky, jak snadne!
M. B.
TreeView a zmena FormStyle
[*] Slavek Rydval <konference(zv)rydval(tec)cz> - 4.7.2003 13:59:49
Preji vsem pekneho dne,
na formulari mam TreeView a kazdy jeho Item.Data okazuje na nejaky vytvoreny
objekt. Pokud formulari zmenim FormStyle, prijde pozadavek i na TreeView, at
se ,,pretvori`` znovu - tim padem zrusi vsechny itemy a vytvori znovu, cimz
prijdu o spravne hodnoty v Item.Data (priklad je na konci). Jak tento
problem vyresit, aniz bych prechazel k jine komponente?
Diky za kazde info
Slavek
Formular, na nem TreeView1, Button1 a Button2.
//dale nejaka trida, jejiz instanci dam do Item.Data
type
TSomeClass = class
private
FSomeValue: string;
published
property SomeValue: string read FSomeValue write FSomeValue;
constructor Create (const AValue: string);
end;
constructor TSomeClass.Create(const AValue: string);
begin
inherited Create;
FSomeValue := AValue;
end;
//FormCreate
procedure TForm1.FormCreate(Sender: TObject);
begin
//vytvorim jeden Item
with TreeView1.Items.AddChild(nil, 'Pokus') do
Data := TSomeClass.Create ('SomeValue');
end;
procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
begin
//pri zruseni Itemu zrusim i objekt
TSomeClass (Node.Data).Free;
Node.Data := nil;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//zmenim styl
if FormStyle = fsNormal then
FormStyle := fsStayOnTop
else
FormStyle := fsNormal;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//zobrazim hodnotu vlastnosti v objektu privazaneho na item...
//pokud bylo pred tim stisteno Button1, dojde k chybe
ShowMessage (TSomeClass (TreeView1.Items [0].Data).SomeValue);
end;
-----------------------------------------
slavek(zv)rydval(tec)cz
http://www.rydval(tec)cz
-----------------------------------------
Jeste jednou minimalizace aplikace
[*] Petr Bartos <p.bartos(zv)softdec(tec)cz> - 4.7.2003 13:39:48
Trknete mne nekdo prosim...
Rad bych vedel, jak minimalizovat aplikaci pote, co minimalizuji modalni okno. Predtavoval bych si tak, ze po minimalizaci okna se mi zminimalizuje aplikace a po jejim obnoveni se obnovi i modalni okno ve sve puvodni velikosti (Restore).
Diky Petr
SYNAPSE - SubParty
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 4.7.2003 13:33:47
> 1) V jedne z rad z historie je uvedeno testovat na PrimaryCode, zda je
> MP_TEXT, MP_MESSAGE atd. Zkousel jsem uz ruzna zpravy (plain text, v
> HTML formatu i s nejruznejsima prilohama), ale jeste se mi nepodarilo
> dostat v PrimaryCode nic jineho nez MP_MULTIPART. Jen predesilam, ze sem
> tu historii opravdu cetl, takze veci jako DecodeMessage sem nevynechal a
> zpravu projizdim v cyklu a lezu po vsech Partech :). Kde tedy delam
> chybu? Nebo spis, co sem spatne pochopil?
Patrne je to proto, ze vse co mu podstrjujes je skutecne multipart.
ntreba maily s HTML? ;-)
S temi druhy subpartu se to ma u Synapse nejak nasledovne:
Kazda e-mailova zprava muze obsahovat bud primo nejaky text
(MP_TEXT), nebo nejaka binarni data jako treba soubor, zvuk, video,
atd. (MP_BINARY).
Nebo muze byt pouzit tzv. multipart (MP_MULTIPART), coz je takovy
specielni druh zpravy. jedna se vlastne o jakysi kontejner da dalsi
podrizene casti dopisu (subparty. ;-)) Tento mutipart pro zmenu sam o
sobe nenese zdnou informaci.
Takze naprikald, kdyz posles zpravu jen s textem, budes mit MP_TEXT.
Posles-li jen soubor, budes mit zpravu s MP_BINARY.
Posles-li ale zpravu s textem a soubor jako prilohu, dostanes
MPMULTIPART. A tento multipart bude mit pod sebou dva dalsi
subparty... MP_TEXT a MP_BINARY.
Navic, multipart muze mit jako nejakou ze svych podrizenych subparty
opet dalsi multipart. Timto jsi schipem vytvorit a obsluhovat
libovolnou stromovou strukturu ruzne vnorenych jednoduchych casti e-
mailoveho dopisu.
Kdyz posilas HTML mail, tak ten je vzdy multipart, ktery ma podrizene
zpravidla dva subparty.. jeden text v HTML a druhy totez bez HTML
(plaintext) pro normalni lidi. ;-)
chces-li vedet neco o zpracovavane e-mail zprave, nemuzes se koukat
jen na ten prvni part, musis se vnorovat i do jejich subpartu a
pripadne do subpartu jejich subpartu. To neni seznam, to je
stromecek. ;-)
Synapse dokonce na toto prolezani nabizi nastroj. Staci si povesit
svoji proceduru na OnWalkPart a pak zavolat metodu Walkpart. Tvoje
povesena procedura bude zavolana pro kazdou cast dopisu zvlast. To se
obzvlast hodi treba na generovani seznamu hjednotlivych casti dopisu,
na vyhledavani casti dopisu s virem, atd. ;-)
Jeste musim zminit posledni druh subpartu, ktery se zove
'MP_MESSAGE'. To znamena, ze tady je prilozena dalsi cela nejaka e-
mailova zprava. tento typ ma vzdy jeden subpart, kde je tato zprava
ulozena. (a pripadne take rozebrana. ;-))
> 2)Korektni zobrazeni cestiny. Co udelat, aby se mi zprava zobrazila
> korektne s ceskou diakritikou?
Kukas se na nedekodovanou cast dopisu. Abys tuto cast dopisu
dekodoval, musis zavolat DecodePart pro ten Subpart, ktery hces
dekodovat. Vysledek pak mas v decodedlines streamu, protoze vysledek
muzou byt libovolne binarni data! (v pripade treba prilozeneho
souboru). pokud chces dekodovat celou zpravu, musis toto zvolat pro
kazdy subpart zvlast!
> 3) kdyz mam SubPart s reply odpovedi, nebo forwardnutou message, jak ten
> subpart rozdelim, abych mel jen ciste tela tech zprav? Potazmo spis v
> cem bude ulozene telo te zpravy.
Bud je ta zprava typu MP_MESSAGE a rozdeluje ti to sam TMimePart,
nebo je to nejakym mailerem napsane primo v textu zpravy a musis si
to nejak odhalit a rozelit sam.
Resource Dll a pocet prvku
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 4.7.2003 13:33:47
On 4 Jul 2003 at 13:15, Petr Vones wrote:
> > Windows 95/98/Me: If you are using LoadLibrary to load a module that
> > contains a resource whose numeric identifier is greater than 0x7FFF,
> > LoadLibrary fails.
>
> I kdyz tohle bude asi nesmysl, protoze Delphi kompilator cisluje
> resstringy od konce a funguje to vsude. Otazka co tim Microsoft myslel
MS uvadi v dokumentaci k PE toto:
V sekci String jsou bloky, v kazdem bloku muze byt nejvyse 16
retezcu. Nazev bloku je tvoren 12bitovym cislem. ID retezce se pak
pocita cislo bloku * 16 + pozice retezce v bloku. Funguje to jak ve
Win9x, tak i v OS Windows.
S pozdravem
Zbysek Hlinka
Resource Dll a pocet prvku
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 4.7.2003 13:21:46
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> > Windows 95/98/Me: If you are using LoadLibrary to load a module that
> > contains a resource whose numeric identifier is greater than 0x7FFF,
> > LoadLibrary fails.
>
> I kdyz tohle bude asi nesmysl, protoze Delphi kompilator cisluje
resstringy od
> konce a funguje to vsude. Otazka co tim Microsoft myslel ...
>
To urcite neni pravda, protoze uz roky pod W9x provozujeme DLL, ktera ma
cca 48 k textu ulozenych ve STRINGTABLES.
Bye, pf
Resource Dll a pocet prvku
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 4.7.2003 13:11:45
On 4 Jul 2003 at 13:03, Ing. Petr Sikola wrote:
> Potrebuji do dll dat velke mnozstvi resource stringu (dll slouzi pro
> runtime lokalizaci), ale nevim jakym zpusobem, a jestli to vubec lze,
> do te dll dostat vice jak 65535 prvku.
Nelze. To je horni limit.
S pozdravem
Zbysek Hlinka
Resource Dll a pocet prvku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.7.2003 13:13:45
From: "Ing. Petr Sikola" <developer(zv)efg(tec)cz>
> Potrebuji do dll dat velke mnozstvi resource stringu (dll slouzi pro
> runtime lokalizaci), ale nevim jakym zpusobem, a jestli to vubec lze, do
> te dll dostat vice jak 65535 prvku.
Ne, dokonce jen 32767 protoze na Windows 9x existuje nasledujici omezeni:
Windows 95/98/Me: If you are using LoadLibrary to load a module that contains
a resource whose numeric identifier is greater than 0x7FFF, LoadLibrary fails.
Petr Vones
Resource Dll a pocet prvku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.7.2003 13:15:46
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> Windows 95/98/Me: If you are using LoadLibrary to load a module that
> contains a resource whose numeric identifier is greater than 0x7FFF,
> LoadLibrary fails.
I kdyz tohle bude asi nesmysl, protoze Delphi kompilator cisluje resstringy od
konce a funguje to vsude. Otazka co tim Microsoft myslel ...
Petr Vones
Chyba Internal gds konsistency check
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 4.7.2003 12:43:43
Haj hou!
On 4 Jul 2003 at 12:05, Jaroslav Vorlicek wrote:
> Otazka zustava nezmenena, netusite nekdo co s tim ?
Obcas se mi stava, ze pro oci nevidim :-) Problem neni v klici, ale v datech. Ono
totiz selze vytvoreni B-stromu pro index, nikoliv vytvoreni zaznamu o strukture
indexu. Zkuste vytvorit index na prazdne databazi (melo by projit), a pak pridavat
data z databaze a sledovat ktery selze. Rovnez by mohla neco odhalit validace
na puvodni databazi.
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Resource Dll a pocet prvku
[*] Ing. Petr Sikola <developer(zv)efg(tec)cz> - 4.7.2003 13:03:44
Zdravim konferenci.
Potrebuji do dll dat velke mnozstvi resource stringu (dll slouzi pro
runtime lokalizaci), ale nevim jakym zpusobem, a jestli to vubec lze, do
te dll dostat vice jak 65535 prvku.
klasicky vytvarim rc soubor:
STRINGTABLE DISCARDABLE
{
1,"text 1"
2,"text 2"
...
65535,"text n"
}
dll vypada takto:
{$C LOADONCALL}
library resource;
{$R 'versioninfo.res'}
{$R 'rc_sql.res'}
{$R 'STRINGS.res'}
{$R 'BITMAPS.res'}
uses
Windows,
Graphics,
StdCtrls,
SysUtils;
+ nejake funkce a procedury
bohuzel se mi nedari dll zkompilovat pro vice nez 65535 prvku.
Dekuji za radu.
Petr Sikola
OT: SYNAPSE - SubParty
[*] Dave <bone(zv)wizards(tec)cz> - 4.7.2003 13:05:45
Zdravim a prosim o radu.
Plodim pro sve pouziti mail klienta a rozhodl jsem se pouzit Synapsi.
Prolezl jsem si historii konference a rady a napady hledal nejprve tam.
Pomohlo to, ale i tak bych se chtel na par veci jeste zeptat. Vim, z mam
vedomostni mezery ve fungovani mailu a snazim se je dohnat a proto
prosim o toleranci :)
1) V jedne z rad z historie je uvedeno testovat na PrimaryCode, zda je
MP_TEXT, MP_MESSAGE atd. Zkousel jsem uz ruzna zpravy (plain text, v
HTML formatu i s nejruznejsima prilohama), ale jeste se mi nepodarilo
dostat v PrimaryCode nic jineho nez MP_MULTIPART. Jen predesilam, ze sem
tu historii opravdu cetl, takze veci jako DecodeMessage sem nevynechal a
zpravu projizdim v cyklu a lezu po vsech Partech :). Kde tedy delam
chybu? Nebo spis, co sem spatne pochopil?
2)Korektni zobrazeni cestiny. Co udelat, aby se mi zprava zobrazila
korektne s ceskou diakritikou?
Dostanu:
P=F8=EDchoz=ED zpr=E1va neobsahuje viry.
a mel bych dostat
---
Prichozi zprava neobsahuje viry.
Vim, ze je to pravdepodobne kodovanim, ale nevim, jak z toho ven.
3) kdyz mam SubPart s reply odpovedi, nebo forwardnutou message, jak ten
subpart rozdelim, abych mel jen ciste tela tech zprav? Potazmo spis v
cem bude ulozene telo te zpravy.
Diky za pomoc
Quickreport : defaultniXchteny podavac
[*] Rastislav Lazan <lazan(zv)davidplus.sk> - 4.7.2003 12:41:43
Ak sa nemylim, myslim ze ide tuto chybu (dole) WinNT, XP, 2000 (na Win98 je
to vraj OK a uz vobec nejde o QuickReport):
Riesenie (dole) tiez nie je pouzitelene, len ak by si to robil presne pre
urcitu konkretnu tlaciaren.
Jedina schodna cesta je pouzit komponentu TPBPrinterSetupDialog (pouzivat
save mod) z http://home11.inet.tele.dk/BakSoft/.
Area: vcl\dialog controls\tprintersetupdialog
Reference Number: 465 (Published: 12/17/98)
Status: Deferred to Next Rel
Date Reported: 5/5/98
Severity: Commonly Encountered
Type: Basic Functionality Failure
Problem:
Under Windows NT 4 (SP3) the printer dialog and
printer setup dialog will always show the default
printer, not the one chosen through
Printer.PrinterIndex. Under Win95 (and Win 3.1 with
D1) the PrinterIndex printer is the one chosen in the
dialog.
This can be worked around by calling
Printer.GetPrinter followed by Printer.SetPrinter, with
a 0 parameter for hDevMode, to force TPrinter to
update its info.
Steps:
The following event handler shows what is
neccessary to have the NT4 printer dialogs to show
the correct printer after PrinterIndex is set in code. If
the GetPrinter and SetPrinter calls are commented
out then the dialogs will always show the default
printer, not the PrinterIndex one.
procedure TForm1.Printersetup1Click(Sender:
TObject);
var
Device : array[0..255] of char;
Driver : array[0..255] of char;
Port : array[0..255] of char;
hDMode : THandle;
begin
Printer.PrinterIndex := 1; { set to any non-default
printer }
Printer.GetPrinter(Device, Driver, Port, hDMode);
Printer.SetPrinter(Device, Driver, Port, 0);
if PrinterSetupDialog1.Execute then begin
Memo1.Lines := Printer.Printers;
end;
end;
----- Original Message -----
From: "Michal Kolisek" <michal.kolisek(zv)asei(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, July 04, 2003 10:27 AM
Subject: Quickreport : defaultniXchteny podavac
> Dibry den,
> nemohu najit, jestli uz jsme podobny pripad nekde resili, ale mam
> nasledujici problem :
> tisknu na tiskarnu pres QuickReport, a misto, aby si tiskarna brala
podavac,
> ktery ma nastaveny ve Windows, bere si standardne nejaky svuj defaultni
> podavac (jedna se o nekterou ze serie chytrych LaserJetu). Potreboval bych
> tiskarnu donutit, aby si brala podavac, ktery je u ni nastaven ve Windows.
> Da se to nejakym zpusobem do Quickreportu nastavit ?
>
> Hezky den
>
> M.Kolisek, D7 Prof., W2K
>
>
>
Kupa Delphi7 personal, upgrade na professional
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 4.7.2003 12:33:42
On 4 Jul 2003 at 12:01, Ludek ZITA wrote:
> D4S na D5S bych prisel o podporu databazi). Takze mi nezbylo nez
> koupit D5P za plnou cenu. Takze at ti reknou co ti reknou never jim.
> Stejne to bude jinak a vzhledem k tomu, ze topici se slamy chyta budou
> jiste chtit pred konecnym krachem jezte neco narejzovat zakze bych moc
> s moznosti upgrade radeji nepocital.
Ja bych to nevidel jako krach Borlandu, jako spis postupny konec
Delphi jako produktove rady. Delphi uz pro Win32 nic prevratne noveho
nenabizi. Moje doporuceni tedy zni: nove se ucit Delphi nema smysl,
je to ztrata casu a investic. Lepsi je treba zacit s C# nebo necim,
co ma pred sebou rozumnou budoucnost. A klidne je mozne koupit u
Borlandu treba C#Builder, kdyz se to nekomu bude libit.
S pozdravem
Zbysek Hlinka
Kupa Delphi7 personal, upgrade na professional
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 4.7.2003 12:01:39
----- Original Message -----
From: "Peter Sulek" <psulek(zv)seznam(tec)cz>
> Zdravim,
>
> Chcem sa spytat(asi cloveka od borlandu) ze ak si kupim Delphi7 personal,
ci
> je moznost nikedy v buducnu upgradnut na Delphi7 Professional. Pytam sa
> preto, lebo na shop.borland(tec)cz su same upgrady z verzie Delphi6
professional
> na Delphi7 professional, ale nic o tom ci sa predava upgrade rovnakej
verzie
> delphi ale iny typ.
Ahoj.
Moje zkusenost :
Koupe D4 standard (1998-99 ?) na vyzkouseni zda z Delphi vubec zacit.
Tenkrat mi pri koupi na primy dotaz Borland CZ sdelil ze produkty rady
standard lze bezne upgradovat na nove verze Profi. (V te dobe napriklad
upgrade z D3S na D4P)
Pri uvedeni D5 jsem chtel upgrade D4S na D5P a nebylo to mozne (Muj duvod
byl predevsim , ten ze upgrdem z D4S na D5S bych prisel o podporu databazi).
Takze mi nezbylo nez koupit D5P za plnou cenu.
Takze at ti reknou co ti reknou never jim. Stejne to bude jinak a vzhledem k
tomu, ze topici se slamy chyta budou jiste chtit pred konecnym krachem jezte
neco narejzovat zakze bych moc s moznosti upgrade radeji nepocital.
Ludek
Chyba Internal gds konsistency check
[*] Jaroslav Vorlicek <vorlicek(zv)ders(tec)cz> - 4.7.2003 12:05:40
Zdravim vespolek,
Bohuzel se nepodarilo :( i kdyz byl to byl jediny index na tabulce..
Velikost stranky mam nastavenou na 8k. Nasledne selhala vsechna pripojeni k
databazi :(.
Tohle je vypis z logu .... (* nahrazuje udaje, ktere bych nerad zverejnil)***** (Server) Fri Jul 04 11:55:26 2003
Database: ******
internal gds software consistency check (index key too big (174))
Otazka zustava nezmenena, netusite nekdo co s tim ?
Jaroslav Vorlicek
Jeste jednou ikona z BPL
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.7.2003 12:09:40
From: "Martin Burle" <mburle2(zv)volny(tec)cz>
> res:=TResourceStream.CreateFromID(FModuleInstance,1,RT_ICON); //1 jsem
> vycetl v hackeru jako "ordinal name"
>
> coz ikonu nacte, ale nejakou obecnou (kterou rhackerem v balicku nevidim).
> Urcite neco delam uplne spatne - privitam nakopnuti spravnym smerem...
Ikony jsou ulozeny ve dvou typech resource. V jednom je pouze tabulka indexu
do toho druheho. Nejznaszi mas pouzit API funkci LoadIcon, kde vracene handle
priradis do TIcon.Handle.
Petr Vones
SQL Reference na Firebird?
[*] Jaroslav Vorlicek <vorlicek(zv)ders(tec)cz> - 4.7.2003 11:53:39
Varianta 3 ,
kup si knizku o IB/FB, kterou napsal Pavel Cisar. Je to vazne moc zajimave
cteni.
Jak tak zbezne koukam na konec, tak je tam SQL reference v cestine :o)
Jaroslav Vorlicek
SQL Reference na Firebird?
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 4.7.2003 11:31:37
Levna varianta: stahnout si dokumentaci k IB6.0
draha varianta: Koupit si CD od IBPhoenix, dokumentace primo k FB (plus hromada veci navic).
Slavek
> -----Puvodni zprava-----
> Od: Peter Sulek [SMTP:psulek(zv)seznam(tec)cz]
> Odeslano: 4. cervence 2003 10:44
> Komu: delphi-l(zv)clexpert(tec)cz
> Predmet: SQL Reference na Firebird?
>
> Chcem sa spytat kde by som mohol zohnat SQL Reference na Firebird? Je mi v
> podstate jedno v akom formate ci PDF, HTML, ... ?
>
>
>
Kylix Professional, Firebird
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 4.7.2003 10:43:31
Haj hou!
On 3 Jul 2003 at 20:38, Zdenek Telicka wrote:
> Jak to funguje, kdyz pouziji lokalni Firebird misto Interbase?
Melo by to fungovat bez problemu. Da se stahnout IBX pro Kylix z CodeCentral
na Borlandu. Doporucuji ale pouzit UIB (Unified Interbase):
http://www.progdigy.com/UIB/
These components were born from the need to use Interbase, FireBird or Yaffil
indifferently as fast as possible in a Multithreading environment, a Server for
example.
UIB include a Borland Compliant conversion API for Interbase, FireBird and
YAFFIL.
UIB Include a Client Server ORB (Object Request Broquer) working with Indy.
UIB include 5 components at this time:
*TJvUIBDatabase.
*TJvUIBTransaction.
*TJvUIBQuery.
*TJvUIBBackup.
*TJvUIBRestore.
These components are "Thread-Safe" with any version of Interbase, FireBird
and Yaffil and are working with Delphi, BCB, Kylix.
> A pak mam jeste jednu otazku, zda-li mate nekdo zkusenosti v Kylixu
> prof. se ZEOS komponentami? A nejlepe s pouzitim Firebirdu?
> Predpokladam, ze tam se jiz muzu pripojit i ke vzdalenemu serveru?
> Licence je u nich myslim LGPL, znamena to, ze to muzu volne pouzit v
> komernich aplikacich - mysleno i tak, ze to je treba i zdarma, ale bez
> zdrojaku.
Se ZEOS primou zkusenost nemam, ale melo by to rovnez fungovat.
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
SQL Reference na Firebird?
[*] Peter Sulek <psulek(zv)seznam(tec)cz> - 4.7.2003 10:43:30
Chcem sa spytat kde by som mohol zohnat SQL Reference na Firebird? Je mi v
podstate jedno v akom formate ci PDF, HTML, ... ?
carkovana cara ze dvou barev odlisnych od pozadi
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 4.7.2003 10:43:31
Ahoj,
chtel bych namalovat carkovanou caru, ale tak, aby se stridaly dve
barvy odlisne od
puvodni barvy canvasu. muze mi nekdo poradit, jestli to jde nejak pres
styl cary, nebo
to musim osetrit rucne (pakarna, radsi se na to...). konkretne bych
chtel nakreslit
zluto-cernou na puvodne bile platno a dofam, ze kdyz nakreslim dve pod
sebou, bude
stridani identicke (nebude u druhe posunute vuci te prvni), takze
dosahnu sirky 2px.
zkusim ruzne manipulovat brushem a inkem, ale nejak se necapu.
dekuji
peca
Kupa Delphi7 personal, upgrade na professional
[*] Peter Sulek <psulek(zv)seznam(tec)cz> - 4.7.2003 10:43:31
Zdravim,
Chcem sa spytat(asi cloveka od borlandu) ze ak si kupim Delphi7 personal, ci
je moznost nikedy v buducnu upgradnut na Delphi7 Professional. Pytam sa
preto, lebo na shop.borland(tec)cz su same upgrady z verzie Delphi6 professional
na Delphi7 professional, ale nic o tom ci sa predava upgrade rovnakej verzie
delphi ale iny typ.
Minimalizace aplikace
[*] Petr Bartos <p.bartos(zv)softdec(tec)cz> - 4.7.2003 10:43:31
Ahoj.
Rad bych vedel, jak minimalizovat aplikaci pote, co minimalizuji modalni okno. Predtavoval bych si tak, ze po minimalizaci okna se mi zminimalizuje aplikace a po jejim obnoveni se obnovi i modalni okno ve sve puvodni velikosti (Restore).
Diky Petr
Chyba Internal gds konsistency check
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 4.7.2003 11:25:37
Haj hou!
On 4 Jul 2003 at 11:09, Jaroslav Vorlicek wrote:
> Domena pole je Varchar (50) charset WIN1520 collate PXW_CSY
>
> Na takovato pole pouzivame indexy bezne. Jde to az do delky 80. Bohuzel
> toto je jeden konkretni pripad o kterem vim, kdy to nefunguje. Tato
> chyba byla navozena jak na IB6, tak na FB 1.0.3.972 i FB 1.5 RC3
> SuperServer Bohuzel index na toto pole bych docela potreboval.
Divne. jeste me napada, zda neni na tabulku moc indexu. podari se tenhle index
vytvorit, pokud je to jediny index na tabulce ? Pokud ano, chce to zvetsit velikost
stranky nez je nyni.
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
rxTrayIcon
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 4.7.2003 11:17:36
> pochopil jste mne dobre, ale Form nema events OnMinimize.
>
> Mam D3 / W98, nevim jak ve vyssich verzich D..., ale D3 to nema..
Napis si message handler na WM_SYSCOMMAND s parametrom SC_MINIMIZE.
HTH
TOndrej
Chyba Internal gds konsistency check
[*] Jaroslav Vorlicek <vorlicek(zv)ders(tec)cz> - 4.7.2003 11:09:35
Zdravim vespolek
jeste upresnim,
Domena pole je Varchar (50) charset WIN1520 collate PXW_CSY
Na takovato pole pouzivame indexy bezne. Jde to az do delky 80.
Bohuzel toto je jeden konkretni pripad o kterem vim, kdy to nefunguje.
Tato chyba byla navozena jak na IB6, tak na FB 1.0.3.972 i FB 1.5 RC3
SuperServer
Bohuzel index na toto pole bych docela potreboval.
Co s tim ?
Diky
Jaroslav Vorlicek
carkovana cara ze dvou barev odlisnych od pozadi
[*] campulka <campulka(zv)czas(tec)cz> - 4.7.2003 10:59:34
Udelas si nejdriv plnou caru jednou barvou a pres carkovanou caru druhou
barvou :)
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz
> chtel bych namalovat carkovanou caru, ale tak, aby se stridaly dve
> barvy odlisne od
> puvodni barvy canvasu. muze mi nekdo poradit, jestli to jde nejak pres
> styl cary, nebo
Quickreport : defaultniXchteny podavac
[*] Michal Kolisek <michal.kolisek(zv)asei(tec)cz> - 4.7.2003 10:27:29
Dibry den,
nemohu najit, jestli uz jsme podobny pripad nekde resili, ale mam
nasledujici problem :
tisknu na tiskarnu pres QuickReport, a misto, aby si tiskarna brala podavac,
ktery ma nastaveny ve Windows, bere si standardne nejaky svuj defaultni
podavac (jedna se o nekterou ze serie chytrych LaserJetu). Potreboval bych
tiskarnu donutit, aby si brala podavac, ktery je u ni nastaven ve Windows.
Da se to nejakym zpusobem do Quickreportu nastavit ?
Hezky den
M.Kolisek, D7 Prof., W2K
volanie klienta zo servera
[*] delphi(zv)minv.sk - 4.7.2003 10:27:29
ahoj,
mam TSocketConnection a rad by som z aplikacneho servera odpojil klienta.
Problem je v tom, ze klient sa o tom nedozvie, pokial neskusi urobit nejaky
sql
dotaz, na ktorom havaruje. Neviete ako by som dal klientovi zo servera
vediet
ze je down?
thnx
Werki
Chyba Internal gds konsistency check
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 4.7.2003 10:27:29
haj hou!
On 3 Jul 2003 at 18:06, Jaroslav Vorlicek wrote:
> snazim se vytvorit index na poli varchar 50 a hlasi mi to tuto chybu:
> internal gds software consistency check (index key too big (174))
> V tabulce je 200 zaznamu.
> IB6,W2K, D5
>
> Nevite co s tim ?
Jenom jedno pole varchar(50) ? V tom pripade je definovane jako
UNICODE_FSS, nebo ne ? Kazdopadne bude nutne definovat mensi pole, nebo
zvolit jiny charset (ktery nepouziva 3 byte na znak), nebo se obejit bez indexu.
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
rxTrayIcon
[*] Vit Tichy <vitek(zv)softok(tec)cz> - 4.7.2003 08:07:20
Joha Simek,
S> pochopil jste mne dobre, ale Form nema events OnMinimize.
Tak chytej WM_SIZE.
--
vt
Zmena meritka tisku
[*] Zdenek Brejsa <prog(zv)hjsoft(tec)cz> - 4.7.2003 07:15:17
Ahoj,
jsem tu opet s dotazem: snazim se zmensit tisk. Inspiroval jsem se prikladem
z 1001TT, ale nejak to nic nedela :-(
procedure TformNahled.ZmenitMeritkoTisku(const Procento: Byte);
var
//oInfo: TPrinterInfo5;
pDevice, pDriver, pPort: PChar;
hDevMod1, hDevMod2: THandle;
pDevMod1, pDevMod2: PDeviceMode;
begin
//oInfo := TPrinterInfo5(Printer.Printers.Objects[Printer.PrinterIndex]);
pDriver := StrAlloc(256);
pDevice := StrAlloc(256);
pPort := StrAlloc(256);
try
Printer.GetPrinter(pDevice, pDriver, pPort, hDevMod1);
if hDevMod1 = 0 then
begin
Printer.PrinterIndex := Printer.PrinterIndex;
Printer.GetPrinter(pDevice, pDriver, pPort, hDevMod1);
end;
if hDevMod1 <> 0 then
begin
pDevMod1 := GlobalLock(hDevMod1);
hDevMod2 := GlobalAlloc(GHND, SizeOf(TDevMode));
pDevMod2 := GlobalLock(hDevMod2);
try
CopyMemory(pDevMod2, pDevMod1, SizeOf(TDevMode));
with pDevMod2^ do
begin
dmFields := dmFields or DM_SCALE;
dmScale := Procento;
end;
finally
GlobalUnlock(hDevMod2);
GlobalUnlock(hDevMod1);
end;
Printer.SetPrinter(pDevice, pDriver, pPort, hDevMod2);
end;
finally
StrDispose(pPort);
StrDispose(pDevice);
StrDispose(pDriver);
end;
end;
co je spatne? (delam to na D4)
Zdenek Brejsa
rxTrayIcon
[*] Simek Pavel - KVS <p.simek(zv)icsvscr(tec)cz> - 4.7.2003 07:05:16
pochopil jste mne dobre, ale Form nema events OnMinimize.
Mam D3 / W98, nevim jak ve vyssich verzich D..., ale D3 to nema..
Kejchal
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Zdenek Telicka
Sent: Thursday, July 03, 2003 8:13 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: rxTrayIcon
Jestli sem Vas dobre pochopil, tak staci ty dve fce hodit do "OnMinimize"...
Simek Pavel - KVS wrote:
>Opet preji DD vsem,
>
>svou aplikaci chci uschovat za behu do Tray - listy. Umim to pres
tlacitko -
>
> ShowWindow(application.handle,sw_minimize);
> ShowWindow(application.handle,sw_hide);
>
>Ale jak to donutit, aby pri minimalizaci Formu (minimalize, maxim.,close)
>udelalo totez?
>
>Kejchal
>
>
>
>
---
Prichozi zprava neobsahuje viry.
Zkontrolovano antivirovym systemem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.496 / Virova baze: 295 - datum vydani: 3.7.2003
Kylix Professional, Firebird
[*] Zdenek Telicka <telda(zv)raz-dva(tec)cz> - 3.7.2003 20:38:37
Hezky den,
Chtel bych si poridit Kylix prof. a rad bych vedel, jak je na tom z
hlediska databazi. Na borland(tec)cz sem cetl, ze to umi pracovat jen s
lokalnimi MySQL, PostgreSQL, Inrebase. To nemam sanci se pripojit s
dodavanymi komponentami ke vdalenemu SQL serveru? Vim ale, ze za ty
penize asi nemuzu chtit hory doly. Jak to funguje, kdyz pouziji lokalni
Firebird misto Interbase?
A pak mam jeste jednu otazku, zda-li mate nekdo zkusenosti v Kylixu
prof. se ZEOS komponentami? A nejlepe s pouzitim Firebirdu?
Predpokladam, ze tam se jiz muzu pripojit i ke vzdalenemu serveru?
Licence je u nich myslim LGPL, znamena to, ze to muzu volne pouzit v
komernich aplikacich - mysleno i tak, ze to je treba i zdarma, ale bez
zdrojaku.
S Kylixem mam zkusenosti jen s OE. Zkousel jsem nainstalovat
ZEOS+VisualDataCLX, k databazi se pripojim, ale kdyz chci zobrazit
tabulku, tak mi to vyhodi zpravu SIGSEGV 11, nemate poneti co to
znamena? V konzoli mysql vse jede.
Uz si obednavam na zkousku trial verzi, ale ta je enterprise. Chybi v
prof. nejake komponenty od databazi oproti enterprise?
Dekuji za informace,
s pozdravem
Zdenek Telicka
Preneseni prvku z okna do okna
[*] Zdenek Telicka <telda(zv)raz-dva(tec)cz> - 3.7.2003 20:12:35
Hezky den,
podle mych drobnych znalosti to pujde jedine tehdy, pokud tu komponentu
vytvorite za behu programu (nebude placnuta na formular) a jeste k tomu
nesmi byt deklarovana v ramci tridy toho formulare, ale nekde mimo,
treba zvlast v nejake unite. Jestli nestaci tohle nakopnuti, tak se
ozvete a neco natukame.
S pozdravem
Zdenek Telicka
rxTrayIcon
[*] Zdenek Telicka <telda(zv)raz-dva(tec)cz> - 3.7.2003 20:12:35
Jestli sem Vas dobre pochopil, tak staci ty dve fce hodit do "OnMinimize"...
Simek Pavel - KVS wrote:
>Opet preji DD vsem,
>
>svou aplikaci chci uschovat za behu do Tray - listy. Umim to pres tlacitko -
>
> ShowWindow(application.handle,sw_minimize);
> ShowWindow(application.handle,sw_hide);
>
>Ale jak to donutit, aby pri minimalizaci Formu (minimalize, maxim.,close)
>udelalo totez?
>
>Kejchal
>
>
>
>
zpomaleni pocitace
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 3.7.2003 20:08:35
Pouzivam CPUKiller. Funguje spolahlivo. Mozem poslat mailom.
Peter Ondras - www.ondras.sk
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: neznate nejaky dobry programek, ktery degraduje muj pocitac (1GHz) na
>: treba
>: obycejne pentium 200MHz?
Chyba Internal gds konsistency check
[*] Jaroslav Vorlicek <vorlicek(zv)ders(tec)cz> - 3.7.2003 18:06:27
Zdravim vespolek,
snazim se vytvorit index na poli varchar 50 a hlasi mi to tuto chybu:
internal gds software consistency check (index key too big (174))
V tabulce je 200 zaznamu.
IB6,W2K, D5
Nevite co s tim ?
Diik
Jaroslav Vorlicek
zpomaleni pocitace
[*] Koteles Jan <koteles(zv)lumen.sk> - 3.7.2003 16:08:20
> neznate nejaky dobry programek, ktery degraduje muj pocitac
> (1GHz) na treba obycejne pentium 200MHz?
Nedavno (asi 1 max 2 tyzdne) take daco popisovali spolu s linkou na download
na www.zive(tec)cz resp. www.zive.sk...
No dobre, tak som si dal tu robotu a nasiel to:
http://www.zive.sk/H/TestCentrum/Ar.asp?ARI=106195&CAI=2176
zpomaleni pocitace
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 3.7.2003 15:52:18
Pavel Tresnak <delphi(zv)haida(tec)cz> wrote:
> neznate nejaky dobry programek, ktery degraduje muj pocitac (1GHz) na
> treba obycejne pentium 200MHz?
Myslim ze MS ma v SDK cosi so jmenuje System Stress nebo
tak nejak podobne, parametricky to zere zdroje (pamet, CPU...)
Nevim jestli je to primo soucasti SDK nebo ne, kazdopadne
v MSDL Universal to je.
zpomaleni pocitace
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 3.7.2003 15:48:18
Puvodni zprava ze dne 3.7.2003:
> neznate nejaky dobry programek, ktery degraduje muj pocitac (1GHz) na treba
> obycejne pentium 200MHz?
Staci vypnout interni cache procesoru a mas u toho XT-cko :-)
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
web: http://www.clexpert(tec)cz, e-mail: clexpert(zv)clexpert(tec)cz
==========================================================
zpomaleni pocitace
[*] Pavel Kubal <kubal.p(zv)seznam(tec)cz> - 3.7.2003 15:42:18
Hello Pavel,
Thursday, July 3, 2003, 1:56:14 PM, you wrote:
PT> Ahoj,
PT> neznate nejaky dobry programek, ktery degraduje muj pocitac (1GHz) na treba
PT> obycejne pentium 200MHz?
PT> Dik
PT> Pavel Tresnak
PT> mailto:pavel.tresnak(zv)haida(tec)cz
Myslim, ze existoval takovy programek jmenem CPUKiller...
--
S pozdravem
Pavel Kubal mailto:kubal.p(zv)seznam(tec)cz
zpomaleni pocitace
[*] Milan Fabik - KINEKUS <fabik(zv)kinekus.sk> - 3.7.2003 15:30:17
Nainstaluj si nejaky virus, co to "dokaze" -))
> Ahoj,
>
> neznate nejaky dobry programek, ktery degraduje muj pocitac (1GHz) na
treba
> obycejne pentium 200MHz?
>
> Dik
> Pavel Tresnak
> mailto:pavel.tresnak(zv)haida(tec)cz
>
>
>
zpomaleni pocitace
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 3.7.2003 15:20:16
Nekdy jde vypnout cache v BIOSU, to ma opravdu radiklani efekt (degradoval jsem tak v dosu P120 na 286).
Slavek
> Ahoj,
>
> neznate nejaky dobry programek, ktery degraduje muj pocitac (1GHz) na treba
> obycejne pentium 200MHz?
>
> Dik
> Pavel Tresnak
> mailto:pavel.tresnak(zv)haida(tec)cz
>
>
>
>
ISAPI a knihovna v pouziti
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 3.7.2003 14:42:13
> ahoj takova drobnost,mam IIS a ladim ISAPI dllko a mam
> problem s tim ze vzdy kdyz ho pustim v IE 6 tak mi
> knihovna zustane nactena a ja uz ji nemuzu
> prekompilovat, jak to resite?Vzdy odstrelim dllhost.exe
> ale to asi nebude koscher;-) jak mi zidee rikame;-)
Ja pouzivam iisreset.exe (IIS 5).
Dalsia moznost je:
net stop iisadmin /y
net start iisadmin
net start w3svc
Pokial viem, funguje to rovnako.
HTH
TOndrej
OT: zpomaleni pocitace
[*] Pavel Tresnak <delphi(zv)haida(tec)cz> - 3.7.2003 14:56:14
Ahoj,
neznate nejaky dobry programek, ktery degraduje muj pocitac (1GHz) na treba
obycejne pentium 200MHz?
Dik
Pavel Tresnak
mailto:pavel.tresnak(zv)haida(tec)cz
ISAPI a knihovna v pouziti
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 3.7.2003 14:26:12
From: "Ales Pavel" <aldik(zv)quick(tec)cz>
> Jo ale ikdyz ho stopnu tak je to stejny mrzak dll tam furt je....a
nejde
> kompilovat...
Musis zastavit/restartovat World Wide Web Publishing Service (na ceskych
woknech Sluzba publikovani ve WWW). Oboje v sekci Services resp. Sluzby.
Alespon na W2K to funguje.
HTH, pf
ISAPI a knihovna v pouziti
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 3.7.2003 14:18:11
From: "Ales Pavel" <aldik(zv)quick(tec)cz>
> ahoj takova drobnost,mam IIS a ladim ISAPI dllko a mam problem s tim ze vzdy
> kdyz ho pustim v IE 6 tak mi knihovna zustane nactena a ja uz ji nemuzu
> prekompilovat, jak to resite?Vzdy odstrelim dllhost.exe ale to asi nebude
> koscher;-) jak mi zidee rikame;-)
Tohle nefunguje ? http://bdn.borland.com/article/0,1410,23024,00.html
Petr Vones
ISAPI a knihovna v pouziti
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 3.7.2003 14:10:11
Ospravedlnujem sa za prvy mail. ISAPI DLL ostava vzdy v pamati a neda sa
nijako odtial zrusit len zlikvidovanim procesu. V case vyvoja je lepsie
pouzivat CGI standalone executable. To sa da prekompilovat aj za staleho
behu IIS alebo Apacha. Potom ked je projekt dokonceny, tak staci zmenit
DPR subor projektu na ISAPI DLL.
Peter Ondras - www.ondras.sk
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: Jo ale ikdyz ho stopnu tak je to stejny mrzak dll tam furt je....a
nejde
>: kompilovat...
>: Nevite nekdo proc tomu tak je...mam XPcka
rxTrayIcon
[*] Simek Pavel - KVS <p.simek(zv)icsvscr(tec)cz> - 3.7.2003 13:48:09
Opet preji DD vsem,
svou aplikaci chci uschovat za behu do Tray - listy. Umim to pres tlacitko -
ShowWindow(application.handle,sw_minimize);
ShowWindow(application.handle,sw_hide);
Ale jak to donutit, aby pri minimalizaci Formu (minimalize, maxim.,close)
udelalo totez?
Kejchal
ISAPI a knihovna v pouziti
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 3.7.2003 13:40:09
>Peter Ondras:
> Ja to neladim priamo z Delphi. Ked uz ti ale ostava nacitana v pamati,
> tak ak pouzivas IIS, tak staci stopnut server, prekompilovat a potom
> znovu startnut server.
>
Jo ale ikdyz ho stopnu tak je to stejny mrzak dll tam furt je....a nejde
kompilovat...
Nevite nekdo proc tomu tak je...mam XPcka
Aldik
Jak zjistit do jake miry je string stejny
[*] Petr Langer <langer(zv)xdom(tec)cz> - 3.7.2003 13:24:07
Mozna by ti pomohlo kuknout se na komponentu TDiff:
http://www.users.on.net/johnson/delphi/
ktera resi neco podobneho ale v mnohem vetsim rozsahu (rozdily v textovych
souborech).
HTH,
Petr Langer
----- Original Message -----
From: "KinDRik" <kindrik(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Thursday, July 03, 2003 10:45 AM
Subject: Jak zjistit do jake miry je string stejny
> Zdravim konference ,
> chtelbych polozit otazku na kterou bohuzel ja neznam odpoved
> a to jest "Jak zjistit do jake miry je string stejny"
> napr>
> c:\123\podDir\321\Xvv
> c:\123\podDir\XYZ\pvv
> jsou rozdilne string-y ale jak ja zjistim od ktere pozice se lisi.
ISAPI a knihovna v pouziti
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 3.7.2003 13:08:06
Ja to neladim priamo z Delphi. Ked uz ti ale ostava nacitana v pamati,
tak ak pouzivas IIS, tak staci stopnut server, prekompilovat a potom
znovu startnut server.
Peter Ondras - www.ondras.sk
peter.ondras(zv)pse.sk
(+421) 0904 421 925
>: ahoj takova drobnost,mam IIS a ladim ISAPI dllko a mam problem s tim
ze
>: vzdy
>: kdyz ho pustim v IE 6 tak mi knihovna zustane nactena a ja uz ji
nemuzu
>: prekompilovat, jak to resite?Vzdy odstrelim dllhost.exe ale to asi
nebude
>: koscher;-) jak mi zidee rikame;-)
Vytvoreni Databaze II
[*] dalibor <dalibor(zv)torola(tec)cz> - 3.7.2003 12:46:04
Muzete mi nekdo prosim poslat kus kodu v Delphi 5, kterej mi 100% vytvori
databazi ze skriptu pro Firebird..Diky
jak na del ?ee Delete
[*] KinDRik <kindrik(zv)centrum(tec)cz> - 3.7.2003 12:34:03
>Zrejme jsi si to spletl s popisem klavesy DEL.
>V Delphi je v unite System procedura Delete,
>ktera by asi mohla vyhovovat tvym pozadavkum.
oooo ano presne tak dekuji mnohokrat
jak na del ?
[*] jancarik(zv)hame(tec)cz <jancarik(zv)hame(tec)cz> - 3.7.2003 12:36:04
KinDRik wrote:
>Omluovam se za primitivni otazku
>ale prosim vas jake parametry ma f-ce "del" ?
>vim ze to je neco jako del(sting,).... ale co dal to uz nejak netusim
>diky za radu
>
Zrejme jsi mel na mysli toto. Procedura je v unite System.
procedure Delete(var S: string; Index, Count:Integer);
Description
In Delphi code, Delete removes a substring of Count characters from
string S starting with S[Index]. S is a string-type variable. Index and
Count are integer-type expressions.
If index is larger than the length of the string or less than 1, no
characters are deleted.
If count specifies more characters than remain starting at the index,
Delete removes the rest of the string. If count is less than or equal to
0, no characters are deleted.
SJ
Jak zjistit jestli adresar obsahuje podaresar ??
[*] jancarik(zv)hame(tec)cz <jancarik(zv)hame(tec)cz> - 3.7.2003 13:00:06
KinDRik wrote:
>Opet jsem tu a opet z otazkou a jako vzdy stupidni.
>Jak zjistit jestli adresar obsahuje podaresar ??
>
>Predem diky za jakoukoliv radu
>Jiri Betunak
>
Pokud to jenom potrebujes zjistit, tak staci pokud tato funkce bude mit
v Attr faDirectory a vrati 0.
Kdyby jsi chtel vsechny, tak musis pote pouzit FindNext dokud ti bude
vracet 0.
function FindFirst(const Path: string; Attr: Integer; var F:
TSearchRec): Integer;
function FindNext(var F: TSearchRec): Integer;
SJ
Synapse FTPSend - neukoncena spojeni
[*] jimys1(zv)centrum(tec)cz - 3.7.2003 12:30:03
Opravdu to nebude nejspis nasimi aplikacemi... a tim ani Synapsi...
Myslime si, ze jsme nasli chybu u nejakeho procesu firmy Compaq,
ktera ucpava porty...
Diky
Jirka
______________________________________________________________
> Od: jimys1(zv)centrum(tec)cz
> Komu: delphi-l(zv)clexpert(tec)cz
> CC:
> Datum: Thu, 3 Jul 2003 10:55:53 +0200
> Predmet: Synapse FTPSend - neukoncena spojeni
>
> Ahoj,
>
> pouzivame komponentu Synapse TFPSend. Stahujeme nejake soubory z
ftp.
>
> Jednou udelame Login, stahneme si seznam souboru na ftp (funkce
List)
>
> a dame ho do nejakeho stringlistu a provedeme logout.
>
> V dalsim kroku jen vyuzijeme funkci RetrieveFile pro stazeni vsech
> vylistovanych souboru.
>
> Ovsem nejak se nam zahlcuji spojeni ci porty, moc se v tom
> nevyzname... Po vypisu prikazem netstat se zobrazi spousta
> neukoncenych spojeni...
>
> Provadime neco spatne? Je potreba delat krom Logout jeste neco
> jineho?
>
> Nebo to muze byt chyba Windows? Nekde jsme cetli o podobnych
> problemech, ktere zpusoboval Compaq Monitoring...
>
> Diky
>
> Jirka
>
> Delphi 5.0, Windows 2000 Server
>
>
jak na del ?
[*] jancarik(zv)hame(tec)cz <jancarik(zv)hame(tec)cz> - 3.7.2003 12:28:02
KinDRik wrote:
>Omluovam se za primitivni otazku
>ale prosim vas jake parametry ma f-ce "del" ?
>vim ze to je neco jako del(sting,).... ale co dal to uz nejak netusim
>diky za radu
>
>
>
Zrejme jsi si to spletl s popisem klavesy DEL.
V Delphi je v unite System procedura Delete,
ktera by asi mohla vyhovovat tvym pozadavkum.
procedure Delete(var S: string; Index, Count:Integer);
Description
In Delphi code, Delete removes a substring of Count characters from
string S starting with S[Index]. S is a string-type variable. Index and
Count are integer-type expressions.
If index is larger than the length of the string or less than 1, no
characters are deleted.
If count specifies more characters than remain starting at the index,
Delete removes the rest of the string. If count is less than or equal to
0, no characters are deleted.
jak na del ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 3.7.2003 12:22:02
From: "KinDRik" <kindrik(zv)centrum(tec)cz>
> No ja se ptal protoze sem ji v helpu delphi5 taky nenasel ale
> prisahal bych ze nekde byla ....ale kde ???? ....to nevim a proto se
> ptam znova .Nevi te nekdo jake parametry ma f-ce "Del"
Zadna funkce Del ve standardnich funkcich Delphi neni. Spis hledej podle toho
co to ma delat.
Petr Vones
jak na del ?
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 3.7.2003 12:08:01
funkci "del" jsem v delphi 6 pro nenasel.
zkus svuj help, nebo napovedu v kodu (ctrl+shift+mezera)
peca
IB/FB - OIT (P. Cisar)
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 3.7.2003 12:10:01
Haj hou!
On 3 Jul 2003 at 10:33, Jaroslav Popluhar wrote:
> Stale mi vsak nie je jasne, co presne je OIT a kedy sa aktualizuje jeho
> hodnota,
Nejstarsi "zajimava" transakce je nejstarsi necommitovana transakce (tedy
aktivni, limbo, nebo rolled back). Protoze databaze muze obsahovat verze radku
teto transakce, je traba ji zachovat v tabulce stavu, aby se ty verze spravne
vyhodnotily. Pokud databaze takove verze neobsahuje (po sweepu), lze takove
transakce prepnout do stavu committed (zcela bezpecne).
> prip. kedy sa realokuje tabulka aktivnych transakcii.
V jakem smyslu realokuje ? Pri kazdem startu transakce se vyhodnocuje OIT a
OAT, a vytvari se nova tabulka pro startujici transakci. Zaroven se stava
"globalni", protoze je v cache.
S pozdravem
Pavel Cisar
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
jak na del ?
[*] KinDRik <kindrik(zv)centrum(tec)cz> - 3.7.2003 12:18:02
>funkci "del" jsem v delphi 6 pro nenasel.
>zkus svuj help, nebo napovedu v kodu (ctrl+shift+mezera)
No ja se ptal protoze sem ji v helpu delphi5 taky nenasel ale
prisahal bych ze nekde byla ....ale kde ???? ....to nevim a proto se
ptam znova .Nevi te nekdo jake parametry ma f-ce "Del"
Diky
Jiri Betunak
Synapse FTPSend - neukoncena spojeni
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 3.7.2003 11:47:59
> Ovsem nejak se nam zahlcuji spojeni ci porty, moc se v tom
> nevyzname... Po vypisu prikazem netstat se zobrazi spousta
> neukoncenych spojeni...
> Provadime neco spatne? Je potreba delat krom Logout jeste neco
> jineho?
opravdu zustavaji neukoncene, nebo jsou ve stavu 'TIME_WAIT'?
TFTPSend pochopitelne socket zavira a uvolnuje. Ovsem nekdy mohou
zustat tyto sockety ve stavu TIME_WAIT, coz je zalezitost operacniho
systemu. (Ne jen Windows, je to obecna zalezitost!) A system take po
nejakem case tyto sockety zcela uvolni.
Co je to TIME_WAIT?
TIME_WAIT
The socket is waiting after close for remote shutdown
retransmission.
Lidsky receno: My jsme sice spojeni ukoncili, ale nevime, jestli jej
ukoncila i druha strana spojeni! Proto cekame, jestli nam druha
strana na toto spojeni nahodou jeste neco neposle. Kdybychom
necekali, mohl by tento socket hnedka nekdo znovu pouzit, a to by pak
mohlo zpusobit zmatky, kdyby se nam sem zcaly motat zbytky
predchoziho spojeni.
Cele to muze byt zapricinene tim, ze druha strana spojeni (FTP
server) nedela uplne dobre ukoncovani spojeni.
Nebo mas prilis starou Synapsi, kde jsem za nekterych okolnosti obcas
spatne ukoncoval spojeni pro zmenu ja. (posledni Release by mel byt
ale z tohoto hlediska v poradku).
Kazdopadne stav TIME_WAIT by ti nemel v praxi zpusobovat nejake
obtize.
Jak zjistit jestli adresar obsahuje podaresar ??
[*] KinDRik <kindrik(zv)centrum(tec)cz> - 3.7.2003 11:47:59
Opet jsem tu a opet z otazkou a jako vzdy stupidni.
Jak zjistit jestli adresar obsahuje podaresar ??
Predem diky za jakoukoliv radu
Jiri Betunak
jak na del ?
[*] KinDRik <kindrik(zv)centrum(tec)cz> - 3.7.2003 11:39:58
Omluovam se za primitivni otazku
ale prosim vas jake parametry ma f-ce "del" ?
vim ze to je neco jako del(sting,).... ale co dal to uz nejak netusim
diky za radu
Minimalizace aplikace po startu do traye
[*] Ondrej Kelle <o.kelle(zv)digitalpublishing.de> - 3.7.2003 11:41:58
> pouzivam komponentu TTrayIconSinea. Chtel bych hned po startu aplikaci
> minimalizovat do traye (bez probliknuti).
> Dik za nakopnuti.
TTrayIconSinea nepoznam. Tato vec sa da riesit aj tak, ze si nevytvoris
ziadny auto-create formular, v runtime akurat vytvoris tu taskbar icon a
slucku s HandleMessage si das priamo do .dpr. Formular sa da vytvorit podla
potreby, ked si uzivatel zvolil nejake menu.
HTH
TOndrej
kalendar nebo planovaci aplikace
[*] Jaromir Solar <solar(zv)magion(tec)cz> - 3.7.2003 11:58:00
> nemate nekdo nejakou dobrou komponentu nebo aplikaci ktery umela
> planovaci kalendar alespon trochu ve stylu MS Otlook ? ne
TurboPower Visual PlanIt
http://sourceforge.net/projects/tpvplanit/
S pozdravem
Ing. Jaromir Solar (jaromir.solar(zv)magion(tec)cz)
Jeste jednou ikona z BPL
[*] Martin Burle <mburle2(zv)volny(tec)cz> - 3.7.2003 11:07:54
Ahoj, muj puvodni dotaz nejak zapadl v obvykle flame, ktera se tu strhne
vzdy jak nekdo zmini
Borland, registrace a ochranu sw ;-), tak si dovolim ho jeste jednou
zopakovat:
---------------------
v aplikaci s dynamickymi balicky pomoci balicekR.RC a brcc32 vytvorim
resource, ktery {$R balicekR.res}
vlozim do balicku, kde v RC je:
FrmAdresar ICON C:\Delphi\1\images\Adresar.ico
Pokud se podivam Resourcehackerem do hotoveho BPL, pak v nem najdu ikonu pod
kyzenym jmenem, ale v "Group Icon", dale pak pod nejakym ID (1) jeste ve
skupine "Icon".
Jdu na to pak takto nejak:
...
res:=TResourceStream.Create(FModuleInstance,'FRMADRESAR',RT_GROUP_ICON);
Ic.LoadFromStream(res);
FrmMain.Icon:=Ic;
...
res.size pak ale vrati velikost 20, tj zadna ikona se nenacte, je cerna,
zkousel jsem proto take
res:=TResourceStream.CreateFromID(FModuleInstance,1,RT_ICON); //1 jsem
vycetl v hackeru jako "ordinal name"
coz ikonu nacte, ale nejakou obecnou (kterou rhackerem v balicku nevidim).
Urcite neco delam uplne spatne - privitam nakopnuti spravnym smerem...
Diky vsem za pripadne rady!
Martin Burle
D6Pro,W2k
TPicture.LoadFromStream
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 3.7.2003 11:35:58
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> VCL umi registrovat nove graficke formaty,
> viz TPicture.RegisterFileFormat
Ano, to vim. Otazka zni, zda lze registraturu
formatu vyuzit jinak nez volani LoadFromFile,
obrazek mam totiz v databazi a jeho puvodni
priponu take. Jak jej ale nacist (ze streamu)
do TPicture tak, aby se automaticky vytvoril
prislusny TGraphic pomotek (jako to dela
metoda LoadFromFile) ?
Jak se dostat k seznamu zaregistrovanych
graficky formatu, nejlepe primo k metode:
TFileFormatsList.FindExt(Ext: string): TGraphicClass;
Diky
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
ISAPI a knihovna v pouziti
[*] Ales Pavel <aldik(zv)quick(tec)cz> - 3.7.2003 11:15:55
ahoj takova drobnost,mam IIS a ladim ISAPI dllko a mam problem s tim ze vzdy
kdyz ho pustim v IE 6 tak mi knihovna zustane nactena a ja uz ji nemuzu
prekompilovat, jak to resite?Vzdy odstrelim dllhost.exe ale to asi nebude
koscher;-) jak mi zidee rikame;-)
Diky za kazdou radu
Aldik
Preneseni prvku z okna do okna
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 3.7.2003 11:19:56
Ahoj,
ja to resim zmenou parenta toho prvku.
Vaclav Sazima
Ludek Finstrle wrote:
> par dni uz bojuji s tim, ze se snazim dostat jeden prvek z jednoho
> okna do druheho tak, abych mohl zdrojove okno uvolnit z pameti.
TTimer
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 3.7.2003 11:31:57
Simek Pavel - KVS <p.simek(zv)icsvscr(tec)cz> wrote:
> mam primitivni dotaz, v aplikaci mam Timer, ma udalost Timer1Timer,
> ktera se provede v nastavenem intervalu pokud je Enabled - True. Ale
> ja chci tuto udalost spustit mimo interval, ihned. Jak to provedu?
Obecne napr. takto:
if Assigned(Timer1.OnTimer) then
Timer1.OnTimer(Timer1);
nebo primo takto:
Timer1Timer(Timer1);
planovac
[*] Rostislav Lekes <rlekes(zv)atlas(tec)cz> - 3.7.2003 11:07:54
Zdravim,
nevite nekdo o komponente, ktera umi prehledne zadavat ukoly do casove osy
(v rozmezi hodin), potrebuju aby umela i nekolik ukolu do jednoho bodu
(hodiny) a aby slo nastavit interval v case, kam se muze zadavat. Neco jako
outlook, ale staci me to na jediny den.
Diky, Rosta, D6,D7,W2000SP3
Synapse FTPSend - neukoncena spojeni
[*] jimys1(zv)centrum(tec)cz - 3.7.2003 10:55:53
Ahoj,
pouzivame komponentu Synapse TFPSend. Stahujeme nejake soubory z ftp.
Jednou udelame Login, stahneme si seznam souboru na ftp (funkce List)
a dame ho do nejakeho stringlistu a provedeme logout.
V dalsim kroku jen vyuzijeme funkci RetrieveFile pro stazeni vsech
vylistovanych souboru.
Ovsem nejak se nam zahlcuji spojeni ci porty, moc se v tom
nevyzname... Po vypisu prikazem netstat se zobrazi spousta
neukoncenych spojeni...
Provadime neco spatne? Je potreba delat krom Logout jeste neco
jineho?
Nebo to muze byt chyba Windows? Nekde jsme cetli o podobnych
problemech, ktere zpusoboval Compaq Monitoring...
Diky
Jirka
Delphi 5.0, Windows 2000 Server
kalendar nebo planovaci aplikace
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 3.7.2003 11:07:54
Podivej se na http://tmssoftware.com/
Danik
> -----Original Message-----
> [mailto:delphi-l-owner(zv)clexpert(tec)cz]On Behalf Of Vymazal Milan
> planovaci kalendar alespon trochu ve stylu MS Otlook ? ne
> standardniho papiroveho planovace.
TTimer
[*] Vaclav Sazima <vaclav.sazima(zv)utilia(tec)cz> - 3.7.2003 11:21:56
Ahoj,
zavolej udalost Timer1Timer sam.
Vaclav Sazima
Simek Pavel - KVS wrote:
> mam primitivni dotaz, v aplikaci mam Timer, ma udalost Timer1Timer, ktera se
> provede v nastavenem intervalu pokud je Enabled - True. Ale ja chci tuto
> udalost spustit mimo interval, ihned. Jak to provedu?
TTimer
[*] Simek Pavel - KVS <p.simek(zv)icsvscr(tec)cz> - 3.7.2003 11:07:54
Zdravim,
mam primitivni dotaz, v aplikaci mam Timer, ma udalost Timer1Timer, ktera se
provede v nastavenem intervalu pokud je Enabled - True. Ale ja chci tuto
udalost spustit mimo interval, ihned. Jak to provedu?
Kejchal
Jak zjistit do jake miry je string stejny
[*] KinDRik <kindrik(zv)centrum(tec)cz> - 3.7.2003 11:13:55
Napdlo mne neco takoveho a tvari se to ze to chodi
function IsStrMatch(s1, s2: string): Integer;
var
i, iMin, iMax, iSameCount: Integer;
begin
iMax := Max(Length(s1), Length(s2));
iMin := Min(Length(s1), Length(s2));
iSameCount := -1;
for i := 0 to iMax do
begin
if i > iMin then break;
if s1[i] <> s2[i] then break;
if s1[i] = s2[i] then Inc(iSameCount)
end;
Result := iSameCount;
end;
Optimalizece SQL dotazu
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 3.7.2003 11:15:55
Zkus dat c.id=1a s.id=1 do where, pripadne
misto join pouzit left join a do where dat is not null.
Left join ho totiz donuti jit nejprve po tabulce d a k tomu terpve linkovat dalsi.
Dalsi moznosti je pouzit uloznou proceduru.
Ja jeste (pokud potrebuji z tabulky pouze jeden sloupec vyuzivam select expresion, tam optimalizator
nedela zadne triky, tam musi jit jako u jednoducheho dotazu.
SELECT id, (SELECT name FROM t2 WHERE t2.id=t1.id) FROM t1 WHERE ...
a jeden tip nakonec, pro prehlednost je dobre psat klicova slova VELKYMI pismeny,
lusti se to daleko lepe.
Slavek
> select d.interni_kod, d.pol_1, d.pol_2, c.pol_3, c.pol_4, s.pol_5,m.pol_6
> from tab_D d
> join tab_C c on (c.id=1 and (c.interni_kod=d.interni_kod))
> join tab_S s on (s.id=1 and (s.interni_kod=d.interni_kod))
> left outer join tab_M m on (m.id=1 and (m.interni_kod=d.interni_kod))
> where d.pol_1 between '000000' and '000099' and s.pol_x=0
> group by d.pol_1, d.pol_2, c.pol_3, c.pol_4, s.pol_5,m.pol_6
> order by d.pol_1
>
> generuje plan
>
> PLAN SORT (SORT (JOIN (JOIN (S INDEX (RDB$PRIMARY35,RDB$FOREIGN457),C INDEX
> (RDB$PRIMARY11),D INDEX (RDB$PRIMARY16,IDX_DATABAZE_POL_1)),M INDEX
> (RDB$PRIMARY146))))
>
> coz v dusledku predtavuje u tab M 1 idx cteni
> S 107000 idx cteni
> D 6 idx cteni
> C 105000 idx cteni
>
> pokud mu ale podstrcim
>
> PLAN SORT (SORT (JOIN (D INDEX (D_IDX_POL_1),S INDEX (S_IDX1),C INDEX
> (C_IDX1),M index (M_idx1))))
>
> jsou pocty cteni ponekud jine - u tab M 1 idx cteni
> S 12 idx cteni
> D 6 idx cteni
> C 6 idx cteni
kalendar nebo planovaci aplikace
[*] Vlastimil Bardon <bardon(zv)akord-soft(tec)cz> - 3.7.2003 10:31:50
Nebo treba TMS Planner zde: www.tmssoftware.com
-----Original Message-----
From: Martin Schayna [mailto:mschayna(zv)aktis(tec)cz]
Sent: Thursday, July 03, 2003 10:24 AM
Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> wrote:
> nemate nekdo nejakou dobrou komponentu nebo aplikaci ktery umela
> planovaci kalendar alespon trochu ve stylu MS Otlook ? ne
> standardniho papiroveho planovace.
Visual PlanIt (opensource od TurboPower)
http://sourceforge.net/projects/tpvplanit/
Jak zjistit do jake miry je string stejny
[*] KinDRik <kindrik(zv)centrum(tec)cz> - 3.7.2003 10:45:52
Zdravim konference ,
chtelbych polozit otazku na kterou bohuzel ja neznam odpoved
a to jest "Jak zjistit do jake miry je string stejny"
napr>
c:\123\podDir\321\Xvv
c:\123\podDir\XYZ\pvv
jsou rozdilne string-y ale jak ja zjistim od ktere pozice se lisi.
Predem diky za nakopnuti spravnym smerem
(Ps: Zdrojacki jou vitany)
Diky moc za jekoukoliv radu
Jiri Betunak
Amatersky Programator v Delphi
Delphi5;WinXpSp1
Jak zjistit do jake miry je string stejny
[*] Jan Nemec <yendikdelphi(zv)seznam(tec)cz> - 3.7.2003 11:01:53
Co treba todle? (musis jeste osetrit aby nebyly stejny a tak...):
pozice := 0;
repeat
inc(pozice);
until (Copy(str1,pozice,1) <> Copy(str2,pozice,1));
Y.
>c:\123\podDir\321\Xvv
>c:\123\podDir\XYZ\pvv
>jsou rozdilne string-y ale jak ja zjistim od ktere pozice se lisi.
Preneseni prvku z okna do okna
[*] Ludek Finstrle <xfinstrl(zv)informatics.muni(tec)cz> - 3.7.2003 10:49:52
Ahoj,
par dni uz bojuji s tim, ze se snazim dostat jeden prvek z jednoho
okna do druheho tak, abych mohl zdrojove okno uvolnit z pameti.
Bohuzel se mi to nedari. Neresil nekdo neco podobneho?
Diky za nakopnuti
Luf
IB/FB - OIT (P. Cisar)
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 3.7.2003 10:33:51
Zdravim,
knihu uz mam a je fajn :-)
Stale mi vsak nie je jasne, co presne je OIT
a kedy sa aktualizuje jeho hodnota, prip.
kedy sa realokuje tabulka aktivnych transakcii.
--
Best regards,
Jaroslav mailto:delphi1(zv)acc.sk
Sitova FB
[*] Jaroslav Popluhar <delphi1(zv)acc.sk> - 3.7.2003 10:51:52
PP> pokud ma ta masina sitovou kartu, tak je potreba, aby sla nejdriv
PP> na ni. to se u 98cek dela asi blbe.
Presto, muze nekdo naznacit jak?
Best regards,
Jaroslav mailto:delphi1(zv)acc.sk
Synapse FTPSend - neukoncena spojeni
[*] jimys1(zv)centrum(tec)cz - 3.7.2003 10:33:50
Ahoj,
pouzivame komponentu Synapse TFPSend. Stahujeme nejake soubory z ftp.
Jednou udelame Login, stahneme si seznam souboru na ftp (funkce List)
a dame ho do nejakeho stringlistu a provedeme logout.
V dalsim kroku jen vyuzijeme funkci RetrieveFile pro stazeni vsech
vylistovanych souboru.
Ovsem nejak se nam zahlcuji spojeni ci porty, moc se v tom
nevyzname... Po vypisu prikazem netstat se zobrazi spousta
neukoncenych spojeni...
Provadime neco spatne? Je potreba delat krom Logout jeste neco
jineho?
Diky
Jirka
Optimalizece SQL dotazu
[*] Antonin Rezac <rezac(zv)apls(tec)cz> - 3.7.2003 10:37:51
Zdravim,
zatim bezuspesne bojuji s optimalizatorem FB 1.0, 1.5.
U dotazu
select d.interni_kod, d.pol_1, d.pol_2, c.pol_3, c.pol_4, s.pol_5,m.pol_6
from tab_D d
join tab_C c on (c.id=1 and (c.interni_kod=d.interni_kod))
join tab_S s on (s.id=1 and (s.interni_kod=d.interni_kod))
left outer join tab_M m on (m.id=1 and (m.interni_kod=d.interni_kod))
where d.pol_1 between '000000' and '000099' and s.pol_x=0
group by d.pol_1, d.pol_2, c.pol_3, c.pol_4, s.pol_5,m.pol_6
order by d.pol_1
generuje plan
PLAN SORT (SORT (JOIN (JOIN (S INDEX (RDB$PRIMARY35,RDB$FOREIGN457),C INDEX
(RDB$PRIMARY11),D INDEX (RDB$PRIMARY16,IDX_DATABAZE_POL_1)),M INDEX
(RDB$PRIMARY146))))
coz v dusledku predtavuje u tab M 1 idx cteni
S 107000 idx cteni
D 6 idx cteni
C 105000 idx cteni
pokud mu ale podstrcim
PLAN SORT (SORT (JOIN (D INDEX (D_IDX_POL_1),S INDEX (S_IDX1),C INDEX
(C_IDX1),M index (M_idx1))))
jsou pocty cteni ponekud jine - u tab M 1 idx cteni
S 12 idx cteni
D 6 idx cteni
C 6 idx cteni
Nechce se mi davat PLAN primo do dotazu, nemuzu ale prijit na to, jak
postavit dotaz ev. upravit klice, aby vysledny PLAN byl trochu
prijatelnejsi.
Vojta
data z sql tabulky
[*] Petr Palicka <palicka.petr(zv)seznam(tec)cz> - 3.7.2003 10:29:50
dotazes se serveru a vracene radky tam pojednom nastrkas.
peca
kalendar nebo planovaci aplikace
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 3.7.2003 10:23:49
Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> wrote:
> nemate nekdo nejakou dobrou komponentu nebo aplikaci ktery umela
> planovaci kalendar alespon trochu ve stylu MS Otlook ? ne
> standardniho papiroveho planovace.
Visual PlanIt (opensource od TurboPower)
http://sourceforge.net/projects/tpvplanit/
data z sql tabulky
[*] Simko Ivan <ivan.simko(zv)pozfond.sk> - 3.7.2003 10:19:49
Ako dostanem data z sql tabulky do dbcomboboxu?
Dakujem
kalendar nebo planovaci aplikace
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 3.7.2003 00:25:37
Zdravim
nemate nekdo nejakou dobrou komponentu nebo aplikaci ktery umela
planovaci kalendar alespon trochu ve stylu MS Otlook ? ne
standardniho papiroveho planovace.
--
Best regards,
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
Minimalizace aplikace po startu do traye
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 2.7.2003 23:09:32
> From: Martin Spurny
>
> pouzivam komponentu TTrayIconSinea.
> Chtel bych hned po startu aplikaci
> minimalizovat do traye (bez probliknuti).
Neni to nejaka starsi verze komponenty?
Ve starsich verzich chybelo v procedure SetAppVisible
Application.ShowMainForm := False;
Melo by to vypadat asi takto:
procedure TTrayIconSinea.SetAppVisible(Value: boolean);
begin
if not Assigned(Owner) then Exit;
if not (csDesigning in ComponentState) then
begin
if Value then
ShowWindow(Application.Handle,SW_SHOW)
else
begin
ShowWindow(Application.Handle,SW_HIDE);
Application.ShowMainForm := False;
end;
(Owner as TForm).Visible := Value;
end;
FAppVisible := Value;
end;
Pak staci v ObjectInspectoru nastavit AppVisible na false
a melo by to fungovat.
Vaclav Krmela
Minimalizace aplikace po startu do traye
[*] Jiri Cincura <jiri(zv)cincura(tec)net> - 2.7.2003 23:11:32
Ahoj,
neznam presne tuto komp., ale urcite ma nejakou metodu, kterou ji
posles do traye. A kdyz ji zavolas treba ve FormCreate, tak ti to
neproblikne.
Jiri Cincura
mailto:jiri(zv)cincura.net; mailto:xcincura(zv)informatics.muni(tec)cz
http://www.cincura.net/
Delphi 7, WinXP HE
==
Hromadna prace s ID3 tagy? Hromadne prejemnovani podle ID3 tagu a presne
zadaneho "vzorce"?! Je to hracka pro "ID3 renamer", na www.cincura.net.
TPicture.LoadFromStream
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.7.2003 22:39:30
From: "Daniel Rott" <roxton(zv)seznam(tec)cz>
> tzn. aby si TPicture vytvoril prislusneho potomka
> TGraphic podle zadane pripony a zavolal jeho
> LoadFromStream, tak jak to dela pri LoadFromFile ?
> Asi jde o to, jak se dostat ke tride FileFormats,
> ktera je bohuzel v implementacni casti Graphics.pas.
VCL umi registrovat nove graficke formaty, viz TPicture.RegisterFileFormat
Petr Vones
PDF (view, print)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.7.2003 22:39:30
From: <mstevlik(zv)gamo.sk>
> - co ak zakaznik nema nainstalovaneho acrobat reader?
Existuji knihovny pro zobrazeni a tisk PDF, budto primo od Adobe nebo od
jinych vyrobcu. Licence pro sireni s aplikaci jsou vsak velmi drahe (radove
tisice dolaru).
Petr Vones
Minimalizace aplikace po startu do traye
[*] Martin Spurny <spurnymart(zv)centrum(tec)cz> - 2.7.2003 22:29:29
Zdravim
pouzivam komponentu TTrayIconSinea. Chtel bych hned po startu aplikaci
minimalizovat do traye (bez probliknuti).
Dik za nakopnuti.
Martin
Efektivni SQL na rovnost podvyberu
[*] Jan Harman <harman(zv)volny(tec)cz> - 2.7.2003 21:37:26
Zkus napsat tuto proceduru. Je to vyzkousene. Funguje to ale jen pokud se POLOZKA nebude u stejneho x_ID opakovat. Vyzkousel jsem to
jen s hodnotami v tabulkach ktere jsi zadal. Nejsem ve vytvareni procedur zbehly, asi by to slo napsat i lepe.
Jan Harman, Brno, harman(zv)volny(tec)cz
Proceduru volej treba:
SELECT AID, BID FROM EQ_AB (1)
Tady je procedura:
SET TERM ^ ;
CREATE PROCEDURE "EQ_AB"(xxx INTEGER)
RETURNS
(
"AID" INTEGER,
"BID" INTEGER
)
AS
DECLARE VARIABLE A SMALLINT;
DECLARE VARIABLE CA SMALLINT;
DECLARE VARIABLE B SMALLINT;
DECLARE VARIABLE CB SMALLINT;
DECLARE VARIABLE AA SMALLINT;
DECLARE VARIABLE BB SMALLINT;
DECLARE VARIABLE CNT SMALLINT;
BEGIN
BEGIN
FOR SELECT A_ID, COUNT(*) FROM PA GROUP BY A_ID INTO :A, :CA
DO BEGIN
FOR SELECT B_ID, COUNT(*) FROM PB GROUP BY B_ID INTO :B, :CB
DO BEGIN
IF (:CA = :CB) THEN BEGIN
CNT = 0;
FOR SELECT POLOZKA FROM PA WHERE A_ID = :A INTO :AA
DO BEGIN
FOR SELECT POLOZKA FROM PB WHERE B_ID = :B INTO :BB
DO
IF (:AA = :BB) THEN CNT = CNT + 1;
END
IF (CNT = :CA) THEN BEGIN
AID = :A;
BID = :B;
SUSPEND;
END
END
END
END
END
END
^
SET TERM ; ^
> A ID
> 1
> 2
> 3
>
> PA A_ID POLOZKA
> 1 10
> 2 10
> 2 20
> 3 10
> 3 20
> 3 30
>
> B ID
> 1
> 2
> 3
>
> PB B_ID POLOZKA
> 1 10
> 1 20
> 1 30
> 2 10
> 3 10
>
>
> Vystupem ma byt
> AID BID
> 1 2
> 1 3
> 3 1
>
>
>
>
>
aktivacia Delphi 6 Profesional - vyjadrenie Borlan
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.7.2003 18:43:15
From: "ing. Jan Fiala" <jan.fiala(zv)wo(tec)cz>
> Ale stale to neresi otazku, ze to pouze obtezuje legalni uzivatele.
Byl jsem ted par dni pryc tak jsem to necetl cele.
Tenhle problem je znam uz od te doby co s tim nejaka chytra hlava u Borlandu
prisla. Jeste zabavnejsi to je v pripade pokud pouzivate VMVare a mate tedy
vice virtualnich instalaci Windows a na nich instalovane Delphi.
Resit to zde nebo pres Borland CZ nema zadny smysl. Jedine mozne "reseni" je
apelovat na Borland US (treba prostrednictvim non-tech newsu) at se z tech
protipiratskych hratek zase vzpamatuje. Mohlo byt patrne jeste hure, protoze
si Borland zahraval i s technologii SafeDisc ktera ma zabranit kopirovani CD.
V praxi samozrejme zpusobi jen to, ze na nekterych mechanikach a systemech
nelze originalni CD vubec precist a neni mozne si vytvorit zalozni kopii od
software za cca az sto tisic Kc, vice:
Borland Licenses Macrovision's SafeDisc HD CD-ROM Copy Protection Technology
http://groups.google.com/groups?selm=3a8b0147.145475973%40newsgroups.borland.com
Posedlost protipatskymi ochranami dosla uz tak daleko, ze Trial verze Delphi
maji nekompatibilni prekladac na urovni zdrojoveho kodu, takze nektere veci
zkratka nelze prelozit. Pritom je to uplne zbytecne, nikdo nebude "hackovat"
trial verzi, pirat si proste stahne cele Delphi a keygen z Internetu. Opet
reseni ktere jde jen proti legalnim uzivatelum.
> Nelegalni uzivatel si stahne z netu keygen a zadnou registraci, ani
> odemykani konta nepotrebuje.
Samozrejme. Tak to bylo, je a bude.
Petr Vones
OT: SQLite a ORDER BY, narodne znaky
[*] Ondrej Krsko <ondrej.krsko(zv)zoznam.sk> - 2.7.2003 17:31:10
Dobry den,
nema nahodou niekto skusenosti s ceskym/slovenskym triedenim v SQLite?
Chcem dosiahnut stav, aby ORDER BY zotriedil retazce tak, ze po "c" bude
nasledovat "c s makcenom", ...
Dakujem,
Ondrej Krsko